Responder al mensaje

Advertencia: No se ha publicado ninguna respuesta a este tema desde hace 40 días como mínimo.
A menos que estés seguro de que quieres responder, por favor, considera el empezar un nuevo tema.

Nota: este mensaje no se mostrará hasta que sea aprobado por un moderador.

Nombre:
Email:
Asunto:
Icono del mensaje:

Verificación:
Escribe las letras mostradas en la imagen
Escuchar el texto / Solicitar otra imagen

Escribe las letras mostradas en la imagen:
¿Cuánto es uno más uno? (en letra y en minúscula):

teclas método abreviado (sólo IE y Mozilla): presiona alt+s para enviar formulario/publicar o alt+p para previsualizar


Sumario de Temas

Publicado por: Red_Erik
« en: Diciembre 30, 2008, 03:03:55 pm »

Fíjate en la linea:

%t = $read(s\irsys\ascii.ini,w,$+([,$asc($upper($mid($1-,%i,1))),]*))

Dentro de tu carpeta mirc tienes que crear una carpeta que se llame c y dentro otra que se llame irsys y colocar ahí el archivo ascii.ini

O bien suprimir el código de color azul, en todas las líneas donde haga referencia a esa ruta. (6 líneas en total).

Por otra parte, si añades el código en la sección Aliases es suficiente tal y como está, pero si lo añades en la sección Remotes como un archivo independiente debes añadir la instrucción alias delante del gg en el código. Así:

alias gg {

Y hacer un File -> save & exit
Publicado por: xrpix
« en: Diciembre 30, 2008, 01:28:20 am »

hola, sorry si hago reply luego de largo tiempo de inactivo el post pero eh tratado de encontrar el codigo y no lo eh logrado,


1ro, no tengo ircap, uso un mirc al que le coloco cosas que me interesan.

tengo el archivo ascii.ini en mi carpeta mirc, e ingrese el codigo que colocaron,

Código: [Seleccionar]
gg {
  var %i = 1, %ord1, %ord2, %ord3, %ord4, %ord5, %t
  while (%i <= $len($1-)) {
    %t = $read(s\irsys\ascii.ini,w,$+([,$asc($upper($mid($1-,%i,1))),]*))
    %ord1 = %ord1 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord2 = %ord2 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord3 = %ord3 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord4 = %ord4 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord5 = %ord5 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    inc %i
  }
  say %ord1 | say %ord2 | say %ord3 | say %ord4 | say %ord5
}

colo en mirc /gg hola
y no pasa nada, alguién puede ayudarme?


gracias
Publicado por: Trocotronic
« en: Octubre 19, 2008, 11:16:48 pm »

No estaría de más que dijérais quién hizo este parche.
Publicado por: Lokiyo
« en: Septiembre 17, 2008, 04:56:26 pm »

He corregido el post original con el código nuevo.
Publicado por: Red_Erik
« en: Septiembre 14, 2008, 05:50:37 pm »

Al que tiene razón hay que dársela, así que todos los que decían que el código no "furrulaba" estaban en lo cierto. Se trataba de un problema con el enrutamiento al fichero ascii.ini que queda solucionado con este código. Aparte he resumido un poco el código suprimiendo variables innecesarias. Lo he probado y funciona.

Código: [Seleccionar]
gg {
 var %i = 1, %ord1, %ord2, %ord3, %ord4, %ord5, %t
 while (%i <= $len($1-)) {
    %t = $read(s\irsys\ascii.ini,w,$+([,$asc($upper($mid($1-,%i,1))),]*))
    %ord1 = %ord1 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord2 = %ord2 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord3 = %ord3 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord4 = %ord4 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord5 = %ord5 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    inc %i
  }
  say %ord1 | say %ord2 | say %ord3 | say %ord4 | say %ord5
}

Hala, a disfrutar, futuros candidatos al ban perpetuo :P
¿Jon, te conozco? Un saludo para tí también.
Publicado por: Jon
« en: Septiembre 13, 2008, 11:18:01 am »

Hola a los Erik, (todo bien portugalujo?), lo de como activar el texto gigante ya sabía :)) y copiar el código también, por si acaso le he vuelto a repetir, pero no me funciona y parece que no es a mi solo por lo que le leo a Dj_Nest.
No tiene mucha importancia porque además es un ascii que  no te dejan usar en ningún canal.
 El motivo de que os escribiera era para  que  revisarais el código por si tenía algún error. Saludos
Publicado por: Dj_NeST
« en: Septiembre 12, 2008, 05:52:51 pm »

Este codigo no furula bien Eric, miratelo bien porfavor
Publicado por: Eric
« en: Septiembre 05, 2008, 02:57:56 pm »

Y asegúrate de q has cogido todo todo el código, q no te dejas nada.
Y q lo has sustituido, siguiendo exactamente los pasos q dije.
Publicado por: Red_Erik
« en: Septiembre 05, 2008, 02:47:42 pm »

Tienes que escribir /gg delante del texto que quieras ver en "gigante"

Publicado por: Jon
« en: Septiembre 05, 2008, 01:12:21 pm »

He sustituido la parte del  código  del script  de escritura gigante por la que has puesto aquí, pero no me funciona, no sale nada. Deduzco que algo falla en tu código o quizás yo soy muy torpe. :)). Tengo Ircap 7.51 y xp.
Publicado por: Lokiyo
« en: Septiembre 03, 2008, 01:46:15 pm »

Estupendo Eric :)
Muy bueno el código ;)
Publicado por: Eric
« en: Septiembre 03, 2008, 01:39:16 am »

Muy buenas.
Aún sigue estando la duda del arreglo de el texto gigante de IRcap 7.51 junto con XP, q falla.
Voy a intentar explicaros cómo arreglarlo:

en IRcap 7.51, teclead Alt + D, pulsad arriba View »› alias_ch.mrc.
Pulsáis ahora el botón Goto line, escribís 112 y le dais a OK. Veréis lo siguiente:

Código: [Seleccionar]
gg {
  set %ln $len($1-) | set %cln 1
  :L1
  if (%cln <= %ln) {
    set %chr $asc($upper($mid($1-,%cln,1)))
    %li1 = %li1 $+ $readini s\irsys\ascii.ini %chr n1
    %li2 = %li2 $+ $readini s\irsys\ascii.ini %chr n2
    %li3 = %li3 $+ $readini s\irsys\ascii.ini %chr n3
    %li4 = %li4 $+ $readini s\irsys\ascii.ini %chr n4
    %li5 = %li5 $+ $readini s\irsys\ascii.ini %chr n5
    inc %cln | goto L1
  }
  say %li1 | say %li2 | say %li3 | say %li4 | say %li5
  unset %li* %cln %ln %chr
}

El hecho de arreglarlo, es tan sencillo como reemplazar ese código por el siguiente:

Código: [Seleccionar]
gg {
 var %i = 1, %ord1, %ord2, %ord3, %ord4, %ord5, %t
 while (%i <= $len($1-)) {
    %t = $read(s\irsys\ascii.ini,w,$+([,$asc($upper($mid($1-,%i,1))),]*))
    %ord1 = %ord1 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord2 = %ord2 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord3 = %ord3 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord4 = %ord4 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    %ord5 = %ord5 $+ $gettok($read(s\irsys\ascii.ini,$calc(1+$readn)),2-,61)
    inc %i
  }
  say %ord1 | say %ord2 | say %ord3 | say %ord4 | say %ord5
}

Y... ya está :)
Si os queda alguna duda, ya sabéis.

[Lokiyo: corregido el código original]
anything