equal
deleted
inserted
replaced
233 MyClan:= ThinkingHH^.Hedgehog^.Team^.Clan; |
233 MyClan:= ThinkingHH^.Hedgehog^.Team^.Clan; |
234 Gear:= GearsList; |
234 Gear:= GearsList; |
235 while Gear <> nil do |
235 while Gear <> nil do |
236 begin |
236 begin |
237 case Gear^.Kind of |
237 case Gear^.Kind of |
238 gtGrenade |
238 gtAirAttack |
|
239 , gtAirBomb |
|
240 , gtBall |
|
241 , gtBee |
|
242 , gtBirdy |
239 , gtClusterBomb |
243 , gtClusterBomb |
|
244 , gtCake |
|
245 , gtCluster |
|
246 , gtDrill |
|
247 , gtEgg |
240 , gtGasBomb |
248 , gtGasBomb |
|
249 , gtGrenade |
|
250 , gtHellishBomb |
|
251 , gtPiano |
|
252 , gtPoisonCloud |
|
253 , gtRCPlane |
|
254 , gtMelonPiece |
|
255 , gtMolotov |
|
256 , gtMortar |
|
257 , gtNapalmBomb |
241 , gtShell |
258 , gtShell |
242 , gtAirAttack |
259 , gtSnowball |
243 , gtMortar |
260 , gtWatermelon: bonuses.activity:= true; |
244 , gtWatermelon |
|
245 , gtDrill |
|
246 , gtAirBomb |
|
247 , gtCluster |
|
248 , gtMelonPiece |
|
249 , gtBee |
|
250 , gtMolotov: bonuses.activity:= true; |
|
251 gtCase: |
261 gtCase: |
252 if (Gear^.AIHints and aihDoesntMatter) = 0 then |
262 if (Gear^.AIHints and aihDoesntMatter) = 0 then |
253 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25); |
263 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25); |
254 gtFlame: |
264 gtFlame: |
255 if (Gear^.State and gsttmpFlag) <> 0 then |
265 if (Gear^.State and gsttmpFlag) <> 0 then |