equal
deleted
inserted
replaced
3545 5: PlaySound(sndPiano5); |
3545 5: PlaySound(sndPiano5); |
3546 6: PlaySound(sndPiano6); |
3546 6: PlaySound(sndPiano6); |
3547 7: PlaySound(sndPiano7); |
3547 7: PlaySound(sndPiano7); |
3548 else PlaySound(sndPiano8); |
3548 else PlaySound(sndPiano8); |
3549 end; |
3549 end; |
|
3550 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
3550 CurrentHedgehog^.Gear^.MsgParam := 0; |
3551 CurrentHedgehog^.Gear^.MsgParam := 0; |
3551 CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gm_Slot; |
3552 CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gm_Slot; |
3552 end; |
3553 end; |
3553 |
3554 |
3554 if ((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or (Gear^.Pos = 20) then |
3555 if ((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or (Gear^.Pos = 20) then |
3591 r0 := GetRandom(21); |
3592 r0 := GetRandom(21); |
3592 r1 := GetRandom(21); |
3593 r1 := GetRandom(21); |
3593 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0); |
3594 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0); |
3594 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0); |
3595 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0); |
3595 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
3596 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
|
3597 for r0:= 0 to 10 do |
|
3598 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
3596 Gear^.dY := -_1; |
3599 Gear^.dY := -_1; |
3597 Gear^.Pos := Gear^.Pos + 1; |
3600 Gear^.Pos := Gear^.Pos + 1; |
3598 end |
3601 end |
3599 else |
3602 else |
3600 Gear^.dY := Gear^.dY + cGravity * 2; |
3603 Gear^.dY := Gear^.dY + cGravity * 2; |