Author Topic: Coloniser(SB)(Spike43884)10-25-2014  (Read 409 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
Coloniser(SB)(Spike43884)10-25-2014
« on: June 09, 2015, 04:18:19 PM »
Code: [Select]
'Coloniser (MB)
'By Spike43884
'Spawn just 1, right near a patch of veggies,
'it becomes intertwined with them.
'Nobody else will be feeding today.
 cond
 *.nrg 15 >
 *.numties 0 !=
 or
 start
 .fixpos dec
 *.robage 0 =
 314 .aimright store
 .deltie inc
 300 .eye5width store
 336 .memloc store
 336 .tmemloc store
 15 rnd 110 store
 *110 5 <
 and
 *110 973 store
 *973 0 =
 5 rnd 973 store
 *.body 5 >
 *.nrg 80 >
 and
 *.totalmyspecies 1000 2 mult <
 and
 *.maxvel .dn store
 50 .repro store
 *.totalmyspecies 1000 <
 *.nrg 200 >
 and
 50 *.body 10 mult sub 0 floor .strbody store
 not
 *.body 1 >
 and
 *.body 10 mult 10 sub *.numties store
 -98 312 floor 0 0 !=
 *.dnalen =
 *.numties 1 >
 or
 and
 *.numties .deltie store
 *.numties 0 !=
 *.robage 1 >
 and
 *.trefxpos *.trefypos angle .setaim store
 99 .sharenrg store
 dupbool
 *.memval 13 =
 and
 *.trefxpos *.xpos sub abs *.trefypos *.ypos sub abs pyth 5 div 10 sub 0 floor *.maxvel ceil .up store
 *.velsx .dx store
 dropbool
 dupbool
 *973 1 =
 and
 453 .tieloc store
 3200 .tieval store
 *.memval 13 =
 and
 452 .shoot store
 -1 .shootval store
 dropbool
 dupbool
 *973 2 =
 and
 8 .tieloc store
 -31999 .tieval store
 dropbool
 dupbool
 *973 3 =
 and
 452 .tieloc store
 -6 .tieval store
 *.memval 13 =
 and
 453 .shoot store
 3200 .shootval store
 dropbool
 *973 3 >
 and
 452 .tieloc store
 -1 .tieval store
 *.memval 13 =
 and
 453 .shoot store
 3200 .shootval store
 *.numties 0 =
 *.body 1 =
 and
 dupbool
 *.eye5 0 =
 *.memval *.dnalen =
 or
 and
 350 .aimright store
 dropbool
 *.eye5 0 !=
 and
 *.memval *.dnalen *.refbody and
 !=
 20 >
 *.totalmyspecies 600 >
 or
 and
 *.refxpos *.refypos angle .setaim store
 abs .tie inc
 *.memval 13 =
 and
 *.velsx .dx store
 *.refvelup 15 add *.maxvel ceil 0 1 !%=
 floor store
 216 .shoot store
 1 .shootval store
 stop
''''''''''''''''''''''''  Gene:  1 Ends at position  296  '''''''''''''''''''''''