hedgewars/uAIMisc.pas
changeset 14285 6f3f59266c4c
parent 14234 09dacb61d526
child 14528 184df3900ec4
child 14606 8736f3a0ff7f
equal deleted inserted replaced
14284:29d614a5c9eb 14285:6f3f59266c4c
   229             , gtAirBomb
   229             , gtAirBomb
   230             , gtCluster
   230             , gtCluster
   231             , gtMelonPiece
   231             , gtMelonPiece
   232             , gtMolotov: bonuses.activity:= true;
   232             , gtMolotov: bonuses.activity:= true;
   233             gtCase:
   233             gtCase:
   234                 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);
   234                 if (Gear^.AIHints and aihDoesntMatter) = 0 then
       
   235                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);
   235             gtFlame:
   236             gtFlame:
   236                 if (Gear^.State and gsttmpFlag) <> 0 then
   237                 if (Gear^.State and gsttmpFlag) <> 0 then
   237                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);
   238                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);
   238 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow
   239 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow
   239             gtMine: begin
   240             gtMine: begin