#! /usr/local/bin/perl

# 特殊変換
# 今のところファミコン色変換とか ｻ1 とかの変換

#
# 単純変換データ
#
# q[ｱx] => q[■], とか書くと逆変換の時に「■」が「ｱx」に置換されるので注意。
# 不可逆な変換等は下方のchange_to_xxx/change_from_xxxの中に直接書くこと。
#
# ======ここから============================================================
my %xxx_data = (
# ファミコン $00 - $0f
	q[ｱ0] => q[<FONT color=#7F7F7F>■</FONT>],
	q[ｱ1] => q[<FONT color=#0000FF>■</FONT>],
	q[ｱ2] => q[<FONT color=#0000BF>■</FONT>],
	q[ｱ3] => q[<FONT color=#472BBF>■</FONT>],

	q[ｱ4] => q[<FONT color=#970087>■</FONT>],
	q[ｱ5] => q[<FONT color=#AB0023>■</FONT>],
	q[ｱ6] => q[<FONT color=#AB1300>■</FONT>],
	q[ｱ7] => q[<FONT color=#8B1700>■</FONT>],

	q[ｱ8] => q[<FONT color=#533000>■</FONT>],
	q[ｱ9] => q[<FONT color=#007800>■</FONT>],
	q[ｱa] => q[<FONT color=#006B00>■</FONT>],
	q[ｱb] => q[<FONT color=#005B00>■</FONT>],

	q[ｱc] => q[<FONT color=#004358>■</FONT>],
	q[ｱd] => q[<FONT color=#000000>■</FONT>],
	q[ｱe] => q[<FONT color=#000001>■</FONT>],
	q[ｱf] => q[<FONT color=#000002>■</FONT>],

# ファミコン $10 - $1f
	q[ｲ0] => q[<FONT color=#BFBFBF>■</FONT>],
	q[ｲ1] => q[<FONT color=#0078F8>■</FONT>],
	q[ｲ2] => q[<FONT color=#0058F8>■</FONT>],
	q[ｲ3] => q[<FONT color=#6B47FF>■</FONT>],

	q[ｲ4] => q[<FONT color=#DB00CD>■</FONT>],
	q[ｲ5] => q[<FONT color=#E7005B>■</FONT>],
	q[ｲ6] => q[<FONT color=#F83800>■</FONT>],
	q[ｲ7] => q[<FONT color=#E75F13>■</FONT>],

	q[ｲ8] => q[<FONT color=#AF7F00>■</FONT>],
	q[ｲ9] => q[<FONT color=#00B800>■</FONT>],
	q[ｲa] => q[<FONT color=#00AB00>■</FONT>],
	q[ｲb] => q[<FONT color=#00AB47>■</FONT>],

	q[ｲc] => q[<FONT color=#008B8B>■</FONT>],
	q[ｲd] => q[<FONT color=#000003>■</FONT>],
	q[ｲe] => q[<FONT color=#000004>■</FONT>],
	q[ｲf] => q[<FONT color=#000005>■</FONT>],

# ファミコン $20 - $2f
	q[ｳ0] => q[<FONT color=#F8F8F8>■</FONT>],
	q[ｳ1] => q[<FONT color=#3FBFFF>■</FONT>],
	q[ｳ2] => q[<FONT color=#6B88FF>■</FONT>],
	q[ｳ3] => q[<FONT color=#9878F8>■</FONT>],

	q[ｳ4] => q[<FONT color=#F878F8>■</FONT>],
	q[ｳ5] => q[<FONT color=#F85898>■</FONT>],
	q[ｳ6] => q[<FONT color=#F87858>■</FONT>],
	q[ｳ7] => q[<FONT color=#FFA347>■</FONT>],

	q[ｳ8] => q[<FONT color=#F8B800>■</FONT>],
	q[ｳ9] => q[<FONT color=#B8F818>■</FONT>],
	q[ｳa] => q[<FONT color=#5BDB57>■</FONT>],
	q[ｳb] => q[<FONT color=#58F898>■</FONT>],

	q[ｳc] => q[<FONT color=#00EBDB>■</FONT>],
	q[ｳd] => q[<FONT color=#787878>■</FONT>],
	q[ｳe] => q[<FONT color=#000006>■</FONT>],
	q[ｳf] => q[<FONT color=#000007>■</FONT>],

# ファミコン $30 - $3f
	q[ｴ0] => q[<FONT color=#FFFFFF>■</FONT>],
	q[ｴ1] => q[<FONT color=#A7E7FF>■</FONT>],
	q[ｴ2] => q[<FONT color=#B8B8F8>■</FONT>],
	q[ｴ3] => q[<FONT color=#D8B8F8>■</FONT>],

	q[ｴ4] => q[<FONT color=#F8B8F8>■</FONT>],
	q[ｴ5] => q[<FONT color=#FBA7C3>■</FONT>],
	q[ｴ6] => q[<FONT color=#F0D0B0>■</FONT>],
	q[ｴ7] => q[<FONT color=#FFE3AB>■</FONT>],

	q[ｴ8] => q[<FONT color=#FBDB7B>■</FONT>],
	q[ｴ9] => q[<FONT color=#D8F878>■</FONT>],
	q[ｴa] => q[<FONT color=#B8F8B8>■</FONT>],
	q[ｴb] => q[<FONT color=#B8F8D8>■</FONT>],

	q[ｴc] => q[<FONT color=#00FFFF>■</FONT>],
	q[ｴd] => q[<FONT color=#F8D8F8>■</FONT>],
	q[ｴe] => q[<FONT color=#000008>■</FONT>],
	q[ｴf] => q[<FONT color=#000009>■</FONT>],

# 旧・色変換 ■
	q[ｼ0] => q[<FONT color=black>■</FONT>],
	q[ｼ1] => q[<FONT color=dodgerblue>■</FONT>],
	q[ｼ2] => q[<FONT color=crimson>■</FONT>],
	q[ｼ3] => q[<FONT color=deeppink>■</FONT>],
	q[ｼ4] => q[<FONT color=forestgreen>■</FONT>],
	q[ｼ5] => q[<FONT color=teal>■</FONT>],
	q[ｼ6] => q[<FONT color=gold>■</FONT>],
	q[ｼ7] => q[<FONT color=orange>■</FONT>],
	q[ｼ8] => q[<FONT color=mistyrose>■</FONT>],
	q[ｼ9] => q[<FONT color=gray>■</FONT>],
	q[ｼw] => q[<FONT color=silver>■</FONT>],

# 旧・色変換 ■
	q[ｼ0] => q[<FONT color=black>■</FONT>],
	q[ｼ1] => q[<FONT color=dodgerblue>■</FONT>],
	q[ｼ2] => q[<FONT color=crimson>■</FONT>],
	q[ｼ3] => q[<FONT color=deeppink>■</FONT>],
	q[ｼ4] => q[<FONT color=forestgreen>■</FONT>],
	q[ｼ5] => q[<FONT color=teal>■</FONT>],
	q[ｼ6] => q[<FONT color=gold>■</FONT>],
	q[ｼ7] => q[<FONT color=orange>■</FONT>],
	q[ｼ8] => q[<FONT color=mistyrose>■</FONT>],
	q[ｼ9] => q[<FONT color=gray>■</FONT>],
	q[ｼw] => q[<FONT color=silver>■</FONT>],
#
	q[ｼx] => q[<FONT color=black><BLINK>■</BLINK></FONT>],
	q[ｼa] => q[<FONT color=dodgerblue><BLINK>■</BLINK></FONT>],
	q[ｼb] => q[<FONT color=red><BLINK>■</BLINK></FONT>],
	q[ｼc] => q[<FONT color=deeppink><BLINK>■</BLINK></FONT>],
	q[ｼd] => q[<FONT color=forestgreen><BLINK>■</BLINK></FONT>],
	q[ｼe] => q[<FONT color=teal><BLINK>■</BLINK></FONT>],
	q[ｼf] => q[<FONT color=gold><BLINK>■</BLINK></FONT>],
	q[ｼg] => q[<FONT color=orange><BLINK>■</BLINK></FONT>],
	q[ｼh] => q[<FONT color=mistyrose><BLINK>■</BLINK></FONT>],
	q[ｼi] => q[<FONT color=gray><BLINK>■</BLINK></FONT>],
	q[ｼj] => q[<FONT color=silver><BLINK>■</BLINK></FONT>],
	q[ｼk] => q[<BLINK>■</BLINK>],

# 旧・色変換 ●
	q[ﾏ0] => q[<FONT color=black>●</FONT>],
	q[ﾏ1] => q[<FONT color=dodgerblue>●</FONT>],
	q[ﾏ2] => q[<FONT color=crimson>●</FONT>],
	q[ﾏ3] => q[<FONT color=deeppink>●</FONT>],
	q[ﾏ4] => q[<FONT color=forestgreen>●</FONT>],
	q[ﾏ5] => q[<FONT color=teal>●</FONT>],
	q[ﾏ6] => q[<FONT color=gold>●</FONT>],
	q[ﾏ7] => q[<FONT color=orange>●</FONT>],
	q[ﾏ8] => q[<FONT color=mistyrose>●</FONT>],
	q[ﾏ9] => q[<FONT color=gray>●</FONT>],
	q[ﾏw] => q[<FONT color=silver>●</FONT>],
#
	q[ﾏx] => q[<FONT color=black><BLINK>●</BLINK></FONT>],
	q[ﾏa] => q[<FONT color=dodgerblue><BLINK>●</BLINK></FONT>],
	q[ﾏb] => q[<FONT color=red><BLINK>●</BLINK></FONT>],
	q[ﾏc] => q[<FONT color=deeppink><BLINK>●</BLINK></FONT>],
	q[ﾏd] => q[<FONT color=forestgreen><BLINK>●</BLINK></FONT>],
	q[ﾏe] => q[<FONT color=teal><BLINK>●</BLINK></FONT>],
	q[ﾏf] => q[<FONT color=gold><BLINK>●</BLINK></FONT>],
	q[ﾏg] => q[<FONT color=orange><BLINK>●</BLINK></FONT>],
	q[ﾏh] => q[<FONT color=mistyrose><BLINK>●</BLINK></FONT>],
	q[ﾏi] => q[<FONT color=gray><BLINK>●</BLINK></FONT>],
	q[ﾏj] => q[<FONT color=silver><BLINK>●</BLINK></FONT>],
	q[ﾏk] => q[<BLINK>●</BLINK>],

# 旧・色変換 ▲
	q[ｻ0] => q[<FONT color=black>▲</FONT>],
	q[ｻ1] => q[<FONT color=dodgerblue>▲</FONT>],
	q[ｻ2] => q[<FONT color=crimson>▲</FONT>],
	q[ｻ3] => q[<FONT color=deeppink>▲</FONT>],
	q[ｻ4] => q[<FONT color=forestgreen>▲</FONT>],
	q[ｻ5] => q[<FONT color=teal>▲</FONT>],
	q[ｻ6] => q[<FONT color=gold>▲</FONT>],
	q[ｻ7] => q[<FONT color=orange>▲</FONT>],
	q[ｻ8] => q[<FONT color=mistyrose>▲</FONT>],
	q[ｻ9] => q[<FONT color=gray>▲</FONT>],
	q[ｻw] => q[<FONT color=silver>▲</FONT>],
#
	q[ｻx] => q[<FONT color=black><BLINK>▲</BLINK></FONT>],
	q[ｻa] => q[<FONT color=dodgerblue><BLINK>▲</BLINK></FONT>],
	q[ｻb] => q[<FONT color=red><BLINK>▲</BLINK></FONT>],
	q[ｻc] => q[<FONT color=deeppink><BLINK>▲</BLINK></FONT>],
	q[ｻd] => q[<FONT color=forestgreen><BLINK>▲</BLINK></FONT>],
	q[ｻe] => q[<FONT color=teal><BLINK>▲</BLINK></FONT>],
	q[ｻf] => q[<FONT color=gold><BLINK>▲</BLINK></FONT>],
	q[ｻg] => q[<FONT color=orange><BLINK>▲</BLINK></FONT>],
	q[ｻh] => q[<FONT color=mistyrose><BLINK>▲</BLINK></FONT>],
	q[ｻi] => q[<FONT color=gray><BLINK>▲</BLINK></FONT>],
	q[ｻj] => q[<FONT color=silver><BLINK>▲</BLINK></FONT>],
	q[ｻk] => q[<BLINK>▲</BLINK>],

# 旧・色変換 ▼
	q[ﾜ0] => q[<FONT color=black>▼</FONT>],
	q[ﾜ1] => q[<FONT color=dodgerblue>▼</FONT>],
	q[ﾜ2] => q[<FONT color=crimson>▼</FONT>],
	q[ﾜ3] => q[<FONT color=deeppink>▼</FONT>],
	q[ﾜ4] => q[<FONT color=forestgreen>▼</FONT>],
	q[ﾜ5] => q[<FONT color=teal>▼</FONT>],
	q[ﾜ6] => q[<FONT color=gold>▼</FONT>],
	q[ﾜ7] => q[<FONT color=orange>▼</FONT>],
	q[ﾜ8] => q[<FONT color=mistyrose>▼</FONT>],
	q[ﾜ9] => q[<FONT color=gray>▼</FONT>],
	q[ﾜw] => q[<FONT color=silver>▼</FONT>],
#
	q[ﾜx] => q[<FONT color=black><BLINK>▼</BLINK></FONT>],
	q[ﾜa] => q[<FONT color=dodgerblue><BLINK>▼</BLINK></FONT>],
	q[ﾜb] => q[<FONT color=red><BLINK>▼</BLINK></FONT>],
	q[ﾜc] => q[<FONT color=deeppink><BLINK>▼</BLINK></FONT>],
	q[ﾜd] => q[<FONT color=forestgreen><BLINK>▼</BLINK></FONT>],
	q[ﾜe] => q[<FONT color=teal><BLINK>▼</BLINK></FONT>],
	q[ﾜf] => q[<FONT color=gold><BLINK>▼</BLINK></FONT>],
	q[ﾜg] => q[<FONT color=orange><BLINK>▼</BLINK></FONT>],
	q[ﾜh] => q[<FONT color=mistyrose><BLINK>▼</BLINK></FONT>],
	q[ﾜi] => q[<FONT color=gray><BLINK>▼</BLINK></FONT>],
	q[ﾜj] => q[<FONT color=silver><BLINK>▼</BLINK></FONT>],
	q[ﾜk] => q[<BLINK>▼</BLINK>],


# 旧・色変換 ◆
	q[ﾋ0] => q[<FONT color=black>◆</FONT>],
	q[ﾋ1] => q[<FONT color=dodgerblue>◆</FONT>],
	q[ﾋ2] => q[<FONT color=crimson>◆</FONT>],
	q[ﾋ3] => q[<FONT color=deeppink>◆</FONT>],
	q[ﾋ4] => q[<FONT color=forestgreen>◆</FONT>],
	q[ﾋ5] => q[<FONT color=teal>◆</FONT>],
	q[ﾋ6] => q[<FONT color=gold>◆</FONT>],
	q[ﾋ7] => q[<FONT color=orange>◆</FONT>],
	q[ﾋ8] => q[<FONT color=mistyrose>◆</FONT>],
	q[ﾋ9] => q[<FONT color=gray>◆</FONT>],
	q[ﾋw] => q[<FONT color=silver>◆</FONT>],
	q[ﾋb] => q[<FONT color=red><BLINK>◆</BLINK></FONT>],
#
	q[ﾋx] => q[<FONT color=black><BLINK>◆</BLINK></FONT>],
	q[ﾋa] => q[<FONT color=dodgerblue><BLINK>◆</BLINK></FONT>],
	q[ﾋb] => q[<FONT color=red><BLINK>◆</BLINK></FONT>],
	q[ﾋc] => q[<FONT color=deeppink><BLINK>◆</BLINK></FONT>],
	q[ﾋd] => q[<FONT color=forestgreen><BLINK>◆</BLINK></FONT>],
	q[ﾋe] => q[<FONT color=teal><BLINK>◆</BLINK></FONT>],
	q[ﾋf] => q[<FONT color=gold><BLINK>◆</BLINK></FONT>],
	q[ﾋg] => q[<FONT color=orange><BLINK>◆</BLINK></FONT>],
	q[ﾋh] => q[<FONT color=mistyrose><BLINK>◆</BLINK></FONT>],
	q[ﾋi] => q[<FONT color=gray><BLINK>◆</BLINK></FONT>],
	q[ﾋj] => q[<FONT color=silver><BLINK>◆</BLINK></FONT>],
	q[ﾋk] => q[<BLINK>◆</BLINK>],

# 旧・色変換 ★
	q[ﾎ0] => q[<FONT color=black>★</FONT>],
	q[ﾎ1] => q[<FONT color=dodgerblue>★</FONT>],
	q[ﾎ2] => q[<FONT color=crimson>★</FONT>],
	q[ﾎ3] => q[<FONT color=deeppink>★</FONT>],
	q[ﾎ4] => q[<FONT color=forestgreen>★</FONT>],
	q[ﾎ5] => q[<FONT color=teal>★</FONT>],
	q[ﾎ6] => q[<FONT color=gold>★</FONT>],
	q[ﾎ7] => q[<FONT color=orange>★</FONT>],
	q[ﾎ8] => q[<FONT color=mistyrose>★</FONT>],
	q[ﾎ9] => q[<FONT color=gray>★</FONT>],
	q[ﾎw] => q[<FONT color=silver>★</FONT>],
	q[ﾎb] => q[<FONT color=red><BLINK>★</BLINK></FONT>],
#
	q[ﾎx] => q[<FONT color=black><BLINK>★</BLINK></FONT>],
	q[ﾎa] => q[<FONT color=dodgerblue><BLINK>★</BLINK></FONT>],
	q[ﾎb] => q[<FONT color=red><BLINK>★</BLINK></FONT>],
	q[ﾎc] => q[<FONT color=deeppink><BLINK>★</BLINK></FONT>],
	q[ﾎd] => q[<FONT color=forestgreen><BLINK>★</BLINK></FONT>],
	q[ﾎe] => q[<FONT color=teal><BLINK>★</BLINK></FONT>],
	q[ﾎf] => q[<FONT color=gold><BLINK>★</BLINK></FONT>],
	q[ﾎg] => q[<FONT color=orange><BLINK>★</BLINK></FONT>],
	q[ﾎh] => q[<FONT color=mistyrose><BLINK>★</BLINK></FONT>],
	q[ﾎi] => q[<FONT color=gray><BLINK>★</BLINK></FONT>],
	q[ﾎj] => q[<FONT color=silver><BLINK>★</BLINK></FONT>],
	q[ﾎk] => q[<BLINK>★</BLINK>],

# 旧・色変換 旦
	q[ﾁ0] => q[<FONT color=black>旦</FONT>],
	q[ﾁ1] => q[<FONT color=dodgerblue>旦</FONT>],
	q[ﾁ2] => q[<FONT color=crimson>旦</FONT>],
	q[ﾁ3] => q[<FONT color=deeppink>旦</FONT>],
	q[ﾁ4] => q[<FONT color=forestgreen>旦</FONT>],
	q[ﾁ5] => q[<FONT color=teal>旦</FONT>],
	q[ﾁ6] => q[<FONT color=gold>旦</FONT>],
	q[ﾁ7] => q[<FONT color=orange>旦</FONT>],
	q[ﾁ8] => q[<FONT color=mistyrose>旦</FONT>],
	q[ﾁ9] => q[<FONT color=gray>旦</FONT>],
	q[ﾁw] => q[<FONT color=silver>旦</FONT>],
	q[ﾁb] => q[<FONT color=red><BLINK>旦</BLINK></FONT>],
#
	q[ﾁx] => q[<FONT color=black><BLINK>旦</BLINK></FONT>],
	q[ﾁa] => q[<FONT color=dodgerblue><BLINK>旦</BLINK></FONT>],
	q[ﾁb] => q[<FONT color=red><BLINK>旦</BLINK></FONT>],
	q[ﾁc] => q[<FONT color=deeppink><BLINK>旦</BLINK></FONT>],
	q[ﾁd] => q[<FONT color=forestgreen><BLINK>旦</BLINK></FONT>],
	q[ﾁe] => q[<FONT color=teal><BLINK>旦</BLINK></FONT>],
	q[ﾁf] => q[<FONT color=gold><BLINK>旦</BLINK></FONT>],
	q[ﾁg] => q[<FONT color=orange><BLINK>旦</BLINK></FONT>],
	q[ﾁh] => q[<FONT color=mistyrose><BLINK>旦</BLINK></FONT>],
	q[ﾁi] => q[<FONT color=gray><BLINK>旦</BLINK></FONT>],
	q[ﾁj] => q[<FONT color=silver><BLINK>旦</BLINK></FONT>],
	q[ﾁk] => q[<BLINK>旦</BLINK>],

# 初期・お茶変換
	q[ｫa!] => q[<FONT color=crimson>旦~</FONT>],
	q[ｫb!] => q[<FONT color=dodgerblue>旦~</FONT>],
	q[ｫc!] => q[<FONT color=orange>旦~</FONT>],
	q[ｫd!] => q[<FONT color=deeppink>旦~</FONT>],
	q[ｫe!] => q[<FONT color=teal>旦~</FONT>],
	q[ｫf!] => q[<FONT color=forestgreen>旦~</FONT>],
	q[ｫg!] => q[<FONT color=gold>旦~</FONT>],

#まーきー
	q[ｩ0] => q[</marquee>],
	q[ｩ1] => q[<marquee>],
	q[ｩ2] => q[<marquee behavior="scroll">],
	q[ｩ3] => q[<marquee behavior="alternate">],
	q[ｩ4] => q[<marquee behavior="slide">],
	q[ｩ5] => q[<marquee direction="right">],
	q[ｩ6] => q[<marquee scrolldelay="100">],
	q[ｩ7] => q[<marquee scrollamount="8">],
	q[ｩ7] =>q[<marqueed irection="down">],
	q[ｩ7] =>q[<marquee direction="up">],

#wikipedia

# 特定文字列
	q[おんぷたん] => 	q[<FONT color=VIOLET>おんぷたん</FONT>],
	q[うさだ] =>	 	q[<FONT color=PINK>うさだ</FONT>],
	q[ぷちこ] =>	 	q[<FONT color=YELLOW>ぷちこ</FONT>],
	q[でじこ] =>	 	q[<FONT color=LIGHTSEAGREEN>でじこ</FONT>],
	q[ぴよこ] =>	 	q[<FONT color=DARKORCHID>ぴよこ</FONT>],
	q[しまこ！] =>	 	q[<FONT color=#B04040>しまこ！</FONT>],
# team-A
	q[あやちゅう]	=> 	q[<FONT color=RED><BLINK>あやちゅう</BLINK></FONT>],
	q[アリス]	=> 	q[<FONT color=lightblue><BLINK>アリス</BLINK></FONT>],
	q[iRC]		=> 	q[<FONT color=lightblue><BLINK>iRC</BLINK></FONT>],
	q[ﾕｱﾆｰﾄ]	=> 	q[<FONT color=powderblue><BLINK>ﾕｱﾆｰﾄ</BLINK></FONT>],
	q[擁護派]	=> 	q[<FONT color=skyblue><BLINK>擁護派</BLINK></FONT>],
	q[おちょくり派]	=>	q[<FONT color=magenta><BLINK>おちょくり派</BLINK></FONT>],
	q[ＳＨ七瀬]	=>	q[<FONT color=YELLOW><BLINK>ＳＨ七瀬</BLINK></FONT>],
	q[SH七瀬]	=>	q[<FONT color=YELLOW><BLINK>SH七瀬</BLINK></FONT>],
	q[マソ\ちゅう]	=>	q[<FONT color=red><BLINK>マソ\ちゅう</BLINK></FONT>],
	q[マソ\]	=>	q[<FONT color=red><BLINK>マソ\</BLINK></FONT>],
	q[ﾏｿ]		=>	q[<FONT color=red><BLINK>ﾏｿ</BLINK></FONT>],
	q[長文先生]	=>	q[<FONT color=red><BLINK>長文先生</BLINK></FONT>],
	q[funya]	=>	q[<FONT color=red><BLINK>funya</BLINK></FONT>],
	q[広報室長]	=>	q[<FONT color=RED><BLINK>広報室長</BLINK></FONT>],
#	q[室長]		=>	q[<FONT color=RED><BLINK>室長</BLINK></FONT>],
	q[ﾁｰﾑ]		=>	q[<FONT color=RED><BLINK>ﾁｰﾑ</BLINK></FONT>],
	q[TEAM]		=>	q[<FONT color=RED><BLINK>TEAM</BLINK></FONT>],
	q[team]		=>	q[<FONT color=RED><BLINK>team</BLINK></FONT>],
	q[(#ﾟ皿ﾟ)]	=>	q[<FONT color=RED><BLINK>(#ﾟ皿ﾟ)</BLINK></FONT>],
	q[ネコニ〜ト]	=>	q[<FONT color=gray><BLINK>ネコニ〜ト</BLINK></FONT>],
	q[ユアニ〜ト]	=>	q[<FONT color=lightblue><BLINK>ユアニ〜ト</BLINK></FONT>],

#管理人（50音順）
	q[AGStar]	=>	q[<FONT color=RED><BLINK><B>AGStar</B></BLINK></FONT>],
	q[クワ]		=>	q[<FONT color=violet>クワ</FONT>],
	q[qwerty]	=>	q[<FONT color=violet>qwerty</FONT>],
	q[ｼ罕ｼ毎]	=>	q[<FONT color=violet>ｼ罕ｼ毎</FONT>],
	q[下衆ナッツ]	=>	q[<FONT color=orchid>下衆ナッツ</FONT>],
	q[下衆ナッシ]	=>	q[<FONT color=orchid>下衆ナッシ</FONT>],
	q[下衆ﾅｯｼ]	=>	q[<FONT color=orchid>下衆ﾅｯｼ</FONT>],
	q[疑古猫]	=>	q[<FONT color=gray>疑古猫</FONT>],
	q[ｷﾞｺ猫]	=>	q[<FONT color=gray>ｷﾞｺ猫</FONT>],
	q[ギコ猫]	=>	q[<FONT color=gray>ギコ猫</FONT>],
#	q[猫]		=>	q[<FONT color=gray>猫</FONT>],
	q[ナッシ]	=>	q[<FONT color=orchid>ナッシ</FONT>],
	q[ﾅｯｼ]		=>	q[<FONT color=orchid>ﾅｯｼ</FONT>],
	q[下衆]		=>	q[<FONT color=lightblue><BLINK>下衆</BLINK></FONT>],
	q[下衆ナッツ]	=>	q[<FONT color=orchid>下衆ナッツ</FONT>],
	q[しば]		=>	q[<FONT color=lightblue>しば</FONT>],
	q[酋長]		=>	q[<FONT color=#B04040>酋長</FONT>],
	q[ds]		=>	q[<FONT color=cornflowerblue>ds</FONT>],
	q[生入]		=>	q[<FONT color=gold>生入</FONT>],
	q[生ち]		=>	q[<FONT color=gold>生ち</FONT>],
	q[生デブ]	=>	q[<FONT color=gold>生デブ</FONT>],
	q[生ﾃﾞﾌﾞ]	=>	q[<FONT color=gold>生ﾃﾞﾌﾞ</FONT>],
	q[まな]		=>	q[<FONT color=lightpink>まな</FONT>],
	q[腹黒]		=>	q[<FONT color=gray>腹黒</FONT>],
	q[ブラックポンポン] =>	q[<FONT color=gray>ブラックポンポン</FONT>],
	q[ﾌﾞﾗｯｸﾎﾟﾝﾎﾟﾝ]	=>	q[<FONT color=gray>ﾌﾞﾗｯｸﾎﾟﾝﾎﾟﾝ</FONT>],
	q[ひなた]	=>	q[<FONT color=orange>ひなた</FONT>],
	q[妖精]		=>	q[<FONT color=cornflowerblue>妖精</FONT>],
#掲示板
	q[II]		=>	q[<FONT color=RED><BLINK><B>II</B></BLINK></FONT>],
	q[みらい]	=>	q[<FONT color=cornflowerblue>みらい</FONT>],
	q[あやしい]	=>	q[<FONT color=lightblue>あやしい</FONT>],
	q[ｸﾘ島]		=>	q[<FONT color=#B04040>ｸﾘ島</FONT>],
	q[クリスマス島]	=>	q[<FONT color=#B04040>クリスマス島</FONT>],
	q[ﾘﾐ]		=>	q[<FONT color=#008080>ﾘﾐ</FONT>],
	q[ﾘﾐｸｽ]		=>	q[<FONT color=#008080>ﾘﾐｸｽ</FONT>],
	q[ﾘﾊﾞｰｽ]	=>	q[<FONT color=#008080>ﾘﾊﾞｰｽ</FONT>],
	q[ﾘﾊﾞｽ]		=>	q[<FONT color=#008080>ﾘﾊﾞｽ</FONT>],
	q[本店]		=>	q[<FONT color=cornflowerblue>本店</FONT>],
	q[退避]		=>	q[<FONT color=gold>退避</FONT>],
	q[暫定]		=>	q[<FONT color=orchid>暫定</FONT>],
	q[暫退]		=>	q[<FONT color=gold>暫退</FONT>],
	q[暫暫]		=>	q[<FONT color=gold>暫暫</FONT>],
	q[暫定退避]	=>	q[<FONT color=gold>暫定退避</FONT>],
#mixi
	q[mixi]		=>	q[<FONT color=darkorange>mixi</FONT>],
	q[ﾏｲﾐｸ]		=>	q[<FONT color=darkorange>ﾏｲﾐｸ</FONT>],
	q[マイミク]	=>	q[<FONT color=darkorange>マイミク</FONT>],

#other
	q[中島らも]	=>	q[<FONT color=lightpink>中島らも</FONT>],
	q[暫定君]	=>	q[<FONT color=lightblue>暫定君</FONT>],

##N.G.WORD
#	q[URL=]		=>	q[<FONT color=RED><BLINK>URL=</BLINK></FONT>],
#	q[\[url=]	=>	q[<FONT color=RED><BLINK>\[url=</BLINK></FONT>],
#	q[viagra]	=>	q[<FONT color=RED><BLINK>viagra</BLINK></FONT>],
#	q[phentermine]	=>	q[<FONT color=RED><BLINK>phentermine</BLINK></FONT>],
#	q[nutzworld]	=>	q[<FONT color=RED><BLINK>nutzworld</BLINK></FONT>],
#	q[ppfoi]	=>	q[<FONT color=RED><BLINK>ppfoi</BLINK></FONT>],
#	q[sky-hart]	=>	q[<FONT color=RED><BLINK>sky-hart</BLINK></FONT>],
#	q[blog\.x07\.jp] =>	q[<FONT color=RED><BLINK>blog\.x07\.jp</BLINK></FONT>],
#	q[cute-lala]	=>	q[<FONT color=RED><BLINK>cute-lala</BLINK></FONT>],
#	q[ocxgf]	=>	q[<FONT color=RED><BLINK>ocxgf</BLINK></FONT>],
#	q[vip-blog]	=>	q[<FONT color=RED><BLINK>vip-blog</BLINK></FONT>],
#	q[ocxgf]	=>	q[<FONT color=RED><BLINK>ocxgf</BLINK></FONT>],
	q[casino\.ru]	=>	q[<FONT color=RED><BLINK>casino\.ru</BLINK></FONT>],
#	q[web]		=>	q[<FONT color=RED><BLINK>web</BLINK></FONT>],
#	q[\/url]		=>	q[<FONT color=RED><BLINK>\/url</BLINK></FONT>],

	q[/URL=]		=>	q[<FONT color=RED><BLINK>/URL=</BLINK></FONT>],
	q[viagra]		=>	q[<FONT color=RED><BLINK>viagra</BLINK></FONT>],
	q[phentermine]		=>	q[<FONT color=RED><BLINK>phentermine</BLINK></FONT>],
	q[road!]		=>	q[<FONT color=RED><BLINK>road!</BLINK></FONT>],
	q[nutzworld]		=>	q[<FONT color=RED><BLINK>nutzworld</BLINK></FONT>],
	q[ppfoi]		=>	q[<FONT color=RED><BLINK>ppfoi</BLINK></FONT>],
	q[sky-hart]		=>	q[<FONT color=RED><BLINK>sky-hart</BLINK></FONT>],
	q[blog\.x07\.jp]	=>	q[<FONT color=RED><BLINK>blog\.x07\.jp</BLINK></FONT>],
	q[cute-lala]		=>	q[<FONT color=RED><BLINK>cute-lala</BLINK></FONT>],
	q[ocxgf]		=>	q[<FONT color=RED><BLINK>ocxgf</BLINK></FONT>],
	q[vip-blog]		=>	q[<FONT color=RED><BLINK>vip-blog</BLINK></FONT>],
	q[ocxgf]		=>	q[<FONT color=RED><BLINK>ocxgf</BLINK></FONT>],
#	q[coolest!]		=>	q[<FONT color=RED><BLINK>coolest!</BLINK></FONT>],
	q[\[url=]		=>	q[<FONT color=RED><BLINK>\[url=</BLINK></FONT>],
#	q[casino]		=>	q[<FONT color=RED><BLINK>casino</BLINK></FONT>],
#	q[\.ru]			=>	q[<FONT color=RED><BLINK>\.ru</BLINK></FONT>],
);

# ======ここまで============================================================

# 処理用のパターン
my %xxx_back = map { $xxx_data{$_}, $_ } keys(%xxx_data);
my $xxx_data_pattern = "(?:" . join("|", map { quotemeta($_) } keys(%xxx_data)) . ")";
my $xxx_back_pattern = "(?:" . join("|", map { quotemeta($_) } keys(%xxx_back)) . ")";

# 特殊な変換を行う(色付けとか)
sub change_to_xxx {
	my($message) = @_;

#フォント対策　キーワードリンク(20071209)

#if (($message =~ /\[\[([^']+?)\]\]/) || ($message =~ /\(\(([^']+?)\)\)/ )){
#$utf8mes = &utf8Enc($1);
#}

#if ($message =~ /\{([^']+?)\}\}/){
#$euc8mes = &eucEnc($1);
#}

#重くなるけど暫定でこんな感じ 20071211 Thanks 夕暮れ

#$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$1\"><FONT COLOR=E0C080>$1<\/FONT><\/A>#g;
while ($message =~ /\[\[([^']+?)\]\]/g){ 
my $utm = &utf8Enc($1);
$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$utm\"><FONT COLOR=\"\#E0C080\">$1<\/FONT><\/A>#;
 }
#$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$1\"><FONT COLOR=E0C080>$1<\/FONT><\/A>#g;
while ($message =~ /\{\{([^']+?)\}\}/g){ 
my $eum = &eucEnc($1);
$message =~ s#\{\{([^']+?)\}\}#<A HREF=\"http:\/\/d\.hatena\.ne\.jp\/keyword\/$eum\"><FONT COLOR="\#80C0E0\">$1</FONT></A>#;
}
#$message =~ s#\(\(([^']+?)\)\)#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=$1&lr=lang_ja"><FONT COLOR=E04040>$1</FONT></A>#g;
while ($message =~ /\(\(([^']+?)\)\)/g){ 
my $utm = &utf8Enc($1);
$message =~ s#\(\(([^']+?)\)\)#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=$utm&lr=lang_ja"><FONT COLOR=\"\#E04040\">$1</FONT></A>#;
}


	# %xxx_dataの分を変換 (SJIS,タグ対応済み)
	$message =~ s/\G((?:[^\x81-\x9f\xe0-\xfc<]|[\x81-\x9f\xe0-\xfc].|<[^>]*?>)*?)($xxx_data_pattern)/$1$xxx_data{$2}/xgo;

	# その他の変換を行う場合はこの辺に記述する
#$message =~ s#マ#<FONT color=VIOLET><BLINK>マ</BLINK></FONT>#g;

$message =~s/ネコニ\Qー\Eト/<FONT color=lightblue><BLINK>ネコニ〜ト<\/BLINK><\/FONT>/g;
$message =~s/ユアニ\Qー\Eト/<FONT color=lightblue><BLINK>ユアニ〜ト<\/BLINK><\/FONT>/g;
$message =~s/\Q深海\E/<FONT color=lightblue><BLINK>ｼ罕ｼ毎<\/BLINK><\/FONT>/g;

	return $message;
}

# 特殊な変換を戻す(色付けとか)
sub change_from_xxx {
	my($message) = @_;

	# %xxx_dataの分を戻す
	$message =~ s/($xxx_back_pattern)/$xxx_back{$1}/go;

	# その他の変換を戻す場合はこの辺に記述する

$message =~s/<FONT color=lightblue><BLINK>\Q深海\E<\/BLINK><\/FONT>/\深海\E/g;

#フォント対策　キーワードリンク(20071209)
$message =~s#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\[\[$3\]\]#g;
$message =~s#<A HREF=\"http:\/\/d\.hatena\.ne\.jp\/keyword\/([^']+?)\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\{\{$3\}\}#g;
$message =~s#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=([^']+?)&lr=lang_ja\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\(\($3\)\)#g;

#独自タグは不要だった
#while ($message =~ /<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\">([^']+?)<\/A>/g){ 
#my $utm = &utf8Dec($1);
#$message =~s#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\">([^']+?)</A>#\[\[$utm\]\]#g;
# }

	return $message;
}

# html関連の正規表現
my $re_xtag_name = qr#[a-zA-Z0-9\.\_\:\-]+#;

# 画像の拡張子の正規表現
my $re_image_suffix = qr#jpg|jpeg|png|gif#i;

# タグの中にあると危なそうなものの正規表現
my $re_dangerous = qr#mailto:|script|file:|strange\.kurumi\.ne\.jp|env|xmp|hainuwele|bbss.cgi|click#i;

# タグ許可ルーチン
sub tag_change {
	my($message, $nazomode) = @_;

	if($nazomode) {
		# なぞモード

		# URL自動リンクの調整その1
		my $autolink = ($message =~ s#<A href="[^"]*" target="link">([^<]*)</A>#\0$1\0#go);

		# "と&を戻す
		$message =~ s#((?:\G|>)[^<]*?)&quot;#$1"#go;
		$message =~ s#((?:\G|>)[^<]*?)&amp;#$1&#go;

		# タグっぽいものをタグに戻す
		$message =~ s#&lt;(/?$re_xtag_name(?:\s+(?:$re_xtag_name\s*(?:=\s*(?:"[^"]*"|[^\s]*?)[\s\0]*)?)*)?/?)&gt;#&xtag_filter($1, 1)#ego;

		# URL自動リンクの調整その2と画像展開
		if($autolink) {
			my $inline_img = ($message =~ s#((?:\G|>)[^<]*?)\0([^\0]*?$re_image_suffix)\0#$1<IMG src="$2">#go);
			$message =~ s#((?:\G|>)[^<]*?)\0([^\0]*?)\0#$1<A href="$2" target="link">$2</A>#go;
			$message =~ tr/\0//d;
			if($inline_img) {
				$message =~ s#<IMG src="([^"]*$re_dangerous[^"]*)">#<A href="$1" target="link">$1</A>#go;
			}
		}
	} else {
		# 通常モード
		# (未実装)
	}

	return $message;
}
##ＵＲＬエンコード

#UTF-8にエンコード(夕暮れ管理人)
sub utf8Enc
	{
	my ( $Mes ) = @_ ;
	use Jcode;
	Jcode::convert(\$Mes, 'utf8' , 'sjis');
	$Mes =~ tr/ /+/;
	$Mes =~ s/(\W)/'%'.unpack("H2", $1)/ego;
	return $Mes;
	}

##はてな用

sub eucEnc
	{
	my ( $Mes ) = @_ ;
	use Jcode;
	Jcode::convert(\$Mes, 'euc' , 'sjis');
	$Mes =~ tr/ /+/;
	$Mes =~ s/(\W)/'%'.unpack("H2", $1)/ego;
	return $Mes;
	}
##ＵＲＬデコード

sub utf8Dec
	{
	my ( $Mes ) = @_ ;
	$Mes=~tr/+/ /;
	$Mes=~s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
	use Jcode;
	Jcode::convert(\$Mes, 'sjis' , 'utf8');
	}
sub eucDec
	{
	my ( $Mes ) = @_ ;
	$Mes=~tr/+/ /;
	$Mes=~s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
	use Jcode;
	Jcode::convert(\$Mes, 'sjis' , 'euc');
	}

sub URLe{my $URLencode=shift;
$URLencode=~s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
$URLencode=~s/\s/+/g;
return \$URLencode;}

sub URLd{
my $URLdecode=shift;

return \$URLdecode;}

# タグ用フィルタ
sub xtag_filter {
	my($data, $nazomode) = @_;
	return "&lt;" . $data . "&gt;" if $data =~ m#(?:$re_dangerous)#;
	return "<" . $data . ">";
}

1;

__END__