X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2FMobs.pas;h=252f22f31154ddfd89048f3d98c658c06979fbb9;hp=519cf9cd0a6f698634bbf94fecb90aaa142d86c5;hb=4d7cf2ab1e10d9926d03afb5a3f883bcf5312469;hpb=9115be0a19d5716f33a2e2cba76f3447ce0f4c2f diff --git a/src/Mobs.pas b/src/Mobs.pas index 519cf9c..252f22f 100644 --- a/src/Mobs.pas +++ b/src/Mobs.pas @@ -26,13 +26,15 @@ interface implementation - uses phy, player, canvas, jsr75i, func, drop, items; + uses phy, player, canvas, jsr75i, func, drop; const lastType = 1; lastMob = 31; lastZombyFrame = 11; + rottenMeat = 190; + var mtype, mx, my, mvx, mvy, mpos, mhp, ma, mb, mc : array [0..lastMob] of integer; mjump : array [0..lastMob] of boolean; @@ -142,7 +144,7 @@ implementation x := mx[i] + GetW(i) / 2; y := my[i] + GetH(i) / 2; if mtype[i] = zomby then begin - Drop.Create(Items.rottenMeat, x, y, Random(3)); + Drop.Create(rottenMeat, x, y, Random(3)); end; mtype[i] := none; end;