annabunches/kOS
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improve landing code.

Browse Source
This commit is contained in:
Anna Rose 2021-07-25 18:16:59 -04:00
parent 6d9b8fc554
commit 448eebdbd9
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
helicopter/init.ks
View File

@ -1,3 +1,8 @@
// assumptions about helicopter builds:
// * AG10 toggles the rotor engine power. (with appropriate RPM set by default)
// * AG9 is unmapped.
// * Main throttle controls collective.
runoncepath("lib/control"). runoncepath("lib/control").
global done is false. global done is false.
@ -16,7 +21,15 @@ set x:AddButton("HOVER"):onClick to {
}. }.
set x:AddButton("LAND"):onClick to { set x:AddButton("LAND"):onClick to {
Stabilize(-2). // todo: consider a more elaborate landing script that adjusts
// velocity as a function of altitude.
when SHIP:STATUS = "LANDED" then {
set done to true.
set SHIP:CONTROL:PILOTMAINTHROTTLE to 0.5.
toggle AG10.
BRAKES on.
}
Stabilize(-5).
}. }.