'Alga_Pollinator
'By: jknilinux 
'It infects bots with a virus that makes them pollinate it and spread the virus to other bots.

cond
*.robage 0 =
start
7 989 store
stop

cond
*.vtimer 0 =
start
3 .mkvirus store
stop

cond
7 *989 !=
start
0 .repro store
*.fertilized 0 >
*.nrg 20000 > and
33 .sexrepro store
not
*.refeye *.myeye =
*.refxpos *.refypos angle .setaim store
*.refvelup 30 add .up store
*.refveldx .dx store
-8 .shoot store
*.thisgene .mkvirus store
50 .vshoot store
not
-6 .shoot store

' Del gene if allready infected, for example testing gen len = 5
'
'for logic testing     0 = first run of this gene
'                      5 = another run (next lines after this puts in )
'another virus added 5+1 = 6 previously 5 was stored in 990   


*990 *.genes sub 1 add sgn abs 1 sub abs *.thisgene mult *.delgene store
' 0       5   -5    -4  -1  1     0   0     (there is no gene zero to delete)
' 5       5    0     1   1  1     0   0
' 5       6   -1     0   0  0    -1   1     this actualgene 

*.genes 990 store 



stop

cond
*.eye5 0 >
*.refeye *.myeye !=
start
50 .vshoot store
stop

cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop

cond
*.fertilized 0 >
start
33 .sexrepro store
stop
end