Topics

31

DNA - General / Schizofrenic Robots????

« on: January 28, 2008, 08:40:05 AM »

Schizofrenia is merely a split mind, aka two voices of the mind only on different levels and at higher magnitudes than what is considered 'normal'. Every bot I've seen that was succesful contained many different genes with various activators. One thing I haven't seen is a bot that had all of its gene active at once, with two different goals, yet still functioned properly. One idea which comes to mind would be using comparison operators, but then you soon see that the conditions are not always true. BY creating such a bot, a new breed of bots would be born, the always-activated-dual-minded-bots.

Any ideas?

32

DNA - General / Colors...

« on: January 26, 2008, 06:25:52 PM »

Is there a way to read the value assigned for the color of the robot? This would make for racial idnetification and camo.

33

Darwinbots3 / Chemical Enteractions

« on: January 19, 2008, 10:34:31 PM »

I think a set of values representing chemicals would be useful. I.E. if you want to create penecilin, or an anti-biotic for say  poison or venom, the proper chemicals would have to be created and manipulated to create the desired chemical or item. Also, between to possible mates, if they emmited some sort of 'odor' or chemical that had a field of strength (most likely beyound the fields of sight) and a certain response linked to that chemical receptor. This would be useful for selective mating rituals for sexual reproduction. Also, the length of genes could be emmited by the host to find which genes can be spliced with any random bot. Once all possible matches are selected, the bots' genes are spliced and the pairs assembled to resemble the structure of the parents and inheriting differnt values from either parent.

This wouldn't require a nose, it could be recieved by some receptor that handled chemical emissions, and could be omnipresent for the bot, or directional only. Also, energy should be emited in the form of electricty relative to how it works in real life. This could be used for special exspensive long-range sensors; animals such as Sharks use this for detecting dieing fish in the ocean. This information would flow best through the water environments than say the air, because of the liquids density vs the density of air.

Also, presure sensors would be nice for detecting that sneaky passer-by; if a bot moved away from you while faced away, a swell would be created behind the bot, its pressure sensors would notice a positive value to the back vs the front and would be able to use this information for hunting the unsuspecting.

34

Multi-Bots / Slim Evo (MB)(rsucoop)1-19-2008

« on: January 19, 2008, 06:45:34 PM »

Code: [Select]

'The Slim Evo Bot.

'-initialization
cond
*.robage 0 =
*.eye5 50 <
start
8 rnd 2 add 51 store
*51 .tie store
500 .fixlen store
4 .out4 store
1 40 store
stop
890 178 store

'Age 21 activator

cond
*.robage 21 =
*.trefage *.robage >
*.hit 0 =
start
*.trefaim .setaim store
stop

'Tie to Algea

cond
*140 0 =
*.eye5 50 >
*.refeye 0 =
*.numties 6 <
start
*51 .tie store
0 *40 store
75 *.aim add .setaim store
stop

'Identification Gene

cond
*120 1 =
*.out1 *.dnalen !=
*.refeye *.myeye =
start
*.dnalen .out1 store
*.in1 .out2 store
stop

cond
*140 0 =
*.in2 *.in1 =
*.in2 *.dnalen =
*.hit 0 >
start
-30 *.aim add .setaim store
stop

'Virus of the Hunter

cond
*.vtimer 0 =
*.mkvirus 0 !=
start
34 *.pleas add .vshoot store
stop

cond
*.nrg 4000 >
*.vtimer 0 =
*.robage 300 <
start
*.thisgene *40 add .mkvirus store
*40 1 add 40 store
stop

cond
*.out1 *.dnalen !=
*.out4 4 !=
*.vtimer 0 =
*.myeye 0 !=
start
*.thisgene .mkvirus store
0 .shoot store
*.aim dec
1 *.eye5width store
*.eye5width inc
*.nrg 2 div .mkshell store
*.body .vshoot store
*.thisgene 1 sub .delgene store
stop

'Vius of the weakling.
cond
*.nrg *.pain
 <
*.out4 4 !=
*.vtimer 0 =
start
*.thisgene .mkvirus store
*.vtimer *.eye4 mult 770 890 mult 1 mult .vshoot store
*.vshoot inc
stop

