罪と罰++二律背反


#拾得物処理
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];


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:28 (2989d)