Mensajes recientes

Páginas: [1] 2 3 ... 10
1
Ayuda scripting IRcap / Ayuda Script de escritura
« Último mensaje por Purpura en Junio 15, 2022, 02:33:31 am »
Hola, buenos días.

Hace un par de años publiqué un remote, lo logré solucionar con ayuda pero perdí el código y olvidé cómo repararlo, quisiera saber si me pueden ayudar.

Lo que hace el código es colorear la primera y la última letra, ejemplo;

Purpura: Hola, espero estén bien
_____

El problema es que repite Nick Completion y el Corrector de Texto que trae IRcap no funciona, llevo prácticamente todo el día tratando pero olvidé mis conocimientos sobre Scripting. Acá dejo el código.


on *:signal:modoescritura: {
  var %a $iif($1 ison $active,$2-,$1-)
  if (%mi^frase) %mi^frase = 14 $+ $left($1,1) $+ 01 $+ $mid($1-,2,-1) $+ 14 $+ $right($1-,1))))
}

Espero puedan ayudarme, muchas gracias.
2
Ayuda general IRcap / como colocar un mirc en vps
« Último mensaje por lamasfeita en Mayo 27, 2022, 09:36:27 am »
Hola, alguien sabe como meter un mirc en vps y poder conectarlo a un servidor.
gracias
3
Ayuda general IRcap / Porque el entrar me manda directo a una sala que ya no entro?
« Último mensaje por cardenaz958 en Abril 15, 2022, 08:19:27 am »
aconesctarme me manda directo a una sala que no tengo en favoritos ni en conect ni nada ya la bore de hstoria y na alguien me dice donde veo eso
4
Ayuda IRC y otras cosas relacionadas / Re:como habilitar modo +q de canal en inspircd
« Último mensaje por francisco.8 en Abril 07, 2022, 10:56:29 pm »
La Estación Espacial Internacional y el Gran Colisionador de Hadrones también son administrados por Linux. Esto es irónico porque
si mira hacia atrás a la época en que nació Linux, descubrirá un contexto casi idéntico (ausente del
tecnologías aún por descubrir), pero sustituyendo UNIX (el sistema operativo que inspiró a Linus) por Linux. https://transpero.net/es/mejorenvo-alternativas/
5
Ayuda scripting IRcap / hola necesito una ayudita con el siguiente nick completion
« Último mensaje por marcelacarolina en Marzo 29, 2022, 03:54:45 pm »
hola necesito ayuds con este nick completion no soy muy buena en esto aver si me ayudan se los agradeceria mucho.


Código: [Seleccionar]
on *:signal:modoescritura: {
  if (%mi^frase) %mi^frase = $+(15,$mid($1,1,1),14 $+ $mid($1,1,1),1 $+ $mid($1,1,1),1,$mid($1-,2,$len($1-))),%e,
}
}

con ese codigo el nick completion queda algo asi:

Código: [Seleccionar]
LLLaChaCha
pero quisiera que quedara asi:

Código: [Seleccionar]
LLLaChaChaaaa
se repite dos veces la 1ra letra y dos veces la ultima letra al nombrar algun nick
por favor les estaria agradecida con su ayuda.
y el foro es muy bueno desde hace años que lo sigo.
6
no contesten todos a la vez que me desbordo
solo necesito que esta parte: set %addserv4 $$?="País del servidor. Ej: EE. UU., CANADÁ."  me acepte escribir : usuario/red:pass
los : no me lo copia y lo que escriba a continuación de ellos desaparece y cuando intento conectar me desconecta pass incorrecto
gracias nuevamente
7
buenas de nuevo a ver si alguna alma caritativa ayuda a resolver lo que me gustaría hacer.
me gustaría hacer: como agregar la conexión directa para que se conecte a una znc -m ip puerto admin/N.red:pass ya que solo pide nombre de los server redes puertos a ver si se le puede agregar admin/N.red:pass y se conecte directamente
gracias nuevamente

Código: [Seleccionar]
::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::

