#Group 1
l r4 db ReferenceId
s db Setting r4
sbn -1009150565 r4 On 1
sbn -1009150565 r4 Mode 2
sbn -1009150565 r4 Lock 1
sbn -443130773 r4 On 1
sbn -443130773 r4 Lock 1
move sp 0
push 0
brlt sp 512 -1
move sp 0
move r7 1025254665 #ItemKitChute
move r9 15
jal setInventory
move r7 1108423476 #ItemWallLight
move r9 4
jal setInventory
move r7 124499454 #ItemKitLogicSwitch
move r9 3
jal setInventory
move r7 -1776897113 #ItemKitSensor
move r9 2
jal setInventory
move r7 -380904592 #ItemRocketMiningDrillHeadICE oder so
move r9 2
jal setInventory
move r7 595478589 #ItemKitPipeUtilityLiquid
move r9 2
jal setInventory
move r7 1934508338 #ItemKitPipeUtility
move r9 2
jal setInventory
move r7 -846838195 #ItemKitWallFlat
move r9 1
jal setInventory
add r11 sp 1
handleSorter:
yield
lbns r10 -1009150565 r4 0 OccupantHash 3
beqz r10 handleRequest
move sp 1
peek r0 #handleSorterLoop:
seq r1 r10 r0
brnez r1 3 #To found
add sp sp 3
brnez r0 -4 #To handleSorterLoop
add sp sp r1 #found:
pop r0
add r0 r0 r1
push r0
sbn -1009150565 r4 Output r1
handleRequest:
l r6 d0:0 Channel0
l r7 d0:0 Channel1
l r9 d0:0 Channel2
l r3 d0:0 Channel6
beqz r6 handleStock
breq r3 r4 14 #To myJob
bnez r3 handleStock
beqz r7 handleStock
move sp 1
peek r1 #handleRequestLoop:
beqz r1 handleStock
add sp sp 3
brne r7 r1 -3 #To handleRequestLoop
sub sp sp 2
pop r0
beqz r0 handleStock
move r5 sp
s d0:0 Channel6 r4
j handleStock
sub r9 r9 1 #myJob:
brgtz r9 5 #To didntFinishJob
s d0:0 Channel0 0
s d0:0 Channel1 0
s d0:0 Channel3 0
s d0:0 Channel6 0
s d0:0 Channel2 r9 #didntFinishJob:
move sp r5
add sp sp 1
pop r2
sub r2 r2 1
push r2
sbn -443130773 r4 RequestHash r7
sleep 1
bgtz r2 handleStock
s d0:0 Channel6 0
handleStock:
lbn r0 1220484876 42069 Setting 3
beq r0 1 handleSorter
yield
l r6 d0:0 Channel0
breq r6 r4 17 #To orderNow
breqz r6 4
rand r14
mul r14 r14 1000
add r14 r14 10
sub r14 r14 1
s db Setting r14
bgtz r14 handleSorter
move sp r11
pop r0 #findUnderStock:
pop r0
pop r1
brgt r0 r1 3 #To requestUnderStock
brgt sp 1 -4 #To findUnderStock
j handleSorter
pop r12 #requestUnderStock:
s d0:0 Channel0 r4
j handleSorter
s d0:0 Channel0 1 #orderNow:
s d0:0 Channel1 r12
s d0:0 Channel2 1
s d0:0 Channel6 -1
j handleSorter
setInventory:
move r6 2
move r8 0
lbns r0 -443130773 r4 r6 OccupantHash 3 #getr8Loop:
brne r0 r7 2
add r8 r8 1
add r6 r6 1
brlt r6 101 -4 #To getr8Loop
push r7
push r8
push r9
j ra