Advertisement
Guest User

Untitled

a guest
Nov 21st, 2017
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.78 KB | None | 0 0
  1. bind pub nmo|nmo .usergreet usergreet_settings
  2. proc usergreet_settings {nick uhost hand chan text} {
  3.  set status [channel get $chan usergreet]
  4.  set mode [string tolower [lindex [split $text] 0]]
  5.  switch -- $mode {
  6.   "on" {
  7.    if {!$status} {
  8.     channel set $chan +usergreet
  9.     puthelp "PRIVMSG #protect :\002\0031,0 usergreet \003\002 - Script activado!"
  10.     putlog "usergreet script enabled (by $nick for $chan)"
  11.    } else {
  12.     puthelp "NOTICE $nick :usergreet ya esta activado"
  13.    }
  14.   }
  15.   "off" {
  16.    if {$status} {
  17.     channel set $chan -usergreet
  18.     puthelp "PRIVMSG $chan :\002\0031,0 usergreet \003\002 - Script desactivado"
  19.     putlog "usergreet script disabled (by $nick for $chan)"
  20.    } else {
  21.     puthelp "NOTICE $nick :usergreet ya esta desactivado"
  22.    }
  23.   }
  24.  }
  25. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement