Automatic control of wheel friction to prevent spinouts at high speeds on takeoff/landing

frictionCtrl.ks

set tailwheel to ship:partstagged("tail")[0]:getmodule("modulewheelbase").
set mainwheels to ship:partstagged("main").
set state to "speedup".

until false {
  if state = "speedup" and ship:velocity:surface:mag >= 25 {
    set state to "slowdown".
    tailwheel:setfield("friction control", 0).
    mainwheels[0]:getmodule("kspwheelbase"):setfield("friction multiplier", 0).
    mainwheels[1]:getmodule("kspwheelbase"):setfield("friction multiplier", 0).
  }
  if state = "slowdown" and ship:velocity:surface:mag <= 25 {
    set state to "speedup".
    tailwheel:setfield("friction control", 1).
    mainwheels[0]:getmodule("kspwheelbase"):setfield("friction multiplier", 1).
    mainwheels[1]:getmodule("kspwheelbase"):setfield("friction multiplier", 1).
  }
  wait 0.01.
}