hedgewars/uAIMisc.pas
branch0.9.25
changeset 14585 8736f3a0ff7f
parent 14264 6f3f59266c4c
child 14586 e54e41554529
equal deleted inserted replaced
14556:5e4df5413e1e 14585:8736f3a0ff7f
   227             , gtWatermelon
   227             , gtWatermelon
   228             , gtDrill
   228             , gtDrill
   229             , gtAirBomb
   229             , gtAirBomb
   230             , gtCluster
   230             , gtCluster
   231             , gtMelonPiece
   231             , gtMelonPiece
       
   232             , gtBee
   232             , gtMolotov: bonuses.activity:= true;
   233             , gtMolotov: bonuses.activity:= true;
   233             gtCase:
   234             gtCase:
   234                 if (Gear^.AIHints and aihDoesntMatter) = 0 then
   235                 if (Gear^.AIHints and aihDoesntMatter) = 0 then
   235                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);
   236                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25);
   236             gtFlame:
   237             gtFlame:
   244                 or (isAfterAttack and (Gear^.Health = 0) and (Gear^.Damage > 30))) then
   245                 or (isAfterAttack and (Gear^.Health = 0) and (Gear^.Damage > 30))) then
   245                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   246                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   246                 else if (Gear^.State and gstAttacking) <> 0 then
   247                 else if (Gear^.State and gstAttacking) <> 0 then
   247                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
   248                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
   248                 end;
   249                 end;
       
   250             gtAirMine: if ((Gear^.State and gstFrozen) = 0) then AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), gear^.Angle+5, -30);
   249 
   251 
   250             gtExplosives:
   252             gtExplosives:
   251                 begin
   253                 begin
   252                 //if (Gear^.State and gstMoving) <> 0 then bonuses.activity:= true;
   254                 //if (Gear^.State and gstMoving) <> 0 then bonuses.activity:= true;
   253 
   255