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