equal
deleted
inserted
replaced
242 Result:= BadTurn; |
242 Result:= BadTurn; |
243 exit |
243 exit |
244 end; |
244 end; |
245 Time:= 0; |
245 Time:= 0; |
246 Power:= 1; |
246 Power:= 1; |
247 Angle:= DxDy2AttackAngle(Sign(Targ.X - Me.X), 1); |
247 Angle:= DxDy2AttackAngle(hwSign(Targ.X - Me.X), 1); |
248 Result:= RateShove(Me, round(Me.X) + 10 * Sign(Targ.X - Me.X), round(Me.Y), 15, 30) |
248 Result:= RateShove(Me, round(Me.X) + 10 * hwSign(Targ.X - Me.X), round(Me.Y), 15, 30) |
249 end; |
249 end; |
250 |
250 |
251 function TestFirePunch(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
251 function TestFirePunch(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
252 var i: integer; |
252 var i: integer; |
253 begin |
253 begin |
257 Result:= BadTurn; |
257 Result:= BadTurn; |
258 exit |
258 exit |
259 end; |
259 end; |
260 Time:= 0; |
260 Time:= 0; |
261 Power:= 1; |
261 Power:= 1; |
262 Angle:= DxDy2AttackAngle(Sign(Targ.X - Me.X), 1); |
262 Angle:= DxDy2AttackAngle(hwSign(Targ.X - Me.X), 1); |
263 Result:= 0; |
263 Result:= 0; |
264 for i:= 0 to 4 do |
264 for i:= 0 to 4 do |
265 Result:= Result + RateShove(Me, round(Me.X) + 10 * Sign(Targ.X - Me.X), round(Me.Y) - 20 * i - 5, 10, 30) |
265 Result:= Result + RateShove(Me, round(Me.X) + 10 * hwSign(Targ.X - Me.X), round(Me.Y) - 20 * i - 5, 10, 30) |
266 end; |
266 end; |
267 |
267 |
268 end. |
268 end. |