Author Topic: Evolved Tribolis (F2/F3)(evo)(mut)(MysticalDumpling)25.2.14  (Read 694 times)

Offline Botsareus

  • Society makes it all backwards - there is a good reason for that
  • Moderator
  • Bot God
  • *****
  • Posts: 4483
    • View Profile
    • DJ Paul Kononov
Evolved Tribolis (F2/F3)(evo)(mut)(MysticalDumpling)25.2.14
« on: April 30, 2014, 12:39:03 PM »
Code: [Select]
#generation: 94
'#mutations: 101
 cond
 0 =
 start
 .tie inc
 654 .out1 store
 1 999 store
 654 .tout1 store
 stop
''''''''''''''''''''''''  Gene:  1 Ends at position  16  '''''''''''''''''''''''
 dupbool
 cond
 *.robage 1 %=
 start
 628 .aimright store
 =
 25
''''''''''''''''''''''''  Gene:  2 Ends at position  27  '''''''''''''''''''''''
 cond
 stop
''''''''''''''''''''''''  Gene:  3 Ends at position  29  '''''''''''''''''''''''
 >
 0 *.numties start
 *.tin9 ++ .tout9 store
 dist stop
''''''''''''''''''''''''  Gene:  4 Ends at position  39  '''''''''''''''''''''''
 cond
 *.numties 0 =
 start
 .tout9 store
 3 999 store
 50 .repro store
 stop
''''''''''''''''''''''''  Gene:  5 Ends at position  53  '''''''''''''''''''''''
 cond
 *999 1 =
 start
 10 *.tout9 3 mult add *.vel sub .up store
 628 .fixang store
 *.eye9 sub sgn mult floor 0 *.eye1 0 floor mult *.eye1 *.eye7 sub sgn 0 floor mult *.eye1 *.eye6 sub sgn 0 floor mult *.eye1 *.eye5 sub sgn mult *.eye1 *.eye4 add sgn 0 floor mult *.eye1 *.eye3 sub sgn 0 floor mult *.eye1 *.eye2 sub dup 0 floor mult 4 *.eye9 *.eye8 sub sgn 0 floor mult *.eye9 sub sgn 0 floor mult *.eye9 *.eye6 sub sgn 0 floor mult *.eye9 *.eye5 0 sgn ~ ^ sub mult *.eye9 *.eye4 sub sgn 0 floor mult *.eye9 *.eye3 sub sgn 0 !=
 floor mult *.eye9 *.eye2 sub sgn 0 ceil mult *.eye9 *.eye1 sub sgn mult sgn ++ add -3 *.eye2 *.eye9 sub sgn ++ sgn mult *.eye2 *.eye8 sub sgn 0 floor *.eye2 *.eye7 sub sgn 0 floor mult *.eye2 *.eye6 sub sgn 0 floor mult *.eye2 *.trefnrg sub sgn 0 floor mult *.eye2 *.eye4 sub sgn 0 floor mult *.eye2 *.eye3 sub sgn 0 floor *.eye2 *.eye1 sub sgn ++ add mult sub 3 *.eye8 *.eye9 sub sgn ++ sgn mult *.eye8 *.eye7 sub angle sgn 0 floor *.eye8 *.reffixed sub sgn 0 floor mult *.tin9 *.eye5 sub sgn 0 floor mult *.eye8 *.eye4 sub sgn 0 xor
 floor mult *.eye8 *.eye3 sub sgn 0 floor mult *.eye8 *555 sub sgn ++ sgn mult *.eye8 *.eye1 sub sgn ++ sgn mult add -2 *.eye3 *.eye9 swap sgn ++ sgn mult *.eye3 *.eye8 sub sgn ++ sgn mult *.eye3 *.eye7 sub floor 0 sgn mult *.eye3 *.eye6 floor sub sgn 0 floor mult *.eye3 *.eye5 sub sgn 0 floor mult *.eye3 *.eye4 sub sgn 0 floor mult *.eye3 *.eye2 sub sgn ++ sgn mult *.eye3 *.eye1 sub sgn ++ sgn mult add *.eye9 sub sgn ++ sgn mult *.eye7 !~=
 sub sgn ++ sgn mult *.eye7 *.eye7 sub sgn 0 floor mult *.eye7 *.eye6 sub over 0 floor mult *.eye7 *.eye5 sub sub 0 floor *.eye4 *.eye7 mult sub sgn !~=
 ++ sgn mult *.eye7 *.eye2 *.refypos ++ *.eye7 mult sgn *.eye1 sub sgn ++ sgn mult add -1 *.eye4 *.eye9 sub sgn ++ mult sgn ++ sgn mult *.eye4 *.eye7 sub sgn ++ sgn mult *.eye4 *.eye6 sub sgn 0 floor *.eye5 *.eye4 mult sub sgn 0 floor mult *.eye4 <
 *.eye3 sub sgn ++ sgn mult *.eye4 *.eye2 sub sgn ++ sgn mult *.eye4 *.eye1 sub sgn ++
''''''''''''''''''''''''  Gene:  6 Ends at position  461  ''''''''''''''''''''''' start
 sgn mult add 1 *.eye4 ++ angle sub sgn mult *.eye4 *.eye8 sgn ++ sgn clear *.eye4 *.eye7 sub abs ++ sgn mult *.eye4 sub sgn ++ sgn mult *.eye4 *.eye5 sub over 0 floor mult *.eye4 *.eye3 sub sgn ++ sgn mult *.eye4 *.eye2 sub sgn ++ abs mult *.eye4 *.eye1 sub sgn ++ sgn mult add 0 *.eye5 *.eye9 sub sgn ++ sgn mult *.eye5 *.eye8 sub sgn dec
 ++ sgn mult *.eye5 *.eye7 sub sgn ++ sgn mult *.eye5 *.eye6 sub sgn ++ sgn mult *.eye5 *.eye4 sub sgn ++ sgn mult *.eye5 *.eye3 sub sgn ++ sgn mult *.eye5 *.eye2 sub sgn ++
