equal
deleted
inserted
replaced
69 |
69 |
70 for i:= 0 to Pred(Targets.Count) do |
70 for i:= 0 to Pred(Targets.Count) do |
71 if (Targets.ar[i].Score >= 0) and (not StopThinking) then |
71 if (Targets.ar[i].Score >= 0) and (not StopThinking) then |
72 begin |
72 begin |
73 with CurrentHedgehog^ do |
73 with CurrentHedgehog^ do |
74 a:= Ammo^[CurSlot, CurAmmo].AmmoType; |
74 a:= CurAmmoType; |
75 aa:= a; |
75 aa:= a; |
76 repeat |
76 repeat |
77 if (CanUseAmmo[a]) and |
77 if (CanUseAmmo[a]) and |
78 ((not isMoved) or ((AmmoTests[a].flags and amtest_OnTurn) = 0)) then |
78 ((not isMoved) or ((AmmoTests[a].flags and amtest_OnTurn) = 0)) then |
79 begin |
79 begin |