New implementation of module Items, *.cfg files now deprecated

[cavecraft.git] / src / Mobs.pas

diff --git a/src/Mobs.pas b/src/Mobs.pas
index 519cf9cd0a6f698634bbf94fecb90aaa142d86c5..252f22f31154ddfd89048f3d98c658c06979fbb9 100644 (file)
--- a/src/Mobs.pas
+++ b/src/Mobs.pas
@@ -26,13 +26,15 @@ interface
 \r
 implementation\r
 \r
-  uses phy, player, canvas, jsr75i, func, drop, items;\r
+  uses phy, player, canvas, jsr75i, func, drop;\r
 \r
   const\r
     lastType = 1;\r
     lastMob = 31;\r
     lastZombyFrame = 11;\r
 \r
+    rottenMeat = 190;\r
+\r
   var\r
     mtype, mx, my, mvx, mvy, mpos, mhp, ma, mb, mc : array [0..lastMob] of integer;\r
     mjump : array [0..lastMob] of boolean;\r
@@ -142,7 +144,7 @@ implementation
       x := mx[i] + GetW(i) / 2;\r
       y := my[i] + GetH(i) / 2;\r
       if mtype[i] = zomby then begin\r
-        Drop.Create(Items.rottenMeat, x, y, Random(3));\r
+        Drop.Create(rottenMeat, x, y, Random(3));\r
       end;\r
       mtype[i] := none;\r
     end;\r