}elsif($tm==75){
&spell_sp;
# 続行メニュー ここから
}elsif($tm==80){
$log2 .= qq|<select name="cmd" size="1">|;
$log2 .= qq|<option value="-1" >やめる</option>|;
$log2 .= qq|<option value="50" >討伐を続ける</option>|;
$log2 .= qq|</select>|;
$tm = 85;
}elsif($tm==85){
if($cmd==50){
$tm=$ck=0;
$log .= "$nmは、探索を続けることにした";
}else{
$tm=$ck=0;
$type='';
$nation=0;
$log .= "$nmは、探索を中止して帰路についた";
}
# 続行メニュー ここまで
}elsif($tm>=100){
# 拾得物処理 1
if(int(rand(200))==0){
&syutoku1;
}else{
$sol=0;
$tnm='';
# 続行メニュー
# $ck = $tm = 0;
# $nation=0;
# $type='';
$tm = 80;
}
$log .="を手に入れた!!<br>\n";
$sol=0;
$tnm='';
# $ck = $tm = 0;
# $nation=0;#討伐
# $type='';
$tm = 80;
