sub BATTLE{ while(1){last unless(1 < $_[0]->{HP}); last unless(1 < $_[1]->{HP}); # 本来はカードによる効果 今日は交互にダメージを与える実験だけ $_[0]->{HP}-=int(rand(10)) if (int(rand(2))); $_[1]->{HP}-=int(rand(10)) if (int(rand(2))); $LOG.="A:".$_[0]->{HP}."\n"."B:".$_[1]->{HP}."\n"; }# END while return \$LOG; }# END BATTLE
sub Shuffle{my @OUT;srand; push @OUT,splice @_,rand @_,1 while @_; return \@OUT;}