!/usr/bin/perl use CGI; my $query = CGI->new(); my $name = $query->cookie('username'); my $name2 = param('nametext'); open FILE, "user/$name" or die "Error: $!\n"; my %data = (); while ( my $line = ) { chomp $line; my ($key, $value) = split(/\s*:\s*/, $line); $data{$key} = $value; } close FILE; open FILE2, "user/$name2" or die "Error: $!\n"; my %data2 = (); while ( my $line2 = ) { chomp $line2; my ($key, $value) = split(/\s*:\s*/, $line2); $data2{$key} = $value; } close FILE2; print "content-type: text/html\n\n"; print ""; print "!BATTLE!"; print ""; print "

And The Feirce battle begins!"; sub genRand { my $startNumber = shift(); my $endNumber = shift(); my $randNumber = int($startNumber + rand() * ($endNumber - $startNumber)); return $randNumber; }; $hp=$data{htp}; $minatt=$data{minatt}; $maxatt=$data{maxatt}; $hp2=$data2{htp}; $minatt2=$data2{minatt}; $maxatt2=$data2{maxatt}; while ($hp > 0 and $hp2 > 0) { $att=genRand($minatt,$maxatt); print "

you deal ",$att," damage! he has "; $hp2=$hp2-$att; print $hp2," HP remaining"; $att2=genRand($minatt2,$maxatt2); print "

he deals ",$att2," Damage!"; $hp=$hp-$att2; print " you have ",$hp," HP remaining"; if ($hp < 1) {print "

$name2 Wins!!\n";} elsif ($hp2 < 1) {print "

You Win!!\n"; }; };