It's basic I know...probably could be shorter but to be honest I don't care. It gets the job done and neatly...

Load it in remotes and save. All you have to do is highlight the name in the Nicklist, right click then under Gag you see the three different options.

-Gag will gag the selected nick until you or someone else removes it.
-Ungag will undo the Gag obviously.
-Timed gag will allow you to set a specific time for the gag and will automatically be removed and the channel messaged.

-=Each Gag option allows you to specify the reason for the gag=-
-=Updated colours=- on *:load: {
echo 12 -a You Have Just Loaded Mr_E's Gag Script
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1¯15,1¯0,1¯0,1º «×X§Ç®îÞt0®§X×» º0,1¯15,1¯14,1¯) tm.
}
menu nicklist {
.Gag/Ungag
..Gag:{ var %g.m $?="Enter Gag message:" | mode $chan +b-aohv ~q: $+ $address($$1,2) $str($1 $chr(32),4) | msg $chan 12,15 « ¤ Ë ¤ » $$1 Has been silenced by $me Reason: $+ %g.m $+ « ¤ Ë ¤ » }
..Ungag:{ mode $chan -b ~q: $+ $address($$1,2) | msg $chan 12,15 « ¤ Ë ¤ » $$1 Can now talk...Behave or be gone! « ¤ Ë ¤ » }
..Timed Gag:{ var %g.m $?="Enter Gag message:" | var %g.t $$?="Enter Minutes To Gag" | mode $chan +b-aohv ~q: $+ $address($$1,2) $str($1 $chr(32),4) | msg $chan 12,15 « ¤ Ë ¤ » $$1 Has been silenced by $me Reason: $+ %g.m :Gagged for %g.t minute $+ $iif(%g.t > 1,s) « ¤ Ë ¤ »  | .timer 1 $calc(%g.t * 60) mode $chan -b ~q: $+ $address($$1,2) | .timer 1 $calc(%g.t * 60) msg $chan 12,15« ¤ Ë ¤ » $$1 Can now talk...Be good! « ¤ Ë ¤ » }
}