mass.tcl

Please Register to submit score.

Average Score	7.0
Scores Submitted	1
Date Added	Feb 13, 2008
Last Updated	Feb 17, 2008
Tags	mass mdeop mdevoice mop mvoice

Introduction

This is just a basic mass op/deop/voice/devoice script. (pub/msg)
This does not include a mass kick/ban function.

Grab the Code

##
# mass.tcl v1 - Get_A_Fix (ashnet/abjects/dalnet)
##

# $Id: mass.tcl,v1 13/02/2008 11:37:42am GMT +12 (NZST) getafix Exp $

#  - Script Info:
#  - This is just a basic mass op/deop/voice/devoice script. (pub/msg)
#  - This does not include a mass kick/ban function.

#  - Default trigger set to '.' (Free to edit)

#  - Syntax:
#  - Help (PUB):    .mass help
#  - Help (MSG):    /msg <botnick> mass <#channel> help
#  - On/Off (PUB):  .masscmd on/off 
#  - On/Off (MSG):  /msg <botnick> masscmd <#channel> on/off

#  - The above commands are restricted to global operator access.

#  - public:  .mop - .mdeop - .mvoice - .mdevoice (in channel)
#  - privmsg: /msg <botnick> <command> <#channel>

#  - example; /msg getafix mdeop #chat
#  - where 'getafix' is my bot.

#  - The above commands are restricted to global operator and
#  - channel master.

setudef flag masscmd

set pubtrig .

proc getTrigger {} {
  global pubtrig
  return $pubtrig
}

bind pub - ${pubtrig}mass mass:help:pub
proc mass:help:pub {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {

if {[lindex $text 0] == ""} {
        puthelp "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]mass help"
        return 0
      }

if {[lindex $text 0] == "help"} {
        putserv "PRIVMSG $chan :\002MassHelp\002 sent to $nick."
        putserv "NOTICE $nick :\002Public Cmds\002: [getTrigger]masscmd on/off - [getTrigger]mop - [getTrigger]mdeop - [getTrigger]mvoice - [getTrigger]mdevoice"
        putserv "NOTICE $nick :\002Message Cmds\002: /msg $botnick masscmd <#channel> on/off - /msg $botnick mop/mdeop/mvoice/mdevoice <#channel>"
        return 0
      }
    }
  }
}

bind msg - mass mass:help:msg
proc mass:help:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {

if {[lindex $arg 1] == ""} {
        putserv "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]mass help"
        return 0
      }

if {[lindex $arg 1] == "help"} {
        putserv "NOTICE $nick :\002MassHelp\002"
        putserv "NOTICE $nick :\002Public Cmds\002: [getTrigger]masscmd on/off - [getTrigger]mop - [getTrigger]mdeop - [getTrigger]mvoice - [getTrigger]mdevoice"
        putserv "NOTICE $nick :\002Message Cmds\002: /msg $botnick masscmd <#channel> on/off - /msg $botnick mop/mdeop/mvoice/mdevoice <#channel>"
        return 0
      }
    }
  }
}

bind pub - ${pubtrig}mop mop:proc
proc mop:proc {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      if {[string tolower $nick] != [string tolower $botnick]} {
        putserv "NOTICE $chan :MassOP requested by: $nick"
        foreach whom [chanlist $chan] {
          if {![isop $whom $chan]} {
            pushmode $chan +o $whom
          }
        }
        flushmode $chan
      }
    }
  }
}

bind msg - mop mop:msg
proc mop:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      putserv "NOTICE $chan :MassOP requested by: $nick"
      foreach whom [chanlist $chan] {
        if {[string tolower $nick] != [string tolower $botnick]} {
          if {![isop $whom $chan]} {
            pushmode $chan +o $whom
          }
        }
      }
    }
  }
}

bind pub - ${pubtrig}mdeop mdeop:proc
proc mdeop:proc {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      if {[string tolower $nick] != [string tolower $botnick]} {
        putserv "NOTICE $chan :MassDeop requested by: $nick"
        foreach whom [chanlist $chan] {
          if {[isop $whom $chan] && ![isbotnick $whom]} {
            pushmode $chan -o $whom
          }
        }
        flushmode $chan
      }
    }
  }
}

bind msg - mdeop mdeop:msg
proc mdeop:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      putserv "NOTICE $chan :MassDeop requested by: $nick"
      foreach whom [chanlist $chan] {
        if {[string tolower $nick] != [string tolower $botnick]} {
          if {[isop $whom $chan] && ![isbotnick $whom]} {
            pushmode $chan -o $whom
          }
        }
      }
    }
  }
}

