Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 5744 746de1d303d2
parent 5708 8972de340fa1
child 5806 6778f0a7d896
equal deleted inserted replaced
5743:d4c12b7c7bb9 5744:746de1d303d2 
   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
hedgewars