Postea tus dudas sobre IRC o IRcap. Nosotros te ayudaremos.
Hola, buenas tardes, mi duda es la siguiente.... con respecto al tema del remote que hizo TheMexicanForce, es muy bueno, solo tengo una duda, como cambio el color del texto que le sigue al nick completion quiero que mi letra predetermina sea roja, y despues del nick completion me sale negra, sin negritas y no la puedo cambiar este es el remote:
;/setnc2c Color1 Color2 Extra
alias setnc2c {
set %nc2cColor1 $chr(3) $+ $base($1,10,10,2)
set %nc2cColor2 $chr(3) $+ $base($2,10,10,2)
set %nc2cExtra $3
}
on *:signal:modoescritura: {
if (%nickcomp2colores) {
%mi^frase = $null
var %token = 1
while ($gettok($1-,%token,32) != $null) {
var %word = $v1
if (%word ison $active) {
%word = $+(%nc2cExtra,$regsubex(%word,/(.)/g,$iif(2 \\ \n,%nc2cColor1,%nc2cColor2)\t),%nc2cExtra,)
}
%mi^frase = %mi^frase %word
inc %token
}
}
}
P.D. disculpen que no sepa mucho como funciona el foro es que soy nuevo, saludos a todos!!
;---- activar letras
;----Las Fer Letras (nick partido en dos colores) /ll3_activar
ll3_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll3(<t>))
ll3 {
var %txt1 $+($chr(3),12)
var %txt2 $+($chr(3),01)
var %mi frase $null, %i 1, %txt $chr(2), %n, %n2
while ($gettok($1-,%i,32) != $null) {
var %palabra = $v1
if ($len(%palabra) = 1) { %palabra = $+(%txt1,,%palabra) | goto L }
%n = $int($calc($len(%palabra) / 2)) | %n2 = $calc($len(%palabra) - %n)
%palabra = $+(%txt1,$mid(%palabra,1,%n),%txt2,$mid(%palabra,- $+ %n2))
:L
%txt = %txt $+ %palabra
inc %i
}
return %txt
}
;-----color doble con negrita /ll7_activar
ll7_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll7(<t>))
ll7 {
var %a $1, %c1 12, %c2 13, %i 01, %ii $len($1), %t, %b 1
while (%i <= %ii) { %t = %t $+ $chr(2) $+ $chr(3) $+ $iif(%b,%c1,%c2) $+ $mid(%a,%i,1) $+ $chr(2) | inc %i | if (%b) %b = 0 | else %b = 1 }
return %t
}
;-----color doble con bold y sin bold /ll2_activar
ll2_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll2(<t>))
ll2 {
var %a $1, %c1 04, %c2 01, %i 1, %ii $len($1), %t, %b 1
while (%i <= %ii) { %t = %t $+ $chr(3) $+ $iif(%b,%c1,%c2) $+ $mid(%a,%i,1) $+ $chr(2) | inc %i | if (%b) %b = 0 | else %b = 1 }
return %t
}
;----------- /ll3_tri_activar Letra en tres colores modificar %txt1,2,3 despues de la ","
ll3_tri_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll3_tri(<t>))
ll3_tri {
var %txt1 $+($chr(3),03)
var %txt2 $+($chr(3),01)
var %txt3 $+($chr(3),06)
var %mi frase $null, %i 1, %txt $chr(2), %n, %n2, %n3
while ($gettok($1-,%i,32) != $null) {
var %palabra = $v1
if ($len(%palabra) = 1) { %palabra = $+(%txt1,%palabra) | goto L }
%n = $int($calc($len(%palabra) / 3)) | %n2 = $calc($len(%palabra) - %n) | %n3 = $calc($len(%palabra) - $calc(%n + %n2))
%palabra = $+(%txt1,$mid(%palabra,1,%n),%txt2,$mid(%palabra,$calc(%n +1),$calc(%n2 - %n)),%txt3,$right(%palabra,- $+ %n2))
:L
%txt = %txt $+ %palabra
inc %i
}
return %txt
}
;--------- Letra MaYuScUlA y MiNiScUlA --> /ll5_activar ejemplo MmMnMn o 10101010
ll5_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll5(<t>))
ll5 {
var %a $len($1-), %b 1, %i 1, %t, %t2, %tp
while (%a) { if (%b ) { %b = 0 | %tp = upper } | else { %b = 1 | %tp = lower }
%t2 = $mid($1-,%i,1)
%t = %t $+ [ $ [ $+ [ %tp ] $+ (%t2) ] ] $+ $chr(32)
inc %i | dec %a
}
return %t
}
;--------- Letra MaYuScUlA y MiNiScUlA en negrita --> /ll8_activar ejemplo MmMnMn o 10101010
ll8_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll8(<t>))
ll8 {
var %a $len($1-), %b 1, %i 1, %t , %t2, %tp
while (%a) { if (%b) { %b = 0 | %tp = upper } | else { %b = 1 | %tp = lower }
%t2 = $mid($1-,%i,1)
%t = %t $+ [ $ [ $+ [ %tp ] $+ (%t2) ] ] $+ $chr(32)
inc %i | dec %a
}
return %t
}
;------- /ll6_activar letra primer y ultima en un color --------
ll6_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll6(<t>))
ll6 {
var %len $1 | return $chr(3) $+ $chr(3) $+ 12 $+ $left(%len,1) $+ $chr(3) $+ 14 $+ $mid(%len,2,$calc($len(%len)-2)) $+ $chr(3) $+ 12 $+ $right(%len,1)
}
;--- usar /ll4_activar para activar
ll4_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),ll4(<t>))
sll4 tokenize 32 $1- | var %a, %b, %c $chr(3) | %a = $int($calc($len($3) /2)) | %b = $calc($len($3) - %a) | return $+(%c,$1,$mid($3,1,%a),%c,$2,$mid($3,- $+ %b))
ll4 {
var %txt1 04
var %txt2 01
var %txt3 04
var %txt4 01
var %txt $1, %N $int($calc($len($1) /2)), %N2 $calc($len($1) - %N)
return $chr(2) $+ $sll4(%txt1 %txt2 $mid($1,1,%n)) $+ $sll4(%txt3 %txt4 $mid($1,- $+ %n2))
}