equal
deleted
inserted
replaced
496 end; |
496 end; |
497 end; |
497 end; |
498 |
498 |
499 procedure doStepExplosion(Gear: PVisualGear; Steps: Longword); |
499 procedure doStepExplosion(Gear: PVisualGear; Steps: Longword); |
500 var i: LongWord; |
500 var i: LongWord; |
501 begin |
501 gX,gY: LongInt; |
502 |
502 begin |
503 for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire); |
503 gX:= hwRound(Gear^.X); |
504 for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart); |
504 gY:= hwRound(Gear^.Y); |
505 for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2); |
505 for i:= 0 to 31 do AddVisualGear(gX, gY, vgtFire); |
|
506 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart); |
|
507 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart2); |
506 Gear^.doStep:= @doStepExplosionWork; |
508 Gear^.doStep:= @doStepExplosionWork; |
507 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
509 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
508 end; |
510 end; |
509 |
511 |
510 |
512 |