'ALGEA-DEPRESIA(4G).txt
'
'Plants have feelings too
'by peterb
'
'(like some trees only reproduce with forest fire)
'This algey only reproduces when attacked.
'When attacked, it wil have offsrping that run away when shot if age < 450
'Once an older algey is attacked it also rotates (so offspring goes into various directions)
'Note it becomes intresting after the new generation of 1st plants
'then the yong ones are vulnerable 
'They also dont spread too far, so you get grean areas, and wastelands.
'Bots who are not in those wastelands have a reasonable chance to survive.
'And maybe kill them all or keep in balance.
'Without beeing eaten this plant cannt survive.
'======================


def auw 100
def heal 101

cond 
*.pain 25 >
start
200 .auw store
400 .heal store
stop


cond
*.robage 450 >
*.auw 1 >
start
15 .repro store
*.auw .aimdx store
*.auw 20 sub .auw store
*.tiepres .deltie store
stop

cond
*.robage 450 < 
*.auw 0 >
*.nrg 2000 >
start
200 .dn store
*.auw 3 sub .auw store
*.tiepres .deltie store
0 .aimdx store
stop


cond
*.heal 0 >
start
.heal dec
else
0 *.auw store
1 .up store
stop 


cond
start
0 .repro store
0 .repro store
0 .repro store
0 .repro store
0 .repro store
*.thisgene .mkvirus store
*.botage 70 mod 68 sub sgn 1 sub sgn 1 add *.fertilized mult sgn 30 mult .sexrepro
*.eye5 50 floor 50 sub sgn refage 10 mod 8 floor 38 sub sgn -8 mult .shoot
*.botage 70 mod 68 sub sgn 20 mult .aimdx store
stop