hedgewars/GSHandlers.inc
changeset 6473 2bed5ba1a7ea
parent 6472 bced12412f94
child 6474 42e9773eedfd
equal deleted inserted replaced
6472:bced12412f94 6473:2bed5ba1a7ea
  4998             if HH^.GearHidden <> nil then RestoreHog(HH);
  4998             if HH^.GearHidden <> nil then RestoreHog(HH);
  4999             Gear^.Pos:= 4;
  4999             Gear^.Pos:= 4;
  5000             end;
  5000             end;
  5001         
  5001         
  5002     if Gear^.Pos = 4 then
  5002     if Gear^.Pos = 4 then
  5003         if ((GameTicks mod 1000) = 0) and ((GameFlags And gfInvulnerable) = 0) then
  5003         if ((GameTicks mod 1000) = 0) and ((GameFlags and gfInvulnerable) = 0) then
  5004             begin
  5004             begin
  5005             t:= GearsList;
  5005             t:= GearsList;
  5006             while t <> nil do
  5006             while t <> nil do
  5007                 begin
  5007                 begin
  5008                 if (t^.Kind = gtHedgehog) and (t^.Hedgehog^.Team^.Clan = HH^.Team^.Clan) then
  5008                 if (t^.Kind = gtHedgehog) and (t^.Hedgehog^.Team^.Clan = HH^.Team^.Clan) then