equal
deleted
inserted
replaced
218 Result: LongInt; |
218 Result: LongInt; |
219 begin |
219 begin |
220 x:= Me^.X; |
220 x:= Me^.X; |
221 y:= Me^.Y; |
221 y:= Me^.Y; |
222 dY:= -Vy; |
222 dY:= -Vy; |
223 |
223 |
224 repeat |
224 repeat |
225 x:= x + Vx; |
225 x:= x + Vx; |
226 y:= y + dY; |
226 y:= y + dY; |
227 dY:= dY + cGravity; |
227 dY:= dY + cGravity; |
228 EX:= hwRound(x); |
228 EX:= hwRound(x); |
229 EY:= hwRound(y); |
229 EY:= hwRound(y); |
230 until TestColl(EX, EY, 5) or (EY > 1000); |
230 until TestColl(EX, EY, 5) or (EY > 1000); |
231 |
231 |
232 if (EY < 1000) and not dY.isNegative then |
232 if (EY < 1000) and not dY.isNegative then |
233 begin |
233 begin |
234 Result:= RateExplosion(Me, EX, EY, 91); |
234 Result:= RateExplosion(Me, EX, EY, 91); |
235 if (Result = 0) then |
235 if (Result = 0) then |
236 if (dY > _0_15) then |
236 if (dY > _0_15) then |