Code:

########################################################################### mass.tcl by ShakE <shake@abv.bg>                         ############################################################################ Dobavq na bota funkcii ot roda: !mass <deop/op/voice/devoice> ############################################################################ Ako imate nqkakvi vaprosi, predlojenia ili kritiki posetete foruma na ## http://shake.hit.bg i pi6ete tam!                                      ################################################################################################# Ottuk nadolu ne butaite nishto! ###################bind pub n !mass pub_massproc pub_mass {nick uhost hand chan txt} { global botnick set $opc_cmd [lindex $txt 0] if {$opc_cmd == deop} {  putserv "notice $nick :Making mass deop in $chan..."  foreach muser [chanlist $chan] {   if {$muser != $botnick || ![matchattr $muser b] || [isop $muser $chan]} {   }  } } if {$opc_cmd == op} {  putserv "notice $nick :Making mass op in $chan..."  foreach muser [chanlist $chan] {   if {$muser != $botnick || ![matchattr $muser b] || ![isop $muser $chan]} {    putserv "mode $chan +o $muser"   }  } } if {$opc_cmd == voice} {  putserv "notice $nick :Making mass voice in $chan..."  foreach muser [chanlist $chan] {   if {$muser != $botnick || ![matchattr $muser b] || ![isvoice $muser $chan]} {    putserv "mode $chan +v $muser"   }  } } if {$opc_cmd == devoice} {  putserv "notice $nick :Making mass devoice in $chan..."  foreach muser [chanlist $chan] {   if {$muser != $botnick || ![matchattr $muser b] || ![isvoice $muser $chan]} {    putserv "mode $chan -v $muser"   }  } } if {$opc_cmd == ""} {  putserv "notice $nick :Syntax error: !mass <op/deop/voice/devoice>"  return 0 }}putlog "mass.tcl by ShakE (more tcls at http://shake.hit.bg)"