equal
deleted
inserted
replaced
252 end; |
252 end; |
253 |
253 |
254 function TestBee(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
254 function TestBee(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt; |
255 var i, j: LongInt; |
255 var i, j: LongInt; |
256 valueResult, v, a, p: LongInt; |
256 valueResult, v, a, p: LongInt; |
257 mX, mY, dX: real; |
257 mX, mY: real; |
258 eX, eY: LongInt; |
258 eX, eY: LongInt; |
259 begin |
259 begin |
260 if Level > 1 then |
260 if Level > 1 then |
261 exit(BadTurn); |
261 exit(BadTurn); |
262 |
262 |