equal
deleted
inserted
replaced
6422 Gear^.dY:= -Gear^.dX; |
6422 Gear^.dY:= -Gear^.dX; |
6423 Gear^.dX:= _0; |
6423 Gear^.dX:= _0; |
6424 end; |
6424 end; |
6425 end; |
6425 end; |
6426 |
6426 |
|
6427 if Gear^.Pos <> 0 then |
|
6428 // Manual collision check required because we don't use onStepFallingGear in this case |
|
6429 CheckCollision(Gear); |
6427 // Explode duck |
6430 // Explode duck |
6428 CheckCollision(Gear); |
|
6429 if (Gear^.Timer = 0) or ((Gear^.State and gstCollision) <> 0) then |
6431 if (Gear^.Timer = 0) or ((Gear^.State and gstCollision) <> 0) then |
6430 begin |
6432 begin |
6431 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
6433 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
6432 PlaySound(sndDuckDie); |
6434 PlaySound(sndDuckDie); |
6433 DeleteGear(Gear); |
6435 DeleteGear(Gear); |