hedgewars/uAIMisc.pas
changeset 14607 e54e41554529
parent 14528 184df3900ec4
parent 14606 8736f3a0ff7f
child 14785 b3fa6a19fc25
equal deleted inserted replaced
14605:ab79cd4a7382 14607:e54e41554529
   245                 or (isAfterAttack and (Gear^.Health = 0) and (Gear^.Damage > 30))) then
   245                 or (isAfterAttack and (Gear^.Health = 0) and (Gear^.Damage > 30))) then
   246                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   246                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   247                 else if (Gear^.State and gstAttacking) <> 0 then
   247                 else if (Gear^.State and gstAttacking) <> 0 then
   248                     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
   249                 end;
   249                 end;
       
   250             gtAirMine: if ((Gear^.State and gstFrozen) = 0) then AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), gear^.Angle+5, -30);
   250 
   251 
   251             gtExplosives:
   252             gtExplosives:
   252                 begin
   253                 begin
   253                 //if (Gear^.State and gstMoving) <> 0 then bonuses.activity:= true;
   254                 //if (Gear^.State and gstMoving) <> 0 then bonuses.activity:= true;
   254 
   255