#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD # # Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] # # BLANK BOARD [ http://pom.to/ ] # #-----------------------------------------------------------# # 天空闘技場 Version 1.2 #--- [注意事項] --------------------------------------------# # 1.このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# #------------------------------------------------------------------------------- # 1.1 2004.5.27 制作完了。 # 1.1 2004.5.27 こちらのミスを修正。 # 1.1 2004.5.28 こちらのミスを修正。致命的・・・ #-------------------------------------------------------------------# # Arranged by スポンサー # スカイゲームセンター [http://www.ninja.dynalias.org/tumi/file/tumi/index.cgi] # 設置のしかたがわからないときはメールを [cdmgm495@yahoo.co.jp] #------------------------------------------------------------------# # 設定 $tyanpfile="./logdata/tyanplog.cgi"; # ログは↑ですので注意。作ってくださいね。 # 一応バーミッションは666で。 #elsif(!$type && $cmd==11){ require './inc/ore_sub-tyanp.cgi';&tyanp_menu; } #↑はoreの初期メニュー↑の11は自分のに合わせる・・・mainにも必ず天空闘技場を組み込む #elsif($type eq 'チャンプ'){ require './inc/ore_sub-tyanp.cgi'; &tyanp_exe; } #↑は続行メニューに。 #←は消しましょう。(当たり前だ。((笑 #----------------------------------------------------------- # 初期メニュー # sub tyanp_menu{ $log .= qq|天空闘技場にいますがどうしますか?|; $log2 .= qq|
\n|; $log2 .= qq|\n| if($mv_mode eq 'pc'); $log2 .= qq|\n|; $log2 .= qq|\n|; $log2 .= qq|
\n|; $log2.=qq|$td_end
\n|; $tm=500; $type="チャンプ"; &dat_write; } #----------------------------------------------------------- # 続行メニュー # sub tyanp_exe{ &tyanp_read; # ファイル読込み if($tm==500){ if($cmd==1){ # 挑戦する #----------------------------------------------------------- # 挑戦1 if($camp<=0){ $log .= "放浪の身で戦えません。
\n"; $tm=$cmd=0; &tyanp_menu; }elsif($sogo==3||$sogo==4){ $log .= "まずは借金を返済して$sogo_p[$sogo] ください。
\n"; $tm=$cmd=0; &tyanp_menu; #}elsif($pw==$mmm){ #$log .= "あなたはチャンプなので戦えません。\n"; #$tm=$cmd=0; #&tyanp_menu; #バグなので無視・・・(ぇ }else{ $log .= qq|挑戦を受け付けました。
|; $tm=510; } # ここまで #----------------------------------------------------------- #$tm=510; }elsif($cmd==2){ # データ #----------------------------------------------------------- # データ1 $log .= qq|データ。どうしますか?|; $log2 .= qq|
\n|; $log2 .= qq|\n| if($mv_mode eq 'pc'); $log2 .= qq|\n|; $log2 .= qq|\n|; $log2 .= qq|
\n|; $log2.=qq|$td_end
\n|; # ここまで #----------------------------------------------------------- $tm=520; }else{ $log .= qq|天空闘技場を後にしました。
|; $tm=$cmd=0; $type=""; &call_main_st; } }elsif($tm==510){ # 挑戦 #----------------------------------------------------------- # 挑戦2 if($tm==510){ $log .="
\n"; $log .=" $tnm と勝負します。
\n"; $log .="戦闘態勢をとります!
\n"; $log2 .=qq|
\n|; $log2 .=qq|\n| if($mv_mode eq 'pc'); $log2 .=qq|\n\n|; $log2 .=qq|$td_end
\n|; $tm=530; $ck=1; }elsif($ck){ $tnm=$aaa; $tcp=$bbb; $thp=$ccc; $thp_max=$ddd; $tmp=$eee; $tua=$fff; $tud=$ggg; $tlr=$hhh; $tag=$iii; $tlv=$jjj; $tdg_a=$kkk; $tdf_a=$lll; require './inc/ore_sub-battle.cgi'; if($tm==530){ $tm=540; $log .="

$tnm との対決!!

\n"; $log .="

チャンプステータス - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )

\n"; $log .="真剣勝負開始!
\n"; }elsif($tm==540){ &bt_cm; if($thp<1){ $nnn++; $log .="みごと勝ちました!!おめでとうございます。
\n"; $wr_mes ="$date $nm がチャンプ戦で $aaa に勝ちました!!$nnn代目のチャンプです!!"; &hist_write; &cdat_write; $aaa=$nm; $bbb=$camp; $ccc=$hp; $ddd=$max_hp; $eee=$mp; $fff=$ua; $ggg=$ud; $hhh=$lr; $iii=$ag; $jjj=$lv; $kkk=$dg_a; $lll=$df_a; $mmm=$pw; }elsif($hp<1){ $log .="負けてしまいましたね・・・・また挑戦お願いします!
\n"; $aaa=$tnm; $bbb=$tcp; $ccc=$thp; $ddd=$thp_max; $eee=$tmp; $fff=$tua; $ggg=$tud; $hhh=$tlr; $iii=$tag; $jjj=$tlv; $kkk=$tdg_a; $lll=$tdf_a; } } } &tyanp_write; # ファイルに書き込み # ここまで #----------------------------------------------------------- $cmd=$tm=0; &tyanp_menu; }elsif($tm==520){ # データ #----------------------------------------------------------- # データ2 if($cmd==1){ $log .="あ、そうですか・・・以外ですねえ・・・・(ぇ
\n"; }elsif($cmd==2){ $log .="

チャンプステータス - $aaa $bbb
( HP $ccc / $ddd MP $eee UA $fff UD $ggg LV $jjj )


(LR $hhh AG $iii 武器 $kkk 防具 $lll)
\n"; } # ここまで #----------------------------------------------------------- $cmd=$tm=0; &tyanp_menu; }else{ $log .= qq|天空闘技場を後にしました。
|; $tm=$cmd=0; $type=""; &call_main_st; } &dat_write; } #以上本体 #----------------------------------------------------------- # ファイル読み書き # sub tyanp_write{ $tyanp_lst .= qq|<>$aaa<>$bbb<>$ccc<>$ddd<>$eee<>$fff<>$ggg<>$hhh<>$iii<>$jjj<>$kkk<>$lll<>$mmm<>$nnn<><>_|; open(OUT,">$tyanpfile") || &error("Can't open $tyanpfile."); chomp($tyanp_lst); print OUT $tyanp_lst; close(OUT); } sub tyanp_read{ $tyanp_lst .= qq|<>$aaa<>$bbb<>$ccc<>$ddd<>$eee<>$fff<>$ggg<>$hhh<>$iii<>$jjj<>$kkk<>$lll<>$mmm<>$nnn<><>_|; if(-e $tyanpfile){ open(IN,"$tyanpfile") || &error("Can't open $tyanpfile."); $tyanp_lst=; close(IN); } } 1;