Stationeers - Harvie 3x

#= Harvie 3x = v 0.1 ================= by swagman =#
#    _  _              _       ____                #
#   | || |__ _ _ ___ _(_)___  |__ /_ __            #
#   | __ / _` | '_\ V / / -_)  |_ \ \ /            #
#   |_||_\__,_|_|  \_/|_\___| |___/_\_\            #
#==================================================#
# 3x Harvie and Grow lighting automation           #
#= 2022.10.15 02:56  https://youtu.be/5cvjQPGKaqc =#
define SolarSens 1076425094
define GrowLight -1758710260
alias Hrv1 d0
alias Hrv2 d1
alias Hrv3 d2
alias Pon1 d3
alias Pon2 d4
alias Pon3 d5
loop:
yield
lb r0 SolarSens Activate 0
brne r0 r0 3
xor r0 r0 1
sb GrowLight On r0
move sp 5
do:
brdns dr16 3
ls r0 dr16 0 Mature
ls r1 dr16 0 Seeding
sub sp sp 3
brdns dr16 6
brgez r0 3
ls r2 dr16 0 Occupied
s dr16 Plant r2
select r0 r0 r0 r1
s dr16 Harvest r0
add sp sp 2
bge sp 3 do
j loop
#.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.   \-(o)-(o)-/