equal
deleted
inserted
replaced
171 ap.ExplX:= EX; |
171 ap.ExplX:= EX; |
172 ap.ExplY:= EY; |
172 ap.ExplY:= EY; |
173 valueResult:= value |
173 valueResult:= value |
174 end; |
174 end; |
175 end |
175 end |
176 until (rTime > 4250); |
176 until (value > 204800) or (rTime > 4250); |
177 TestBazooka:= valueResult |
177 TestBazooka:= valueResult |
178 end; |
178 end; |
179 |
179 |
180 function TestSnowball(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt; |
180 function TestSnowball(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt; |
181 var Vx, Vy, r: hwFloat; |
181 var Vx, Vy, r: hwFloat; |
308 dec(t) |
308 dec(t) |
309 until TestCollExcludingMe(Me, hwRound(x), hwRound(y), 5) or (t = 0); |
309 until TestCollExcludingMe(Me, hwRound(x), hwRound(y), 5) or (t = 0); |
310 EX:= hwRound(x); |
310 EX:= hwRound(x); |
311 EY:= hwRound(y); |
311 EY:= hwRound(y); |
312 if t < 50 then |
312 if t < 50 then |
313 Score:= RateExplosion(Me, EX, EY, 101) |
313 if Me^.Hedgehog^.BotLevel = 1 then |
|
314 Score:= RateExplosion(Me, EX, EY, 101, 3) |
|
315 else Score:= RateExplosion(Me, EX, EY, 101) |
314 else |
316 else |
315 Score:= BadTurn; |
317 Score:= BadTurn; |
316 |
318 |
317 if valueResult < Score then |
319 if valueResult < Score then |
318 begin |
320 begin |
323 ap.ExplX:= EX; |
325 ap.ExplX:= EX; |
324 ap.ExplY:= EY; |
326 ap.ExplY:= EY; |
325 valueResult:= Score |
327 valueResult:= Score |
326 end; |
328 end; |
327 end |
329 end |
328 until (TestTime = 4000); |
330 until (Score > 204800) or (TestTime > 4000); |
329 TestGrenade:= valueResult |
331 TestGrenade:= valueResult |
330 end; |
332 end; |
331 |
333 |
332 function TestClusterBomb(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt; |
334 function TestClusterBomb(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt; |
333 const tDelta = 24; |
335 const tDelta = 24; |