Topics

61

Multi-Bots / Group Maind (MB)(K0zm0)-15.08.04

« on: January 11, 2007, 08:09:35 AM »

Code: [Select]

'Topic: Interesting group behaviour
'kOzmO
'Group Mind Multi-Bot
'Made by k0zm0
'15.aug.2004
'For version 3.23
cond
*.robage 50 =
start
20 .stifftie store
1256 rnd .aimsx store
999 rnd .out1 store
999 rnd 70 store
stop

cond
*.eye5 0 >
*.in1 *.out1 =
*.refeye *.myeye =
*.numties 0 =
start
*.refaim .setaim store
stop

cond
*.eye5 30 >
*.in1 *.out1 =
*.refeye *.myeye =
*.numties 0 =
start
*70 .tienum store
*70 .tie store
stop

cond
*.multi 1 =
*.aim *.refaim !=
start
0 .fixaim store
stop

cond
*.eye5 20 >
*.refeye 0 !=
*.refeye *.myeye !=
start
-1 .shoot store
stop

cond
*.in1 0 =
*.refeye 0 =
*.eye5 30 >
start
*.out1 .shootval store
.out1 .shoot store
stop

cond
*.refnrg 1000 >
*.in1 *.out1 =
*.refeye 0 =
*.eye5 30 >
start
-1 .shoot store
stop

cond
*.in1 0 !=
*.in1 *.out1 !=
*.refeye 0 =
*.eye5 30 >
start
-1 .shoot store
stop

cond
*.in1 *.out1 !=
*.refeye *.myeye =
*.eye5 30 >
start
*.out1 .shootval store
.out1 .shoot store
stop

cond
*.vel 10 <
start
10 *.vel sub 2 div .up store
stop

cond
*.nrg 6000 >
start
50 .repro store
stop

end

62

Multi-Bots / Cerberus 2 (MB)(Eight)-05.10.04

« on: January 11, 2007, 08:08:50 AM »

Code: [Select]

'Topic: New Bots
'Eight
'
' Cerberus 2 (MB) - 05.10.04   by Eight (eightland.com)
' doggy style

def func 50
def beat 51
def see 52

'poop
cond
*.waste 100 >
*.eye5 0 =
start
100 .shootval store
-4 .shoot store
stop

'initialize
cond
*.robage 2 =
*.numties 0 =
*.func 0 =
start
.func inc
stop

'reset single
cond
*.robage 300 >
*.numties 0 =
*.func 0 =
start
.func inc
stop

'grow head
cond
*.numties 3 <
*.func 1 =
*.nrg 2000 >
start
50 .repro store
stop

'tie
cond
*.robage 0 =
*.func 0 =
*.numties 0 =
start
1 .tie store
628 .fixang store
stop

'set
cond
*.numties 3 <
*.func 1 =
start
628 .fixang store
stop

'multi 0
cond
*.numties 1 =
*.multi 0 =
start
40 .stifftie store
stop

'share
cond
*.func 0 =
*.multi 1 =
start
50 .sharenrg store
stop

'move single
cond
*.beat 0 =
*.multi 0 =
start
5 .up store
stop

'move
cond
*.func 0 =
*.beat 0 =
*.multi 1 =
start
5 .up store
stop

'move
cond
*.func 1 =
*.beat 0 =
*.multi 1 =
start
5 .dn store
stop

'pulse
cond
*.beat 0 =
start
.beat inc
stop

'heart
cond
*.beat 0 >
start
.beat dec
stop

'see
cond
*.eye4 *.eye6 !=
*.eye5 30 >
start
.see inc
stop

'nothing
cond
*.eye5 0 =
start
0 .see store
stop

'eat
cond
*.see 1 >
*.refeye *.myeye !=
start
-1 .shoot store
stop

'eat
cond
*.eye5 30 >
*.refup 0 >
*.refeye *.myeye !=
start
-6 .shoot store
stop

'enemy tie
cond
*.func 0 =
*.multi 1 =
*.numties 1 >
*.tiepres 1 >
*.tiepres 1 !=
start
*.tiepres .deltie store
stop

'back bump
cond
*.hitdn 0 !=
start
1 .backshot store
-6 .shoot store
stop

'starving
cond
*.eye5 0 =
*.func 0 =
*.multi 1 =
*.nrg 500 <
start
1 .deltie store
stop

'store body
cond
*.multi 1 =
*.nrg 3000 >
*.body 32000 <
start
50 .strbody store
stop

'take body if nrg low
cond
*.multi 0 =
*.nrg 100 <
*.body 500 >
start
100 .fdbody store
stop

'left
cond
*.robage 100 >
*.multi 0 =
*.eye4 *.eye6 >
start
5 .aimsx store
stop

cond
*.robage 100 >
*.multi 0 =
*.eye1 *.eye9 >
start
30 .aimsx store
stop

'right
cond
*.robage 100 >
*.multi 0 =
*.eye6 *.eye4 >
start
5 .aimdx store
stop

cond
*.robage 100 >
*.multi 0 =
*.eye9 *.eye1 >
start
30 .aimdx store
stop

'stop if you see food
cond
*.multi 0 =
*.eye5 50 >
*.refdx *.mydx !=
*.refeye *.myeye !=
start
1 .fixpos store
stop

'see friend
cond
*.func 0 =
*.multi 1 =
*.eye5 50 >
*.refdx *.mydx =
*.refeye *.myeye =
start
5 .dx store
stop

'see friend
cond
*.multi 0 =
*.eye5 50 >
*.refdx *.mydx =
*.refeye *.myeye =
*.robage 40 >
start
628 .aimdx store
stop

'if fixed
cond
*.fixed 1 =
*.eye9 30 <
*.eye1 30 <
start
0 .fixpos store
stop

