equal
deleted
inserted
replaced
4509 |
4509 |
4510 if (*((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or*) (Gear^.Pos = 5) then |
4510 if (*((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or*) (Gear^.Pos = 5) then |
4511 begin |
4511 begin |
4512 Gear^.dY := Gear^.dY + cGravity * 2; |
4512 Gear^.dY := Gear^.dY + cGravity * 2; |
4513 Gear^.Y := Gear^.Y + Gear^.dY; |
4513 Gear^.Y := Gear^.Y + Gear^.dY; |
4514 CheckGearDrowning(Gear); |
4514 if CheckGearDrowning(Gear) then |
4515 if (Gear^.State and gstDrowning) <> 0 then |
4515 begin |
4516 begin |
4516 Gear^.Y:= Gear^.Y + _50; |
4517 OnUsedAmmo(CurrentHedgehog^); |
4517 OnUsedAmmo(CurrentHedgehog^); |
4518 if CurrentHedgehog^.Gear <> nil then |
4518 if CurrentHedgehog^.Gear <> nil then |
4519 begin |
4519 begin |
4520 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4520 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4521 CurrentHedgehog^.Gear^.Active := true; |
4521 CurrentHedgehog^.Gear^.Active := true; |
4534 odY:= Gear^.dY; |
4534 odY:= Gear^.dY; |
4535 doStepFallingGear(Gear); |
4535 doStepFallingGear(Gear); |
4536 |
4536 |
4537 if (Gear^.State and gstDrowning) <> 0 then |
4537 if (Gear^.State and gstDrowning) <> 0 then |
4538 begin |
4538 begin |
|
4539 Gear^.Y:= Gear^.Y + _50; |
4539 OnUsedAmmo(CurrentHedgehog^); |
4540 OnUsedAmmo(CurrentHedgehog^); |
4540 if CurrentHedgehog^.Gear <> nil then |
4541 if CurrentHedgehog^.Gear <> nil then |
4541 begin |
4542 begin |
4542 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4543 // Drown the hedgehog. Could also just delete it, but hey, this gets a caption |
4543 CurrentHedgehog^.Gear^.Active := true; |
4544 CurrentHedgehog^.Gear^.Active := true; |