« anterior próximo »
Páginas: [1]   Ir Abajo

Autor Tema: Arreglar "Escritura gigante" en IRcap 7.51 + XP  (Leído 3214 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Eric

  • Novato
  • *
  • Mensajes: 11
  • Karma: +0/-0
  • Sexo: Masculino
    • Eric @ GeaNostrum
Arreglar "Escritura gigante" en IRcap 7.51 + XP
« 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]
« última modificación: Septiembre 17, 2008, 04:56:10 pm por Lokiyo »
En línea
No es la carne y la sangre, sino el corazón, lo que nos hace ser una Familia
         Eric

Desconectado Lokiyo

  • Administrador
  • Miembro Senior
  • *****
  • Mensajes: 462
  • Karma: +11/-0
  • Sexo: Masculino
    • El revoltijo de Lokiyo
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #1 en: Septiembre 03, 2008, 01:46:15 pm »
Estupendo Eric :)
Muy bueno el código ;)
En línea

Jon

  • Visitante
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #2 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.
En línea

Desconectado Red_Erik

  • Moderador Global
  • Miembro Senior
  • ****
  • Mensajes: 348
  • Karma: +10/-0
  • Sexo: Masculino
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #3 en: Septiembre 05, 2008, 02:47:42 pm »
Tienes que escribir /gg delante del texto que quieras ver en "gigante"

En línea

Desconectado Eric

  • Novato
  • *
  • Mensajes: 11
  • Karma: +0/-0
  • Sexo: Masculino
    • Eric @ GeaNostrum
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #4 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.
En línea
No es la carne y la sangre, sino el corazón, lo que nos hace ser una Familia
         Eric

Dj_NeST

  • Visitante
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #5 en: Septiembre 12, 2008, 05:52:51 pm »
Este codigo no furula bien Eric, miratelo bien porfavor
En línea

Jon

  • Visitante
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #6 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
En línea

Desconectado Red_Erik

  • Moderador Global
  • Miembro Senior
  • ****
  • Mensajes: 348
  • Karma: +10/-0
  • Sexo: Masculino
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #7 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.
En línea

Desconectado Lokiyo

  • Administrador
  • Miembro Senior
  • *****
  • Mensajes: 462
  • Karma: +11/-0
  • Sexo: Masculino
    • El revoltijo de Lokiyo
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #8 en: Septiembre 17, 2008, 04:56:26 pm »
He corregido el post original con el código nuevo.
En línea

Trocotronic

  • Visitante
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #9 en: Octubre 19, 2008, 11:16:48 pm »
No estaría de más que dijérais quién hizo este parche.
En línea

xrpix

  • Visitante
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #10 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
En línea

Desconectado Red_Erik

  • Moderador Global
  • Miembro Senior
  • ****
  • Mensajes: 348
  • Karma: +10/-0
  • Sexo: Masculino
Re: Arreglar "Escritura gigante" en IRcap 7.51 + XP
« Respuesta #11 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
« última modificación: Diciembre 30, 2008, 03:22:05 pm por Red_Erik »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

anything