#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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/mt_/gild/ # #-----------------------------------------------------------# #------------------------------------------------------------------------------- # 1.1 2004.5.27 制作完了・・バグあるでしょうか? # 1.1a 2004.5.29 修正 by あくあ # 1.1b 2004.6.09 いろいろ修正; by あくあ # 1.1c 2004.6.09 デバッグ # ----- # $bonus_cntはキャラデータとして保存する # Arranged by スポンサー # スカイゲームセンター [http://www.ninja.dynalias.org/tumi/file/tumi/index.cgi] # 設定 $champfile="./logdata/champlog.cgi"; # ログは↑ですので注意。作ってくださいね。 # 一応バーミッションは666で。 #----------------------------------------------------------- # 設定 $bonus_bt = 1; #----------------------------------------------------------- # 初期メニュー # sub champ_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 champ_exe{ &champ_read; # ファイル読込み $ck=0; 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 $in{'nm'}){ $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 = "武踏王$in{'nm'}が賞金10000Gを受け取りました"; &hist_write; $gold+=10000; } $tm=$cmd=0; $type=''; &call_main_st; }else{ &champ_menu; $tm=500; $type='武踏会'; } }elsif($tm==500){ if($cmd==1){ # 挑戦する $tm=510; # $ck=0; &tyousen2; }else{ $log .= qq|天下一武踏会場を後にしました。
|; $tnm=""; $ck=0; $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 .=" $in{'nm'} と勝負します。
\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/mt_sub-battle.cgi'; $tid=$aid; $tnm=$in{'nm'}; $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; $tgp=0; $log .="

$tnm との対決!!

\n"; $log .="

武踏王ステ−タス - $tnm ( 体 $thp 魔 $tmp 攻 $tua 防 $tud 速 $tag LV $tlv )

\n"; $log .="真剣勝負開始!
\n"; &bt_st; if($thp<1){ $nnn++; $def_cnt = 1; $bonus_cnt=0; $log .="みごと勝ちました!!おめでとうございます。
\n"; $wr_mes ="$date $nm が武踏王戦で $in{'nm'} に勝ちました!!$nnn代目の武踏王です!!"; &hist_write; &cdat_write; $aid=$id; $in{'nm'}=$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; $tgp=0; }elsif($hp<1){ $log .="負けてしまいましたね・・・・また挑戦お願いします!
\n"; $def_cnt++; $bonus_cnt=0; $chgr = $nm; $hp=0; $tgp = 10000*($def_cnt-1)*2; $wr_mes = "$date $nnn代目の武踏王$in{'nm'}が挑戦者$nmを退け、$def_cnt度目の防衛を果たしました
"; $wr_mes .= "武踏王$in{'nm'}が賞金$tgpマピーを受け取りました
"; &hist_write; $in{'tgp'}=$tgp; $wr_mes = "$id/$pw/$tgp/$aid/$in{'nm'}
";&hist_write; require './inc/mt_sub-ene_para.cgi'; &tusr_file_open; $wr_mes = "i
";&hist_write; # HPとMPを回復させるには下の2行をコメントアウト $ccc=$thp; $eee=$tmp; }else{ $ccc=$thp; $eee=$tmp; } &champ_write; # ファイルに書き込み if($hp<1 || $thp<1){ $tm=$cmd=0; } } } #----------------------------------------------------------- # ファイル読み書き # sub champ_write{ $champ_lst = qq|$aid<>$in{'nm'}<>$bbb<>$ccc<>$ddd<>$eee<>$fff<>$ggg<>$hhh<>$iii<>$jjj<>$kkk<>$lll<>$mmm<>$nnn<>$def_cnt<>$chgr<>$tgp<>_\n|; open(OUT,">$champfile") || &error("Can't open $champfile."); chomp($champ_lst); print OUT $champ_lst; close(OUT); } sub champ_read{ if(-e $champfile){ open(IN,"$champfile") || &error("Can't open $champfile."); $champ_lst=; close(IN); ($aid,$in{'nm'},$bbb,$ccc,$ddd,$eee,$fff,$ggg,$hhh,$iii,$jjj,$kkk,$lll,$mmm,$nnn,$def_cnt,$chgr,$tgp) = split(/<>/, $champ_lst); if($in{'nm'} eq ""){ # まだ武踏王がいない $log .= qq|NEW データ読み込み(aaa:$in{'nm'}/bbb:$bbb/lst:$champ_lst)|; $aid=$id; $in{'nm'}=$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; $tgp=0; $tid-$aid; $tnm=$in{'nm'}; $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; &champ_write; } } &dat_write; } 1;