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

diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index a691f98..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;
@@ -131,23 +133,23 @@ implementation
     for i:=0 to MAX_DROP do
      if isNull(i)=false then
       begin
-       phy.loadObject(drop_x[i], drop_y[i], DROP_W, DROP_H, 0, drop_vely[i], false);
-       phy.calc(true);
-       drop_x[i]:=phy.getX;
-       drop_y[i]:=phy.getY;
-       drop_vely[i]:=phy.getVelY;
+       Phy.SetObject(drop_x[i], drop_y[i], DROP_W, DROP_H, 0, drop_vely[i], false);
+       Phy.Step(true);
+       drop_x[i]:=Phy.GetX;
+       drop_y[i]:=Phy.GetY;
+       drop_vely[i]:=Phy.GetVY;
       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