return ( [0, 5, 'ギラ', sub{ &_damages(25+$ms{$m}{mp} * 0.1, '魔', 1); }],
return ( [0, 4, 'ルカニ', sub{ &_st_down(shift, 0.4, '魔', 'df'); }],
@skills = (); if ($ms{$m}{mwskill1} && defined &{ 'weaskill_'.$m{mwskill1}} && $round > 0 && @enemys > 0) { push @skills, &{ 'weaskill_'.$ms{$m}{mwskill1} };
} for my $i (0.. $#skills) { next if $skills[$i][1] > $ms{$m}{mp}; push @actions, "$skills[$i][2]"; $actions{$skills[$i][2]} = [ $skills[$i][1], $skills[$i][3] ]; }
@skills = (); if ($ms{$m}{mwskill2} && defined &{ 'weaskill_'.$m{mwskill2}} && $round > 0 && @enemys > 0) { push @skills, &{ 'weaskill_'.$ms{$m}{mwskill2} };
} for my $i (0.. $#skills) { next if $skills[$i][1] > $ms{$m}{mp}; push @actions, "$skills[$i][2]"; $actions{$skills[$i][2]} = [ $skills[$i][1], $skills[$i][3] ]; }
@skills = (); if ($ms{$m}{mwskill3} && defined &{ 'weaskill_'.$m{mwskill3}} && $round > 0 && @enemys > 0) { push @skills, &{ 'weaskill_'.$ms{$m}{mwskill3} };
} for my $i (0.. $#skills) { next if $skills[$i][1] > $ms{$m}{mp}; push @actions, "$skills[$i][2]"; $actions{$skills[$i][2]} = [ $skills[$i][1], $skills[$i][3] ]; }