#!/usr/bin/perl -w
open OUT, "> ::texts:splash" or die $!;
%coltab = qw(
  m g
  p g
  M r
  U m
  D y
);
while (<DATA>) {
  s/\b([mpMUD])(\1*)\b/&sb&b$coltab{$1}&$coltab{$1};$1$2&n;/g;
  print OUT $_;
}
__DATA__
________________________________________________________________________________

                                   MMMM       MMMM UUUU      UUUU DDDDDDDDDD
                                   MMMMM     MMMMM UUUU      UUUU DDDDDDDDDDD
 mmmmmmmmmmmmmmmmm   pppppppppp    MMMMMM   MMMMMM UUUU      UUUU DDDD    DDDD
 mmmmmmmmmmmmmmmmmm  ppppppppppp   MMM MMM MMM MMM UUUU      UUUU DDDD     DDDD
 mmmm   mmmm   mmmm  pppp    pppp  MMM  MMMMM  MMM UUUU      UUUU DDDD     DDDD
 mmmm   mmmm   mmmm  pppp    pppp  MMM   MMM   MMM UUUU      UUUU DDDD     DDDD
 mmmm   mmmm   mmmm  pppp    pppp  MMM    M    MMM  UUUU    UUUU  DDDD    DDDD
 mmmm   mmmm   mmmm  ppppppppppp   MMM         MMM   UUUUUUUUUU   DDDDDDDDDDD
 mmmm   mmmm   mmmm  pppppppppp    MMM         MMM     UUUUUU     DDDDDDDDDD
                     pppp
                     pppp                                 Created by Kevin Reid
                     pppp
________________________________________________________________________________


