'Topic: bug & questions
'Scarab Drowner
'Testbot 1
' velocity, make the sucker move
cond
*.nrg 20000 <
*.vel 30 <
start
30 *.vel sub 2 div .up store
stop
' get a random number for later use
cond
*.robage 0 =
start
10 rnd 1 add 53 store
0 *50 store
stop
' artificial age counter
cond
*50 32000 <
start
50 inc
stop
' turn waste into poison to use later
cond
*.waste 49 >
start
50 .strpoison store
stop
' look for food 1 of 4
cond
*.eye1 *.eye5 >
*.eye1 *.eye9 >
start
mult -110
3 .up store
stop
' look for food 2 of 4
cond
*.eye9 *.eye5 >
*.eye9 *.eye1 >
start
mult 110
3 .up store
stop
' look for food 3 of 4
cond
*.eye3 *.eye5 >
*.eye3 *.eye7 >
start
mult -70
2 .up store
stop
' look for food 4 of 4
cond
*.eye7 *.eye5 >
*.eye7 *.eye3 >
start
mult 70
2 .up store
stop
'cond
' *.eye5 40 >
'start
' -1 .shoot store
'stop
' attach to food or enemy
cond
*.eye5 30 >
*.eye4 *.eye6 =
*.refeye 20 !=
*50 2 >
start
*53 .tie store
mult 0
stop
cond
start
.aimdx store
stop
' drain energy from food or enemy
cond
*.numties 0 >
start
*53 .tienum store
-1000 .tieval store
-1 .tieloc store
stop
' avoid same species
cond
*.refeye 20 =
*.eye5 20 >
start
280 .aimsx store
stop
' delete tie connected to family
cond
*.trefeye 20 =
start
*51 .deltie store
stop
' paralyze different species, but not vegs
'cond
'*.eye5 20 >
'*.refshoot 0 =
'*.refeye 20 !=
'*.poison 50 >
'start
'827 .shoot store
'50 .shootval store
'stop
' reproduce
cond
*50 1000 >
*.nrg 10000 >
start
25 .repro store
0 *50 store
stop
‘ tie to parent
cond
*.robage 0 =
start
.tie inc
stop
‘ sever tie to parent
cond
*.robage 1 =
start
.deltie inc
stop
' make slime to protect from enemy ties
cond
*.slime 90 <
start
10 .mkslime store
stop
' defense to make enemy give energy instead of taking it
'cond
'*.numties 0 >
'start
'453 .shoot store
'1000 .shootval store
'stop
' defense against enemy ties
cond
start
*.nrg *.78 store
stop
cond
*.numties 0 >
*.78 1000 sub *.nrg =
start
.tie inc
*53 .tie store
0 .aimdx store
*53 .tienum store
-1000 .tieval store
-1 .tieloc store
stop
' when full stop and rest
cond
*.nrg 32000 =
start
*.vel 0 store
stop
end
