##################### Cervellone Tcl ###############################
############# Creato da RobotMan ###################################
##### Per informazioni scrivetemi a r0b0t@xoom.it ##################
####################################################################

set idletime 30

bind pubm - "*regist*cana*" pub:regchan
bind pubm - "*regist*sala*" pub:regchan
bind pubm - "*cri*sala*" pub:regchan
bind pubm - "*cri*cana*" pub:regchan
bind pubm - "*regist*nick*" pub:regnick
bind pubm - "*regist*nome*" pub:regnick
bind pubm - "*vhost*" pub:vhost
bind pubm - "*ocult*ip*" pub:vhost
bind pubm - "*ban*" pub:ban
bind pubm - "*expuls*" pub:ban
bind pubm - "*entrar*" pub:join
bind pubm - "*ent*can*" pub:join
bind pubm - "*ent*sal*" pub:join

proc pub:regchan { nick uhost handle chan arg global idletime } {

if {[getchanidle $nick $chan] > $idletime && ![string match "*guest*" $arg]} { return 0 }

putserv "PRIVMSG $chan :$nick para registar um canal escreve o comando: /ChanServ register #CANAL DESCRICAO-DO-CANAL" }

proc pub:regnick { nick uhost handle chan arg global idletime } {

if {[getchanidle $nick $chan] > $idletime && ![string match "*guest*" $arg]} { return 0 }

putserv "PRIVMSG $chan :$nick para registar um nick escreve o comando: /NickServ register PASSWORD EMAIL" }

proc pub:vhost { nick uhost handle chan arg global idletime } {

if {[getchanidle $nick $chan] > $idletime && ![string match "*guest*" $arg]} { return 0 }

putserv "PRIVMSG $chan :$nick para definir uma vhost escreve o comando: /HostServ default" }

proc pub:join { nick uhost handle chan arg global idletime } {

if {[getchanidle $nick $chan] > $idletime && ![string match "*guest*" $arg]} { return 0 }

putserv "PRIVMSG $chan :$nick para entrar num canal escreve o comando: /Join #CANAL , em caso de ban, este tipicamente dura algumas horas ou dias." }

proc pub:ban { nick uhost handle chan arg global idletime } {

if {[getchanidle $nick $chan] > $idletime && ![string match "*guest*" $arg]} { return 0 }

putserv "PRIVMSG $chan :$nick Em caso algum poderemos resolver situações de ban (expulsão) de um canal. Os canais são geridos pelo seu fundador e operadores por si designados, funcionando de forma autónoma. Um ban dura tipicamente algumas horas ou dias." }



putlog "\002Cervellone Tcl\002 caricata con successo."