罪罰改造板２/23

sub attack_myself{
  ・・・省略・・・
  $log .="$nm は $dg_data[$dg_a][1] で攻撃!!<br>$tnm に $vの傷を与えた!<br>\n";
  $thp -= $v;

  # 武器の特殊攻撃
  if(rand(100)<10 && $dg_a==斬鉄剣のアイテム番号){
    $log .="$nm は $dg_data[$dg_a][1] で攻撃!!<br>$tnm を一刀の元に切り伏せた!<br>\n";
    $thp = 0;
  # 通常攻撃
  }else{
    $log .="$nm は $dg_data[$dg_a][1] で攻撃!!<br>$tnm に $vの傷を与えた!<br>\n";
    $thp -= $v;
  }

• @dg_data = (
    ['ぶき１',  1,  'こめんと'],
    ['ぶき２',  2,  'こめんと'],
    ['ぶき３',  3,  'こめんと']
  );

•     $log .="$nm は $dg_data[$dg_a][1] で攻撃!!<br>$tnm に $vの傷を与えた!<br>\n";
      $thp -= $v;

if(rand(100)<8 && $dg_a==14){
    $log .="略\n";
    $thp = 0;
    〜略〜
}elsif(rand(100)<8 && $dg_a==15){
    $log .="略\n";
    $thp = 0;
    〜略〜
}else{
$log .="略\n";
以下階級技の呼び出し