equal
deleted
inserted
replaced
3401 // CheckGearDrowning(Gear); // already checked for in doStepFallingGear |
3401 // CheckGearDrowning(Gear); // already checked for in doStepFallingGear |
3402 CalcRotationDirAngle(Gear); |
3402 CalcRotationDirAngle(Gear); |
3403 |
3403 |
3404 if (Gear^.State and gstCollision) <> 0 then |
3404 if (Gear^.State and gstCollision) <> 0 then |
3405 begin |
3405 begin |
3406 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 11, EXPLPoisoned, $C0E0FFE0); |
3406 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 10, EXPLPoisoned, $C0E0FFE0); |
3407 PlaySound(sndEggBreak); |
3407 PlaySound(sndEggBreak); |
3408 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3408 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3409 vg := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3409 vg := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg); |
3410 if vg <> nil then vg^.Frame := 2; |
3410 if vg <> nil then vg^.Frame := 2; |
3411 |
3411 |