hedgewars/GSHandlers.inc
changeset 5971 44b063166bb2
parent 5970 b0ea168b60e1
child 5972 add1cae1add6
equal deleted inserted replaced
5970:b0ea168b60e1 5971:44b063166bb2
  5113         //else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then
  5113         //else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then
  5114         else if (HH^.GearHidden <> nil) then// and (HH^.Gear^.State and gstInvisible <> 0) then
  5114         else if (HH^.GearHidden <> nil) then// and (HH^.Gear^.State and gstInvisible <> 0) then
  5115             RestoreHog(HH)
  5115             RestoreHog(HH)
  5116         end;
  5116         end;
  5117 
  5117 
  5118     if (Gear^.Hedgehog^.Gear^.State and gstHHDeath) = 0 then inc(Gear^.Timer);
  5118     inc(Gear^.Timer);
  5119     if (Gear^.Timer > 2000) and ((GameTicks mod 2000) = 1000) then
  5119     if (Gear^.Timer > 2000) and ((GameTicks mod 2000) = 1000) then
  5120         begin
  5120         begin
  5121         Gear^.SoundChannel := LoopSound(sndTardis);
  5121         Gear^.SoundChannel := LoopSound(sndTardis);
  5122         Gear^.Pos:= 3
  5122         Gear^.Pos:= 3
  5123         end
  5123         end