Remove ascii crap

[cavecraft.git] / src / drop.mpsrc

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