equal
deleted
inserted
replaced
942 end; |
942 end; |
943 CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked; |
943 CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked; |
944 end; |
944 end; |
945 if delay2 = 0 then |
945 if delay2 = 0 then |
946 begin |
946 begin |
947 if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0) then SweepDirty; |
947 if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0) and (CurAmmoGear = nil) then SweepDirty; |
948 CheckNoDamage; |
948 CheckNoDamage; |
949 AliveCount:= 0; // shorter version of check for win to allow typical step activity to proceed |
949 AliveCount:= 0; // shorter version of check for win to allow typical step activity to proceed |
950 for i:= 0 to Pred(ClansCount) do |
950 for i:= 0 to Pred(ClansCount) do |
951 if ClansArray[i]^.ClanHealth > 0 then inc(AliveCount); |
951 if ClansArray[i]^.ClanHealth > 0 then inc(AliveCount); |
952 if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then |
952 if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then |