21 lines
651 B
Plaintext
21 lines
651 B
Plaintext
r=4000 p=99 a=1 :c=0 //turn on+off AAS to update init values
|
|
goto2+:AAS //Non-assigning wait loop
|
|
:C=:AAS*r>(:AL+:AR+:AU+:AD) if:C then:Crus=a :CF=0 end goto(3+:C)*:AAS
|
|
c=:AAS*r>(:AL+:AR+:AU+:AD) :CB=p*c :CF=:FS*(1-c) :ACN=-c goto3+c
|
|
goto1
|
|
//Sets fwd to 0 and bwd to max if a sector is colliding
|
|
//Resets fwd to original value when the obstruction ends.
|
|
|
|
//OLD line 4 for comparison
|
|
if:AAS*r>(:AL+:AR+:AU+:AD)then:CB=p goto4end :CB=0 :CF=:FS goto3
|
|
|
|
//Dependencies
|
|
//NavSuite LeverCenterCenterValue computer controls. :CF, :CB, :FS
|
|
//LeverCenteringSpeed on forward stick set to Crus
|
|
//MoveArrest_Lat system with :ACN chipwait
|
|
|
|
|
|
|
|
|
|
//Original by Thaccus
|