;Conexión
menu menubar,channel,status {
  Connect:conn
  -
}
alias conn {
  if ($dialog(connect) == $null) { dialog -m connect connect }
  else { .echo -a -Dialogo de Conexion Ejecutandose.. }
}
alias -l conn.load.net {
  if ($exists(servers) == $false) { mkdir servers | write -c servers\delete.txt DELETE }
  did -r $dname 101 | %g = 1
  while ($findfile(servers\,*.txt,%g)) {
    did -a $dname 101 $remove($nopath($findfile(servers\,*.txt,%g)),.txt)
    inc %g
  } 
  unset %g
}
alias -l conn.load.serv {
  did -r $dname 201 | %f =  servers\ $+ $did($dname,101,$did($dname,101).sel).text | %f = %f $+ .txt | %g = 2
  while ($read(%f,%g)) {
    did -a $dname 201 $gettok($read(%f,%g),1,58)
    inc %g
  }
}
alias -l conn.rand.ident {
  return $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
}
alias -l conn.info.serv {
  %kk = $1 $+ *
  %l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,%kk)
  did -a $dname 602 $gettok(%l,2,58)
  did -a $dname 604 $gettok(%l,4,58)
  did -a $dname 505 $mid($gettok(%l,3,58),1,4)
  did -a $dname 505 $mid($gettok(%l,3,58),6,4)
  did -a $dname 505 $mid($gettok(%l,3,58),11,4)
  did -a $dname 505 $mid($gettok(%l,3,58),16,4)
  did -a $dname 505 $mid($gettok(%l,3,58),21,4)
  did -a $dname 505 $mid($gettok(%l,3,58),26,6)
  did -a $dname 505 $mid($gettok(%l,3,58),31,4)
  did -c $dname 505 1 | unset %l %kk
}
alias -l conn.add.net {
  set %addred $$?="¿Nombre de red? Ej: Undernet"
  write servers\ $+ %addred $+ .txt  < $+ %addred $+ >
  conn.load.net | conn.load.serv
}
alias -l conn.add.serv {
  if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Seleccione la red a la que le gustaría agregar el servidor. | halt }
  set %addserv1 $$?="Agregar servidor desde: $did($dname,101,$did($dname,101).sel).text $+ . Ej: irc.undernet.org"
  set %addserv2 $$?="¿Nombre del servidor? Ej: Undernet"
  set %addserv3 $$?="¿Puertos?. Ej: 6667,6668"
  set %addserv4 $$?="País del servidor. Ej: EE. UU., CANADÁ."
  write servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt  %addserv2 $+ : $+ %addserv1 $+ : $+ %addserv3 $+ : $+ %addserv4
  unset  %addserv1 %addserv2 %addserv3 %addserv4 
  conn.load.serv
}
alias -l conn.rem.net {
  if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Seleccione la red que desea eliminar. | halt } 
  set %n $$?!="¿Está seguro de que desea eliminar $did($dname,101,$did($dname,101).sel).text de la lista?"
  if (%n) { .remove servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt | conn.load.net | conn.load.serv  }
  unset %n
}
alias -l conn.rem.serv {
  if (!$did($dname,201,$did($dname,201).sel).text) { echo -at Seleccione el servidor que desea eliminar de la lista. | halt }
  set %n $$?!="¿Estas seguro que quieres eliminar $did($dname,201,$did($dname,201).sel).texto de la lista?"
  if (%n) { 
    %l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,$did($dname,201,$did($dname,201).sel).text $+ *)
    write -dl $+ $readn servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt
    conn.load.serv
  }
  unset %n  %l
}
alias -l conn.save.con {
  .server $did($dname,602).text $did($dname,505).text
  set %conn.auto.serv $did($dname,602).text $did($dname,505).text
  set %conn.modes.me $did($dname,307)
  var %nick = $did($dname,301)
  var %anick = $did($dname,302)
  if (%nick && %nick != $me) .nick %nick
  elseif (!%nick) .nick Nick1
  if (%anick) .anick %anick
  else .anick Nick2
  set %conn.ident.sel $did($dname,303).state
  var %ident_a = $did($dname,305)
  var %ident_b = $did($dname,306)
  if (%conn.ident.sel) { .identd on $iif(%ident_a,$ifmatch,None) }
  else { .identd on $iif(%ident_b,$ifmatch,None) }
  set %conn.ident $iif(%ident_a,$ifmatch,None)
  echo -a ok
}

