16
Bot Tavern / Re: Lets make another wikibot!
« on: April 17, 2014, 12:34:10 AM »
.shoot dec
Felt that was missing
Felt that was missing
Show Posts
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.
start
.tie inc
*.focuseye .eye5 add * 0 >
*.nrg 1000 sub sgn 0 floor 49 *.venom sub sgn 0 floor mult 5 mult .strvenom store
7 .venloc store
-2 .venval store
59 << *.robage 192 ceil >> rnd << << ++ store
*.eyef 0 sub sgn abs -- abs .focuseye mult inc
clearbool
*.refbody << *.timer rnd 3 ceil mult ++ .up store
59 << *.robage 192 ceil >> rnd << << ++ store
stop
start
.tie inc
*.focuseye .eye5 add * 0 >
*.nrg 1000 sub sgn 0 floor 49 *.venom sub sgn 0 floor mult 5 mult .strvenom store
7 .venloc store
-2 .venval store
59 << *.robage 192 ceil >> rnd << << ++ store
*.eyef 0 sub sgn abs -- abs .focuseye mult inc
clearbool
stop
start
.tie inc
*.focuseye .eye5 add * 0 >
*.nrg 1000 sub sgn 0 floor 49 *.venom sub sgn 0 floor mult 5 mult .strvenom store
7 .venloc store
-2 .venval store
59 << *.robage 192 ceil >> rnd << << ++ store
stop
use strict;
use warnings;
my $amount = 5;
my $size = 500;
my @opps = (">","<",">=","<=","=","!=","%=","!%=","~=","!~=","add","sub","mult","div","ceil","floor","mod","sgn","abs","angle","dist","sqr","pow","pyth","anglecmp","root","logx","sin","cos","~","&","|","^","++","--","-","<<",">>","clear","clearbool","drop","dropbool","dup","dupbool","swap","swapbool","over","overbool","true","false","and","or","not","xor");
my @comm = ("store", "inc", "dec");
for(my $a = 1; $a <= $amount; $a++)
{
open (MYFILE, '>>TestBot' . $a . '.txt');
print MYFILE "start\n";
for(my $i = 0; $i < $size; $i++)
{
my $randomType = rand(100);
if($randomType < 69)
{
my $randomVal = rand(1000);
my $randVal = int($randomVal);
if($randomType < 15)
{
print MYFILE "*$randVal ";
}
else
{
print MYFILE "$randVal ";
}
}
elsif($randomType < 79)
{
my $randComm = int(rand(3));
if($randComm != 3)
{
print MYFILE $comm[$randComm] . " ";
}
}
elsif($randomType < 98)
{
my $arraySize = scalar (@opps);
my $randOpp = int(rand($arraySize));
if($randOpp != $arraySize)
{
print MYFILE $opps[$randOpp] . " ";
}
}
else
{
print MYFILE "\nstop\n\nstart\n";
}
}
print MYFILE "\nstop\n";
close (MYFILE);
}
print "Done\n";
my $line2 = <STDIN>;
326 stop
store
store
'''''''''''''''''''''''' Gene: 1 Begins at position 5 '''''''''''''''''''''''
start
sqr .tie dec
59 << *.robage 192
'''''''''''''''''''''''' Gene: 1 Ends at position 12 '''''''''''''''''''''''
'''''''''''''''''''''''' Gene: 2 Begins at position 13 '''''''''''''''''''''''
start
overbool
.shoot dec
ceil >> rnd << << ++ store
store
stop
'''''''''''''''''''''''' Gene: 2 Ends at position 25 '''''''''''''''''''''''