Author Topic: Two (2G)(Mod)(Endy)-23.06.05  (Read 2785 times)

Offline Endy

  • Bot Overlord
  • ****
  • Posts: 852
    • View Profile
Two (2G)(Mod)(Endy)-23.06.05
« on: June 23, 2005, 03:58:46 AM »
Code: [Select]
'Two
'Who says there can be only One?
'Mod by Endy
'Designed by Shen

' Not quite a finished product here, really just a basic demo of the virus bug I think I found.
' The vast majority of it's still Shen's bot, but with the speedier virus production it's able to defeat itself
' most of the time(Something like 14/15 times)

cond
start
.mkvirus inc
stop

cond
start
*.eye5 *.eye5 sub inc
300 .vshoot *.thisgene 1 sub dup div mult store
'Feed and store body
100 *.nrg 1000 sub sgn 0 floor 500 *.body sub sgn 0 floor mult .strbody mult store
100 500 *.nrg sub sgn 0 floor .fdbody mult store

'shell and venom production
200 *.shell sub 0 floor 200 ceil 200 *.shell sub sgn abs .mkshell mult store
10 *.venom sub 0 floor 10 ceil *.venom 10 sub sgn abs .strvenom mult store

'tie codes
*.tiepres *51 *.tiepres sub sgn abs *.tiepres sgn mult .deltie mult store
*51 *.refeye sgn -1 mult 1 add *.refeye *.myeye sub sgn abs *.eye5 35 sub 0 floor sgn mult mult .tie

mult store
*51 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tienum mult store
-1 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tieloc mult store
-1000 *.tie sgn *.tiepres *51 sub sgn abs -1 mult 1 add add sgn .tieval mult store
*.robage sgn 1 sub abs .tie mult inc

'Venom lock code
.mkshell *.vloc sgn -1 mult 1 add .vloc mult store
-100 *.venval sgn 1 add .venval mult store

999 rnd 1 add *51 sgn -1 mult 1 add 51 mult store

'navigation
200 *.aim add *.refeye *.myeye sub sgn abs -1 mult 1 add .setaim mult store
*.maxvel *.vel sub 0 floor *.robage sgn *.refeye *.myeye sub sgn abs mult .up mult store
*.refxpos *.refypos angle *.robage sgn *.refeye *.myeye sub sgn abs *.eye5 sgn mult mult .setaim mult

store
*.refveldx *.refeye *.myeye sub sgn abs *.eye5 sgn mult .dx mult store

*.refeye *.myeye sub sgn abs -1 mult 1 add 50 mult inc
0 *50 30 sub 0 floor sgn .refeye mult store
0 *50 30 sub 0 floor sgn 50 mult store

'shooting
*.refshell 1 sub 0 floor sgn 3 mult 5 sub *.refeye sgn mult 1 sub *.refeye *.myeye sub sgn abs *.eye5

35 sub 0 floor sgn mult .shoot mult store
*.shoot 3 add sgn 10 mult 0 floor *.refeye sgn 30 mult add *.refshell 1 sub 0 floor sgn 20 mult sub *.

shoot sgn abs .shootval mult store

'reproduction
50 *.body 250 sub sgn 0 floor *.nrg 2000 sub sgn 0 floor *.eye5 30 sub 0 floor sgn -1 mult 1 add mult

mult .repro mult store

'antiviral
*.thisgene -1 mult 3 add abs *.genes 1 sub sgn .delgene mult store
stop
end
« Last Edit: May 13, 2014, 04:06:50 PM by Botsareus »