equal
deleted
inserted
replaced
2727 ox := Gear^.X; |
2727 ox := Gear^.X; |
2728 oy := Gear^.Y; |
2728 oy := Gear^.Y; |
2729 Gear^.X := Gear^.X + Gear^.dX; |
2729 Gear^.X := Gear^.X + Gear^.dX; |
2730 Gear^.Y := Gear^.Y + Gear^.dY; |
2730 Gear^.Y := Gear^.Y + Gear^.dY; |
2731 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6); |
2731 DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6); |
|
2732 if (Gear^.Timer mod 30) = 0 then |
|
2733 AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust); |
2732 if (CheckGearDrowning(Gear)) then |
2734 if (CheckGearDrowning(Gear)) then |
2733 begin |
2735 begin |
2734 StopSound(Gear^.SoundChannel); |
2736 StopSound(Gear^.SoundChannel); |
2735 exit |
2737 exit |
2736 end |
2738 end |