
sub Make_Color {
my $st = shift;
my $result = '';
my $colors = 0;
my $i;
my $ch;

for ($i=0; $i < length($st); $i++) {
  if (substr($st,$i,1) eq '`') {
    $i++;
	if ($i > length($st)) { next; }
	$ch = substr($st,$i,1);
	if ($ch eq '1') {$result .= '<font color="#0000A8">'; $colors++;}
	elsif ($ch eq '2') {$result .= '<font color="#007000">'; $colors++;}
	elsif ($ch eq '3') {$result .= '<font color="#008080">'; $colors++;}
	elsif ($ch eq '4') {$result .= '<font color="#A80000">'; $colors++;}
	elsif ($ch eq '5') {$result .= '<font color="#A800A8">'; $colors++;}
	elsif ($ch eq '6') {$result .= '<font color="#A85400">'; $colors++;}
	elsif ($ch eq '7') {$result .= '<font color="#808080">'; $colors++;}
	elsif ($ch eq '8') {$result .= '<font color="#505050">'; $colors++;}
	elsif ($ch eq '9') {$result .= '<font color="#5454FC">'; $colors++;}
	elsif ($ch eq '0') {$result .= '<font color="#00B000">'; $colors++;}
	elsif ($ch eq '!') {$result .= '<font color="#00A0A0">'; $colors++;}
	elsif ($ch eq '@') {$result .= '<font color="#FC5454">'; $colors++;}
	elsif ($ch eq '#') {$result .= '<font color="#FC54FC">'; $colors++;}
	elsif ($ch eq 'A') {$result .= '<font color="#FC54FC">'; $colors++;}
	elsif ($ch eq '$') {$result .= '<font color="#AAAA00">'; $colors++;}
	elsif ($ch eq '%') {$result .= '<font color="#000000">'; $colors++;}
  } else {
     $result .= substr($st,$i,1);
	 }
}

while ($colors--) { $result .= '</font>'; }

return ($result);
}


1;