equal
deleted
inserted
replaced
3675 |
3675 |
3676 HHGear := Gear^.Hedgehog^.Gear; |
3676 HHGear := Gear^.Hedgehog^.Gear; |
3677 FollowGear := Gear; |
3677 FollowGear := Gear; |
3678 |
3678 |
3679 if Gear^.Timer > 0 then |
3679 if Gear^.Timer > 0 then |
|
3680 begin |
|
3681 if Gear^.Timer = 1 then |
|
3682 begin |
|
3683 StopSoundChan(Gear^.SoundChannel); |
|
3684 Gear^.SoundChannel:= -1; |
|
3685 end; |
3680 dec(Gear^.Timer); |
3686 dec(Gear^.Timer); |
|
3687 end; |
3681 |
3688 |
3682 fChanged := false; |
3689 fChanged := false; |
3683 if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then |
3690 if (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then |
3684 begin |
3691 begin |
3685 fChanged := true; |
3692 fChanged := true; |