46
dude wth are you a member of anonymous or something?
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.
[div class=\'codetop\']CODE[div class=\'codemain\' style=\'height:200px;white-space:pre;overflow:auto\']def venomcounter 51
' Gene 1 Food Finder
cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop
' Gene 2 Eat
cond
*.eye5 50 >
*.refeye *.myeye !=
*.refpoison 0 =
*.refshell 0 =
start
.venomcounter inc
16 .shootval store
-6 .shoot store
*.refvelup .up store
stop
' Gene 3 Eat Poison
cond
*.eye5 50 >
*.refeye *.myeye !=
*.refpoison 0 >
*.refshell 0 =
start
.venomcounter inc
16 .shootval store
-6 .shoot store
*.refvelup .up store
stop
' Gene 4 Eat Shells
cond
*.eye5 50 >
*.refeye *.myeye !=
*.refshell 0 >
*.refpoison 0 =
start
.venomcounter inc
16 .shootval store
-1 .shoot store
*.refvelup .up store
stop
' Gene 5 Eat Poisonous Shells
cond
*.eye5 50 >
*.refeye *.myeye !=
*.refpoison 0 >
*.refshell 0 >
start
.venomcounter inc
16 .shootval store
-6 .shoot store
*.refvelup .up store
stop
' Gene 6 SPIN!
cond
*.eye5 0 =
*.refeye *.myeye = or
start
0 .venomcounter store
314 rnd .aimdx store
stop
' Gene 7 Have Kids
cond
*.nrg 15000 >
start
40 .repro store
stop
' Gene 8 I'm a friend, Reprovirus!
' (That's a virus I'll release onto internet mode)
cond
*.robage 0 =
start
67 989 store
stop
' Gene 9 Poo
cond
*.waste 40 >
start
.backshot inc
-4 .shoot store
*.waste .shootval store
stop
' Gene 10 MOVE!
cond
start
.fixpos *.fixed mult dec
stop
' Genes 11 & 12 I hate birth ties
cond
*.robage 0 =
start
.tie inc
stop
cond
*.robage 1 =
start
.deltie inc
stop
' Gene 13 Poison
cond
*.poison 500 <
start
.eye5 .ploc store
50 .strpoison store
stop
'Gene 14 Shell
cond
*.shell 250 <
start
100 .mkshell store
stop
' Genes 15, 16 & 17 Venom
cond
*.robage 0 =
start
.shoot .vloc store
-2 .venval store
stop
cond
*.venomcounter 19 >
*.eye5 50 >
*.refeye *.myeye !=
start
50 .shootval store
-3 .shoot store
0 .venomcounter store
stop
cond
*.venom 500 <
start
50 .strvenom store
stop
'Gene 18 Delete viruses
cond
*.mkvirus 0 !=
start
*.mkvirus .delgene store
stop
end
I'm atheist, simply because I have no reason to believe that there's a god. There's no evidence. However, it's possible that the universe is a simulation. Evidence to support this is the fact that electrons appear and disappear, jumping from one place to another. This would be their difference in position between "cycles".
'''''''''''''''''''''''' Gene: 1 Begins at position 1 '''''''''''''''''''''''
start
*.tiepres *.numties sgn mult 100 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor -- abs mult add 628 rnd *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor *.eye5 30 sub sgn 0 floor mult *.eye5 sgn *.myeye *.refeye sub sgn abs -- abs mult add sgn mult add 40 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor mult *.eye5 30 sub sgn 0 floor -- abs mult add -6 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.myeye *.refeye sub sgn abs mult *.eye5 40 sub sgn 0 floor mult add -60 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.eye5 sgn -- abs mult *.eye9 sgn mult add 40 *.vel sub *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.eye5 sgn -- abs mult *.eye9 sgn -- abs mult add 50 *.eye5 sub 0 floor over *.vel sub *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.myeye *.refeye sub sgn abs mult *.eye5 sgn abs mult *.eye5 40 sub sgn 0 floor -- abs mult add 467 *.numties sgn mult 313 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor -- abs mult add 5 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor *.eye5 30 sub sgn 0 floor mult *.eye5 sgn *.myeye *.refeye sub sgn abs -- abs mult add sgn mult add 300 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor mult *.eye5 30 sub sgn 0 floor -- abs mult add 7 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.myeye *.refeye sub sgn abs mult *.eye5 40 sub sgn 0 floor mult add 6 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.eye5 sgn -- abs mult *.eye9 sgn mult add 1 *.numties sgn -- abs mult *.body 50 sub sgn 0 floor mult *.nrg 2000 sub sgn 0 floor -- abs mult *.eye5 sgn -- abs *.eye9 sgn -- abs mult *.myeye *.refeye sub sgn abs *.eye5 sgn abs mult *.eye5 40 sub sgn 0 floor -- abs mult add sgn mult add store
stop
'''''''''''''''''''''''' Gene: 1 Ends at position 455 '''''''''''''''''''''''