RPGの戦闘的な何か

perl_entrance_rpg.pl

#!/usr/bin/env perl
use strict;
use warnings;

# TODO: 素早さでターンを決められるようにする
# TODO: どっちかのHPがなくなるまでやる

my $fighter = {HP => 10, ATK => 2};
my $ork     = {HP => 15, ATK => 1};

# 第1ターン
attack($ork, $fighter);
# 第2ターン
attack($fighter,$ork);
# 第3ターン
attack($ork, $fighter);

print $fighter->{HP} , "\n";
print $ork->{HP} , "\n";

sub attack {
    my $attacker = shift;
    my $defender = shift;

    $defender->{HP} = $defender->{HP} - $attacker->{ATK};
}