'see food
cond
*.func 0 =
*.multi 1 =
*.eye1 30 >
*.refdx *.mydx !=
*.refeye *.myeye !=
*.refup 0 =
start
1 .fixpos store
1 .tienum store
30 .tieval store
.sx .tieloc store
stop

'see food
cond
*.func 0 =
*.multi 1 =
*.eye9 30 >
*.refdx *.mydx !=
*.refeye *.myeye !=
*.refup 0 =
start
1 .fixpos store
1 .tienum store
30 .tieval store
.dx .tieloc store
stop

end

63

Multi-Bots / Cerberus 1.1 (MB)(Eight)-13.09.04

« on: January 11, 2007, 08:08:15 AM »

Code: [Select]

'Topic: New bots
'v2.32 (beta)
' Cerberus 1.1 (MB) by Eight (eightland.com)
' doggy style

' poop
cond
*.waste 100 >
start
100 .shootval store
-4 .shoot store
stop

' grow heads
cond
*.slime 0 =
*45 0 =
*.nrg 1000 >
*.numties 3 <
*.eye1 0 =
*.eye2 0 =
*.eye3 0 =
*.eye4 0 =
*.eye5 0 =
*.eye6 0 =
*.eye7 0 =
*.eye8 0 =
*.eye9 0 =
start
10 .repro store
10 .aimdx store
0 45 store
stop

' drop baby
cond
*45 0 =
*.nrg 8000 >
*.numties 3 =
*.eye1 0 =
*.eye2 0 =
*.eye3 0 =
*.eye4 0 =
*.eye5 0 =
*.eye6 0 =
*.eye7 0 =
*.eye8 0 =
*.eye9 0 =
start
80 .repro store
stop

' reset single
cond
*45 0 >
*.multi 0 =
*.numties 0 =
start
0 45 store
stop

' make a stink
cond
*.robage 1 =
*.multi 0 =
start
66 .out1 store
stop

' react to stink
cond
*.eye5 50 >
*.in1 66 =
*.robage 3 =
start
1 45 store
stop

' make tie
cond
*45 1 =
start
*45 .tie store
45 inc
stop

' fix angles
cond
*.multi 0 =
start
628 .fixang store
stop

' solidify
cond
*45 2 =
*.multi 1 =
start
40 .stifftie store
160 .tielen store
45 inc
stop

' eat
cond
*.eye5 30 >
*.refup 0 =
*.refsx *.mysx !=
*.refaimsx *.myaimsx !=
start
-1 .shoot store
stop

' eat
cond
*.eye4 70 >
*.refup 0 =
*.refsx *.mysx !=
*.refaimsx *.myaimsx !=
start
-1 .shoot store
stop

' eat
cond
*.eye6 70 >
*.refup 0 =
*.refsx *.mysx !=
*.refaimsx *.myaimsx !=
start
-1 .shoot store
stop

' smash
cond
*.eye5 30 >
*.refup 0 >
*.refsx *.mysx !=
*.refaimsx *.myaimsx !=
start
-6 .shoot store
stop

' see friend
cond
*45 3 =
*.multi 1 =
*.eye5 50 >
*.refsx *.mysx =
start
5 .dx store
stop

' see friend
cond
*.multi 0 =
*.eye5 50 >
*.refsx *.mysx =
*.robage 4 >
start
80 .aimdx store
stop

' see friend
cond
*.multi 0 =
*.eye3 50 >
*.refsx *.mysx =
*.robage 4 >
start
80 .aimdx store
stop

' if fixed
cond
*.fixed 1 =
start
0 .fixpos store
stop

' if fixed
cond
*44 1 =
*45 3 =
*47 0 !=
*.multi 1 =
*.eye1 0 =
*.eye9 0 =
start
0 47 store
stop

' stop if you see food
cond
*45 3 =
*.eye1 30 >
*.eye1 70 <
*.refsx *.mysx !=
*.refup 0 =
start
1 .fixpos store
1 47 store
stop

' stop if you see food
cond
*45 3 =
*.eye9 30 >
*.eye9 70 <
*.refsx *.mysx !=
*.refup 0 =
start
1 .fixpos store
9 47 store
stop

' spin
cond
*45 3 =
*47 1 =
*.multi 1 =
*.fixed 0 =
start
15 .sx store
stop

' spin
cond
*45 3 =
*47 9 =
*.multi 1 =
*.fixed 0 =
start
15 .dx store
stop

' spin single
cond
*47 1 =
*.multi 0 =
start
30 .aimsx store
stop

' spin single
cond
*47 9 =
*.multi 0 =
start
30 .aimdx store
stop

' precision
cond
*.eye3 *.eye7 !=
*.multi 0 =
start
*.eye3 *.eye7 sub 4 div .aimsx store
stop

' stop if you see food
cond
*.multi 0 =
*.eye5 50 >
*.refsx *.mysx !=
start
1 .fixpos store
stop

' move
cond
*44 1 =
*45 3 =
start
*.maxvel *.vel sub .up store
stop

' single move
cond
*44 1 =
*45 0 =
*.multi 0 =
start
5 .up store
stop

' make poison
cond
*.multi 1 =
*44 1 =
*.poison *.nrg <
start
466 .ploc store
100 .strpoison store
stop

' enemy tie
cond
*.numties 3 >
*.tiepres 3 >
*.tiepres 2 !=
start
*.tiepres .deltie store
20 .mkslime store
stop

' back bump
cond
*.hitdn 0 !=
start
1 .backshot store
-6 .shoot store
stop

' make shell if attacked
cond
*.multi 1 =
*.shup -6 =
*.shell 200 <
start
50 .mkshell store
stop

' make shell if attacked
cond
*.multi 1 =
*.shsx -6 =
*.shell 200 <
start
50 .mkshell store
stop

' make shell if attacked
cond
*.multi 1 =
*.shdx -6 =
*.shell 200 <
start
50 .mkshell store
stop

' make shell if attacked
cond
*.multi 1 =
*.shdn -6 =
*.shell 200 <
start
50 .mkshell store
stop

