Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Boris of Quirm

Pages: [1]
1
Veggies / Plant V1.1 (V)Boris of Quirm)-28.11.05
« on: November 28, 2005, 08:30:37 AM »
'This version of the 'plant' seems to behave fairly well.  The leaves and flowers now only attach to one other
'part of the plant and there is less likelyhood that a cell is born that is not attached to the plant.  The stems
' still occassionally attach themselves to each other but at present I am not too worried about this
' characteristic.


'Plant ver_1.1
'(Multi-veggie-bot)
'
'The bot has three cell types - a stem, a leaf and a flower.
'
'A stem is the only part of the bot that can reproduce.
'It can by tied to a maximum of 3 other cells.
'
'The flowers and leaves will only attach themselves
'to one other part of the plant and if a cell is not
'attached to any part of the plant it will try and
'reattach itself.


'Declare plant specific variables

'Allocate Address 50 as the identifier for cell type
def type 50

'Allocate Address 51 as a count for the number of times a stem cell has turned
def turn 51

'Allocate Address 52 as a counter for use during tie creation
def tiecounter 52

'End of Declarations


'Gene 1 - Allocate cell type at birth
'
'NB - Value of type can be:-
'
'1 - Stem
'2 - Leaf
'3 - Flower

cond
*.type 1 <
start
2 rnd 1 add .type store
stop

'End of Gene 1


'Gene 2 - I am a leaf
'
'If I am a leaf and have more than 1 tie
'then delete 1 of them

cond
*.type 2 =
*.numties 1 >
start
1 .deltie store
stop

'End of Gene 2


'Gene 3 - I am a flower
'
'If I am a flower and have more than 1 tie
'then delete 1 of them

cond
*.type 3 =
*.numties 1 >
start
1 .deltie store
stop

'End of Gene 3


'Gene 4 - I am a stem part 1
'
'I am a stem.
'I can still turn
'I am attached to less than 3 other cells
'I can't see anything
'I am currently not establishing a tie with another cell
'
'As a result I will reproduce and start the tie counter

cond
*.type 1 =
*.turn 8 <
*.numties 3 <
*.eye5 40 <
*.tiecounter 1 <
start
20 .repro store
.tiecounter inc
stop

'End of Gene 4


'Gene 5 - I am a stem part 2
'
'I am a stem.
'I can still turn
'I am attached to less than 3 other cells
'I can see something
'I am currently not establishing a tie with another cell
'
'As a result I will just turn
'Add 1 to my turn counter

cond
*.type 1 =
*.turn 8 <
*.numties 3 <
*.eye5 40 >
*.tiecounter 1 <
start
314 .aimsx store
.turn inc
stop

'End of Gene 5


'Gene 6
'
'I am in the process of establishing a tie with another cell
'
'Increase my tie counter

cond
*.tiecounter 0 >
start
1 .tie store
.tiecounter inc
stop

'End of Gene 6


'Gene 7
'
'I have finshed establishing a tie with another cell
'
'Reset my tie counter so that I may reproduce again

cond
*.tiecounter 10 >
start
0 .tiecounter store
stop

'End of Gene 7


'Gene 8 - I am not part of the plant
'
'If I am not tied to the plant
'then form a tie with the cell in front of me
'as I should be facing my parent stem cell

cond
*.numties 0 =
start
1 .tie store
stop

'End of Gene 8

end

2
Veggies / Alga Reactum (V)(Boris of Quirm)-27.11.05
« on: November 27, 2005, 05:30:04 AM »
'This veggiebot will only reproduce if it is attacked.  This includes by shooting or tiefeeders.  If you want you
' can remove the commented line in the first gene and allow the plant to reproduce when its energy is at a
' certain level as well.

'As all cells live mainly to reproduce it is interesting to note that when this veg is attacked it may eventually
' surround its predator.  This produces quite a nice symbiotic relationship between plant and predator.  The
' plant has 'caught' a predator and therefore it has guaranteed it will be shot and can reproduce.  The
' predator, in being 'caught' now has a food source on tap.

'This also means that one predator bot can be used in a test and as they become seperated into
' different 'colonies', they can mutate independantly down different evolutionary paths.

'The bot was tested in 2.37.6 and the settings used to test this bot were:-
'Alga Reactum      Qty 10     NRG 3000     Vegetable Yes     Blocked Yes
'T_Preservans      Qty 20     NRG 3000     Vegetable No      Blocked No

'The test area was 9237 x 6928
'NRG/Veggie/cycle 10
'Mutation was disabled for Alga Reactum and enabled for T_Preservans


