'A vegetable designed to form long strands
'This will be a multibot. (It will transfer chloroplasts up?)
'.sexrepro?
'vars
def stem 0
def core 1
def probe 2
def seed 3
def flower 4
'custom memory locations
def temp 990
def type 991
def corexpos 992
def coreypos 993
def kelpid 995
'First, set eyes. Duh.
cond
*.robage 0 =
start
20 .eye5width store
'We will now space out the other eyes:
*.robage 0 =
-436 .eye9dir store
-327 .eye8dir store
-218 .eye7dir store
-109 .eye6dir store
109 .eye4dir store
218 .eye3dir store
327 .eye2dir store
436 .eye1dir store
50 .eye1width store
50 .eye2width store
50 .eye3width store
200 .eye4width store
200 .eye6width store
50 .eye7width store
50 .eye8width store
50 .eye9width store
stop
'Now, to make each cell turn if it's single.
cond
*.type .probe !=
*.numties 0 =
start
20 .aimdx store
stop
'Establish types
'Seed- Young core
'Core- Desides movement, ect. Grows out chain
'Probe- Carries -8 to a new strand, defends plant
'Stem- the average stem- transports nrg
'Flower -.sexrepro w/ probe to produce core. Produced only by bud.
cond
*.robage 0 =
start
1000 rnd .temp store
.seed *.temp sgn -- abs .type mult store
.flower *.temp sgn .type mult store
.probe *.temp 200 sub sgn 0 floor .type mult store
.stem *.temp 300 sub sgn 0 floor .type mult store
stop
'First generation is always a seed
start
*.thisgene .delgene store
.seed .type store
stop
'Mature core
cond
*.type .seed =
*.nrg 20000 >
start
.core .type store
*.xpos .corexpos store
*.ypos .coreypos store
stop
'Start development of stem by creating a bud. The core handles all asexual repro for the
'individual plant- also controls plant (head), flower is .sexrepro
cond
*.type .core =
*.nrg 5000 >
start
25 .up store
5 .repro store
stop
'If i'm a probe, I must sever my ties and start probing!
cond
*.type .probe =
start
1 .tienum inc
1 .deltie store
1 .mrepro store
30 .up store
*.type .stem =
*.thisgene .delgene store
stop
'Create ties
cond
*.type .probe !=
*.numties 2 <
start
1 .tie inc
stop
'Delete ties
cond
*.numties 3 >
start
1 .tienum inc
.deltie store
stop
'Im a flower. I better put on my flower tag!
cond
*.type .flower =
*.type .probe =
start
*.type .stem =
*.thisgene .delgene store
100 .out2 store
stop
'Im a probe and see a flower, ill go inseminate it! Yays!
cond
*.type .probe =
*.eye5 50 >
*.out1 100 =
start
-8 .shoot store
30 .dn store
start
'I'm a flower and im fertilized, I think I'll churn out a new core!!!!
cond
*.type .flower =
*.type probe =
*.fertilized 1 =
start
99 .sexrepro store
.type .shoot store
.seed .shootval store
stop
'Im a probe- ill burn excess body
cond
*.body 800 >
*.type .probe =
start
5 .fdbody inc
stop
'Im a stem-Ill follow the core!
cond
*.type stem =
*.multi 0 !=
start
*.trefxpos *.trefypos angle .setaim store
10 .up store
stop
'I'll tell my parts to straighten out!
cond
*.type stem =
*.multi 0 !=
start
stop
end
If any genes are blank, that is because I could not figure ut what to code in them. The biggest problem is they form vibrating clumps instead of strands. Any help?