''''''''''''''''''''''''  Gene:  7 Ends at position  569  ''''''''''''''''''''''' else
 mult *.eye5 *.eye1 sub sgn ++ sgn add add .focuseye store
 stop
''''''''''''''''''''''''  Gene:  8 Ends at position  582  '''''''''''''''''''''''
 cond
 *999 1 =
 *.eyef 0 >
 *.in1 *.out1 !=
 start
 *.refxpos *.refypos angle .setaim store
 stop
''''''''''''''''''''''''  Gene:  9 Ends at position  599  '''''''''''''''''''''''
 cond
 *999 1 =
 *.eyef *.in1 =
 *.out1 =
 *.shang .aimright store
 .shflav store
 stop
''''''''''''''''''''''''  Gene:  10 Ends at position  614  '''''''''''''''''''''''
 cond
 *.in1 *.out1 !=
 *.eye5 dec
 40 >
 *999 1 =
 start
 4 *.reffixed 28 mult add 14 store
 -6 *.refshell sgn 5 mult add .shoot store
 *.veldx .sx store
 *.vel 2 sub .dn store
 stop
''''''''''''''''''''''''  Gene:  11 Ends at position  650  '''''''''''''''''''''''
 cond
 *999 2 =
 start
 *.tout9 3 mult *.vel sub .up store
 stop
''''''''''''''''''''''''  Gene:  12 Ends at position  663  '''''''''''''''''''''''
 cond
 *999 >
 100 *.mkshell =
 2 start
 *.waste .shootval store
 -4 .shoot store
 stop
''''''''''''''''''''''''  Gene:  13 Ends at position  678  '''''''''''''''''''''''
 cond
 *999 2 =
 *.eye5 18
''''''''''''''''''''''''  Gene:  14 Ends at position  684  '''''''''''''''''''''''
 cond
 >
 *.in1 start
 !=
 *.out1 4 *.reffixed 28 mult add .shootval store
 -1 -17 store
 stop
