hedgewars/uAIMisc.pas
changeset 8972 f01b836d702e
parent 8971 fcb29a13b1b1
child 9080 9b42757d7e71
equal deleted inserted replaced
8971:fcb29a13b1b1 8972:f01b836d702e
   129             (Gear^.Health > Gear^.Damage) and
   129             (Gear^.Health > Gear^.Damage) and
   130             not(Gear^.Hedgehog^.Team^.hasgone)) or
   130             not(Gear^.Hedgehog^.Team^.hasgone)) or
   131         ((Gear^.Kind = gtExplosives) and
   131         ((Gear^.Kind = gtExplosives) and
   132             (Gear^.Health > Gear^.Damage)) or
   132             (Gear^.Health > Gear^.Damage)) or
   133         ((Gear^.Kind = gtMine) and
   133         ((Gear^.Kind = gtMine) and
   134             ((Gear^.Health = 0) and
   134             (Gear^.Health = 0) and
   135              (Gear^.Damage < 35)) or
   135              (Gear^.Damage < 35))
   136             ((Gear^.Health > 0) and 
   136              )  and 
   137              (cMineDudPercent > 95) and
       
   138              (cMinesTime < 3000)) 
       
   139              ))  and 
       
   140         (Targets.Count < 256) then
   137         (Targets.Count < 256) then
   141         begin
   138         begin
   142         with Targets.ar[Targets.Count] do
   139         with Targets.ar[Targets.Count] do
   143             begin
   140             begin
   144             skip:= false;
   141             skip:= false;