equal
deleted
inserted
replaced
2884 forward; |
2884 forward; |
2885 |
2885 |
2886 procedure doStepDrillDrilling(Gear: PGear); |
2886 procedure doStepDrillDrilling(Gear: PGear); |
2887 var |
2887 var |
2888 t: PGearArray; |
2888 t: PGearArray; |
2889 ox, oy: hwFloat; |
|
2890 tempColl: Word; |
2889 tempColl: Word; |
2891 begin |
2890 begin |
2892 AllInactive := false; |
2891 AllInactive := false; |
|
2892 |
2893 |
2893 |
2894 if (Gear^.Timer > 0) and ((Gear^.Timer mod 10) = 0) then |
2894 if (Gear^.Timer > 0) and ((Gear^.Timer mod 10) = 0) then |
2895 begin |
2895 begin |
2896 ox := Gear^.X; |
2896 DrawTunnel(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 2, 6); |
2897 oy := Gear^.Y; |
|
2898 Gear^.X := Gear^.X + Gear^.dX; |
2897 Gear^.X := Gear^.X + Gear^.dX; |
2899 Gear^.Y := Gear^.Y + Gear^.dY; |
2898 Gear^.Y := Gear^.Y + Gear^.dY; |
2900 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6); |
|
2901 if (Gear^.Timer mod 30) = 0 then |
2899 if (Gear^.Timer mod 30) = 0 then |
2902 AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust); |
2900 AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust); |
2903 if (CheckGearDrowning(Gear)) then |
2901 if (CheckGearDrowning(Gear)) then |
2904 begin |
2902 begin |
2905 StopSoundChan(Gear^.SoundChannel); |
2903 StopSoundChan(Gear^.SoundChannel); |