Difference between revisions of "BotTxt"

From WikiManual
Jump to: navigation, search
m
m
Line 1: Line 1:
 
DB Bots
 
DB Bots
 +
 +
===C_Circumgirans===
 +
<pre>
 +
' 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
 +
</pre>
  
 
===Devincio_Dominator_Invincibalis===
 
===Devincio_Dominator_Invincibalis===

Revision as of 11:53, 31 January 2006

DB Bots

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


next


next