equal
deleted
inserted
replaced
4168 end; |
4168 end; |
4169 |
4169 |
4170 Gear^.X:= Gear^.X+Gear^.dX*4; |
4170 Gear^.X:= Gear^.X+Gear^.dX*4; |
4171 Gear^.Y:= Gear^.Y+Gear^.dY*4; |
4171 Gear^.Y:= Gear^.Y+Gear^.dY*4; |
4172 Gear^.SoundChannel := LoopSound(sndDrillRocket); |
4172 Gear^.SoundChannel := LoopSound(sndDrillRocket); |
|
4173 Gear^.Pos:= 1; |
4173 Gear^.doStep := @doStepDrillDrilling; |
4174 Gear^.doStep := @doStepDrillDrilling; |
4174 |
4175 |
4175 if (Gear^.State and gsttmpFlag) <> 0 then |
4176 if (Gear^.State and gsttmpFlag) <> 0 then |
4176 gear^.RenderTimer:= true; |
4177 gear^.RenderTimer:= true; |
4177 if Gear^.Timer > 0 then dec(Gear^.Timer) |
4178 if Gear^.Timer > 0 then dec(Gear^.Timer) |