Hydroponic Larre - Komplett Autonom

define Name HASH("L1")
define Slots 24
define MoveSek 60
 
alias Timer r15
alias Slot r14
alias MaxSlots r13
add MaxSlots Slots 3
Loop:
sge r0 Timer MoveSek
beq r0 1 Check
yield
add Timer Timer 0.5
s db Setting Timer
j Loop
 
Check:
sbn 85133079 Name On 1
sbn 85133079 Name Setting 2
jal Wait
sbn -2131782367 Name Open 1
sbn 85133079 Name Setting 3
jal Wait
sbn -2131782367 Name Open 0
move Slot 4
Drive:
sbn 85133079 Name Setting Slot
jal Wait
Next:
lbns r0 85133079 Name 255 Seeding 0
beq r0 1 Ernten
add Slot Slot 1
sgt r0 Slot MaxSlots
beq r0 1 GoHome
j Drive
 
Ernten:
sbn 85133079 Name Activate 1
jal Wait
sbn 85133079 Name Open 1
CheckArround:
lbns r0 85133079 Name 255 Mature 0
beq r0 1 Frucht
lbns r0 85133079 Name 255 Occupied 0
seq r0 r0 0
sbn 85133079 Name Activate r0
jal Wait
sbn 85133079 Name Setting 3
jal Wait
sbn -2131782367 Name Open 1
sbn 85133079 Name Setting 2
jal Wait
sbn -2131782367 Name Open 0
sbn 85133079 Name Setting 1
jal Wait
sbn -850484480 Name On 1
sbn 85133079 Name Activate 1
jal Wait
sbn -850484480 Name Open 0
sleep 1
sbn 85133079 Name Activate 1
jal Wait
sbn -850484480 Name Open 0
sbn -850484480 Name On 0
add Slot Slot 1
sgt r0 Slot MaxSlots
beq r0 1 Home
sbn 85133079 Name Setting 2
jal Wait
sbn -2131782367 Name Open 1
sbn 85133079 Name Setting 3
jal Wait
sbn -2131782367 Name Open 0
sbn 85133079 Name Setting Slot
jal Wait
j Next
Home:
sbn 85133079 Name Setting 0
jal Wait
sbn 85133079 Name On 0
move Timer 0
j Loop
 
GoHome:
s db Setting 2
sbn 85133079 Name Setting 3
jal Wait
sbn -2131782367 Name Open 1
sbn 85133079 Name Setting 2
jal Wait
sbn -2131782367 Name Open 0
sbn 85133079 Name Setting 0
jal Wait
sbn 85133079 Name On 0
move Timer 0
j Loop
 
Frucht:
sbn 85133079 Name Activate 1
jal Wait
j CheckArround
 
Wait:
yield
lbn r0 85133079 Name Idle 0
beq r0 0 Wait
j ra