SHARE
TWEET

Untitled

a guest Aug 23rd, 2019 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //GLOBALS
  2. SET WAITS TO 0.
  3. SET LASTTIME TO TIME:SECONDS.
  4.  
  5. //SETTINGS
  6. SET TGH TO 75.
  7. SET LS TO 2.
  8.  
  9. CLEARSCREEN.
  10. SAS OFF.
  11. SET HD TO HEADING(0,0):Vector.
  12. SET M TO 1.
  13. lock steering to lookdirup(((-(VELOCITY:SURFACE*(10000/SQRT(VELOCITY:SURFACE*VELOCITY:SURFACE))*0.3)+((SHIP:UP:VECTOR*(10000/SQRT(SHIP:UP:VECTOR*SHIP:UP:VECTOR)))*20))+((HD*(10000/SQRT(HD*HD)))*M)), ship:facing:topvector).
  14. UNTIL AG10
  15. {
  16.     SET HD TO HEADING(0,0):Vector.
  17.     SET SPD TO ((ALT:RADAR-TGH)*(BODY:MU/BODY:RADIUS^2)*2)/100.
  18.     IF SPD < -(BODY:MU/BODY:RADIUS^2)*2 SET SPD TO -(BODY:MU/BODY:RADIUS^2)*2.
  19.     IF SPD > (BODY:MU/BODY:RADIUS^2) SET SPD TO (BODY:MU/BODY:RADIUS^2).
  20.     SET TWR TO SHIP:MAXTHRUST/SHIP:MASS/(BODY:MU/BODY:RADIUS^2).
  21.     SET THR TO 1/TWR+((-SHIP:VERTICALSPEED-SPD)/20)/TWR*(BODY:MU/BODY:RADIUS^2).
  22.     SET TP TO 1/THR.
  23.     IF TP<1 SET TP TO 1.
  24.     IF TP>5 SET TP TO 5.
  25.     SET M TO TWR*TP*3*(ALT:RADAR/TGH).
  26.     IF THR<0.2 SET THR TO 0.2.
  27.     SET THROTTLE TO THR.
  28.     PRINT SPD+"     " AT(0,0).
  29.     WAIT 0.
  30. }
  31. SET MUL TO (15-LS)/2/(ALT:RADAR-5).
  32. lock steering to lookdirup( ((-(VELOCITY:SURFACE*(10000/SQRT(VELOCITY:SURFACE*VELOCITY:SURFACE)))*SQRT(SHIP:VERTICALSPEED*SHIP:VERTICALSPEED))+((SHIP:UP:VECTOR*(10000/SQRT(SHIP:UP:VECTOR*SHIP:UP:VECTOR)))*5)), ship:facing:topvector ).
  33. UNTIL SHIP:AIRSPEED<LS/2
  34. {
  35.     SET SPD TO LS+((ALT:RADAR-5)*MUL).
  36.     IF SPD < LS SET SPD TO LS.
  37.     SET TWR TO SHIP:MAXTHRUST/SHIP:MASS/(BODY:MU/BODY:RADIUS^2).
  38.     SET THR TO 1/TWR+(((-SHIP:VERTICALSPEED/2+SHIP:AIRSPEED/2)-SPD)/50)/TWR*(BODY:MU/BODY:RADIUS^2).
  39.     IF THR<0.8/TWR SET THR TO 0.8/TWR.
  40.     SET THROTTLE TO THR.
  41.     WAIT 0.
  42. }
  43. SET THROTTLE TO 0.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top