#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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.0 #--- [注意事項] --------------------------------------------# # 1.このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# #------------------------------------------------------------------------------- # 1.1 2004.5.27 制作完了・・バグあるでしょうか? # 1.1a 2004.5.29 修正 by あくあ # 1.1b 2004.6.09 いろいろ修正; by あくあ # ----- # $bonus_cntはキャラデータとして保存する # Arranged by スポンサー # スカイゲームセンター [http://www.ninja.dynalias.org/tumi/file/tumi/index.cgi] # 設定 $tyanpfile="./logdata/tyanplog.cgi"; # ログは↑ですので注意。作ってくださいね。 # 一応バーミッションは666で。 #----------------------------------------------------------- # 設定 $bonus_bt = 10; #----------------------------------------------------------- # 初期メニュー # 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|; } #----------------------------------------------------------- # 続行メニュー # sub tyanp_exe{ &tyanp_read; # ファイル読込み if(!$tm){ if($hp<10 and $hp>10){ $log .= qq|体力が少なすぎます
|; $tm=$cmd=0; $type=''; &call_main_st; }elsif($chgr eq $nm){ $log .= qq|連続で挑戦することは出来ません
|; $tm=$cmd=0; $type=''; &call_main_st; }elsif($sogo==3||$sogo==4){ $log .= "まずは借金を返済して$sogo_p[$sogo] の烙印を消してください。
"; $tm=$cmd=0; $type=''; &call_main_st; }elsif($nm eq $aaa){ $log .= "あなたはチャンプなので戦えません。
"; $log .= "現在、$def_cnt戦防衛に成功しています
"; if($def_cnt>0 && $bonus_cnt != int($def_cnt/$bonus_bt)){ # $bonus_cntはキャラデータとして保存する $bonus_cnt=int($def_cnt/$bonus_bt); $log .= qq|おめでとうございます。賞金の10000Gです
|; $wr_mes = "チャンプ$aaaが賞金10000Gを受け取りました"; &hist_write; $gold+=10000; } $tm=$cmd=0; $type=''; &call_main_st; }else{ &tyanp_menu; $tm=500; $type='闘技場'; } }elsif($tm==500){ if($cmd==1){ # 挑戦する $tm=510; $ck=0; &tyousen2; }else{ $log .= qq|天空闘技場を後にしました。
|; $tm=$cmd=0; $type=""; &call_main_st; } }elsif($tm==510){ # 挑戦 &tyousen2; }elsif($tm==530||$tm==540){ # データ &tyousen2; }else{ $log .= qq|天空闘技場を後にしました。
|; $tm=$cmd=0; $type=""; &call_main_st; } &dat_write; } #----------------------------------------------------------- # 挑戦 # sub tyousen2{ if($tm==510){ $log .="
\n"; $log .=" $aaa と勝負します。
\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($tm==530){ require './inc/ore_sub-battle.cgi'; $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; $log .="

$tnm との対決!!

\n"; $log .="

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

\n"; $log .="真剣勝負開始!
\n"; &bt_st; if($thp<1){ $nnn++; $def_cnt = 1; $bonus_cnt=0; $log .="みごと勝ちました!!おめでとうございます。
\n"; $wr_mes ="$date $nm がチャンプ戦で $aaa に勝ちました!!$nnn代目のチャンプです!!"; &hist_write; &cdat_write; $aaa=$nm; $bbb=$camp; $ccc=$max_hp; $ddd=$max_hp; $eee=$max_mp; $fff=$ua; $ggg=$ud; $hhh=$lr; $iii=$ag; $jjj=$lv; $kkk=$dg_a; $lll=$df_a; $mmm=$pw; }elsif($hp<1){ $log .="負けてしまいましたね・・・・また挑戦お願いします!
\n"; $def_cnt++; $chgr = $nm; $wr_mes = "$date $nnn代目のチャンプ$aaaが挑戦者$nmを退け、$def_cnt度目の防衛を果たしました
"; &hist_write; # HPとMPを回復させるには下の2行をコメントアウト $ccc=$thp; $eee=$tmp; } $tnm=''; &tyanp_write; # ファイルに書き込み if($hp<1 || $thp<1){ $tm=$cmd=0; } } } #----------------------------------------------------------- # ファイル読み書き # sub tyanp_write{ $tyanp_lst = qq|$aaa<>$bbb<>$ccc<>$ddd<>$eee<>$fff<>$ggg<>$hhh<>$iii<>$jjj<>$kkk<>$lll<>$mmm<>$nnn<>$def_cnt<>$chgr<>_\n|; open(OUT,">$tyanpfile") || &error("Can't open $tyanpfile."); chomp($tyanp_lst); print OUT $tyanp_lst; close(OUT); } sub tyanp_read{ if(-e $tyanpfile){ open(IN,"$tyanpfile") || &error("Can't open $tyanpfile."); $tyanp_lst=; close(IN); ($aaa,$bbb,$ccc,$ddd,$eee,$fff,$ggg,$hhh,$iii,$jjj,$kkk,$lll,$mmm,$nnn,$def_cnt,$chgr) = split(/<>/, $tyanp_lst); if($aaa eq ""){ # まだチャンプがいない $log .= qq|NEW データ読み込み(aaa:$aaa/bbb:$bbb/lst:$tyanp_lst)|; $aaa=$nm; $bbb=$camp; $ccc=$hp; $ddd=$max_hp; $eee=$max_mp; $fff=$ua; $ggg=$ud; $hhh=$lr; $iii=$ag; $jjj=$lv; $kkk=$dg_a; $lll=$df_a; $mmm=$pw; $tnm=$aaa; $tcp=$bbb; $thp=$ddd; $thp_max=$ddd; $tmp=$eee; $tua=$fff; $tud=$ggg; $tlr=$hhh; $tag=$iii; $tlv=$jjj; $tdg_a=$kkk; $tdf_a=$lll; &tyanp_write; } } &dat_write; } 1;