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; }