﻿if (!$gbl) {
	my @sub;
	my @REP = (
		{ f_no => "08", t_no => "42", f_name => "どうぐ名" },
		{ f_no => "03", t_no => "43", f_name => "トレーナー名" },
		{ f_no => "01", t_no => "44", f_name => "ニックネーム" },
		{ f_no => "00", t_no => "45", f_name => "ポケモン名" } );

	for my $i (@REP) {
		my $reg;

		$reg = qr/\[1:$i->{f_no}:$i->{f_name}:(\d+)\]/;
		push @sub, sub {
			my ($msg_id, $text_us, $use_tag_list) = @_;
			my (@list);

			if (@list = $text_us =~ /$reg/g) {
				my ($prm);

				$text_us =~ s/$reg/[1:$i->{t_no}:$i->{f_name}(システムフォント):$1]/g;
				print "$msg_id: $i->{f_name}置換\n";
				for my $j (@list) {
					if ($use_tag_list !~ s/1:$i->{f_no}:$j/1:$i->{t_no}:$j/) {
						print "use_tag_list置換失敗！\n";
					}
				}
			}
			return ($text_us, $use_tag_list);
		};
	}
	$gbl = \@sub;
}

if ($i eq "src/menu_msg2.gmm" && $data{msg_id} =~ /^9-/) {
	my ($text_us, $use_tag_list, $prm);

	$text_us = $data{text_us};
	$use_tag_list = $data{use_tag_list};
	if ($data{msg_id} =~ /^9-msg_fnote_30([0-3])$/) {
		my ($no, $hex);

		$no = $1;
		$hex = sprintf("%02x", 0x46 + $no);
		if ($text_us =~ s/\[1:04:マップ名:(\d+)\]/[1:$hex:マップ名(msg_fnote_30${no}用):$1]/) {
			print "$data{msg_id}: マップ名置換\n";
			$prm = $1;
			if ($use_tag_list !~ s/1:04:$prm/1:$hex:$prm/) {
				print "use_tag_list置換失敗！\n";
			}
		} else {
			print "$data{msg_id}: マップ名置換失敗！\n";
		}
	}
	for my $i (@{$gbl}) {
		($text_us, $use_tag_list) = $i->($data{msg_id}, $text_us, $use_tag_list);
	}
	$iter->setText($text_us, "LANG_ENGLISH");
	$iter->setUseTagList($use_tag_list);
}
