battle.pl

[dshahin]

Category:

fun stuff

Description:

generates two random rpg characters and fights them to death.

#!/usr/bin/perl

my $fred = gen_char();
my $barney = gen_char();

print "fred:\n";
print "strength: $fred->{'strength'} +$fred->{'dam_bonus'} dam\n";
print "dexterity: $fred->{'dexterity'} +$fred->{'hit_bonus'} to hit\n"
+;
print "endurance: $fred->{'endurance'}\n";
print "armor class: $fred->{'armor_class'}\n";
print "\nbarney:\n";
print "strength: $barney->{'strength'} +$barney->{'dam_bonus'} dam\n";
print "dexterity: $barney->{'dexterity'} +$barney->{'hit_bonus'} to hi
+t\n";
print "endurance: $barney->{'endurance'}\n";
print "armor_class: $barney->{'armor_class'}\n";
print "\nlet the battle begin...\n";

until($fred->{'endurance'} <= 0 || $barney->{'endurance'} <= 0 ){
        sleep(1);
        $round++;
        print"round:$round\n";
        fight();
        print "fred: $fred->{'endurance'}\n";
        print "barney: $barney->{'endurance'}\n\n";
}
if ($fred->{'endurance'} > $barney->{'endurance'}){
        print "fred wins!!!\n";
}elsif($barney->{'endurance'} > $fred->{'endurance'}){
        print "barney wins!!!\n";
}else{
        print "tie!\n";
}
print "\ntotal rounds = $round\n";


sub gen_char{
        my %char;
        $char{'strength'} = roll(3, 6, 3);
        $char{'dexterity'} = roll(3, 6, 3);
        $char{'endurance'} = roll(3, 20, 6);
        $char{'armor_class'} = roll(1, 4, 3);
        if($char{'strength'} > 19){ $char{'dam_bonus'} = 3;
        }elsif($char{'strength'} <= 19 && $char{'strength'} > 17){
                $char{'dam_bonus'} = 2;
        }elsif($char{'strength'} <= 17 && $char{'strength'} > 15){
                $char{'dam_bonus'} = 1;
        }else{
                $char{'dam_bonus'} = 0;
        }
        if($char{'dexterity'} > 19){
                $char{'hit_bonus'} = 3;
        }elsif($char{'dexterity'} <= 19 && $char{'dexterity'} > 17){
                $char{'hit_bonus'} = 2;
        }elsif($char{'dexterity'} <= 17 && $char{'dexterity'} > 15){
                $char{'hit_bonus'} = 1;
        }else{
                $char{'hit_bonus'} = 0;
        }
        return \%char;
}

sub roll {
        my $number = $_[0];
        my $sides = $_[1];
        my $modifier = $_[2];
        my $total = 0;
        for($i = 0; $i < $number; $i++){
           $total += int(rand($sides)+1);
        }
        $total += $modifier;
        return $total;
}

sub fight {
        $barney_attack = roll($fred->{'armor_class'}, 6, $barney->{'hi
+t_bonus'});
        $fred_attack = roll($barney->{'armor_class'}, 6, $fred->{'hit_
+bonus'});
        my $damage = 0;
        if ($fred_attack > $barney->{'dexterity'}){
            $damage = roll(1, 6, $fred->{'dam_bonus'});
            print "fred rolls $fred_attack, hits for $damage damage!\n
+";
            $barney->{'endurance'} = $barney->{'endurance'} -  $damage
+;
        }else{
           print "fred rolls $fred_attack, misses\n";
        }
        if ($barney_attack > $fred->{'dexterity'}){
            $damage = roll(1, 6, $barney->{'dam_bonus'});
            print "barney rolls $barney_attack, hits for $damage damag
+e!\n";
            $fred->{'endurance'} = $fred->{'endurance'} - $damage;
        }else{
            print "barney rolls $barney_attack, misses\n";
        }
}