equal
deleted
inserted
replaced
2907 AllInactive:= false; |
2907 AllInactive:= false; |
2908 Gear^.dX:= Gear^.dX + cWindSpeed; |
2908 Gear^.dX:= Gear^.dX + cWindSpeed; |
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), 25, EXPLAutoSound); |
2912 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound + EXPLPoisoned); |
2913 DeleteGear(Gear); |
2913 DeleteGear(Gear); |
2914 exit |
2914 exit |
2915 end; |
2915 end; |
2916 if (GameTicks and $3F) = 0 then |
2916 if (GameTicks and $3F) = 0 then |
2917 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |
2917 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0) |