'Mosquito 'Get Rid Of Birth Tie ''''''''''''''''''''' cond start .tie *.robage 1 add mult inc .deltie inc stop 'Find A Target '''''''''''''' cond *.eye5 0 > *.refeye *.myeye != start *.refveldx .dx store *.refvelup 30 add .up store stop 'Take Energy '''''''''''' cond *robage 0 != *.refeye *.myeye != start 31999 rnd 1 add 50 store .tie inc stop cond *.refeye *.myeye != *.eye5 45 > start *50 .tie *robage sgn mult *.refage sgn mult store stop cond *tiepres 0 > start *.tiepres .tienum store stop cond *tienum *50 = start -100 .tieval store *.tieval sgn .tieloc store stop cond *.tiepres *50 = *tiepres 0 > start *tiepres .deltie store stop 'Take 99% After 20 cycles ''''''''''''''''''''''''' cond start 99 .sharenrg *.multi mult store .sharewaste *multi mult inc stop 'Protect Against My Virus ''''''''''''''''''''''''' cond *.robage 0 = start 42 84 store stop 'Make Viruses To Shoot '''''''''''''''''''''' cond *.vitmer 0 = start 12 .mkvirus store stop 'Virus '''''' cond 42 *84 != start 5000 .shootval store -2 .shoot store stop 'Randomy Shoot Virus While Tied ''''''''''''''''''''''''''''''' cond *.tiepres 0 > 100 rnd 90 < and *.refeye *.myeye != start *.refxpos *.refypos angle .aim store 20 .vshoot store stop 'Make A Little Shell '''''''''''''''''''' cond *.shell 350 != *.nrg 550 > and start 2 .mkshell store stop 'Make Some Poison '''''''''''''''' cond *.poison 50 != *.nrg 450 > and start 5 .strpoison store stop 'Choose Between Two Poisons ''''''''''''''''''''''''''' Cond 1 rnd = 1 start .eye5 .ploc store else .shoot .ploc store stop 'Make Some Venom '''''''''''''''' cond *.venom 50 != *.nrg 450 > and start 5 .strvenom stop 'Shoot Different Venoms With the Virus '''''''''''''''''''''''''''''''''''''' cond *.vtimer 0 = 1 rnd = 1 start *.refxpos *.refypos angle .aim store .shoot .vloc store -2 .venval store -3 .shoot store else *.refxpos *.refypos angle .aim store .myeye .vloc store *.myeye .venval store -3 .shoot .store stop 'Avoid Family ''''''''''''' cond *.eye5 0 = *.refeye *.myeye = or start 314 rnd .aimdx store stop 'Reproduce '''''''''' cond *.nrg 900 > start 50 .repro store stop end