' store body if body low
cond
*.multi 1 =
*.nrg 1000 >
*.body 1000 <
start
50 .strbody store
stop

' take body if nrg low
cond
*.nrg 500 <
*.body 500 >
start
100 .fdbody store
stop

' share
cond
*44 1 =
*45 3 =
*.multi 1 =
*.trefnrg *.nrg !%=
start
50 .sharenrg store
stop

' starving
cond
*.eye5 0 =
*44 1 =
*45 3 =
*.multi 1 =
*.nrg 200 <
start
1 .deltie store
stop

' pulse
cond
*44 0 =
start
*.body 100 div 44 store
*44 5 add 44 store
stop

' heart
cond
*44 0 >
start
44 dec
stop


end

64

Short bots / Schoonmaker (6G)(Henk)-04.03.04

« on: January 11, 2007, 07:48:18 AM »

Code: [Select]

'Topic: Short-bots thread 
'Henk

' Schoonmaker
' bot for 6 gene bot league. Quite strong
' what you call "Klein maar fijn"
' in dutch.

' Engage tie to foe
cond
*.eye5 50 >
*.in1 157 !=
start
77 .tie store
-1 .shoot store
stop

' Eat foe
cond
*.numties 0 >
start
77 .tienum store
-1000 .tieval store
-1 .tieloc store
1 .deltie store
50 .repro store
stop

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

' Reproduce
cond
*.nrg 5000 >
start
50 .repro store
628 .aimsx store
stop

' Follow
cond
*.eye3 *.eye7 !=
start
*.eye7 *.eye3 sub 2 mult .aimdx store
stop

' All kinds of things, without specific conditions to run
cond
*.numties 0 =
start
40 *.vel sub .up store
*.in1 .aimdx store
100 *.slime sub .mkslime store
stop
end

65

Short bots / Joachim (6G)(Joachim)-29.08.03

« on: January 11, 2007, 07:43:15 AM »

Code: [Select]

'29.08.03
'Topic: ties, in and out 
'Joachim unnamed bot

'-------------
' turn to objects
'-------------
cond
*.eye5 0 =
start
*.eye1 *.eye9 sub
*.eye2 *.eye8 sub
*.eye3 *.eye7 sub
*.eye4 *.eye6 sub
add add add
2 div
.aimsx store
stop

'-------------
' avoid straigt lines when hungry
'-------------
cond
*.nrg 1000 <
start
0 *.aimsx store
60 rnd 30 sub .aimdx store
-2 .dn store
stop

'-------------
' set speed
'-------------
cond
start
' 1 .up store
0 *.eye5 sub 120 add 30 div .up store
stop

'-------------
'camelion
'-------------
cond
*.eye5 20 >
start
*.in1 .out1 store
*.in2 .out2 store
stop

'-------------
' shoot
'-------------
cond
*.eye5 25 >
*.refeye 0 =
start
-1 .shoot store
stop

'-------------
' reproduce
'-------------
cond
*.nrg 6000 >
start
50 .repro store
15 .aimdx store
stop
end

66

Multi-Bots / Triangulus P. (MB)(Carlo)-2002

« on: January 11, 2007, 07:40:28 AM »

Code: [Select]

' Triangulus Patavinus
'            Carlo Comis 2002
'
' The first and simplest multicellular
' organism I've programmed.
' It uses the motion abilities of
' his single cells to move, and
' each of them feeds and reproduces
' by his own, altough reproducing
' the whole triangle.

' equilibrio energia- risposta

cond
  *80
  0
  >
  *.nrg
  1600
  >
start
  *80
  .tienum
  store
  -1
  .tieloc
  store
  100
  .tieval
  store
  0
  80
  store
stop

' equilibrio energia -domanda

cond
  *.nrg
  1500
  <
  *40
  24
  =
start
  3
  .tienum
  store
  3
  .tieval
  store
  80
  .tieloc
  store
stop

cond
  *.nrg
  1500
  <
  *40
  14
  =
start
  2
  .tienum
  store
  2
  .tieval
  store
  80
  .tieloc
  store
stop

cond
  *.nrg
  1500
  <
  *40
  6
  =
start
  1
  .tienum
  store
  1
  .tieval
  store
  80
  .tieloc
  store
stop

'riproduzione

cond
  *51
  1
  =
start
  1
  41
  store
  51
  dec
stop

cond
  *51
  1
  >
start
  50
  .shoot
  store
  1
  .shootval
  store
  51
  dec
stop

cond
  *41
  10
  =
  *.nrg
  24000
  >
  *.eye5
  0
  =
start
  50
  .repro
  store
  40
  51
  store
  2
  41
  store
stop

'ciclo


'inseguimento oggetti avanti

cond
  *41
  1
  =
  *.eye5
  0
  >
  *.refeye
  5
  <
start
  10
  41
  store
stop

cond
  *41
  10
  =
  *.eye5
  0
  >
  *.refeye
  4
  >
start
  1
  41
  store
stop

cond
  *.eye5
  0
  >
  *.refeye
  5
  <
start
  1
  43
  store
stop

cond
  *41
  10
  =
  *.eye5
  0
  >
start
  10
  .up
  store
  -1
  .shoot
  store
stop

' inseguimento oggetti lato

cond
  *41
  10
  =
  *.eye1
  0
  >
start
  10
  .sx
  store
stop

cond
  *41
  10
  =
  *.eye2
  0
  >
start
  10
  .sx
  store
stop

cond
  *41
  10
  =
  *.eye3
  0
  >
start
  10
  .sx
  store
stop

cond
  *41
  10
  =
  *.eye9
  0
  >
start
  10
  .dx
  store
stop

cond
  *41
  10
  =
  *.eye8
  0
  >
start
  10
  .dx
  store
stop

cond
  *41
  10
  =
  *.eye7
  0
  >
start
  10
  .dx
  store
