equal
deleted
inserted
replaced
211 dY:= dY + cGravity; |
211 dY:= dY + cGravity; |
212 EX:= hwRound(x); |
212 EX:= hwRound(x); |
213 EY:= hwRound(y); |
213 EY:= hwRound(y); |
214 until TestColl(EX, EY, 5) or (EY > 1000); |
214 until TestColl(EX, EY, 5) or (EY > 1000); |
215 |
215 |
216 if EY < 1000 then |
216 if (EY < 1000) and not dY.isNegative then |
217 begin |
217 begin |
218 Result:= RateExplosion(Me, EX, EY, 91); |
218 Result:= RateExplosion(Me, EX, EY, 91); |
219 if (Result = 0) then |
219 if (Result = 0) then |
220 if (dY > _0_15) then |
220 if (dY > _0_15) then |
221 Result:= - abs(Targ.Y - EY) div 32 |
221 Result:= - abs(Targ.Y - EY) div 32 |