(Formerly) The Best LArRE

This (was) literally THE best LArRE script​.

Unfortunately, they changed how LArRE works.

It will handle all the chute bins and even a growlight. It can of course handle fertilizer, and the housing displays the growlight cycle time in minutes. The device stack is very easy and very flexible, allowing for chutes to be between pots in the stack without requiring the user to define the junction index, as it is implied from the stack position (sp).

If you want to learn more about mips to do this yourself, check out this guide.

[b]alias[/b] larre d0 
[b]alias[/b] seedBin d1 
[b]alias[/b] fertBin d2 
[b]alias[/b] outBin d3 
[b]alias[/b] growLight d4 
[b]define[/b] seedBinMark HASH("Seed") 
[b]define[/b] fertBinMark HASH("Fert") 
[b]define[/b] outBinMark HASH("Out") 

[b]push[/b] HASH("pot0") [i]#push corresponding device names onto stack starting from junction 0[/i]
[b]push[/b] HASH("pot1") [i]#YOU MUST ALSO push the three 3 Mark vals above somewhere on the stack[/i]
[b]push[/b] HASH("pot2") 
[b]push[/b] HASH("pot3") 
[b]push[/b] HASH("pot4") 
[b]push[/b] HASH("pot5") 
[b]push[/b] HASH("pot6") 
[b]push[/b] HASH("pot7") 
[b]push[/b] seedBinMark 
[b]push[/b] fertBinMark 
[b]push[/b] outBinMark 

[b]define[/b] minutesOfLight 10 [i]#define these to the optimal values for your plants.[/i]
[b]define[/b] minutesOfDark 5 

[b]define[/b] potID HASH("StructureHydroponicsTrayData") 
[b]alias[/b] stackSize r15 
[b]alias[/b] pot r14 
[b]alias[/b] seedPos r13 
[b]alias[/b] fertPos r12 
[b]alias[/b] outPos r11 
[b]alias[/b] timer r10 
[b]alias[/b] offTime r9 
[b]alias[/b] totalTime r8 
[b]mul[/b] offTime minutesOfLight 120 [i]#calculate growlight cycle tick values[/i]
[b]floor[/b] offTime offTime 
[b]mul[/b] totalTime minutesOfDark 120 
[b]floor[/b] totalTime totalTime 
[b]add[/b] totalTime totalTime offTime 
[b]move[/b] stackSize sp 
[b]pop[/b] r0 [i]#iterate through stack once to compute bin junction positions[/i]
[b]brne[/b] r0 seedBinMark 2 
[b]move[/b] seedPos sp 
[b]brne[/b] r0 fertBinMark 2 
[b]move[/b] fertPos sp 
[b]brne[/b] r0 outBinMark 2 
[b]move[/b] outPos sp 
[b]brgtz[/b] sp -7 
[b]l[/b] timer db [u]Setting[/u] [i]#get housing timer value to prevent light stress during modifications[/i]
[b]mul[/b] timer timer 120 
[b]floor[/b] timer timer 

[u]IterateStackDevices:[/u] 
[b]move[/b] sp stackSize [i]#start iterating through all the devices on the stack[/i]
[u]CheckNextDevice:[/u] 
[b]pop[/b] pot 
[b]beq[/b] pot seedBinMark [u]CheckNextDevice[/u] 
[b]beq[/b] pot fertBinMark [u]CheckNextDevice[/u] 
[b]beq[/b] pot outBinMark [u]CheckNextDevice[/u] 
[b]lbns[/b] r0 potID pot 0 [u]Occupied[/u] [u]Maximum[/u] 
[b]bnez[/b] r0 [u]SkipPlant[/u] [i]#skip planting if slot occupied[/i]
[b]ls[/b] r0 seedBin 0 [u]Occupied[/u] 
[b]beqz[/b] r0 [u]SkipPlant[/u] [i]#skip planting if no seeds in bin[/i]
[b]s[/b] larre [u]Setting[/u] seedPos [i]#otherwise,[/i]
[b]jal[/b] [u]SendLarreToTask[/u] [i]#send larre to the seed bin,[/i]
[b]jal[/b] [u]DoAtTray[/u] [i]#then back to the tray[/i]
[u]SkipPlant:[/u] 
[b]lbns[/b] r0 potID pot 1 [u]Occupied[/u] [u]Maximum[/u] 
[b]bnez[/b] r0 [u]CheckHarvestable[/u] [i]#handle fertilizing like planting[/i]
[b]ls[/b] r0 fertBin 0 [u]Occupied[/u] 
[b]beqz[/b] r0 [u]CheckHarvestable[/u] 
[b]s[/b] larre [u]Setting[/u] fertPos 
[b]jal[/b] [u]SendLarreToTask[/u] 
[b]jal[/b] [u]DoAtTray[/u] 
[u]CheckHarvestable:[/u] 
[b]lbns[/b] r0 potID pot 0 [u]Seeding[/u] [u]Minimum[/u] 
[b]blez[/b] r0 [u]Iterate[/u] [i]#skip harvesting if plant not seeding[/i]
[u]ContinueHarvest:[/u] 
[b]lbns[/b] r0 potID pot 0 [u]Mature[/u] [u]Minimum[/u] [i]#keep harvesting while mature[/i]
[b]blez[/b] r0 [u]Iterate[/u] [i]#end harvest when no longer mature[/i]
[b]jal[/b] [u]DoAtTray[/u] [i]#otherwise, harvest tray,[/i]
[b]s[/b] larre [u]Setting[/u] outPos [i]#then go deposit in the export bin[/i]
[b]jal[/b] [u]SendLarreToTask[/u] 
[b]s[/b] outBin [u]Open[/u] 0 [i]#afterward, close bin to clear slot and export item[/i]
[b]j[/b] [u]ContinueHarvest[/u] [i]#then check again to see if there is more to harvest[/i]
[u]Iterate:[/u] 
[b]bgtz[/b] sp [u]CheckNextDevice[/u] [i]#check next tray in stack when all is handled[/i]
[b]yield[/b] [i]#wait, and then check all the trays again[/i]
[b]add[/b] timer timer 1 
[b]jal[/b] [u]HandleGrowlight[/u] [i]#increment timer one and handle grow light[/i]
[b]j[/b] [u]IterateStackDevices[/u] 

[u]DoAtTray:[/u] 
[b]s[/b] larre [u]Setting[/u] sp [i]#stack pointer after getting tray is equal to junction index for[/i]
[u]SendLarreToTask:[/u] 
[b]yield[/b] [i]#wait for larre to make it to his destination before calling Activate[/i]
[b]add[/b] timer timer 1 [i]#will handle growlight at the end of larre's do cycle[/i]
[b]l[/b] r0 larre [u]Idle[/u] 
[b]beqz[/b] r0 [u]SendLarreToTask[/u] 
[u]ActivateLarre:[/u] 
[b]s[/b] larre [u]Activate[/u] 1 
[b]sleep[/b] 2 [i]#wait for larre to grab/drop[/i]
[b]add[/b] timer timer 4 
[u]HandleGrowlight:[/u] 
[b]brle[/b] timer totalTime 2 
[b]move[/b] timer 0 
[b]div[/b] r0 timer 120 
[b]s[/b] db [u]Setting[/u] r0 [i]#write the cycle time in minutes to the housing[/i]
[b]slt[/b] r0 timer offTime 
[b]s[/b] growLight [u]On[/u] r0 
[b]j[/b] ra