equal
deleted
inserted
replaced
3914 begin |
3914 begin |
3915 Gear^.Timer := 0; |
3915 Gear^.Timer := 0; |
3916 inc(Gear^.Pos); |
3916 inc(Gear^.Pos); |
3917 if Gear^.Pos = 5 then |
3917 if Gear^.Pos = 5 then |
3918 PlaySound(sndYoohoo); |
3918 PlaySound(sndYoohoo); |
|
3919 if Gear^.Pos = 14 then |
|
3920 PlaySound(sndKiss); |
3919 end; |
3921 end; |
3920 |
3922 |
3921 |
3923 |
3922 // note: use GameTicks, not RealTicks, otherwise amount can vary greatly |
3924 // note: use GameTicks, not RealTicks, otherwise amount can vary greatly |
3923 if (Gear^.Pos = 14) and (GameTicks and $1 = 0) then |
3925 if (Gear^.Pos = 14) and (GameTicks and $1 = 0) then |