# Feb 21, 2020
#
# Computertech of mibbit and freenode - wants a silly command that will do a mute ban on mibbit, via a public command.
# for nick only, not the hostmask
#
#######
#
# This script is for use by Computech only. It is not to be given to, or shared with anyone.  If anyone wants to see it, tell them to ask me and
# I will probably do so.  I just want to be the one that decides that.   :)
#
#



# NOTE!!   In proc, checks to see if nick that called this proc, is op'd in chan
bind pub - "!mute" do_the_mute_ban
bind pub - "!unmute" do_the_unmute_ban


###
###
proc do_the_mute_ban {nick ushost handle chan text} {

	if {![llength [split $text]]} {
		putserv "privmsg $chan :Syntax: !mute <nick>"
		return 0
	}

	if {![botisop $chan]} {
		putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
		return 0
	}


	if {![isop $nick $chan]} {
		putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
		return 0
	}


	set nick2mute [lindex [split $text] 0 ]

	if {![onchan $nick2mute $chan]} {
		putserv "privmsg $chan :Sorry $nick, but I don't see $nick2mute on $chan right now"
		return 0
	}

	putserv "mode $chan +b ~q:$nick2mute!*@* "

	putserv "privmsg $chan :You Have Been Muted "


}
###
###


###
proc do_the_unmute_ban {nick uhost handle chan text} {


	if {![llength [split $text]]} {
		putserv "privmsg $chan :Syntax: !unmute <nick>"
		return 0
	}

	if {![botisop $chan]} {
		putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
		return 0
	}


	if {![isop $nick $chan]} {
		putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
		return 0
	}


	set nick2unmute [lindex [split $text] 0 ]

	if {![onchan $nick2unmute $chan]} {
		putserv "privmsg $chan :Sorry $nick, but I don't see $nick2unmute on $chan right now"
		return 0
	}

	putserv "mode $chan -b ~q:$nick2unmute!*@* "

	putserv "privmsg $chan :You can talk again now  "

}
###



putlog "Nick muter - silly script for Computertech and Computertech ONLY! - loaded.  Find jack3 on Freenode :)   "