Autor Tema: ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo  (Leído 2513 veces)

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

MaRkoS2

  • Visitante
quiero saber como terminar ese codigo es para mi bot per le falta la mayoria se los agradeceria si me lo terminan de ante nada gracias por su ayuda.
Código: [Seleccionar]
on *:text:*:%config.canal: {
  if ($1 == !solicitar.radio) {
    if ($2 == $null) { msg $chan $logo  Sintaxis Incorrecta. Escribe 4 $pref $+ solicitar.darkgon #Tucanal.  | halt }
    if (%solicita.canal != $null) { msg $chan $logo Hay otra petición en curso. Por favor, vuelve a intentarlo en unos segundos. | halt }
    %solicita.iD = on
    %solicita.nick = $nick
    %solicita.canal = $2
    /ignore $nick
  }
}
on *:text:*:?: {
  if ($nick == CHaN) {
    if (%solicita.iD == on) {
      if ($1 == Estado:) || ($1 == Fundador:) || ($1 == Sucesor:) {
        writeini D:\DaRkGoN\ $+ $network temporal.bd %solicita.canal $gettok($1,1,58) $2-
        .timerchan 1 5 /solicita.continuar estado
      }
      if ($1 == El) {
        .timer 1 5 /solicita.continuar noreg
        writeini D:\DaRkGoN\ $+ $network temporal.bd %solicita.canal Estado NOREG
      }
    }
  }
}
Alias solicita.continuar {
  If (%solicita.iD != on) { halt }
  If ($1 == estado) {
    If ($read(D:\DaRkGoN $+ $network temporal.bd,%solicita.canal,estado) == Suspendido) {
      Msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 4Suspendido1.
      Pet.denegada
    }
  }
}

Desconectado Randy

  • Miembro de pleno derecho
  • ***
  • Mensajes: 128
  • Karma: +14/-21
  • Sexo: Masculino
  • MSL - Servicios de ayuda al Usuario
    • ICSVE - Internet And Computer Services
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #1 en: Enero 26, 2014, 10:20:56 pm »



Tiene demasiados errores, sugiero que revises el codigo, termines el alias pe.denegado, cambies D:\Darkgon por $mircdir,
 cambiar el de no registrado, etc.

En fin, a la proxima vez esfuerzate mas para que no sea tan inutil tu ayuda ya que tienes intenciones de aportar.

Suerte :)

Agradecer y aplaudir no cuesta nada, y vale mucho para nosotros.

MaRkoS2

  • Visitante
Re:voy a intentar
« Respuesta #2 en: Enero 28, 2014, 07:55:17 am »
 eso pero le falta la mitad del codigo y no entiendo como va la cosa ya que estoy aprendiendo eso pero el codigo quisiera que me lo completen espero no molestar y gracias Randy por el consejo

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 238
  • Karma: +10/-24
    • IrcBots
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #3 en: Febrero 04, 2014, 02:06:20 am »
De donde sacaste el código original, viene completo y sin errores
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

MaRkoS2

  • Visitante
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #4 en: Febrero 12, 2014, 02:10:36 pm »
stig me lo paso danny el root de radionatural pero no asi le cambie algunas cosas el codigo no esta completo y por eso pedi que me ayudaran a terminarlo no se si alguie sabe de ese tipo de configuracion.

Desconectado Randy

  • Miembro de pleno derecho
  • ***
  • Mensajes: 128
  • Karma: +14/-21
  • Sexo: Masculino
  • MSL - Servicios de ayuda al Usuario
    • ICSVE - Internet And Computer Services
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #5 en: Febrero 15, 2014, 12:16:52 am »
Con razón estâ a medias xDD

Agradecer y aplaudir no cuesta nada, y vale mucho para nosotros.

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 238
  • Karma: +10/-24
    • IrcBots
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #6 en: Febrero 18, 2014, 12:29:46 am »
De donde sacaste el código original, viene completo y sin errores

Repito lo mismo
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

MaRkoS2

  • Visitante
bueno aca dejo el codigo tal como me lo pasaron
« Respuesta #7 en: Febrero 20, 2014, 05:04:21 pm »
pero le falta parte del codigo

