massslap

bind pub - .call massslap

proc massslap {nick uhost hand chan text args} {
if {([isop $nick $chan]) || ([ishalfop $nick $chan])} {
         set lista slaps
    foreach userraw [chanlist "$chan"] {
       set lista "${lista} $userraw"
 }
 if {$text != ""} {
    putserv "PRIVMSG $chan :\002\002 $lista \002"
    set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs {
 putserv "PRIVMSG $chan :\002\0,1 >>> 0,2 $msg 0,1 <<< \002"
after 1000 set end 1
vwait end
}
        } else { putserv "PRIVMSG $chan :\002\002 $lista \002"  }
 } else { putserv "PRIVMSG $chan :<$nick> Nemate dozvolu da koristite ovu komandu!" }
 }