stop

' inizio nutrimento

cond
  *41
  0
  =
  *40
  6
  =
start
  1
  41
  store
stop

cond
  *41
  0
  =
  *40
  14
  =
start
  1
  41
  store
stop

cond
  *41
  0
  =
  *40
  24
  =
start
  1
  41
  store
stop

'sviluppo: robot 1

cond
  *40
  5
  =
start
  3
  .tienum
  store
  23
  .tieval
  store
  40
  .tieloc
  store
  6
  40
  store
stop

cond
  *40
  3
  =
start
  250
  .aimdx
  store
  4
  40
  store
stop

cond
  *40
  2
  =
start
  1
  .tie
  store
  1
  .tienum
  store
  40
  .tieloc
  store
  10
  .tieval
  store
stop

cond
  *40
  1
  =
start
  66
  .repro
  store
  2
  40
  store
stop

cond
  *40
  -100
  =
start
  471
  .aimsx
  store
  1
  40
  store
stop

cond
  *40
  -20
  =
  *50
  0
  =
start
  471
  .aimsx
  store
  1
  40
  store
stop

cond
  *40
  1
  <
start
  *40
  1
  sub
  40
  store
stop

' sviluppo: robot 2

cond
  *40
  13
  =
start
  236
  .aimdx
  store
  14
  40
  store
stop

cond
  *40
  12
  =
start
  2
  .tie
  store
  2
  .tienum
  store
  40
  .tieloc
  store
  20
  .tieval
  store
stop

cond
  *40
  11
  =
start
  50
  .repro
  store
  12
  40
  store
stop

cond
  *40
  10
  =
start
  1
  .tienum
  store
  40
  .tieloc
  store
  3
  .tieval
  store
  79
  .aimdx
  store
  11
  40
  store
stop

' sviluppo robot 3

cond
  *40
  23
  =
start
  250
  .aimdx
  store
  24
  40
  store
stop

cond
  *40
  22
  =
start
  3
  .tie
  store
  3
  .tienum
  store
  5
  .tieval
  store
  40
  .tieloc
  store
stop

cond
  *40
  21
  =
start
  350
  .aimdx
  store
  22
  40
  store
stop

cond
  *40
  20
  =
start
  2
  .tienum
  store
  40
  .tieloc
  store
  13
  .tieval
  store
  21
  40
  store
stop
end

67

F1 bots / Ursus Lurker (F1)(Jerry)-06.05.04

« on: January 11, 2007, 07:38:12 AM »

Code: [Select]

'Topic: On biodiversity again 
'Jerry

' Jerry's first tiebot
' Ursus_lurker
' special features:
' * eats herbivores (ursus_herbivoris)
' * lurks between vegs
' a bit like a frog

'***** recognize food
cond
*50 1 <
*.robage 500 >
*.eye5 20 >
*.refshoot 0 >
*.refage 1000 >
start
50 inc
stop

'***** init tie ID
cond
*51 0 =
start
51 inc
stop

'***** survive w/o food
cond
*.body 5000 >
*.nrg 500 <
start
1000 .fdbody store
stop

'***** good place - fix
cond
*.fixed 0 =
*.depth 200 <
*.depth 120 >
start
500 .fixpos store
stop

'* stacking turning values *
'***** init stack
cond
start
mult 16
stop

'***** follow bots you've seen
cond
*.eye1 *.eye5 >
start
mult -100
stop

'***** follow bots you've seen
cond
*.eye9 *.eye5 >
start
mult 100
stop

'***** take that navel cord
cond
*.robage 0 =
start
.tie inc
stop

'***** sever that navel cord
cond
*.robage 1 =
start
.deltie inc
mult 314
stop

'***** move to surface
cond
*.robage 30 =
start
1500 .setboy store
30 .up store
stop

'***** dive down when mature
cond
*.nrg 21000 >
*.body 7000 >
start
0 .fixpos store
-500 .setboy store
stop

'***** give birth
cond
*.nrg 20500 >
*.body 7000 >
*.depth 10000 >
start
25 .repro store
mult 628
39 .dx store
*.robage -3 div 1500 add .setboy store
100 .mkshell store
stop

'* apply steering *
'***** while not fixed
cond
*.fixed 0 =
start
.aimdx store
stop

'***** What touched me there?
cond
*.hitup 0 !=
*.fixed 0 !=
start
.out2 inc
mult 6 rnd 3 sub
stop

'***** What touched me there?
cond
*.hitdn 0 !=
*.fixed 0 !=
start
.out2 inc
mult 600
stop

'***** What touched me there?
cond
*.hitdx 0 !=
*.fixed 0 !=
start
.out2 inc
mult 300
stop

'***** What touched me there?
cond
*.hitsx 0 !=
*.fixed 0 !=
start
.out2 inc
mult -300
stop

'***** keep looking in promising directions
cond
*.aim 310 >
*.eye5 0 =
*.fixed 0 !=
start
1 .out2 store
mult 150
stop

'***** keep looking in promising directions
cond
*.aim 1000 >
*.eye5 0 =
*.fixed 0 !=
start
1 .out2 store
mult 250
stop

'* apply steering *
'***** while fixed
cond
*.out2 0 >
start
.aimdx store
.out2 dec
stop

'***** get food
'***** catch herbivores
cond
*50 1 =
*.refup 0 !=
start
*51 .tie store
50 dec
stop

'***** leave vegs alone
cond
*.trefup 0 =
start
.deltie inc
stop

'***** eat
cond
*.numties 0 >
start
*51 .tienum store
-1000 .tieval store
-1 .tieloc store
*51 .readtie store
stop

'***** fertilize vegs
cond
*.eye5 25 >
*.waste 50 >
*.refup 0 =
*.refnrg 100 >
start
*.waste .shootval store
-4 .shoot store
50 dec
stop

