Stationeers Larre Version 2

Der IC-10 Code: define Larre -1818718810 define ExportChute 1957571043 define ImportChute -850484480 define Memory -851746783 define Hydroponic -1841632400 define SamenHash 311593418 alias Count r15 alias Wert r14 push HASH("1") push HASH("2") push HASH("3") push HASH("4") push HASH("5") push HASH("6") push HASH("7") push HASH("8") push HASH("9") push HASH("10") push HASH("11") push HASH("12") push HASH("13") push HASH("14") push HASH("15") push HASH("16") push HASH("17") push HASH("18") push HASH("19") push HASH("20") push HASH("21") push HASH("22") push HASH("23") push HASH("24") push HASH("25") push HASH("26") push HASH("27") push HASH("28") push HASH("29") push HASH("30") push HASH("31") push HASH("32") push HASH("33") push HASH("34") push HASH("35") push HASH("36") #push HASH("37") #push HASH("38") #push HASH("39") #push HASH("40") #push HASH("41") #push HASH("42") #push HASH("43") #push HASH("44") #push HASH("45") #push HASH("46") #push HASH("47") #push HASH("48") #push HASH("49") #push HASH("50") move Count sp Reset: yield sbn Larre HASH("Station") Setting 0 move sp 0 Loop: add sp sp 1 sgt r0 sp Count beq r0 1 Reset peek Wert Weiter: lbns r0 ImportChute HASH("Samen") 0 Occupied 0 select r0 r0 0 1 sbn ImportChute HASH("Samen") Open r0 lbns r0 ImportChute HASH("Frucht") 0 Occupied 0 select r0 r0 0 1 sbn ImportChute HASH("Frucht") Open r0 lbns r0 Hydroponic Wert 0 Occupied 0 beqal r0 0 Einsetzen lbns r0 Hydroponic Wert 0 Seeding 0 beqal r0 1 SetMem.1 lbn r0 Memory Wert Setting 0 seq r0 r0 1 lbns r1 Hydroponic Wert 0 Mature 0 and r0 r0 r1 beqal r0 1 Ernten j Loop SetMem.1: sbn Memory Wert Setting 1 j ra Einsetzen: sbn Memory Wert Setting 0 lbns r0 ExportChute HASH("Samen") 0 Occupied 0 beq r0 0 ra sbn Larre HASH("Station") Setting 3 Einsetzen.Wait.1: yield lbn r0 Larre HASH("Station") Idle 0 beq r0 0 Einsetzen.Wait.1 sbn Larre HASH("Station") Activate 1 sleep 3 add r0 sp 3 sbn Larre HASH("Station") Setting r0 Einsetzen.Wait.2: yield lbn r0 Larre HASH("Station") Idle 0 beq r0 0 Einsetzen.Wait.2 sbn Larre HASH("Station") Activate 1 sleep 3 j Weiter Ernten: add r0 sp 3 sbn Larre HASH("Station") Setting r0 Ernten.Wait.1: yield lbn r0 Larre HASH("Station") Idle 0 beq r0 0 Ernten.Wait.1 sbn Larre HASH("Station") Activate 1 sleep 3 lbns r0 Larre HASH("Station") 0 OccupantHash 0 seq r0 r0 SamenHash select r0 r0 2 1 sbn Larre HASH("Station") Setting r0 Ernten.Wait.2: yield lbn r0 Larre HASH("Station") Idle 0 beq r0 0 Ernten.Wait.2 sbn Larre HASH("Station") Activate 1 sleep 3 j Weiter