BotTxt
From WikiManual
DB Bots
The idea here is to collect Bots and their text here ...
so people can go through and ask questions about how
various genes work.
Click on discussion and start one.
Contents
C_Circumgirans
' Comisia Circumgirans ' ' Robot NanniMorettiano ' (you'd need to know some italian politics ' to understand that... I hope you don't) ' Evolved 2002 from c. ancestralis ' ' A very efficient robot, it has the ability ' to move in swarms (swarms that become ' round when there is no food in sight, ' so the name). cond *.eye6 0 != start 21 40 store 17 .aimdx store stop cond start 16 .aimsx store stop cond *.eye8 -1 != start -4 .dn store 4 .up store stop cond *.aimdx 0 > start -1 .shoot store 6 .nrg store stop cond *.refsx 6181 !%= *.nrg 6181 > start 430 .aimdx store 50 .repro store 42 .out1 store 37 stop end
Devincio_Dominator_Invincibalis
'Devincio_Dominator_Invincibalis
'uses tie defence system
'***********************
'initialize
'*********
cond
*.robage 0 =
start
42 55 store
.tie inc
stop
cond
*.robage 1 =
start
.deltie inc
stop
cond
*.robage 300 >
*.nrg 3000 >
*.body 5000 <
start
100 .strbody store
stop
cond
*.body 100 >
*.nrg 500 <
start
100 .fdbody store
stop
' move forward
'****************
cond
*.refeye *.myeye !=
*.numties 0 =
start
*.maxvel *.vel sub .up store
stop
'turn towards food
'*************************
'avoid other conspecifics
'****************************
cond
start
mult mult 0 0
stop
cond
*.eye4 *.eye6 >
start
mult mult -5 -25
stop
cond
*.eye6 *.eye4 >
start
mult mult 5 25
stop
cond
*.eye3 *.eye5 >
*.eye3 *.eye4 >
*.eye3 *.eye6 >
start
mult mult -8 -80
stop
cond
*.eye7 *.eye5 >
*.eye7 *.eye6 >
*.eye7 *.eye4 >
start
mult mult 8 80
stop
cond
*.eye1 *.eye5 >
*.eye1 *.eye4 >
*.eye1 *.eye6 >
*.eye1 *.eye3 >
*.eye1 *.eye7 >
start
mult mult -14 -140
stop
cond
*.eye9 *.eye5 >
*.eye9 *.eye4 >
*.eye9 *.eye6 >
*.eye9 *.eye3 >
*.eye9 *.eye7 >
start
mult mult 14 140
stop
' Avoid conspecifics
' ***********************
cond
*.refeye *.myeye =
start
mult mult 0 85
stop
'reproduce
'***********
cond
*.robage 50 <
*.eye5 50 <
*.nrg 1500 >
start
50 .repro store
mult mult 0 250
stop
cond
*.nrg 5000 >
*.eye5 50 <
start
40 .repro store
mult mult 0 250
stop
'Feed
'******
cond
*.tiepres *51 !=
*.numties 0 >
start
*.tiepres .tienum store
1000 .tieval store
.tieval .tieloc store
stop
cond
*.multi 1 =
start
*.tiepres .deltie store
99 .sharenrg store
stop
cond
*52 2 =
start
*51 .deltie store
0 52 store
stop
cond
*52 0 >
start
*51 .tienum store
-1000 .tieval store
-1 .tieloc store
52 inc
stop
' sever ties to conspecifics
' *****************************
cond
*.trefeye *55 =
start
*.tiepres .deltie store
stop
' delete painful tie
' ******************
cond
*.numties 0 >
*.pain 500 >
start
*.tiepres .deltie store
stop
'Tie to an enemy
'********************
cond
*.eye5 50 >
*.eye6 *.eye4 %=
*.refeye *.myeye !=
*.robage 0 >
start
800 rnd 100 add 51 store
*51 .tie store
*51 .readtie store
mult mult 0 0
52 inc
stop
' Actually rotate
' *****************
cond
start
.aimdx store
.dx store
stop
cond
*.refeye *.myeye !=
*.refeye 1 !=
*.eye5 50 >
start
-6 .shoot store
stop
cond
*.waste 100 >
start
1 .backshot store
-4 .shoot store
*.waste .shootval store
stop
cond
*.poison 1000 <
*.nrg 1000 >
start
10 .strpoison store
stop
end
Devincio_Eversor
'Devincio_Eversor ' *** Tie Destroyerr *** '*********************** 'initialize '********* cond *.robage 0 = start 8 rnd 2 add 51 store 45 55 store *51 .tie store stop ' move forward '**************** cond *.refeye *55 != start 30 *.vel sub .up store stop cond *.refeye *55 != *.refeye 0 != *.eye5 80 > start 40 *.vel sub .up store stop cond *.refeye *55 = *.eye5 50 > start 2 .dn store stop 'turn towards food '************************* 'avoid other conspecifics '**************************** cond start mult 0 stop cond '*.eye4 *.eye5 > *.eye4 *.eye6 > start mult -15 stop cond '*.eye6 *.eye5 > *.eye6 *.eye4 > start mult 15 stop cond *.eye3 *.eye5 > *.eye3 *.eye4 > *.eye3 *.eye6 > start mult -50 stop cond *.eye7 *.eye5 > *.eye7 *.eye6 > *.eye7 *.eye4 > start mult 50 stop cond *.eye1 *.eye5 > *.eye1 *.eye4 > *.eye1 *.eye6 > *.eye1 *.eye3 > *.eye1 *.eye7 > start mult -100 stop cond *.eye9 *.eye5 > *.eye9 *.eye4 > *.eye9 *.eye6 > *.eye9 *.eye3 > *.eye9 *.eye7 > start mult 100 stop ' Avoid conspecifics ' *********************** cond *.refeye *55 = start mult 85 stop 'reproduce '*********** cond *.nrg 4000 > *.eye5 0 = start 25 .repro store mult 250 stop 'Tie to an enemy '******************** cond *.eye5 30 > *.eye5 *.eye4 = *.eye5 *.eye6 = *.refeye *55 != start *51 .tie store mult 0 stop ' Actually rotate ' ***************** cond start .aimdx store stop ' sever ties to conspecifics ' ***************************** cond *.trefeye *55 = start *51 .deltie store stop 'Spin when attacked '************************* cond *.shdn 0 < *.pleas -10 < start 620 .aimsx store stop cond *.hitdn 0 != start 620 .aimsx store stop 'Feed '****** cond *.numties 0 > start *51 .tienum store -1000 .tieval store -1 .tieloc store *51 .readtie store stop cond *.numties 0 > *.waste 100 > *.trefeye 0 = start 1000 .tieval store -4 .tieloc store stop cond *.slime 90 < start 50 .mkslime store stop cond *.refeye *55 != *.eye5 50 > start -1 .shoot store stop end
Hunter V2.13
'New generation Hunter bot with state of the art features '*********************** 'reproduce '********* cond *.nrg 4000 > start 60 .repro store 628 .aimsx store 1 40 store stop cond *.robage 0 = start 1 .tie store stop cond *.robage 1 = start 314 .aimdx store stop cond *.robage 3 = start 314 .aimsx store stop cond *40 0 != start 40 inc stop cond *.eye5 80 < *.refeye 18 != start 30 *.vel sub 3 div .up store stop 'turn towards enemies or food '************************* cond *.eye1 *.eye5 > *.eye1 *.eye9 > start 100 .aimsx store '5 .sx store stop cond *.eye9 *.eye5 > *.eye9 *.eye1 > start -100 .aimsx store '5 .dx store stop cond *.eye3 *.eye5 > *.eye3 *.eye7 > start 50 .aimsx store '5 .sx store stop cond *.eye7 *.eye5 > *.eye7 *.eye3 > start -50 .aimsx store '5 .dx store stop cond *40 3 = start 628 .aimdx store 0 40 store stop 'avoid conspecifics '**************************** cond *.refeye 18 = '*.eye5 30 > start 120 .aimsx store stop 'shoot at enemy '****************** cond *.eye5 50 > *.refeye 18 != start -1 .shoot store stop 'delete ties '********* cond *.numties 0 > start 1 .deltie store stop cond start 100 .mkslime store stop end