''''''''''''''''''''''''  Gene:  15 Ends at position  701  '''''''''''''''''''''''
 cond
 *999 311 10 *.tout9 750 *.body =
 mult add >
 start
 20 store
 stop
''''''''''''''''''''''''  Gene:  16 Ends at position  716  '''''''''''''''''''''''
 cond
 *999 3 =
 *.in1 *.out1 !=
 *.eye5 30 >
 0 =
 start
 .shootval inc
 216 .shoot store
 stop
''''''''''''''''''''''''  Gene:  17 Ends at position  735  '''''''''''''''''''''''
 cond
 *999 3 =
 *.shflav 0 =
 *.eyef 0 ~=
 *.in1 or
 =
 *.out1 start
 *.trefxpos *.trefypos angle 628 add .setaim store
 stop
''''''''''''''''''''''''  Gene:  18 Ends at position  758  '''''''''''''''''''''''
 cond
 *999 3 =
 *.reffixed 0 >
 *.eye5 30 .shoot store
 896 .dn store
 .vloc store
 *.venom .shootval store
 -3 .shoot store
 stop
''''''''''''''''''''''''  Gene:  19 Ends at position  781  '''''''''''''''''''''''
 cond
 *999 3 =
 *.in1 *.out1 =
 0 !=
 start
 *.shang .aimright store
 .shflav store
 stop
''''''''''''''''''''''''  Gene:  20 Ends at position  797  '''''''''''''''''''''''
 cond
 *.shflav -1 =
 start
 50 *.poison sub .mkpoison store
 7 834 stop
''''''''''''''''''''''''  Gene:  21 Ends at position  810  '''''''''''''''''''''''
 cond
 *.numties 1 =
 *999 1 =
 *.nrg . dec
 >
 *.eye5 30 <
 *.robage 25 >
 start
 2 999 store
 50 .repro store
 314 .aimright inc
 stop
''''''''''''''''''''''''  Gene:  22 Ends at position  838  '''''''''''''''''''''''
 0 0 cond
 *998 *.nrg >
 *.numties >
 start
 .tout9 store
 inc
 stop
''''''''''''''''''''''''  Gene:  23 Ends at position  851  '''''''''''''''''''''''
 cond
 *.tin1 !=
 start
 -1 .tieloc store
 -1000 .tieval store
 stop
''''''''''''''''''''''''  Gene:  24 Ends at position  862  '''''''''''''''''''''''
 cond
 *.timer 50 mod 1 =
 angle start
 10 .shareshell store

''''''''''''''''''''''''  Gene:  25 Ends at position  873  ''''''''''''''''''''''' start

''''''''''''''''''''''''  Gene:  26 Ends at position  874  ''''''''''''''''''''''' start
 40 .stifftie store
 100 .tielen store
 -15 *999 3 sub sgn abs -- drop mult .eye5width store
 *999 .tout2 store
 *.numties 998 store
 *999 2 sub sgn abs -- abs 314 mult *.timer 2 mod 2 mult -- mult dup .aimshoot inc
 525 50 .sharenrg store
 50 dropbool
 store
 500 *.tout9 10 mult add *.body clear -- dup .strbody store
 - .fdbody store
 .fixpos store
 .backshot store
 *.mkvirus 340 stop
''''''''''''''''''''''''  Gene:  27 Ends at position  945  '''''''''''''''''''''''

Offline Botsareus

  • Society makes it all backwards - there is a good reason for that
  • Moderator
  • Bot God
  • *****
  • Posts: 4483
    • View Profile
    • DJ Paul Kononov
Re: Evolved Tribolis (F2/F3)(evo)(mut)(MysticalDumpling)25.2.14
« Reply #1 on: June 14, 2014, 02:16:53 PM »
Disqualified for taking energy from opponent using a tie.