equal
deleted
inserted
replaced
2903 |
2903 |
2904 //////////////////////////////////////////////////////////////////////////////// |
2904 //////////////////////////////////////////////////////////////////////////////// |
2905 procedure doStepEggWork(Gear: PGear); |
2905 procedure doStepEggWork(Gear: PGear); |
2906 begin |
2906 begin |
2907 AllInactive:= false; |
2907 AllInactive:= false; |
2908 Gear^.dX:= Gear^.dX + cWindSpeed; |
2908 Gear^.dX:= Gear^.dX; |
2909 doStepFallingGear(Gear); |
2909 doStepFallingGear(Gear); |
2910 if (Gear^.State and gstCollision) <> 0 then |
2910 if (Gear^.State and gstCollision) <> 0 then |
2911 begin |
2911 begin |
2912 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound + EXPLPoisoned); |
2912 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound + EXPLPoisoned); |
2913 DeleteGear(Gear); |
2913 DeleteGear(Gear); |