Author Topic: Gnat2.0(F3)(SB)(MysticalDumpling)1.6.14  (Read 558 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
Gnat2.0(F3)(SB)(MysticalDumpling)1.6.14
« on: August 02, 2014, 10:44:17 AM »
Code: [Select]
'A plain, really, really annoying gnat
'Now with kamikaze!

start
'==========Init============
*.robage 0 =
.deltie inc
30 rnd 21 =
1 rnd 971 store
.chlr .memloc store
clearbool
*.totalmyspecies 100 >
30 rnd 30 =
21 inc
clearbool
'========Body==========
*.body 20 >
*.body 20 sub 10 mult .fdbody store
clearbool
*.body 20 <
*.nrg 300 >= and
100 .strbody store
clearbool

*.body 500 >
*21 1 = and
100 .fdbody store
clearbool
*.body 500 <
*21 1 = and
100 .strbody store
clearbool
'=======Repro=======
*.totalmyspecies 725 < and
*.nrg *.body 10 mult add 800 > and
80 *.velscalar sub 0 floor .sx store
50 .repro store
628 rnd .aimsx store
clearbool
'========Hunting Mec.=========
*.eyef 0 >
*.myeye *.refeye != and
*.refxpos *.refypos angle .setaim store
*.refvelup 100 *.eye5 sub add *.veldn abs - floor .up store
*.refveldx .dx store
clearbool
*.eye5 50 >
*.myeye *.refeye != and
-6 .shoot store

*.eye5 50 >
*971 1 = and
*.myeye *.refeye != and
-1 .shoot store
clearbool

*21 1 =
*.refkills 2 > and
*.myeye *.refeye != and
32000 .shootval store
clearbool
'=======Searching...=========
*.myeye *.refeye =
*.eye5 0 =
or
10 .up store
10 .sx store
clearbool
« Last Edit: August 02, 2014, 12:20:47 PM by Botsareus »