equal
deleted
inserted
replaced
4401 var |
4401 var |
4402 r0, r1: LongInt; |
4402 r0, r1: LongInt; |
4403 odY: hwFloat; |
4403 odY: hwFloat; |
4404 begin |
4404 begin |
4405 AllInactive := false; |
4405 AllInactive := false; |
4406 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and ((CurrentHedgehog^.Gear^. |
4406 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and |
4407 Message and gmSlot) <> 0) then |
4407 ((CurrentHedgehog^.Gear^.Message and gmSlot) <> 0) then |
4408 begin |
4408 begin |
4409 case CurrentHedgehog^.Gear^.MsgParam of |
4409 case CurrentHedgehog^.Gear^.MsgParam of |
4410 0: PlaySound(sndPiano0); |
4410 0: PlaySound(sndPiano0); |
4411 1: PlaySound(sndPiano1); |
4411 1: PlaySound(sndPiano1); |
4412 2: PlaySound(sndPiano2); |
4412 2: PlaySound(sndPiano2); |
4413 3: PlaySound(sndPiano3); |
4413 3: PlaySound(sndPiano3); |
4418 else PlaySound(sndPiano8); |
4418 else PlaySound(sndPiano8); |
4419 end; |
4419 end; |
4420 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
4420 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
4421 CurrentHedgehog^.Gear^.MsgParam := 0; |
4421 CurrentHedgehog^.Gear^.MsgParam := 0; |
4422 CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gmSlot; |
4422 CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gmSlot; |
4423 end; |
4423 end; |
4424 |
4424 |
4425 if (*((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or*) (Gear^.Pos = 5) then |
4425 if (*((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or*) (Gear^.Pos = 5) then |
4426 // bounce up to 10 times (3 times on gameflagged solid land) before dropping past landscape |
4426 // bounce up to 10 times (3 times on gameflagged solid land) before dropping past landscape |
4427 begin |
4427 begin |
4428 Gear^.dY := Gear^.dY + cGravity * 2; |
4428 Gear^.dY := Gear^.dY + cGravity * 2; |