C. Pecuarnis (F2)(Jez)-11.12.03

[Jez]

Code: [Select]

'11.12.03
'Topic: Internet bots 
'Jez

'c pecuarnis

cond
*.nrg 6000 >
*.eye5 0 =
start
25 .repro store
stop

cond
*.nrg 31500 >
start
10 .repro store
stop

cond
*.eye1 *.eye5 >
start
*.eye1 .aimsx store
stop

cond
*.eye9 *.eye5 >
start
*.eye9 -1 mult .aimsx store
stop

cond
*.eye5 0 >
*.refeye 11 !=
start
10 .up store
.shoot dec
stop

cond
*.eye5 *.eye1 add *.eye9 add 0 =
start
52 .aimsx store
stop

cond
*.refeye 11 =
start
210 .aimsx store
stop
end