Author Topic: Flitter(F1)(bacillus)-30.04.08  (Read 3060 times)

Offline bacillus

  • Bot Overlord
  • ****
  • Posts: 907
    • View Profile
Flitter(F1)(bacillus)-30.04.08
« on: April 29, 2008, 10:38:01 PM »
Code: [Select]
'Flitter
'A hyperactive bot by bacillus
'Moves quickly, then fixes itself to feed
start
 -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 *.eye4 *.eye9 sub sgn ++ sgn mult *.eye4 *.eye8 sub sgn ++ sgn mult *.eye4    *.eye7 sub sgn ++ sgn mult *.eye4 *.eye6 sub sgn ++ sgn 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 0 *.eye5 *.eye9 sub sgn ++ sgn mult *.eye5 *.eye8 sub sgn ++ sgn mult *.eye5 *.eye7 sub     sgn ++ sgn mult *.eye5 *.eye6 sub sgn ++ sgn mult *.eye5 *.eye4 sub sgn ++ sgn mult *.eye5 *.eye3   sub sgn ++ sgn mult *.eye5 *.eye2 sub sgn ++ sgn mult *.eye5 *.eye1 sub sgn ++ sgn mult add .focuseye store
 .dnalen .memloc store
 *.nrg 3 div *.body sub dup .strbody store - .fdbody store
 *.maxvel .up store
 *.dnalen *.memval sub sgn abs *.eye5 40 sub sgn 0 floor mult .fixpos store
 99 .sharenrg store
 -1 .tieloc store
 -1000 .tieval store
stop

cond
 *.eyef 0 =
start
 *.maxvel *.refvelsx add .dx store
stop

cond
 *.dnalen *.memval !=
 *.refnrg 0 >
 *.eyef 0 >
start
 *.refxpos *.refypos angle .setaim store
stop

cond
 *.eye5 1000 >
 *.dnalen *.memval !=
 *.reffixed 0 !=
start
 *.nrg 10 div .shootval store
stop

cond
 *.eye5 40 >
 *.dnalen *.memval !=
 *.reffixed 0 !=
start
 -6 .shoot store
 .tie inc
stop

cond
 *.eye5 40 >
 *.dnalen *.memval !=
 *.reffixed 0 =
start
 .shootval inc
 .fixpos .shoot store
stop

cond
 *.nrg 1000 >
start
 45 .repro store
stop
« Last Edit: May 07, 2014, 11:09:50 AM by Botsareus »
"They laughed at Columbus, they laughed at Fulton, they laughed at the Wright brothers. But they also laughed at Bozo the Clown."
- Carl Sagan

Offline gymsum

  • Bot Destroyer
  • ***
  • Posts: 215
    • View Profile
Flitter(F1)(bacillus)-30.04.08
« Reply #1 on: April 30, 2008, 12:27:19 PM »
Not sure I understand, what does it filter?

Offline Moonfisher

  • Bot Overlord
  • ****
  • Posts: 592
    • View Profile
Flitter(F1)(bacillus)-30.04.08
« Reply #2 on: April 30, 2008, 01:09:55 PM »
Not filter... flitter
Verb   1.   flitter - move back and forth very rapidly; "the candle flickered"

Offline bacillus

  • Bot Overlord
  • ****
  • Posts: 907
    • View Profile
Flitter(F1)(bacillus)-30.04.08
« Reply #3 on: April 30, 2008, 05:40:54 PM »
Not to flicker, to flit    
"They laughed at Columbus, they laughed at Fulton, they laughed at the Wright brothers. But they also laughed at Bozo the Clown."
- Carl Sagan