Ayuda IRcap > Ayuda scripting IRcap

Arreglar "Escritura gigante" en IRcap 7.51 + XP

(1/3) > >>

Eric:
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: ---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
}
--- Fin del código ---

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


--- Código: ---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
}
--- Fin del código ---

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

[Lokiyo: corregido el código original]

Lokiyo:
Estupendo Eric :)
Muy bueno el código ;)

Jon:
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.

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

Eric:
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.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

Responder

Ir a la versión completa