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 RemoveGearFromList(prevgear); |
986 prevgear^.Message:= prevgear^.Message or gmRemoveFromList or gmAddToList; |
987 InsertGearToList(prevgear); |
|
988 |
987 |
989 SwitchCurrentHedgehog(gear^.Hedgehog); |
988 SwitchCurrentHedgehog(gear^.Hedgehog); |
990 CurrentTeam:= CurrentHedgehog^.Team; |
989 CurrentTeam:= CurrentHedgehog^.Team; |
991 |
990 |
992 gear^.State:= gear^.State or gstHHDriven; |
991 gear^.State:= gear^.State or gstHHDriven; |
993 gear^.Active := true; |
992 gear^.Active := true; |
994 gear^.Z := cCurrHHZ; |
993 gear^.Z := cCurrHHZ; |
995 RemoveGearFromList(gear); |
994 gear^.Message:= gear^.Message or gmRemoveFromList or gmAddToList; |
996 InsertGearToList(gear); |
|
997 end |
995 end |
998 end; |
996 end; |
999 lc_switchhog:= 0 |
997 lc_switchhog:= 0 |
1000 end; |
998 end; |
1001 |
999 |