﻿if ($data{win_con} ne "garbage") {
	my (%tag, $doub);

	while ($data{text_jp} =~ /\[([^\]\]]*)\]/g) {
		my ($tag) = ($1);

		if ($tag !~ /^1:([^:]+):[^:]+:([^:]+)/) {
			next;
		}
		if (exists $tag{$1}) {
			if ($2 ne $tag{$1}) {
				$doub = 1;
				print "タグのダブり, $data{msg_id}, $i\n";
			}
		} else {
			$tag{$1} = $2;
		}
	}
	if (!$doub) {
		my (%tmp, $ng);

		for my $ii (keys %tag) {
			$tmp{$ii} = 0;
		}
		while ($data{text_ko} =~ /\[([^\]\]]*)\]/g) {
			my ($tag) = ($1);

			if ($tag !~ /^1:([^:]+):[^:]+:([^:]+)/) {
				next;
			}
			if (exists $tmp{$1}) {
				$tmp{$1} = 1;
			} else {
				print "日本語にないタグ, $data{msg_id}, $i\n";
				$ng = 1;
			}
		}
		for my $ii (keys %tmp) {
			if ($tmp{$ii} == 0) {
				print "未使用タグ, $data{msg_id}, $i\n";
				$ng = 1;
			}
		}
		if (!$ng) {
			for my $ii (keys %tag) {
				$data{text_ko} =~ s/(\[1:$ii:[^:]+:)[^:]+/$1$tag{$ii}/g;
			}
			$iter->setText($data{text_ko}, "LANG_KOREA");
		}
	}
}
