equal
deleted
inserted
replaced
564 gX:= round(Gear^.X); |
564 gX:= round(Gear^.X); |
565 gY:= round(Gear^.Y); |
565 gY:= round(Gear^.Y); |
566 for i:= 0 to 31 do |
566 for i:= 0 to 31 do |
567 begin |
567 begin |
568 vg:= AddVisualGear(gX, gY, vgtFire); |
568 vg:= AddVisualGear(gX, gY, vgtFire); |
569 if vg <> nil then vg^.State:= 1; |
569 if vg <> nil then |
|
570 begin |
|
571 vg^.State:= gstTmpFlag; |
|
572 inc(vg^.FrameTicks, vg^.FrameTicks) |
|
573 end |
570 end; |
574 end; |
571 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart); |
575 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart); |
572 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart2); |
576 for i:= 0 to 8 do AddVisualGear(gX, gY, vgtExplPart2); |
573 Gear^.doStep:= @doStepExplosionWork; |
577 Gear^.doStep:= @doStepExplosionWork; |
574 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
578 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
602 gY:= round(Gear^.Y); |
606 gY:= round(Gear^.Y); |
603 AddVisualGear(gX, gY, vgtSmokeRing); |
607 AddVisualGear(gX, gY, vgtSmokeRing); |
604 for i:= 0 to 46 do |
608 for i:= 0 to 46 do |
605 begin |
609 begin |
606 vg:= AddVisualGear(gX, gY, vgtFire); |
610 vg:= AddVisualGear(gX, gY, vgtFire); |
607 if vg <> nil then vg^.State:= 1; |
611 if vg <> nil then |
|
612 begin |
|
613 vg^.State:= gstTmpFlag; |
|
614 inc(vg^.FrameTicks, vg^.FrameTicks) |
|
615 end |
608 end; |
616 end; |
609 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
617 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart); |
610 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
618 for i:= 0 to 15 do AddVisualGear(gX, gY, vgtExplPart2); |
611 Gear^.doStep:= @doStepBigExplosionWork; |
619 Gear^.doStep:= @doStepBigExplosionWork; |
612 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |
620 if Steps > 1 then Gear^.doStep(Gear, Steps-1); |