equal
deleted
inserted
replaced
1636 prevgear^.Z := cHHZ; |
1636 prevgear^.Z := cHHZ; |
1637 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList; |
1637 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList; |
1638 end; |
1638 end; |
1639 |
1639 |
1640 SwitchCurrentHedgehog(gear^.Hedgehog); |
1640 SwitchCurrentHedgehog(gear^.Hedgehog); |
|
1641 AmmoMenuInvalidated:= true; |
1641 CurrentTeam:= CurrentHedgehog^.Team; |
1642 CurrentTeam:= CurrentHedgehog^.Team; |
|
1643 |
|
1644 repeat |
|
1645 CurrentTeam^.CurrHedgehog := (CurrentTeam^.CurrHedgehog + 1) mod CurrentTeam^.HedgehogsNumber |
|
1646 until |
|
1647 CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear = CurrentHedgehog^.Gear; |
1642 |
1648 |
1643 gear^.State:= gear^.State or gstHHDriven; |
1649 gear^.State:= gear^.State or gstHHDriven; |
1644 gear^.Active := true; |
1650 gear^.Active := true; |
1645 gear^.Z := cCurrHHZ; |
1651 gear^.Z := cCurrHHZ; |
1646 gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList; |
1652 gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList; |