[Interesting Behavior Bots] Alga Reed Series [Vegetables]

[spike43884]

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

[spork22]

How's the caterpillar snake thing going?

[spike43884]

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'