Author Topic: [Interesting Behavior Bots] Alga Reed Series [Vegetables]  (Read 4042 times)

Offline spike43884

  • Bot Overlord
  • ****
  • Posts: 656
    • View Profile
[Interesting Behavior Bots] Alga Reed Series [Vegetables]
« on: March 12, 2015, 01:26:55 PM »
This is a collection of similar bots (Actually versions technically, but each is really different and interesting) - These were meant to be reed-like structures but the only time they float up is when not tied (that needs fixing by someone as Alpha-Reed, the ultimate goal)
Alga-reed 2
Code: [Select]
'Alga Reed (Pondmode Plant)
'Good little floater, even has a head.
'By Spike43884
'-------------------------------------------
'Derived from Alga_Minimalis_Chloroplastus
'Your code management is terrible though botsareus, so long and hard to
'comprehend!

def head 50
def float 51


'Gene Reproduction
cond
*.nrg 2000 >
*.numties 1 =<
*.head 0 =
start
50 .repro store
stop


'Gene Recombine
cond
*.robage 0 =
start
1 .tie store
stop


'Gene Head Specification
cond
*.robage 0 !=
*.numties 0 =
start
1 .head store
stop


'Gene 1st reproduction
cond
*.numties 0 =
*.head 1 =
*.nrg 2000 >
start
40 .repro store
stop


'Gene Head Sharing
cond
*.head 1 =
*.multi 1 =
start
50 .sharenrg store
stop


'Gene Body Sharing (and body tielengths)
cond
*.head 0 =
*.multi 1 =
start
50 .sharnrg store
20 .fixlen store
90 .stifftie store
stop


'Gene head tielength override
cond
*.head 1 =
*.multi 1 =
start
200 .fixlen store
100 .stifftie store
314 .setaun store
628 .fixang store
stop


'Gene Bouyancy
cond
*.head 1 =
start
 *.float *.rdboy sub .setboy store
stop


'Gene Setting float (Specifys a rough range for bouyancy to work from)
cond
start
22000 rnd 6000 rnd add .float store
stop


'Gene Tell our bouyancy to the body
cond
*.head 1 =
start
*.rdboy .tout1 store
stop


'Gene Follow the head a bit.
cond
*.head 0 =
start
*.tout1 *.rdboy sub 500 sub .setboy store
stop


'Gene Chloroplasts
cond
*.nrg 1000 >
*.nrg 2000 <
start
100 .mkchlr store
stop


'Gene Corpse Feeding
cond
*.nrg 0 =
*.eye5 0 != and
*.reftype 0 = and
start
6 .shoot store
stop




end

Alga-reed 3
Code: [Select]
'Alga Reed (Pondmode Plant)
'Good little floater, even has a head.
'By Spike43884
'-------------------------------------------
'Derived from Alga_Minimalis_Chloroplastus
'Your code management is terrible though botsareus, so long and hard to
'comprehend!

def head 50
def float 51


'Gene Reproduction
cond
*.nrg 2000 >
*.numties 1 =<
*.head 0 =
*.robage 2 =
start
50 .repro store
stop


'Gene Recombine
cond
*.robage 0 =
start
1 .tie store
stop


'Gene Head Specification
cond
*.robage 0 !=
*.numties 0 =
start
1 .head store
stop


'Gene 1st reproduction
cond
*.numties 0 =
*.head 1 =
*.nrg 2000
*.robage 1 =
start
40 .repro store
stop


'Gene Head Sharing
cond
*.head 1 =
*.multi 1 =
start
50 .sharenrg store
stop


'Gene Body Sharing (and body tielengths)
cond
*.head 0 =
*.multi 1 =
start
50 .sharnrg store
20 .fixlen store
90 .stifftie store
stop


'Gene head tielength override
cond
*.head 1 =
*.multi 1 =
start
200 .fixlen store
100 .stifftie store
314 .setaun store
628 .fixang store
stop


'Gene Bouyancy
cond
*.head 1 =
start
 *.float *.rdboy sub .setboy store
stop


'Gene Setting float (Specifys a rough range for bouyancy to work from)
cond
start
25000 4999 rnd add .float store
stop


'Gene Tell our bouyancy to the body
cond
*.head 1 =
start
*.rdboy .tout1 store
stop


'Gene Follow the head a bit.
cond
*.head 0 =
start
*.tout1 *.rdboy sub 3 sub .setboy store
stop


'Gene Chloroplasts
cond
*.nrg 1000 >
*.nrg 2000 <
start
100 .mkchlr store
stop


'Gene Corpse Feeding
cond
*.nrg 0 =
*.eye5 0 != and
*.reftype 0 = and
start
6 .shoot store
stop




end

Alga-reed 3B
Code: [Select]
'Alga Reed (Pondmode Plant)
'Good little floater, even has a head.
'By Spike43884
'-------------------------------------------
'Derived from Alga_Minimalis_Chloroplastus
'Your code management is terrible though botsareus, so long and hard to
'comprehend!

