equal
deleted
inserted
replaced
4795 Gear^.Y:= Gear^.Y + Gear^.dY; |
4795 Gear^.Y:= Gear^.Y + Gear^.dY; |
4796 Gear^.dX := Gear^.dX + cWindSpeed / 4; |
4796 Gear^.dX := Gear^.dX + cWindSpeed / 4; |
4797 Gear^.dY := Gear^.dY + cGravity / 100; |
4797 Gear^.dY := Gear^.dY + cGravity / 100; |
4798 if (GameTicks and $FF) = 0 then |
4798 if (GameTicks and $FF) = 0 then |
4799 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx or EXPLNoDamage or EXPLDoNotTouchAny or EXPLPoisoned); |
4799 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx or EXPLNoDamage or EXPLDoNotTouchAny or EXPLPoisoned); |
4800 AllInactive:= false; |
4800 if Gear^.State and gstTmpFlag = 0 then |
|
4801 AllInactive:= false; |
4801 end; |
4802 end; |
4802 |
4803 |
4803 //////////////////////////////////////////////////////////////////////////////// |
4804 //////////////////////////////////////////////////////////////////////////////// |
4804 procedure doStepHammer(Gear: PGear); |
4805 procedure doStepHammer(Gear: PGear); |
4805 var HHGear, tmp, tmp2: PGear; |
4806 var HHGear, tmp, tmp2: PGear; |