Hola amigo Red_EriK
gracias por tu ayuda. todo funciono de mil maravillas. pero surgio un problema:
con los adornos activados todo ok se ejecuta sin problemas sin adornos y despues activa los adornos nuevamente
pero cuando hago la prueba con los adornos desactivados me los vuelve a activar.
agregue al código el identificador $group(#mod^ascii).status y cuando lo hago con los colores activos me arroja este error: ••• ON comando desconocido.
y al hacerlo con el adorno desactivado me arroja esto: ••• OFF comando desconocido.
sera que tiene que ir en una determinada posicion este identificador dentro del codigo ??
a continuacion pego el codigo completo para que lo chequees :
;IRcap8 02da1fcd55724f27cc185f4508b8fcd6
alias mt {
if ( $remove($1-,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(32),0,1,2,3,4,5,6,7,8,9,#,',+,=,°,:,!,?,.,/,\;$chr(40),$chr(41),%,-,[,]) !== $null ) {
echo -a ¤¤¤ Caractére(s) non supporté(s) par cet addon ( $remove($1-,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(32),0,1,2,3,4,5,6,7,8,9,#,',+,=,°,:,!,?,.,/,\;$chr(40),$chr(41),%,-,[,]) )
halt
}
$group(#mod^ascii).status
disable #mod^ascii
set %mt $1-
set %mt2 $1-
set %mt3 $1-
set %mt4 $1-
set %mt5 $1-
%mt = $replace(%mt,9, )
%mt = $replace(%mt,7, )
%mt = $replace(%mt,6, )
%mt = $replace(%mt,5, )
%mt = $replace(%mt,4, )
%mt = $replace(%mt,3, )
%mt = $replace(%mt,2, )
%mt = $replace(%mt,1, )
%mt = $replace(%mt,], )
%mt = $replace(%mt,q, )
%mt = $replace(%mt,l, )
%mt = $replace(%mt,r, )
%mt = $replace(%mt,a, )
%mt = $replace(%mt,s, )
%mt = $replace(%mt,e, )
%mt = $replace(%mt,[, )
%mt = $replace(%mt,j, )
%mt = $replace(%mt,m, )
%mt = $replace(%mt,$chr(32), )
%mt = $replace(%mt,i, )
%mt = $replace(%mt,o, )
%mt = $replace(%mt,u, )
%mt = $replace(%mt,!, )
%mt = $replace(%mt,b, )
%mt = $replace(%mt,n, )
%mt = $replace(%mt,?, )
%mt = $replace(%mt,$chr(35), )
%mt = $replace(%mt,t, )
%mt = $replace(%mt,g, )
%mt = $replace(%mt,c, )
%mt = $replace(%mt,p, )
%mt = $replace(%mt,w, )
%mt = $replace(%mt,z, )
%mt = $replace(%mt,8, )
%mt = $replace(%mt,0, )
%mt = $replace(%mt,k, )
%mt = $replace(%mt,y, )
%mt = $replace(%mt,', )
%mt = $replace(%mt,+, )
%mt = $replace(%mt,=, )
%mt = $replace(%mt,-, )
%mt = $replace(%mt,$chr(40), )
%mt = $replace(%mt,$chr(41), )
%mt = $replace(%mt,:, )
%mt = $replace(%mt,., )
%mt = $replace(%mt,/, )
%mt = $replace(%mt,\, )
%mt = $replace(%mt,%, )
%mt = $replace(%mt,h, )
%mt = $replace(%mt,f, )
%mt = $replace(%mt,v, )
%mt = $replace(%mt,°, )
%mt = $replace(%mt,d, )
%mt = $replace(%mt,x, )
say %mt
mt2
}
alias mt2 {
%mt2 = $replace(%mt2,9, )
%mt2 = $replace(%mt2,7, )
%mt2 = $replace(%mt2,6, )
%mt2 = $replace(%mt2,5, )
%mt2 = $replace(%mt2,4, )
%mt2 = $replace(%mt2,3, )
%mt2 = $replace(%mt2,2, )
%mt2 = $replace(%mt2,1, )
%mt2 = $replace(%mt2,q, )
%mt2 = $replace(%mt2,l, )
%mt2 = $replace(%mt2,r, )
%mt2 = $replace(%mt2,a, )
%mt2 = $replace(%mt2,m, )
%mt2 = $replace(%mt2,s, )
%mt2 = $replace(%mt2,e, )
%mt2 = $replace(%mt2,[, )
%mt2 = $replace(%mt2,j, )
%mt2 = $replace(%mt2,$chr(32), )
%mt2 = $replace(%mt2,i, )
%mt2 = $replace(%mt2,o, )
%mt2 = $replace(%mt2,u, )
%mt2 = $replace(%mt2,!, )
%mt2 = $replace(%mt2,b, )
%mt2 = $replace(%mt2,n, )
%mt2 = $replace(%mt2,?, )
%mt2 = $replace(%mt2,$chr(35), )
%mt2 = $replace(%mt2,t, )
%mt2 = $replace(%mt2,g, )
%mt2 = $replace(%mt2,c, )
%mt2 = $replace(%mt2,p, )
%mt2 = $replace(%mt2,w, )
%mt2 = $replace(%mt2,z, )
%mt2 = $replace(%mt2,8, )
%mt2 = $replace(%mt2,0, )
%mt2 = $replace(%mt2,k, )
%mt2 = $replace(%mt2,y, )
%mt2 = $replace(%mt2,', )
%mt2 = $replace(%mt2,+, )
%mt2 = $replace(%mt2,-, )
%mt2 = $replace(%mt2,=, )
%mt2 = $replace(%mt2,$chr(40), )
%mt2 = $replace(%mt2,$chr(41), )
%mt2 = $replace(%mt2,:, )
%mt2 = $replace(%mt2,., )
%mt2 = $replace(%mt2,/, )
%mt2 = $replace(%mt2,\, )
%mt2 = $replace(%mt2,%, )
%mt2 = $replace(%mt2,h, )
%mt2 = $replace(%mt2,f, )
%mt2 = $replace(%mt2,v, )
%mt2 = $replace(%mt2,°, )
%mt2 = $replace(%mt2,d, )
%mt2 = $replace(%mt2,x, )
%mt2 = $replace(%mt2,], )
say %mt2
mt3
}
alias mt3 {
%mt3 = $replace(%mt3,9, )
%mt3 = $replace(%mt3,7, )
%mt3 = $replace(%mt3,6, )
%mt3 = $replace(%mt3,5, )
%mt3 = $replace(%mt3,4, )
%mt3 = $replace(%mt3,3, )
%mt3 = $replace(%mt3,2, )
%mt3 = $replace(%mt3,1, )
%mt3 = $replace(%mt3,], )
%mt3 = $replace(%mt3,q, )
%mt3 = $replace(%mt3,l, )
%mt3 = $replace(%mt3,r, )
%mt3 = $replace(%mt3,a, )
%mt3 = $replace(%mt3,m, )
%mt3 = $replace(%mt3,s, )
%mt3 = $replace(%mt3,e, )
%mt3 = $replace(%mt3,j, )
%mt3 = $replace(%mt3,$chr(32), )
%mt3 = $replace(%mt3,i, )
%mt3 = $replace(%mt3,o, )
%mt3 = $replace(%mt3,u, )
%mt3 = $replace(%mt3,!, )
%mt3 = $replace(%mt3,b, )
%mt3 = $replace(%mt3,n, )
%mt3 = $replace(%mt3,?, )
%mt3 = $replace(%mt3,$chr(35), )
%mt3 = $replace(%mt3,t, )
%mt3 = $replace(%mt3,g, )
%mt3 = $replace(%mt3,c, )
%mt3 = $replace(%mt3,p, )
%mt3 = $replace(%mt3,w, )
%mt3 = $replace(%mt3,z, )
%mt3 = $replace(%mt3,8, )
%mt3 = $replace(%mt3,0, )
%mt3 = $replace(%mt3,k, )
%mt3 = $replace(%mt3,y, )
%mt3 = $replace(%mt3,', )
%mt3 = $replace(%mt3,+, )
%mt3 = $replace(%mt3,-, )
%mt3 = $replace(%mt3,=, )
%mt3 = $replace(%mt3,$chr(40), )
%mt3 = $replace(%mt3,$chr(41), )
%mt3 = $replace(%mt3,:, )
%mt3 = $replace(%mt3,., )
%mt3 = $replace(%mt3,/, )
%mt3 = $replace(%mt3,\, )
%mt3 = $replace(%mt3,%, )
%mt3 = $replace(%mt3,h, )
%mt3 = $replace(%mt3,f, )
%mt3 = $replace(%mt3,v, )
%mt3 = $replace(%mt3,°, )
%mt3 = $replace(%mt3,d, )
%mt3 = $replace(%mt3,x, )
%mt3 = $replace(%mt3,[, )
say %mt3
mt4
}
alias mt4 {
%mt4 = $replace(%mt4,9, )
%mt4 = $replace(%mt4,7, )
%mt4 = $replace(%mt4,6, )
%mt4 = $replace(%mt4,5, )
%mt4 = $replace(%mt4,4, )
%mt4 = $replace(%mt4,3, )
%mt4 = $replace(%mt4,2, )
%mt4 = $replace(%mt4,1, )
%mt4 = $replace(%mt4,q, )
%mt4 = $replace(%mt4,l, )
%mt4 = $replace(%mt4,r, )
%mt4 = $replace(%mt4,a, )
%mt4 = $replace(%mt4,s, )
%mt4 = $replace(%mt4,e, )
%mt4 = $replace(%mt4,j, )
%mt4 = $replace(%mt4,m, )
%mt4 = $replace(%mt4,$chr(32), )
%mt4 = $replace(%mt4,i, )
%mt4 = $replace(%mt4,o, )
%mt4 = $replace(%mt4,u, )
%mt4 = $replace(%mt4,!, )
%mt4 = $replace(%mt4,b, )
%mt4 = $replace(%mt4,n, )
%mt4 = $replace(%mt4,?, )
%mt4 = $replace(%mt4,$chr(35), )
%mt4 = $replace(%mt4,t, )
%mt4 = $replace(%mt4,g, )
%mt4 = $replace(%mt4,c, )
%mt4 = $replace(%mt4,p, )
%mt4 = $replace(%mt4,w, )
%mt4 = $replace(%mt4,z, )
%mt4 = $replace(%mt4,8, )
%mt4 = $replace(%mt4,0, )
%mt4 = $replace(%mt4,k, )
%mt4 = $replace(%mt4,y, )
%mt4 = $replace(%mt4,', )
%mt4 = $replace(%mt4,+, )
%mt4 = $replace(%mt4,-, )
%mt4 = $replace(%mt4,=, )
%mt4 = $replace(%mt4,$chr(40), )
%mt4 = $replace(%mt4,$chr(41), )
%mt4 = $replace(%mt4,:, )
%mt4 = $replace(%mt4,., )
%mt4 = $replace(%mt4,/, )
%mt4 = $replace(%mt4,%, )
%mt4 = $replace(%mt4,\, )
%mt4 = $replace(%mt4,h, )
%mt4 = $replace(%mt4,f, )
%mt4 = $replace(%mt4,v, )
%mt4 = $replace(%mt4,°, )
%mt4 = $replace(%mt4,d, )
%mt4 = $replace(%mt4,x, )
%mt4 = $replace(%mt4,[, )
%mt4 = $replace(%mt4,], )
say %mt4
mt5
}
alias mt5 {
%mt5 = $replace(%mt5,9, )
%mt5 = $replace(%mt5,7, )
%mt5 = $replace(%mt5,6, )
%mt5 = $replace(%mt5,5, )
%mt5 = $replace(%mt5,4, )
%mt5 = $replace(%mt5,3, )
%mt5 = $replace(%mt5,2, )
%mt5 = $replace(%mt5,1, )
%mt5 = $replace(%mt5,q, )
%mt5 = $replace(%mt5,l, )
%mt5 = $replace(%mt5,r, )
%mt5 = $replace(%mt5,a, )
%mt5 = $replace(%mt5,s, )
%mt5 = $replace(%mt5,e, )
%mt5 = $replace(%mt5,[, )
%mt5 = $replace(%mt5,j, )
%mt5 = $replace(%mt5,m, )
%mt5 = $replace(%mt5,$chr(32), )
%mt5 = $replace(%mt5,i, )
%mt5 = $replace(%mt5,o, )
%mt5 = $replace(%mt5,u, )
%mt5 = $replace(%mt5,!, )
%mt5 = $replace(%mt5,b, )
%mt5 = $replace(%mt5,n, )
%mt5 = $replace(%mt5,?, )
%mt5 = $replace(%mt5,$chr(35), )
%mt5 = $replace(%mt5,t, )
%mt5 = $replace(%mt5,g, )
%mt5 = $replace(%mt5,c, )
%mt5 = $replace(%mt5,p, )
%mt5 = $replace(%mt5,w, )
%mt5 = $replace(%mt5,z, )
%mt5 = $replace(%mt5,8, )
%mt5 = $replace(%mt5,0, )
%mt5 = $replace(%mt5,k, )
%mt5 = $replace(%mt5,y, )
%mt5 = $replace(%mt5,', )
%mt5 = $replace(%mt5,+, )
%mt5 = $replace(%mt5,-, )
%mt5 = $replace(%mt5,=, )
%mt5 = $replace(%mt5,$chr(40), )
%mt5 = $replace(%mt5,$chr(41), )
%mt5 = $replace(%mt5,:, )
%mt5 = $replace(%mt5,/, )
%mt5 = $replace(%mt5,., )
%mt5 = $replace(%mt5,\, )
%mt5 = $replace(%mt5,%, )
%mt5 = $replace(%mt5,h, )
%mt5 = $replace(%mt5,f, )
%mt5 = $replace(%mt5,v, )
%mt5 = $replace(%mt5,°, )
%mt5 = $replace(%mt5,d, )
%mt5 = $replace(%mt5,x, )
%mt5 = $replace(%mt5,], )
say %mt5
unset %mt $1-
unset %mt2 $1-
unset %mt3 $1-
unset %mt4 $1-
unset %mt5 $1-
enable #mod^ascii
}
De antemano Nuevamente muchas gracias por tu valiosa ayuda
