X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fplayer.mpsrc;h=1891939e113195d38530b4fb149d2a35378a3c43;hb=da44ebb09be137e3066278fb5b1bd1fd0b43fd10;hp=3e9f3615fa11a8ab31a9689f3e72f84f85439607;hpb=1ef13d5bd0592dde48cc837e05b13e93e82db25b;p=cavecraft.git

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