hedgewars/uGearsUtils.pas
changeset 12925 21827fc9ca98
parent 12903 8a40ce061d94
child 12942 a84a05719454
equal deleted inserted replaced
12924:0f02dd1ff4c9 12925:21827fc9ca98
  1190     3. Hog is a king
  1190     3. Hog is a king
  1191 *)
  1191 *)
  1192     usable:= true;
  1192     usable:= true;
  1193     HH:= HHGear^.Hedgehog;
  1193     HH:= HHGear^.Hedgehog;
  1194     if HHGear <> nil then
  1194     if HHGear <> nil then
  1195     if (HHGear = nil) or (HH^.King) or (SuddenDeathDmg) then
  1195     if (HHGear = nil) or (HH^.King) or (SuddenDeathActive) then
  1196         usable:= false;
  1196         usable:= false;
  1197     cnt:= 0;
  1197     cnt:= 0;
  1198     for j:= 0 to Pred(HH^.Team^.Clan^.TeamsNumber) do
  1198     for j:= 0 to Pred(HH^.Team^.Clan^.TeamsNumber) do
  1199         for i:= 0 to Pred(HH^.Team^.Clan^.Teams[j]^.HedgehogsNumber) do
  1199         for i:= 0 to Pred(HH^.Team^.Clan^.Teams[j]^.HedgehogsNumber) do
  1200             if (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear <> nil)
  1200             if (HH^.Team^.Clan^.Teams[j]^.Hedgehogs[i].Gear <> nil)