Foro IRcap

Ayuda IRcap => Ayuda scripting IRcap => Mensaje iniciado por: ~Draco. en Abril 04, 2012, 11:21:16 pm

Título: Optimizar el siguiente script de respuesta a ciertas palabras.
Publicado por: ~Draco. en Abril 04, 2012, 11:21:16 pm
on *:TEXT:*:#:{
  if ( %hablar == $null ) { set %hablar 1 }
  else {
    inc %hablar
    if ( %hablar == 50 ) { $adorno($read(hablar.txt)) | set %hablar 1 }
  }
  if ( lol isin $1- ) {
    if ( %lol.cuenta == $null ) { set %lol.cuenta 1 }
    else {
    }      inc %lol.cuenta
    if ( %lol.cuenta == 5 ) { $adorno($read(lol.txt)) | set %lol.cuenta 1 }

  }
  if ( xD isin $1- ) {
    if ( %xd.cuenta == $null ) { set %xd.cuenta 1 }
    else {
      inc %xd.cuenta
      if ( %xd.cuenta == 5 ) { $adorno($read(xd.txt)) | set %xd.cuenta 1 }
    }
  }
  if ( lool isin $1- ) {
    if ( %lol.cuenta == $null ) { set %lol.cuenta 1 }
    else {
      inc %lol.cuenta
      if ( %lol.cuenta == 5 ) { $adorno($read(lol.txt)) | set %lol.cuenta 1 }
    }
  }
  if ( lmao isin $1- ) {
    if ( %lmao.cuenta == $null ) { set %lmao.cuenta 1 }
    else {
      inc %lmao.cuenta
      if ( %lmao.cuenta == 5 ) { $adorno($read(lmao.txt)) | set %lmao.cuenta 1 }
    }
  }
  if ( rofl isin $1- ) {
    if ( %rofl.cuenta == $null ) { set %rofl.cuenta 1 }
    else {
      inc %rofl.cuenta
      if ( %rofl.cuenta == 5 ) { $adorno($read(rofl.txt)) | set %rofl.cuenta 1 }
    }
  }
  if ( hola isin $1- ) {
    if ( %hola.cuenta == $null ) { set %hola.cuenta 1 }
    else {
      inc %hola.cuenta
      if ( %hola.cuenta == 5 ) { $adorno($read(hola.txt)) | set %hola.cuenta 1 }
    }
  }
  if ( adios isin $1- ) {
    if ( %adios.cuenta == $null ) { set %adios.cuenta 1 }
    else {
      inc %adios.cuenta
      if ( %adios.cuenta == 5 ) { $adorno($read(adios.txt)) | set %adios.cuenta 1 }
    }
  }
  if ( bye isin $1- ) {
    if ( %adios.cuenta == $null ) { set %adios.cuenta 1 }
    else {
      inc %adios.cuenta
      if ( %adios.cuenta == 5 ) { $adorno($read(adios.txt)) | set %adios.cuenta 1 }
    }
  }
}

El alias adorno es un simple adorno de colores. Algunas veces no funciona lo de las variables nose porque y la cuenta de estas aumenta a mas de cinco. Necesito ayuda para optimizarlo y para ver si pueden ayudarme con ese bug. Gracias de antemano
Título: Re:Optimizar el siguiente script de respuesta a ciertas palabras.
Publicado por: yosvani en Abril 28, 2019, 09:34:23 pm
HOLA NO HABRA A GUNO AN TI CLON
Título: Re:Optimizar el siguiente script de respuesta a ciertas palabras.
Publicado por: Cadaver en Mayo 06, 2019, 07:10:18 pm
La única que te puede aumentar a mas de 5 es porque tienes -> if ( %hablar == 50 )
Título: Re:Optimizar el siguiente script de respuesta a ciertas palabras.
Publicado por: Cadaver en Mayo 08, 2019, 07:08:25 pm
No me había percatado que tienes el "inc" antes del "if" y en el "if" solo checa si es igual a "5" prueba el siguiente código.

Código: [Seleccionar]
on *:TEXT:*:#:{
  if ( %hablar == $null ) { set %hablar 1 }
  else {
    inc %hablar
    if ( %hablar > 50 ) { set %hablar 1 }
    if ( %hablar = 50 ) { $adorno($read(hablar.txt)) }
  }
  if ( lol isin $1- ) {
    if ( %lol.cuenta == $null ) { set %lol.cuenta 1 }
    else {
    }
    inc %lol.cuenta
    if ( %lol.cuenta > 5 ) { set %lol.cuenta 1 }
    if ( %lol.cuenta = 5 ) { $adorno($read(lol.txt)) }
  }
  if ( xD isin $1- ) {
    if ( %xd.cuenta == $null ) { set %xd.cuenta 1 }
    else {
      inc %xd.cuenta
      if ( %xd.cuenta > 5 ) { set %xd.cuenta 1 }
      if ( %xd.cuenta = 5 ) { $adorno($read(xd.txt)) }
    }
  }
  if ( lool isin $1- ) {
    if ( %lol.cuenta == $null ) { set %lol.cuenta 1 }
    else {
      inc %lol.cuenta
      if ( %lol.cuenta > 5 ) { set %lol.cuenta 1 }
      if ( %lol.cuenta = 5 ) { $adorno($read(lol.txt)) }
    }
  }
  if ( lmao isin $1- ) {
    if ( %lmao.cuenta == $null ) { set %lmao.cuenta 1 }
    else {
      inc %lmao.cuenta
      if ( %lmao.cuenta > 5 ) { set %lmao.cuenta 1 }
      if ( %lmao.cuenta = 5 ) { $adorno($read(lmao.txt)) }
    }
  }
  if ( rofl isin $1- ) {
    if ( %rofl.cuenta == $null ) { set %rofl.cuenta 1 }
    else {
      inc %rofl.cuenta
      if ( %rofl.cuenta > 5 ) { set %rofl.cuenta 1 }
      if ( %rofl.cuenta = 5 ) { $adorno($read(rofl.txt)) }
    }
  }
  if ( hola isin $1- ) {
    if ( %hola.cuenta == $null ) { set %hola.cuenta 1 }
    else {
      inc %hola.cuenta
      if ( %hola.cuenta > 5 ) { set %hola.cuenta 1 }
      if ( %hola.cuenta = 5 ) { $adorno($read(hola.txt)) }
    }
  }
  if ( adios isin $1- ) {
    if ( %adios.cuenta == $null ) { set %adios.cuenta 1 }
    else {
      inc %adios.cuenta
      if ( %adios.cuenta > 5 ) { set %adios.cuenta 1 }
      if ( %adios.cuenta = 5 ) { $adorno($read(adios.txt)) }
    }
  }
  if ( bye isin $1- ) {
    if ( %adios.cuenta == $null ) { set %adios.cuenta 1 }
    else {
      inc %adios.cuenta
      if ( %adios.cuenta > 5 ) { set %adios.cuenta 1 }
      if ( %adios.cuenta = 5 ) { $adorno($read(adios.txt)) }
    }
  }
}