Author Topic: Circumversor Cantharis (F2)(Jez)-29.04.04  (Read 3038 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
Circumversor Cantharis (F2)(Jez)-29.04.04
« on: February 23, 2005, 03:28:51 PM »
Code: [Select]
'Circumversor Cantharis
' Shot-bot by Jez

'Delete ties
cond
*.numties 0 >
start
*.tiepres .deltie store
stop

'start
cond
*.robage 0 =
start
1 .tie store
stop

'lock to target?
cond
*.eye5 0 >
*.refeye 22 !=
start
mult mult 0 0
stop

'search
cond
*.eye5 0 =
start
mult mult 208 0
stop

'target
cond
*.eye1 *.eye5 >
start
mult mult 104 4
stop

cond
*.eye9 *.eye5 >
start
mult mult -104 -4
stop

cond
*.eye2 *.eye5 >
start
mult mult 78 3
stop

cond
*.eye8 *.eye5 >
start
mult mult -78 -3
stop

cond
*.eye3 *.eye5 >
start
mult mult 52 2
stop

cond
*.eye7 *.eye5 >
start
mult mult -52 -2
stop

cond
*.eye4 *.eye5 >
start
mult mult 26 1
stop

cond
*.eye6 *.eye5 >
start
mult mult -26 -1
stop

'avoid friends
cond
*.refeye 22 =
*.eye5 0 >
start
mult mult 208 0
stop

'reproduce
cond
*.nrg 4000 >
start
25 .repro store
mult mult -208 0
stop

'turn
cond
start
.sx store
.aimsx store
stop

'shoot
cond
*.refage 0 >
*.eye5 30 >
*.refeye 22 !=
start
-1 .shoot store
stop

'move forward
cond
*.eye5 0 >
*.refeye 22 !=
start
*.eye5 -1 mult 100 add 10 div .up store
stop

'very first go
cond
*.robage 1 =
*.numties 0 =
*.nrg 2000 >
start
50 .repro store
stop

'nasty poison bit that doesn't work
cond
*.nrg 1000 >
*.poison 100 <
start
100 .strpoison store
stop
end
« Last Edit: May 09, 2014, 12:49:16 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D