equal
deleted
inserted
replaced
1738 if Gear^.Timer > 250 then |
1738 if Gear^.Timer > 250 then |
1739 begin |
1739 begin |
1740 Gear^.Timer:= 0; |
1740 Gear^.Timer:= 0; |
1741 inc(Gear^.Pos) |
1741 inc(Gear^.Pos) |
1742 end; |
1742 end; |
1743 |
1743 |
1744 if Gear^.Pos = 8 then |
1744 if Gear^.Pos = 5 then |
|
1745 PlaySound(sndYoohoo, false); |
|
1746 if Gear^.Pos = 14 then |
1745 Gear^.doStep:= @doStepSeductionWork |
1747 Gear^.doStep:= @doStepSeductionWork |
1746 end; |
1748 end; |
1747 |
1749 |
1748 procedure doStepSeduction(Gear: PGear); |
1750 procedure doStepSeduction(Gear: PGear); |
1749 begin |
1751 begin |