罪と罰++二律背反

 #----------------------------ここから追加
elsif($tm>=300 && $tm<400){ require './inc/ore_sub-leave.cgi'; &soko_exe; }
#----------------------------ここまで追加
		elsif($tm==400){
			$log.="ここでは属性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが・・・<br>";
	
			$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" 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|<option value="4">忍者</option>\n|;
			$log2 .=qq|<option value="5">指揮</option>\n|;
			$log2 .=qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
				$tm=402;
		if($cmd<=0){#消
			$log .= "やめるのかい。で、他にどうするんだ?<br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($cmd==1 && $gold>=200000){
				$gold-=200000;
				$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
				$pr=$GMT*3;
                           $job_pp=0;
                           $job_pp2="戦士";
				$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
		}elsif($cmd==2 && $gold>=200000){
				$gold-=200000;
				$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
				$pr=$GMT*3;
                           $job_pp=1;
                           $job_pp2="突撃";
				$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
		}elsif($cmd==3 && $gold>=200000){
				$gold-=200000;
				$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
				$pr=$GMT*3;
                           $job_pp=2;
                           $job_pp2="守護";
				$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
		}elsif($cmd==4 && $gold>=200000){
				$gold-=200000;
				$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
				$pr=$GMT*3;
                           $job_pp=3;
                           $job_pp2="忍者";
				$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
		}elsif($cmd==5 && $gold>=200000){
				$gold-=200000;
				$log.="属性変更の儀式を開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
				$pr=$GMT*3;
                           $job_pp=4;
                           $job_pp2="指揮";
				$mes.= qq|麻酔から目を覚ました。$nm は $job_pp2 になった。|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
				}else{
					$log .= "そんな はした金じゃ足りないよ!<br>\n";
				}
			$tm = $cmd = 0;
			&shop_menu;
	&dat_write;



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