罪罰改造掲示板/12

#拾得物処理
sub syutoku1{

	$log .="$tnm が消滅した場所に何か落ちている･････<br>$nm は ";
	my $S = int(rand(10)+1);
	# 武具
	if($S == 1){
		$log .="$dg_data[2][1]を発見した!!<br><br>装備する場合､現在所持している武具";
		$tm = 110;
	}elsif($S == 2){
		$log .="$dg_data[3][1]を発見した!!<br><br>装備する場合､現在所持している武具";
		$tm = 120;
	}elsif($S == 3){
		$log .="$dg_data[4][1]を発見した!!<br><br>装備する場合､現在所持している武具";
		$tm = 130;
	# 道具
	}elsif($S == 4){
		$log .="$di_data[1][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 140;
	}elsif($S == 5){
		$log .="$di_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 150;
	}elsif($S == 6){
		$log .="$di_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 160;
	}elsif($S == 7){
		$log .="$di_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 170;
	# 防具
	}elsif($S == 8){
		$log .="$df_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 180;
	}elsif($S == 9){
		$log .="$df_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 190;
	}elsif($S == 10){
		$log .="$df_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
		$tm = 200;
	}
	$log .="は破棄されます｡<br>どうしますか?<br>";
}
#拾得物処理2
sub syutoku2{
	$log .="$nm は ";
	# 武具2
	if($tm==110){
		$log .="$dg_data[2][1]";
		$dg_a = 2;
		$dg_cnt=$dg_data[2][3];
	}elsif($tm==120){
		$log .="$dg_data[3][1]";
		$dg_a = 3;
		$dg_cnt=$dg_data[3][3];
	}elsif($tm==130){
		$log .="$dg_data[4][1]";
		$dg_a = 4;
		$dg_cnt=$dg_data[4][3];
	# 道具2
	}elsif($tm==140){
		$log .="$di_data[1][1]";
		$di_a = 1;
		$di_cnt=$di_data[1][3];
	}elsif($tm==150){
		$log .="$di_data[2][1]";
		$di_a = 2;
		$di_cnt=$di_data[2][3];
	}elsif($tm==160){
		$log .="$di_data[3][1]";
		$di_a = 3;
	}elsif($tm==170){
		$log .="$di_data[4][1]";
		$di_a = 4;
		$di_cnt=$di_data[4][3];
	# 防具2
	}elsif($tm==180){
		$log .="$df_data[2][1]";
		$df_a = 2;
		$df_cnt=$df_data[2][3];
	}elsif($tm==190){
		$log .="$df_data[3][1]";
		$df_a = 3;
		$df_cnt=$df_data[3][3];
	}elsif($tm==200){
		$log .="$df_data[4][1]";
		$df_a = 4;
		$df_cnt=$df_data[4][3];
	}
	$log .="を手に入れた!!<br>\n";
	$sol=0;
	$tnm='';
	$ck = $tm = 0;
	$nation=0;#討伐
	$type='';
}

• }elsif($S == 11){
    $log .="$df_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
    $tm = 201;

  }elsif($tm==201){
    $log .="$df_data[4][1]";
    $df_a = 4;
    $df_cnt=$df_data[4][3];