anna/kOS
1
0
Fork 0
Code Pull requests Releases Activity Actions

Move main program files to 'prog', add support for CLI-based interfaces (no boot file).

Browse source
This commit is contained in:
Anna Rose Wiggins 2021-08-04 18:41:13 -04:00
parent c0d61d132b
commit 20da3947d9
5 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

43
init/helicopter.ks
View file

@ -1,43 +0,0 @@
// 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/stabilize_helicopter").
global done is false.
on AG9 {
set done to true.
return true.
}
clearguis().
// Main UI.
local interface is gui(250, 300).
set interface:X to 200.
set interface:Y to 700.
// Main menu elements in here.
local y is interface:AddVLayout().
local x is y:AddHLayout().
set x:AddButton("HOVER"):onClick to {
Hover().
}.
set x:AddButton("LAND"):onClick to {
// 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.
}
Hover(-5).
}.
interface:show().
wait until false.