'***** eat the corpse of your victim
'(doesn't work most of the time)
cond
*.eye5 35 >
*.refnrg 100 <
start
-6 .shoot store
stop

'***** reset food flag if still set
cond
*50 0 >
start
50 dec
stop

end

68

F1 bots / Testbot 1 (F1)(Scarabdrowner)-12.04.04

« on: January 11, 2007, 07:37:32 AM »

Code: [Select]

'Topic: bug & questions 
'Scarab Drowner

'Testbot 1

' velocity, make the sucker move
cond
*.nrg 20000 <
*.vel 30 <
start
30 *.vel sub 2 div .up store
stop

' get a random number for later use
cond
*.robage 0 =
start
10 rnd 1 add 53 store
0 *50 store
stop

' artificial age counter
cond
*50 32000 <
start
50 inc
stop

' turn waste into poison to use later
cond
*.waste 49 >
start
50 .strpoison store
stop

' look for food 1 of 4
cond
*.eye1 *.eye5 >
*.eye1 *.eye9 >
start
mult -110
3 .up store
stop

' look for food 2 of 4
cond
*.eye9 *.eye5 >
*.eye9 *.eye1 >
start
mult 110
3 .up store
stop

' look for food 3 of 4
cond
*.eye3 *.eye5 >
*.eye3 *.eye7 >
start
mult -70
2 .up store
stop

' look for food 4 of 4
cond
*.eye7 *.eye5 >
*.eye7 *.eye3 >
start
mult 70
2 .up store
stop

'cond
'  *.eye5 40 >
'start
'  -1 .shoot store
'stop

' attach to food or enemy
cond
*.eye5 30 >
*.eye4 *.eye6 =
*.refeye 20 !=
*50 2 >
start
*53 .tie store
mult 0
stop

cond
start
.aimdx store
stop

' drain energy from food or enemy
cond
*.numties 0 >
start
*53 .tienum store
-1000 .tieval store
-1 .tieloc store
stop

' avoid same species
cond
*.refeye 20 =
*.eye5 20 >
start
280 .aimsx store
stop

' delete tie connected to family
cond
*.trefeye 20 =
start
*51 .deltie store
stop

' paralyze different species, but not vegs
'cond
'*.eye5 20 >
'*.refshoot 0 =
'*.refeye 20 !=
'*.poison 50 >
'start
'827 .shoot store
'50 .shootval store
'stop

' reproduce
cond
*50 1000 >
*.nrg 10000 >
start
25 .repro store
0 *50 store
stop

‘ tie to parent
cond
*.robage 0 =
start
.tie inc
stop

‘ sever tie to parent
cond
*.robage 1 =
start
.deltie inc
stop

' make slime to protect from enemy ties
cond
*.slime 90 <
start
10 .mkslime store
stop

' defense to make enemy give energy instead of taking it
'cond
'*.numties 0 >
'start
'453 .shoot store
'1000 .shootval store
'stop

' defense against enemy ties
cond
start
*.nrg *.78 store
stop

cond
*.numties 0 >
*.78 1000 sub *.nrg =
start
.tie inc
*53 .tie store
0 .aimdx store
*53 .tienum store
-1000 .tieval store
-1 .tieloc store
stop

' when full stop and rest
cond
*.nrg 32000 =
start
*.vel 0 store
stop

end

69

F1 bots / Spore Beta (F1)(K0zm0)-10.02.04

« on: January 11, 2007, 07:36:58 AM »

Code: [Select]

'Topic: Bot for DB v2.14 
'K0zm0

'Spore-beta (working)
'-------------------------
'Use: - no toroidal
' - gravity = 1
' - draw a line of wall
'at the top of the screen
' - set repopulate veg = 100 (optional)
'--------------------------



cond
*51 5 =
*.nrg 2000 >
start
50 .repro store
stop

cond
*51 5 =
*.nrg 600 <
start
2 .tienum store
2 .readtie store
2 .deltie store
6 51 store
stop

cond
*51 6 =
*.eye5 0 >
start
0 51 store
stop

cond
*51 4 =
start
628 .aimsx store
5 51 store
stop

cond
*51 3 =
*.numties 0 >
start
4 51 store
stop


cond
*51 2 =
start
11 rnd .aimsx store
10 .up store
stop

cond
*51 2 =
start
11 rnd .aimdx store
10 .up store
stop

cond
*51 2 =
*.eye5 35 >
*.refnrg 10 <
start
2 .tienum store
2 .tie store
3 51 store
stop

cond
*51 1 =
*.sun 1 !=
start
1 .tienum store
1 .deltie store
15 .aimsx store
stop

cond
*51 1 =
*.sun 1 =
start
2 51 store
stop

cond
*.refnrg 100 >
*.nrg 29000 <
*.ref*ge 0 !=
*51 0 =
*.eye5 30 >
*.refeye 0 =
start
1 .tienum store
1 .tie store
stop

cond
*.ref*ge 0 !=
*51 0 =
*.nrg 29900 <
start
1 .tienum store
-1000 .tieval store
-1 .tieloc store
stop

cond
*51 0 =
start
15 .aimdx store
stop

cond
*51 0 =
*.nrg 28000 >
start
1 51 store
stop

cond
*.waste 5 >
start
5 .shootval store
-4 .shoot store
stop
end

70

F1 bots / Spore Alpha (F1)(K0zm0)-08.02.04

« on: January 11, 2007, 07:36:13 AM »

Code: [Select]

'Topic: Bot for DB v2.14 
'K0zm0

'Spore-alpha
'-------------------------
'Use: - no toroidal
' - gravity = 1
' - draw a line of wall
'at the top of the screen
' - set repopulate veg = 100 (optional)
'--------------------------

cond
*50 0 =
start
10 .up store
1 50 store
stop

cond
*.refnrg 100 >
*.nrg 27000 <
*.refage 0 !=
*51 0 =
*.eye5 30 >
*.refeye 0 =
start
1 .tienum store
1 .tie store
stop

