罪罰改造板２/33

#判定ｻﾌﾞﾙｰﾁﾝ
sub item_han{
	@han=@_;
	$i=$item_pos;
	
	$log .= "所持ｱｲﾃﾑ @di_a<br>\n";
	
	foreach $temp_di_a(@di_a){
#		$log .= "デバグ 必要ｱｲﾃﾑ [$di_data[$han[0]][1]][$di_data[$han[1]][1]][$di_data[$han[2]][1]]<br>\n";
		if($temp_di_a==$han[0]){
			if($item_no_flag[0]==0){
				$item_no_flag[0]=$i;
				$log .= "$di_data[$temp_di_a][1]･･･確かに持ってるな。<br>\n";
				$flag++;
			}
		}elsif($temp_di_a==$han[1]){
			if($item_no_flag[1]==0){
				$item_no_flag[1]=$i;
				$log .= "$di_data[$temp_di_a][1]･･･確かに持ってるな。<br>\n";
				$flag++;
			}
		}elsif($temp_di_a==$han[2]){
			if($item_no_flag[2]==0){
				$item_no_flag[2]=$i;
				$log .= "$di_data[$temp_di_a][1]･･･確かに持ってるな。<br>\n";
				$flag++;
			}
		}
	$i--;
#	$log .= "デバグ 所持ｱｲﾃﾑﾌﾗｸﾞ [$item_no_flag[0]][$item_no_flag[1]][$item_no_flag[2]]<br>\n";
	}
}

• @han=@_;
  @item_no_flag = ();
  
  $log .= "所持アイテム @di_a<br>\n";
  for $hidx (0..$#han) {
  	for $didx (0..$#di_a) {
  		if($han[$hidx]==$di_a[$didx]){
  			$log .= qq|$di_data[$didx][1]・・・確かに持っているな。<br>\n|;
  			$item_no_flag[$hidx]=$didx;
  			$flag++;
  			last;
  		}
  	}
  }