Mute Ban

############
# Mute Ban #
############

# Trigger
set mtrig "@"

# Proc to obtain the trigger
proc getmtrig {} {
   global mtrig
   return $mtrig
}

# Define the IRCd type to be used.
# Available options are: unreal (UnrealIRCd), insp (InspIRCd), chary (Charybdis)
# Mute bans (aka quiet bans) are only set in the format nick!*@* or *!*@hostmask
set ircdtype "ircd-type"

bind pub - ${mtrig}muteban muteban

proc muteban {nick uhost hand chan text} {
   global ircdtype botnick

   set target "[lindex [split $text] 0]"

   if {![matchattr [nick2hand $nick] m] || ![isop $nick $chan]} {
      putserv "PRIVMSG $chan :Sorry, $nick, but you don't have access."
      return 0
   }

   if {$target eq ""} {
      putserv "PRIVMSG $chan :ERROR! Syntax: [getmtrig]muteban <nick>"
      return 0
   }

   if {$ircdtype eq "unreal"} {
      if {[onchan $target $chan]} {
         set hostmask "[maskhost [getchanhost $target $chan] 2]"
         pushmode $chan +b "~q:$hostmask"
      } else {
         pushmode $chan +b ${target}!*@*
      }
   } elseif {$ircdtype eq "insp"} {
      if {[onchan $target $chan]} {
         set hostmask "[maskhost [getchanhost $target $chan] 2]"
         pushmode $chan +b "m:$hostmask"
      } else {
         pushmode $chan +b ${target}!*@*
      }
   } elseif {$ircdtype eq "chary"} {
      if {[onchan $target $chan]} {
         set hostmask "[maskhost [getchanhost $target $chan] 2]"
         pushmode $chan +q $hostmask
      } else {
         pushmode $chan +q ${target}!*@*
      }
   }
}