1. guck mal auf mircscripts.org, da gibt es bestimmt snippets zu. Ansonsten selber machen.
Code: Alles auswählen
;;
;; $mirc2html(4Bold and coloredUnderlinedReversednormal)
;; returns: <b><font color=#FF0000>Bold and colored</b></u></font><u>Underlined<font color=#000000 bgcolor=#D2D2D2>Reversed</b></u></font>normal</b></u></font>
;;
alias mirc2html {
var %t = $replace($1-,<,<,>,>),%li,%re,%x,%y = 0
if ( isin %t) {
%t = %t $+
%x = $pos(%t,,0)
while (%y < %x) {
inc %y
%li = $.colrep($.controlrep($gettok(%t,1,15)))
%re = $gettok(%t,2-,15)
%t = %li $+ </b></u></font> $+ %re
}
}
else { %t = $.colrep($.controlrep(%t)) }
return %t
}
alias -l .rgb {
if ($1 isnum 0-15) {
tokenize 44 $rgb($color($1)) $+ $iif($2 isnum 0-15,$chr(44) $+ $rgb($color($2)))
var %col = $+($chr(35),$base($1,10,16,2),$base($2,10,16,2),$base($3,10,16,2)),%bgcol = $+($chr(35),$base($4,10,16,2),$base($5,10,16,2),$base($6,10,16,2))
return $iif($prop == html,<font color= $+ %col $+ $iif($4 || $4 isnum 0,$chr(32) $+ bgcolor= $+ %bgcol) $+ >,%col $iif($4 || $4 isnum 0,%bgcol))
}
else { return }
}
alias -l .colrep {
var %t = $replace($1-,$chr(32),ÿ),%s = ,%p,%cp,%atos,%l,%left,%right,%color = $false,%x,%y,%z
%p = 0
%atos = $pos(%t,%s,0)
while (%p < %atos) {
inc %p
%komma = $false
%l = $len(%t)
%cp = $pos(%t,%s,%p)
%left = $left(%t,$calc(%cp -1))
%right = $right(%t,$calc(%l - %cp +1))
%a = ""
%b = ""
if ($mid(%right,2,1) isnum) {
%color = $true
%x = $mid(%right,1,6)
%y = 1
while (%y < 6) {
inc %y
%z = $mid(%x,%y,1)
if (%z isnum 0-9) {
if ((!%komma) && ($len(%a) < 2)) %a = %a $+ %z
elseif ((%komma) && ($len(%b) < 2)) %b = %b $+ %z
}
elseif (%z == $chr(44)) { %komma = $true }
}
}
else {
%color = $false
}
%t = %left $+ $iif(%color,$.rgb(%a,%b).html,</font>) $+ %right
}
%t = %t
return $strip($replace(%t,ÿ,$chr(32)),c)
}
alias -l .controlrep {
var %t = $replace($1-,$chr(32),ÿ),%tok = ¿<b>¿</b>¹¿<u>¿</u>¹¿ $+ $.rgb($color(background),$color(normal)).html $+ ¿</font>,%r = $numtok(%tok,185),%a,%b,%c,%s,%p,%cp,%atos,%l,%left,%right,%op
while (%r) {
%c = $gettok(%tok,%r,185)
%s = $gettok(%c,1,191)
%a = $gettok(%c,2,191)
%b = $gettok(%c,3,191)
%p = 0
%atos = $pos(%t,%s,0)
while (%p < %atos) {
inc %p
%l = $len(%t)
%cp = $pos(%t,%s,%p)
%left = $left(%t,$calc(%cp -1))
%right = $right(%t,$calc(%l - %cp +1))
%t = %left $+ $iif(2 // %p,%b,%a) $+ %right
}
%t = $remove(%t,%s)
dec %r
}
return $replace(%t,ÿ,$chr(32),,</b></u></font>)
}
Habe zur Farbumwandlung das hier gefunden. Habe ich mal irgendwoher gehabt, kA
2. mIRC benutzt normalerweise den als Standardbrowser eingestellt Browser in Windows. Wenn das nicht geht, 6.16 installieren/nochmal installieren.
usw ab sofort untersagt um theatralik wird gebeten02)12