Código: [Seleccionar]
on *:text:*:%config.canal: {
  if ($strip($1) == $+($pref,solicitar.radio)) {
    if ($2 == $null) || ($left($2,1) != $chr(35)) { msg $chan $logo  Sintaxis Incorrecta. Escribe 4 $pref $+ solicitar.radio #Tucanal.  | halt }
    if (%solicita.canal != $null) { msg $chan $logo Hay otra petición en curso. Por favor, vuelve a intentarlo en unos segundos. | halt }
    %solicita.iD = on
    %solicita.nick = $nick
    %solicita.canal = $2
    /ignore $nick
  }
}
on *:text:*:?: {
  if ($nick == CHaN) {
    if (%solicita.iD == on) {
      if ($1 == Estado:) || ($1 == Fundador:) || ($1 == Sucesor:) {
        writeini Sistema\db\ $+ $network
        $+ \Canales\temporal.bd %solicita.canal $gettok($1,1,58) $2- .timerchan 1 5 /solicita.continuar estado
      }
      if ($1 == El) {
        .timer 1 5 /solicita.continuar noreg
        writeini Sistema\db\ $+ $network $+ \Canales\temporal.bd %solicita.canal Estado NOREG
      }
    }   
  }
}
Alias solicita.continuar {
  If (%solicita.iD != on) { halt }
  If ($1 == estado) {
    If ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,estado) == Suspendido) {
      Msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 4Suspendido1.
      Pet.denegada
    }
  }
}

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 238
  • Karma: +10/-24
    • IrcBots
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #8 en: Febrero 27, 2014, 02:21:07 am »
Como ya te dije, donde esta el original esta completo. Si a ese le falta parte del código ¿que quieres que haga? Pidelo completo, haz uno de cero, o haz las partes que faltan. Simple.
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

DaNnY

  • Visitante
