Author Topic: RussianBabiesForever (MB)(v0.61)(Spike43884)12-21-2014  (Read 3052 times)

Offline spike43884

  • Bot Overlord
  • ****
  • Posts: 656
    • View Profile
RussianBabiesForever (MB)(v0.61)(Spike43884)12-21-2014
« on: December 21, 2014, 06:07:34 AM »
Code: [Select]
'Russian Babies (F1/MB League)
'By Spike43884
'Originally All Eyes V1.5 - then Russia - then Russian Babies - then Russian Babies Mobilised - Now RBF
'This bot goes into hibernation whilest waiting
'Should reproduce in the face of danger...or food
'Can't grow old
'Dev Info:
'Hibernation Sys - TRUE
'Hunting Sys - AllEyes
'Corpsify - UNKNOWN
'Confusion - TRUE
'Retaliation Type - Babies
'Ageing - No Elders


'Just some free variables
def attack 50
def hibernate 51
def head 52


'Initialisation (EYES)
cond
*.robage 2 <
start
 135 .eye1width store
 135 .eye2width store
 135 .eye3width store
 135 .eye4width store
 15 .eye5width store
 135 .eye6width store
 135 .eye7width store
 135 .eye8width store
 135 .eye9width store
 410 .eye1dir store
 300 .eye2dir store
 190 .eye3dir store
 80 .eye4dir store
 0 .eye5dir store
 -80 .eye6dir store
 -190 .eye7dir store
 -300 .eye8dir store
 -410 .eye9dir store
 .aimsx .vloc store
 128 .venval store
stop



' Gene 1 Initiate Hibernation (waiting)
cond
*.eye1 0 =
 *.eye2 0 = and
 *.eye3 0 = and
 *.eye4 0 = and
 *.eye5 0 = and
 *.eye6 0 = and
 *.eye7 0 = and
 *.eye8 0 = and
 *.eye9 0 = and
 *.refeye *.myeye = or
 *.nrg 3000 < and
 *.hibernate 0 = and  'KEY
start
 1 .hibernate store
stop

' Gene 1 Search (waiting)
cond
*.eye1 0 =
 *.eye2 0 = and
 *.eye3 0 = and
 *.eye4 0 = and
 *.eye5 0 = and
 *.eye6 0 = and
 *.eye7 0 = and
 *.eye8 0 = and
 *.eye9 0 = and
 *.refeye *.myeye = or
 *.nrg 3000 >= and
start
 10 rnd .aimdx store
stop


'Gene 2 Food Sighted
'*********************
cond
*.refeye *.myeye !=
*.eyef 0 !=
start
1 .attack store
stop

cond
*.refeye *.myeye =
*.eyef 0 = or
start
0 .attack store
stop

cond
*.eye1 0 >
*.attack 0 =
start
550 .aimdx
0 .hibernate store
stop

cond
*.eye2 0 >
*.attack 0 =
start
405 .aimdx
0 .hibernate store
stop

cond
*.eye3 0 >
*.attack 0 =
start
260 .aimdx
0 .hibernate store
stop

cond
*.eye4 0 >
*.attack 0 =
start
115 .aimdx
0 .hibernate store
stop

cond
*.eye6 0 >
*.attack 0 =
start
115 .aimsx
0 .hibernate store
stop

cond
*.eye7 0 >
*.attack 0 =
start
260 .aimsx
0 .hibernate store
stop

cond
*.eye8 0 >
*.attack 0 =
start
405 .aimsx
0 .hibernate store
stop

cond
*.eye9 0 >
*.attack 0 =
start
550 .aimsx
0 .hibernate store
stop
'*********************


' Gene 3 Chase Food
cond
*.eye5 0 >
 *.refeye *.myeye !=
start
 *.refveldx .dx store
 *.refvelup 30 add .up store
stop


' Gene 4 Long Range Food Handling

cond
 *.eye5 50 >
 *.refeye *.myeye !=
 *.refeye 0 >
 *.hibernate 0 =
start
1 rnd 2 mult 3 sub .shoot store
216 .shootval store
stop


'Gene 5 Blind Retaliation
cond
 *.hit 1 =
 *.eye5 40 > or
 *.refeye *.myeye !=
start
*.shang 90 sub .aimdx
10 .repro store
10 .repro store
stop


' Gene 6 Eat Food
cond
 *.eye5 50 >
 *.refeye *.myeye !=
 *.hibernate 0 =
 *.refeye 0 =
 *.robage 0 !=
start
-1 .shoot store
 *.refvelup .up store
stop

' Gene 7 Venom
cond
 *.hibernate 0 =
 *.venom 50 <
start
10 .strvenom store
stop

' Gene 8 Avoiding Family
cond
 *.eye5 0 =
 *.refeye *.myeye = or
 *.hibernate 0 =
start
 314 rnd .aimdx store
stop


' Gene 9 Duplicate
cond
 *.robage 0 !=
 *.numties 0 =
 *.head 0 =
start
 1 .head store
stop


' Gene 10 Reproduce
cond
 *.nrg 15000 >
 *.robage 3 > and
start
 15 .repro store
stop


' Gene 11 Reproduce for MB league
cond
 *.numties 0 =
 *.robage 0 !=
start
 10 .repro store
stop


'*-*-*-*-*-*-*-*-*-*-*-*


' Core Fat Functions
body
cond
*.nrg 1200 >
*.nrg *.body 100 add >
start
100 .strbody store
stop

cond
*.nrg 1000 <
start
100 .fdbody store
stop


' tie to parent
cond
*.robage 0 =
start
.tie inc
stop


' If MB Stuff
cond
 *.multi 1 = or
 *.hibernate 0 =
start
 50 .sharenrg store
 500 .maxlen
 60 .stifftie store
stop

' MB communication
cond
 *.eye5 0 !=
 *.head 1 =
start
 *.eye5 .tout1 store
 *.aimdx .tout2 store
stop

cond
 *.tin1 0 !=
 *.head 0 =
start
*.tin2 .aimdx store
stop


' Waste Disposal
cond
*.waste 100 >
*.refeye 0 =
*.reftie 0 =
start
*.waste .shootval store
-4 .shoot store
stop


'I want to stay young, FOREVER!
cond
*.pwaste 1000 >
start
90 .repro store
10 .tie store
10 .tienum
-1 .tieloc
1000 .tieval store
end



1 Major change from russian babies mobilised, is an extra gene...These babies, stay babies...For certain, they create a young clone of themselves if they become an pensioner...And pump all their energy into it, I haven't actually seen the process happen, because of how successful they are and how much they reproduce...They should work on even bad processors, theyre not quite cancerous (in f1 conditions). Its an anti-pwaste measure, and they certainly became younger on average, as I checked the age graph, when they weren't being hunted by anything else, and it was lower than the average age of the vegetables, and most of the vegetables were being smashed by them...It was quite tremendous actually the effect it had. Im entertained by it
« Last Edit: June 08, 2015, 04:02:21 PM by Botsareus »
Autism can allow so much joy, and at the same time sadness to be seen. Our world is weird, and full of contradiction everywhere, yet somehow at moments seems to come together, and make near perfect sense.