def head 50
def float 51


'Gene Reproduction
cond
*.nrg 2000 >
*.numties 1 =<
*.head 0 =
*.robage 2 =
start
50 .repro store
stop


'Gene Recombine
cond
*.robage 0 =
start
1 .tie store
stop


'Gene Head Specification
cond
*.robage 0 !=
*.numties 0 =
start
1 .head store
stop


'Gene 1st reproduction
cond
*.numties 0 =
*.head 1 =
*.nrg 2000
*.robage 1 =
start
40 .repro store
stop


'Gene Head Sharing
cond
*.head 1 =
*.multi 1 =
start
50 .sharenrg store
stop


'Gene Body Sharing (and body tielengths)
cond
*.head 0 =
*.multi 1 =
start
50 .sharnrg store
20 .fixlen store
90 .stifftie store
stop


'Gene head tielength override
cond
*.head 1 =
*.multi 1 =
start
200 .fixlen store
100 .stifftie store
314 .setaun store
628 .fixang store
stop


'Gene Bouyancy
cond
*.head 1 =
start
 *.float *.rdboy sub 20 add .setboy store
stop


'Gene Setting float (Specifys a rough range for bouyancy to work from)
cond
start
27000 2000 rnd add .float store
stop


'Gene Tell our bouyancy to the body
cond
*.head 1 =
start
*.rdboy .tout1 store
stop


'Gene Follow the head a bit.
cond
*.head 0 =
start
*.tout1 *.rdboy sub 3 sub .setboy store
stop


'Gene Chloroplasts
cond
*.nrg 1000 >
*.nrg 2000 <
start
100 .mkchlr store
stop


'Gene Corpse Feeding
cond
*.nrg 0 =
*.eye5 0 != and
*.reftype 0 = and
start
6 .shoot store
stop




end

Alga-Reed 4
Code: [Select]
'Alga Reed (Pondmode Plant)
'Good little floater, even has a head.
'By Spike43884
'-------------------------------------------
'Derived from Alga_Minimalis_Chloroplastus
'Your code management is terrible though botsareus, so long and hard to
'comprehend!

def head 50
def float 51


'Gene Reproduction
cond
*.nrg 2000 >
*.numties 1 =<
*.head 0 =
*.robage 2 =
start
40 .repro store
stop


'Gene Recombine
cond
*.robage 0 =
start
1 .tie store
stop


'Gene Head Specification
cond
*.robage 0 !=
*.numties 0 =
start
1 .head store
stop


'Gene 1st reproduction
cond
*.numties 0 =
*.head 1 =
*.nrg 2000 >
*.robage 15 =
start
50 .repro store
stop


'Gene Head Sharing
cond
*.head 1 =
*.multi 1 =
start
50 .sharenrg store
stop


'Gene Body Sharing (and body tielengths)
cond
*.head 0 =
*.multi 1 =
start
50 .sharnrg store
20 .fixlen store
90 .stifftie store
stop


'Gene head tielength override
cond
*.head 1 =
*.multi 1 =
start
200 .fixlen store
100 .stifftie store
314 .setaun store
628 .fixang store
stop


'Gene Bouyancy
cond
*.head 1 =
start
 *.float .setboy store
stop


'Gene Setting float (Specifys a rough range for bouyancy to work from)
cond
start
25000 4999 rnd add .float store
stop


'Gene Tell our bouyancy to the body
cond
*.head 1 =
start
*.rdboy .tout1 store
stop


'Gene Follow the head a bit.
cond
*.head 0 =
start
*.tout1 *.rdboy 10 sub .setboy store
stop


'Gene Chloroplasts
cond
*.nrg 1000 >
*.nrg 2000 <
*.robage 0 !=
*.robage 1 !=
start
100 .mkchlr store
stop


'Gene Corpse Feeding
cond
*.nrg 0 =
*.eye5 0 != and
*.reftype 0 = and
start
6 .shoot store
stop




end
Autism can allow so much joy, and at the same time sadness to be seen. Our world is weird, and full of contradiction everywhere, yet somehow at moments seems to come together, and make near perfect sense.

Offline spork22

  • Bot Destroyer
  • ***
  • Posts: 328
    • View Profile
Re: [Interesting Behavior Bots] Alga Reed Series [Vegetables]
« Reply #1 on: March 14, 2015, 12:01:16 PM »
How's the caterpillar snake thing going?
Hubba Jubba Lollywash!

Offline spike43884

  • Bot Overlord
  • ****
  • Posts: 656
    • View Profile
Re: [Interesting Behavior Bots] Alga Reed Series [Vegetables]
« Reply #2 on: March 15, 2015, 04:53:32 PM »
How's the caterpillar snake thing going?
Theres a post somewhere in the DNA or bot tavern about it, i've not managed to fix it, its called 'Slither'
Autism can allow so much joy, and at the same time sadness to be seen. Our world is weird, and full of contradiction everywhere, yet somehow at moments seems to come together, and make near perfect sense.