summaryrefslogtreecommitdiff
path: root/src/3rdparty/squirrel/samples/delegation.nut
diff options
context:
space:
mode:
authorrubidium <rubidium@openttd.org>2009-02-25 01:21:50 +0000
committerrubidium <rubidium@openttd.org>2009-02-25 01:21:50 +0000
commit1ad50ce4e6ed74c8eeb89a1f2780e6ed58a72b2b (patch)
tree0955433146cc59335ddaac1d6e08eb177a9ead61 /src/3rdparty/squirrel/samples/delegation.nut
parent66a8c0a1325e1f8717150dc6bbe1bcb4fb458bef (diff)
downloadopenttd-1ad50ce4e6ed74c8eeb89a1f2780e6ed58a72b2b.tar.xz
(svn r15578) -Change: unexternalise squirrel.
Diffstat (limited to 'src/3rdparty/squirrel/samples/delegation.nut')
-rw-r--r--src/3rdparty/squirrel/samples/delegation.nut52
1 files changed, 52 insertions, 0 deletions
diff --git a/src/3rdparty/squirrel/samples/delegation.nut b/src/3rdparty/squirrel/samples/delegation.nut
new file mode 100644
index 000000000..e9e86ca9a
--- /dev/null
+++ b/src/3rdparty/squirrel/samples/delegation.nut
@@ -0,0 +1,52 @@
+
+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();