罪と罰++二律背反

	}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|<option value=3>転生</option>\n|;
		$log2 .=qq|</select><br>\n|;
		$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
			$log2 .= qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
        }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){
  • # 性転換-2
      ...(省略)...
    
    			}else{
    				$log2.="お金が足りません。";
    				$tm = $cmd = 0;
    				&shop_menu;
    			}
    		}
       }elsif($tm==136){
         if($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;
           }
         }else{
           $log .= qq|転生を中止します。<br>|;
           $tm=$cmd=0;
           &shop_menu;
         }
       }
    }
    
    1;

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:11 (3091d)