Humilis
From WikiManual
Click the discussion tab above to discuss the code.
added user feedback there. ~griz~
'Humilis use NewMove def Turn_At_Birth 60 'remove waste cond *.waste 100 > start 'This shoots a particle of waste equal to a bot's current waste level -4 .shoot store *.waste .shootval store stop 'manage body 'cond '*.body 10 mult '*.nrg !%= 'start '*.body 10 mult *.nrg sub dup ' 'difference between energy stored in body and in nrg '0 floor .fdbody store '-1 mult 0 floor .strbody store ' 'if you feed and str the same it'll zero both effects and waste nrg ' 'I'll check on fixing it up latter 'stop 'redone body management into 2 genes: cond *.body 10 mult *.nrg sub 400 > 'we have lots of body and little nrg *.nrg 50 < or start 100 .fdbody store stop cond *.nrg *.body 10 mult sub 400 > 'we have lots of nrg and little body *.nrg 31000 > or start 100 .strbody store stop 'end body management cond start 'Naval Cord Removal .tie *.robage sgn 1 sub -1 mult mult .deltie *.robage 1 sub sgn 1 sub -1 mult mult add inc 'this should do the trick to allow both tie and deltie to use same inc stop cond *.robage 100 mod 0 = 'upped thet time a bot spends on a single refvar so their behavior is more consistant 'Finally figured out how to use mod handily :) start 7 rnd 50 store stop cond *.eye5 0 > .refup *50 add * .myup *50 add * != start *.refvelup 30 add *.body mult 1000 div .up store *.refveldx *.body mult 1000 div .dx store stop cond *.velscalar 0 = *.eye1 *.eye2 *.eye3 *.eye4 *.eye5 *.eye6 *.eye7 *.eye8 *.eye9 add add add add add add add 0 = 'nothign in any eyes *.eye5 0 = *.nrg 200 > 'don't try this if we're too exhausted to really feed start 60 .up store stop cond 'Gene should allow bot to test amongst 8 different refs randomly .refup *50 add * .myup *50 add * != *.eye5 37 > start 'Cheap shots :) .shoot dec *.refvelup *.body mult 1000 div .up store *.refveldx *.body mult 1000 div .dx store stop cond *.nrg 10000 > *.robage 1000 > 'let's let younger bots do other things with excess energy start 628 .aimdx store .Turn_At_Birth inc 'i had to put some iflamma consepts in there -bau 50 .repro store stop cond *.eye5 0 > *.refeye *.myeye = and *.eye5 0 = or start 314 rnd .aimdx store stop cond *.Turn_At_Birth 0 > start 628 .aimdx store 0 .Turn_At_Birth store stop 'junk DNA to allow conspec recognition to work (and they said junk DNA wasn't useful ;)) *.up *.dn *.dx *.sx *.shoot *.eye5 *.aimdx *.aimdx *.aimsx *.aimsx end 'end is superfluous in 2.4, but adding it or not doesn't hurt anything...