Author Topic: HDV4 (F1)(PY)-pre30.07.04  (Read 1634 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
HDV4 (F1)(PY)-pre30.07.04
« on: February 21, 2005, 01:04:39 PM »
Code: [Select]
' H_Devincio_Venator 4
' HDV4
' *** Tie Hunter ***
' By PY
' The next generation for V2.13
' F1 robot second generation tie feeder
' Kinda old now but still kicks ass
'***********************



'reproduce
'***********
cond
    *.nrg 5000 >
    *.eye5 0 =
  start
    10 .repro store
    2 50 store
    150 .aimdx store
stop

'initialize
'*********
cond
    *.robage 0 =
  start
    8 rnd 2 add 51 store
    25 55 store
stop

' move forward
'****************
cond
    *50 10 >
    *.vel 20 <
  start
    5 .up store
 stop

cond
    *.eye5 0 >
  start
    20 .up store
stop

cond
    *50 100 <
  start
    50 inc
stop

'turn towards food
'*************************
cond
    *.eye1 *.eye9 !=
  start
    *.eye9 *.eye1 sub 4 mult .aimdx store
stop

cond
    *.eye2 *.eye8 !=
  start
    *.eye8 *.eye2 sub 3 mult .aimdx store
stop

cond
    *.eye3 *.eye7 !=
  start
    *.eye7 *.eye3 sub 2 mult .aimdx store
stop

cond
    *.eye4 *.eye6 !=
  start
    *.eye6 *.eye4 sub .aimdx store
stop


'avoid other conspecifics
'****************************
cond
    *.refeye *55 =
    *.eye5 20 >
  start
    180 .aimsx 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

'Tie to an enemy
'********************
cond
    *.eye5 30 >
    *.eye5 *.eye4 =
    *.eye5 *.eye6 =
    *.refeye *55 !=
  start
    *51 .tie store
    0 .aimdx store
stop

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

cond
*.slime 100 <
start
50 .mkslime store
stop

cond
*.refeye *55 !=
*.eye5 50 >
start
-1 .shoot store
stop

cond
*.nrg 1000 >
*.poison 100 <
start
10 .strpoison store
stop

end
« Last Edit: May 07, 2014, 12:50:27 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D