


'Polinator
'requires 2 types 

def reproval 50    '10...100
def bigsmall 51    '10...100
def direction 52
def etarget 53
'------------------------------------

cond
*.reproval 0 =
start
*.in1 .reproval store
stop

cond
*.bigsmall 0 =
start
*.in2 .bigsmall store
stop

cond 
*.reproval 0 !=
*.bigsmall 0 !=
start
*.reproval .out1 store
*.bigsmall .out2 store
stop

'max energy = 32000 decide at which point to repro
cond 
*.reproval 0 !=
*.bigsmall 0 !=
*.reproval 30 mult *.nrg <
start
*.reproval .repro store
stop




'----------------------------
cond
*.numties 0 >
start
*.tiepres .deltie store
stop

'----------------------------



'GENE for EATING   'using advanced shooting mechanism
cond
 *.eye5 10 >
' *.in1 *.reproval !%=
' *.in2 *.bigsmall !%=
start

*.refxpos *.refypos angle .etarget  store
1256 *.aim sub *.etarget add .etarget store
1256 *.etarget sub .etarget store
*.etarget .aimshoot store

1 .fixed store
-1 .shoot store
0 .fixed store
5 .strbody store
*.refveldx .dx store
*.refvelup -1 add .up store
stop

'-------------------------------
'genes for moving around


cond
*.eye5 0 =
start
*.eye9 *.eye1 sub 8 mult .etarget store

*.aimdx *.etarget add .aimdx store
10 .up store
stop


'turn away from my own kind if i'm not a child
'and also use a lot of energy to build poison
'because its costly it limits crowding of my own species
cond
 *.robage 20 >
 *.in1 *.reproval %=
 *.in2 *.bigsmall %=
 *.bigsmall 0 !=
 *.reproval 0 !=

start
328 .aimdx store
100 .strpoison store    

stop


end