cond
*140 0 =
*.out4 4 !=
*.out1 *.dnalen !=
start
1 .delgene store
25 .mrepro store
1 40 store
*.dnalen .out1 store
stop

'Eye Commands
cond
*140 0 =
*.refeye *.myeye !=
*.eye5 *.eye1 >
*.eye5 *.eye2 >
*.eye5 *.eye3 >
*.eye5 *.eye4 >
*.eye5 *.eye6 >
*.eye5 *.eye7 >
*.eye5 *.eye8 >
*.eye5 *.eye9 >
start
*.eye5 .out2 store
*.aim .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye4 *.eye1 >
*.eye4 *.eye2 >
*.eye4 *.eye3 >
*.eye4 *.eye5 >
*.eye4 *.eye6 >
*.eye4 *.eye7 >
*.eye4 *.eye8 >
*.eye4 *.eye9 >
*.refeye 0 !=
strt
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.refeye 0 !=
*.eye3 *.eye4 >
*.eye3 *.eye1 >
*.eye3 *.eye2 >
*.eye3 *.eye6 >
*.eye3 *.eye7 >
*.eye3 *.eye8 >
*.eye3 *.eye9 >
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye2 *.eye1 >
*.eye2 *.eye6 >
*.eye2 *.eye7 >
*.eye2 *.eye8 >
*.eye2 *.eye9 >
*.eye2 *.eye4 >
*.eye2 *.eye3 >
*.eye2 *.eye5 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye1 *.eye6 >
*.eye1 *.eye7 >
*.eye1 *.eye8 >
*.eye1 *.eye9 >
*.eye1 *.eye2 >
*.eye1 *.eye3 >
*.eye1 *.eye4 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye6 *.eye7 >
*.eye6 *.eye8 >
*.eye6 *.eye9 >
*.eye6 *.eye5 >
*.eye6 *.eye3 >
*.eye6 *.eye4 >
*.eye6 *.eye2 >
*.eye6 *.eye1 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye7 *.eye8 >
*.eye7 *.eye9 >
*.eye7 *.eye6 >
*.eye7 *.eye5 >
*.eye7 *.eye4 >
*.eye7 *.eye3 >
*.eye7 *.eye2 >
*.eye7 *.eye1 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye8 *.eye9 >
*.eye8 *.eye2 >
*.eye8 *.eye3 >
*.eye8 *.eye4 >
*.eye8 *.eye5 >
*.eye8 *.eye6 >
*.eye8 *.eye7 >
*.eye8 *.eye1 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.eye9 *.eye5 >
*.eye9 *.eye8 >
*.eye9 *.eye1 >
*.eye9 *.eye4 >
*.refeye 0 !=
start
*.refxpos *.refypos angle .setaim store
stop

cond
*140 0 =
*.eye4 *.eye6 !=
start
*.eye4 *.eye6 sub .aimsx store
stop

'store important information about the enemy bot in memory locations 50 - 56

cond
*.eye5 0 >
*.refeye 0 !=
*.refeye *.myeye 0 !=
*140 0 =
start
3 59 store
*.refeye 50 store
*.refxpos 51 store
*.refypos 52 store
*.refvel 53 store
*.refaim 54 store
*62 55 store
*.eye5 56 store
0 57 store
1 59 store
stop

'update hibernate mode
cond
*121 0 =
*.eye5 0
*110 *120 sub *178 <
start
1 140 store
1 121 store
*110 *120 sub 178 store
stop

cond
*121 1 =
*.robage *120 sub *178 >
start
0 140 store
0 121 store
890 178 store
stop

cond
*.fixed 0 !=
start
.fixpos dec
stop

'Store away 10% of Nrg if 9% pleasure recieved

cond
*.nrg *.pain add 2 div 1 %=
*.body 800 <
start
*.nrg 10 div .strbody store
stop

'Maintain a body of 800

cond
*.nrg 1000 >
*.body 800 <
*.please *.nrg 10 div %=
start
*.nrg *.body div .strbody store
stop

