equal
deleted
inserted
replaced
260 exit(BadTurn); |
260 exit(BadTurn); |
261 |
261 |
262 Result:= 0; |
262 Result:= 0; |
263 for i:= 0 to 4 do |
263 for i:= 0 to 4 do |
264 Result:= Result + RateShove(Me, hwRound(Me^.X) + 10 * hwSign(Targ.X - Me^.X), hwRound(Me^.Y) - 20 * i - 5, 10, 30); |
264 Result:= Result + RateShove(Me, hwRound(Me^.X) + 10 * hwSign(Targ.X - Me^.X), hwRound(Me^.Y) - 20 * i - 5, 10, 30); |
265 if Result <= 0 then Result:= BadTurn; |
265 if Result <= 0 then Result:= BadTurn else inc(Result); |
266 TestFirePunch:= Result |
266 TestFirePunch:= Result |
267 end; |
267 end; |
268 |
268 |
269 end. |
269 end. |