Advertisement
ComputerTech

Mute Script

Apr 13th, 2020
5,658
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ######################################################################################################################################################
  2. # MUTE SCRIPT
  3. #
  4. ######################################################################################################################################################
  5. #Made By ComputerTech
  6. #
  7. ######################################################################################################################################################
  8. #Contact
  9. #
  10. #EMAIL ComputerTech312@gmail.com
  11. #
  12. #IRC.FREENODE.NET ##COMPUTERTECH123
  13. #
  14. ######################################################################################################################################################
  15.  
  16. bind pub - "!mute" do_the_mute_ban
  17. bind pub - "!unmute" do_the_unmute_ban
  18.  
  19. ######################################################################################################################################################
  20.  
  21.  
  22. proc do_the_mute_ban {nick ushost handle chan text} {
  23.  
  24.     if {![llength [split $text]]} {
  25.         putserv "privmsg $chan :Syntax: !mute <nick>"
  26.         return 0
  27.     }
  28.  
  29.     if {![botisop $chan]} {
  30.         putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
  31.         return 0
  32.     }
  33.  
  34.  
  35.     if {![isop $nick $chan]} {
  36.         putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
  37.         return 0
  38.     }
  39.  
  40.  
  41.     set nick2mute [lindex [split $text] 0 ]
  42.  
  43.     if {![onchan $nick2mute $chan]} {
  44.         putserv "privmsg $chan :Sorry $nick, but I don't see $nick2mute on $chan right now"
  45.         return 0
  46.     }
  47.  
  48.     putserv "mode $chan +b ~q:$nick2mute!*@* "
  49.  
  50.     putserv "privmsg $chan :$nick2mute Have Been Muted "
  51.  
  52.  
  53. }
  54. ###
  55. ###
  56.  
  57.  
  58. ###
  59. proc do_the_unmute_ban {nick uhost handle chan text} {
  60.  
  61.  
  62.     if {![llength [split $text]]} {
  63.         putserv "privmsg $chan :Syntax: !unmute <nick>"
  64.         return 0
  65.     }
  66.  
  67.     if {![botisop $chan]} {
  68.         putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
  69.         return 0
  70.     }
  71.  
  72.  
  73.     if {![isop $nick $chan]} {
  74.         putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
  75.         return 0
  76.     }
  77.  
  78.  
  79.     set nick2unmute [lindex [split $text] 0 ]
  80.  
  81.     if {![onchan $nick2unmute $chan]} {
  82.         putserv "privmsg $chan :Sorry $nick, but I don't see $nick2unmute on $chan right now"
  83.         return 0
  84.     }
  85.  
  86.     putserv "mode $chan -b ~q:$nick2unmute!*@* "
  87.  
  88.     putserv "privmsg $chan :$nick2unmute can talk again now  "
  89.  
  90. }
  91. #######################################################################################################################################################################
Advertisement
RAW Paste Data Copied
Advertisement