hedgewars/uAI.pas
changeset 2608 cebfea02f8b5
parent 2605 a40a7c90ffd8
child 2630 079ef82eac75
equal deleted inserted replaced
2607:dbeaba78e676 2608:cebfea02f8b5
   110               end
   110               end
   111            end;
   111            end;
   112         if a = High(TAmmoType) then a:= Low(TAmmoType)
   112         if a = High(TAmmoType) then a:= Low(TAmmoType)
   113                                else inc(a)
   113                                else inc(a)
   114        until (a = aa) or
   114        until (a = aa) or
   115              (CurrentHedgehog^.AttacksNum > 0) or
   115              (CurrentHedgehog^.MultiShootAttacks > 0) or // shooting same weapon
   116              StopThinking
   116              StopThinking
   117        end
   117        end
   118 end;
   118 end;
   119 
   119 
   120 procedure Walk(Me: PGear);
   120 procedure Walk(Me: PGear);