equal
deleted
inserted
replaced
541 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
541 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
542 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
542 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
543 Gear^.doStep:= @doStepBigExplosionWork; |
543 Gear^.doStep:= @doStepBigExplosionWork; |
544 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
544 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
545 end; |
545 end; |
|
546 |
|
547 procedure doStepChunk(Gear: PVisualGear; Steps: Longword); |
|
548 begin |
|
549 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
550 |
|
551 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
|
552 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
|
553 |
|
554 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle; |
|
555 |
|
556 if round(Gear^.Y) > cWaterLine then |
|
557 begin |
|
558 DeleteVisualGear(Gear); |
|
559 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
|
560 end |
|
561 end; |