squirrel/samples/delegation.nut

PEntity <- {
    name="noname"
    pos={x=0,y=0,z=0}
    type="entity"
    //methamethod
    _typeof=function()
    {
        return type;
    }
}

function PEntity::PrintPos()
{
    ::print("x="+pos.x+" y="+pos.y+" z="+pos.z+"\n");
}

function PEntity::new(name,pos)
{
    local newentity=clone ::PEntity;
    if(name)
        newentity.name=name;
    if(pos)
        newentity.pos=pos;
    return newentity;
}

PPlayer <- {
    model="warrior.mdl"
    weapon="fist"
    health=100
    armor=0
    //overrides the parent type
    type="player"
}

function PPlayer::new(name,pos)
{
    local p = clone ::PPlayer;
    local newplayer = ::PEntity.new(name,pos);
    newplayer.setdelegate(p);
    return newplayer;
}

local player=PPlayer.new("godzilla",{x=10,y=20,z=30});

::print("PLAYER NAME"+player.name+"\n");
::print("ENTITY TYPE"+typeof player+"\n");

player.PrintPos();

player.pos.x=123;

player.PrintPos();