Chanage version to BETA 9 test build 12

[cavecraft.git] / src / player.mpsrc

diff --git a/src/player.mpsrc b/src/player.mpsrc
index 3e9f3615fa11a8ab31a9689f3e72f84f85439607..1891939e113195d38530b4fb149d2a35378a3c43 100644 (file)
--- a/src/player.mpsrc
+++ b/src/player.mpsrc
@@ -28,6 +28,7 @@ interface
  procedure cancelAnim(anim:integer);\r
 \r
  procedure dropItem(item, sum:integer);\r
+ procedure biteIt(hp : integer; vector : integer);\r
 \r
  procedure calcPhysics;\r
 \r
@@ -228,6 +229,11 @@ implementation
     DrawImage(PlayerHand[posi, animHand], x-6-camx, y+8-camy);\r
   end;\r
 \r
+  procedure biteIt(damage : integer; vector : integer);\r
+   begin\r
+    hp := hp - damage;\r
+   end;\r
+\r
 procedure loadPhy;\r
  begin\r
   phy.loadObject(getX, getY, getW, getH, getVelX, getVelY, getJmp);\r