equal
deleted
inserted
replaced
1736 AllInactive:= false; |
1736 AllInactive:= false; |
1737 inc(Gear^.Timer); |
1737 inc(Gear^.Timer); |
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 if Gear^.Pos = 5 then |
1743 |
1743 PlaySound(sndYoohoo, false) |
1744 if Gear^.Pos = 5 then |
1744 end; |
1745 PlaySound(sndYoohoo, false); |
1745 |
1746 if Gear^.Pos = 14 then |
1746 if Gear^.Pos = 14 then |
1747 Gear^.doStep:= @doStepSeductionWork |
1747 Gear^.doStep:= @doStepSeductionWork |
1748 end; |
1748 end; |
1749 |
1749 |
1750 procedure doStepSeduction(Gear: PGear); |
1750 procedure doStepSeduction(Gear: PGear); |