订阅以下载
Harvie Controller

One side note about last post:
Add more devices in the code by adding more lines similar to harvie1-10

Code Part 2:

move r8 HASH("Harvie7")
move r9 HASH("Hydroponics7")
jal checkdevice
move r8 HASH("Harvie8")
move r9 HASH("Hydroponics8")
jal checkdevice
move r8 HASH("Harvie9")
move r9 HASH("Hydroponics9")
jal checkdevice
move r8 HASH("Harvie10")
move r9 HASH("Hydroponics10")
jal checkdevice
j start

checkdevice:
lbn r0 harvieHASH harvie Activate 0
bnez r0 ra
lbns r0 hydroponicsHASH hydroponics 0 Mature 0
beq r0 -1 plant
bne r0 1 ra
lbns r0 hydroponicsHASH hydroponics 0 Seeding 0
blt r0 GETSEEDS ra
sbn harvieHASH harvie Harvest 1
j ra

plant:
lbns r0 harvieHASH harvie 0 Quantity 0
beqz r0 ra
l r0 db Setting
beqz r0 ra
lbns r0 hydroponicsHASH hydroponics 1 Quantity 0
blt r0 USEPOOP ra
lbn r0 hydroponicsHASH hydroponics Pressure 0
beqz r0 ra
lbn r0 hydroponicsHASH hydroponics Temperature 0
blt r0 278 ra
bgt r0 323 ra
sbn harvieHASH harvie Plant 1
j ra

I updated the script, it now supports infinite amount of harvies with only one IC!
Note: make sure the names of your devices are matching exactly as mentioned below.
(e.g., "Harvie1", "Hydroponics1")

Due to limitations of max characters, Code Part 1:

define GETSEEDS -1 # -1(No) 0(Yes)
define USEPOOP 0 # 0(No) 1(Yes)

define harvieHASH 958056199
define hydroponicsHASH -1841632400

alias harvie r8
alias hydroponics r9

s db Setting 1

start:
yield

move r8 HASH("Harvie1")
move r9 HASH("Hydroponics1")
jal checkdevice
move r8 HASH("Harvie2")
move r9 HASH("Hydroponics2")
jal checkdevice
move r8 HASH("Harvie3")
move r9 HASH("Hydroponics3")
jal checkdevice
move r8 HASH("Harvie4")
move r9 HASH("Hydroponics4")
jal checkdevice
move r8 HASH("Harvie5")
move r9 HASH("Hydroponics5")
jal checkdevice
move r8 HASH("Harvie6")
move r9 HASH("Hydroponics6")
jal checkdevice

Note that checking growth for 4 will not work for corn as it has one extra growth stage. I fixed it based on the value of seeds if it isn't zero do not try harvest fruit (of course maturity must be one).

# Harvie controller - Seed Harvesting

alias mature r1
alias growth r2
define PLANTSLOT 0
define INPUTSLOT 0
define HARVESTSEEDS 1

s db Setting 1

checkHydroponics:
bdns hydroponics ra
bdns harvie ra
ls mature hydroponics PLANTSLOT Mature
beqz mature ra
beq mature -1 plant
ls growth hydroponics PLANTSLOT Growth
beq growth 4 ra
s harvie Harvest 1
j ra

The changes that fixed the script to harvest seeds were adding these 2 lines right before the Harvest command. I also added the growth alias at the top.

alias growth r2

ls growth hydroponics PLANTSLOT Growth
beq growth 4 ra

This loads the Growth variable from the hydroponics device and if growth is 4, the plant is still seeding, so Harvest doesn't happen. When growth changes to 5, seeds are harvested.

November 2022: Since the seed now appears later than the fruit, no more seeds are harvested. How to customize that the harvesting process is blocked until the seed has matured?

Couldn't you use flip-flop splitters and have them output into the front of your Harvies so they would load-balance and distribute the seeds you want? The load-balance would require a stacker set to 1 (so as to ensure an even load balance) that then feeds into the seed-loading chute line, but it would be relatively easy I'd figure.

It is working for me now just doesn't have any way to automate refilling the harvies with seeds which still has to be done manually

Not working

@CowsAreEvil consider this:

harvest:
ls r0 hydroponics PLANTSLOT Seeding
ls r1 hydroponics PLANTSLOT Mature
xor r0 r0 r1
beqz r0 ra
s harvie Harvest 1
sleep 5
j ra