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

[cavecraft.git] / src / drop.mpsrc

diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index e6f95cd28668e8be4d4b7d97c42b270d9eb61608..3738c1203edcb140b779403ea72b7e3b604c70d6 100644 (file)
--- a/src/drop.mpsrc
+++ b/src/drop.mpsrc
@@ -26,7 +26,7 @@ interface
  procedure loadData;\r
 \r
 implementation\r
  procedure loadData;\r
 \r
 implementation\r

- uses phy, jsr75i, vars, items_store, items, func;\r
+ uses phy, jsr75i, vars, items_store, func, Items;\r

  const\r
   MAX_DROP=255;\r
   DROP_W=8;\r
  const\r
   MAX_DROP=255;\r
   DROP_W=8;\r


@@ -139,15 +139,15 @@ implementation
       end;\r
   end;\r
 \r
       end;\r
   end;\r
 \r

- procedure draw(camx, camy:integer);\r
-  var\r
-   i:integer;\r
-  begin\r
-   if drw_drp then\r
-    for i:=0 to 255 do\r
-     if isNull(i)=false then\r
-      drawSmallItem(drop_item[i], drop_x[i]-camx, drop_y[i]-camy);\r
-  end;\r
+  procedure draw(camx, camy : integer);\r
+    var\r
+     i : integer;\r
+    begin\r
+      if not drw_drp then exit;\r
+      for i:=0 to 255 do if IsNull(i) = false then begin\r
+        Items.DrawSmall(drop_item[i], drop_x[i] - camx, drop_y[i] - camy);\r
+      end;\r
+    end;\r

 \r
  procedure reflux;\r
   var\r
 \r
  procedure reflux;\r
   var\r