5746 begin

  5746 begin

  5747 HH:= Gear^.Hedgehog;

  5747 HH:= Gear^.Hedgehog;

  5748 if Gear^.Pos = 2 then

  5748 if Gear^.Pos = 2 then

  5749     begin

  5749     begin

  5750     StopSoundChan(Gear^.SoundChannel);

  5750     StopSoundChan(Gear^.SoundChannel);

  5751     if (Gear^.Timer = 0) then

  5752     if (Gear^.Timer = 0) then

  5752         begin

  5753         begin

  5753         if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then

  5754         if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then

  5754             begin

  5755             begin

  5755             AfterAttack;

  5756             AfterAttack;

  5794 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then

  5795 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then

  5795     Gear^.Pos:= 2;

  5796     Gear^.Pos:= 2;

  5796 if (Gear^.Pos = 3) and (Gear^.Power = 0) then

  5797 if (Gear^.Pos = 3) and (Gear^.Power = 0) then

  5797     begin

  5798     begin

  5798     StopSoundChan(Gear^.SoundChannel);

  5799     StopSoundChan(Gear^.SoundChannel);

  5799     if HH^.GearHidden = nil then

  5801     if HH^.GearHidden = nil then

  5800         begin

  5802         begin

  5801         DeleteGear(Gear);

  5803         DeleteGear(Gear);

  5802         exit

  5804         exit

  5803         end;

  5805         end;