Re:ayuda para hacer un codigo !solicitar.bot #canal dejo parte del codigo
« Respuesta #9 en: Enero 15, 2019, 09:53:14 am »
on *:text:*:%config.canal: {
  if ($strip($1) == $+($pref(rn),solicitar.radio)) {
    if ($2 == $null) || ($left($2,1) != $chr(35)) { msg $chan $logo  Sintaxis Incorrecta. Escribe 4 $pref $+ solicitar.radio #Tucanal.  | halt }
    if (%solicita.canal != $null) { msg $chan $logo Hay otra petición en curso. Por favor, vuelve a intentarlo en unos segundos. | halt }
    %solicita.iD = on
    %solicita.nick = $nick
    %solicita.canal = $2
    ignore $nick
    .msg $chan $logo Espere un momento por favor, estamos procesando su solicitud para el canal 4[1 $2 4]
    .msg %config.debug Solicitudes: 12 $nick  Solicita a 10 $me  para la Sala 4 $2 
    .msg CHaN info $2
    .timer 1 30 ignore -r $nick
    .timer 1 31 msg %config.canal $logo Comando !Solicita* Liberado.
  }
}
on *:text:*:?: {
  if ($nick == CHaN) {
    if (%solicita.iD == on) {
      if ($1 == Estado:) || ($1 == Fundador:) || ($1 == Sucesor:) {
        writeini Sistema\db\ $+ $network $+ \Canales\temporal.bd %solicita.canal $gettok($1,1,58) $2-
        .timerchan 1 5 solicita.continuar estado
      }
      if ($1 == El) {
        .timer 1 5 solicita.continuar noreg
        writeini Sistema\db\ $+ $network $+ \Canales\temporal.bd %solicita.canal Estado NOREG
      }
    }
  }
}
alias solicita.continuar {
  if (%solicita.iD != on) { halt }
  if ($1 == estado) {
    if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,estado) == Suspendido) {
      msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 4Suspendido1.
      pet.denegada
    }
    else {
      msg %config.debug 3YeaH! 1El canal 4[1 $+ %solicita.canal $+ 4]1 esta 3Activo1.
      .timer 1 3 /solicita.continuar fundsuc
    }
  }
  if ($1 == fundsuc) {
    if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) != %solicita.nick) && ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != %solicita.nick) {
      msg %config.debug 4Error! 1 $+ %solicita.nick $+ 4 NO1 es ni Fundador (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) $+ 1) $iif($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != $null,1ni Sucesor (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) $+ 1) del canal 4 $+ %solicita.canal $+ 1,del canal 6 $+ %solicita.canal $+ 1)
      pet.denegada
    }
    else {
      if ($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) == %solicita.nick) {
        msg %config.debug  3YeaH! 1 $+ %solicita.nick $+ 1 es Fundador de 4 $+ %solicita.canal $+ 1.
        join -n %solicita.canal
      }
      else {
        msg %config.debug3YeaH! 1 $+ %solicita.nick $+ 1 es Sucesor de 4 $+ %solicita.canal $+ 1.
        join -n %solicita.canal
      }
    }
  }
  if ($1 == noreg) {
    msg %config.debug 4Error! 1El canal 4[1 $+ %solicita.canal $+ 4] NO1 está registrado.
    pet.denegada
  }
  if ($1 == users) {
    if ($nick(%solicita.canal,0) < 5) {
      msg %config.debug 4Error! 4[1 $+ %solicita.canal $+ 4] 1tiene $nick(%solicita.canal,0) Usuarios.
      pet.denegada
      halt
    }
    msg %config.debug 3YeaH! 4[1 $+ %solicita.canal $+ 4] 1tiene $nick(%solicita.canal,0) Usuarios.
    pet.aceptada
  }
}
alias pet.denegada {
  if ($me ison %solicita.canal) { part %solicita.canal $logo  4Error! 1Petición 4Denegada1. Más Información: %config.canal o entra en nuestra pagina web http://www.radionatural.es/ }
  msg %config.debug 4Error! 1Petición de 4[1 $+ %solicita.canal $+ 4] Denegada1.
  msg %config.canal 4Error! 1 $+ %solicita.nick $+ 4 NO1 eres ni el Fundador (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,fundador) $+ 1) $iif($readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) != $null,1ni el Successor (4 $+ $readini(Sistema\db\ $+ $network $+ \Canales\temporal.bd,%solicita.canal,sucesor) $+ 1) del canal 4 $+ %solicita.canal $+ 1,del canal 6 $+ %solicita.canal $+ 1)
  msg %config.canal %solicita.nick $+ , Tu petición ha sido 4Denegada1. Por 4NO1 cumplir los Requisitos Minimos.
  unset %solicita.*
  halt
}
alias pet.aceptada {
  part %solicita.canal $logo 3YeaH! 1Petición 3Aceptada1. En Breves Entrará el Bot.
  msg %config.canal %solicita.nick $+ , Tu petición ha sido 3Aceptada1. El canal 3SI1 cumple con los Requisitos Minimos. En un plazo máximo de 24h entrará el Bot.
  if ($read(Sistema\db\ $+ $network $+ \Canales\Canales.bd, w, %solicita.canal) != $null) { msg %config.debug Solicitudes: La Sala 12 %solicita.canal  ya esta en la 1BDD | halt }
  write Sistema\db\ $+ $network $+ \Canales\Canales.bd %solicita.canal
  write Sistema\db\ $+ $network $+ \Canales\autojoin.bd join %solicita.canal
  write Sistema\db\ $+ $network $+ \Perfiles\Administracion\ $+ $nick $+ .bd LOG $date - $timestamp aceptada sala %solicita.canal
  set %x $rand(1,3)
  elseif (%x = 1) { set %xx MaRiaN }
  elseif (%x = 2) { set %xx KiKeKu }
  elseif (%x = 3) { set %xx DaNnY }
  write -l1 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd %solicita.nick
  write -l2 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd ACEPTADO
  write -l3 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd %xx
  write -l4 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd Automatico
  write -l5 Sistema\db\ $+ $network $+ \Canales\ $+ Canal_ $+ %solicita.canal $+ .bd $date $timestamp     
  msg %config.debug 3YeaH! 1Petición de CANAL 12 %solicita.canal  3ACEPTADO Automaticamente  
  msg %config.debug 1Notificación: 10MeMo  Enviado 3Correctamente a la sala 12 %solicita.canal .
  msg %config.radio Sala 10 %solicita.canal  3Aceptada Automaticamente por el Sistema.  Salas Actuales en Base de Datos: 12 $lines(Sistema\db\ $+ $network $+ \Canales\Canales.bd) 
  join %solicita.canal
  msg %solicita.canal 1¡¡3Felicidades1!! 1 Sala 3ACEPTADA 1 por la Administración de $logo
  msg %solicita.canal 1Desde la Administración de $logo 1Queremos agradecer vuestro soporte a nuestro Equipo.
  msg %solicita.canal 
  timermemo 1 1 msg MeMo send %solicita.nick Su Sala ha sido Aceptada en nuestra Base de Datos. En caso de Dudas consulte nuestra Página Oficial: 12 http://www.radionatural.es/ 
  elseif (%xx = MaRiaN) { timermemo 1 35 msg MeMo send %solicita.nick La Administradora Asignada para atenderles es: 3 MaRiaN  Ella atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal   }
  elseif (%xx = KiKeKu) { timermemo 1 35 msg MeMo send %solicita.nick El Administrador Asignado para atenderles es: 3 KiKeKu  El atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal   }
  elseif (%xx = DaNnY) { timermemo 1 35 msg MeMo send %solicita.nick El Administrador Asignado para atenderles es: 3 DaNnY  El atenderá vuestras dudas/quejas relacionadas con $logo y sus servicios. Sala de Soporte: 12 %config.canal   }
  unset %solicita.id %solicita.canal %solicita.nick %x
  halt 
}
on *:join:*: {
  if ($nick == $me) {
    if (%solicita.iD == on) {
      if ($chan == %solicita.canal) { .timerjoin 1 6 /solicita.continuar users }
    }
  }
}

 

anything