Author Topic: VegSwarm (Veg)(Elite)-10.03.07  (Read 3673 times)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
VegSwarm (Veg)(Elite)-10.03.07
« on: March 11, 2007, 08:32:00 AM »
' 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
If you try and take a cat apart to see how it works, the first thing you have in your hands is a non-working cat.
Douglas Adams