味噌味の技

sub skill_72 { # 算術士

return (
	[0,		15,		'ＭＰ５',		sub{ return if &is_bad_state('魔'); $com =~ /＠(.+?)(?:(?:\x20|　)?＠(×.+?)(?:\x20|　)|\x20|　)/; my $action2 = $2; if (defined $actions{$action2}) { $_mp_num = 5; &{ $actions{$action2}[1] }; } else { $com.=qq|詠唱失敗！|; };	}],
	[100,	14,		'ＭＰ４',		sub{ return if &is_bad_state('魔'); $com =~ /＠(.+?)(?:(?:\x20|　)?＠(×.+?)(?:\x20|　)|\x20|　)/; my $action2 = $2; if (defined $actions{$action2}) { $_mp_num = 4; &{ $actions{$action2}[1] }; } else { $com.=qq|詠唱失敗！|; };	}],
	[150,	13,		'ＭＰ３',		sub{ return if &is_bad_state('魔'); $com =~ /＠(.+?)(?:(?:\x20|　)?＠(×.+?)(?:\x20|　)|\x20|　)/; my $action2 = $2; if (defined $actions{$action2}) { $_mp_num = 3; &{ $actions{$action2}[1] }; } else { $com.=qq|詠唱失敗！|; };	}],
	[0,		17,		'ＭＰ７',		sub{ return if &is_bad_state('魔'); $com =~ /＠(.+?)(?:(?:\x20|　)?＠(×.+?)(?:\x20|　)|\x20|　)/; my $action2 = $2; if (defined $actions{$action2}) { $_mp_num = 7; &{ $actions{$action2}[1] }; } else { $com.=qq|詠唱失敗！|; };	}],
	[20,	0,		'×フレア',		sub{ return if &is_bad_state('魔'); if (!$_mp_num) { $com.=qq|詠唱失敗！|; return; }; for my $y (@members) { next unless $ms{$y}{mp}; next if $ms{$y}{hp} <= 0; next if $ms{$y}{mp} % $_mp_num != 0; my $v=int(260 * (rand(0.3)+0.9)); $v=int(rand(2)+1) if $ms{$y}{mdf} > 999; $ms{$y}{hp}-=$v; $com.=qq|<b>$y</b>に <span class="damage">$v</span> のダメージ！|; if ($ms{$y}{hp} <= 0) { $ms{$y}{hp}=0; $com .= qq|<span class="die">$yをたおした！</span>|; &defeat($y); }; };		}],
	[40,	0,		'×リフレク',	sub{ return if &is_bad_state('魔'); if (!$_mp_num) { $com.=qq|詠唱失敗！|; return; }; for my $y (@members) { next unless $ms{$y}{mp}; next if $ms{$y}{hp} <= 0; next if $ms{$y}{mp} % $_mp_num != 0; $ms{$y}{tmp}='魔反撃'; $com.=qq|<span class="tmp">$yは魔法の壁で守られた！</span>|; };		}],
	[70,	0,		'×ケアルガ',	sub{ return if &is_bad_state('魔'); if (!$_mp_num) { $com.=qq|詠唱失敗！|; return; }; for my $y (@members) { next unless $ms{$y}{mp}; next if $ms{$y}{hp} <= 0; next if $ms{$y}{mp} % $_mp_num != 0; my $v=int(500 * (rand(0.3)+0.9)); $ms{$y}{hp}+=$v; $ms{$y}{hp}=$ms{$y}{mhp} if $ms{$y}{hp} > $ms{$y}{mhp}; $com.=qq|<b>$y</b>の$e2j{mhp}が <span class="heal">$v</span> 回復した！|; };		}],
	[120,	0,		'×アレイズ',	sub{ return if &is_bad_state('魔'); if (!$_mp_num) { $com.=qq|詠唱失敗！|; return; }; for my $y (@members) { next unless $ms{$y}{mp}; next if $ms{$y}{hp} >  0; next if $ms{$y}{mp} % $_mp_num != 0; $ms{$y}{hp}=$ms{$y}{mhp}; $com.=qq|なんと、<span class="revive">$yが生き返りました！</span>|; };		}],
	[180,	0,		'×デス',		sub{ return if &is_bad_state('魔'); if (!$_mp_num) { $com.=qq|詠唱失敗！|; return; }; for my $y (@members) { next unless $ms{$y}{mp}; next if $ms{$y}{hp} <= 0; next if $ms{$y}{mp} % $_mp_num != 0; next if $ms{$y}{hp} > 999; $ms{$y}{hp}=0; $com.=qq|<span class="die">$yは死んでしまった！</span>|; &defeat($y); };		}],

);

}