# 内政回数が100回以上なら、10000G if($nai_cnt>99){ $gold += 10000; $log .= qq|内政回数が、100回を超えた為、報奨金10000Gを受け取りました|; $nai_cnt=0; # 内政回数を0にする } # 内政 if($nai_cnt>0){ my $g = $nai_cnt * 100; # 内政回数x100G $g = 100000 if($g>100000); # 最大10万G $gold += $g; $log .= qq|内政報奨金 $g が支給されました|; $nai_cnt=0; # 内政回数を0にする }