'Feed when hungry from body

cond
*.nrg 500 <
*.body 0 >
*.pain *.nrg 10 div %=
start
*.body *.pain add 2 div .fdbody store
stop

'Read Ties
cond
*140 0 =
*.numties 0 >
*150 *.numties <
*.multi 0 >
149 1 =
start
*150 .tienum store
*150 .readtie store
*150 1 add 150 store
0 149 store
stop

'Reproduce when at right stage

cond
*140 0 =
*.nrg 4000 >
*.body 500 >
*.numties 0 >
*.pleas *.numties >
start
45 *.aim sub .setaim store
40 .repro store
90 *.aim add .setaim store
stop

'fixlength with parent cell
cond
*.tielen 100 <
*.multi 0 >
*.trefeye *.myeye %=
*.trefage *.robage >
start
100 .fixlen store
45 *.refaim add .fixang store
stop

'fixlength with veg to protect
cond
*.tielen 200 <
*.multi 0 >
*.trefeye 0 =
start
200 .fixlen store
0 .fixang store
stop

'go same speed as parent

cond
*.multi 0 >
*.trefage *.robage >
*.trefvel *.vel !=
start
*.trefvel .vel store
stop

'Feed from Algae Ties and give waste to the algae.

cond
*140 0 =
*.out3 0 =
start
*.nrg 3.5714205 mult *.nrg add .out3 store
*.nrg *.pain div *.pain add 170 store
stop

cond
*140 0 =
*170 *.trefnrg 1 sub<
*.nrg 9000 <
*.body 800 <
*.trefeye 0 =
*.numties 0 >
*.waste 0 >
*.multi 0 >
*.trefnrg 1000 >
*.pain 0 >
start
*150 .tienum store
*.out3 1000 div *.out3 315 div add *.pain 2 mult add .tieval store
.nrg .tieloc store
1 .sharewaste store
stop

cond
*140 0 =
*.nrg 1000 <
*.body 800 <
*.trefeye 0 =
*.multi 0 >
start
*150 .tienum store
*.trefnrg 2 div 400 add .tieval store
.nrg .tieloc store
*.out3 10 div .sharenrg store
stop

cond
*140 0 =
*.waste 0 >
*.trefeye 0 =
*.numties 0 >
start
*150 .tienum store
*.waste .sharewaste  store
stop

cond
*140 0 =
*149 1 != or
*150 *.numties = or
*.multi 0 >
start
1 150 store
1 149 store
stop

'Shoot Waste

cond
*140 0 =
*.numties 0 =
*.waste 0 >
start
*.waste .shootval store
-4 .shoot store
stop

'Move


'predict future position of last enemy

cond
start
134 76 div *60 mult *62 *55 sub mult 63 store
*63 *51 *52 angle mult 61 store
stop

'reset write enabler

cond
*.refnrg 10 %< or
*.eye5 0 =
start
1 57 store
1 66 store
stop

cond
*140 0 =
*.myeye *.refeye !=
*.refeye 0 !=
*.refaim *.aim -1 mult %!=
start
*.refvel *.vel add 5 add .up store
stop

cond
*140 0 =
*.myeye *.refeye !=
*.refeye 0 !=
*.refaim *.aim -1 mult %=
start
*.refvel *.vel add 5 sub .up store
stop

cond
*140 0 =
*.in *.dnalen !=
*.eye5 90 <
*.refvel *.maxvel %!=
*.refaim *.aim !=
start
25 *.vel sub .up store
stop

cond
*140 0 =
*.nrg 5000 >
*.eye5 0 =
*.refeye *.myeye !=
*.in1 *.dnalen !=
*.refvel *.maxvel %=
start
*.maxvel *.vel sub .up store
1 66 store
stop

cond
*140 0 =
*.nrg 3000 >
*.eye5 50 >
*.in *.dnalen !=
*.refeye 0 =
start
25 *.vel sub .up store
stop

cond
*140 0 =
*.eye5 50 <
*.vel 5 >
*.myeye *.refeye !=
*.in1 *.dnalen !=
*.refeye 0 !=
start
5 *.vel sub .up store
1 40 store
stop

