*転生 [#q7674c3a]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[烏賊]]
-優先順位: 普通
-状態: 完了
-カテゴリー: 設置できません
-投稿日: 2004-06-13 (日) 12:52:06
-バージョン:
**メッセージ [#b7fbd225]
今転生を設置しようとしているのですが
必ず500errorがでます^^;
どこが違うか指摘おねがいできますか?
# 診療所
sub medical{
if($tm==120){
if($cmd<=0){
$log .= "またお越しください…<br>\n";
$tm = $cmd = 0;
&shop_menu;
# 治療-1
}elsif($cmd==1){
$S = ($lv < 50) ? $lv*2000 : 100000;
$log .= "…ここでは古の秘術によって体力と魔力を<br>瞬時に全快まで回復してさしあげられます<br>…ただし$SG\頂きますが…<br>\n";
$tm=125;
$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|;
# 性転換-1
}elsif($cmd==2){
$log.="ここでは性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが・・・<br>";
$tm=135;
$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 .= ($sei==1) ?
qq|<option value="3">女になる</option>\n|:
qq|<option value="3">男になる</option>\n|;
$log2 .= qq|</select><br>\n|;
$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
#転生-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|;
}
# 治療-2
}elsif($tm==125){
if($cmd<=0){
$log .= "$nm は立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$S = ($lv < 50) ? $lv*2000 : 100000;
if($S < $gold){
$hp = $max_hp;
$mp = $max_mp;
$gold -= $S;
$log .= "$SGを支払った…<br>体力と魔力が全回復した。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "お金が足りないわ…<br>\n";
$tm=0;
&shop_menu;
}
}
# 性転換-2
}elsif($tm==135){
if($cmd<=0){
$log .= "$nm は何事も無かったように立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($gold>=200000){
$gold-=200000;
$log.="オペを開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
$pr=$GMT*8;
if($sei==1){
$sei=2;
$sei2="女性";
}else{
$sei=1;
$sei2="男性";
}
$mes.= qq|麻酔から目を覚ました。$nm は $sei2 になった。|;
$tm = $cmd = 0;
$type='';
&call_main_st;
}else{
$log2.="お金が足りません。";
$tm = $cmd = 0;
&shop_menu;
}
}
}elsif($tm==136){
if($lv<60){
$log .= qq|転生は、レベル60以上の方を対象としています。<br>|;
$log .= qq|レベルを上げてからお越しください<br>|;
$tm=$cmd=0;
&shop_menu;
}else{
$log .= qq|転生し生まれ変わりました<br>|;
# ここに転生したときの処理を追加する
# とりあえず、レベルが1になるだけ
$lv = 1;
$tm=$cmd=0;
$type='';
&call_main_st;
}
}
}
1;
1;
----
-閉じ括弧が一つ多いですね。 あと $log2 .= qq|<option value="1">転生する</option>\n|:の:は;ですね・・・わかりずらい? 1;が一つ多いかな。以上 -- [[スポンサー]] &new{2004-06-13 (日) 13:16:15};
-行末の :(コロン)は、 ;(セミコロン)ですね、罪罰/転生の方が誤っていたので修正しました -- [[あくあ]] &new{2004-06-13 (日) 14:46:39};
-デキタ!とおもったら500エラーがでてしかもログインするとロックされたマスとですます^^;ここに書いてあるとうりにやったのですが、何かちがったのかなー -- [[烏賊]] &new{2004-06-15 (火) 19:13:20};
-まず、Perlチェッカにかけてみることをお勧めします。そうすれば、何が悪いのかわかると思いますよ -- [[あくあ]] &new{2004-06-15 (火) 22:35:48};
-http://melcha.zone.ne.jp/ebs/dl/pc/ ここがいいです。(チェッカ -- [[スポンサー]] &new{2004-06-15 (火) 22:39:11};
-Perlちぇっかかけたら}elseif($cmd==3){と $tm=136;と}elsif($tm==125){にエラーがあるそうでした^^;どうなおしたら良いでしょうか? -- &new{2004-06-17 (木) 15:09:51};
-elseif → elsif -- [[katon]] &new{2004-06-17 (木) 16:41:36};
#comment