' VegSWARM
'
' A vegetable that swarms
cond
start
.tie 1 *.robage sub 0 floor mult inc
.deltie inc
*.maxvel *.vel sub .up store
*.eye1 *.eye9 sub 2 mult .aimdx store
stop
cond
*.robage 0 =
start
1220 .eye5width store
stop
' Swarm
cond
*.eye5 0 >
*.refeye *.myeye =
*.robage 5 mod 0 =
start
*.refaim .setaim *.robage sgn mult store
stop
' Reproduce
cond
*.robage 50 mod 0 =
*.nrg 7000 1000 rnd sub >
start
50 .repro store
stop
end