Author Topic: Circumversor Cantharissa (F2)(Jez)-13.05.04  (Read 2893 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
Circumversor Cantharissa (F2)(Jez)-13.05.04
« on: February 23, 2005, 03:30:15 PM »
Code: [Select]
'Circumversor Cantharisa
' Retuned (female) version of Cantharis
' Shot-bot by Jez

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

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

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

cond
*.eye1 *.eye5 >
start
mult mult 124 7
stop

cond
*.eye9 *.eye5 >
start
mult mult -124 -7
stop

'target
cond
*.eye2 *.eye5 >
start
mult mult 78 4
stop

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

cond
*.eye4 *.eye5 >
start
mult mult 36 2
stop

cond
*.eye6 *.eye5 >
start
mult mult -36 -2
stop

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

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

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

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

'reproduce
cond
*.nrg 6000 >
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

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

'head start gene
cond
*.robage 1 =
*.numties 0 =
*.nrg 2000 >
start
50 .repro store
stop

'make poison
cond
*.nrg 1000 >
*.poison 150 <
start
50 .strpoison store
stop
end
« Last Edit: May 09, 2014, 12:48:41 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D