Advertisement
ComputerTech

Ban Script

Apr 13th, 2020
1,448
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. bind pub - "!ban" do_the_ban_ban
  22. bind pub - "!unban" do_the_unban_ban
  23.  
  24.  
  25. ###
  26. ###
  27. proc do_the_ban_ban {nick ushost handle chan text} {
  28.  
  29.     if {![llength [split $text]]} {
  30.         putserv "privmsg $chan :Syntax: !ban <nick>"
  31.         return 0
  32.     }
  33.  
  34.     if {![botisop $chan]} {
  35.         putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
  36.         return 0
  37.     }
  38.  
  39.  
  40.     if {![isop $nick $chan]} {
  41.         putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
  42.         return 0
  43.     }
  44.  
  45.  
  46.     set nick2ban [lindex [split $text] 0 ]
  47.  
  48.     if {![onchan $nick2mute $chan]} {
  49.         putserv "privmsg $chan :Sorry $nick, but I don't see $nick2mute on $chan right now"
  50.         return 0
  51.     }
  52.  
  53.     putserv "mode $chan +b $nick2ban!*@* "
  54.  
  55.     putserv "privmsg $chan :nick2ban Has Been Banned "
  56.  
  57.  
  58. }
  59. ###
  60. ###
  61.  
  62.  
  63. ###
  64. proc do_the_unban_ban {nick uhost handle chan text} {
  65.  
  66.  
  67.     if {![llength [split $text]]} {
  68.         putserv "privmsg $chan :Syntax: !unban <nick>"
  69.         return 0
  70.     }
  71.  
  72.     if {![botisop $chan]} {
  73.         putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
  74.         return 0
  75.     }
  76.  
  77.  
  78.     if {![isop $nick $chan]} {
  79.         putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
  80.         return 0
  81.     }
  82.  
  83.  
  84.     set nick2unban [lindex [split $text] 0 ]
  85.  
  86.     if {![onchan $nick2unmute $chan]} {
  87.         putserv "privmsg $chan :Sorry $nick, but I don't see $nick2unmute on $chan right now"
  88.         return 0
  89.     }
  90.  
  91.     putserv "mode $chan -b $nick2unban!*@* "
  92.  
  93.     putserv "privmsg $chan :nick2unban has been unbanned  "
  94.  
  95. }
  96. ###
Advertisement
RAW Paste Data Copied
Advertisement