Bautista.tcl

#------------------------------------------------------------#
#       Servicio de Ayuda Opers_help By ANAKIN^              #
#------------------------------------------------------------#

##AUTOR : ANAKIN^
##VERSION : 2.0
##EMAIL : residentevil-555@hotmail.com, anakin9404@hotmail.com
##SERVER : irc.chatzona.org
##URL : www.chateacongente.com

###############
# DESCRIPCIÓN #
###############
#Cuando un usuario entre al canal #opers_help el Bot(Bautista) le mandara privado solicitandole la ayuda que necesite,
#El usuario pondrá su duda en el privado del Bot y este lo notificara al canal #opers, donde un operador
#Vera si acepta la ayuda o lo deniega con el comando help estando en el canal #opers,
#Este servicio funciona en varios tipos de servidores irc como ircuh, unreal,
#DarKu etc.



### eventos del script  #######
bind pub  - "!ayudar" bautista:acepta
bind pub  - "!denegar" bautista:deniega
bind pub  - "!fin" bautista:fin
bind pub - !help help
#bind pub  - "!kick" do:kickreply


bind evnt - init-server evnt:init_server
bind join - * entrada:join
bind part - * salida:part
bind msgm - * acepta:help

set helpchan "#opers"
set advbantype "1"
set mainchan "#opers_help"


proc entrada:join {nick uhost handle chan} {
set opershelp "#opers"
 if {($chan != $opershelp)} {
        putserv "PRIVMSG #opers :4$nick 1Entra a 7#Opers_Help"
        putserv "PRIVMSG $nick :Hola, soy el roBOT encargado de ponerle en contacto con un 12OPERador 1para que solucione su duda. 1Por favor, ¿podría describirme en una sola línea brevemente el problema?"
  }
}


proc evnt:init_server {type} {
 global botnick
 putserv "SILENCE +$botnick"

 }


proc salida:part {nick uhost handle chan {msg ""}} {
set opershelp "#opers"
if {($chan != $opershelp)} {
        putserv "SILENCE -$nick"
        putserv "PRIVMSG #opers :4$nick 1SALE de 7#Opers_Help"
  }
}


proc acepta:help {nick uhost handle text} {
          global mainchan helpchan
          if {[onchan $nick $mainchan]} {
                 putserv "PRIVMSG $helpchan :1el usuario 4$nick 1tiene el siguiente problema: 3\[2 $text 3\]"
                putserv "PRIVMSG $nick :Por favor, espere unos segundos mientras le pongo en contacto con un 12OPERador 1para que trate de resolver su problema. "
                #putserv "SILENCE +$nick"
          } else {
                        putserv "PRIVMSG $nick :Para solicitar soporte por favor ingrese a 7#Opers_Help"
          }
  }


proc bautista:acepta {nick uhost handle chan text} {
global mainchan helpchan
 if {![onchan $text $mainchan]} {
      putserv "PRIVMSG #opers :El NiCK 3 $text 1Ni solicita Ni Precisa Asistencia!, 6ACEPTACIÓN Ilógica!"
      return
      }

 if {"$chan"=="$helpchan"} {
         putserv "PRIVMSG #opers :El 12OPERador 1$nick ha 3ACEPTADO 1la consulta del usuario 1 $text "
     putserv "PRIVMSG $text :Gracias por esperar, en breves momentos se pondrá en contacto con usted 1$nick para intentar solucionar su duda."
         putserv "PRIVMSG $text :Por favor, abandone el canal una vez haya sido atendido. Gracias."
         putserv "MODE #opers_help +v $text"

                  }
            }

proc bautista:deniega {nick uhost handle chan text} {
global mainchan helpchan
if {"$chan"=="$helpchan"} {
     putserv "PRIVMSG #opers :El 12OPERador 1$nick ha 4DENEGADO 1la consulta del usuario 1 $text "
     putserv "PRIVMSG $text :Lo sentimos, en estos momentos no se encuentra ningún 1OPERador disponible para solucionar su duda, inténtelo más tarde. Gracias."
         putserv "PRIVMSG $text :Disculpe las molestias."
             }
      }

proc bautista:fin {nick uhost handle chan text} {
set banmask "[advs:banmask $uhost $text]"
global mainchan helpchan
if {"$chan"=="$helpchan"} {
 putserv "MODE #opers_help -v $text"
 putserv "PRIVMSG #opers :El 12OPERador 1$nick ha 4FINALIZADO 1la consulta del usuario 1 $text "
utimer 20 [list putserv "MODE #opers_help +b $banmask"]
utimer 22 [list putserv "KICK #opers_help $text :1Debe abandonar el canal,gracias."]
  }
    }

proc help {nick uhost hand chan text} {
putquick "PRIVMSG #opers :3\[7Comandos de Bautista3\]"
putquick "PRIVMSG #opers :                              "
putquick "PRIVMSG #opers : 3Bautista 1Bot de Ayuda del Canal 7#Opers_Help1"
putquick "PRIVMSG #opers :                                      "
putquick "PRIVMSG #opers : 1Comandos básicos del bot 3Bautista:"
putquick "PRIVMSG #opers :4!Ayudar 12<Nick-Del-User12> 1- 1Atiende la consulta de un usuario del canal 7#Opers_Help1"
putquick "PRIVMSG #opers :4!Denegar 12<Nick-Del-User12> 1- 1Ignora la consulta de un usuario de 7#Opers_Help1"
putquick "PRIVMSG #opers :4!fin 12<Nick-Del-User12> 1- 1Finaliza la ayuda de un usuario en 7#Opers_Help1"
putquick "PRIVMSG #opers :                 "
putquick "PRIVMSG #opers :4Normas:1 NO flood a 3Bautista1, NO atender al mismo nick varios 12OPERadores1. 1NO expulsar a 3Bautista 1de ningún canal"
putquick "PRIVMSG #opers :4Normas:1 Canal Confidencial, lo que pasa en 4#Opers 1NO sale bajo ningún concepto de 4#Opers1. Si no cumple estas normas, será eliminado del staff de la red ZonaLatina. Gracias"
        }

proc advs:banmask {uhost nick} {
 global advbantype
  switch -- $advbantype {
   1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
   2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
   3 { set banmask "*!*$uhost" }
   4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
   5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
   6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
   7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
   8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
   9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
   default { set banmask "*!*@[lindex [split $uhost @] 1]" }
   return $banmask
  }
}