﻿if (!$gbl) {
	$gbl = [
		{ from => qr/_HEART_/,    to => "[3:00:heart]" },
		{ from => qr/_MUSIC_/,    to => "[3:01:music]" },
		{ from => qr/_ITEM_/,     to => "[3:02:item]" },
		{ from => qr/_KEYITEM_/,  to => "[3:03:keyitem]" },
		{ from => qr/_MACHINE_/,  to => "[3:04:machine]" },
		{ from => qr/_SEAL_/,     to => "[3:05:seal]" },
		{ from => qr/_MEDICINE_/, to => "[3:06:medicine]" },
		{ from => qr/_NUT_/,      to => "[3:07:nut]" },
		{ from => qr/_BALL_/,     to => "[3:08:ball]" },
		{ from => qr/_BATTLE_/,   to => "[3:09:battle]" },
		{ from => qr/_LEFT_/,     to => "[3:0A:left]" },
		{ from => qr/_UP_/,       to => "[3:0B:up]" },
		{ from => qr/_RIGHT_/,    to => "[3:0C:right]" },
		{ from => qr/_MALE_/,     to => "[3:0D:male]" },
		{ from => qr/_FEMALE_/,   to => "[3:0E:female]" },
		{ from => qr/_er_/,       to => "[4:00:Upper_er]" },
		{ from => qr/_re_/,       to => "[4:01:Upper_re]" },
		{ from => qr/_r_/,        to => "[4:02:Upper_r]" },
		{ from => qr/_e_/,        to => "[4:03:Upper_e]" },
		{ from => qr/_LEADER_/,   to => "[4:04:Abbrev.]" },
		{ from => qr/_CDOT_/,     to => "[4:05:Center_dot]" },
		{ from => qr/_SQUOTE_/,   to => "[4:06:L_SingleQuot.]" },
		{ from => qr/_DQUOTE_/,   to => "[4:07:L_DoubleQuot.]" },
		{ from => qr/_PKMN_/,     to => "[4:08:PKMN]" },
		{ from => qr/_NULL_/,     to => "[4:09:null]" }
	];
}

if ($data{win_con} ne "garbage") {
	my ($text, $replace);

	$text = $data{text};
	for my $j (@{$gbl}) {
		if ($text =~ s/$j->{from}/$j->{to}/g) {
			$replace = 1;
		}
	}
	if ($replace) {
		$iter->setText($text, $lang);
		print "$i, $data{msg_id}\n";
	}
}