'Move Backwards

cond
*140 0 =
*.eye5 90 >
*.myeye *.refeye =
*.in1 *.dnalen = or
*.in1 *.out1 =
*.vel 10 <
start
10 *.vel sub .dn store
24 *.aim sub .setaim store
stop

'Shot Mode:

cond
*140 0 =
*.refeye *.myeye !=
*.in1 *.dnalen %!=
*.eye5 60 >
*.nrg 9000 <
*57 1 =
start
*.refxpos *.refypos angle .shootaim store
-1 .shoot store
stop

'a very powerful shot gene used to precisely hit the target everytime

cond
*140 0 =
*57 0 =
*.refeye 0 !=
*.refeye *.myeye !=
*.in1 *.dnalen %!=
*.nrg 9000 <
*53 *.vel <
*.eye5 40 >
start
*61 *.xpos *.ypos angle *.vel mult sub .shootaim store
-1 .shoot store
stop

cond
*140 0 =
*57 0 =
*.refeye 0 !=
*.refeye *.myeye !=
*.in1 *.dnalen %!=
*.nrg 9000 <
*53 *.vel >
start
*61 *.xpos *.ypos angle *.vel mult add .shootaim store
stop

cond
*.vtimer 1 =
*.nrg 800 >
start
200 .vshoot store
stop

cond
*140 0 =
*.refeye *.myeye !=
*.in1 *.dnalen %!=
*.refpoison 0 >
*.venom 0 >
*.eye5 40 >
*57 1 =
start
827 .vloc store
*.refxpos *.refypos angle .shootaim store
-3 .shoot store
stop

'Create Venom When out. and poison

cond
*140 0 =
*.venom 1 <
*.nrg 2000 >
start
20 .strvenom store
stop

cond
*140 0 =
*.poison 1 <
*.nrg 2000 >
start
50 .poison store
.shoot .ploc store
stop

'Tie to eachother when old enough

cond
*140 0 =
*.robage 120 >
*.numties 3 <
*.refage *.robage <
*.eye5 50 <
*.focuseye 5 =
*.in1 *.dnalen =
*.myeye *.refeye =
start
800 rnd 100 add 51 store
*51 .tie store
50 *.aim add .setaim store
stop

'Sharenrg and Waste with Conspecs, if there is no Plant.

cond
*140 0 =
*.nrg *.trefnrg <
*.numties 0 >
*.body 800 <
*.nrg 2100 <
*.multi 0 >
start
50 .sharenrg store
stop

cond
*.out4 0 =
*.waste 0 >
*.numties 0 >
*.multi 0 >
start
*.waste *.trefnrg add 2 div .sharewaste store
stop

'Delete Ties to enemies

cond
*.trefeye *.myeye %!=
*.trefeye 0 !=
*.numties 0 >
*.pain 0 >
*.nrg 10000 <
start
*.tiepres .tienum store
*.nrg .tieval store
310 .tieloc store
stop

cond
*.numties 0 >
*.trefeye *.myeye !=
*.trefeye 0 !=
start
*.tiepres *.tienum store
*.trefaim *.aim sub .setaim store
*.tiepres .deltie store
*990 dec
stop

cond
*.tiepres *51 !=
*.numties 0 >
*.trefeye *.myeye !=
start
*.tiepres .tienum store
400 .tieval store
.tieval .tieloc store
99 .sharenrg store
1 *.sharewaste add .sharewaste store
stop

cond
*.eye5 0 =
*.refeye *.myeye = or
*.refshoot 0 = or
*.shflav 0 !=
*.shflav -2 !=
start
942 *.shang sub .setaim store
0 .shflav store
100 .mkshell store
26 .strvenom
.shoot .vloc store
stop

'Disguise if mutated

cond
*140 0 =
*.in1 *.dnalen !=
*.in1 *.out1 !=
*.refeye *.meye %=
*.refeye 0 !=
start
*.in1 .out1 store
2 120 store
stop

'Timer Gene, Remembers the time

