16
Newbie / zerobot sim
« on: January 24, 2007, 06:12:11 AM »Quote from: EricL
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
o ok
now I feel stupid I thought it needed cond start stop
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
'Animal_Minimaxis 3
'By: -venom-
'orij by nums
'now eats to gain energy, roams, and randomly fires
'virus wich deletes the infected bots genes and
'replaces them with a new gene that makes them fire
'all there nrg untill they die.
'(credit goes to henk for nrg drain)
' Gene 1 roam
cond
*.eye5 0 =
start
-4 .dn store
4 .up store
stop
' Gene 2 Food Finder
cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop
' Gene 3 Eat Food
cond
*.eye5 50 >
*.refeye *.myeye !=
start
-1 .shoot store
*.refvelup .up store
stop
' Gene 4 shoot back
cond
*.shflav 0 !=
*.shflav -2 !=
start
1256 *.shang sub .aimshoot store
8 .shootval store
400 .vshoot store
0 .shflav store
stop
' Gene 5,6,7,8 Avoiding others
cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop
cond
start
*.refbody 2 div dup
stop
cond
*.eye5 0 >
*.body >
*.refeye 1 >
start
-15 .up store
stop
cond
*.eye5 50 >
*.body >
*.refeye 1 >
start
.setaim .shoot store
*.aim .shootval store
stop
' Gene 9 make shell
cond
*.shell 250 <
start
100 .mkshell store
stop
' Gene 10 make slime
cond
*.slime 100 <
start
1000 .mkslime store
stop
' Gene 11 Reproduce
cond
*.nrg 9000 >
start
30 .repro store
stop
' Gene 12,13,14,15 virus genes
cond
*.robage 0 =
start
7 989 store
stop
cond
*.vtimer 0 =
start
14 .mkvirus store
15 .mkvirus store
stop
cond
7 *989 !=
start
400 .vshoot store
*.thisgene .mkvirus *.vtimer -1 mult 1 add mult store
676 .myeye store
676 *.memloc store
*.mkvirus 1 add .delgene *.mkvirus *.thisgene sub dup mult sgn mult
*.thisgene 1 rnd 2 mult -1 add add .delgene store
stop
cond
7 *989 !=
*.robage 0 !=
start
-2 .shoot store
*.nrg .shootval store
stop
' Gene 16,17,18
cond
*.refeye *.myeye !=
*.eye5 45 >
start
13 .tie *.robage sgn mult *.refage sgn mult store
stop
cond
*.tiepres 0 >
*.tienum 0 =
start
*.tiepres .tienum store
stop
cond
*.tienum 0 >
start
-1 .tieloc store
-1000 .tieval store
stop
end
cond
*.shflav 0 !=
*.shflav -2 !=
start
1256 *.shang sub .aimshoot store
8 .shootval store
400 .vshoot store
0 .shflav store
stop