Darwinbots Forum
Bots and Simulations => Bestiary => Untagged bots => Topic started by: NotLegalTender on October 25, 2014, 09:00:04 PM
-
'Parasitic algae v2
'A rewrite of the current parasitic algae
'By Joseph
cond
*.nrg 10000 >=
*.daytime 1 =
start
1 .mkchlr store
stop
cond
*.body 1800 <=
*.nrg 10000 >=
*.daytime 0 =
start
1 .strbody store
stop
cond
*.nrg 10000 >=
*.daytime 1 =
start
1 .fixpos store
stop
cond
*.nrg 10000 >=
*.daytime 0 =
start
0 .fixpos store
stop
cond
*.nrg 10000 <=
start
0 .fixpos store
stop
cond
*.nrg 10000 >=
*.daytime 0 =
*.poison 500 <
start
50 .strpoison store
stop
cond
*.robage 0 =
start
.shoot .ploc store
stop
cond
*.robage 2 =
start
0 .fixpos store
stop
cond
*.nrg 10000 >=
*.daytime 0
start
*.setboy store 1000
stop
*.light 39 3 pow mult 3 root 2 pow 39 div 2 pow 169 div 154 mult 19601 div 32000 ceil
cond
*.nrg 21000 >=
start
10 .repro store
stop
-4 *.eye1 *.eye9 sub sgn 0 floor mult *.eye1 *.eye8 sub sgn 0 floor mult *.eye1 *.eye7 sub
sgn 0 floor mult *.eye1 *.eye6 sub sgn 0 floor mult *.eye1 *.eye5 sub sgn 0 floor mult
*.eye1 *.eye4 sub sgn 0 floor mult *.eye1 *.eye3 sub sgn 0 floor mult *.eye1 *.eye2 sub sgn
0 floor mult 4 *.eye9 *.eye8 sub sgn 0 floor mult *.eye9 *.eye7 sub sgn 0 floor mult *.eye9
*.eye6 sub sgn 0 floor mult *.eye9 *.eye5 sub sgn 0 floor mult *.eye9 *.eye4 sub sgn 0
floor mult *.eye9 *.eye3 sub sgn 0 floor mult *.eye9 *.eye2 sub sgn 0 floor mult *.eye9
*.eye1 sub sgn ++ sgn mult add -3 *.eye2 *.eye9 sub sgn ++ sgn mult *.eye2 *.eye8 sub sgn 0
floor mult *.eye2 *.eye7 sub sgn 0 floor mult *.eye2 *.eye6 sub sgn 0 floor mult *.eye2
*.eye5 sub sgn 0 floor mult *.eye2 *.eye4 sub sgn 0 floor mult *.eye2 *.eye3 sub sgn 0
floor mult *.eye2 *.eye1 sub sgn ++ sgn mult add 3 *.eye8 *.eye9 sub sgn ++ sgn mult *.eye8
*.eye7 sub sgn 0 floor mult *.eye8 *.eye6 sub sgn 0 floor mult *.eye8 *.eye5 sub sgn 0
floor mult *.eye8 *.eye4 sub sgn 0 floor mult *.eye8 *.eye3 sub sgn 0 floor mult *.eye8
*.eye2 sub sgn ++ sgn mult *.eye8 *.eye1 sub sgn ++ sgn mult add -2 *.eye3 *.eye9 sub sgn
++ sgn mult *.eye3 *.eye8 sub sgn ++ sgn mult *.eye3 *.eye7 sub sgn 0 floor mult *.eye3
*.eye6 sub sgn 0 floor mult *.eye3 *.eye5 sub sgn 0 floor mult *.eye3 *.eye4 sub sgn 0
floor mult *.eye3 *.eye2 sub sgn ++ sgn mult *.eye3 *.eye1 sub sgn ++ sgn mult add 2 *.eye7
*.eye9 sub sgn ++ sgn mult *.eye7 *.eye8 sub sgn ++ sgn mult *.eye7 *.eye7 sub sgn 0 floor
mult *.eye7 *.eye6 sub sgn 0 floor mult *.eye7 *.eye5 sub sgn 0 floor mult *.eye7 *.eye4
sub sgn ++ sgn mult *.eye7 *.eye2 sub sgn ++ sgn mult *.eye7 *.eye1 sub sgn ++ sgn mult add
-1 *.eye4 *.eye9 sub sgn ++ sgn mult *.eye4 *.eye8 sub sgn ++ sgn mult *.eye4 *.eye7 sub
sgn ++ sgn mult *.eye4 *.eye6 sub sgn 0 floor mult *.eye4 *.eye5 sub sgn 0 floor mult
*.eye4 *.eye3 sub sgn ++ sgn mult *.eye4 *.eye2 sub sgn ++ sgn mult *.eye4 *.eye1 sub sgn
++ sgn mult add 1 *.eye6 *.eye9 sub sgn ++ sgn mult *.eye6 *.eye8 sub sgn ++ sgn mult
*.eye6 *.eye7 sub sgn ++ sgn mult *.eye6 *.eye6 sub sgn ++ sgn mult *.eye6 *.eye5 sub sgn 0
floor mult *.eye6 *.eye3 sub sgn ++ sgn mult *.eye6 *.eye2 sub sgn ++ sgn mult *.eye6
*.eye1 sub sgn ++ sgn mult add 4 add *.focuseye 4 add sub dup sgn -- sgn ++ .focuseye mult
inc -- dup sgn -- sgn ++ .focuseye mult inc -- dup sgn -- sgn ++ .focuseye mult inc -- dup
sgn -- sgn ++ .focuseye mult inc -- dup sgn -- sgn ++ .focuseye mult inc -- dup sgn -- sgn
++ .focuseye mult inc -- dup sgn -- sgn ++ .focuseye mult inc -- dup sgn -- sgn ++
.focuseye mult inc -- dup sgn -- sgn ++ .focuseye mult inc -- 9 add - dup sgn -- sgn ++
.focuseye mult dec -- dup sgn -- sgn ++ .focuseye mult dec -- dup sgn -- sgn ++ .focuseye
mult dec -- dup sgn -- sgn ++ .focuseye mult dec -- dup sgn -- sgn ++ .focuseye mult dec --
dup sgn -- sgn ++ .focuseye mult dec -- dup sgn -- sgn ++ .focuseye mult dec -- dup sgn --
sgn ++ .focuseye mult dec -- dup sgn -- sgn ++ .focuseye mult dec --
cond
start
224 .out 1 store
stop
cond
224 *.in1 !=
start
10 .up store
5 .tie store
stop
cond
*.numties 1 >=
224 *.in1 !=
start
-1 .tieloc store
-100 tieval store
stop
'move from dead body
cond
224 *.in1 !=
.refnrg 0 =
start
-20. up store
stop
'move from parent
cond
*.nrg 10000 >
*.robage 3 =
start
-20 .up store
stop
cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop
cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop
cond
*.robage 0 =
start
.fixpos .vloc store
1 .venval store
stop
cond
100 *.venom >
start
100 *.venom sub .strvenom store
stop
cond
*.refeye *.myeye !=
*.refeye 0 >
*.eye5 30 >
start
'fire venom
-3 .shoot store
stop
cond
*.numties 1 >=
224 *.in1 =
start
*.tiepres .deltie store
stop
cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop
cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop
cond
*.refeye *.myeye !=
*.eye5 45 >
start
13 .tie *.robage sgn mult *.refage sgn mult store
stop
cond
*.refeye *.myeye !=
*.eye5 45 >
start
13 .tie *.robage sgn mult *.refage sgn mult store
stop
cond
*.tiepres 0 >
*.tienum 0 =
start
*.tiepres .tienum store
stop
cond
*.tienum 0 >
start
-1 .tieloc store
-1000 .tieval store
stop
cond
*.waste 40 >
start
.backshot inc
-4 .shoot store
*.waste .shootval store
stop
-
Thank you for stopping by Joe :)