Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #= Hard Suit Automaton = v 1.0 ======= by swagman =#
- # _ _ .Auto Light._ ___ _ _ Filter #
- # | || |__ _ _ _ __| | / __|_ _(_) |_ AirRel #
- # | __ / _` | '_/ _` | \__ \ || | | _| NaviSy #
- # |_||_\__,_|_| \__,_| |___/\_,_|_|\__| Automaton #
- #==================================================#
- # NormalMode: #
- # * Auto light off timer - save battery power #
- # Free first filter slot to enable ExtendedMode: #
- # + Filter control for ultra-long filters life #
- # + AirRel control in hot atmos prevents o2 leak #
- # + NaviSy uses TargetP to show distance to Home #
- # Home - where IC10 was first inserted into suit #
- # switch to normal mode for safe chip removal #
- define AutoLightOff 200 #set time to light off (.5s)
- #==================================================#
- # |-| _\" /-\ |_| "|" () |\/| /-\ "|" () |\| - |_ #
- #= 2021.11.03 11:41 https://youtu.be/4UgGSwNdiHI =#
- alias Suit db
- alias Helm d0
- alias Back d1
- alias debug r13
- alias count r12
- alias lTime r11
- alias s4o r10
- alias LiEn r9
- alias ArEn r8
- alias FiEn r7
- alias PrIn r6
- alias RaOx r5
- alias PrSe r4
- alias PosX r3
- alias PosZ r2
- move lTime AutoLightOff
- l PosX Suit PositionX
- l PosZ Suit PositionZ
- s Suit Error 1 #beep-boop
- #.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-
- loop:
- yield
- ls s4o Suit 4 Occupied
- l LiEn Helm On
- l PrIn Suit Pressure
- l RaOx Suit RatioOxygen
- #---light control section
- mul count count LiEn
- add count count LiEn
- sub r0 lTime count
- brgt r0 4 2
- s Helm On r0
- #---air & filter control section
- mul RaOx RaOx PrIn
- slt ArEn RaOx 20
- slt FiEn RaOx 21
- #---NaviSy section
- l r1 Suit PositionX
- l r0 Suit PositionZ
- sub r1 r1 PosX
- mul r1 r1 r1
- sub r0 r0 PosZ
- mul r0 r0 r0
- add r0 r0 r1
- sqrt r0 r0
- add r0 r0 50 #-don't scare too low value
- select PrSe ArEn 200 r0
- #---select mode & use
- select PrSe s4o 50 PrSe
- select ArEn s4o 1 ArEn
- select FiEn s4o 1 FiEn
- s Suit PressureSetting PrSe
- s Suit AirRelease ArEn
- s Suit Filtration FiEn
- j loop
- #.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-. \-(o)-(o)-/
Add Comment
Please, Sign In to add comment