Guest User

Untitled

a guest
Feb 20th, 2020
101
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ##################### Cervellone Tcl ###############################
  2. ############# Creato da RobotMan ###################################
  3. ##### Per informazioni scrivetemi a r0b0t@xoom.it ##################
  4. ####################################################################
  5.  
  6. bind pubm - "*regist*cana*" pub:regchan
  7. bind pubm - "*regist*sala*" pub:regchan
  8. bind pubm - "*cri*sala*" pub:regchan
  9. bind pubm - "*cri*cana*" pub:regchan
  10. bind pubm - "*regist*nick*" pub:regnick
  11. bind pubm - "*regist*nome*" pub:regnick
  12. bind pubm - "*vhost*" pub:vhost
  13. bind pubm - "*ocult*ip*" pub:vhost
  14. bind pubm - "*ban*" pub:ban
  15. bind pubm - "*expuls*" pub:ban
  16. bind pubm - "*entrar*" pub:join
  17. bind pubm - "*ent*can*" pub:join
  18. bind pubm - "*ent*sal*" pub:join
  19.  
  20. proc pub:regchan { nick uhost handle chan arg } {
  21. putserv "PRIVMSG $chan :$nick para registar um canal escreve o comando: /ChanServ register #CANAL DESCRICAO-DO-CANAL" }
  22.  
  23. proc pub:regnick { nick uhost handle chan arg } {
  24. putserv "PRIVMSG $chan :$nick para registar um nick escreve o comando: /NickServ register PASSWORD EMAIL" }
  25.  
  26. proc pub:vhost { nick uhost handle chan arg } {
  27. putserv "PRIVMSG $chan :$nick para definir uma vhost escreve o comando: /HostServ default" }
  28.  
  29. proc pub:join { nick uhost handle chan arg } {
  30. putserv "PRIVMSG $chan :$nick para entrar num canal escreve o comando: /Join #CANAL , em caso de ban, este tipicamente dura algumas horas ou dias." }
  31.  
  32. proc pub:ban { nick uhost handle chan arg } {
  33. 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." }
  34.  
  35. putlog "\002Cervellone Tcl\002 caricata con successo."
RAW Paste Data