罪と罰++二律背反


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


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