This is a odd little script but it serves a very useful function. This script will convert mIRC's text/color codes to html for website posting or PHPBB for forum posting.
Here is a quick example;
mIRC:

[20:16:38] <04Demonoid> 8,4 HELLO 4,8 HELLO 8,4 HELLO 4,8 HELLO 0,12 Sm00ch_Operator 4,8 HELLO 8,4 HELLO 4,8 HELLO 8,4 HELLO

Converted to PHPBB:

20:16:38 <Demonoid>  HELLO  HELLO  HELLO  HELLO  Sm00ch_Operator  HELLO  HELLO  HELLO  HELLO

RESULTS:
20:16:38 <Demonoid> HELLO HELLO HELLO HELLO Sm00ch_Operator HELLO HELLO HELLO HELLO

As you can see I removed the background colors. This will only work for foreground colors, bold and underline.

To use this script.
[list=1]
[]Copy some mIRC text to the clipboard(Hold down ctrl to copy the color codes)
[]Right Click the channel,query or Status screen and scroll to Convert Clipboard Contents.
[*]Select PHPBB or HTML and choose Clipboard or file. (Clipboard will do the conversion within the clipboard and you can just click ctrl+v to paste the results. File will send the results to the filename you select.)[/list]

Suggestions will be welcomed, as I am only scratching the surface of what can be done with some of these routines.

One thing to note If you are trying to copy long lines of really colorful text, you will need mIRC 6.32 or higher. Each color adds about 20 characters to the text, so if you have a full line of 430+ characters, 27 color changes will push you over the old variable limit.

;mIRC format code converter by Ford_Lawnmower irc.mindforge.org #USA-Chat
menu status,query,channel {
  $iif(!$cb,$style(2)) Convert Clipboard Contents
  .PHPBB
  ..Clipboard to Clipboard:cliptoHTML -cPHPBB
  ..Clipboard to File:cliptoHTML -fPHPBB
  .HTML
  ..Clipboard to Clipboard:cliptoHTML -cHTML
  ..Clipboard to File:cliptoHTML -fHTML
}
alias -l cliptoHTML {
  var %cbtotal $cb(0), %cbline 1
  if (-c isin $1) {
    var %type $remove($1,-c)
    if ($isfile($+(cliptemp.,%type))) { .remove $+(cliptemp.,%type) }
    while (%cbline <= %cbtotal) {
      write $+(cliptemp.,%type) $+($,mircto,%type,( [ $rembackcol($cb(%cbline)) ] ))
      inc %cbline
    }
    %cbtotal = $lines($+(cliptemp.,%type))
    %cbline = 1
    clipboard
    while (%cbline <= %cbtotal) {
      clipboard -an $read($+(cliptemp.,%type),%cbline)
      inc %cbline
    }
    echo -a Clipboard Conversion to %type Completed Successfully.
    .remove $+(cliptemp.,%type)
  }
  if (-f isin $1) {
    if ($sfile($scriptdir,Navigate to the desired location and enter a filename,Save to File)) { 
      var %savename $qt($ifmatch), %type $remove($1,-f)
      if ($isfile(%savename)) {
        $iif($input(File Exists -- Do you want to Overwrite?,yn),.remove %savename,return)
      }
      while (%cbline <= %cbtotal) {
        write %savename $($+($,mircto,%type,( [ $remove($rembackcol($cb(%cbline)),$chr(91),$chr(93),$chr(40),$chr(41),$chr(47),$chr(124)) ] )),2)
        inc %cbline
      }
      echo -at Conversion to %type was successfully written to %savename 
    }
  }
}
alias -l mIRCtoHTML {
  var %r, %rrr $1-
  while ($regex(%rrr,/([0-9]{1,2})/)) {
    noop = $regsub(%rrr,/([0-9]{1,2})/,$getHTMLcolor($calc($remove($regml($regml(0)),))),%r)
    %rrr = %r
  }
  return $boldHTML($underHTML($iif(%r,$+($replace(%r,,</font>),</font>),$1-))) $+ <br />
}
alias -l mIRCtoPHPBB {
  var %r, %rrr $remove($1-,$chr(91),$chr(93)), %rr 0, %ron 0
  while ($regex(%rrr,/([0-9]{1,2})/)) {
    noop = $regsub(%rrr,/([0-9]{1,2})/,$+($iif(%rr,),$getPHPBBcolor($calc($remove($regml($regml(0)),)))),%r)
    %rrr = %r | %rr = 1 | %ron = $iif(%ron,0,1) 
  }
  while ($regex(%rrr,/()[^\d]/)) {
    noop = $regsub(%rrr,/()[^\d]/,$iif(%rr, $+) ,%r)
    %rrr = %r | %rr = 1 | %ron = $iif(%ron,0,1) 
  }
  return $boldPHPBB($underPHPBB($iif(%r,$+($remove(%r,,),),$1-)))
}
alias -l GetPHPBBColor {
  return $+([color=,$replacex($1-,15,darkgray,14,dimgray,13,pink,12,blue,11,aqua,10,darkcyan,9,lime,8,yellow,7,orange,6,purple,5,maroon$&
    ,4,red,3,green,2,darkblue,1,black,0,black),])
}
alias -l GetHTMLColor {
  return $+(<font color=,$qt($replacex($1-,15,darkgray,14,dimgray,13,pink,12,blue,11,aqua,10,darkcyan,9,lime,8,yellow,7,orange,6,purple,5,maroon$&
    ,4,red,3,green,2,darkblue,1,black,0,black)),>)
}
alias -l RemBackCol {
  var %bc, %bcc $1-
  while ($regex(%bcc,/([0-9]{1,2},[0-9]{1,2})/)) {
    noop = $regsub(%bcc,/([0-9]{1,2},[0-9]{1,2})/,$gettok($regml($regml(0)),1,44),%bc)
    %bcc = %bc
  }
  return $iif(%bc,%bc,$1-)
}
alias -l underPHPBB {
  var %u, %uu $1-, %uon 0
  while ($regex(%uu,/()/)) {
    noop = $regsub(%uu,/()/,$iif(%uon,[/u],[u]),%u)
    %uu = %u
    %uon = $iif(%uon,0,1) 
  }
  return $+($iif(%u,%u,$1-),$iif(%uon,[/u])) 
}
alias -l underHTML {
  var %u, %uu $1-, %uon 0
  while ($regex(%uu,/()/)) {
    noop = $regsub(%uu,/()/,$iif(%uon,</u>,<u>),%u)
    %uu = %u
    %uon = $iif(%uon,0,1) 
  }
  return $+($iif(%u,%u,$1-),$iif(%uon,</u>)) 
}
alias -l boldPHPBB {
  var %b, %bb $1-, %bon 0
  while ($regex(%bb,/()/)) {
    noop = $regsub(%bb,/()/,$iif(%bon,[/b],[b]),%b)
    %bb = %b
    %bon = $iif(%bon,0,1) 
  }
  return $+($iif(%b,%b,$1-),$iif(%bon,[/b])) 
}
alias -l boldHTML {
  var %b, %bb $1-, %bon 0
  while ($regex(%bb,/()/)) {
    noop = $regsub(%bb,/()/,$iif(%bon,</b>,<b>),%b)
    %bb = %b
    %bon = $iif(%bon,0,1) 
  }
  return $+($iif(%b,%b,$1-),$iif(%bon,</b>)) 
}