equal
deleted
inserted
replaced
3367 Gear^.SoundChannel := LoopSound(sndDrillRocket); |
3367 Gear^.SoundChannel := LoopSound(sndDrillRocket); |
3368 Gear^.doStep := @doStepDrillDrilling; |
3368 Gear^.doStep := @doStepDrillDrilling; |
3369 |
3369 |
3370 if (Gear^.State and gsttmpFlag) <> 0 then |
3370 if (Gear^.State and gsttmpFlag) <> 0 then |
3371 gear^.RenderTimer:= true; |
3371 gear^.RenderTimer:= true; |
3372 dec(Gear^.Timer) |
3372 if Gear^.Timer > 0 then dec(Gear^.Timer) |
3373 end |
3373 end |
3374 |
3374 else if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Tag <> 0) then |
3375 else if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Tag <> 0) then |
3375 begin |
3376 begin |
3376 if Gear^.Timer > 0 then dec(Gear^.Timer); |
3377 if Gear^.Timer = 0 then |
3377 if Gear^.Timer = 0 then |
3378 begin |
3378 begin |
3379 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
3379 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound); |
3380 DeleteGear(Gear); |
3380 DeleteGear(Gear); |
3381 end |
3381 end |
3382 else |
3382 end; |
3383 dec(Gear^.Timer); |
|
3384 end; |
|
3385 end; |
3383 end; |
3386 |
3384 |
3387 //////////////////////////////////////////////////////////////////////////////// |
3385 //////////////////////////////////////////////////////////////////////////////// |
3388 procedure doStepBallgunWork(Gear: PGear); |
3386 procedure doStepBallgunWork(Gear: PGear); |
3389 var |
3387 var |