equal
deleted
inserted
replaced
155 Gear^.X:= Gear^.X - cScreenSpace |
155 Gear^.X:= Gear^.X - cScreenSpace |
156 end; |
156 end; |
157 |
157 |
158 //////////////////////////////////////////////////////////////////////////////// |
158 //////////////////////////////////////////////////////////////////////////////// |
159 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
159 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
160 begin |
160 var s: LongInt; |
161 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
161 begin |
162 |
162 s:= min(Steps, cExplFrameTicks); |
163 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
163 |
|
164 Gear^.X:= Gear^.X + Gear^.dX * s; |
|
165 Gear^.Y:= Gear^.Y + Gear^.dY * s; |
164 //Gear^.dY:= Gear^.dY + cGravityf; |
166 //Gear^.dY:= Gear^.dY + cGravityf; |
165 |
167 |
166 if Gear^.FrameTicks <= Steps then |
168 if Gear^.FrameTicks <= Steps then |
167 if Gear^.Frame = 0 then |
169 if Gear^.Frame = 0 then |
168 DeleteVisualGear(Gear) |
170 DeleteVisualGear(Gear) |