*転生システムで [#lacf82e4]
-ページ: [[罪罰改造板2]]
-投稿者: [[ロンロン♪♪]]
-優先順位: 普通
-状態: 完了
-カテゴリー: 設置できません
-投稿日: 2004-12-25 (土) 23:45:08
-バージョン:
**内容 [#j5c4e688]
はじめまして!最近自サイトの罪罰を改造し始めたばっかりなのですが、ここのサイトをとても参考にさせていただいております!
さて、件名の転生システムに関してなのですが、罪罰/転生に書いてあるとおり改造を加えたのですが、診療所のメニューに「転生」と表示されるのですが、「転生」を選択したあと何も表示されません。ore_sub-shop-medical.cgiのどこかが間違ってると思うのですがどこか分かりません。教えてください。ちなみにperlチェッカではどこもおかしくありませんでした。
sub medical{
#・・・・・・(省略)・・・・・・・
$log2 .= qq|</select><br>\n|;
$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
################################# 転生1〜挿入1ここから〜###########################################
}elsif($cmd==3){
$log .= qq|ここでは転生の秘術を執り行います。よろしいですか?|;
$tm=136;
$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
$log2 .= qq|<select name="cmd">\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|;
}
##################################### 転生〜挿入1ここまで〜##########################################
# 治療-2
#・・・(省略)・・・
}else{
$log2.="お金が足りません。";
$tm = $cmd = 0;
&shop_menu;
}
}
########################### 転生2〜挿入2ここから〜 #######################################
}elsif($tm==136){
if($lv<99){
$log .= qq|転生は、レベル99以上の方を対象としています。<br>|;
$log .= qq|レベルを上げてからお越しください<br>|;
$tm=$cmd=0;
&shop_menu;
}else{
$log .= qq|転生し生まれ変わりました<br>|;
# ここに転生したときの処理を追加する
# とりあえず、レベルが1になるだけ
$lv = 1;
$tm=$cmd=0;
$type='';
&call_main_st;
}
############################### 転生2〜挿入2ここまで〜 ######################################
}
}
1;
どうかご指摘お願いいたします。
----
########################### 転生2〜挿入2ここから〜#######################################
}elsif($tm==136){
if($cmd==0){
$log .= qq|やめます<br>|;
$tm=$cmd=0;
&shop_menu;
}elsif($cmd==1){
if($lv<99){
$log .= qq|転生は、レベル99以上の方を対象としています。<br>|;
$log .= qq|レベルを上げてからお越しください<br>|;
$tm=$cmd=0;
&shop_menu;
}else{
$log .= qq|転生し生まれ変わりました<br>|;
# ここに転生したときの処理を追加する
# とりあえず、レベルが1になるだけ
$lv = 1;
$tm=$cmd=0;
$type='';
&call_main_st;
}
}
-これでどうでしょうか??($cmdの追加 -- [[メノウ]] &new{2004-12-26 (日) 22:13:44};
-できました!早い返信ありがとうございました!! -- [[ロンロン♪♪]] &new{2004-12-26 (日) 22:51:21};
-バグですねー、配布版にも修正を加えました。ただ、そこのバグはロンロン♪♪さんの状況にならないような気がしますが・・・、まぁうまくいったみたいなので^^ -- [[あくあ]] &new{2004-12-27 (月) 00:06:03};
#comment