'name: Carnivore Ivy
'description: Do not eat!

@
def red 227
def green 0
def blue 41

cond
*.robage 1 =
start
88 .out5 store
*.tiepres .deltie store
stop

cond
*.robage 40 <
start
1200 rnd .eye5dir store
*.maxvel .dn store
0 .fixpos store
stop

cond
*.robage 40 <
*.robage 10 >
*.numties 0 >
start
0 .dn store
stop

cond
*.robage 40 >
start
.shoot .ploc store
-2 .pval store
10 .strpoison store
-1 .tieloc store
1000 .tieval store
stop

cond
*.robage 40 <
*.robage 2 >
start
.fixpos .tieloc store
1 .tieval store
99 .sharenrg store
99 .shareslime store
99 .shareshell store
stop

cond
*.robage 40 <
*.in5 88 !=
start
99 .tie store
stop

cond
*.robage 40 >
*.nrg 20 div *.body 5 add >
start
10 .strbody store
stop

cond
*.robage 40 >
*.nrg 20 div *.body <
*.body 20 >
start
20 .fdbody store
stop

cond
*.robage 40 >
*.eye5 5 <
*999 0 =
start
0 .eye5dir store
*.tiepres .deltie store
165 .aimsx store
*.pleas 1 add .mkchlr store
stop

cond
*.robage 40 >
*.eye5 4 >
*.refage 20 >
*.in5 88 !=
start
0 .eye5dir store 
2 999 store
-1 .shoot store
stop

cond
*999 0 >
start
1 .repro store
10 .dn store
*999 2 sub 999 store
stop
end
