def head 50
def body 51
def gender 971
def infint 52
def preg 53
def egg 54

stop

cond
 *.multi 0 =
 *.robage 0 =
start
 1 .head store
 1 rnd .gender store
stop

start
 *.refveldx .dx *.eye5 0 sub sgn 0 floor *.refeye *.myeye sub sgn abs mult mult store
 *.refvelup 30 add .up *.eye5 0 sub sgn 0 floor *.refeye *.myeye sub sgn abs mult mult store

-6 .shoot *.eye5 50 sub sgn 0 floor *.refeye *.myeye sub sgn abs mult mult store
 *.refvelup .up *.eye5 50 sub sgn 0 floor *.refeye *.myeye sub sgn abs mult mult store

 314 rnd .aimdx 1 *.eye5 sub sgn 0 floor *.refeye *.myeye sub sgn abs 1 sub -1 mult add mult store
stop

cond
 *.body 31000 >
start
 1 .delgene store
stop