' How does it work?
cond
start
100 *.nrg 1000 sub sgn 0 floor 500 *.body sub sgn 0 floor mult .strbody mult store 100 500 *.nrg sub sgn 0 floor .fdbody mult store 200 *.shell sub 0 floor 200 ceil 200 *.shell sub sgn abs .mkshell mult store 10 *.venom sub 0 floor 10 ceil *.venom 10 sub sgn abs .strvenom mult store *.tiepres *51 *.tiepres sub sgn abs *.tiepres sgn mult .deltie mult store *51 *.refeye sgn -1 mult 1 add *.refeye *.myeye sub sgn abs *.eye5 35 sub 0 floor sgn mult mult .tie mult store *51 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tienum mult store -1 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tieloc mult store -1000 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tieval mult store 1 *.robage sgn 1 sub abs .tie mult store .mkshell *.vloc sgn -1 mult 1 add .vloc mult store -100 *.venval sgn 1 add .venval mult store 999 rnd 1 add *51 sgn -1 mult 1 add 51 mult store 200 *.aim add *.refeye *.myeye sub sgn abs -1 mult 1 add .setaim mult store *.maxvel *.vel sub 0 floor *.robage sgn *.refeye *.myeye sub sgn abs mult .up mult store *.refxpos *.refypos angle *.robage sgn *.refeye *.myeye sub sgn abs *.eye5 sgn mult mult .setaim mult store *.refveldx *.refeye *.myeye sub sgn abs *.eye5 sgn mult .dx mult store *.refeye *.myeye sub sgn abs -1 mult 1 add 50 mult inc 0 *50 30 sub 0 floor sgn .refeye mult store 0 *50 30 sub 0 floor sgn 50 mult store *.refshell 1 sub 0 floor sgn 3 mult 5 sub *.refeye sgn mult 1 sub *.refeye *.myeye sub sgn abs *.eye5 35 sub 0 floor sgn mult .shoot mult store *.shoot 3 add sgn 10 mult 0 floor *.refeye sgn 30 mult add *.refshell 1 sub 0 floor sgn 20 mult sub *.shoot sgn abs .shootval mult store 50 *.body 250 sub sgn 0 floor *.nrg 2000 sub sgn 0 floor *.eye5 30 sub 0 floor sgn -1 mult 1 add mult mult .repro mult store *.thisgene -1 mult 3 add abs *.genes 1 sub sgn .delgene mult store
stop
end