alias larre d0
alias depositchute d1
alias sensor d2

alias stationidx r15
alias seedstation r10
alias index r9
alias depositstation r8
define tooCold 280
define tooHot 320

start:

get r0 db 0
mul r0 r0 3
add sp r0 2 # reset the stack pointer, because we might have not popped everything
s db Setting 42
move index 0
loop1:

jal clearchute

mul r0 index 3
add r0 r0 1
get stationidx db r0
add r0 r0 1
get seedstation db r0
add r0 r0 1
get depositstation db r0
jal doplant
#s db Setting index

add index index 1
get r0 db 0 # number of hydroponics
blt index r0 loop1
s db Setting index

yield
j start

#
doplant:

ls r0 larre 0 Occupied
blez r0 regular
push ra
s larre Setting depositstation
jal waittillidle
s larre Activate 1
jal waittillidle
jal clearchute
pop ra
j doplant

regular:

s larre Setting stationidx
push ra
jal waittillidle
pop ra

ls r0 larre 255 Occupied
blez r0 plantseed
# something is growing
ls r0 larre 255 Seeding
bltz r0 ra # hasn't grown a seed yet

push ra
jal waittillidle
harvest:
s larre Activate 1
jal waittillidle
ls r0 larre 255 Occupied
bgtz r0 harvest
pop ra
j doplant

plantseed:

l r0 sensor RatioPollutant
bgtz r0 ra
l r0 sensor RatioWater
l r1 sensor RatioSteam
add r0 r1 r0
blt r0 0.9 ra
l r0 sensor Temperature
blt r0 tooCold ra
bgt r0 tooHot ra
l r0 sensor Pressure
blt r0 10 ra

push ra
s larre Setting seedstation
jal waittillidle
s larre Activate 1
jal waittillidle
yield # give the game time to detect the arm has an item.
ls r0 larre 0 Occupied
peek ra
blez r0 ra #no seed available
s larre Setting stationidx
jal waittillidle
s larre Activate 1
jal waittillidle
pop ra

j ra

waittillidle:
yield
l r0 larre Idle
beqz r0 waittillidle
l r0 larre Setting
l r1 larre PositionX
bne r0 r1 waittillidle
j ra

clearchute:
bdns depositchute nochute
ls r0 depositchute 0 Occupied
seqz r0 r0
s depositchute Open r0
j ra
nochute:
lbs r0 HASH("StructureChuteBin") 0 Occupied Maximum
seqz r0 r0
sb HASH("StructureChuteBin") Open r0
j ra