cond
*121 0 =
start
*120 1 add 120 store
stop

'counter gene

cond
start
1 *62 add 62 store
stop

'erase memory locations 50 - 56

cond
*66 1 =
start
0 50 store
0 51 store
0 52 store
0 53 store
0 54 store
0 55 store
0 56 store
0 60 store
0 66 store
stop
end
It behaves in a manner best for multi-bots and single bots. Most importantly, as pain and energy of the food tied to it and its own energy increases, the amount of energy taken grows. It tries to maintain a body of 800 and no more energy than 9000. By requiring a pleasure of 10, a damper of overpopulating is placed; it would require a bot with a lot of energy both in the plants and itself to make such a move. Reproduction happened on average, around 100th cycle of bots life, given optimal circumstances (including predators). However, for simulations where energy exchange must be controlled as much as possible, I.E Large Population Sims, this bot performs very efficiently. Mutations seem to make them stronger in the long run.

The memory genes came from a seperate robot I developed later to try and create a bot that would compare positions of two robots on either side of the bot, and would react in the best possible way. The other genes were failures except for the position prediction gene that was time dependent.

By disguising the bot when mutated, the population of this species is secured. THe auto turn to hit gene makes the disquise work more immediately.

The Viruses:

Their primary virus spreads the genes of other bots. The follow up viruses destroy the bots and spread rapidly. Gene defenses found in the New ID System in Gene Depository.

There was a final version which behaved in such a manner, the above version I now cionsider incomplete. The computer I was programming on crashed, so the files have been lost. FOrtunately I am now working on an even better bot.

35

Bot Tavern / The Virus Cell

« on: January 16, 2008, 04:59:28 PM »

Sexual reproduction has thus been unsuccessful. The best method is to simply create weaker strands of DNA for the other bots, while possibly building your own. So we start with a simple cell and give it only three genes, and a fourth one for security.

Code: [Select]

'The Virus Carrier
cond
*.robage 0 =
start
10 40 store
stop

cond
*.vtimer 0 =
*.nrg 1000 >
*40 420 !=
start
90 .vshoot store
10 .repro store
32 .aimdx store
*51 .deltie store
*.thisgene .mkvirus store
550 .vshoot store
*.thisgene 1 rnd 2 mult -1 add add .delgene store
50 .vshoot store
3 .mkvirus store
-1 .shoot store
2 .out4 store
cond
*.nrg 1 >
*40 420 !=
start
35 .repro store
*.thisgene .mkvirus store
*.nrg .shootval store
-1 .shoot store
*.body .shootval store
-1 .shoot store
*waste .shootval store
-6 .shoot store
*.thisgene 1 sub .mkvirus store
*.thisgene 1 add .mkvirus store
676 .myeye store
676 .memloc store
*.thisgene 1 sub .delgene store
.vshoot inc
*.nrg .vshoot store
1 .mkvirus store
10 .mrepro store
*51 .deltie store
0 .eye4 store
0 .vel store
36 .setaim store
1 .out1 store
0 .in1 store
0 .eye1 store
0 .shell store
0 .slime store
*.body .fdbody store
*.nrg .waste store
*51 .deltie store
stop

cond
*40 420 !=
*.vtimer 0 =
start
8 rnd 2 add 51 store
45 55 store
*51 .tie store
500 .fixlen store
4 .in2 store
10 40 store
*.thisgene 1 add .delgene store
2 .out4 store
*.thisgene 1 sub .mkvirus store
*.nrg .vshoot store
stop

cond
*40 420 !=
start
*.thisgene .mkvirus
*.nrg *.body add .vshoot store
.vel dec
stop

cond
*.vtimer 0 =
start
*.out4 .mkvirus store
120 .vshoot store
40 .repro store
*.out4 1 add .out4 store
stop

cond
*.out4 3 >
start
1 .out4 store
stop
end
After time, the cell will pick up dna segments from other Species, and the other Species will be greatly hurt. Setting the exterior protections to 0 causes their immune system to fail essentially. Those who are unfortunate to have the 2nd gene imbeded last begin losing all of their useful genes and become Virus Cells themselves.