-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlarre-potatoes.s
104 lines (89 loc) · 1.66 KB
/
larre-potatoes.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
push HASH("D0")
push 1
push HASH("D1")
push 2
push HASH("D2")
push 3
push HASH("D3")
push 4
push HASH("D4")
push 5
push HASH("D5")
push 6
push HASH("D6")
push 7
push HASH("D7")
push 8
alias dArm d0
alias rNameHash r0
alias rTargetIndex r1
alias rArmIdle r2
alias rTakeFromIndex r3
alias rPutAtIndex r4
alias rStackEnd r5
alias rTemp1 r6
alias rTemp2 r7
alias rTemp3 r8
define trayHash HASH("StructureHydroponicsTrayData")
define ChuteImport HASH("StructureChuteBin")
define pickupIndex 9
# define pickupFertilizerIndex 5
define dropIndex 0
define stackStart 0
define stackEnd 15
add sp stackStart 1
add rStackEnd stackEnd 2
s db Setting -2
loop:
sleep 1
jal VendingImport
peek rNameHash
add sp sp 1
peek rTargetIndex
add sp sp 1
brle sp rStackEnd 3
move sp 1
j loop
lbns rTemp1 trayHash rNameHash 0 Occupied 1
beq rTemp1 0 plant
lbns rTemp1 trayHash rNameHash 0 Mature 1
lbns rTemp2 trayHash rNameHash 0 Seeding 1
add rTemp3 rTemp1 rTemp2
bgt rTemp3 0 harvest
# lbns rTemp1 trayHash rNameHash 1 Occupied 1
# beq rTemp1 0 fertilize
j loop
#fertilize:
#move rTakeFromIndex pickupFertilizerIndex
#move rPutAtIndex rTargetIndex
#j takeAndPut
harvest:
move rTakeFromIndex rTargetIndex
move rPutAtIndex dropIndex
j takeAndPut
plant:
move rTakeFromIndex pickupIndex
move rPutAtIndex rTargetIndex
j takeAndPut
takeAndPut:
s dArm Setting rTakeFromIndex
jal wait
s dArm Activate 1
jal wait
s dArm Setting rPutAtIndex
jal wait
s dArm Activate 1
jal wait
j loop
wait:
sleep 3
l rArmIdle dArm Idle
breq rArmIdle 0 -2
j ra
VendingImport:
lbns r15 ChuteImport HASH("Chute-Vending-Input") 0 Occupied Maximum
bnez r15 OpenChute
j ra
OpenChute:
sbn ChuteImport HASH("Chute-Vending-Input") Open 0
j ra