equal
deleted
inserted
replaced
468 dY:= dY + cGravity; |
468 dY:= dY + cGravity; |
469 EX:= hwRound(x); |
469 EX:= hwRound(x); |
470 EY:= hwRound(y); |
470 EY:= hwRound(y); |
471 until TestCollExcludingMe(Me, EX, EY, 5) or (EY > cWaterLine); |
471 until TestCollExcludingMe(Me, EX, EY, 5) or (EY > cWaterLine); |
472 |
472 |
473 if (EY < cWaterLine) and not dY.isNegative then |
473 if (EY < cWaterLine) and (not dY.isNegative) then |
474 begin |
474 begin |
475 value:= RateExplosion(Me, EX, EY, 91); |
475 value:= RateExplosion(Me, EX, EY, 91); |
476 if (value = 0) then |
476 if (value = 0) then |
477 if (dY > _0_15) then |
477 if (dY > _0_15) then |
478 value:= - abs(Targ.Y - EY) div 32 |
478 value:= - abs(Targ.Y - EY) div 32 |