$soko .= qq|アイテムのタイプ<>アイテム番号<>数量<>武具レベル<>_|;
#拾得物処理
sub syutoku1{
$log .="$tnm が消滅した場所に何か落ちている･････<br>$nm は ";
# 武具
if($ts_itm == 1){
$log .="$dg_data[$td_itm][1]を発見した!!<br>";
$tm = 110;
$log .="どうしますか?<br>";
# 道具
}elsif($ts_itm == 3){
$log .="$di_data[$td_itm][1]を発見した!!<br>";
$tm = 120;
$log .="装備する場合､現在の道具は破棄されます｡<br>どうしますか?<br>";
# 防具
}elsif($ts_itm == 2){
$log .="$df_data[$td_itm][1]を発見した!!<br>";
$tm = 130;
$log .="装備する場合､現在の防具は破棄されます｡<br>どうしますか?<br>";
}
}
#拾得物処理2
sub syutoku2{
$log .="$nm は ";
# 武具2
if($tm==110){
$log .="$dg_data[$td_itm][1]";
$dg_cnt2=$dg_data[$td_itm][3];
$dg_a2 = $td_itm;
$dg_lv2 = 0;
# 道具2
}elsif($tm==120){
$log .="$di_data[$td_itm][1]";
$di_cnt=$di_data[$td_itm][3];
$di_a = $td_itm if($di_b>0);
# 防具2
}elsif($tm==130){
$log .="$df_data[$td_itm][1]";
$df_a = $td_itm;
$df_cnt=$df_data[$td_itm][3];
}
$log .="を手に入れた!!<br>\n";
$sol=0;
$tnm='';
$ck = $tm = 0;
$nation=0;#討伐
$type='';
}