'Alga Reactum
'Vegetable
'
'This plant will reproduce if it is  attacked.

cond
*.shup 0 !=
*.shdn 0 != or
*.shdx 0 != or
*.shsx 0 != or
'*.nrg 10000 > or
start
60 .aimdx store
50 .repro store
stop

cond
*.numties 0 >
start
99 .repro store
stop

end

3
Veggies / Basic Plant (Multi-Veggie-Bot) (V)(Boris of Quirm)-26.11.05
« on: November 26, 2005, 11:57:58 AM »
'Plant ver_1.0
'(Multi-veggie-bot)
'
'The bot has three cell types - a stem, a leaf and a flower.
'
'A stem is the only part of the bot that can reproduce. It can

by tied to a maximum of 4 other cells.
'
'A leaf is denoted by spinning to the left (anti-clockwise).
'
'A flower is denoted by spinning to the right (clockwise).


'Declare plant specific variables

'Allocate Address 50 as the identifier for cell type
def type 50

'Allocate Address 51 as a count for the number of times a stem

cell has turned
def turn 51

'Allocate Address 52 as a counter for use during tie creation
def tiecounter 52

'End of Declarations


'Gene 1 - Allocate cell type at birth
'
'NB - Value of type can be:-
'
'1 - Stem
'2 - Leaf
'3 - Flower

cond
*.type 1 <
start
2 rnd 1 add .type store
stop

'End of Gene 1


'Gene 2 - I am a leaf
'
'Show I am a leaf by spinning to the left

cond
*.type 2 =
start
'10 .aimsx store
stop

'End of Gene 2


'Gene 3 - I am a flower
'
'Show I am a flower by spinning to the right

cond
*.type 3 =
start
'10 .aimdx store
stop

'End of Gene 3


'Gene 4 - I am a stem part 1
'
'I am a stem.
'I have enough energy
'I can still turn
'I can't see anything
'
'As a result I will reproduce and turn

cond
*.type 1 =
*.turn 8 <
'*.numties 4 <
*.eye5 40 <
*.tiecounter 1 <
start
20 .repro store
.tiecounter inc
stop

'End of Gene 4


'Gene 5 - I am a stem part 2
'
'I am a stem.
'I have enough energy
'I can still turn
'I can see something
'
'As a result I will just turn

cond
*.type 1 =
*.turn 8 <
'*.numties 4 <
*.eye5 40 >
*.tiecounter 1 <
start
314 .aimsx store
.turn inc
stop

'End of Gene 5

cond
*.tiecounter 0 >
start
1 .tie store
.tiecounter inc
stop

cond
*.tiecounter 10 >
start
0 .tiecounter store
stop


end

4
DNA - General / RND Question
« on: November 25, 2005, 05:41:58 PM »
Sorry to sound a thickie, but can someone confirm the following:-

If I use 3 RND, I should expect a result of 1, 2 or 3.
A decimal isn't returned, nor is 0.

The reason I ask is because some languages can include 0 as an option.

5
DNA - General / Is there a Colour Gene?
« on: November 25, 2005, 10:46:36 AM »
Is it possible to change the colour of a cell by using a gene?

The reason I am asking is, if you have a cell that may have several types, e.g. head, body, tail, etc., is it possible to change it's colour so you can see which type that cell is even though they are all derived from the same dna?

If not, is there another way I can visibly tag/mark a cell so I can quickly see what type it is?

Hope that made sense.

Thanks.

6
Bot Tavern / Multibot Vegetable
« on: November 25, 2005, 10:02:33 AM »
I am in the process of designing a veggiebot that will grow in a similar fashion to a basic plant, but I was wondering if anyone has tried this before.

My current plan is to assign a value to a cell that determines whether it is a root, stem, leaf, flower or seed.  This will be done at birth and governed by who the parent is.  I am still working out the logic for this but will post my progress here as it developes.

The end plan is to have a multibot that passes food through it's roots and leafs into the rest of the plant.  A seed is then produced by the flower and this seed can then attach itself to a passing 'animal' where it can grow until it is big enough to become a stem, produce it's own root and start the process again.

If anyone has any suggestions/hints/tips/ideas/etc. they will be gratefully recieved.

7
Newbie / Where have you been all my life?
« on: November 24, 2005, 05:40:10 AM »
Hi guys,

Just stumbled across this a couple of days ago.

What a great concept!!  :D

Can see this keeping me busy for quite a while to come yet.

As a starting question, can anyone tell me if there is a way of detecting if you are being shot at?

Thanks again,

Mark

Pages: [1]