equal
deleted
inserted
replaced
3477 end |
3477 end |
3478 else if (Gear^.State and gstCollision) <> 0 then |
3478 else if (Gear^.State and gstCollision) <> 0 then |
3479 begin |
3479 begin |
3480 r0 := GetRandom(21); |
3480 r0 := GetRandom(21); |
3481 r1 := GetRandom(21); |
3481 r1 := GetRandom(21); |
|
3482 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0); |
|
3483 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0); |
3482 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
3484 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
3483 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, |
|
3484 EXPLAutoSound); |
|
3485 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, |
|
3486 EXPLAutoSound); |
|
3487 Gear^.dY := -_1; |
3485 Gear^.dY := -_1; |
3488 Gear^.Pos := Gear^.Pos + 1; |
3486 Gear^.Pos := Gear^.Pos + 1; |
3489 end |
3487 end |
3490 else |
3488 else |
3491 Gear^.dY := Gear^.dY + cGravity * 2; |
3489 Gear^.dY := Gear^.dY + cGravity * 2; |