Darwinbots Forum
Bots and Simulations => Bestiary => F1 bots => Topic started by: PurpleYouko on February 21, 2005, 11:12:55 AM
-
'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