equal
deleted
inserted
replaced
582 for i:= 0 to 46 do AddVisualGear(gX, gY, vgtFire); |
582 for i:= 0 to 46 do AddVisualGear(gX, gY, vgtFire); |
583 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
583 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
584 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
584 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
585 Gear^.doStep:= @doStepBigExplosionWork; |
585 Gear^.doStep:= @doStepBigExplosionWork; |
586 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
586 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
|
587 performRumble(); |
587 end; |
588 end; |
588 |
589 |
589 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
590 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
590 begin |
591 begin |
591 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
592 Gear^.X:= Gear^.X + Gear^.dX * Steps; |