dialog connect {
  title "Centro de conexión"
  size -1 -1 410 170
  option dbu
;=====Red=====
  box "Red", 100, 2 2 75 122
  list 101, 4 10 71 100, size vsbar
  button "Agregra", 102, 5 110 28 12
  button "Borrar", 103, 40 110 28 12
;=====Servidores=====
  box "Servidores", 200, 80 2 75 122
  list 201, 82 10 71 100, size vsbar
  button "Agregar", 202, 83 110 28 12
  button "Borrar", 203, 115 110 28 12
;=====Nick=====
  box "", 300, 208 2 176 44
  text "Nick:", 2, 210 11 25 8, center
  edit "", 301, 236 10 48 10, autohs
  text "Otro nick", 4, 210 23 25 8, center
  edit "", 302, 236 22 48 10, autohs
  radio "Ident:", 303, 290 10 38 10
  radio "Al Azar:", 304, 290 22 44 10
  edit "", 305, 334 10 48 10, autohs
  edit "", 306, 334 22 48 10, read autohs
  text "Modos de conexión:", 10, 275 35 58 8,
  edit "", 307, 334 34 48 10, autohs
;=====Conectar=====
  box "", 400, 208 46 176 22
  button "Disconectar", 401, 210 53 37 12
  button "Conectar", 402, 278 53 37 12
  button "Cerrar", 403, 345 53 37 12, ok cancel
;=====Puertos=====
  box "", 500, 160 68 81 56
  check "Conectar al Inicio", 501, 162 73 50 10
  check "Abrir al Inicio", 502, 162 90 50 10
  text "Puertos:", 504, 162 111 20 8
  combo 505, 183 109 50 50, drop, size
;=====Servidor=====
  box "", 600, 250 68 150 56
  text "Servidor:", 601, 253 81 21 8
  edit "", 602, 275 80 120 10, read, center
  text "Pass:", 603, 253 104 25 8
  edit "", 604, 275 103 120 10, read, center
}
on *:dialog:connect:*:*: {
  if ($devent = init) {
    conn.load.net
    if ($server != $null) { did -a $dname 602 $server | did -a $dname 600 Connected }
    if (%conn.auto.start) { did -c $dname 501 }
    if (%conn.show.start) { did -c $dname 502 }
    if (%conn.ident.sel) { did -c $dname 303 } | else { did -c $dname 304 }
    did -a $dname 301 $me
    did -a $dname 302 $anick
    did -a $dname 305 %conn.ident
    did -a $dname 306 $conn.rand.ident
    did -a $dname 307 %conn.modes.me

  }
  if ($devent = sclick) {
    if ($did = 101) { did -r $dname 201 |  did -z $dname 101 | did -z $dname 201 | conn.load.serv $did($dname,101,$did($dname,101).sel).text }
    if ($did = 102) { conn.add.net }
    if ($did = 103) { conn.rem.net }
    if ($did = 201) { did -z $dname 101 |  did -z $dname 201 | did -r $dname 505 | did -r $dname 602 | did -r $dname 604 | conn.info.serv $did($dname,201,$did($dname,201).sel).text } 
    if ($did = 202) { conn.add.serv }
    if ($did = 203) { conn.rem.serv }
    if ($did = 304) {  did -r $dname 306 | did -a $dname 306 $conn.rand.ident }
    if ($did = 401) { disconnect }
    if ($did = 402) { conn.save.con }
    if ($did = 501) { set %conn.auto.start $did($dname,501).state }
    if ($did = 502) { set %conn.show.start $did($dname,502).state }
  }
  if ($devent = dclick) {
    if ($did = 201) { conn.save.con }
  }
}
on *:start: {
  if (%conn.show.start) { conn }
  if (%conn.auto.start) {
    .server %conn.auto.serv
  }
}
on *:connect:{
  if $dialog(connect) { did -ra connect 602 $server | did -a connect 600 Connected }
  .mode $me %conn.modes.me
}
8
hola buenas, intento hacer una lista de nick muy simple, me deja introducir, borrar los nick's pero desde que cierro la pantalla de dialogo y la vuelvo abrir ya no esta lo que puse. como seria para que se quedaran escritos y como editarlos por si tengo que modificarle algo.  habría forma de escribirlo y guardarlo en una txt 
muchas gracias,
 
Código: [Seleccionar]
menu  status,channel {
  Panel: if ($dialog(nicks).active != $false) { .dialog -m nicks nicks }
}
dialog nicks {
  title Nick's
  size -1 -1 200 103
  option dbu
  box "", 6, 3 3 140 98
  list 1, 7 8 134 97, vsbar
  button  "Añadir", 3, 145 5 50 15
  button  "Editar", 5, 145 25 50 15
  button  "Borrar", 4, 145 45 50 15
  button  "Guardar", 2, 145 65 50 15 ok
  }
on *:dialog:nicks:sclick:4:did -d nicks 1 $$did(nicks,1).sel | echo -s Nick Borrado
on *:dialog:nicks:sclick:3:did -a nicks 1 $$?="Nick Añadir" | echo -s  Nick Creado
9
Hola.

¡Muchísimas gracias!!!!!

PD: Ayer no te pude responder porque conecte por el móvil y no me acordaba de la contraseña xD
10
De nada.  ::)
Páginas: [1] 2 3 ... 10
anything