*ショッピングモール＿買い物 [#o4b17cb9]
-ページ: [[罪罰改造板２]]
-投稿者: [[封天雷冥]]
-優先順位: 重要
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2007-03-24 (土) 09:53:27
-バージョン:
**内容 [#ed7b0dd9]
解決~
＜状況＞~
ショッピングモール→（どれでも良いから選ぶ）→→（一番上のコマンド）→ショッピングモールから出る。~
↓~
→→（上から２番目のコマンド）→武器屋に入ったところ~
↓~
→→（上から３番目のコマンド）→防具屋に入ったところ~
「去る」コマンドは、通常通り動きます。
というようになる。~
これじゃあ、ショッピングモールが、動きません。どうしたら良いでしょうか。
----
-$tmが違ってるのではないでしょうか？ -- [[six]] &new{2007-03-24 (土) 23:12:14};
-どのようにしたらうまくいきますかね？教えてもらえませんか？ -- [[封天雷冥]] &new{2007-03-25 (日) 07:04:04};
-スクリプトはデフォルトの状態ですか？何が違うのか、何をしようとしているのか分からないと間違いを指摘することは出来ないと思いますよ -- [[あくあ]] &new{2007-03-25 (日) 12:58:52};
-ore_sub-shop.cgi（Ver.1.1）の、ショッピングモール処理のなかの、行き先選択のなかの、診療所と、結婚相談所の中に、もう１つＳＨＯＰを追加しようと思っているんですが、防具屋の部分をコピーして診療所と、結婚相談所の間に、貼り付け、表示される文章と、$tmを変更（$tm=140）したら、武器屋も、防具屋も、その追加したＳＨＯＰも、全て↑のようなことになってしまうんです。 -- [[封天雷冥]] &new{2007-03-25 (日) 13:21:12};
-↓が、ore_sub-shop.cgiです。 -- [[封天雷冥]] &new{2007-03-25 (日) 13:22:45};
#------------------------------------------------------------------------------
#ｼｮｯﾋﾟﾝｸﾞﾓｰﾙ処理
sub shop_exe{
# 行き先選択
if(!$tm){
if($cmd<=0){
$log .= "$nm は逃げるように立ち去った。<br>\n";
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==1){
$log .= "いらっしゃい。今日はどうするんだい？<br>\n";
$tm=10;
$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|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">買う</option>\n|;
$log2 .=qq|<option value="2">売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==2){
$log .= "いらっしゃいませ。何をお求めですか？<br>\n";
$tm=30;
$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|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">買う</option>\n|;
$log2 .=qq|<option value="2">売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==3){
$log .= "ようこそ。色々なものを扱ってます。<br>\n";
$tm=50;
$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|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">買う</option>\n|;
$log2 .=qq|<option value="2">売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==4){
$log .= "いらっしゃい。ﾏﾈｰｼｮｯﾌﾟにようこそ。<br>\n";
$tm=70;
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>借金</option>\n|;
$log2 .=qq|<option value=2>返済</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==5){
$log .= "イラッシャイマセェ〜♪一枚五百Ｇになりまぁす♪<br> <br>壱等 \十\万\Ｇ<br>弐等 五万Ｇ<br>参等 壱万Ｇ<br>四等 壱千Ｇ<br><br>幸運賞 ？？？<br>不幸賞 ？？？<br><br>罪罰賞1 $dg_data[1][1] (希少)<br>罪罰賞2 $df_data[1][1] (希少)\n";
$tm=90;
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>挑戦</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==6){
$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
$tm=120;
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>治療</option>\n|;
$log2 .=qq|<option value=2>性転換</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==7){
$log .= "いらっしゃい!いろいろなもの扱ってるよ!<br>\n";
$tm=140;
$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|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">買う</option>\n|;
$log2 .=qq|<option value="2">売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==20){
$log .= "きっと素敵な恋始まる!? 結婚相談所へようこそ♪<br>\n";
$tm=150;
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>後回し</option>\n|;
$log2 .=($sei==1) ? qq|<option value=2>お嫁さん捜索</option>\n| : qq|<option value=1>旦那様捜索</option>\n| ;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
# 武具屋 - 買 or 売
}elsif($tm==10){
if($cmd<=0){#消
$log .= "なんだ、やめるのかい。また来てくれよな！<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] の烙印ついてちゃ買い物はできないぜ。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "何を買うんだい？<br>ちなみに武具は1個しか所持できないぜ！<br>\n";
$tm=12;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
}
}elsif($cmd==2){#売-1
if($dg_a==0){
$log .= "$nm さんは武具を所持してないぜ！<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dg_a<=10){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
$log .= "お！ 隠し武器の$dg_data[$dg_a][1] じゃないか! どこで手に入れだんだい？<br>ぜひ $v Gで買い取らせてくれ。\n";
$tm=25;
}else{
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
$log .= "そうだねえ、$dg_data[$dg_a][1] は $v Gで買い取るよ!<br>\n";
$tm=25;
}
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}
}elsif($tm==12){#買-2
if($cmd<=0){#消
$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
}else{
foreach(11 .. $#dg_data){
if($cmd eq $_ && $gold >= $dg_data[$_][2]){
$log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";
$gold -= $dg_data[$_][2];
$dg_a = $_;
$dg_cnt = $dg_data[$_][3];
}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
$log .= "お金が足りないよ！<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==25){#売-2
if($cmd<=0){#消
$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
}elsif($cmd==1){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
$log .= "$dg_data[$dg_a][1] を $v G で売却しました。<br>\n";
$gold += $v;
$dg_a = $dg_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# 防具屋 - 買 or 売
}elsif($tm==30){
if($cmd<=0){#消
$log .= "またおこしください。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げできません。<br>\n";
$tm=0;
&shop_menu;
}else{
$log .= "何をお求めですか？<br>防具の所持は1個までとなっております。<br>\n";
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
}
}elsif($cmd==2){#売-1
if($df_a==0){
$log .= "$nm さまは防具を所持できません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($df_a<=10){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
$log .= "お！ 隠し防具の$df_data[$df_a][1] ですね! どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
$tm=45;
}else{
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
$log .= "そうですね･･･ $df_data[$df_a][1] は $v Gで買い取らせて頂きますが。<br>\n";
$tm=45;
}
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}
}elsif($tm==32){#売-2
if($cmd<=0){#消
$log .= "その他はどうしますか？<br>\n";
}else{
foreach(11 .. $#df_data){
if($cmd eq $_ && $gold >= $df_data[$_][2]){
$log .= "$df_data[$_][2]Gを支払い、$df_data[$_][1] を購入しました。<br>\n";
$gold -= $df_data[$_][2];
$df_a = $_;
$df_cnt = $df_data[$_][3];
}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
$log .= "お金が足りません。<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==45){#買-2
if($cmd<=0){#消
$log .= "他にどうしますか？<br>\n";
}elsif($cmd==1){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
$log .= "$df_data[$df_a][1] を $v G で売却しました。<br>\n";
$gold += $v;
$df_a = $df_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# 道具屋 - 買 or 売
}elsif($tm==50){
if($cmd<=0){#消
$log .= "他なにか御用ですか？<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] の烙印がついていては買い物はできません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "何をお買い上げですか？<br>ちなみに道具は1個しか所持できません。<br>\n";
$tm=52;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
}
}elsif($cmd==2){#売-1
if(!$di_a){
$log .= "$nm さんは道具を所持していません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($di_a<=10){
my $v = int(($di_data[$di_a][2])/2);
$log .= "お！ 隠しｱｲﾃﾑの$di_data[$di_a][1] じゃないですか！どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
$tm=65;
}else{
my $v = int(($di_data[$di_a][2])/2);
$log .= "そうですねえ、$di_data[$di_a][1] は $v G で買い取ります。<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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}
}elsif($tm==52){#買-2
if($cmd<=0){#消
$log .= "他何か御用ですか？<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]Gを支払い、$di_data[$_][1] を購入しました。<br>\n";
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "お金が足りません。お引取り願います。<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==65){
if($cmd<=0){#消
$log .= "他何か御用ですか？<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] を $v G で売却しました。<br>\n";
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
# 金融業
}elsif($tm==70){
if($cmd<=0){#消
$log .= "ご利用はご計画的に♪<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#借
if($sogo==3||$sogo==4){
$log .= "これ以上は身のためにならないよ。早いﾄｺ返してくれないと恐いｵﾆｰｻﾝが来るよ･･･。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
&syakin;
$log .= "金借りたいのかい。いくら借りたいんだ？<br>$vw G <b>$sogo_p[3]</b>の烙印<br>$vx G <b>$sogo_p[4]</b>の烙印<br> <br>烙印は借金を返済するか、他の称号を取得するまで外れません。\n";
$tm=72;
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">$vw G</option>\n|;
$log2 .=qq|<option value="2">$vx G</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}elsif($cmd==2){#返
if($sogo!=3&&$sogo!=4){
$log .= "$nm さんに返済義務はないよ。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "やっと借金返済してくれるのかい。$nm さんの返済額は";
&syakin;
if($sogo==3){
$log .= "<b>$vw2 G</b>だよ。\n";
}elsif($sogo==4){
$log .= "<b>$vx2 G</b>だよ。\n";
}
$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|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">やめる</option>\n|;
$log2 .=qq|<option value="1">支払う</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
$tm=74;
}
}
}elsif($tm==72){#借 - 額
if($cmd<=0){#消
$log .= "なんだやめるのかい。で、他にどうするんだ？<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
$gold +=$vw;
$sogo =3;
$log .= "$vw G を借りました。$nm は<b>$sogo_p[3]</b> の烙印がつきました･･･<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==2){
&syakin;
$gold +=$vx;
$sogo =4;
$log .= "$vx G を借りました。$nm は<b>$sogo_p[4]</b> の烙印がつきました･･･<br>\n";
$tm = $cmd = 0;
&shop_menu;
}
}elsif($tm==74){#返 - 額
if($cmd<=0){#消
$log .= "早いとこ、金返してくれよ！ で、他にどうするんだ？<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
if($sogo==3){
if($gold > $vw2){
$gold -=$vw2;
$log .= "借金$vw2 G を返済しました。<br>\n";
$sogo =0;
}else{
$log .= "そんな はした金じゃ足りないよ！<br>\n";
}
}elsif($sogo==4){
if($gold > $vx2){
$gold -=$vx2;
$log .= "借金$vx2 G を返済しました。<br>\n";
$sogo =0;
}else{
$log .= "そんな はした金じゃ足りないよ！<br>\n";
}
}
$tm = $cmd = 0;
&shop_menu;
}
}
# 宝くじ
elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lotto.cgi';&lotto;}
# 診療所
elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-medical.cgi';&medical;}
# 乗り物屋 - 買 or 売
elsif($tm==140){
if($cmd<=0){#消
$log .= "また、いつでも来いや。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げできません。<br>\n";
$tm=0;
&shop_menu;
}else{
$log .= "何をお求めですか？<br>乗り物の所持は1個までとなっております。<br>\n";
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimono_s;
}
}elsif($cmd==2){#売-1
if($dn_a==0){
$log .= "$nm さまは乗り物を所持できません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$dn_cnt)/2);
$log .= "お！ 隠し乗り物の$dn_data[$dn_a][1] ですね! どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$dn_cnt)/2);
$log .= "そうですね･･･ $dn_data[$dn_a][1] は $v Gで買い取らせて頂きますが。<br>\n";
$tm=145;
}
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}
# 結婚相談所
elsif($tm>=160 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
&dat_write;
}
#----------------------------------------------------------------------------
---
-見づらく、しかも長いですが、よろしくお願いします。 -- [[封天雷冥]] &new{2007-03-25 (日) 13:45:56};
-乗り物屋のは $tm=140; となってますが、}elsif($tm==140){ ではなく }elsif($tm==150){ になってるようですよ。 -- [[six]] &new{2007-03-25 (日) 14:53:07};
-現在のファイルは上記の通りですか？一番下の結構相談所のところの>>とか、全角スペースが入ってますが。 -- [[あくあ]] &new{2007-03-25 (日) 15:05:22};
->>と、全角スペースは、ここに、書くときに間違えて書いたのが残ってるだけなので、直しておきます。elsifのところを直して試してみます。 -- [[封天雷冥]] &new{2007-03-25 (日) 17:24:13};
-elsifを、直しましてみましたが、上記の状況から変化はありませんでした。 -- [[封天雷冥]] &new{2007-03-25 (日) 17:28:24};
--追加したSHOPも同じと書かれていますが、$tm=140だと追加のSHOPに入れないはずなのですが。。。 -- [[あくあ]] &new{2007-03-25 (日) 21:33:01};
-えっ！140じゃあ、だめだったんですか？どの数値だったら大丈夫ですかね? -- [[封天雷冥]] &new{2007-03-26 (月) 08:42:57};
--いや、140でもいいんですが、処理の部分と食い違ってましたよね？150と140で。 -- [[あくあ]] &new{2007-03-26 (月) 22:57:50};
-ああ、そういうことですか。処理部分を、$tm=140にした結果は変化がなく、乗り物屋や武器、防具屋には、入れない状態でした。（上記の状況を参照）僕の予想だと、log2とか、$cmdがおかしいんだと思うんですが、自分ではまだよくわからなくて･･･。すいません。異常部分の発見よろしくお願いします。お願いします。 -- [[封天雷冥]] &new{2007-03-27 (火) 08:45:09};
-再掲失礼します。＞乗り物屋のは $tm=140; となってますが、}elsif($tm==140){ ではなく }elsif($tm==150){ になってるようですよ。 -- six? 2007-03-25 (日) 14:53:07 New -- [[三毛猫]] &new{2007-03-27 (火) 10:33:34};
-書き直しておきますね。（直すのを忘れてました。） -- [[封天雷冥]] &new{2007-03-27 (火) 11:08:50};
-状況が悪化しました。武器・防具・乗り物屋に入って「やめる」のコマンドを選ぶと、ショッピングモールから出た状態になります。詳しくは上記の状況を書き換えておきますので、確認お願いします。 -- [[封天雷冥]] &new{2007-03-28 (水) 16:10:43};
-道具屋も、同じような状況に陥りました････。詳しくは上記の、＜状況＞を、確認してください。 -- [[封天雷冥]] &new{2007-03-28 (水) 16:12:00};
-とうとう、ショッピングモール内の全ての、コマンドが、同じ状況になりました・・・・・・・詳しくは、上記の＜状況＞を確認してください。 -- [[封天雷冥]] &new{2007-03-28 (水) 16:14:53};
-何をしてそうなったのかを書くと、コメントする側にも後から見るヒトにも判りやすくコメントしやすいと思いますが。。。＞それと、そんなに頻繁に変わるのであれば、罪罰/当サイトを利用する上でのルールにもありますが、リンクなさったらいかがですか？ -- [[三毛猫]] &new{2007-03-28 (水) 17:46:26};
-それと、↑で丸貼りされているスクリプト以外は、一切弄っていないのですか？ -- [[三毛猫]] &new{2007-03-28 (水) 17:50:31};
-リンクするとは、何にリンクするのですか？CGI本体にリンクするのであれば、それはできません。なぜなら、まだサーバー側からの高負荷CGIの許可がでていなくて、ローカルのみで確認している状態ですから。 index.cgi , ore_config.cgi , ore_.cgi ,石碑の追加 , 通信の追加 , inc内では、 ore_sub-battle.cgi , ore_sub-shop-p1_pc.cgi , ore_sub-system.cgi , ore_sub-wartime.cgi に、ちょっと手を加えました。（このサイトに書いてあることを参考にして、手を加えました。） -- [[封天雷冥]] &new{2007-03-28 (水) 23:19:50};
-えっと。。。何をしてそうなったか。ですが、ore_config.cgiに、乗り物屋の、アイテム追加（防具屋のを参考にして作った。）inc内のore_sub-shop.cgiに、乗り物屋の、メニューを、処理追加。（同じく防具屋のメニューと、処理を参考にして作った。）同じくinc内のore_sub-shop-p1_pc.cgiに、乗り物屋の、パーツを追加。（これも同じく、防具屋を参考にして作った。）この３行動をした後にテストをしたところショッピングモール内の武器屋・防具屋・乗り物屋に、異常が起き、その後間違えて、ショッピングモール内の他のコマンドを選択してしまったところ、他の症状についても発覚した。。。ということです。 -- [[封天雷冥]] &new{2007-03-28 (水) 23:32:14};
-それだけでｼｮｯﾌﾟがおかしくなりそうにはないと思いますが…バックアップはとってますでしょうか？改造に不慣れな場合(ベテランでも)はあらかじめバックアップをとってから改造したほうがいいですね。私もミスした箇所がわからなくなって作り直した経験が一度あるので＾＾； -- [[six]] &new{2007-03-30 (金) 00:43:34};
-バックアップというのは、ショップを追加する前の、スプリクトということでしょうか？ -- [[封天雷冥]] &new{2007-03-30 (金) 09:44:32};
-乗り物屋の改造を加える前のですね。 ところで、↑のshopの記述ですが、｢elsif($tm>=160 && $tm<200 && $mv_mode eq 'pc' && $lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}｣の上に } を一ついれないとエラーが出ますね。 -- [[six]] &new{2007-03-30 (金) 12:51:53};
-ぇー↑の記述で試してみたのですが、shop自体に不具合はないようでした。なので、systemかconfigかore_あたりがおかしいのではないでしょうか？ -- [[six]] &new{2007-03-30 (金) 12:58:52};
-}を、追加して試してみたところ、５００エラーが出ました。perlチェッカで、文法はチェックしてあるので、文法ミスはないと思います。後はsystem OR config OR ore_ですかね。文法等を調べてみます。確認終了次第、また、書き込みします。 -- [[封天雷冥]] &new{2007-03-30 (金) 15:46:09};
-http://melcha.zone.ne.jp/ebs/dl/pc/で、関連のありそうなファイルをチェックしてみたところ、文法は間違っていませんでした。PERLチェッカーでも、チェックしてみましたが、文法は間違っていませんでした。後は、変数等が怪しいと思うんですが、乗り物を、導入した瞬間こうなったので、乗り物の$tmを、10ずつ増やしていって動作確認をしてみます。他のところで、心当たりがあったら、アドバイスお願いします。 -- [[封天雷冥]] &new{2007-03-30 (金) 16:04:05};
-あれ？私の勘違いでしたか・・・（ぇ 失礼しました。 -- [[six]] &new{2007-03-30 (金) 18:09:22};
-お心遣い感謝しています。他にも、どんどん気付いたことを行ってください。よろしくお願いします。 -- [[封天雷冥]] &new{2007-03-31 (土) 06:38:07};
-情報が無ければ、コメントのしようが無い気が。。。 -- [[三毛猫]] &new{2007-03-31 (土) 10:15:14};
-$tmを、140から１０づつ増やしていって200までやった結果です。状況に変化はありませんでした。試しに2000にして確かめましたが、効果はありませんでした。$tmは、おかしくないということですかね? -- [[封天雷冥]] &new{2007-03-31 (土) 10:35:12};
-そういえば、単純に防具屋を参考にして、乗り物やを追加したときに、PERLチェッカで確かめたら EQFのある行が構文エラーと、Missing right curly or square bracket at program line 561, at end of line と、program had compilation errors. になりましたが、何か関係ありますかね? -- [[封天雷冥]] &new{2007-03-31 (土) 10:40:52};
-結局動くようになったときの、文末部分を↓に張っておきますね。 -- [[封天雷冥]] &new{2007-03-31 (土) 10:42:14};
# 結婚相談所
elsif( $tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
&dat_write;
}
#-------------------------------------------------------------------------------
#借金計算
sub syakin {
if($lv < 40){
$vw = int($lv*1000);
$vx = int($lv*2000);
$vw2 = int($lv*1250);
$vx2 = int($lv*2500);
}else{
$vw = 40000;
$vx = 80000;
$vw2 = 50000;
$vx2 = 100000;
}
}}1;
-$tm=xxxとif($tm==xxx){}の -- [[三毛猫]] &new{2007-03-31 (土) 14:05:31};
-途中切れ失礼。（汗＞〜{}のxxxが(他で使われていない数で）同じであればいいわけだから、10ずつ増やす意味がよくわかりません。＞先にこのサイトにある罪罰改造や掲示板のログを熟読するなりして、subの意味や$tm$cmdの役割などをざっとでも感じ取られることをお勧めします。 -- [[三毛猫]] &new{2007-03-31 (土) 14:10:07};
-変数と、条件分岐で、構成されていたので、$tm値の重複がないかを確認しようと思ったわけです。結局ないようでしたが。過去ログ等を探して答えが見つかったらいいんですが。。。とにかく、探してみます！一喝ありがとうございました！ -- [[封天雷冥]] &new{2007-03-31 (土) 15:46:22};
-過去ログを確認し、新しいSHOPの場所を変えたら･･･というのを見つけたんで、だめもとでやってみたところ、やはりエラーが起き、ＰＥＲＬチェッカで確認したところ、構文ミスを発見し見事に治りました！これで、乗り物屋以外は、正常に動くようになりました！これまで、御協力ありがとうございました！しかし、新たな問題が発生しました。スレッド名が同じ題名でも、大丈夫なようなので、引き続きお願いします。 -- [[封天雷冥]] &new{2007-03-31 (土) 16:16:35};
-ところで、新たなバグですが、乗り物屋で買い物をする際ですが、売っているアイテム（ore_config.cgiの、アイテム設定番号10以降のアイテム）の一覧が出てくるところまでは、正常なのですが、その後、アイテムを選択し、「買う」ボタンを押すと、コメント（文章）が、一文字も出てこないで、身動きが取れない状態となります。どのスプリクトがおかしいのでしょうか。よろしくお願いします。 -- [[封天雷冥]] &new{2007-03-31 (土) 16:21:42};
-
$log .= "何をお求めですか？<br>防具の所持は1個までとなっております。<br>\n";
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
の$tmの指定が違うんじゃないですか？↑のは防具屋のですが。 -- [[six]] &new{2007-03-31 (土) 18:40:03};
-乗り物屋の$tmですか？それとも、防具屋の$tmですか？それとも、他の、$tmですか？ -- [[封天雷冥]] &new{2007-04-01 (日) 06:04:39};
-上のスクリプトだと、乗物を買うところで「&norimono_s;」で sub norimono_sを呼び出していますが、この先は作っていますか？ -- [[あくあ]] &new{2007-04-01 (日) 09:33:55};
-ファイルは、./inc/ore_sub-shop-p1_pc.cgiと./inc/ore_sub-shop-p1_mv.cgiになると思いますが。 -- [[あくあ]] &new{2007-04-01 (日) 09:34:44};
これが、./inc/ore_sub-shop-p1_pc.cgiに追加した内容です。
防具屋のやつの上に、追加しました。PERLチェッカで確認してあります。
不覚にも、〜〜mv.cgiには追加を忘れてました。追加してテストしてみます。
# 乗り物ｼｮｯﾋﾟﾝｸﾞ)
sub norimono_s{
$log.=<<EOM;
<form action=$script method=$method name=ore_>
<input type=hidden name=id value="$id_p">
<input type=hidden name=pw value="$pw_p">
<input type=hidden name=cmd value=-1>
<table border=0 cellpadding=2 cellspacing=2 width=100%>
<tr align=center bgcolor="#ccccee">
<td> </td>
<td>乗り物</td>
<td>値段</td>
<td>回数</td>
<td>説明</td>
</tr>
EOM
foreach(11 .. $#dn_data){
$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
$log .=qq|<td>$dn_data[$_][1]</td><td>$dn_data[$_][2]</td><td>$dn_data[$_][3]</td><td>$dn_data[$_][5]</td></tr>\n|;
}
$log .=qq|</table>\n|;
$log .=qq|<tt><br></tt><input type="submit" value="購入/やめる" class="button1"></form>\n|;
$layout_flag=1;
}
-./inc/ore_sub-shop-p1_mv.cgiの、防具屋やつの上に、防具屋を参考にした乗り物屋のスプリクトを追加した結果は、無効果でした。スプリクトの問題点の指摘お願いします。 -- [[封天雷冥]] &new{2007-04-01 (日) 11:26:54};
-この、購入ボタンを押した後の処理は、どこで行われているのですか?購入ボタンを押した後の、バグなんで、そっちに問題があるのではないかと思うのですが。 -- [[封天雷冥]] &new{2007-04-01 (日) 20:07:11};
-私が上で言ってる$tmだと思いますが。
$log .= "何をお求めですか？<br>乗り物の所持は1個までとなっております。<br>\n";
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimono_s;
}elsif($tm==142){が記述されてないからではないでしょうか。-- [[six]] &new{2007-04-01 (日) 20:17:20};
-どこに、}elsif($tm==142){を記述すればいいのでしょうか。 -- [[封天雷冥]] &new{2007-04-01 (日) 20:36:26};
-武器屋などの処理を参考に記述してください。場所は結婚相談所の上辺りが封天雷冥さんのスクリプトではわかりやすいかと。 -- [[six]] &new{2007-04-01 (日) 20:56:21};
-./inc/ore_sub-shop.cgiですよね。$tmと、$d~_dataと、$log .以外は、防具屋のコピーなんで、間違っていないはずですが･･･。 -- [[封天雷冥]] &new{2007-04-01 (日) 21:06:00};
# 乗り物屋 - 買 or 売
}elsif($tm==140){
if($cmd<=0){#消
$log .= "また、いつでも来いや。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げできません。<br>\n";
$tm=0;
&shop_menu;
}else{
$log .= "何をお求めですか？<br>乗り物の所持は1個までとなっております。<br>\n";
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimono_s;
}
}elsif($cmd==2){#売-1
if($dn_a==0){
$log .= "$nm さまは乗り物を所持できません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$dn_cnt)/2);
$log .= "お！ 隠し乗り物の$dn_data[$dn_a][1] ですね! どこで手に入れたんですか？<br>ぜひ $v Gで買い取らせてください。\n";
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$dn_cnt)/2);
$log .= "そうですね･･･ $dn_data[$dn_a][1] は $v Gで買い取らせて頂きますが。<br>\n";
$tm=145;
}
$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|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>売る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}
}
#------------------------------ココから
}elsif($tm==142){#買-2
if($cmd<=0){#消
$log .= "他何か御用ですか？<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]Gを支払い、$di_data[$_][1] を購入しました。<br>\n";
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "お金が足りません。お引取り願います。<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==145){
if($cmd<=0){#消
$log .= "他何か御用ですか？<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] を $v G で売却しました。<br>\n";
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
#---------------------ココまで
のどこに}elsif($tm==142){を入れればいいんですか?↑は、乗り物屋の、スプリクトです。WIKIの編集機能を使って↑に書いてくれませんか。書いたら一言「書きましたよ」と、声を掛けてください。お手数かけますが、よろしくお願いします。
-$tmしか変更して無いので、細かいところはご自分で修正してください。あと、コピペしただけなのでスクリプトに問題があるかもしれないのでperlﾁｪｯｸも必ずしてください。 -- [[six]] &new{2007-04-01 (日) 21:59:28};
-あっ。。。ちょっとしたことを忘れていただけだったんでしたね。ありがとうございます。これで、動くようにはなりました。しかし、また新しいバグが。。。お手数かけますがよろしくお願いします。。。 -- [[封天雷冥]] &new{2007-04-02 (月) 10:14:16};
-さて、新しいバグですが、動いて、「○○Gを支払い〜〜を購入しました」というメッセージが出てくるところまでは良いのですが、お金だけ減って肝心の乗り物が、出てこないんです。（出てこない＝装備していない＝能力も上がらない）買った後の処理は、どこで行われているのでしょうか。。。おしえてください。お願いします。 -- [[封天雷冥]] &new{2007-04-02 (月) 10:19:40};
-��$di_aを$dn_aに、$di_cntを$dn_cntに変更していない�∧竸瑤鯆媛辰靴討い覆き�configに@dn_dataを追加していない �◆↓�はこの段階でありえないと思うので�，世隼廚Δ里任垢�。 -- [[six]] &new{2007-04-02 (月) 10:42:39};
-恥ずかしながら�△任靴拭�。。罪罰/変数の追加 を参考にして変数を追加したところ見事に大成功しました！ご協力ありがとうございました。 -- [[封天雷冥]] &new{2007-04-02 (月) 11:24:15};
#comment
