kOS/venus_entry.ks at master · SimonTheChain/kOS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
//kOS Script: Venus Entry
//Author: Simon Lachaîne

DECLARE PARAMETER NeedStaging.

CLEARSCREEN.
LOCK ShipAlt TO SHIP:ALTITUDE.
LOCK ShipPeri TO SHIP:PERIAPSIS.
PRINT "Venus entry program started".
SAS OFF.
RCS ON.

WHEN ShipAlt <= 150000 THEN {
    PRINT "Entry interface reached".
}.

IF NeedStaging = "True" {
    STAGE.

    UNTIL STAGE:READY {
        WAIT 0.001.
    }.
}

PRINT "Aligning ship for retroburn".
LOCK Dir TO SHIP:RETROGRADE.
LOCK STEERING TO Dir.

UNTIL VANG(Dir, SHIP:FACING:VECTOR) < 0.5 {
    WAIT 0.001.
}.

PRINT "Engine ignition".
LOCK THROTTLE TO 1.0.

UNTIL ShipPeri <= 40000 {
    WAIT 0.001.
}.

PRINT "Engine shutdown".
LOCK THROTTLE TO 0.

PRINT "Staging".
LOCK Dir TO SHIP:PROGRADE.

UNTIL VANG(Dir, SHIP:FACING:VECTOR) < 1 {
    WAIT 0.001.
}.

STAGE.

UNTIL STAGE:READY {
    WAIT 0.001.
}.

PRINT "Aligning ship for entry interface".
LOCK Dir TO SHIP:RETROGRADE.

UNTIL ShipAlt <= 10000 {
	WAIT 0.001.
}.

PRINT "Arming Parachutes".
STAGE.

UNTIL STAGE:READY {
    WAIT 0.001.
}.

WAIT UNTIL SHIP:STATUS = "LANDED" OR SHIP:STATUS = "SPLASHED".
PANELS ON.
UNLOCK STEERING.
RCS OFF.
SET SHIP:CONTROL:NEUTRALIZE to True.
PRINT "Venus entry program completed.".