cond
*.refage 0 !=
*51 0 =
*.nrg 28000 <
start
1 .tienum store
1 .readtie store
-1000 .tieval store
-1 .tieloc store
stop

cond
*51 0 =
start
15 .aimdx store
stop

cond
*51 0 =
*.nrg 26000 >
start
1 51 store
stop

cond
*51 0 =
*.waste 5 >
start
5 .shootval store
-4 .shoot store
stop

cond
*51 1 =
*.sun 1 !=
start
1 .tienum store
1 .readtie store
1 .deltie store
15 .aimsx store
stop

cond
*51 1 =
*.sun 1 =
start
2 51 store
stop

cond
*51 2 =
start
7 rnd .aimsx store
10 .up store
stop

cond
*51 2 =
start
7 rnd .aimdx store
10 .up store
stop

cond
*51 2 =
*.eye5 30 >
*.refnrg 10 <
start
2 .tienum store
2 .tie store
2 .readtie store
3 51 store
stop

cond
*51 3 =
*.numties 0 >
start
4 51 store
stop

cond
*51 4 =
start
628 .aimsx store
5 51 store
stop

cond
*51 5 =
*.nrg 2000 >
start
50 .repro store
0 52 store
stop


cond
*51 5 =
*.nrg 500 <
start
2 .tienum store
2 .readtie store
2 .deltie store
6 51 store
stop

cond
*51 6 =
*.eye5 0 >
start
0 51 store
stop
end

71

F1 bots / Sparkle Green (F1)(Mighty Penguin)-18.04.04

« on: January 11, 2007, 07:35:22 AM »

Code: [Select]

'Topic: Save the Penguin!
'Mighty Penguin

cond
*.robage
0
=
start
39
999
store
32000
rnd
998
store
1
.tie
store
stop

cond
*.robage
1
=
start
1
.deltie
store
*998
.readtie
store
stop

cond
*.edge
1
=
start
350
.aimsx
store
stop

cond
*.nrg
6000
>
start
628
.aimdx
store
50
.repro
store
628
.aimdx
store
stop

cond
*.eye1
*.eye9
!=
start
*.eye1
*.eye9
sub
.aimsx
store
stop

cond
*.eye2
*.eye8
!=
start
*.eye2
*.eye8
sub
.aimsx
store
stop

cond
*.eye3
*.eye7
!=
start
*.eye3
*.eye7
sub
.aimsx
store
stop

cond
*.eye4
*.eye6
!=
start
*.eye4
*.eye6
sub
.aimsx
store
stop

cond
*.in1
89
!=
*.refeye
*999
!=
*.eye5
*.eye1
>
*.eye5
*.eye2
>
*.eye5
*.eye3
>
*.eye5
*.eye4
>
*.eye5
*.eye6
>
*.eye5
*.eye7
>
*.eye5
*.eye8
>
*.eye5
*.eye9
>
start
0
.aimsx
store
stop

cond
*.refeye
*999
=
start
50
.aimsx
store
stop

cond
*.refeye
*999
!=
*.vel
30
<
start
30
*.vel
sub
4
div
.up
store
stop

cond
*.eye5
50
>
*.vel
30
<
start
30
*.vel
sub
10
add
.up
store
stop

cond
*.robage
0
!=
*.eye5
77
!=
*.venom
32000
=
*.waste
1
>
start
-4
.shoot
store
stop

cond
*.robage
0
!=
*.eye5
77
!=
*.eye5
50
>
*.refeye
*999
!=
*.refnrg
1
>
start
*998
.tie
store
*997
inc
stop

cond
*.refeye
0
!=
*.robage
0
!=
*.eye5
77
!=
*.eye5
50
>
*.refeye
*999
!=
*.refnrg
1
>
start
-3
.shoot
store
stop

cond
*.eye5
50
>
*.refnrg
1
<
start
-6
.shoot
store
stop

cond
*.trefeye
*999
=
start
*998
.deltie
store
stop

cond
*.numties
0
>
start
*998
.tienum
store
-1
.tieloc
store
-1000
.tieval
store
stop

cond
*.numties
0
>
*997
1
=
start
*998
.tienum
store
.out1
.tieloc
store
89
.tieval
store
*997
dec
stop

cond
*.robage
0
!=
*.venom
32000
<
*.waste
1
>
start
32000
*.venom
sub
.strvenom
store
stop

cond
*.body
101
>
*.nrg
2000
>
start
2000
*.nrg
sub
.fdbody
store
stop

end

72

F1 bots / Sparkle Green1 (F1)(Mighty Penguin)-17.04.04

« on: January 11, 2007, 07:34:48 AM »

Code: [Select]

'Topic: Save the Penguin!
'MightyPenguin
'Edit's to posted Version
'Two Stops added instead of store's
'refeye corrected

cond
*.robage
0
=
start
39
999
store
32000
rnd
998
store
1
.tie
store
stop

cond
*.robage
1
=
start
1
.deltie
store
stop

cond
*.edge
1
=
start
350
.aimsx
store
stop

cond
*.nrg
6000
>
start
628
.aimdx
store
50
.repro
store
628
.aimdx
store
stop

cond
*.eye1
*.eye9
!=
start
*.eye1
*.eye9
sub
.aimsx
store
stop

cond
*.eye2
*.eye8
!=
start
*.eye2
*.eye8
sub
.aimsx
store
stop

cond
*.eye3
*.eye7
!=
start
*.eye3
*.eye7
sub
.aimsx
store
stop

cond
*.eye4
*.eye6
!=
start
*.eye4
*.eye6
sub
.aimsx
store
stop

cond
*.refeye
*999
!=
*.eye5
*.eye1
>
*.eye5
*.eye2
>
*.eye5
*.eye3
>
*.eye5
*.eye4
>
*.eye5
*.eye6
>
*.eye5
*.eye7
>
*.eye5
*.eye8
>
*.eye5
*.eye9
>
start
0
.aimsx
store
stop

