equal
deleted
inserted
replaced
971 prevgear^.Active := false; |
971 prevgear^.Active := false; |
972 prevgear^.State:= prevgear^.State and not gstHHDriven; |
972 prevgear^.State:= prevgear^.State and not gstHHDriven; |
973 prevgear^.Z := cHHZ; |
973 prevgear^.Z := cHHZ; |
974 RemoveGearFromList(prevgear); |
974 RemoveGearFromList(prevgear); |
975 InsertGearToList(prevgear); |
975 InsertGearToList(prevgear); |
976 |
976 |
977 CurrentHedgehog := gear^.Hedgehog; |
977 SwitchCurrentHedgehog(gear^.Hedgehog); |
978 // yes, this will muck up turn sequence |
978 CurrentTeam:= CurrentHedgehog^.Team; |
979 CurrentTeam := gear^.Hedgehog^.Team; |
|
980 |
979 |
981 gear^.State:= gear^.State or gstHHDriven; |
980 gear^.State:= gear^.State or gstHHDriven; |
982 gear^.Active := true; |
981 gear^.Active := true; |
983 gear^.Z := cCurrHHZ; |
982 gear^.Z := cCurrHHZ; |
984 RemoveGearFromList(gear); |
983 RemoveGearFromList(gear); |