alias larre d0
alias depositchute d1

alias hydroname r15
alias stationidx r14
alias occupied r13
alias ratiowater r12
alias temperature r11
alias pressure r10
alias seeding r9
alias mature r8
alias seedstation r7

define DEPOSITSTATION 6
define tooCold 280
define tooHot 320
define HYDROHASH HASH("StructureHydroponicsTrayData")

start:
bdns depositchute nochute
ls r0 depositchute 0 Occupied
seqz r0 r0
s depositchute Open r0
nochute:

move hydroname HASH("hydro B1")
move stationidx 2
move seedstation 5
jal doplant

move hydroname HASH("hydro B2")
move stationidx 3
jal doplant

move hydroname HASH("hydro B3")
move stationidx 4
move seedstation 1
jal doplant

move hydroname HASH("hydro B4")
move stationidx 7
move seedstation 1
jal doplant

move hydroname HASH("hydro B5")
move stationidx 8
move seedstation 1
jal doplant

move hydroname HASH("hydro B6")
move stationidx 9
jal doplant

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
pop ra
j ra

regular:

lbns seeding HYDROHASH hydroname 0 Seeding Maximum
lbns mature HYDROHASH hydroname 0 Mature Maximum

bltz seeding skipharvest
s db Setting 42
push ra
s larre Setting stationidx
jal waittillidle
s larre Activate 1
jal waittillidle
pop ra
j ra

skipharvest:

lbns occupied HYDROHASH hydroname 0 Occupied Maximum
bgtz occupied ra

lbn r0 HYDROHASH hydroname RatioPollutant Maximum
bgtz r0 ra
lbn ratiowater HYDROHASH hydroname RatioWater Maximum
blt ratiowater 0.9 ra

lbn temperature HYDROHASH hydroname Temperature Maximum
blt temperature tooCold ra
bgt temperature tooHot ra

lbn pressure HYDROHASH hydroname Pressure Maximum
blt pressure 10 ra

push ra
s larre Setting seedstation
jal waittillidle
s larre Activate 1
jal waittillidle
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
j ra