equal
deleted
inserted
replaced
794 end; |
794 end; |
795 |
795 |
796 procedure doStepExplosion(Gear: PGear); |
796 procedure doStepExplosion(Gear: PGear); |
797 var i: LongWord; |
797 var i: LongWord; |
798 begin |
798 begin |
799 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire); |
799 for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire); |
800 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart); |
800 for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart); |
|
801 for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2); |
801 Gear^.doStep:= @doStepExplosionWork |
802 Gear^.doStep:= @doStepExplosionWork |
802 end; |
803 end; |
803 |
804 |
804 //////////////////////////////////////////////////////////////////////////////// |
805 //////////////////////////////////////////////////////////////////////////////// |
805 procedure doStepMine(Gear: PGear); |
806 procedure doStepMine(Gear: PGear); |