52 lines
801 B
Plaintext
52 lines
801 B
Plaintext
|
|
||
|
|
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 newplayer=delegate ::PEntity.new(name,pos) : clone ::PPlayer;
|
||
|
|
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();
|