「味噌味の技」の編集履歴（バックアップ）一覧はこちら
「味噌味の技」(2010/07/11 (日) 16:16:39) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
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); }; }],
);
}
＃comment()
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); }; }],
);
}
#comment()
