Converts default mIRC color numbers to MSN color codes
alias msn.mrctomsn {
if ($msn.get($2,frand)) tokenize 32 $rand(0,7)
if ($1 == 0) return $chr(1)
elseif ($1 == 1) return $chr(2)
elseif ($1 == 5) return $chr(3)
elseif ($1 == 3) return $chr(4)
elseif ($1 == 2) return $chr(5)
elseif ($1 == 7) return $chr(6)
elseif ($1 == 6) return $chr(7)
elseif ($1 == 10) return $chr(8)
elseif ($1 == 15) return $chr(9)
elseif ($1 == 4) return $chr(11)
elseif ($1 == 9) return $chr(12)
elseif ($1 == 8) return $chr(14)
elseif ($1 == 13) return $chr(15)
elseif ($1 == 11) return $chr(16)
elseif ($1 == 12) return \r
elseif ($1 == 14) return \n
else return $chr(2)
}
;Converts MSN color codes to default mIRC color numbers
alias msn.msntomrc {
if ($1 == $chr(1)) return 00
elseif ($1 == $chr(2)) return 01
elseif ($1 == $chr(3)) return 05
elseif ($1 == $chr(4)) return 03
elseif ($1 == $chr(5)) return 02
elseif ($1 == $chr(6)) return 07
elseif ($1 == $chr(7)) return 06
elseif ($1 == $chr(8)) return 10
elseif ($1 == $chr(9)) return 15
elseif ($1 == $chr(11)) return 04
elseif ($1 == $chr(12)) return 09
elseif ($1 == $chr(14)) return 08
elseif ($1 == $chr(15)) return 13
elseif ($1 == $chr(16)) return 11
elseif ($1 == \r) return 12
elseif ($1 == \n) return 14
else return 01
}
elseif ($2 == PRIVMSG) {
if ($4 == :S) {
if (?#* !iswm $3) sockwrite -tn %x $1 NOTICE $3 : $+ $remove($6-,$chr(1))
else {
var %color $left($5,1), %style $mid($5,2,1)
if (%color == \) {
%color = $left($5,2)
%style = $mid($5,3,1)
}
%color = $base($msn.msntomrc(%color),10,10,2)
if (($msn.get($sockname,docolor)) && ((%style == $chr(2)) || (%style == $chr(4)))) %style =
elseif (($msn.get($sockname,docolor)) && ((%style == $chr(6)) || (%style == $chr(8)))) %style =
elseif (($msn.get($sockname,docolor)) && ((%style == $chr(5)) || (%style == $chr(7)))) %style =
else unset %style
if (%color == $color(background)) %color = %color(normal)
sockwrite -tn %x $1 $2 $3 : $+ $iif($msn.get($sockname,docolor), $+ %color) $+ %style $+ $left($6-,-1)
}
}