cond
*.refeye
*999
=
start
167
.aimsx
store
stop

cond
*.vel
30
<
start
30
*.vel
sub
4
div
.up
store
stop

cond
*.eye5
50
>
*.vel
30
<
start
30
*.vel
sub
10
add
.up
store
stop

cond
*.robage
0
!=
*.eye5
77
!=
*.venom
32000
=
*.waste
1
>
start
-4
.shoot
store
stop

cond
*.robage
0
!=
*.eye5
77
!=
*.eye5
50
>
*.refeye
*999
!=
*.refnrg
1
>
start
*998
.tie
store
stop

cond
*.refeye
0
!=
*.robage
0
!=
*.eye5
77
!=
*.eye5
50
>
*.refeye
*999
!=
*.refnrg
1
>
start
-3
.shoot
store
stop

cond
*.eye5
50
>
*.refnrg
1
<
start
-6
.shoot
store
stop

cond
*.trefeye
*999
=
start
*998
.deltie
store
stop

cond
*.numties
0
>
start
*998
.tienum
store
-1
.tieloc
store
-1000
.tieval
store
stop

cond
*.robage
0
!=
*.venom
32000
<
*.waste
1
>
start
32000
*.venom
sub
.strvenom
store
stop

end

73

F1 bots / Shimazu v1.0 (F1)(Henk)-27.02.04

« on: January 11, 2007, 07:34:10 AM »

Code: [Select]

'Topic: Formula one bots!
'Henk


'Shimazu

'reset out1
cond
*.eye5 0 =
*.in1 1 =
*.robage 100 >
start
0 .out1 store
stop

'Identify as Shimazu
cond
*.out1 1 !=
start
1
.out1
store
stop

'reproduce. Long survival required to do so, to avoid lucky suckers
cond
*.nrg 9000 >
*.robage 500 >
*.robage 600 <
start
50
.repro
store
628
.aimsx
50
50
store
stop

cond
*.nrg 9000 >
*.robage 600 =
*50 50 !=
start
50
.mrepro
store
628
.aimsx
stop

' repro to continue really good bots
cond
*.nrg 10000 >
*.robage 2000 >
start
50 .repro store
628 .aimdx store
50 50 store
stop

cond
*.repro 50 =
*.numties 1 =
*.trefeye 0 =
*.trefnrg 1000 <
start
31 .deltie store
stop

'kill
cond
*.eye5 0 >
*.in1 1 !=
*.robage 100 >
start
-1
.shoot
store
stop

'Engage tie
cond
*.eye5 30 >
*.in1 1 !=
*.numties 0 =
*.robage 100 >
*.robage < 500
start
31 .tie store
-3 .shoot store 20 .shootval
0 .refnrg store
2 40 store
stop

'Engage tie 2
cond
*.eye5 30 >
*.in1 1 !=
*.numties 0 =
*.robage 100 >
*.robage > 600
start
31 .tie store
-3 .shoot store 20 .shootval
0 .refnrg store
2 40 store
stop

cond
*40 2 =
start
2 .tielen store
1 40 store
stop

'Feed
cond
*.numties 0 >
*.trefup 0 =
start
31 .tienum store
-1000 .tieval store
-1 .tieloc store
100 .sharenrg store
stop

'read the tie
cond
*.numties 0 >
*.robage 100 >
start
31 .readtie store
stop

cond
*.trefup 0 >
*.eye5 0 =
start
31 .deltie store
stop

'move when seeing something
cond
*.eye5 0 >
*.robage 100 >
*.tie 31 !=
*.numties 0 =
start
10
.up
store
stop

'move when seeing nothing
cond
*.eye5 0 =
*.robage 100 >
*.tie 31 !=
*.numties 0 =
start
10
.up
store
stop

cond
*.waste 10 >
*.venom 30000 <
start
100 .strvenom store
stop

cond
*.eye1 *.eye9 !=
*.numties 0 =
start
*.eye9 *.eye1 sub 4 mult .aimdx store
stop

cond
*.eye2 *.eye8 !=
*.numties 0 =
start
*.eye8 *.eye2 sub 3 mult .aimdx store
stop

cond
*.eye3 *.eye7 !=
*.numties 0 =
start
*.eye7 *.eye3 sub 2 mult .aimdx store
stop

cond
*.eye4 *.eye6 !=
*.numties 0 =
start
*.eye6 *.eye4 sub .aimdx store
stop

cond
*.refage 100 <
*.robage 100 <
*.eye5 0 >
start
314 .aimdx store
0 .refage store
stop

cond
*.robage 0 =
start
314 .aimdx store
stop

cond
*.shdx -1 =
start
314 .aimdx store
31 .tie store
stop

cond
*.shsx -1 =
start
-314 .aimdx store
31 .tie store
stop

cond
*.shdn -1 =
start
628 .aimdx store
31 .tie store
stop

cond
*.shup -1 =
start
31 .tie store
stop

cond
*.in1 1 =
start
314 .aimdx store
stop

cond
*.eye5 0 =
*.in1 1 =
start
0 .in1 store
stop

end

74

F1 bots / Praestolatio Grexa (F1)(Jez)-26.04.04

« on: January 11, 2007, 07:31:05 AM »

Code: [Select]

'Topic: Grexa-2: hunters needed 
'Jez

'Praestolatio Grexa - Waiting for or expecting Grexa
'2.2pond sim size2 with corpses Using Veg Grexa2

'initialisation
cond
*.robage 0 =
start
1 .tie store
40 123 store
1 900 rnd 99 store
stop

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

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

cond
*.eye1 40 >
*.eye1 *.eye5 >
start
mult 104
stop

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

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

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

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

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

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

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

cond
*.edge 1 =
*.eye5 0 >
start
mult 209
stop

