Advertisement
Guest User

Untitled

a guest
May 2nd, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.59 KB | None | 0 0
  1.      "tempban" {
  2.         set where [lindex $orden 2]; set target [lindex [split $orden] 3]; set tempban [lindex [split $orden] 1]; set reason [join [lrange [split $orden] 4 end]]
  3.         if {[isvoice $target $where] == 1} { set parm "-v+b $target $host"
  4.         } elseif {[isop $target $where] == 1} { set parm "-o+b $target $host"
  5.         } else { set parm "+b $nick" }
  6.         putquick "MODE $where $parm"
  7.         set timeban 2
  8.         set remban "$nick"
  9.         timer $timeban [list putquick "MODE $where -b $remban"]
  10.        
  11.         eGuard:debug "TEMPKICKBAN mode $where $parm timer $timeban [list putquick "MODE $where $remban"]"
  12.      }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement