equal
deleted
inserted
replaced
3239 // CheckGearDrowning(Gear); // already checked for in doStepFallingGear |
3239 // CheckGearDrowning(Gear); // already checked for in doStepFallingGear |
3240 CalcRotationDirAngle(Gear); |
3240 CalcRotationDirAngle(Gear); |
3241 |
3241 |
3242 if (Gear^.State and gstCollision) <> 0 then |
3242 if (Gear^.State and gstCollision) <> 0 then |
3243 begin |
3243 begin |
3244 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 11, EXPLPoisoned, $C000FFC0); |
3244 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 11, EXPLPoisoned, $C0E0FFE0); |
3245 PlaySound(sndEggBreak); |
3245 PlaySound(sndEggBreak); |
3246 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3246 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3247 vg := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3247 vg := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3248 if vg <> nil then vg^.Frame := 2; |
3248 if vg <> nil then vg^.Frame := 2; |
3249 |
3249 |