Author Topic: Aura (1G)(abyaly)-29.03.07  (Read 4047 times)

Offline abyaly

  • Bot Destroyer
  • ***
  • Posts: 363
    • View Profile
Aura (1G)(abyaly)-29.03.07
« on: March 29, 2007, 06:23:07 PM »
Code: [Select]
'Aura
 'Antisocial F1/F2 bot by abyaly
 'Uses one very large eye
 
 def bornaim 941
 def IDcheck 946
 def enemy 947
 def ID 1234
 
 cond
 start
 
 314 .setaim *.robage 1 sub sqr sgn mult store
 .out5 inc
 
 *.in5 *.in4 add *.memval add *.refage 10000 mod sub .ID sub sgn abs
 *.in5 *.in4 add *.memval add *.refage 10000 mod sub .ID sub 1 add sgn abs mult .enemy store
 
 .aimdx inc
 
 '**************************************************************
 'avoid conspecs
 '**************************************************************
 *.refxpos *.xpos sub *.refveldx add 10 *.nrg 20 div ceil 5 floor mult
 *.refypos *.ypos sub *.refveldn add dup mult *.refxpos *.xpos sub *.refveldx add dup mult add sqr div
 .sx
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.numties 0 sub sgn abs 1 sub abs mult
   *.enemy 0 sub sgn abs 1 sub abs mult
 store
 
 *.refypos *.ypos sub *.refveldn add 10 *.nrg 20 div ceil 5 floor mult
 *.refypos *.ypos sub *.refveldn add dup mult *.refxpos *.xpos sub *.refveldx add dup mult add sqr div
 .up
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.numties 0 sub sgn abs 1 sub abs mult
   *.enemy 0 sub sgn abs 1 sub abs mult
 store
 
 '**************************************************************
 'eat/chase
 '**************************************************************
 
 -6 3 4 add
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refxpos *.refypos dist 150 div -1 mult .shootval
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refxpos *.refveldx *.veldx add 2 mult add
 *.refypos *.refveldn *.velup add 2 mult add
 angle - *.aim add .aimshoot
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refveldx *.refveldx *.refxpos *.xpos sub mult
 *.refveldn *.refypos *.ypos sub mult add
 *.refxpos *.xpos sub dup mult
 *.refypos *.ypos sub dup mult add div
 *.refxpos *.xpos sub mult sub .dx
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refveldn *.refveldx *.refxpos *.xpos sub mult
 *.refveldn *.refypos *.ypos sub mult add
 *.refxpos *.xpos sub dup mult
 *.refypos *.ypos sub dup mult add div
 *.refypos *.ypos sub mult sub .dn
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refxpos *.xpos sub 97 *.eyef sub 40 ceil mult
 *.refypos *.ypos sub dup mult *.refxpos *.xpos sub dup mult add sqr div - .sx
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 *.refypos *.ypos sub 97 *.eyef sub 40 ceil mult
 *.refypos *.ypos sub dup mult *.refxpos *.xpos sub dup mult add sqr div - .up
   *.robage 1 sub sqr sgn mult
   *.eyef 0 sub sqr sgn mult
   *.enemy 0 sub sqr sgn mult
 store
 
 '**************************************************************
 'misc
 '**************************************************************
 'ties
 *.tiepres .deltie
   *.robage 1 sub sqr sgn mult
   *.numties 0 sub sqr sgn mult
 store
 
 'body & nrg
 *.nrg *.body sub 2 div 10 mult .strbody
   *.nrg *.body sub sqr sgn mult
 store
 *.body *.nrg sub 2 div .fdbody
   *.body *.nrg sub sqr sgn mult
 store
 
 'shell
 *.body *.shell sub 0 floor .mkshell
   *.body *.shell sub sgn abs mult
 store
 
 'waste
 -4 3 4 add
   *.waste 100 sub sqr sgn mult
 store
 *.waste .shootval
   *.waste 100 sub sqr sgn mult
 store
 
 'antiviral
 .delgene inc
 .delgene inc
 
 '**************************************************
 'repro1
 '**************************************************
 4 rnd 100 mult *.bornaim add .setaim
   *.robage 1 sub sqr sgn mult
   *.eyef sgn 1 sub abs mult
 store
 
 4 rnd 100 mult *.bornaim add .bornaim
   *.robage 1 sub sqr sgn mult
   *.eyef sgn 1 sub abs mult
 store
 
 50 .repro
   *.robage 1 sub sqr sgn mult
   *.eyef sgn 1 sub abs mult
 store
 
 '**************************************************
 'repro2
 '**************************************************
 4 rnd 100 mult *.bornaim add .setaim
   *.robage 1 sub sqr sgn mult
   60 *.eyef sub sqr sgn mult
   *.nrg 10000 sub sqr sgn mult
   *.body 10000 sub sqr sgn mult
 store
 
 4 rnd 100 mult *.bornaim add .bornaim
   *.robage 1 sub sqr sgn mult
   60 *.eyef sub sqr sgn mult
   *.nrg 10000 sub sqr sgn mult
   *.body 10000 sub sqr sgn mult
 store
 
 50 .repro
   *.robage 1 sub sqr sgn mult
   60 *.eyef sub sqr sgn mult
   *.nrg 10000 sub sqr sgn mult
   *.body 10000 sub sqr sgn mult
 store
 
 '**************************************************
 'born
 '**************************************************
 1 .tie *.robage sgn 1 sub abs mult store
 1220 .eye1width *.robage sgn 1 sub abs mult store
 1220 .eye2width *.robage sgn 1 sub abs mult store
 1220 .eye3width *.robage sgn 1 sub abs mult store
 1220 .eye4width *.robage sgn 1 sub abs mult store
 1220 .eye5width *.robage sgn 1 sub abs mult store
 1220 .eye6width *.robage sgn 1 sub abs mult store
 1220 .eye7width *.robage sgn 1 sub abs mult store
 1220 .eye8width *.robage sgn 1 sub abs mult store
 1220 .eye9width *.robage sgn 1 sub abs mult store
 9 rnd 4 sub .focuseye *.robage sgn 1 sub abs mult store
 
 .IDcheck .memloc
   *.memloc .IDcheck sub sgn abs mult
 store
 
 500 rnd .IDcheck *.robage sgn 1 sub abs mult store
 500 rnd .out4 *.robage sgn 1 sub abs mult store
 
 .ID *.IDcheck sub *.out4 sub .out5 1 add .out5
   *.robage sgn 1 sub abs mult
 store
 
 *.aim 628 add 1256 mod .bornaim
   *.robage sgn 1 sub abs mult
 store
 
 1 .deltie
   *.robage 1 sub abs sgn 1 sub abs mult
 store
 
 '**************************************************
 'ID correction
 '**************************************************
 .ID *.IDcheck sub *.out4 sub *.robage 10000 mod add .out5
   *.out5 *.out4 *.IDcheck add add *.robage 10000 mod sub .ID sub sgn abs mult
 store
 
 stop
« Last Edit: March 28, 2008, 11:08:59 PM by Numsgil »
Lancre operated on the feudal system, which was to say, everyone feuded all
the time and handed on the fight to their descendants.
        -- (Terry Pratchett, Carpe Jugulum)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
Aura (1G)(abyaly)-29.03.07
« Reply #1 on: April 26, 2007, 12:25:35 PM »
(waiting to be entered in 1g league)
If you try and take a cat apart to see how it works, the first thing you have in your hands is a non-working cat.
Douglas Adams

Offline Numsgil

  • Administrator
  • Bot God
  • *****
  • Posts: 7742
    • View Profile
Aura (1G)(abyaly)-29.03.07
« Reply #2 on: April 26, 2007, 06:55:27 PM »
Most excellent!  And you kept it well formatted too!