X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2Fdrop.mpsrc;h=3738c1203edcb140b779403ea72b7e3b604c70d6;hp=e6f95cd28668e8be4d4b7d97c42b270d9eb61608;hb=4d7cf2ab1e10d9926d03afb5a3f883bcf5312469;hpb=9115be0a19d5716f33a2e2cba76f3447ce0f4c2f

diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index e6f95cd..3738c12 100644
--- a/src/drop.mpsrc
+++ b/src/drop.mpsrc
@@ -26,7 +26,7 @@ interface
  procedure loadData;
 
 implementation
- uses phy, jsr75i, vars, items_store, items, func;
+ uses phy, jsr75i, vars, items_store, func, Items;
  const
   MAX_DROP=255;
   DROP_W=8;
@@ -139,15 +139,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
+        Items.DrawSmall(drop_item[i], drop_x[i] - camx, drop_y[i] - camy);
+      end;
+    end;
 
  procedure reflux;
   var