X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2Fdrop.mpsrc;h=e71dabf3172a829be870d735d9f191ebec16e069;hp=e6f95cd28668e8be4d4b7d97c42b270d9eb61608;hb=HEAD;hpb=90bc20fc7666db31948953ec7ae11f6f5f90f509

diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index e6f95cd..e71dabf 100644
--- a/src/drop.mpsrc
+++ b/src/drop.mpsrc
@@ -26,7 +26,9 @@ interface
  procedure loadData;
 
 implementation
- uses phy, jsr75i, vars, items_store, items, func;
+
+  uses phy, jsr75i, vars, items_store, func, ItemsLogic;
+
  const
   MAX_DROP=255;
   DROP_W=8;
@@ -139,15 +141,15 @@ implementation
       end;
   end;
 
- procedure draw(camx, camy:integer);
-  var
-   i:integer;
-  begin
-   if drw_drp then
-    for i:=0 to 255 do
-     if isNull(i)=false then
-      drawSmallItem(drop_item[i], drop_x[i]-camx, drop_y[i]-camy);
-  end;
+  procedure draw(camx, camy : integer);
+    var
+     i : integer;
+    begin
+      if not drw_drp then exit;
+      for i:=0 to 255 do if IsNull(i) = false then begin
+        ItemsLogic.DrawSmall(drop_item[i], drop_x[i] - camx, drop_y[i] - camy);
+      end;
+    end;
 
  procedure reflux;
   var