Harvie 2 Controller

<?xml version="1.0" encoding="utf-8"?>
<InstructionData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <DateTime>132699814472341897</DateTime>
  <GameVersion>0.2.2891.14453</GameVersion>
  <Title>Harvie 2 Controller</Title>
  <Description />
  <Author>Linver</Author>
  <WorkshopFileHandle>0</WorkshopFileHandle>
  <Instructions># Harvie controller
# Do you want Harvie to harvest seeds?
define HARVESTSEEDS 5 # Number to harvest
#----------------------------------------

define PLANTSLOT 0
define INPUTSLOT 0

s db Setting 1

move r10 HARVESTSEEDS
move r11 HARVESTSEEDS

start:
alias harvie d0
alias hydroponics d3
alias seeds r10
jal checkHydroponics
alias harvie d1
alias hydroponics d4
alias seeds r11
jal checkHydroponics
sleep 8
j start

checkHydroponics:
bdns hydroponics ra
bdns harvie ra
ls r0 hydroponics PLANTSLOT Seeding
bgtz r0 getSeeds
ls r0 hydroponics PLANTSLOT Mature
beq r0 -1 plant
beqz r0 ra
s harvie Harvest 1
j ra

plant:
ls r0 harvie INPUTSLOT Quantity
beqz r0 ra
l r0 hydroponics TotalMoles
beqz r0 ra
l r0 db Setting
beqz r0 ra
s harvie Plant 1
move seeds HARVESTSEEDS
j ra

getSeeds:
beqz seeds ra
s harvie Harvest 1
sub seeds seeds 1
j ra</Instructions>
</InstructionData>