BotTxt
From WikiManual
DB Bots
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
