Remove ascii crap

[cavecraft.git] / src / drop.mpsrc

diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index a691f98beb2a6ccf62830a85632598b463f2fe40..e71dabf3172a829be870d735d9f191ebec16e069 100644 (file)
--- a/src/drop.mpsrc
+++ b/src/drop.mpsrc
@@ -26,7 +26,9 @@ interface
  procedure loadData;\r
 \r
 implementation\r
  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
  const\r
   MAX_DROP=255;\r
   DROP_W=8;\r


@@ -131,23 +133,23 @@ implementation
     for i:=0 to MAX_DROP do\r
      if isNull(i)=false then\r
       begin\r
     for i:=0 to MAX_DROP do\r
      if isNull(i)=false then\r
       begin\r

-       phy.loadObject(drop_x[i], drop_y[i], DROP_W, DROP_H, 0, drop_vely[i], false);\r
-       phy.calc(true);\r
-       drop_x[i]:=phy.getX;\r
-       drop_y[i]:=phy.getY;\r
-       drop_vely[i]:=phy.getVelY;\r
+       Phy.SetObject(drop_x[i], drop_y[i], DROP_W, DROP_H, 0, drop_vely[i], false);\r
+       Phy.Step(true);\r
+       drop_x[i]:=Phy.GetX;\r
+       drop_y[i]:=Phy.GetY;\r
+       drop_vely[i]:=Phy.GetVY;\r

       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
+        ItemsLogic.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