Author Topic: Devincio Dominator (F1)(PY)-03.03.04  (Read 1291 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2554
    • View Profile
    • http://kuro-tejina.com
Devincio Dominator (F1)(PY)-03.03.04
« on: February 21, 2005, 11:08:35 AM »
Code: [Select]
'Devincio_Dominator3
'***********************
' F1 tie feeder with specialized features
' Built prior to V2.3
' PY

'initialize
'*********
cond
    *.robage 0 =
  start
    8 rnd 2 add 51 store
    45 55 store
    .tie inc
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

'turn towards food
'*************************
'avoid other conspecifics
'****************************
cond
start
mult 0
stop

cond
*.eye4 *.eye6 >
start
mult -15
stop

cond
*.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
*.robage 50 <
*.nrg 2800 >
*.eye5 50 <
start
50 .repro store
mult 250
stop

cond
    *.nrg 6000 >
    *.eye5 50 <
  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
    65 inc
stop

' Actually rotate
' *****************
cond
start
     .aimdx store
stop

' sever ties to conspecifics
' *****************************
cond
    *.trefeye *55 =
  start
    *51 .deltie store
stop

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

cond
*.numties 0 =
*65 0 !=
start
65 dec
stop

cond
start
100 .mkslime store
stop

cond
*.refeye *55 !=
*.refeye 0 !=
*.eye5 0 >
start
.mkslime .shoot store
-100 .shootval store
stop

end
« Last Edit: May 07, 2014, 12:54:19 PM by Botsareus »
There are 10 kinds of people in the world

Those who understand binary.

and those who don't

:D PY :D