' Queen Juliana bot
' By Henk B
' 28th March 2004
' "One doesn't need eyes to kill. Only teeth"
'
cond
*.nrg 3000 >
*.robage 8 >
start
50 .repro store
stop
cond
*.eye1 0 >
start
-102 .aimdx store
stop
cond
*.eye9 0 >
start
102 .aimdx store
stop
cond
*.eye4 0 >
start
-25 .aimdx store
stop
cond
*.eye6 0 >
start
26 .aimdx store
stop
cond
*.eye5 0 >
*.refeye *32 !=
*.robage 5 >
start
*31 .tie store
stop
cond
*.vel 40 <
*.numties 0 =
*.refeye *32 !=
start
40 *.vel sub .up store
stop
cond
*.numties 0 >
*.trefeye *32 !=
*.robage 3 >
start
*31 .tienum store
-1 .tieloc store
-1000 .tieval store
stop
cond
*.robage 0 =
start
1 .tie store
998 rnd 1 add 31 store
5 32 store
stop
cond
*.robage 1 =
start
1 .deltie store
*31 .readtie store
314 .aimdx store
stop
cond
*.trefeye *32 =
start
*31 .deltie store
stop
cond
*.refeye *32 =
start
157 .aimdx store
stop
cond
*.waste 0 >
start
*.waste .strpoison store
stop
cond
*.tiepres *31 !=
*.robage 3 >
*.numties 0 >
start
*.tiepres .tienum store
-1 .tieloc store
-1000 .tieval store
stop
end