罪罰改造板３/21

elsif(($tm>=190 && $tm<200)||$tm==1198){require './inc/ore_sub-shop-tensei.cgi';&tensei;}

}elsif($cmd==4){#くえすと？
 $log .= "助手「いらっしゃいです〜♪<br>　じゃ、まず闘ってみましょうか〜♪（何」<br>\n";
 $tm=1198;
 $tnm	= "闇$nm";		#名前 敵
 $tlv	= $lv;		#ﾚﾍﾞﾙ 敵
 〜略〜
 $tlr	= $lr;		#LR
 $ck=1;

 $log .="$tnm が現れた！<br>\n";
 $log .="<p>どうしますか？</p>\n";
 $log .="<p>敵ｽﾃｰﾀｽ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";

 $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
〜略〜
 $log2 .=qq|</select><br>\n|;
 $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

}elsif($tm==1198){#$ckは要るのか？
 if($cmd<=0){
  $log .= "$nm は慌てて立ち去った。<br>\n";
  $tm = $cmd = 0;
  &shop_menu;
 }elsif($cmd==1){
  # 戦闘処理読み込み
  require './inc/ore_sub-battle.cgi';
  &bt_st;
  if($thp<1){
〜略〜

}elsif($tm==1198){#$ckは要るのか？
 if($cmd<=0){
  $log .= "$nm は慌てて立ち去った。<br>\n";
  $tm = $cmd = 0;
  &shop_menu;
 }elsif($cmd==1){
  $type='くえすと中';
  $log .= "戦闘開始！<br>\n";
  $tm=65;#←多分ポイント。
  $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
  $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
  $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
  $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
  &dat_write;
 }
}

elsif($type eq 'くえすと中'){ require './inc/ore_sub-qtime.cgi';&quest_st; }

sub quest_st {
 if($ck){
  # 戦闘処理読み込み
  require './inc/ore_sub-battle.cgi';
  if(!$b_n && !$tlr){
   $tm = 0;
   $ck = 0;
   $nation = 0;#猫討伐
   $type='';
   $log .="戦闘中にバグが発生しました！強制的にメイン画面に戻ります<br>\n";
  }
  if($tm==65){
   $log .="真剣勝負開始！<br>\n";
   $tm=75;
  }elsif($tm==75){
   &bt_cm;
   if($thp<1 && $hp>0){
    # 獲得金
    $G =int(rand(200))+((500*$tlv)-($lv*50));
 〜略〜
    $ck = $tm = 0;
    $nation=0;
    $type='';
   }elsif($hp<1 && $thp>0){
    $bst ='';
    $bt =0;
 〜略〜
    $ck= $tm = 0;
    $nation=0;
    $type='';
   }
  }
  $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
  $log2 .=qq|<td valign="middle">\n| if($mv_mode eq 'pc');
  $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
  if($tsol<1||$sol<1){
   $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
  }
  if($tm==65){
   $log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
  }elsif($tm==75){
   &spell_sp;
  }
  $log2 .=qq|<br>|;#テーブルずれ修正
  $log2 .=qq|<input type="submit" $button1 value="NEXT！">$td_end</form>\n|;#テーブル追加</tr></table>
 }
 &dat_write;
}