bind pub - ${pubtrig}mvoice mvoice:proc
proc mvoice:proc {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      if {[string tolower $nick] != [string tolower $botnick]} {
        putserv "NOTICE $chan :MassVoice requested by: $nick"
        foreach whom [chanlist $chan] {
          if {![isvoice $whom $chan] && ![isop $whom $chan]} {
            pushmode $chan +v $whom
          }
        }
        flushmode $chan
      }
    }
  }
}

bind msg - mvoice mvoice:msg
proc mvoice:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      putserv "NOTICE $chan :MassVoice requested by: $nick"
      foreach whom [chanlist $chan] {
        if {[string tolower $nick] != [string tolower $botnick]} {
          if {![isop $whom $chan] && ![isvoice $whom $chan]} {
            pushmode $chan +v $whom
          }
        }
      }
    }
  }
}

bind pub - ${pubtrig}mdevoice mdevoice:proc
proc mdevoice:proc {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      if {[string tolower $nick] != [string tolower $botnick]} {
        putserv "NOTICE $chan :MassDevoice requested by: $nick"
        foreach whom [chanlist $chan] {
          if {[isvoice $whom $chan]} {
            pushmode $chan -v $whom
          }
        }
        flushmode $chan
      }
    }
  }
}

bind msg - mdevoice mdevoice:msg
proc mdevoice:msg {nick uhost hand arg} {
  global botnick
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o|m $chan]} {
    if {[lsearch -exact [channel info $chan] +masscmd] != -1} {
      putserv "NOTICE $chan :MassDevoice requested by: $nick"
      foreach whom [chanlist $chan] {
        if {[string tolower $nick] != [string tolower $botnick]} {
          if {[isvoice $whom $chan]} {
            pushmode $chan -v $whom
          }
        }
      }
    }
  }
}

bind pub - ${pubtrig}masscmd chanset:masscmd
proc chanset:masscmd {nick uhost hand chan text} {

if {[matchattr $hand o]} {

if {[lindex $text 0] == "on"} {
      channel set $chan +masscmd
      puthelp "PRIVMSG $chan :Enabled MassCMD for $chan"
    }

if {[lindex $text 0] == "off"} {
      channel set $chan -masscmd
      puthelp "PRIVMSG $chan :Disabled MassCMD for $chan"
    }
  }
}

bind msg - masscmd chanset:massmsg
proc chanset:massmsg {nick uhost hand arg} {
  global botnick

if {[matchattr $hand o]} {
    set chan [strlwr [lindex $arg 0]]

if {[lindex $arg 1] == "on"} {
      channel set $chan +masscmd
      putserv "NOTICE $nick :Enabled MassCMD for $chan"
    }

if {[lindex $arg 1] == "off"} {
      channel set $chan -masscmd
      putserv "NOTICE $nick :Disabled MassCMD for $chan"
    }
  }
}

putlog "mass.tcl .:Loaded:."

Comments

(6) RSS

Go to Bottom

mentalglitch

Comments: 27

TCL Snippet: mass.tcl
Posted on May 13, 2008 9:30 pm

ok.. so I've seen this error in many if not all of these scripts.. and isntead of explaining it all myself ive found an article you all can read..

http://www.peterre.info/characters.html

Get_A_Fix

Comments: 12

TCL Snippet: mass.tcl
Posted on May 30, 2008 4:57 am

what error?

jonesy44

Comments: 681

TCL Snippet: mass.tcl
Posted on May 30, 2008 12:39 pm

Uhh, sorry to be a tard, but wtf is tcl ?

mentalglitch

Comments: 27

TCL Snippet: mass.tcl
Posted on Jun 3, 2008 8:43 pm

lol TCL = tool command language and the 'error' is just using such things as "lindex, lrange, etc" without changing the arguments to a list '[split "arguments"]' then rejoining them later on by '[join "previous arguments"]' since lindex,lsearch,lrange,llength are commands FOR lists hence the l at the beginning of each command XD

mentalglitch

Comments: 27

TCL Snippet: mass.tcl
Posted on Jun 3, 2008 8:45 pm

mentalglitch

Comments: 27

TCL Snippet: mass.tcl
Posted on Jun 3, 2008 8:47 pm

er soz bout double post ^

mass.tcl

Introduction

Grab the Code

Comments

Get_A_Fix

My Snippet Tags

Contact

Sponsors


Last seen: May 26, 2008 Profile Snippets (5) Images (1) Comments Received (16) Comments Submitted (12) Forum Posts (7)