$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=''; }