diff --git a/src/drop.mpsrc b/src/drop.mpsrc
index a691f98beb2a6ccf62830a85632598b463f2fe40..3738c1203edcb140b779403ea72b7e3b604c70d6 100644 (file)
--- a/src/drop.mpsrc
+++ b/src/drop.mpsrc
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
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
- 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