cond
*.refeye *123 =
start
mult 209
stop

cond
start
.aimsx store
stop

'shoot
cond
*.eye5 40 >
*.refnrg 25 >
*.refeye 123 !=
*.refage 0 >
start
-1 .shoot store
*99 .tie store
stop

cond
*.refage 0 >
*.eye5 40 >
*.refnrg 26 <
start
-6 .shoot store
stop

'delete ties
cond
*.numties 0 >
*.refeye *123 =
start
*.tiepres .deltie store
stop

'feed through tie
cond
*.numties 0 >
*.trefeye *123 !=
start
*.tiepres .tienum store
-1 .tieloc store
-1000 .tieval store
stop

'move
cond
*.eye1 *.eye2 add *.eye3 *.eye4 add add *.eye6 *.eye7 add add *.eye8 *.eye9 add add 8 div 1 sub *.eye5 <
*.eye5 40 >
*.refeye 123 !=
start
100 *.eye5 sub 10 div 2 mult .up store
stop
end

75

F1 bots / P1 Parasite bot (F1)(Fizban)-26.06.04

« on: January 11, 2007, 07:29:41 AM »

Code: [Select]

'Topic: Parasites, here we come!
'Fizban

' P1 Parasite Bot
' This nasty little thing goes behind other active bots and ties to them. It then drains
' Energy is small amounts and practically lives on their backs.
' It can only multiply when its attached to a host.
' Created by fizban




' Custom Locations
' -----------------
' P1 *999 - status - -2 - baby
' -1 - delay
' 0 - searching for a host
' 1 - establishing tie to host
' 2 - fixing host .fixang
' 3 - starting .nrg transfer
' 4 - multiply
' ----------------------------------------------------


' ---------------- Start of initializtion ------------
cond
*.robage 0 =
start
666 .out1 store
0 999 store
stop
' ---------------- End of initialization -------------

' ----------------------------------
' Anomaly Detection Genes Code Block
' ----------------------------------

' Move back to search pattern code block (backup gene, if something is wrong with the connection)
cond
*.numties 0 =
*999 0 >
start
0 999 store
stop
' ===================================

' --------------------------
' status -1 code block (999)
' --------------------------

' Delay 1 cycle, wait for .numties to rise (anomaly code block was skipped because *999 = -1)
cond
*999 -1 =
start
1 999 store
stop
' ===================================

' -------------------------
' status 4 code block (999)
' -------------------------
' Multiply!
cond
*999 4 =
start
50 .repro store
3 999 store
stop

' Baby condition - do nothing for 75 cycles.
cond
*.robage 75 <
*.numties 0 !=
start
-2 999 store
stop

' Baby condition - ready for work
cond
*.robage 75 =
start
0 999 store
stop
' ==========================

' -------------------------
' status 3 code block (999)
' -------------------------

' Energy transfer gene - get more energy if the para is short in energy.
cond
*999 3 =
*.nrg 700 <
start
666 .tienum store
-20 .tieval store
-1 .tieloc store
stop

' Energy transfer gene - regular
cond
*999 3 =
*.refnrg 1000 >
*.refnrg 2500 <
*.nrg 700 >
start
666 .tienum store
-10 .tieval store
-1 .tieloc store
stop

' Energy transfer gene - maximal
cond
*999 3 =
*.refnrg 2500 >
start
666 .tienum store
-15 .tieval store
-1 .tieloc store
stop

' Move to code block of status 4 - multiply
cond
*.nrg 3050 >
start
4 999 store
stop

' =====================================

' -------------------------
' status 2 code block (999)
' -------------------------

' Set .fixang for host
cond
*999 2 =
start
666 .tienum store
628 .tieval store
.fixang .tieloc store
3 999 store
stop

' ==========================
?
' -------------------------
' status 1 code block (999)
' -------------------------

' fix view on tie
cond
*999 1 =
start
666 .tienum store
0 .fixang store
stop

' Check if this host really without and para attached to it.
cond
*999 1 =
*.reftie 0 !=
start
666 .deltie store
0 999 store
stop

' Detach tie from veggies
cond
*999 1 =
*.refshoot 0 =
*.reffixed 1 =
start
666 .deltie store
0 999 store
stop

' Make first contect with host - set its .tienum to 666 for fixang in status 2
cond
*999 1 =
start
666 .tienum store
666 .tieval store
.tienum .tieloc store
stop

' Move to status 2 gene
cond
*999 1 =
*.multi 1 =
start
2 999 store
stop

' ===========================================================================

' -------------------------
' status 0 code block (999)
' -------------------------

' Wide search pattern (left and right)
cond
*999 0 =
' *.eye3 30 <
*.eye3 *.eye5 >
*.eye3 *.eye7 >
start
120 .aimsx store
stop

cond
*999 0 =
' *.eye7 30 <
*.eye7 *.eye5 >
*.eye7 *.eye3 >
start
-120 .aimsx store
stop

' Narrow search pattern (left and right)
cond
*999 0 =
*.eye4 20 <
*.eye4 *.eye5 >
*.eye4 *.eye6 >
start
100 .aimsx store
stop

cond
*999 0 =
*.eye6 20 <
*.eye6 *.eye5 >
*.eye6 *.eye4 >
start
-100 .aimsx store
stop

' Move away from veg gene
cond
*999 0 =
*.refshoot 0 =
*.eye5 65 >
start
200 .aimsx store
stop

' Move away from my own family gene
cond
*999 0 =
*.in1 666 =
start
-100 .aimsx store
stop

' Axccel gene
cond
*999 0 =
start
*.maxvel *.vel sub .up store
stop


' Tie creation gene
cond
*999 0 =
*.numties 0 =
*.eye5 20 >
*.refshoot 0 >
*.reffixed 0 =
*.in1 666 !=
*.reftie 0 =
start
666 .tie store
0 .aimsx store
0 .up store
-1 999 store
stop
' ====================================

end