@name basic propulsion
@inputs Pod:wirelink [Chasis Wheel]:entity

interval(1)

Dir=Pod["S",number]-Pod["W",number]
Shift = Pod["Shift",number]
Space = Pod["Space",number]
Force=5
if(Chasis:vel():length()<100){
    Force=(-abs(Wheel:angVel()[2])+3500)*Dir
}else{
    Force=Dir*250
}
Wheel:applyAngForce(ang(0,Force*100*(1+(0.75*Shift)),0))

if (Shift & Dir) {
    Wheel:applyAngForce(ang(0,Force*300*(1+(0.75*Shift)),0))
}
if (Space) {
    Wheel:propFreeze(1)
} else {
    Wheel:propFreeze(0)
}
