equal
deleted
inserted
replaced
780 Gear^.X:= Gear^.X + Gear^.dX; |
780 Gear^.X:= Gear^.X + Gear^.dX; |
781 if Gear^.State = 0 then DeleteGear(Gear) |
781 if Gear^.State = 0 then DeleteGear(Gear) |
782 end; |
782 end; |
783 |
783 |
784 //////////////////////////////////////////////////////////////////////////////// |
784 //////////////////////////////////////////////////////////////////////////////// |
785 procedure doStepExplosion(Gear: PGear); |
785 procedure doStepExplosionWork(Gear: PGear); |
786 begin |
786 begin |
787 inc(Gear^.Timer); |
787 inc(Gear^.Timer); |
788 if Gear^.Timer > 75 then |
788 if Gear^.Timer > 75 then |
789 begin |
789 begin |
790 inc(Gear^.State); |
790 inc(Gear^.State); |
791 Gear^.Timer:= 0; |
791 Gear^.Timer:= 0; |
792 if Gear^.State > 5 then DeleteGear(Gear) |
792 if Gear^.State > 5 then DeleteGear(Gear) |
793 end; |
793 end; |
|
794 end; |
|
795 |
|
796 procedure doStepExplosion(Gear: PGear); |
|
797 var i: LongWord; |
|
798 begin |
|
799 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart); |
|
800 Gear^.doStep:= @doStepExplosionWork |
794 end; |
801 end; |
795 |
802 |
796 //////////////////////////////////////////////////////////////////////////////// |
803 //////////////////////////////////////////////////////////////////////////////// |
797 procedure doStepMine(Gear: PGear); |
804 procedure doStepMine(Gear: PGear); |
798 begin |
805 begin |