Author Topic: Devincio Eversor (F1)(PY)-pre 30.07.04  (Read 3285 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
Devincio Eversor (F1)(PY)-pre 30.07.04
« on: February 21, 2005, 11:12:55 AM »
Code: [Select]
'Devincio_Eversor
' *** Tie Destroyer ***
'***********************
' Second generation tie feeder
' Not very good since V2.3 as
' his stearing is screwed up.
' At one time he OWNED DarwinBots
' PY

'initialize
'*********
cond
    *.robage 0 =
  start
    8 rnd 2 add 51 store
    45 55 store
    '*51 .tie store
    0 .deltie 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
« Last Edit: May 07, 2014, 12:53:45 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D