Stationeers ( Die Harvies )

push HASH("Harvie-1")
push HASH("Harvie-2")
push HASH("Harvie-3")
push HASH("Harvie-4")

define Harvie -271480358
define GrowLight -1758710260
define Hydroponic -1841632400
define Memory -851746783
define Sorter -1009150565
alias Day.Time r15
alias Night.Time r14
alias Timer r13
alias HashID r12
alias Count r11
alias Einheit r10
move Count sp
Reset:
move sp 0
yield
Loop:
add sp sp 1
sgt r0 sp Count
beq r0 1 Reset
peek Einheit
lbn Timer Memory Einheit Setting 0
lbns HashID Hydroponic Einheit 0 OccupantHash 0
sbn Harvie Einheit On 1
seq r1 HashID 0
select Day.Time r1 0 Day.Time
select Night.Time r1 0 Night.Time
seq r1 HashID 258339687
select Day.Time r1 500 Day.Time
select Night.Time r1 200 Night.Time
seq r1 HashID -1057658015
select Day.Time r1 600 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID 1929046963
select Day.Time r1 600 Day.Time
select Night.Time r1 200 Night.Time
seq r1 HashID 1277828144
select Day.Time r1 500 Day.Time
select Night.Time r1 100 Night.Time
seq r1 HashID 658916791
select Day.Time r1 600 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID 1924673028
select Day.Time r1 600 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID -998592080
select Day.Time r1 480 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID 892110467
select Day.Time r1 480 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID -532672323
select Day.Time r1 600 Day.Time
select Night.Time r1 300 Night.Time
seq r1 HashID 266654416
select Day.Time r1 600 Day.Time
select Night.Time r1 300 Night.Time
slt r0 Timer Day.Time
sbn GrowLight Einheit On r0
lbns r0 Hydroponic Einheit 0 Seeding 0
beqal r0 1 Ernten
lbns r0 Hydroponic Einheit 0 Occupied 0
beqal r0 0 Pflanzen
sbn Sorter Einheit On 1
sbn Sorter Einheit Mode 1
lbns r1 Sorter Einheit 0 Occupied 0
beq r1 0 EX
lbns r3 Hydroponic Einheit 0 Occupied 0
seq r3 r3 0
select r2 r3 1 0
sbn Sorter Einheit Output r2
sbn Sorter Einheit Mode 0
sleep 0.001
sbn Sorter Einheit Mode 1
EX:
add Timer Timer 0.5
add r0 Day.Time Night.Time
sgt r0 Timer r0
select Timer r0 0 Timer
sbn Memory Einheit Setting Timer
j Loop
Ernten:
sbn Harvie Einheit Harvest 1
lbns r0 Hydroponic Einheit 0 Mature 0
sbn Sorter Einheit Mode 1
lbns r1 Sorter Einheit 0 Occupied 0
beq r1 0 NO
lbns r3 Hydroponic Einheit 0 Occupied 0
seq r3 r3 0
select r2 r3 1 0
sbn Sorter Einheit Output r2
sbn Sorter Einheit Mode 0
sleep 0.001
sbn Sorter Einheit Mode 1
NO:
yield
beq r0 1 Ernten
j ra
Pflanzen:
lbns r1 Harvie Einheit 0 Occupied 0
sbn Harvie Einheit Plant r1
j ra