}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){
|