;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,[/color]),$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,[/color] $+) [color=black],%r)
    %rrr = %r | %rr = 1 | %ron = $iif(%ron,0,1) 
  }
  return $boldPHPBB($underPHPBB($iif(%r,$+($remove(%r,,),[/color]),$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>)) 
}
 

Commenting Options