equal
deleted
inserted
replaced
122 //(proc: nil; flags: 0), // amStructure |
122 //(proc: nil; flags: 0), // amStructure |
123 (proc: nil; flags: 0), // amLandGun |
123 (proc: nil; flags: 0), // amLandGun |
124 (proc: nil; flags: 0), // amIceGun |
124 (proc: nil; flags: 0), // amIceGun |
125 (proc: nil; flags: 0), // amKnife |
125 (proc: nil; flags: 0), // amKnife |
126 (proc: nil; flags: 0), // amRubber |
126 (proc: nil; flags: 0), // amRubber |
127 (proc: nil; flags: 0) // amAirMine |
127 (proc: nil; flags: 0), // amAirMine |
|
128 (proc: nil; flags: 0) // amDuck |
128 ); |
129 ); |
129 |
130 |
130 implementation |
131 implementation |
131 uses uVariables, uUtils, uGearsHandlers; |
132 uses uVariables, uUtils, uGearsHandlers; |
132 |
133 |
251 end; |
252 end; |
252 |
253 |
253 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; |
254 var i, j: LongInt; |
255 var i, j: LongInt; |
255 valueResult, v, a, p: LongInt; |
256 valueResult, v, a, p: LongInt; |
256 mX, mY, dX: real; |
257 mX, mY: real; |
257 eX, eY: LongInt; |
258 eX, eY: LongInt; |
258 begin |
259 begin |
259 if Level > 1 then |
260 if Level > 1 then |
260 exit(BadTurn); |
261 exit(BadTurn); |
261 |
262 |