equal
deleted
inserted
replaced
979 // should we allow this when there is no current hedgehog? might do some odd(er) things to turn sequence. |
979 // should we allow this when there is no current hedgehog? might do some odd(er) things to turn sequence. |
980 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) and (CurrentHedgehog <> nil) then |
980 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) and (CurrentHedgehog <> nil) then |
981 begin |
981 begin |
982 prevgear := CurrentHedgehog^.Gear; |
982 prevgear := CurrentHedgehog^.Gear; |
983 prevgear^.Active := false; |
983 prevgear^.Active := false; |
984 prevgear^.State:= prevgear^.State and not gstHHDriven; |
984 prevgear^.State:= prevgear^.State and (not gstHHDriven); |
985 prevgear^.Z := cHHZ; |
985 prevgear^.Z := cHHZ; |
986 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList; |
986 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList; |
987 |
987 |
988 SwitchCurrentHedgehog(gear^.Hedgehog); |
988 SwitchCurrentHedgehog(gear^.Hedgehog); |
989 CurrentTeam:= CurrentHedgehog^.Team; |
989 CurrentTeam:= CurrentHedgehog^.Team; |