Add files via upload

BlackTools2.3/BlackTools.tcl

@@ -0,0 +1,14637 @@
+###########################################################################
+#                      ® BLaCkShaDoW ProductionS ®                        #
+#                                                                         # 
+#                               Presents                                  # 
+                                                                     
+####   #        ####    #####   #   #  #####  #####    ####   #      #####                  
+#   #  #       #    #   #       #  #     #   #     #  #    #  #      # 
+#   #  #       #    #   #       # #      #   #     #  #    #  #      #
+## #   #       ######   #       ##       #   #     #  #    #  #      #####
+#   #  #       #    #   #       # #      #   #     #  #    #  #          #
+#   #  #       #    #   #       #  #     #   #     #  #    #  #          #
+####   #####   #    #   #####   #   #    #    #####    ####   #####  #####
+              
+#                                                                         # 
+#                                                                         #
+#                          #####   #####                                  #
+#                              #       #                                  #         
+#                              #       #                                  #
+#                          ####    #####                                  #
+#                          #           #                                  #
+#                          #           #                                  #       
+#                          ##### # #####                                  # 
+#                                                                         #  
+#                                                                         #
+#                   THE    NEXT    GENERATION    TCL                      #
+#                                                                         #
+#            - #TCL-HELP @ UNDERNET - WwW.TclScripts.Net -                #  
+###########################################################################
+#A Next Generation Channel Control Script that contains a lot of commands #
+#modules, and protections that make`s your life easy for you and for your #
+#                              Eggdrop.                                   #
+###########################################################################
+#                                                                         #
+#      Many thanks for without this script wouldn't got this far to:      #
+#                                                                         #  
+#                      Time2Go@Oradea(#Bihor Admin)                       #
+#                                                                         #
+#        Offcourse i thanks all the users who participate with ideas,     #
+# opinions, which took the script to this version.                        #                                                                                                                                                                                    
+#                                                                         #
+#      cola @ #Tcl-Help                          btw @ #ialomita          #                    
+#                                                                         #                                
+#      Cacique @ #mures                          bandyt @ #bandyt         #
+#                                                                         #
+###########################################################################
+#
+#Please specify the folder name that contains the BlackTools.tcl and the lang
+#folder (Default "scripts")
+#
+set black(dirname) "scripts"
+#
+###########################################################################                
+#First Char ( "- . !" ) - ( "none" ) (for no char)
+#
+set black(cmdchar) ". !"
+#                           
+###########################################################################       
+                            
+#-------------------------- Default Language -----------------------------#
+
+#Default language ( RO / EN )
+
+set black(default_lang) "RO" 
+
+#-------------------------------------------------------------------------#
+
+#----------------------------- Max Handle --------------------------------#
+
+#Max Handle ( 1 - for handle < 9 ; 0 - for handle > 9 )
+
+set black(maxhand) "0"
+
+#-------------------------------------------------------------------------#
+
+
+#######################################################################
+#                                                                     #
+#        Command Help              - h -          Command Help        #
+#                                                                     #
+#######################################################################
+
+#---------------------------------------------------------------------#
+
+#######################################################################
+#                             Chanserv Name
+#
+set black(chanserv) "X"
+#
+#######################################################################
+
+#---------------------------------------------------------------------#
+
+#######################################################################
+#                                                                     #
+#---------------------------------------------------------------------#
+#                                                                     #
+####################################################################### 
+ 
+#------------------------- Chanserv Login ----------------------------#             
+
+#Login On Connect ( 1 - ON ; 0 - OFF)
+
+set black(logonconect) "1" 
+                                                                     
+#------------------------- Chanserv User ----------------------------## 
+                                   
+set black(username) "username"                      
+                                                                     
+#------------------------- Chanserv Pass ----------------------------## 
+                        
+set black(password) "password"
+
+#------------------------- Login Command ----------------------------##
+
+set black(login) "PRIVMSG x@channels.undernet.org :login $black(username) $black(password)"
+
+                                                                     
+#--------------------------- Login Mode ------------------------------##                                                   
+                                                                     
+set black(xmod) "+x"                                                    
+                                                                     
+#######################################################################
+#                                                                     #
+#---------------------------------------------------------------------#
+#                                                                     #
+#######################################################################
+
+#---------------------------------------------------------------------#
+
+################################# add #################################
+#
+#       add <level> <user> (level : manager,admin,senior,op voice)
+#
+#######################################################################
+
+#Default Hostname for - add <user> command -
+
+set black(hostadd) "*!*@%user%.users.undernet.org"
+
+
+#######################################################################
+#
+#
+#                           Protection
+#
+#
+#
+#######################################################################
+
+#Op Protect (1 - ON ; 0 - OFF)
+
+set black(vprotect) "1"
+
+
+#VOICE Protect (1 - ON ; 0 - OFF)
+
+set black(oprotect) "1"
+
+#######################################################################
+#
+#                        Antipub Protection
+#
+#
+#
+#######################################################################
+
+
+#Ban-Time
+
+set black(antipubbantime) "2880"
+
+#Words
+
+set black(antipubword) {
+"*#*"
+ "*www.*"
+ "*http://*"
+ "*.ro"
+ "*.com"
+ "*/server*"
+}
+
+#Ban-Mode
+
+set black(antipubmode) "m"
+
+#Ban-mode Time (Seconds)
+
+set black(antipubsecunde) "5"
+
+#######################################################################
+#
+#                      AntiNotice Protection
+#
+#
+#######################################################################
+
+#Ban-Time
+
+set black(antinoticebantime) "2880"
+
+#Ban-Mode
+
+set black(antinoticemode) "mr"
+
+#Ban-mode Time (Seconds)
+
+set black(antinoticesecunde) "7"
+
+#######################################################################
+#
+#                         AntiCTCP Protection
+#
+#
+#######################################################################
+
+#Ban-Time
+
+set black(antictcpbantime) "2880"
+
+#Ban-Mode
+
+set black(antictcpmode) "mr"
+
+#Ban-mode Time (Seconds)
+
+set black(antictcpsecunde) "8"
+
+#######################################################################
+#
+#                       AntiBadWord Protection
+#
+#
+#######################################################################
+
+
+#Ban-Time
+
+set black(antibadwordbantime) "360"
+
+#Words
+
+set black(antibadword) {
+"*pula*"
+ "*pizda*"
+ "*muie*"
+ "*sugi"
+ "mwie"
+ "*pwla*"
+ "*muisti*"
+ "*fut*"
+ "*fwt*"
+ "tarfa"
+
+
+}
+
+#######################################################################
+#
+#                        AntiLongText Protection
+#
+#
+#######################################################################
+
+#Char length
+
+set black(longchar) "400"
+
+#Ban-Time
+
+set black(longbantime) "30"
+
+#Ban-Mode
+
+set black(longmode) "mr"
+
+#Ban-mode Time (Seconds)
+
+set black(longtimemode) "10"
+
+#######################################################################
+#
+#                       AntiBAdQuitPart Protection
+#
+#
+#######################################################################
+
+#Ban-Time
+
+set black(badquitparttime) "60"
+
+#Words
+
+set black(badquitpartwords) {
+"*www.*"
+"*http://*"
+"*#*"
+
+}
+
+#Ban on COLORS (1 - ON ; 0 - OFF)
+
+set black(badquitpartcolour) "1"
+
+#######################################################################
+#
+#                       Protectia AntiJoinPart
+#
+#
+#######################################################################
+
+#Ban-Time
+
+set black(joinpartbantime) "30"
+
+#Stay-Time
+
+set black(joinparttime) "2"
+
+#Ban-Mode
+
+set black(joinpartmode) "mr"
+
+#Ban-Mode Time (Seconds)
+
+set black(joinparttimemode) "10"
+
+#######################################################################
+#
+#                       AntiSpam Protection
+#
+#
+#######################################################################
+
+
+#Ban-Time
+
+set black(spamban) "2880"
+
+#Words
+
+set black(spamword) {
+"*#*"
+ "*www.*"
+ "*http://*"
+}
+
+#Cycle-Time
+
+set black(spamcycle) "30"
+
+#ON-JOIN Message ( 1 - ON ; 0 - OFF)
+
+set black(spamreq) "1"
+
+#Part Message
+
+set black(spammsgcycle) "Checking for spam.."
+
+#######################################################################
+#
+#                       AntiRepeat Protection
+#
+#
+#######################################################################
+
+#Repeat Setting (number repeats:seconds)
+
+set black(repeats) "3:5"
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(antirepeattype) "1"
+
+#Ban-Time
+
+set black(antirepeatbantime) "10"
+
+#######################################################################
+# 
+#                          Anticolor Protection
+# 
+#
+#######################################################################
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(anticolortype) "1"
+
+#Ban-Time
+
+set black(anticolorbantime) "10"
+
+#######################################################################
+# 
+#                          AntiBold Protection
+# 
+#
+#######################################################################
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(antiboldtype) "1"
+
+#Ban-Time
+
+set black(antiboldbantime) "10"
+
+#######################################################################
+# 
+#                          AntiUnderline Protection
+# 
+#
+#######################################################################
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(antiunderlinetype) "1"
+
+#Ban-Time
+
+set black(antiunderlinebantime) "10"
+
+#######################################################################
+# 
+#                          AntiCaps Protection
+# 
+#
+#######################################################################
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(anticapstype) "1"
+
+#Caps Char Length
+
+set black(anticapscount) "40"
+
+#Ban-Time
+
+set black(anticapsbantime) "10"
+
+#######################################################################
+# 
+#                          BadFullName Protection
+# 
+#
+#######################################################################
+
+#Ban-Time
+
+set black(badfbantime) "60"
+
+#Words
+
+set black(badfwords) {
+"*www.*"
+"*#*"
+"*http://*"
+
+}
+
+#######################################################################
+# 
+#                          BadNick Protection
+# 
+#
+#######################################################################
+
+#Ban-Time
+
+set black(badnickbantime) "60"
+
+#Words
+
+set black(badnickwords) {
+
+"*pula*"
+"*muie *"
+"pwla*"
+"pizda*"
+"laba*"
+
+}
+
+
+#######################################################################
+# 
+#                          BadIdent Protection
+# 
+#
+#######################################################################
+
+#Ban-Time
+
+set black(badidentbantime) "60"
+
+#Words
+
+set black(badidentwords) {
+
+"*pula*"
+"*muie *"
+"pwla*"
+"pizda*"
+"laba*"
+
+}
+
+
+#######################################################################
+# 
+#                          AntiJoinFlood Protection
+# 
+#
+#######################################################################
+
+#Join-Mode
+
+set black(modes) "mir"
+
+
+#Join-Mode Time (Seconds)
+
+set black(nomodetime) "15"
+
+
+#Op ALERT (1 - ON ; 0 - OFF)
+
+set black(fjoinhow) "1"
+
+#######################################################################
+# 
+#                          AntiChanFlood Protection
+# 
+#
+#######################################################################
+
+#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
+
+set black(antifloodchantype) "1"
+
+#Ban-Time
+
+set black(antifloodchanbantime) "10"
+
+#######################################################################
+# 
+#                                Module
+# 
+#
+#######################################################################
+
+
+#######################################################################
+# 
+#                            Topic refresh
+#
+#
+#######################################################################
+
+#Refresh Time
+
+set black(topic_time) "60"
+
+#Standard Topic
+
+set black(topics) "Reloading topic..."
+
+
+########################################################################
+#
+#                                 Count
+#
+#                  count <on> / <off> / <display> / <reset>
+#
+#######################################################################
+
+#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
+
+set black(counthow) "1"
+
+
+#######################################################################
+# 
+#                               BadChan
+#
+#              badchan | <on> | <off> | add | del | | list |
+#
+#######################################################################
+
+#Ban-Time
+
+set black(badcbantime) "360"
+
+#User Message ( 1 - ON ; 0 - OFF)
+
+set black(badcwhyreason) "1"
+
+########################################################################
+#
+#                                 Anunt
+#
+#                  Anunt <on> | <off> | <add> | <list> | <del>
+#
+#######################################################################
+
+#Anunt Time ( 60 min max )
+
+set black(anunttime) "45"
+
+#MSg Type ( 1 - ACTION ; 0 - PRIVMSG )
+
+set black(anunthow) "0"
+
+########################################################################
+#
+#                             AutoBroadcast
+#
+#                  bt <on> | <off> | <add> | <list> | <del>
+#
+#######################################################################
+
+
+#BRoadcast Time
+
+set black(bttime) "60"
+
+#MSg Type ( 1 - ACTION ; 0 - PRIVMSG )
+
+set black(bthow) "1"
+
+
+#######################################################################
+# 
+#                               CloneScan
+#
+#
+#######################################################################
+
+#Max Clones
+
+set black(maxclone) "2"
+
+#Ban-Type ( 0 - OP Message ; 1 - Ban )
+
+set black(what) "0"
+
+#Ban-Time
+
+set black(clonebtime) "180"
+
+#######################################################################
+# 
+#                               AntiBoTidle
+#
+#
+#######################################################################
+
+#Random Object
+
+set black(noobject) "blacky:P"
+
+#Max Idle
+
+set black(noidlemax) "10"
+
+#######################################################################
+#                            
+#                                Seen
+#
+#                         seen <host> / <nick>
+#
+#######################################################################
+
+#Flood-Protection (searches : seconds)
+
+set black(seenflood) "4:5"
+
+#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
+
+set black(seenmet) "1"
+
+
+########################################################################
+#
+#                                 Greet
+#
+#                  greet <on> | <off> | <add> | <list> | <del>
+#
+#######################################################################
+
+#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
+
+set black(howgreet) "1"
+
+
+########################################################################
+#
+#                                 Leave
+#
+#                  leave <on> | <off> | <add> | <list> | <del>
+#
+#######################################################################
+
+#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
+
+set black(howleave) "0"
+
+########################################################################
+#
+#                                 idle
+#
+#                
+#  idle <on> | <off> | voice <on>/<off> | op <on>/<off> | add <nick> 
+#
+#######################################################################
+
+#Idle Scan Time
+
+set black(idleinterval) "60"
+
+#Op max idle
+
+set black(idleopmax) "30"
+
+#Voice idle Max
+
+set black(idlevoicemax) "60"
+
+########################################################################
+#
+#                                Private
+#
+#                
+#          private <on> | <off> | <add> <user> | <list> | del <nume>
+#
+#######################################################################
+
+#Ban-Time
+
+set black(privatebantime) "10"
+
+
+#######################################################################
+# 
+#                           
+#                               Commands
+#
+#
+#######################################################################
+
+
+#######################################################################
+#
+#                              dr <nick> / <host>
+#
+#######################################################################
+
+#Ban-Time
+
+set black(drtime) "20160"
+
+#######################################################################
+#
+#                              bot <nick> / <host>
+#
+#######################################################################
+
+#Ban-Time
+
+set black(bottime) "10160"
+
+
+########################################################################
+#       
+#                              b <nick> / <host>
+#
+#######################################################################
+
+#Ban-Time
+
+set black(btime) "2880"
+
+
+#######################################################################
+#
+#                                 n <nick>
+#
+#######################################################################
+
+#Ban-Time
+
+set black(ntime) "120"
+
+######################################################################
+#
+#                                 id <nick> 
+#
+######################################################################
+
+#Ban-Time
+
+set black(idtime) "120"
+
+
+######################################################################
+#
+#                   spam <nick> / <host> (pentru spammeri)
+#
+######################################################################
+
+#Ban-Time
+
+set black(spamtime) "10080"
+
+
+######################################################################
+#
+#                          k <nick> <reason>
+#
+######################################################################
+
+
+#Access Except ( 1 - ON ; 0 - OFF )
+
+set black(kaccess) "1"
+
+
+#######################################################################
+#
+#                    bw <nick> / <host> ( bad word)
+#
+#######################################################################
+
+#Ban-Time
+
+set black(bwtime) "360"
+
+########################################################################
+#
+#              stick <nick> / <host> <timp> <motiv>
+#
+########################################################################
+
+#Ban-Time
+
+set black(dfstickbantime) "5040"
+
+########################################################################
+#
+#                           l <seconds>                            
+#
+########################################################################
+
+#Mode Type
+
+set black(lmode) "m"
+
+########################################################################
+#
+#                               ul                             
+#
+########################################################################
+
+#Mode Type
+
+set black(ulmodes) "mir"
+
+########################################################################
+#
+#
+#                            This is the END !
+#
+#
+########################################################################
+
+
+set black(exceptflags) "nm|HAMOVSo"
+
+setudef flag antipub
+setudef flag antinotice
+setudef flag antictcp
+setudef flag antilongtext
+setudef flag antibadword
+setudef flag antijoinpart
+setudef flag antispam
+setudef flag antirepeat
+setudef flag badquitpart
+setudef flag anticolor
+setudef flag antibold
+setudef flag antiunderline
+setudef flag anticaps
+setudef flag badfullname
+setudef flag badnick
+setudef flag badident
+setudef flag antijoinflood
+setudef flag antichanflood
+setudef flag xtools
+setudef flag topicrefresh
+setudef flag count
+setudef flag antibadchan
+setudef flag anunt
+setudef flag limit
+setudef flag refresh
+setudef flag clonescan
+setudef flag seen
+setudef flag antidle
+setudef flag antividle
+setudef flag antididle
+setudef flag autoop
+setudef flag autovoice
+setudef flag leave
+setudef flag chanreport
+setudef flag topwords
+setudef flag xban
+setudef flag protectop
+setudef flag protectvoice
+setudef flag dontop
+setudef flag dontdeop
+setudef flag private
+setudef flag silent
+setudef flag showtime
+setudef flag showhandle
+setudef flag showcount
+
+setudef int idlevoicemax
+setudef int idleopmax
+setudef int countnumber
+setudef int kickcount
+setudef int xbantime
+setudef int xbanlevel
+setudef int blacklimit
+setudef str backchan
+
+
+#Motive / Bantime
+
+#Protection
+
+setudef str antipub-reason
+setudef int antipub-bantime
+setudef str antinotice-reason
+setudef int antinotice-bantime
+setudef str antictcp-reason
+setudef int antictcp-bantime
+setudef str antibadword-reason
+setudef int antibadword-bantime
+setudef str antilongtext-reason
+setudef int antilongtext-bantime
+setudef str antibadquitpart-reason
+setudef int antibadquitpart-bantime
+setudef str antijoinpart-reason
+setudef int antijoinpart-bantime
+setudef str antispam-reason
+setudef int antispam-bantime
+setudef str antispam-message
+setudef str antirepeat-reason
+setudef int antirepeat-bantime
+setudef str anticolor-reason
+setudef int anticolor-bantime
+setudef str antibold-reason
+setudef int antibold-bantime
+setudef str antiunderline-reason
+setudef int antiunderline-bantime
+setudef str anticaps-reason
+setudef int anticaps-bantime
+setudef str badfullname-reason
+setudef int badfullname-bantime
+setudef str badnick-reason
+setudef int badnick-bantime
+setudef str badident-reason
+setudef int badident-bantime
+setudef str antichanflood-reason
+setudef int antichanflood-bantime
+setudef str joinflood
+setudef str chanflood
+setudef int private-bantime
+setudef str private-reason
+setudef int antilongtextmax
+setudef str antirepeat-setting
+
+#commands
+
+setudef str dr-reason
+setudef int dr-bantime
+setudef str n-reason
+setudef int n-bantime
+setudef int b-bantime
+setudef str id-reason
+setudef int id-bantime
+setudef str w-reason
+setudef str spam-reason
+setudef int spam-bantime
+setudef str bw-reason
+setudef int bw-bantime
+setudef int bot-bantime
+setudef str bot-reason
+
+#module
+
+setudef str badchan-reason
+setudef int badchan-bantime
+setudef str count-message
+setudef str lang
+
+if {$black(logonconect) == "1"} {
+bind evnt - init-server loginpublic
+}
+
+bind pubm - * topwordspublic
+bind pubm - * antipub:protect
+bind ctcp - ACTION antipub:protect:me
+bind notc - * antinotice:protect
+bind ctcp - * antictcp:protect
+
+bind pubm - * antibadword:protect
+bind ctcp - ACTION antibadword:protect:me
+bind pubm - * antilongtext:protect
+bind ctcp - ACTION antilongtext:protect:me
+bind part - * antipubpart:protect
+bind sign - * antipubsign:protect
+bind part - * anticolorpart:protect
+bind sign - * anticolorquit:protect
+bind part - * antijoinpart:protect
+bind join - * antispam:protect:msg
+bind msgm - * antispam:protect
+bind time - * antispam:protect:cycle
+bind time - "30 * * * *" clonescanner
+bind time - "* * * * *" limit:timer
+bind pubm - * antirepeat:protect
+bind pubm - * antifloodchan:protect
+bind ctcp - version blackreply
+bind ctcp - ACTION antirepeat:protect:me
+bind ctcp - ACTION antifloodchan:protect:me
+bind pubm - * anticolor:protect
+bind ctcp - ACTION anticolor:protect:me
+bind pubm - * antibold:protect
+bind ctcp - ACTION antibold:protect:me
+bind pubm - * antiunderline:protect
+bind ctcp - ACTION antiunderline:protect:me
+bind pubm - * anticaps:protect
+bind ctcp - ACTION anticaps:protect:me
+bind join - * badfullname:protect:join
+bind join - * badnick:protect:join
+bind join - * badident:protect:join
+bind nick - * badnick:protect:change
+bind mode - "*+b*" protectpublic
+bind join - * joinflood:protect
+bind join - * rebanpublic
+bind need - * toolspublic
+bind join - * countpublic:join
+bind join - * badchanpublic:join
+bind join - * seen:join
+bind part - * seen:part
+bind sign - * seen:sign
+bind kick - * seen:kick
+bind splt - * seen:split
+bind nick - * seen:changenick
+bind join - * greetpublic:join
+bind part - * leavepublic:part
+bind time - * idlewhoispublic
+bind evnt - init-server setaway
+bind join - * autovonjoin
+bind join - * autoponjoin
+bind join - * addopjoin
+bind join - * addvoicejoin
+bind join - * private:module
+bind join - * timeban:module
+bind ctcr mn|MOSAV PING pingpublic
+bind ctcr - VERSION ctcpvers
+bind mode - *+o* dontoppublic
+bind mode - *-o* dontdeoppublic
+
+
+
+bind pubm nm|MmvVNnoOSA * comand:pubme 
+foreach black(char) $black(cmdchar) {
+if {[string match -nocase "$black(char)" "none"]} {
+set black(char) ""
+}
+bind pub nm|MAS $black(char)clonescan scannerpublic
+bind pub nm|MASO $black(char)r refreshpublic
+bind pub nm|M $black(char)count countpublic
+bind pub nm|M $black(char)badchan badchanpublic
+bind pub nm|M $black(char)badword antibadword:command:public
+bind pub nm|M $black(char)anunt anuntpublic
+bind pub nm|M $black(char)limit limitpublic
+bind pub nm|M $black(char)topic topicpublic
+bind pub -|- $black(char)seen seenpublic
+bind pub nm|M $black(char)greet greetpublic
+bind pub nm|M $black(char)leave leavepublic
+bind pub nm|M $black(char)idle antidlepublic
+bind pub nm|OSMA $black(char)dr drpublic
+bind pub nm|OSMA $black(char)bot botpublic
+bind pub nm|OSMA $black(char)b bpublic
+bind pub nm|OSMA $black(char)n npublic
+bind pub nm|OSMA $black(char)id idpublic
+bind pub nm|SMA $black(char)black blackpublic
+bind pub nm|SMA $black(char)bl blackpublic
+bind pub nm|VOSMA $black(char)w wpublic
+bind pub nm|OSMA $black(char)spam spampublic
+bind pub nm|VOSMA $black(char)k kpublic
+bind pub nm|OSMA $black(char)bw bwpublic
+bind pub nm|OSMA $black(char)ub ubpublic
+bind pub nm|VOSMA $black(char)sb sbpublic
+bind pub nm|SMA $black(char)d dpublic
+bind pub nm|SMA $black(char)stick stickpublic
+bind pub nm|VOSMA $black(char)t tpublic
+bind pub nm|M $black(char)show showpublic
+bind pub nm|- $black(char)status statuspublic
+bind pub nm|- $black(char)channels channelspublic
+bind pub nm|- $black(char)chat chatpublic
+bind pub nm|- $black(char)uptime uptimepublic
+bind pub nm|VOSMA $black(char)i ipublic
+bind pub nm|VOSMA $black(char)addinfo addinfopublic
+bind pub nm|VOSMA $black(char)v vpublic
+bind pub nm|VOSMA $black(char)myset mysetpublic
+bind pub nm|OSMA $black(char)o opublic
+bind pub nm|VOSMA $black(char)l lpublic
+bind pub nm|VOSMA $black(char)ul ulpublic
+bind pub nm|SMA $black(char)say saypublic
+bind pub nm|SMA $black(char)act actpublic
+bind pub nm|- $black(char)broadcast broadcastpublic
+bind pub nm|OSMA $black(char)check checkpublic
+bind pub nm|VOSMA $black(char)version versionpublic
+bind pub nm|OSMA $black(char)cycle cyclepublic
+bind pub nm|- $black(char)away awaypublic
+bind pub nm|M $black(char)private privatepublic
+bind pub nm|OSMA $black(char)mode modepublic
+bind pub nm|M $black(char)set setpublic
+bind pub nm|- $black(char)silence silencepublic
+bind pub nm|- $black(char)msg msgpublic
+bind pub nm|MA $black(char)add publicadd
+bind pub nm|MA $black(char)adduser adduserpublic
+bind pub nm|MA $black(char)delacc delaccpublic
+bind pub nm|- $black(char)del delpublic
+bind pub nm|- $black(char)ignore ignorepublic
+bind pub nm|- $black(char)botidle botidlepublic
+bind pub nm|M $black(char)addhost addhostpublic
+bind pub nm|M $black(char)delhost delhostpuplic
+bind pub nm|OSMA $black(char)banlist banlistpublic
+bind pub nm|M $black(char)purge purgepublic
+bind pub nm|M $black(char)chuser chuserpublic
+bind pub nm|MASOV $black(char)userlist publicuserlist
+bind pub nm|MASOV $black(char)info infopublic
+bind pub nm|MA $black(char)s spublic
+bind pub nm|MA $black(char)us uspublic
+bind pub nm|MAOSV $black(char)ping pings
+bind pub nm|MASOV $black(char)time timepublic
+bind pub nm|MAOSV $black(char)vers verspublic
+bind pub nm|MAOSV $black(char)whois whoispublic
+bind pub nm|MAOS $black(char)gag gagpublic
+bind pub nm|M $black(char)reset resetpublic
+bind pub nm|M $black(char)clear clearpublic
+bind pub nm|- $black(char)addbot addbotpublic
+bind pub nm|M $black(char)addop addoppublic
+bind pub nm|M $black(char)addvoice addvoicepublic
+bind pub nm|M $black(char)delop deloppublic
+bind pub nm|M $black(char)delvoice delvoicepublic
+bind pub nm|- $black(char)addmyhost addmyhostpublic
+bind pub nm|- $black(char)delmyhost delmyhostpublic
+bind pub nm|VOSAM $black(char)activ activpublic
+bind pub nm|MASOV $black(char)h hpublic
+bind pub nm|MASO $black(char)cc ccpublic
+bind pub nm|MAOSV $black(char)top toppublic
+bind pub nm|M $black(char)secure securepublic
+bind pub nm|- $black(char)bt broadcastpublic:module
+bind pub nm|- $black(char)login publiclogin:Cmd
+bind pub nm|MASO $black(char)stats statspublic
+}
+bind msg nm|- addchan addchanpublic
+bind msg nm|- delchan delchanpublic
+bind msg nm|- suspend suspendpublic
+bind msg nm|- unsuspend unsuspendpublic
+bind msg nm|- nick nickpublic
+bind msg nm|- rehash rehashme
+bind msg nm|- restart restartme
+bind msg nm|- save saveme
+bind msg nm|- jump jumpme
+bind msg nm|- die dieme
+bind msg nm|OSAM op oppublic
+bind msg nm|OSAM deop deoppublic
+bind msg nm|OSAM voice voicepublic
+bind msg nm|OSAM devoice devoicepublic
+bind msg nm|OSAM invite invitepublic
+
+
+##########################################################################
+#
+#
+#         Dont try to modify if you dont know what are you doing !
+#
+#
+#########################################################################
+
+
+set black(name) "BlackToolS"
+set black(author) "BLaCkShaDoW"
+set black(vers) "2.3"
+set black(site) "WwW.TclScripts.Net"
+set sdir "$username.status.txt"
+set wdir "$username.away.txt"
+set seendir "$username.Seen.db"
+set statsdir "$username.stats.db"
+set bwordir "$username.bword.db"
+
+set black(loader_error) [catch {source $black(dirname)/lang/loader.tcl} black(loader_error_stats)]
+
+if {$black(loader_error) == "1"} {
+die "4BlackTools :I didnt find the 12loader.tcl in the 12lang folder. This file contains the language for the script.PLease load it."
+}
+
+if {![info exists anuntpublic:show_running]} { 
+timer $black(anunttime) anuntpublic:show
+set anuntpublic:show_running 1
+}
+
+if {![info exists times_topic_running]} { 
+timer $black(topic_time) times_topic
+set times_topic_running 1
+}
+
+
+if {![file exists $seendir]} {
+set file [open $seendir w]
+close $file
+}
+
+if {![file exists $sdir]} {
+set file [open $sdir w]
+close $file
+}
+
+if {![file exists $wdir]} {
+set file [open $wdir w]
+close $file
+}
+
+if {![file exists $bwordir]} {
+set file [open $bwordir w]
+close $file
+}
+
+
+if {![file exists $statsdir]} {
+set file [open $statsdir w]
+close $file
+}
+
+if {![info exists antibotidle:module_running]} {
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+if {$data != ""} {
+foreach line $data {
+set type [lindex [split $line] 0]
+set stats [lindex [split $line] 1]
+if {($type == "antibotidle:module") && ($stats == "ON")} {
+timer $black(noidlemax) antibotidle:module
+}
+}
+}
+set antibotidle:module_running 1
+}
+
+if {![info exists broadcastpublic:show_running]} {
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+if {$data != ""} {
+foreach line $data {
+set type [lindex [split $line] 0]
+set stats [lindex [split $line] 1]
+if {($type == "broadcastpublic:show") && ($stats == "ON")} {
+timer $black(bttime) broadcastpublic:show
+}
+}
+}
+set broadcastpublic:show_running 1
+}
+
+proc blacktools:tell:prv {nick host hand type arg} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set replace(%botnick%) $botnick
+set replace(%char%) $char(p)
+set replace(%msg%) [lrange [split $arg] 0 end]
+set replace(%msg.1%) [lindex [split $arg] 0]
+set replace(%msg.2%) [lindex [split $arg] 1]
+set replace(%msg.3%) [lindex [split $arg] 2]
+set replace(%msg.4%) [lrange [split $arg] 1 end]
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+if {[info exists black(say.$getlang.$type)]} {
+set reply [string map [array get replace] $black(say.$getlang.$type)]
+puthelp "PRIVMSG $nick :$reply"
+}
+}
+
+proc blacktools:tell {nick host hand chan chan1 type arg} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set replace(%botnick%) $botnick
+set replace(%char%) $char(p)
+set replace(%chan%) $chan
+set replace(%msg%) [lrange $arg 0 end]
+set replace(%msg.set%) [lrange $arg 1 end]
+set replace(%msg.1%) [lindex $arg 0]
+set replace(%msg.2%) [lindex $arg 1]
+set replace(%msg.3%) [lindex $arg 2]
+set replace(%msg.4%) [lindex $arg 3]
+set replace(%msg.5%) [lrange $arg 4 end]
+set replace(%msg.6%) [lrange $arg 3 end]
+set replace(%msg.7%) [lrange $arg 2 end]
+set replace(%msg.8%) [lrange $arg 1 end]
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+set getmethod [getuser $hand XTRA OUTPUT_TYPE]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+if {$getmethod == ""} { set getmethod "1" }
+if {[info exists black(say.$getlang.$type)]} {
+set reply [string map [array get replace] $black(say.$getlang.$type)]
+if {$getmethod == "1"} {
+putserv "NOTICE $nick :$reply"
+} else {
+putserv "PRIVMSG $chan1 :$reply"
+}
+}
+}
+
+proc blacktools:banner:1 {banmask botnick chan reason mode timer bantime} {
+global black
+if {[channel get $chan xban]} {
+set getcount [channel get $chan kickcount]
+set getxtime [channel get $chan xbantime]
+set getxlevel [channel get $chan xbanlevel]
+if {$getxlevel == "0"} { set getxlevel "100"}
+if {$getxtime == "0"} { set getxtime "1" }
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "MODE $chan +$mode" -next ;utimer $timer [list putquick "MODE $chan -$mode"]
+putquick "PRIVMSG $black(chanserv) :ban $chan $banmask $getxtime $getxlevel $reason"
+newchanban $chan $banmask $botnick $reason $bantime
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+if {[info exists black($chan:anounce)]} {
+return 0
+}
+set black($chan:anounce) 1
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $banmask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+} else {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" } else {
+set reason "$reason" }
+putquick "MODE $chan +$mode" -next ;utimer $timer [list putquick "MODE $chan -$mode"]
+newchanban $chan $banmask $botnick $reason $bantime
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+if {[info exists black($chan:anounce)]} {
+return 0
+}
+set black($chan:anounce) 1
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $banmask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+}
+utimer 5 [list unset black($chan:anounce)]
+}
+
+proc blacktools:banner:2 {banmask botnick chan reason bantime} {
+global black
+if {[channel get $chan xban]} {
+set getcount [channel get $chan kickcount]
+set getxtime [channel get $chan xbantime]
+if {$getxtime == "0"} { set getxtime "1" }
+set getxlevel [channel get $chan xbanlevel]
+if {$getxlevel == "0"} { set getxlevel "100"}
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "PRIVMSG $black(chanserv) :ban $chan $banmask $getxtime $getxlevel $reason"
+newchanban $chan $banmask $botnick $reason $bantime
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+
+if {[info exists black($chan:anounce)]} {
+return 0
+}
+
+set black($chan:anounce) 1
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $banmask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+
+} else {
+
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" } else {
+set reason "$reason" }
+newchanban $chan $banmask $botnick $reason $bantime
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+if {[info exists black($chan:anounce)]} {
+return 0
+}
+set black($chan:anounce) 1
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $banmask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+}
+utimer 5 [list unset black($chan:anounce)]
+}
+
+
+proc blacktools:banner:3 {mask hand chan reason bantime type} {
+global black botnick
+if {[channel get $chan xban]} {
+set getcount [channel get $chan kickcount]
+set getxtime [channel get $chan xbantime]
+if {$getxtime == "0"} { set getxtime "1" }
+set getxlevel [channel get $chan xbanlevel]
+if {$getxlevel == "0"} { set getxlevel "100"}
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA $type]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA $type $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "PRIVMSG $black(chanserv) :ban $chan $mask $getxtime $getxlevel $reason"
+utimer 1 [list newchanban $chan $mask $hand $reason $bantime]
+putquick "MODE $chan +b $mask"
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $mask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+} else {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA $type]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA $type $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" } else {
+set reason "$reason" }
+newchanban $chan $mask $hand $reason $bantime
+putquick "MODE $chan +b $mask"
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $mask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+}
+}
+
+proc blacktools:banner:4 {mask hand chan reason bantime type} {
+global black botnick
+if {[channel get $chan xban]} {
+set getcount [channel get $chan kickcount]
+set getxtime [channel get $chan xbantime]
+if {$getxtime == "0"} { set getxtime "1" }
+set getxlevel [channel get $chan xbanlevel]
+if {$getxlevel == "0"} { set getxlevel "100"}
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA $type]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA $type $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "PRIVMSG $black(chanserv) :ban $chan $mask $getxtime $getxlevel $reason"
+utimer 1 [list newchanban $chan $mask $hand $reason $bantime sticky]
+putquick "MODE $chan +b $mask"
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $mask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+} else {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA $type]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA $type $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" } else {
+set reason "$reason" }
+newchanban $chan $mask $hand $reason $bantime sticky
+putquick "MODE $chan +b $mask"
+if {![channel get $chan chanreport]} {
+return 0
+}
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replace(%banmask%) $mask
+set replace(%bantime%) $bantime
+set replace(%reason%) $reason
+set replace(%chan%) $chan
+puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
+}
+}
+
+################################ antipub ###########################
+
+
+proc antipub:filter {str} {
+  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
+  return $str
+}
+
+proc antipub:protect {nick host hand chan arg} {
+global black botnick
+set text [antipub:filter $arg]
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antipub-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antipub.1)
+}
+set getbantime [channel get $chan antipub-bantime]
+if {$getbantime == "0"} { set getbantime $black(antipubbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 } 
+if { [channel get $chan antipub] } {
+foreach antipub [string tolower $black(antipubword)] {
+if {[string match -nocase $antipub $arg]} {
+blacktools:banner:1 $banmask $botnick $chan $reason $black(antipubmode) $black(antipubsecunde) $getbantime
+}
+}
+}
+}
+
+proc antipub:protect:me {nick host hand chan keyword arg} {
+global black
+antipub:protect $nick $host $hand $chan $arg
+}
+
+
+############################### antinotice #############################
+
+proc antinotice:protect {nick host hand arg chan} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antinotice-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antinotice.1)
+}
+set getbantime [channel get $chan antinotice-bantime]
+if {$getbantime == "0"} { set getbantime $black(antinoticebantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set banmask *!*@[lindex [split $host @] 1]
+set reason "$protectreason"
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {$chan == $botnick} { return 0 }
+if { [channel get $chan antinotice] } {
+blacktools:banner:1 $banmask $botnick $chan $reason $black(antinoticemode) $black(antinoticesecunde) $getbantime
+}
+}
+
+############################## antictcp ################################
+
+
+proc antictcp:protect {nick host hand chan keyword arg} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antictcp-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antictcp.1)
+}
+set getbantime [channel get $chan antictcp-bantime]
+if {$getbantime == "0"} { set getbantime $black(antictcpbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+if {[string equal -nocase "action" $keyword] || [string equal -nocase "chat" $keyword]} {return 0}
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if { [channel get $chan antictcp] } {
+blacktools:banner:1 $banmask $botnick $chan $reason $black(antictcpmode) $black(antictcpsecunde) $getbantime
+}
+}
+
+############################## antibadword ################################
+
+proc antibadword:filter {str} {
+  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
+  return $str
+}
+
+
+proc antibadword:protect {nick host hand chan arg} {
+global black botnick bwordir
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antibadword-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antibadword.1)
+}
+set getbantime [channel get $chan antibadword-bantime]
+if {$getbantime == "0"} { set getbantime $black(antibadwordbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set text [antibadword:filter $arg]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {[channel get $chan antibadword]} {
+set file [open $bwordir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+foreach word $lines {
+set c [lindex [split $word] 0]
+set w [lrange [split $word] 1 end]
+if {[string match -nocase $c $chan]} { 
+if {[string match -nocase $w $text]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+foreach antibadword [string tolower $black(antibadword)] {
+if {[string match -nocase $antibadword $text]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+proc antibadword:protect:me {nick host hand chan keyword arg} {
+global black
+antibadword:protect $nick $host $hand $chan $arg
+}
+
+################################ badword ##################################
+
+proc antibadword:command:public {nick host hand chan arg} {
+global black botnick
+set why [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set bdword [lrange [split $arg] 1 end]
+set bdnumber [lindex [split $arg] 1]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+set bdnumber [lindex [split $arg] 2]
+set bdword [lrange [split $arg] 2 end]
+}
+antibadword:command:process $nick $host $hand $chan $chan1 $why $bdword $bdnumber $type
+}
+
+proc antibadword:command:process {nick host hand chan chan1 why bdword bdnumber type} {
+global black bwordir botnick
+set i 0
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+switch -exact -- [string tolower $why] {
+
+add {
+set file [open $bwordir a]
+puts $file "$chan $bdword"
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 badword.5 $bdword
+}
+
+list {
+set file [open $bwordir "r"]
+set why [read -nonewline $file]
+close $file
+set data [split $why "\n"]
+if {$data == ""} { 
+blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
+blacktools:tell $nick $host $hand $chan $chan1 badword.7 none
+return 0
+}
+foreach word $data {
+set c [lindex [split $word] 0]
+set word [lrange [split $word] 1 end]
+if {[string match -nocase $chan $c]} {
+set foundchan 1
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
+blacktools:tell $nick $host $hand $chan $chan1 badword.8 "4 $i. 12$word"
+}
+if {![info exists foundchan]} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
+blacktools:tell $nick $host $hand $chan $chan1 badword.7 none
+}
+
+}
+}
+
+del {
+if {![regexp {^[0-9]} $bdnumber]} {
+blacktools:tell $nick $host $hand $chan $chan1 badword.9 $bdword
+return 0
+}
+set file [open $bwordir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+foreach word $lines {
+set c [lindex [split $word] 0]
+if {[string match -nocase $c $chan]} { 
+set i [expr $bdnumber - 1]
+set delete [lreplace $lines $i $i]
+set file [open $bwordir "w"]
+puts $file [join $delete "\n"]
+close $file
+}
+}
+set file [open $bwordir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $bwordir "w"]
+close $files
+}
+blacktools:tell $nick $host $hand $chan $chan1 badword.10 $bdnumber
+}
+}
+}
+
+############################## AntiLongText ################################
+
+proc antilongtext:protect {nick uhost hand chan arg} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antilongtext-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antilongtext.1)
+}
+set getbantime [channel get $chan antilongtext-bantime]
+if {$getbantime == "0"} { set getbantime $black(longbantime) }
+set getlongchar [channel get $chan antilongtextmax]
+if {$getlongchar == "0"} { set getlongchar "$black(longchar)" }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set banmask "*!*@[lindex [split $uhost @] 1]"
+set reason "$protectreason"
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 } 
+if {[string length $arg] >= $getlongchar} {
+if {[channel get $chan antilongtext]} {
+blacktools:banner:1 $banmask $botnick $chan $reason $black(longmode) $black(longtimemode) $getbantime
+}
+}
+}
+
+proc antilongtext:protect:me {nick host hand chan keyword arg} {
+global black
+antilongtext:protect $nick $host $hand $chan $arg
+}
+
+############################ AntiBAdQuitPart ##############################
+
+set black(badcolors) {
+
+"*\x03*"
+"*\037*"
+"*\002*"
+
+}
+
+proc antipubpart:protect {nick host hand chan arg} {
+global botnick black
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antibadquitpart-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antibadquitpart.1)
+}
+set getbantime [channel get $chan antibadquitpart-bantime]
+if {$getbantime == "0"} { set getbantime $black(badquitparttime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set banmask "*!*@[lindex [split $host @] 1]"
+set reason "$protectreason"
+if {[channel get $chan badquitpart]} {
+foreach word $black(badquitpartwords) {
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {[string match -nocase $word $arg]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+proc antipubsign:protect {nick host hand chan arg} {
+antipubpart:protect $nick $host $hand $chan $arg
+}
+
+
+proc anticolorpart:protect {nick host hand chan arg} {
+global botnick black
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antibadquitpart-reason]
+if {$getreason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antibadquitpart.1)
+}
+set getbantime [channel get $chan antibadquitpart-bantime]
+if {$getbantime == "0"} { set getbantime $black(badquitparttime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set banmask "*!*@[lindex [split $host @] 1]"
+set reason "$protectreason"
+if {[channel get $chan badquitpart]} {
+foreach color $black(badcolors) {
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {($black(badquitpartcolour) == "1") && [string match -nocase $color $arg]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+proc anticolorquit:protect {nick host hand chan arg} {
+anticolorpart:protect $nick $host $hand $chan $arg
+}
+
+########################### AntiJoinPart #############################
+
+proc antijoinpart:protect {nick host hand chan arg} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antijoinpart-reason]
+if {$getreason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antijoinpart.1)
+}
+set getbantime [channel get $chan antijoinpart-bantime]
+if {$getbantime == "0"} { set getbantime $black(joinpartbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set banmask "*!*@[lindex [split $host @] 1]"
+set reason "$protectreason"
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {$chan == $botnick} { return 0 }
+if {[channel get $chan antijoinpart]} {
+if {[getchanjoin $nick $chan] >= [expr {[clock seconds]-$black(joinparttime)}]} {
+blacktools:banner:1 $banmask $botnick $chan $reason $black(joinpartmode) $black(joinparttimemode) $getbantime
+}
+}
+}
+
+proc spam:filter {str} {
+  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
+  return $str
+}
+
+############################# AntiSpam ##############################
+
+proc antispam:protect {nick uhost hand arg} {
+global botnick black
+set text [spam:filter $arg]
+set handle [nick2hand $nick]
+foreach spammer [string tolower $black(spamword)] { 
+if {[string match -nocase $spammer $arg]} {
+foreach chans [channels] {
+if {![validchan $chans]} { return 0 }
+set getreason [channel get $chans antispam-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chans lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antispam.1)
+}
+set getbantime [channel get $chans antispam-bantime]
+if {$getbantime == "0"} { set getbantime $black(spamban) }
+if {[onchan $nick $chans]} {
+if {[channel get $chans antispam]} {
+if {![botisop $chans]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+set banmask *!*@[lindex [split $uhost @] 1]
+set replace(%chan%) $chans
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+if {[matchattr $handle $black(exceptflags) $chans]} { return 0 }
+if {[isvoice $nick $chans] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chans] && ($black(oprotect) == "1")} { return 0 }
+blacktools:banner:2 $banmask $botnick $chans $reason $getbantime
+}
+}
+}
+}
+}
+}
+proc antispam:protect:msg {nick host hand chan } {
+global black
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan antispam]} {
+if {[isbotnick $nick]} { return 0 }
+if {$black(spamreq) == "1"} {
+set getmsg [channel get $chan antispam-message]
+if {$getmsg == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getmsg $black(say.$getlang.antispam.2)
+}
+set replace(%nick%) $nick
+set replace(%chan%) $chan
+set spamsg [string map [array get replace] $getmsg]
+puthelp "PRIVMSG $nick :$spamsg"
+} 
+}
+}
+
+
+proc antispam:protect:cycle {min hour day mon year} {
+global black
+if {([scan $min %d]+([scan $hour %d]*60)) % $black(spamcycle) == 0} { 
+foreach chan [channels] {
+if { [channel get $chan antispam]} {
+putserv "PART $chan :$black(spammsgcycle)"; putserv "JOIN $chan"
+}
+}
+}
+}
+
+############################## AntiRepeat ###############################
+
+proc antirepeat:protect {nick host hand chan arg} {
+global black botnick count
+set arg [join [split $arg]]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antirepeat-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antirepeat.1)
+}
+set getbantime [channel get $chan antirepeat-bantime]
+if {$getbantime == "0"} { set getbantime $black(antirepeatbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set repeatset [channel get $chan antirepeat-setting]
+if {$repeatset == ""} { set repeatset "$black(repeats)" }
+set number [scan $repeatset %\[^:\]]
+set time [scan $repeatset %*\[^:\]:%s]
+set banmask *!*@[lindex [split $host @] 1]
+set handle [nick2hand $nick]
+foreach tmr [utimers] {
+if {[string match "*count(repeat:$host:$chan:$arg)*" [join [lindex $tmr 1]]]} {
+killutimer [lindex $tmr 2]
+}
+}
+if {[channel get $chan antirepeat]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+
+if {![info exists count(repeat:$host:$chan:$arg)]} { 
+set count(repeat:$host:$chan:$arg) 0 
+}
+
+if {![info exists count(repeat:$host:$chan)]} { 
+set count(repeat:$host:$chan) 0 
+}
+
+incr count(repeat:$host:$chan:$arg)
+utimer $time [list unset count(repeat:$host:$chan:$arg)]
+
+if {$count(repeat:$host:$chan:$arg) >= $number} {
+if {$black(antirepeattype) == "0"} { set count(repeat:$host:$chan) 2 } 
+incr count(repeat:$host:$chan)
+if {$count(repeat:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(repeat:$host:$chan) >= 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(repeat:$host:$chan)
+}
+}
+}
+}
+
+
+proc antirepeat:protect:me {nick host hand chan keyword arg} {
+antirepeat:protect $nick $host $hand $chan $arg
+}
+
+
+############################# AntiColor ################################
+
+proc anticolor:protect {nick host hand chan arg} {
+global black botnick count
+set arg [join [split $arg]]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan anticolor-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.anticolor.1)
+}
+set getbantime [channel get $chan anticolor-bantime]
+if {$getbantime == "0"} { set getbantime $black(anticolorbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+set handle [nick2hand $nick]
+if {[channel get $chan anticolor]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {![info exists count(color:$host:$chan)]} { 
+set count(color:$host:$chan) 0 
+}
+if {[string match *\003* $arg]} {
+incr count(color:$host:$chan)
+if {$black(anticolortype) == "0" } { set count(color:$host:$chan) 2 }
+if {$count(color:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(color:$host:$chan) == 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(color:$host:$chan)
+}
+}
+}
+}
+
+proc anticolor:protect:me {nick host hand chan keyword arg} {
+anticolor:protect $nick $host $hand $chan $arg
+}
+
+############################# AntiBold ################################
+
+proc antibold:protect {nick host hand chan arg} {
+global black botnick count
+set arg [split $arg]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antibold-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antibold.1)
+}
+set getbantime [channel get $chan antibold-bantime]
+if {$getbantime == "0"} { set getbantime $black(antiboldbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+set handle [nick2hand $nick]
+if {[channel get $chan antibold]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {![info exists count(bold:$host:$chan)]} { 
+set count(bold:$host:$chan) 0 
+}
+if {[string match *\002* $arg]} {
+incr count(bold:$host:$chan)
+if {$black(antiboldtype) == "0" } { set count(bold:$host:$chan) 2 }
+if {$count(bold:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(bold:$host:$chan) == 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(bold:$host:$chan)
+}
+}
+}
+}
+
+proc antibold:protect:me {nick host hand chan keyword arg} {
+antibold:protect $nick $host $hand $chan $arg
+}
+
+############################ AntiUnderline ###############################
+
+proc antiunderline:protect {nick host hand chan arg} {
+global black botnick count
+set arg [split $arg]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antiunderline-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antiunderline.1)
+}
+set getbantime [channel get $chan antiunderline-bantime]
+if {$getbantime == "0"} { set getbantime $black(antiunderlinebantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+set handle [nick2hand $nick]
+if {[channel get $chan antiunderline]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {![info exists count(underline:$host:$chan)]} { 
+set count(underline:$host:$chan) 0 
+}
+if {[string match *\037* $arg]} {
+incr count(underline:$host:$chan)
+if {$black(antiunderlinetype) == "0" } { set count(underline:$host:$chan) 2 }
+if {$count(underline:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(underline:$host:$chan) == 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(underline:$host:$chan)
+}
+}
+}
+}
+
+proc antiunderline:protect:me {nick host hand chan keyword arg} {
+antiunderline:protect $nick $host $hand $chan $arg
+}
+
+############################## AntiCaps #################################
+
+proc anticaps:protect {nick host hand chan arg} {
+global black botnick count
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan anticaps-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.anticaps.1)
+}
+set getbantime [channel get $chan anticaps-bantime]
+if {$getbantime == "0"} { set getbantime $black(anticapsbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask *!*@[lindex [split $host @] 1]
+if {![info exists count(caps:$host:$chan)]} { 
+set count(caps:$host:$chan) 0 
+}
+if {[channel get $chan anticaps]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+
+set caps($nick:$host) 0
+foreach word [split $arg {}] {
+if [string match \[A-Z\] $word] {
+incr caps($nick:$host)
+}
+
+}
+
+if {$caps($nick:$host) == 0} {
+  return 0
+}
+  if {[string length $arg] < 20} {return 0}
+  set capchar [string length $arg]
+  set number $caps($nick:$host)/$capchar
+  if {[expr 100 * $caps($nick:$host) / $capchar] > $black(anticapscount)} {
+incr count(caps:$host:$chan)
+if {$black(anticapstype) == "0" } { set count(caps:$host:$chan) 2 }
+if {$count(caps:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(caps:$host:$chan) == 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(caps:$host:$chan)
+}
+}
+}
+}
+
+proc anticaps:protect:me {nick host hand chan keyword arg} {
+anticaps:protect $nick $host $hand $chan $arg
+}
+
+################################ BadIdent #################################
+
+proc badident:protect:join {nick host hand chan} {
+global black botnick
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan badident-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.badident.1)
+}
+set getbantime [channel get $chan badident-bantime]
+if {$getbantime == "0"} { set getbantime $black(badidentbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set ident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
+set banmask "*!*$ident@*"
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan badident]} {
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[matchattr $hand $black(exceptflags) $chan]} { return 0 }
+foreach bit $black(badidentwords) {
+if {[string match -nocase $bit $ident]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+
+############################## BadFullname ###############################
+
+proc badfullname:protect:join {nick host hand chan} {
+global botnick black
+set ::cchan $chan
+set ::nnick $nick
+set ::hhost $host
+set handle [nick2hand $nick]
+if { [channel get $chan badfullname] } {
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[onchan $nick $chan]} {
+putquick "WHOIS $nick $nick"
+bind RAW - 311 badfullname:protect
+}
+}
+}
+
+proc badfullname:protect { from keyword arguments } {
+global botnick black
+set chan $::cchan
+set nick $::nnick
+set host $::hhost
+set getreason [channel get $chan badfullname-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.badfullname.1)
+}
+set getbantime [channel get $chan badfullname-bantime]
+if {$getbantime == "0"} { set getbantime $black(badfbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set fullname [string range [join [lrange $arguments 5 end]] 1 end]
+if {[onchan $nick $chan]} {
+set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 
+}
+  foreach realname $black(badfwords) {
+if {[string match -nocase $realname $fullname]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+unbind RAW - 311 badfullname:protect
+}
+
+################################ BadNick #################################
+
+proc badnick:protect:join {nick host hand chan} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan badnick-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.badnick.1)
+}
+set getbantime [channel get $chan badnick-bantime]
+if {$getbantime == "0"} { set getbantime $black(badnickbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask "$nick*!*@*"
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan badnick]} {
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+foreach badnick [string tolower $black(badnickwords)] {
+if {[string match $badnick [string tolower $nick]]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+proc badnick:protect:change {nick host hand chan newnick} {
+global black botnick
+set handle [nick2hand $nick]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan badnick-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.badnick.1)
+}
+set getbantime [channel get $chan badnick-bantime]
+if {$getbantime == "0"} { set getbantime $black(badnickbantime) }
+set replace(%chan%) $chan
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set banmask "$newnick*!*@*"
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan badnick]} {
+if {![botisop $chan]} { return 0 }
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+foreach badnick [string tolower $black(badnickwords)] {
+if {[string match $badnick [string tolower $newnick]]} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+}
+}
+}
+}
+
+
+
+########################### AntiJoinFlood ################################
+
+proc joinflood:protect {nick host hand chan} {
+global black count
+if {[channel get $chan antijoinflood]} {
+set getset [channel get $chan joinflood]
+if {$getset == ""} { set getset "4 5" }
+set number [lindex [split $getset] 0]
+set time [lindex [split $getset] 1]
+set replace(%chan%) $chan
+foreach tmr [utimers] {
+if {[string match "*count(joinflood:$chan)*" [join [lindex $tmr 1]]]} {
+killutimer [lindex $tmr 2]
+}
+}
+if {![info exists count(joinflood:$chan)]} { 
+set count(joinflood:$chan) 0 
+}
+
+incr count(joinflood:$chan)
+utimer $time [list unset count(joinflood:$chan)]
+
+if {$count(joinflood:$chan) >= "$number"} {
+if {![botisop $chan]} { return 0 }
+putquick "MODE $chan +$black(modes)" ; utimer $black(nomodetime) [list putquick "MODE $chan -$black(modes)"]
+if {$black(fjoinhow) == "1"} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getmessage $black(say.$getlang.antijoinflood.1)
+set message [string map [array get replace] $getmessage]
+puthelp "NOTICE @$chan :$message"
+}
+}
+}
+}
+
+
+########################## Login ###############################
+
+proc loginpublic {my} {
+     global botnick black
+        putquick "$black(login)"   
+        putquick "MODE $botnick :$black(xmod)"
+        
+}
+
+
+proc publiclogin:Cmd {nick host hand chan arg} {
+global botnick black
+putquick "$black(login)"
+putquick "MODE $botnick :$black(xmod)"
+blacktools:tell:prv $nick $host $hand login.1 $black(chanserv)
+}
+
+########################### User Protection ################################
+
+proc protectpublic {nick host hand chan args} {
+global black
+set bans [lindex $args 1]
+if {![botisop $chan]} { return 0 }
+if {$bans == "*!*@*"} { putquick "MODE $chan -b $bans"
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $bans $host]} {
+putquick "MODE $chan -b $bans"
+if {[onchan $black(chanserv) $chan]} {
+putquick "PRIVMSG $black(chanserv) :unban $chan $bans"
+}
+}
+}
+}
+}
+
+############################## AntiChanFlood ###############################
+
+proc antifloodchan:protect {nick host hand chan arg} {
+global black botnick count
+set arg [split $arg]
+if {![validchan $chan]} { return 0 }
+set getreason [channel get $chan antichanflood-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.antichanflood.1)
+}
+set getbantime [channel get $chan antichanflood-bantime]
+if {$getbantime == "0"} { set getbantime $black(antifloodchanbantime) }
+set replace(%chan%) $chan
+set getset [channel get $chan chanflood]
+if {$getset == ""} { set getset "4 5" }
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set number [lindex [split $getset] 0]
+set time [lindex [split $getset] 1]
+set banmask *!*@[lindex [split $host @] 1]
+set handle [nick2hand $nick]
+foreach tmr [utimers] {
+if {[string match "*count(repeat:$host:$chan:flood)*" [join [lindex $tmr 1]]]} {
+killutimer [lindex $tmr 2]
+}
+}
+if {[channel get $chan antichanflood]} {
+if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
+if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+
+if {![info exists count(repeat:$host:$chan:flood)]} { 
+set count(repeat:$host:$chan:flood) 0 
+}
+
+if {![info exists count(repeat:$host:$chan)]} { 
+set count(repeat:$host:$chan) 0 
+}
+
+incr count(repeat:$host:$chan:flood)
+utimer $time [list unset count(repeat:$host:$chan:flood)]
+
+if {$count(repeat:$host:$chan:flood) >= $number} {
+if {$black(antifloodchantype) == "0"} { set count(repeat:$host:$chan) 2 } 
+incr count(repeat:$host:$chan)
+if {$count(repeat:$host:$chan) == 1} {
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $nick :$reason"
+}
+if {$count(repeat:$host:$chan) >= 2} {
+blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
+unset count(repeat:$host:$chan)
+}
+}
+}
+}
+
+proc antifloodchan:protect:me {nick host hand chan keyword arg} {
+antirepeat:protect $nick $host $hand $chan $arg
+}
+
+################################# reban ################################
+
+proc rebanpublic {nick host hand chan} {
+global black
+if {[channel get $chan xban]} {
+set host "$nick![getchanhost $nick $chan]"
+set getxtime [channel get $chan xbantime]
+set getxlevel [channel get $chan xbanlevel]
+if {$getxlevel == "0"} { set getxlevel "100" } 
+if {$getxtime == "0"} { set getxtime "1" }
+foreach ban [banlist $chan] {
+set reason "[lindex $ban 1]"
+if {[string match -nocase [string tolower [lindex $ban 0]] $host]} {
+putquick "PRIVMSG $black(chanserv) :ban $chan [lindex $ban 0] $getxtime $getxlevel $reason"
+}
+}
+}
+}
+
+################################# XTOOLS ################################
+
+proc toolspublic {chan type} {
+global botnick black
+if {![channel get $chan xtools]} {
+return 0
+}
+if {$type == "op"} {
+if  {![onchan "$black(chanserv)" $chan] && ![botisop $chan]} {
+return 0
+}
+putquick "PRIVMSG $black(chanserv) :unban $chan $botnick"
+putquick "PRIVMSG $black(chanserv) :op $chan $botnick"
+return 0
+}
+if {$type == "unban"} {
+putquick "PRIVMSG $black(chanserv) :unban $chan $botnick"
+return 0
+}
+if {$type == "invite" || $type == "limit"} {
+putquick "PRIVMSG $black(chanserv) :invite $chan $botnick"
+return 0
+}
+}
+
+
+################################# Clone Scan ###################################
+
+
+
+proc scannerpublic {nick host hand chan arg} {
+global black count
+set c [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+scanner:process $nick $host $hand $chan $chan1
+}
+
+proc scanner:process {nick host hand chan chan1} {
+global botnick black
+array set clones [list]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 clonescan.4 none
+foreach user [chanlist $chan] {
+set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
+if {![string match "*.undernet.org*" $host]} {
+if {!($black(maxclone) >= "2")} { return 0 }
+if {![info exists c($host:$chan)]} {
+set c($host:$chan) 0
+}
+set c($host:$chan) [expr $c($host:$chan) +1]
+lappend clones($user) $host
+if {$c($host:$chan) >= $black(maxclone)} {
+foreach clon [lsort -unique [array names clones]] {
+set hosts [string tolower [lindex [split [getchanhost $clon $chan] @] 1]]
+if {$host == $hosts} {
+lappend clona($host) [join $clon " , "]
+} 
+}
+blacktools:tell $nick $host $hand $chan $chan1 clonescan.1 "$c($host:$chan) $host [lsort -unique $clona($host)]"
+}
+utimer 3 [list blacktools:tell $nick $host $hand $chan $chan1 clonescan.2 none]
+}
+} 
+}
+
+proc clonescanner {minute hour day month year} {
+global black botnick
+foreach chan [channels] {
+set replace(%chan%) $chan
+if {[channel get $chan clonescan]} {
+putlog "Scaning for clones on $chan.."
+foreach user [chanlist $chan] {
+set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
+set replace(%host%) $host
+if {![info exists c($host:$chan)]} {
+set c($host:$chan) 0
+}
+array set clones [list]
+if {![string match "*.undernet.org*" $host]} {
+if {!($black(maxclone) >= "2")} { return 0 }
+set c($host:$chan) [expr $c($host:$chan) +1]
+lappend clones($user) $host
+if {$c($host:$chan) >= $black(maxclone)} {
+foreach clon [array names clones] {
+set hosts [string tolower [lindex [split [getchanhost $clon $chan] @] 1]]
+if {$host == $hosts} {
+lappend clona($host) [join $clon " , "]
+} 
+}
+set replace(%num%) $c($host:$chan)
+set replace(%clone%) [lsort -unique $clona($host)]
+if {$black(what) == "0"} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+putserv "NOTICE @$chan :[string map [array get replace] $black(say.$getlang.clonescan.3)]"
+}
+if {$black(what) == "1"} {
+set banmask *!*@[lindex [split $host @] 1]
+set reason [string map [array get replace] $black(reason)]
+blacktools:banner:2 $banmask $botnick $chan $reason $black(clonebtime)
+}
+}
+}
+}
+}
+}
+}
+
+
+
+############################# Topic refresh #########################
+
+proc refreshpublic {nick host hand chan arg} {
+global botnick black
+set thetopic [topic $chan]
+puthelp "TOPIC $chan :$black(topics)"
+puthelp "TOPIC $chan :$thetopic"
+}
+
+
+proc times_topic {} {
+ global black
+foreach chan [channels] {
+if {[channel get $chan topicrefresh] } {
+set thetopic [topic $chan]
+   puthelp "TOPIC $chan :$black(topics)"
+   puthelp "TOPIC $chan :$thetopic"
+
+}
+}
+timer $black(topic_time) times_topic
+ return 1
+}
+
+
+
+################################ count ####################################
+
+proc countpublic {nick host hand chan arg} {
+global black
+set type 0
+set chan1 "$chan"
+set why [lindex [split $arg] 0]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+}
+count:process $nick $host $hand $chan $chan1 $why $type
+}
+
+
+proc count:process {nick host hand chan chan1 why type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 count.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 count.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 count.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 count.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+if { [channel get $chan count] } { set countstats "on" } else { set countstats "off"}
+if {($countstats == "on") && ($why == "on")} { blacktools:tell $nick $host $hand $chan $chan1 count.5 none
+return 0
+}
+if {($countstats == "off") && ($why == "off")} { blacktools:tell $nick $host $hand $chan $chan1 count.6 none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|display|reset)} $why tmp counter]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $counter {
+
+on {
+channel set $chan +count
+blacktools:tell $nick $host $hand $chan $chan1 count.7 none
+}
+
+off {
+channel set $chan -count
+blacktools:tell $nick $host $hand $chan $chan1 count.8 none
+}
+
+display {
+set stats [channel get $chan countnumber]
+blacktools:tell $nick $host $hand $chan $chan1 count.9 $stats
+}
+
+reset {
+channel set $chan countnumber 0
+blacktools:tell $nick $host $hand $chan $chan1 count.10 none
+
+}
+} 
+} 
+}
+
+
+proc countpublic:join {nick host hand chan} {
+global black
+if {[isbotnick $nick]} { return 0}
+if {[channel get $chan count]} {
+set stats [channel get $chan countnumber]
+set counting [expr $stats +1]
+channel set $chan countnumber $counting
+set replace(%num%) $counting
+set replace(%chan%) $chan
+set countmes [channel get $chan count-message]
+if {$countmes == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set countmessage [string map [array get replace] $black(say.$getlang.count.11)]
+}
+putquick "NOTICE $nick :$countmessage"
+}
+}
+
+
+############################### Private ##########################
+
+proc privatepublic {nick host hand chan arg} {
+global black
+set type 0
+set chan1 "$chan"
+set why [lindex [split $arg] 0]
+set user [lindex [split $arg] 1]
+set host [lindex [split $arg] 2]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+set user [lindex [split $arg] 2]
+set host [lindex [split $arg] 3]
+}
+private:process $nick $host $hand $chan $chan1 $why $user $host $type
+}
+
+proc private:process {nick host hand chan chan1 why user host type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flags "-|f"
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 private.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 private.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 private.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 private.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $why tmp privat]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $privat {
+on {
+     channel set $chan +private
+blacktools:tell $nick $host $hand $chan $chan1 private.5 none
+}
+
+off {
+     channel set $chan -private
+blacktools:tell $nick $host $hand $chan $chan1 private.6 none
+}
+
+add {
+
+if {[validuser $user]} { 
+chattr $user $flags $chan
+blacktools:tell $nick $host $hand $chan $chan1 private.7 $user
+return 0
+}
+adduser $user $host
+chattr $user $flags $chan
+blacktools:tell $nick $host $hand $chan $chan1 private.8 "$user $host"
+}
+
+
+del {
+
+if {[validuser $user]} {
+chattr $user -|-f $chan
+blacktools:tell $nick $host $hand $chan $chan1 private.9 $user
+} else { blacktools:tell $nick $host $hand $chan $chan1 private.10 $user
+return 0
+}
+}
+
+list {
+set list [userlist $flags $chan]
+blacktools:tell $nick $host $hand $chan $chan1 private.11 $list
+}
+
+}
+}
+}
+
+
+
+proc private:module {nick host hand chan} {
+global black botnick
+set getreason [channel get $chan private-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.private.12)
+}
+set getbantime [channel get $chan private-bantime]
+if {$getbantime == "0"} { set getbantime $black(privatebantime) }
+set handle [nick2hand $nick]
+set mask "*!*@[lindex [split $host @] 1]"
+if {[channel get $chan private]} {
+if {[matchattr $handle nm|oMASOVf $chan]} { 
+return 0 
+}
+newchanban $chan $mask $botnick $getreason $getbantime
+}
+}
+
+
+############################### BadChan ###########################
+
+proc badchanpublic {nick host hand chan arg} {
+global black
+set why [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set bdchan [join [lindex [split $arg] 1]]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+set bdchan [join [lindex [split $arg] 2]]
+}
+badchan:process $nick $host $hand $chan $chan1 $why $bdchan $type
+}
+
+proc badchan:process {nick host hand chan chan1 why bdchan type} {
+global botnick black
+set flag "antibadchan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/badchan($chan).txt"
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 badchan.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 badchan.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 badchan.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 badchan.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $why tmp bc]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $bc {
+on {
+channel set $chan +$flag
+blacktools:tell $nick $host $hand $chan $chan1 badchan.5 none
+}
+off {
+channel set $chan -$flag
+blacktools:tell $nick $host $hand $chan $chan1 badchan.6 none
+
+}
+
+add {
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $bdchan
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 badchan.7 $bdchan
+}
+
+list {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set dir "logs/badchan($chan).txt"
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 badchan.8 none
+return 0
+}
+foreach cc $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 badchan.9 none
+blacktools:tell $nick $host $hand $chan $chan1 badchan.10 "$i. $cc"
+}
+}
+
+del {
+if {![regexp {^[0-9]} $bdchan]} {
+blacktools:tell $nick $host $hand $chan $chan1 badchan.11 none
+return 0
+}
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"] 
+set i [expr $bdchan - 1]
+set delete [lreplace $lines $i $i]
+set file [open $dir "w"]
+puts $file [join $delete "\n"]
+close $file
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+blacktools:tell $nick $host $hand $chan $chan1 badchan.12 $bdchan
+blacktools:tell $nick $host $hand $chan $chan1 badchan.13 none
+}
+
+
+}
+}
+}
+
+
+
+proc badchanpublic:join {nick host hand chan} {
+global black
+set handle [nick2hand $nick]
+set ::ccchan $chan
+if {![validchan $chan]} {
+return 0
+}
+if {[matchattr $handle nm|MASoOVv $chan]} { return 0 }
+if {![botisop $chan]} { return 0 }
+if {[isbotnick $nick]} { return 0 }
+if {[channel get $chan antibadchan]} {
+if {[onchan $nick $chan]} {
+utimer 5 [list putquick "WHOIS $nick $nick"]
+bind RAW - 319 badchanpublic:ban
+}
+}
+}
+
+proc badchanpublic:ban {from keyword arguments } {
+global botnick black
+set chan $::ccchan
+set arguments [join $arguments]
+set nick [string tolower [lindex $arguments 1]] 
+set replace(%chan%) $chan
+set replace(%nick%) $nick
+set handle [nick2hand $nick]
+set args [join $arguments]
+set getreason [channel get $chan badchan-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.badchan.14)
+}
+set getbantime [channel get $chan badchan-bantime]
+if {$getbantime == "0"} { set getbantime $black(badcbantime) }
+if {[channel get $chan antibadchan]} {
+if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
+set protectreason [string map [array get replace] $getreason]
+set reason "$protectreason"
+set channels [string tolower [lrange $args 2 end]]
+set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1]
+set dir "logs/badchan($chan).txt"
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set bchan [split $w "\n"]
+if {$w == ""} { return 0 }
+foreach badchan $bchan {
+set replace(%bchan%) $badchan
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set protectmsg [string map [array get replace] $black(say.$getlang.badchan.15)]
+foreach c $channels {
+set ch [string trimleft $c ":@+"]
+if {[string match -nocase $badchan $ch]} {
+blacktools:banner:2 $banmask $botnick $chan $getreason $getbantime
+putserv "PRIVMSG $nick :$protectmsg"
+}
+}
+}
+}
+}
+
+
+################################# Antitake ##################################
+
+
+proc dontdeoppublic {nick host hand chan args} {
+global black botnick
+set dnick [lindex $args 1]
+set handle [nick2hand $nick]
+if {[channel get $chan dontdeop] } {
+if {[string match -nocase $nick $botnick]} {
+return 0
+}
+if {![matchattr $handle $black(exceptflags) $chan]} {
+putquick "MODE $chan -o $nick"
+putquick "MODE $chan +o $dnick"
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+puthelp "NOTICE $nick :$black(say.$getlang.antitake.1)"
+}
+}
+}
+ 
+proc dontoppublic {nick host hand chan args} {
+global black botnick
+set onick [lindex $args 1]
+set handle [nick2hand $nick]
+if {[channel get $chan dontop]} {
+if {[string match -nocase $nick $botnick]} { 
+return 0
+}
+if {[string match -nocase $onick $botnick]} {
+return 0
+}
+if {![matchattr $handle $black(exceptflags) $chan]} {
+putquick "MODE $chan -o $nick"
+putquick "MODE $chan -o $onick"
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+puthelp "NOTICE $nick :$black(say.$getlang.antitake.2)"
+}
+}
+}
+
+
+################################# Anunt ###################################
+
+
+proc anuntpublic {nick host hand chan arg} {
+global black
+set type 0
+set chan1 "$chan"
+set who [lindex [split $arg] 0]
+set message [join [lrange [split $arg] 1 end]]
+set number [lindex [split $arg] 1]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 1]
+set message [join [lrange [split $arg] 2 end]]
+set number [lindex [split $arg] 2]
+}
+anunt:process $nick $host $hand $chan $chan1 $who $message $number $type
+}
+
+proc anunt:process {nick host hand chan chan1 who message number type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/anunt($chan).txt"
+if {[matchattr $hand nm|- $chan]} {
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 anunt.1 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 anunt.2 none
+return 0
+}
+}
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 anunt.3 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 anunt.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
+    switch $a {
+on {
+channel set $chan +anunt
+blacktools:tell $nick $host $hand $chan $chan1 anunt.5 none
+}
+
+off {
+channel set $chan -anunt
+blacktools:tell $nick $host $hand $chan $chan1 anunt.6 none
+}
+
+add {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $message
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 anunt.7 none
+blacktools:tell $nick $host $hand $chan $chan1 anunt.8 $message
+}
+
+list {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 anunt.9 none
+return 0
+}
+foreach mes $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 anunt.10 none
+blacktools:tell $nick $host $hand $chan $chan1 anunt.8 "$i. $mes"
+}
+}
+
+del {
+
+if {![regexp {^[0-9]} $number]} {
+blacktools:tell $nick $host $hand $chan $chan1 anunt.11 none
+return 0
+}
+
+set dir "logs/anunt($chan).txt"
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set i [expr $number - 1]
+set delete [lreplace $lines $i $i]
+set files [open $dir "w"]
+puts $files [join $delete "\n"]
+close $files
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 anunt.12 $number
+blacktools:tell $nick $host $hand $chan $chan1 anunt.13 none
+}
+
+}
+}
+}
+
+proc anuntpublic:show {} {
+global black count
+foreach chan [channels] {
+if {[validchan $chan]} {
+set dir "logs/anunt($chan).txt"
+if {[channel get $chan anunt]} {
+if {![info exists count(anunt:$chan)]} {
+set count(anunt:$chan) 0
+}
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set line [lindex $lines $count(anunt:$chan)]
+incr count(anunt:$chan)
+if {$line == ""} {
+unset count(anunt:$chan)
+}
+if {$black(anunthow) == "1"} {
+puthelp "PRIVMSG $chan :\001ACTION $line\001"
+} else { 
+puthelp "PRIVMSG $chan :$line"
+}
+}
+}
+}
+timer $black(anunttime) anuntpublic:show
+return 1
+}
+
+################################## TimeBan #############################
+
+
+proc timeban:module {nick host hand chan} {
+global botnick
+if {[channel get $chan showtime]} {
+set host "$nick![getchanhost $nick $chan]"
+foreach ban [banlist $chan] {
+if {[string match -nocase [string tolower [lindex $ban 0]] $host]} {
+set reason "[lindex $ban 1]"
+set bantime "[lindex $ban 2]"
+set totalday [expr $bantime - [unixtime]]
+if {$totalday >= 86400} {
+set daysfull [expr $totalday/86400]
+set days [expr int($daysfull)]
+set dayssub [expr 86400*$days]
+set totalhour [expr $totalday - $dayssub]
+}
+if {$totalday < 86400} {
+set totalhour $totalday
+set days 0
+}
+if {$totalhour >= 3600} {
+set hoursfull [expr $totalhour/3600]
+set hours [expr int($hoursfull)]
+set hourssub [expr 3600*$hours]
+set totalmin [expr $totalhour - $hourssub]
+}
+if {$totalhour < 3600} {
+set totalmin $totalhour
+set hours 0
+}
+if {$totalmin >= 60} {
+set minsfull [expr $totalmin/60]
+set mins [expr int($minsfull)]
+}
+if {$totalmin < 60} {
+set mins 0
+}
+if {$days < 1} {set zi "0 zile, "} elseif {$days == 1} {set zi "$days zi, "} {set zi "$days zile, "}
+if {$hours < 1} {set ora "0"} else { set ora "$hours" }
+set minut "$mins"
+set re "$reason Expire :$zi$ora:$minut"
+if {[lindex $ban 2] == 0} {
+set expire "Expire :Perm Ban"
+set re "$reason $expire"
+}
+putquick "MODE $chan +b [lindex $ban 0]"
+putquick "KICK $chan $nick :$re"
+}
+}
+}
+}
+
+
+
+############################### AutoBroadcast ############################
+
+proc broadcastpublic:module {nick host hand chan arg} {
+global black sdir
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set chan1 "$chan"
+set who [lindex [split $arg] 0]
+set message [join [lrange [split $arg] 1 end]]
+set number [lindex [split $arg] 1]
+if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.1 none
+return 0
+}
+broadcast:process $nick $host $hand $chan $chan1 $who $message $number
+}
+
+
+
+
+proc broadcast:process {nick host hand chan chan1 who message number} {
+global botnick black sdir
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/broadcast.txt"
+set lin 0
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
+    switch $a {
+
+on {
+set type "broadcastpublic:show ON"
+foreach tmr [timers] {
+if {[string match "*broadcastpublic:show*" [join [lindex $tmr 1]]]} {
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.3 none
+return 0
+}
+}
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.4 none
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set who [lindex  [split $line] 0]
+set stats [lindex [split $line] 1]
+if {[string match -nocase "broadcastpublic:show" $who]} {
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $sdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $sdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $sdir "w"]
+close $files
+}
+set file [open $sdir "a"]
+puts $file "$type"
+close $file
+timer $black(bttime) broadcastpublic:show
+}
+
+off {
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.5 none
+set type "broadcastpublic:show OFF"
+foreach tmr [timers] {
+if {[string match -nocase "*broadcastpublic:show*" [join [lindex $tmr 1]]]} {
+killtimer [lindex $tmr 2]
+}
+}
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set who [lindex  [split $line] 0]
+set stats [lindex [split $line] 1]
+if {[string match -nocase "broadcastpublic:show" $who]} {
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $sdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $sdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $sdir "w"]
+close $files
+}
+set file [open $sdir "a"]
+puts $file "$type"
+close $file
+}
+
+add {
+if {[file exists $dir] == 0} {
+set file [open $dir a]
+close $file
+}
+set file [open $dir a]
+puts $file $message
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.6 none
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.7 $message
+}
+
+list {
+if {[file exists $dir] == 0} {
+set file [open $dir a]
+close $file
+}
+set dir "logs/broadcast.txt"
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.8 none
+return 0
+}
+foreach mes $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.9 none
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.7 "$i. $mes"
+}
+}
+
+del {
+
+if {![regexp {^[0-9]} $number]} {
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.10 none
+return 0
+}
+
+set dir "logs/broadcast.txt"
+if {[file exists $dir] == 0} {
+set file [open $dir a]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set i [expr $number - 1]
+set delete [lreplace $lines $i $i]
+set files [open $dir "w"]
+puts $files [join $delete "\n"]
+close $files
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.11 $number
+}
+
+}
+}
+}
+
+
+proc broadcastpublic:show {} {
+global black
+set dir "logs/broadcast.txt"
+if {[file exists $dir] == 0} {
+set file [open $dir a]
+close $file
+}
+foreach chan [channels] {
+if {[isdynamic $chan] && (![channel get $chan silent])} {
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set numlines [llength $lines]
+set random [rand $numlines]
+set randomline [lindex $lines $random]
+if {$black(bthow) == "1"} {
+puthelp "PRIVMSG $chan :\001ACTION 1(BROADCAST) $randomline\001"
+} else { 
+puthelp "PRIVMSG $chan :1(BROADCAST) $randomline"
+}
+}
+}
+timer $black(bttime) broadcastpublic:show
+return 1
+}
+
+
+################################# Limit ###################################
+
+
+proc limitpublic {nick host hand chan arg} {
+global black 
+set why [lindex [split $arg] 0]
+set lm [lindex [split $arg] 1]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+set lm [lindex [split $arg] 2]
+}
+limit:process $nick $host $hand $chan $chan1 $why $lm $type
+}
+
+proc limit:process {nick host hand chan chan1  why lm type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 limit.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 limit.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 limit.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 limit.4 none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+set usersnum [llength [chanlist $chan]]
+set setnum [channel get $chan blacklimit]
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|set|on|off)} $why tmp lmt]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $lmt {
+
+on {
+set limt [channel get $chan blacklimit]
+channel set $chan +limit
+blacktools:tell $nick $host $hand $chan $chan1 limit.5 none
+if {($limt != "0")} {
+putserv "MODE $chan +l [expr $usersnum + $limt]"
+} else {
+putserv "MODE $chan +l [expr $usersnum + 10]"
+channel set $chan blacklimit 10
+blacktools:tell $nick $host $hand $chan $chan1 limit.6 none
+}
+}
+off {
+channel set $chan -limit
+blacktools:tell $nick $host $hand $chan $chan1 limit.7 none
+putquick "MODE $chan -l"
+}
+
+set {
+if {![regexp {^[0-9]} $lm]} {
+blacktools:tell $nick $host $hand $chan $chan1 limit.8 none
+return 0
+}
+if {$lm < 2} { blacktools:tell $nick $host $hand $chan $chan1 limit.9 none
+channel set $chan blacklimit 2
+putserv "MODE $chan +l [expr $usersnum + $lm]"
+blacktools:tell $nick $host $hand $chan $chan1 limit.10 none
+return 0
+}
+if {$lm > 500} { blacktools:tell $nick $host $hand $chan $chan1 limit.11 none
+return 0
+}
+
+channel set $chan blacklimit $lm
+blacktools:tell $nick $host $hand $chan $chan1 limit.12 $lm
+putserv "MODE $chan +l [expr $usersnum + $lm]"
+}
+
+}
+}
+}
+
+proc limit:timer {min hour day mon year} {
+global black
+foreach chan [channels] {
+if {[channel get $chan limit]} {
+set usersnum [llength [chanlist $chan]]
+set setnum [channel get $chan blacklimit]
+if {$setnum == "0"} { set setnum "10" }
+if {![botisop $chan]} { return 0 }
+set chanmode [getchanmode $chan]
+if {[string match "*l*" "$chanmode"]} {
+set lim [lindex $chanmode 1]
+} else { set lim "0" }
+if {$usersnum > $lim} { set dif [expr $usersnum - $lim] } else { set dif [expr $lim - $usersnum] }
+if {($dif >= $setnum) || ($dif <= $setnum)} {
+putserv "MODE $chan +l [expr $usersnum + $setnum]"
+}
+
+}
+}
+}
+
+
+
+
+
+################################# Topic ###################################
+
+proc topicpublic {nick host hand chan arg} {
+global black
+set nop [lindex [split $arg] 0]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set type 0
+set chan1 "$chan"
+set tp [join [lrange [split $arg] 1 end]]
+set number [lindex [split $arg] 1]
+if {[regexp {^[\\+!#&]} $nop] && [matchattr $hand nm|- $chan]} {
+set chan "$nop"
+set nop [lindex [split $arg] 1]
+set tp [join [lrange [split $arg] 2 end]]
+set number [lindex [split $arg] 2]
+}
+topic:process $nick $host $hand $chan $chan1 $nop $tp $number $type
+}
+
+
+
+proc topic:process {nick host hand chan chan1 nop tp number type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/topic($chan).txt"
+if {[matchattr $hand nm|- $chan]} {
+if {($nop == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 topic.1 none
+return 0
+}
+if {($nop == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 topic.2 none
+return 0
+}
+}
+if {($nop == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 topic.3 none
+return 0
+}
+if {($nop == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 topic.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+ if {([regexp -nocase -- {(#[0-9]+|save|list|add|del|set)} $nop tmp topc]) && (![regexp -nocase -- {\S#} $nop])} {
+    switch $topc {
+
+ save {
+set t [join [topic $chan]]
+if {$t == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.5 none
+return 0
+}
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $t
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 topic.6 none
+}
+
+add {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $tp
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 topic.7 none
+}
+
+list {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.8 none
+return 0
+}
+foreach ts $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 topic.9 none
+blacktools:tell $nick $host $hand $chan $chan1 topic.10 "$i. $ts"
+}
+}
+
+del {
+
+if {![regexp {^[0-9]} $number]} {
+blacktools:tell $nick $host $hand $chan $chan1 topic.11 none
+return 0
+}
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set i [expr $number - 1]
+set delete [lreplace $lines $i $i]
+set files [open $dir "w"]
+puts $files [join $delete "\n"]
+close $files
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+blacktools:tell $nick $host $hand $chan $chan1 topic.12 $number
+}
+
+set {
+if {$number == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.13 none
+return 0
+}
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set num [expr $number - 1]
+set line [lindex $lines $num]
+putquick "TOPIC $chan :Setting topic.."
+puthelp "TOPIC $chan :$line"
+blacktools:tell $nick $host $hand $chan $chan1 topic.14 $number
+}
+
+}
+}
+}
+
+
+################################# Seen ###################################
+
+
+proc seen:save:2 {nick chan host type time staytimer reason} {
+global seendir
+set lin 0
+set j 0
+set who "$type $chan $nick $host $time $staytimer $reason"
+set file [open $seendir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set userentry [lindex  [split $line] 2]
+set chanentry [lindex [split $line] 1]
+if {[string equal -nocase $userentry $nick] && [string match -nocase $chanentry $chan]} {
+set joined [lindex [split $line] 0]
+if {$joined == "JOIN"} {
+set j [lindex [split $line] 4]
+if {![regexp {^[0-9]} $j] || ($j == "")} {
+set j 0
+}
+}
+set who "$type $chan $nick $host $time $j $reason"
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $seendir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $seendir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $seendir "w"]
+close $files
+}
+set file [open $seendir "a"]
+puts $file "$who"
+close $file
+}
+
+proc seen:save:1 {nick chan host type time staytimer} {
+global seendir
+set lin 0
+set who "$type $chan $nick $host $time $staytimer"
+set file [open $seendir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set userentry [lindex  [split $line] 2]
+set chanentry [lindex [split $line] 1]
+if {[string equal -nocase $userentry $nick] && [string match -nocase $chanentry $chan]} {
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $seendir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $seendir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $seendir "w"]
+close $files
+}
+set file [open $seendir "a"]
+puts $file "$who"
+close $file
+}
+
+
+proc seen:join {nick host hand chan} {
+global seendir botnick
+if {![channel get $chan seen]} {
+return 0
+}
+if {[isbotnick $nick]} { return 0 }
+set time [unixtime]
+set host "*!$host"
+set type "JOIN"
+set staytimer "0"
+seen:save:1 $nick $chan $host $type $time $staytimer
+}
+
+
+proc seen:part {nick host hand chan arg} {
+global seendir botnick
+if {![validchan $chan]} { return 0 }
+if {![channel get $chan seen]} {
+return 0
+}
+set time [unixtime]
+set staytimer "0"
+set type "PART"
+set reason [join [lrange [split $arg] 0 end]]
+if {$reason == ""} { set reason "No Reason" }
+set host "*!$host"
+if {[isbotnick $nick]} { return 0 }
+seen:save:2 $nick $chan $host $type $time $staytimer $reason
+}
+
+proc seen:sign {nick host hand chan arg} {
+global seendir botnick
+if {![validchan $chan]} { return 0 }
+if {![channel get $chan seen]} {
+return 0
+}
+set time [unixtime]
+set staytimer "0"
+set type "SIGN"
+set host "*!$host"
+set reason [join [lrange [split $arg] 0 end]]
+if {$reason == ""} { set reason "No Reason" }
+if {[isbotnick $nick]} { return 0 }
+seen:save:2 $nick $chan $host $type $time $staytimer $reason
+}
+
+
+proc seen:kick {nick host hand chan kicked reason} {
+global seendir botnick
+if {![validchan $chan]} { return 0 }
+if {![channel get $chan seen]} {
+return 0
+}
+set lin 0
+set j 0
+set time [unixtime]
+set hosted [getchanhost $kicked $chan]
+set hosted "*!$hosted"
+set reason [join [lrange [split $reason] 1 end]]
+if {$reason == ""} { set reason "No Reason" }
+if {[isbotnick $kicked]} { return 0 }
+set who "KICK $chan $kicked $hosted $time 0 $reason"
+set file [open $seendir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set userentry [lindex [split $line] 2]
+set chanentry [lindex [split $line] 1]
+if {[string equal -nocase $kicked $userentry] && [string match -nocase $chanentry $chan]} {
+set joined [lindex [split $line] 0]
+if {$joined == "JOIN"} {
+set j [lindex [split $line] 4]
+if {![regexp {^[0-9]} $j] || ($j == "")} {
+set j 0
+}
+}
+set who "KICK $chan $kicked $hosted $time $j $reason"
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $seendir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $seendir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $seendir "w"]
+close $files
+}
+set file [open $seendir "a"]
+puts $file "$who"
+close $file
+}
+
+
+proc seen:split {nick host hand chan args} {
+global seendir botnick
+if {![validchan $chan]} { return 0 }
+if {![channel get $chan seen]} {
+return 0
+}
+set time [unixtime]
+set staytimer "0"
+set type "SPLIT"
+set host "*!$host"
+set reason [join [lrange [split $args] 0 end]]
+if {[isbotnick $nick]} { return 0 }
+seen:save:2 $nick $chan $host $type $time $staytimer $reason
+}
+
+
+proc seen:changenick {nick host hand chan newnick} {
+global seendir botnick
+if {![channel get $chan seen]} {
+return 0
+}
+set time [unixtime]
+set host "*!$host"
+set staytimer "0"
+set type "NICKCHANGE"
+if {[isbotnick $nick]} { return 0 }
+seen:save:2 $nick $chan $host $type $time $staytimer $newnick
+}
+
+proc seenpublic {nick host hand chan arg} {
+global black
+if {![channel get $chan seen]} {
+return 0
+}
+set type 0
+set chan1 "$chan"
+set what [lindex [split $arg] 0]
+if {[regexp {^[\\+!#&]} $what] && [matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set chan "$what"
+set what [lindex [split $arg] 1]
+}
+seen:process $nick $host $hand $chan $chan1 $what $type
+}
+
+
+
+proc seen:process {nick host hand chan chan1 what type} {
+global seendir black count botnick
+set number [scan $black(seenflood) %\[^:\]]
+set timer [scan $black(seenflood) %*\[^:\]:%s]
+set i 0
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($what == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.1 none
+return 0
+}
+if {($what == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.2 none
+return 0
+}
+}
+if {($what == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.3 none
+return 0
+}
+if {($what == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+foreach tmr [utimers] {
+if {[string match "*count(flood:$host:$chan)*" [join [lindex $tmr 1]]]} {
+killutimer [lindex $tmr 2]
+}
+}
+if {![info exists count(flood:$host:$chan)]} { 
+set count(flood:$host:$chan) 0 
+}
+incr count(flood:$host:$chan)
+utimer $timer [list unset count(flood:$host:$chan)]
+
+if {$count(flood:$host:$chan) == "$number"} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.5 none
+return 0
+}
+
+if {[string match -nocase $what $nick]} { blacktools:tell $nick $host $hand $chan $chan1 seen.6 $nick
+return 0
+}
+if {[onchan $what $chan]} { blacktools:tell $nick $host $hand $chan $chan1 seen.7 $what
+return 0
+}
+
+set file [open $seendir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set userentry [lindex [split $line] 2]
+set chanentry [lindex [split $line] 1]
+set host [lindex [split $line] 3]
+set tm [lindex [split $line] 4]
+set jointime [lindex [split $line] 5]
+set newnick [lindex [split $line] 6]
+set reason [lrange [split $line] 6 end]
+if {!([regexp {^[0-9]} $jointime]) || ($jointime == "")} {
+set jointime 0
+set reason [lrange [split $line] 5 end]
+}
+if {$reason == ""} { set reason "No Reason" }
+set output [duration [expr [unixtime] - $tm]]
+set staytime [expr [unixtime] - $jointime]
+set staytime [duration [expr $tm - $jointime]]
+
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+
+set date [clock format $tm -format %d.%m.]
+set hour [clock format $tm -format %H:%M]
+
+if {$what == "*!*@*"} { return 0 }
+if {([string equal -nocase $userentry $what] || [string match -nocase $what $userentry] || [string match -nocase $what $host]) && [string match -nocase $chanentry $chan]} {
+set i [expr $i +1]
+set host [string trim $host "*!~"]
+if {$i < 6} {
+lappend entry $userentry
+}
+set seenfound 1
+set entry [lsort -unique $entry]
+set replace(%entry%) "[join $entry ","]"
+set replace(%host%) "$host"
+set replace(%output%) "$output"
+set replace(%date%) "($date $hour)"
+set replace(%newnick%) "$newnick"
+set replace(%userentry%) "$userentry"
+set replace(%chan%) "$chan"
+set replace(%reason%) "$reason"
+set replace(%staytime%) "$staytime"
+if {$jointime == "0"} { set staymsg "[string map [array get replace] $black(say.$getlang.seen.8)]"
+set replace(%staymsg%) "$staymsg"
+} else {
+ set staymsg "[string map [array get replace] $black(say.$getlang.seen.9)]"
+set replace(%staymsg%) "$staymsg"
+}
+if {[lindex [split $line] 0] == "PART"} {
+set reply "[string map [array get replace] $black(say.$getlang.seen.12)]"
+}
+if {[lindex [split $line] 0] == "SIGN"} {
+set reply "[string map [array get replace] $black(say.$getlang.seen.13)]"
+}
+if {[lindex [split $line] 0] == "JOIN"} {
+if {[onchan $userentry $chan]} { 
+set nowon "[string map [array get replace] $black(say.$getlang.seen.10)]"
+set replace(%nowon%) "$nowon"
+} else { 
+set nowon "[string map [array get replace] $black(say.$getlang.seen.11)]"
+set replace(%nowon%) "$nowon"
+}
+set reply "[string map [array get replace] $black(say.$getlang.seen.14)]"
+}
+if {[lindex [split $line] 0] == "SPLIT"} {
+set reply "[string map [array get replace] $black(say.$getlang.seen.15)]"
+}
+if {[lindex [split $line] 0] == "KICK"} {
+set reply "[string map [array get replace] $black(say.$getlang.seen.16)]"
+}
+if {[lindex [split $line] 0] == "NICKCHANGE"} {
+if {[onchan $newnick $chan]} { 
+set nowon "[string map [array get replace] $black(say.$getlang.seen.10)]"
+set replace(%nowon%) "$nowon"
+} else {
+set nowon "[string map [array get replace] $black(say.$getlang.seen.11)]"
+set replace(%nowon%) "$nowon"
+}
+set reply "[string map [array get replace] $black(say.$getlang.seen.17)]"
+}
+}
+
+if {$black(seenmet) == "1"} {
+set method "NOTICE"
+set onwho "$nick"
+} else { 
+set method "PRIVMSG"
+set onwho "$chan1"
+}
+}
+if {[info exists reply]} {
+puthelp "$method $onwho :$reply"
+}
+
+if {![info exists seenfound]} {
+blacktools:tell $nick $host $hand $chan $chan1 seen.18 $what
+}
+}
+
+############################### Greet #####################################
+
+
+proc greetpublic {nick host hand chan arg} {
+global black
+set who [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set greet [join [lrange [split $arg] 1 end]]
+set number [lindex [split $arg] 1]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 1]
+set greet [join [lrange [split $arg] 2 end]]
+set number [lindex [split $arg] 2]
+}
+greet:process $who $greet $number $type $nick $host $hand $chan $chan1
+}
+
+proc greet:process {who greet number type nick host hand chan chan1} {
+global botnick black
+set dir "logs/greet($chan).txt"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 greet.1 none
+blacktools:tell $nick $host $hand $chan $chan1 greet.2 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 greet.3 none
+blacktools:tell $nick $host $hand $chan $chan1 greet.4 none
+return 0
+}
+}
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 greet.5 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 greet.6 none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
+    switch $a {
+on {
+channel set $chan +greet
+blacktools:tell $nick $host $hand $chan $chan1 greet.7 none
+}
+
+off {
+channel set $chan -greet
+blacktools:tell $nick $host $hand $chan $chan1 greet.8 none
+}
+
+add {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $greet
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 greet.9 none
+blacktools:tell $nick $host $hand $chan $chan1 greet.10 $greet
+}
+
+list {
+
+if {[file exists $dir] == 0} {
+set file [open $dir a]
+close $file
+}
+set dir "logs/greet($chan).txt"
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 greet.11 none
+return 0
+}
+foreach mes $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 greet.12 none
+blacktools:tell $nick $host $hand $chan $chan1 greet.10 "$i. $mes"
+}
+}
+
+del {
+
+if {![regexp {^[0-9]} $number]} {
+blacktools:tell $nick $host $hand $chan $chan1 greet.13 none
+return 0
+}
+
+set dir "logs/greet($chan).txt"
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set i [expr $number - 1]
+set delete [lreplace $lines $i $i]
+set files [open $dir "w"]
+puts $files [join $delete "\n"]
+close $files
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 greet.14 $number
+blacktools:tell $nick $host $hand $chan $chan1 greet.15 none
+}
+
+}
+}
+}
+
+
+proc greetpublic:join {nick host hand chan} {
+global black
+set dir "logs/greet($chan).txt"
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan greet]} {
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+if {[isbotnick $nick]} { return 0 }
+set replace(%nick%) $nick
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} { return 0 }
+set lines [split $data "\n"]
+set numlines [llength $lines]
+set random [rand $numlines]
+set randomline [lindex $lines $random]
+set message [string map [array get replace] $randomline]
+if {$black(howgreet) == "1"} {
+puthelp "NOTICE $nick :$message"
+} else { puthelp "PRIVMSG $nick :$message" }
+}
+}
+
+################################ Leave ###################################
+
+proc leave:process {who leave number type nick host hand chan chan1} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/leave($chan).txt"
+if {[matchattr $hand nm|- $chan]} {
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 leave.1 none
+blacktools:tell $nick $host $hand $chan $chan1 leave.2 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 leave.3 none
+blacktools:tell $nick $host $hand $chan $chan1 leave.4 none
+return 0
+}
+}
+if {($who == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 leave.5 none
+return 0
+}
+if {($who == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 leave.6 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
+    switch $a {
+on {
+channel set $chan +leave
+blacktools:tell $nick $host $hand $chan $chan1 leave.7 none
+}
+
+off {
+channel set $chan -leave
+blacktools:tell $nick $host $hand $chan $chan1 leave.8 none
+}
+
+add {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set file [open $dir a]
+puts $file $leave
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 leave.9 none
+blacktools:tell $nick $host $hand $chan $chan1 leave.10 $leave
+}
+
+list {
+
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+set dir "logs/leave($chan).txt"
+set file [open $dir "r"]
+set w [read -nonewline $file]
+close $file
+set data [split $w "\n"]
+set i 0
+if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 leave.11 none
+return 0
+}
+foreach mes $data {
+set i [expr $i +1]
+blacktools:tell $nick $host $hand $chan $chan1 leave.12 none
+blacktools:tell $nick $host $hand $chan $chan1 leave.10 "$i. $mes"
+}
+}
+
+del {
+if {![regexp {^[0-9]} $number]} {
+blacktools:tell $nick $host $hand $chan $chan1 leave.13 none
+return 0
+}
+
+set dir "logs/leave($chan).txt"
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+set lines [split $data "\n"]
+set i [expr $number - 1]
+set delete [lreplace $lines $i $i]
+set files [open $dir "w"]
+puts $files [join $delete "\n"]
+close $files
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $dir "w"]
+close $files
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 leave.14 $number
+blacktools:tell $nick $host $hand $chan $chan1 leave.15 none
+}
+
+}
+}
+}
+
+
+
+proc leavepublic {nick host hand chan arg} {
+global black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set dir "logs/leave($chan).txt"
+set type 0
+set chan1 "$chan"
+set who [lindex [split $arg] 0]
+set leave [join [lrange [split $arg] 1 end]]
+set number [lindex [split $arg] 1]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 1]
+set leave [join [lrange [split $arg] 2 end]]
+set number [lindex [split $arg] 2]
+}
+leave:process $who $leave $number $type $nick $host $hand $chan $chan1
+}
+
+
+
+proc leavepublic:part {nick host hand chan args} {
+global black
+set dir "logs/leave($chan).txt"
+if {![validchan $chan]} { return 0 }
+if {[channel get $chan leave]} {
+if {[file exists $dir] == 0} {
+set file [open $dir w]
+close $file
+}
+if {[isbotnick $nick]} { return 0 }
+set replace(%nick%) $nick
+set file [open $dir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} { return 0 }
+set lines [split $data "\n"]
+set numlines [llength $lines]
+set random [rand $numlines]
+set randomline [lindex $lines $random]
+set message [string map [array get replace] $randomline]
+if {$black(howleave) == "1"} {
+puthelp "NOTICE $nick :$message"
+} else { puthelp "PRIVMSG $nick :$message" }
+}
+}
+
+################################ Idle ###################################
+
+
+proc antidlepublic {nick host hand chan arg} {
+global black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set type1 0
+set chan1 "$chan"
+set why [lindex [split $arg] 0]
+set type [lindex [split $arg] 1]
+set user [lindex [split $arg] 1]
+set host [lindex [split $arg] 2]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+set type [lindex [split $arg] 2]
+set user [lindex [split $arg] 2]
+set host [lindex [split $arg] 3]
+}
+antidle:process $why $type $type1 $user $host $nick $hand $chan $chan1
+}
+
+proc antidle:process {why type type1 user host nick hand chan chan1} {
+global botnick black
+set flag "-|f"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $user]
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "") && ($type1 == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 idle.1 none
+blacktools:tell $nick $host $hand $chan $chan1 idle.2 none
+return 0
+}
+if {($why == "") && ($type1 == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 idle.3 none
+blacktools:tell $nick $host $hand $chan $chan1 idle.4 none
+return 0
+}
+}
+if {($why == "") && ($type1 == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 idle.5 none
+return 0
+}
+if {($why == "") && ($type1 == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 idle.6 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|op|voice|add|on|off)} $why tmp idler]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $idler {
+on {
+ channel set $chan +antidle
+blacktools:tell $nick $host $hand $chan $chan1 idle.7 none
+}
+off {
+
+ channel set $chan -antidle
+blacktools:tell $nick $host $hand $chan $chan1 idle.8 none
+}
+
+op {
+ if {$type == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.9 none
+return 0
+}
+if {[string match -nocase $type "on"]} {
+if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
+if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
+return 0
+}
+channel set $chan +antididle
+blacktools:tell $nick $host $hand $chan $chan1 idle.11 none
+}
+
+if {[string match -nocase $type "off"]} {
+if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
+if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
+return 0
+}
+channel set $chan -antididle
+blacktools:tell $nick $host $hand $chan $chan1 idle.12 none
+}
+}
+
+voice {
+ if {$type == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.13 none
+return 0
+}
+
+if {[string match -nocase $type "on"]} {
+
+if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
+if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
+return 0
+}
+channel set $chan +antividle
+blacktools:tell $nick $host $hand $chan $chan1 idle.14 none
+}
+
+if {[string match -nocase $type "off"]} {
+if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
+if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
+return 0
+}
+
+channel set $chan -antividle
+blacktools:tell $nick $host $hand $chan $chan1 idle.15 none
+}
+}
+
+add {
+
+if {$user == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.16 none
+return 0
+}
+
+if {(![onchan $user $chan]) && (![validuser $user])} { blacktools:tell $nick $host $hand $chan $chan1 idle.17 $user
+return 0
+}
+
+if {[validuser $user]} { 
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 idle.18 $user
+} else {
+set hosts [getchanhost $user $chan]
+set uhost "*!*@[lindex [split $hosts @] 1]"
+adduser $user $uhost
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 idle.19 "$user $uhost"
+}
+}
+
+}
+}
+}
+
+
+
+proc idlewhoispublic {min hour day mon year} {
+global black botnick
+if {([scan $min %d]+([scan $hour %d]*60)) % $black(idleinterval) == 0} {
+foreach chan [channels] {
+if {[channel get $chan antidle]} {
+foreach user [chanlist $chan] { 
+set user [split $user]
+set handle [nick2hand $user]
+if {[isop $user $chan] || [isvoice $user $chan]} { 
+if {$user != $botnick} { putserv "WHOIS $user $user" }
+} 
+} 
+} 
+}
+}
+
+bind raw - 317 idleprocespublic
+}
+
+proc idleprocespublic {nick int arg} {
+global black
+set nick [string tolower [lindex $arg 1]]
+set handle [nick2hand $nick]
+set idler [string tolower [lindex $arg 2]]
+set minutesidle [expr $idler / 60]
+foreach chan [channels] {
+set replace(%chan%) $chan
+set idlevoicetime [channel get $chan idlevoicemax]
+if {$idlevoicetime == "0"} { set idlevoicetime "$black(idlevoicemax)" }
+set idleoptime [channel get $chan idleopmax]
+if {$idleoptime == "0"} { set idleoptime "$black(idleopmax)" }
+if {[channel get $chan antividle]} {
+if {[isvoice $nick $chan] && ![matchattr $handle -|f $chan]} {
+if {$minutesidle > $idlevoicetime} {
+putserv "MODE $chan -v $nick"
+}
+}
+}
+if {[channel get $chan antididle]} {
+if {[isop $nick $chan] && ![matchattr $handle -|f $chan]} {
+if {$minutesidle > $idleoptime} {
+putserv "MODE $chan -o $nick"
+}
+}
+}
+
+}
+}
+
+
+######################################### AntiBotIdle #############################
+
+
+proc botidlepublic {nick host hand chan arg} {
+global black botnick sdir
+set what [lindex [split $arg] 0]
+set lin 0
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 antibotidle.1 none
+return 0
+}
+botidle:process $nick $host $hand $chan $chan1 $what
+}
+
+proc botidle:process {nick host hand chan chan1 what} {
+global botnick black sdir
+set lin 0
+switch -exact -- [string tolower $what] {
+on {
+set type "antibotidle:module ON"
+foreach tmr [timers] {
+if {[string match "*antibotidle:module*" [join [lindex $tmr 1]]]} {
+blacktools:tell $nick $host $hand $chan $chan1 antibotidle.3 none
+return 0
+}
+}
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set who [lindex  [split $line] 0]
+set stats [lindex [split $line] 1]
+if {[string match -nocase "antibotidle:module" $who]} {
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $sdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $sdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $sdir "w"]
+close $files
+}
+set file [open $sdir "a"]
+puts $file "$type"
+close $file
+blacktools:tell $nick $host $hand $chan $chan1 antibotidle.4 none
+timer $black(noidlemax) antibotidle:module
+}
+
+off {
+blacktools:tell $nick $host $hand $chan $chan1 antibotidle.5 none
+set type "antibotidle:module OFF"
+foreach tmr [timers] {
+if {[string match "*antibotidle:module*" [join [lindex $tmr 1]]]} {
+killtimer [lindex $tmr 2]
+}
+}
+set file [open $sdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1]
+set who [lindex  [split $line] 0]
+set stats [lindex [split $line] 1]
+if {[string match -nocase "antibotidle:module" $who]} {
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $sdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $sdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $sdir "w"]
+close $files
+}
+set file [open $sdir "a"]
+puts $file "$type"
+close $file
+}
+
+}
+}
+
+
+proc antibotidle:module {} {
+global black
+putquick "PRIVMSG $black(noobject) :"
+timer $black(noidlemax) antibotidle:module
+return 1
+}
+
+######################################## Comenzi #####################################
+
+proc drpublic {nick host hand chan arg} {
+global botnick black
+set drone [lindex [split $arg] 0]
+set chan1 "$chan"
+set mask [lindex [split $arg] 0]
+set type "0"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[#&]} $drone] && [matchattr $hand nm|- $chan]} {
+set chan "$drone"
+set drone [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+}
+dr:process $drone $mask $nick $hand $host $chan $chan1 $type
+}
+
+
+proc dr:process {drone mask nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $drone]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+set getreason [channel get $chan dr-reason]
+if {$getreason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.dr.5)
+}
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason" 
+}
+set getbantime [channel get $chan dr-bantime]
+if {$getbantime == "0"} { set getbantime $black(drtime) }
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[isbotnick $drone]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[onchan $drone $chan]} {
+set mask *!*@[lindex [split [getchanhost $drone $chan] "@"] 1] 
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($drone == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 dr.1 none
+return 0
+}
+if {($drone == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 dr.2 none
+return 0
+}
+}
+if {($drone == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 dr.3 none
+return 0
+}
+if {($drone == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 dr.4 none
+return 0
+}
+
+blacktools:banner:3 $mask $hand $chan $reason $getbantime DR($chan)
+}
+
+
+
+proc botpublic {nick host hand chan arg} {
+global botnick black
+set bot [lindex [split $arg] 0]
+set mask [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bot] && [matchattr $hand nm|- $chan]} {
+set chan "$bot"
+set bot [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+}
+bot:process $bot $mask $nick $hand $host $chan $chan1 $type
+}
+
+proc bot:process {bot mask nick hand host chan chan1 type} {
+global black botnick
+set handle [nick2hand $bot]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+set getreason [channel get $chan bot-reason]
+if {$getreason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.bot.5)
+}
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason" 
+}
+set getbantime [channel get $chan bot-bantime]
+if {$getbantime == "0"} { set getbantime $black(bottime) }
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[isbotnick $bot]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[onchan $bot $chan]} {
+set mask *!*@[lindex [split [getchanhost $bot $chan] "@"] 1] 
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($bot == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 bot.1 none
+return 0
+}
+if {($bot == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 bot.2 none
+return 0
+}
+}
+if {($bot == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 bot.3 none
+return 0
+}
+if {($bot == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 bot.4 none
+return 0
+}
+blacktools:banner:3 $mask $hand $chan $reason $getbantime bot($chan)
+}
+
+
+proc b:local {bnick mask time nick reason hand host chan chan1 type} {
+global botnick black
+set handle [nick2hand $bnick]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$reason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set reason1 $black(say.$getlang.b.9)
+ } else { set reason1 "$reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+if {[isbotnick $bnick]} {
+  return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+ return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[onchan $bnick $chan]} {
+set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($bnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 b.1 none
+blacktools:tell $nick $host $hand $chan $chan1 b.2 none
+return 0
+}
+if {($bnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 b.3 none
+blacktools:tell $nick $host $hand $chan $chan1 b.4 none
+return 0
+}
+}
+if {($bnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 b.5 none
+return 0
+}
+if {($bnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 b.6 none
+return 0
+}
+
+blacktools:banner:3 $mask $hand $chan $reason $time b($chan)
+if {$time == "0"} { set reply "Permanent" } else { set reply "$time minute" }
+blacktools:tell $nick $host $hand $chan $chan1 b.7 "$mask $reply"
+}
+
+
+proc bpublic {nick host hand chan arg} {
+global botnick black
+set bnick [lindex [split $arg] 0]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set type 0
+set chan1 "$chan"
+set mask [lindex [split $arg] 0]
+set time [lindex [split $arg] 1]
+set type1 [lindex [split $arg] 1]
+set type2 [lindex [split $arg] 2]
+set reason [join [lrange [split $arg] 2 end]] 
+set handle [nick2hand $bnick]
+if {[string match -nocase "global" $type1] || [string match -nocase "global" $type2]  && [matchattr $hand nm|- $chan]} {
+if {[string match -nocase $type1 "global"]} {
+set reason [join [lrange [split $arg] 2 end]]
+}
+if {[string match -nocase $type2 "global"]} {
+set reason [join [lrange [split $arg] 3 end]]
+}
+set list [userlist nm|-]
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+if {[matchattr $handle nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {![regexp {^[0-9]} $time]} {
+set reason [join [lrange [split $arg] 2 end]]
+set time "$black(btime)"
+}
+if {$reason == ""} {set reason1 "(GLOBAL) $black(dfreason)"
+ } else { set reason1 "(GLOBAL) $reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+if {[isbotnick $bnick]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+if {[onchan $bnick $chan]} {
+set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
+}
+newban $mask $hand $reason $time
+if {$time == "0"} { set reply "Permanent" } else { set reply "$time" }
+blacktools:tell $nick $host $hand $chan $chan1 b.8 "$mask $reply"
+return 0
+}
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
+set chan "$bnick"
+set bnick [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+set time [lindex [split $arg] 2]
+set reason [join [lrange [split $arg] 3 end]]
+if {![regexp {^[0-9]} $time]} {
+set reason [join [lrange [split $arg] 2 end]]
+set time "$black(btime)"
+}
+}
+if {![regexp {^[0-9]} $time]} {
+set time "$black(btime)"
+set reason [join [lrange [split $arg] 1 end]] 
+}
+b:local $bnick $mask $time $nick $reason $hand $host $chan $chan1 $type
+}
+
+################################### n #################################
+
+proc n:process {bnick nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $bnick]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+set getreason [channel get $chan n-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.n.5)
+}
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason" 
+}
+set getbantime [channel get $chan n-bantime]
+if {$getbantime == "0"} { set getbantime $black(ntime) }
+
+if {[isbotnick $bnick]} {
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($bnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 n.1 none
+return 0
+}
+if {($bnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 n.2 none
+return 0
+}
+}
+if {($bnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 n.3 none
+return 0
+}
+if {($bnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 n.4 none
+return 0
+}
+
+if {[onchan $bnick $chan]} {
+set mask "$bnick*!*@*"
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$bnick"
+return 0
+}
+blacktools:banner:3 $mask $hand $chan $reason $getbantime n($chan)
+}
+
+
+proc npublic {nick host hand chan arg} {
+global botnick black
+set bnick [lindex [split $arg] 0]
+set type 0
+set handle [nick2hand $bnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
+set chan "$bnick"
+set bnick [lindex [split $arg] 1]
+}
+n:process $bnick $nick $hand $host $chan $chan1 $type
+}
+
+################################## id #################################
+
+proc idpublic {nick host hand chan arg} {
+global botnick black
+set idnick [lindex [split $arg] 0]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $idnick]
+set type 0
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $idnick] && [matchattr $hand nm|- $chan]} {
+set chan "$idnick"
+set idnick [lindex [split $arg] 1]
+}
+id:process $idnick $nick $hand $host $chan $chan1 $type
+}
+
+proc id:process {idnick nick hand host chan chan1 type} {
+global botnick black
+set handle [nick2hand $idnick]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set uhost [getchanhost $idnick $chan]
+set ident "[string trimleft [string tolower [lindex [split $uhost "@"] 0]] "~"]"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+set getreason [channel get $chan id-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.id.5)
+}
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason"
+}
+
+set getbantime [channel get $chan id-bantime]
+if {$getbantime == "0"} { set getbantime $black(idtime) }
+
+if {[isbotnick $idnick]} {
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($idnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 id.1 none
+return 0
+}
+if {($idnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 id.2 none
+return 0
+}
+}
+if {($idnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 id.3 none
+return 0
+}
+if {($idnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 id.4 none
+return 0
+}
+
+if {[onchan $idnick $chan]} {
+    		set mask "*!*$ident@*"
+	} else { blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$idnick"
+return 0
+}
+blacktools:banner:3 $mask $hand $chan $getreason $getbantime id($chan)
+}
+
+
+############################### black #################################
+
+proc black:process {blnick nick mask hand host chan chan1 reason type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $blnick]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+set list [userlist $black(exceptflags) $chan]
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$reason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set reason1 "BlackListed: $black(say.$getlang.black.5)"
+ } else { set reason1 "BlackListed: $reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+
+if {[isbotnick $blnick]} {
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[onchan $blnick $chan]} {
+set mask *!*@[lindex [split [getchanhost $blnick $chan] "@"] 1] 
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($blnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 black.1 none
+return 0
+}
+if {($blnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 black.2 none
+return 0
+}
+}
+if {($blnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 black.3 none
+return 0
+}
+if {($blnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 black.4 none
+return 0
+}
+ 
+
+blacktools:banner:3 $mask $hand $chan $reason 0 Black($chan)
+}
+
+
+proc blackpublic {nick host hand chan arg} {
+global botnick black
+set blnick [lindex [split $arg] 0]
+set mask [lindex [split $arg] 0]
+set type 0
+set reason [join [lrange [split $arg] 1 end]]
+set handle [nick2hand $blnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
+set chan "$blnick"
+set blnick [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 2 end]]
+}
+black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
+}
+
+
+################################ w ####################################
+
+proc wpublic {nick host hand chan arg} {
+global botnick black
+set wnick [lindex [split $arg] 0]
+set type 0
+set handle [nick2hand $wnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $wnick] && [matchattr $hand nm|- $chan]} {
+set chan "$wnick"
+set wnick [lindex [split $arg] 1]
+}
+w:process $wnick $nick $hand $host $chan $chan1 $type
+}
+
+proc w:process {wnick nick hand host chan chan1 type} {
+global botnick black
+set handle [nick2hand $wnick]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+
+if {[isbotnick $wnick]} {
+return 0
+}
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+set getreason [channel get $chan w-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.w.5)
+}
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason"
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($wnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 w.1 none
+return 0
+}
+if {($wnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 w.2 none
+return 0
+}
+}
+if {($wnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 w.3 none
+return 0
+}
+if {($wnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 w.4 none
+return 0
+}
+
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA w($chan)]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA w($chan) $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $wnick :$reason"
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+puthelp "PRIVMSG $wnick :$black(say.$getlang.w.6)"
+}
+
+############################### spam ##################################
+
+proc spam:process {spammer mask nick hand host chan chan1 type} {
+global botnick black
+set handle [nick2hand $spammer]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+set getreason [channel get $chan spam-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.spam.5)
+}
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason" 
+}
+set getbantime [channel get $chan spam-bantime]
+if {$getbantime == "0"} { set getbantime $black(spamtime) }
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[isbotnick $spammer]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[onchan $spammer $chan]} {
+set mask *!*@[lindex [split [getchanhost $spammer $chan] "@"] 1] 
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($spammer == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 spam.1 none
+return 0
+}
+if {($spammer == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 spam.2 none
+return 0
+}
+}
+if {($spammer == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 spam.3 none
+return 0
+}
+if {($spammer == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 spam.4 none
+return 0
+}
+
+blacktools:banner:3 $mask $hand $chan $reason $getbantime spam($chan)
+}
+
+
+proc spampublic {nick host hand chan arg} {
+global botnick black
+set spammer [lindex [split $arg] 0]
+set chan1 "$chan"
+set type 0
+set mask [lindex [split $arg] 0]
+set handle [nick2hand $spammer]
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $spammer] && [matchattr $hand nm|- $chan]} {
+set chan "$spammer"
+set spammer [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+}
+spam:process $spammer $mask $nick $hand $host $chan $chan1 $type
+}
+
+
+
+################################### k #################################
+
+proc k:process {knick nick hand host reason chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $knick]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[isbotnick $knick]} {
+return 0
+}
+
+
+if {[matchattr $handle $black(exceptflags) $chan] && ($black(kaccess) == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {$reason == ""} {
+
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set reason1 "$black(say.$getlang.k.5)"
+ } else { set reason1 "$reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($knick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 k.1 none
+return 0
+}
+if {($knick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 k.2 none
+return 0
+}
+}
+if {($knick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 k.3 none
+return 0
+}
+if {($knick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 k.4 none
+return 0
+}
+
+if {![onchan $knick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$knick"
+return 0
+}
+set getcount [channel get $chan kickcount]
+set kcount [expr $getcount +1]
+channel set $chan kickcount $kcount
+set countz [getuser $hand XTRA k($chan)]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA k($chan) $counts
+if {[channel get $chan showcount]} {
+set reason "$reason - $kcount -" 
+} else {
+set reason "$reason" 
+}
+putquick "KICK $chan $knick :$reason"
+}
+
+
+proc kpublic {nick host hand chan arg} {
+global botnick black
+set knick [lindex [split $arg] 0]
+set type 0
+set reason [join [lrange [split $arg] 1 end]]
+set handle [nick2hand $knick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $knick] && [matchattr $hand nm|- $chan]} {
+set chan "$knick"
+set knick [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 2 end]]
+}
+k:process $knick $nick $hand $host $reason $chan $chan1 $type
+}
+
+
+
+
+
+################################### gag ###############################
+
+proc gag:process {gagger nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $gagger]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($gagger == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 gag.1 none
+return 0
+}
+if {($gagger == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 gag.2 none
+return 0
+}
+}
+if {($gagger == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 gag.3 none
+return 0
+}
+if {($gagger == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 gag.4 none
+return 0
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {[isbotnick $gagger]} {
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {[onchan $gagger $chan]} {
+    		set mask *!*@[lindex [split [getchanhost $gagger $chan] "@"] 1] 
+} else { blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$gagger"
+return 0
+}
+putquick "MODE $chan +b $mask"
+blacktools:tell $gagger $host $hand $chan $chan1 gag.5 "$gagger"
+}
+
+
+
+proc gagpublic {nick host hand chan arg} {
+global black
+set gagger [lindex [split $arg] 0]
+set type 0
+set handle [nick2hand $gagger]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $gagger] && [matchattr $hand nm|- $chan]} {
+set chan "$gagger"
+set gagger [lindex [split $arg] 1]
+}
+gag:process $gagger $nick $hand $host $chan $chan1 $type
+}
+
+
+
+################################## bw #################################
+
+proc bw:process {abuser mask nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $abuser]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+set getreason [channel get $chan bw-reason]
+if {$getreason == ""} { 
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getreason $black(say.$getlang.bw.5)
+}
+if {[channel get $chan showhandle]} {
+set reason "($hand) $getreason"
+} else { set reason "$getreason" 
+}
+set getbantime [channel get $chan bw-bantime]
+if {$getbantime == "0"} { set getbantime $black(bwtime) }
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[isbotnick $abuser]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[onchan $abuser $chan]} {
+set mask *!*@[lindex [split [getchanhost $abuser $chan] "@"] 1] 
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($abuser == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 bw.1 none
+return 0
+}
+if {($abuser == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 bw.2 none
+return 0
+}
+}
+if {($abuser == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 bw.3 none
+return 0
+}
+if {($abuser == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 bw.4 none
+return 0
+}
+
+blacktools:banner:3 $mask $hand $chan $reason $getbantime bw($chan) 
+}
+
+
+proc bwpublic {nick host hand chan arg} {
+global botnick black
+set abuser [lindex [split $arg] 0]
+set mask [lindex [split $arg] 0]
+set type 0
+set handle [nick2hand $abuser]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $abuser] && [matchattr $hand nm|- $chan]} {
+set chan "$abuser"
+set abuser [lindex [split $arg] 1]
+set mask [lindex [split $arg] 1]
+}
+bw:process $abuser $mask $nick $hand $host $chan $chan1 $type
+}
+
+
+
+
+
+################################ ub ###################################
+
+proc ub:process {ban why nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($ban == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.1 none
+return 0
+}
+if {($ban == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.2 none
+return 0
+}
+}
+if {($ban == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.3 none
+return 0
+}
+if {($ban == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.4 none
+return 0
+}
+
+  
+if {$ban == "*!*@*"} { 
+return 0 
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+    return 0
+  }
+ if {[ispermban $ban $chan] && [matchattr $hand -|O $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.5 none
+return 0
+}
+
+if {($why == "global") && [matchattr $hand nm|- $chan]} {
+
+if {[killban $ban] == "0"} {
+set notfound 1
+}
+
+killban $ban
+if {![info exists notfound]} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.6 $ban
+return 0
+} else { blacktools:tell $nick $host $hand $chan $chan1 ub.7 none
+return 0
+}
+
+}
+
+if {[killchanban $chan $ban] == "0"} {
+set notfound 1
+}
+ 
+  killchanban $chan $ban
+if {[onchan "X" $chan]} {
+putquick "PRIVMSG $black(chanserv) :unban $chan $ban"
+}
+  putquick "MODE $chan -b $ban"
+if {![info exists notfound]} {
+blacktools:tell $nick $host $hand $chan $chan1 ub.8 $ban
+} else { blacktools:tell $nick $host $hand $chan $chan1 ub.9 none 
+return 0
+}
+ if {[channel get $chan chanreport]} {
+set backchan [channel get $chan backchan]
+if {$backchan == ""} { 
+return 0
+}
+if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
+return 0
+}
+blacktools:tell $nick $host $hand $chan $backchan ub.10 "$hand $ban"
+}
+
+}
+
+
+
+proc ubpublic {nick host hand chan arg} {
+global botnick black
+set ban [lindex [split $arg] 0]
+set why [lindex [split $arg] 1]
+set type 0
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $ban] && [matchattr $hand nm|- $chan]} {
+set chan "$ban"
+set ban [lindex [split $arg] 1]
+}
+ub:process $ban $why $nick $hand $host $chan $chan1 $type
+}
+
+
+################################ sb ###################################   
+
+proc sb:process {bhost what nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($bhost == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.1 none
+return 0
+}
+if {($bhost == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.2 none
+return 0
+}
+}
+if {($bhost == "") && ($type == "0")} { 
+blacktools:tell $nick $host $hand $chan $chan1 sb.3 none
+return 0
+}
+if {($bhost == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.4 none
+return 0
+}
+
+if {[string match -nocase $what "global"] && [matchattr $hand mn|- $chan]} {
+  
+foreach ban [banlist] {
+
+ set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
+ set created [clock format [lindex $ban 3] -format %D-%H:%M:%S]
+ set fban [lindex $ban 0]
+ set freason [lindex $ban 1]
+ set fbywho [lindex $ban 5]
+
+if {[string match $bhost [string tolower [lindex $ban 0]]]} {
+set foundban 1
+if {[lindex $ban 2] == 0} {
+if {[isbansticky [lindex $ban 0]]} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.5 "$fban $fbywho $created 0 $freason"
+ } else {
+blacktools:tell $nick $host $hand $chan $chan1 sb.6 "$fban $fbywho $created 0 $freason"
+
+}
+
+} else { 
+if {[isbansticky [lindex $ban 0]]} { 
+blacktools:tell $nick $host $hand $chan $chan1 sb.7 "$fban $fbywho $created $expire $freason"         
+
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 sb.8 "$fban $fbywho $created $expire $freason"
+          
+}
+}
+
+}
+}
+if {![info exists foundban]} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.13 none
+}
+return 0
+}
+
+  foreach ban [banlist $chan] {
+
+  set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
+ set created [clock format [lindex $ban 3] -format %D-%H:%M:%S]
+ set fban [lindex $ban 0]
+ set freason [lindex $ban 1]
+ set fbywho [lindex $ban 5]
+if {[string match $bhost [string tolower [lindex $ban 0]]]} {
+
+set foundban 1
+
+if {[lindex $ban 2] == 0} {
+if {[isbansticky [lindex $ban 0] $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.9 "$fban $fbywho $created $expire $freason"
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 sb.10 "$fban $fbywho $created 0 $freason"
+}
+
+} else { 
+if {[isbansticky [lindex $ban 0] $chan]} {          
+blacktools:tell $nick $host $hand $chan $chan1 sb.11 "$fban $fbywho $created $expire $freason"
+
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 sb.12 "$fban $fbywho $created $expire $freason"
+          
+}
+}
+
+}
+}
+if {![info exists foundban]} {
+blacktools:tell $nick $host $hand $chan $chan1 sb.13 none
+return 0
+}
+}
+
+
+
+proc sbpublic {nick host hand chan arg} {
+global botnick black
+set bhost [string tolower [lindex [split $arg] 0]]
+set what [lindex [split $arg] 1]
+set chan1 "$chan"
+set type 0
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bhost] && [matchattr $hand nm|- $chan]} {
+set chan "$bhost"
+set bhost [string tolower [lindex [split $arg] 1]]
+set what [lindex [split $arg] 2]
+}
+sb:process $bhost $what $nick $hand $host $chan $chan1 $type
+}
+
+
+
+
+################################# d ###################################
+
+
+proc d:process {dnick mask days reason nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $dnick]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+set list [userlist $black(exceptflags) $chan]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+
+if {[matchattr $hand nm|- $chan]} {
+if {($dnick == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 d.1 none
+return 0
+}
+if {($dnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 d.2 none
+return 0
+}
+}
+if {($dnick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 d.3 none
+return 0
+}
+if {($dnick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 d.4 none
+return 0
+}
+
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match -nocase $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {$reason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set reason1 $black(say.$getlang.d.5)
+ } else { set reason1 "$reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+
+if {[isbotnick $dnick]} {
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+
+if {[onchan $dnick $chan]} {
+    		set mask *!*@[lindex [split [getchanhost $dnick $chan] "@"] 1] 
+}
+
+blacktools:banner:3 $mask $hand $chan $reason [expr $days * 1440] d($chan)
+}
+
+
+proc dpublic {nick host hand chan arg} {
+global botnick black
+set days [lindex [split $arg] 0]
+set dnick [lindex [split $arg] 1]
+set type 0
+set mask [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 2 end]]
+set handle [nick2hand $dnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $days] && [matchattr $hand nm|- $chan]} {
+set chan "$days"
+set days [lindex [split $arg] 1]
+set mask [lindex [split $arg] 2]
+set dnick [lindex [split $arg] 2]
+set reason [join [lrange [split $arg] 3 end]]
+if {![regexp {^[0-9]} $days]} {
+set days 1
+set mask [lindex [split $arg] 1]
+set dnick [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 2 end]]
+} 
+}
+if {![regexp {^[0-9]} $days]} {
+set days 1
+set mask [lindex [split $arg] 0]
+set dnick [lindex [split $arg] 0]
+set reason [join [lrange [split $arg] 1 end]]
+}
+d:process $dnick $mask $days $reason $nick $hand $host $chan $chan1 $type
+}
+
+
+############################### stick #################################
+
+proc stick:process {snick mask time reason nick hand host chan chan1 type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $snick]
+set list [userlist $black(exceptflags) $chan]
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+if {[matchattr $handle nm|AMOVS $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {$reason == ""} {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set reason1 $black(say.$getlang.stick.5)
+ } else { set reason1 "$reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+if {[isbotnick $snick]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+if {[onchan $snick $chan]} {
+set mask *!*@[lindex [split [getchanhost $snick $chan] "@"] 1] 
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($snick == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 stick.1 none
+return 0
+}
+if {($snick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 stick.2 none
+return 0
+}
+}
+if {($snick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 stick.3 none
+return 0
+}
+if {($snick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 stick.4 none
+return 0
+}
+blacktools:banner:4 $mask $hand $chan $reason $time stick($chan)
+}
+
+
+proc stickpublic {nick host hand chan arg} {
+global botnick black
+set snick [lindex [split $arg] 0]
+set mask [lindex [split $arg] 0]
+set chan1 "$chan"
+set type 0
+set time [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 2 end]]
+set handle [nick2hand $snick]
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $snick] && [matchattr $hand nm|- $chan]} {
+set chan "$snick"
+set time [lindex [split $arg] 2]
+set mask [lindex [split $arg] 1]
+set snick [lindex [split $arg] 1]
+set reason [join [lrange [split $arg] 3 end]]
+if {![regexp {^[0-9]} $time]} {
+set time "$black(dfstickbantime)"
+set reason [join [lrange [split $arg] 2 end]]
+}
+}
+if {![regexp {^[0-9]} $time]} {
+set time "$black(dfstickbantime)"
+set reason [join [lrange [split $arg] 1 end]]
+}
+stick:process $snick $mask $time $reason $nick $hand $host $chan $chan1 $type
+}
+
+
+
+
+
+################################### t #################################
+
+
+proc tpublic {nick host hand chan arg} {
+global black
+set topics [join [lrange [split $arg] 0 end]]
+set c [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set topics [join [lrange [split $arg] 1 end]]
+}
+t:process $nick $host $hand $chan $chan1 $topics $type
+}
+
+proc t:process {nick host hand chan chan1 topics type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($topics == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 t.1 none
+return 0
+}
+if {($topics == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 t.2 none
+return 0
+}
+}
+if {($topics == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 t.3 none
+return 0
+}
+if {($topics == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 t.4 none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {[channel get $chan showhandle]} {
+set topics "($hand) $topics"
+} else { set topics "$topics" 
+}
+putquick "TOPIC $chan :$topics"
+}
+
+############################## status #################################
+
+
+proc statuspublic {nick host hand chan arg} {
+global botnick server uptime {server-online}
+set chan1 "$chan"
+regsub -all " " [channels] ", " chans
+catch {exec uptime} shelluptime
+set up [duration [expr [unixtime] - $uptime]]
+set on [duration [expr [unixtime] - ${server-online}]]
+blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
+blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
+blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
+blacktools:tell $nick $host $hand $chan $chan1 status.4 $chans
+blacktools:tell $nick $host $hand $chan $chan1 status.5 $shelluptime
+}
+
+############################## uptime #################################
+
+proc uptimepublic {nick host hand chan arg} {
+global botnick uptime {server-online} server
+set chan1 "$chan"
+set up [duration [expr [unixtime] - $uptime]]
+set on [duration [expr [unixtime] - ${server-online}]]
+blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
+blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
+blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
+}
+
+################################# i ###################################
+
+proc ipublic {nick host hand chan arg} {
+global botnick black
+set type 0
+set chan1 "$chan"
+set inick [lrange [split $arg] 0 end]
+set c [lindex [split $arg] 0]
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set inick [join [lrange [split $arg] 1 end]]
+}
+i:process $nick $host $hand $chan $chan1 $inick $type
+}
+
+proc i:process {nick host hand chan chan1 inick type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($inick == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 i.3 none
+return 0
+}
+if {($inick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 i.4 none
+return 0
+}
+}
+if {($inick == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 i.5 none
+return 0
+}
+if {($inick == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 i.6 none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+set replace(%nick%) $nick
+set replace(%chan%) $chan
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getmsg $black(say.$getlang.i.7)
+
+if {[info exists black(say.$getlang.i.7)]} {
+set imessage [string map [array get replace] $getmsg]
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+foreach in $inick {
+if {[onchan $in $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 i.1 $in
+return 0
+}
+
+set countz [getuser $hand XTRA i($chan)]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA i($chan) $counts
+putquick "INVITE $in $chan"
+putquick "PRIVMSG $in :$imessage"
+blacktools:tell $nick $host $hand $chan $chan1 i.2 $in
+}
+}
+
+############################### addinfo ###############################
+
+
+proc addinfopublic {nick host hand chan arg} {
+global botnick black
+set info [join [lrange [split $arg] 0 end]]
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$info == ""} { 
+blacktools:tell $nick $host $hand $chan $chan1 addinfo.1 none
+return 0
+}
+addinfo:process $nick $host $hand $chan $chan1 $info
+}
+
+proc addinfo:process {nick host hand chan chan1 info} {
+global botnick black
+if {[string match -nocase "$info" "off"]} {
+set infos ""
+setuser $hand info $infos
+blacktools:tell $nick $host $hand $chan $chan1 addinfo.3 none
+return 0
+}
+setuser $hand info $info
+blacktools:tell $nick $host $hand $chan $chan1 addinfo.4 $info 
+}
+
+############################### purge ###############################
+
+proc purgepublic {nick host hand chan arg} {
+global botnick black
+set reason [join [lrange [split $arg] 0 end]]
+set chan1 "$chan"
+if {$reason == ""} {
+blacktools:tell $nick $host $hand $chan $chan1 purge.1 none
+return 0
+}
+purge:process $nick $host $hand $chan $chan1 $reason
+}
+
+proc purge:process {nick host hand chan chan1 reason} {
+channel remove $chan
+delchan:stats $chan $hand $host
+blacktools:tell $nick $host $hand $chan $chan1 purge.2 none
+putquick "PART $chan :PURGED by $hand :$reason"
+}
+
+
+################################### v #################################
+
+
+proc vpublic {nick host hand chan arg} {
+global botnick black
+set c [lindex [split $arg] 0]
+set arg [split $arg]
+set nick [split $nick]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set arg [lrange $arg 1 end]
+}
+v:process $nick $host $hand $chan $chan1 $arg
+}
+
+proc v:process {nick host hand chan chan1 arg} {
+global botnick black
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![botisop $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$arg == ""} {
+set arg $nick
+}
+
+foreach voicenick $arg {
+if {[isbotnick $voicenick]} { return 0 }
+if {[isvoice $voicenick $chan]} {putquick "MODE $chan -v $voicenick"} else {putquick "MODE $chan +v $voicenick"}
+}
+
+}
+
+################################## o ##################################
+
+proc opublic {nick host hand chan arg} {
+global botnick black
+set c [lindex [split $arg] 0]
+set arg [split $arg]
+set nick [split $nick]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set arg [lrange $arg 1 end]
+}
+o:process $nick $host $hand $chan $chan1 $arg
+}
+
+
+proc o:process {nick host hand chan chan1 arg} {
+global botnick black
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![botisop $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+ return 0
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {$arg == ""} {
+set arg $nick
+}
+
+
+foreach opnick $arg {
+if {[isbotnick $opnick]} { return 0 }
+if {[isop $opnick $chan]} {putquick "MODE $chan -o $opnick"} else {putquick "MODE $chan +o $opnick"}
+}
+
+}
+
+
+################################# l ###################################
+
+proc lpublic {nick host hand chan arg} {
+global black
+set times [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $times] && [matchattr $hand nm|- $chan]} {
+set chan "$times"
+set times [lindex [split $arg] 1]
+}
+l:process $nick $host $hand $chan $chan1 $times $type
+}
+
+proc l:process {nick host hand chan chan1 time type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+}         
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($time == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 l.1 none
+return 0
+}
+if {($time == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 l.2 none
+return 0
+}
+}
+if {($time == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 l.3 none
+return 0
+}
+if {($time == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 l.4 none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {$time >= 300} {
+blacktools:tell $nick $host $hand $chan $chan1 l.5 none
+return 0
+}
+putserv "MODE $chan +$black(lmode)" ;utimer $time [list putquick "MODE $chan -$black(lmode)"]
+blacktools:tell $nick $host $hand $chan $chan1 l.6 "$black(lmode) $time"
+}
+
+proc chatpublic {nick host hand chan arg} {
+global botnick
+*ctcp:CHAT $nick $host $hand $botnick CHAT $arg
+blacktools:tell $nick $host $hand $chan $chan1 chat.1 none
+} 
+
+################################ ul ###################################
+
+proc ul:process {nick host hand chan chan1} {
+global black botnick
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+putquick "MODE $chan -$black(ulmodes)"
+blacktools:tell $nick $host $hand $chan $chan1 ul.1 $black(ulmodes)
+}
+
+
+proc ulpublic {nick host hand chan arg} {
+global black
+set c [lindex [split $arg] 0]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+ul:process $nick $host $hand $chan $chan1
+}
+
+################################ say ##################################
+
+
+proc saypublic {nick host hand chan arg} {
+global black
+set text [join [lrange [split $arg] 0 end]]
+set c [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set text [join [lrange [split $arg] 1 end]]
+}
+say:process $nick $host $hand $chan $chan1 $text $type
+}
+
+proc say:process {nick host hand chan chan1 text type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($text == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 say.1 none
+return 0
+}
+if {($text == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 say.2 none
+return 0
+}
+}
+if {($text == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 say.3 none
+return 0
+}
+if {($text == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 say.4 none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+putquick "PRIVMSG $chan :$text"
+}
+
+################################ act ##################################
+
+proc actpublic {nick host hand chan arg} {
+global black
+set text [join [lrange [split $arg] 0 end]]
+set c [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set text [join [lrange [split $arg] 1 end]]
+}
+act:process $nick $host $hand $chan $chan1 $text $type
+}
+
+proc act:process {nick host hand chan chan1 text type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($text == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 act.1 none
+return 0
+}
+if {($text == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 act.2 none
+return 0
+}
+}
+if {($text == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 act.3 none
+return 0
+}
+if {($text == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 act.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+putquick "PRIVMSG $chan :\001ACTION $text\001"
+}
+
+############################## broadcast ##############################
+
+proc broadcastpublic {nick host hand chan arg} {
+global black
+set text [join [lrange [split $arg] 0 end]]
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {$text == ""} { 
+blacktools:tell $nick $host $hand $chan $chan1 broadcast.1 none
+return 0
+}
+broadcast:cmd:process $nick $host $hand $chan $chan1 $text
+}
+
+
+proc broadcast:cmd:process {nick host hand chan chan1 text} {
+global botnick black
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+foreach c [channels] {
+if {![channel get $c silent]} {
+putquick "PRIVMSG $c :(BROADCAST) $text"
+}
+}
+}
+
+############################### check #################################
+
+proc checkpublic {nick host hand chan arg} {
+ global black
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set checked [lindex [split $arg] 0]
+if {$checked == ""} { blacktools:tell $nick $host $hand $chan $chan1 check.1 none
+return 0
+}
+check:process $nick $host $hand $chan $chan1 $checked
+}
+
+proc check:process {nick host hand chan chan1 checked} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set handle [nick2hand $checked]
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+
+if {[matchattr $handle $black(exceptflags) $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {[isbotnick $checked]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+ if {![onchan $checked $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $checked
+return 0
+}
+if {[onchan $checked $chan]} {
+set mask *!*@[lindex [split [getchanhost $checked $chan] "@"] 1] 
+}
+
+set countz [getuser $hand XTRA check($chan)]
+if {$countz == ""} { set countz 0 }
+set counts [expr $countz + 1]
+setuser $hand XTRA check($chan) $counts
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getmsg $black(say.$getlang.check.3)
+if {[info exists black(say.$getlang.check.3)]} {
+putquick "PRIVMSG $checked :$black(say.$getlang.check.3)"
+}
+
+}
+
+############################## version ################################
+
+proc versionpublic {nick host hand chan arg} {
+global botnick black
+set chan1 "$chan"
+version:process $nick $host $hand $chan $chan1
+}
+
+proc version:process {nick host hand chan chan1} {
+global botnick black
+blacktools:tell $nick $host $hand $chan $chan1 version.1 none
+}
+
+############################### cycle #################################
+
+proc cycle:process {nick host hand chan chan1 reason} {
+global black botnick
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {$reason == ""} { set reason "No Reason" }
+putquick "PART $chan :$reason"
+utimer 5 [list putquick "JOIN $chan"]
+}
+
+
+proc cyclepublic {nick host hand chan arg} {
+global black
+set reason [join [lrange [split $arg] 0 end]]
+set c [lindex [split $arg] 0]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set reason [join [lrange [split $arg] 1 end]]
+}
+cycle:process $nick $host $hand $chan $chan1 $reason
+}
+
+################################ away #################################
+
+proc awaypublic {nick host hand chan arg} {
+global black
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set aw [join [lrange [split $arg] 0 end]]
+if {$aw == "" } {blacktools:tell $nick $host $hand $chan $chan1 away.1 none
+return 0
+}
+away:process $nick $host $hand $chan $chan1 $aw
+}
+
+
+proc away:process {nick host hand chan chan1 aw} {
+global black botnick wdir
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[string match -nocase "$aw" "off"]} { 
+blacktools:tell $nick $host $hand $chan $chan1 away.3 none
+putquick "AWAY :" 
+set type [open $wdir w]
+set none ""
+puts $type "$none"
+close $type
+
+return 0
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 away.4 $aw ; putquick "AWAY :$aw"
+set type [open $wdir w]
+puts $type "$aw"
+close $type
+}
+}
+
+proc setaway {my} {
+global wdir
+if {[file exists $wdir] == 0} {
+set file [open $wdir a]
+close $file
+}
+set aways [open $wdir r]
+set away "[gets $aways]"
+catch {close $aways}
+if {$away == ""} {
+ return 0 
+} else {
+putserv "AWAY :"
+putserv "AWAY :$away"
+}
+}
+
+
+################################### mode ######################################
+
+proc modepublic {nick host hand chan arg} {
+global black
+set modes [lindex [split $arg] 0]
+set chan1 "$chan"
+set type 0
+if {[regexp {^[#&]} $modes] && [matchattr $hand nm|- $chan]} {
+set chan "$modes"
+set modes [lindex [split $arg] 1]
+}
+mode:process $nick $host $hand $chan $chan1 $modes $type
+}
+
+proc mode:process {nick host hand chan chan1 modes type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($modes == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 mode.1 none
+return 0
+}
+if {($modes == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 mode.2 none
+return 0
+}
+}
+if {($modes == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 mode.3 none
+return 0
+}
+if {($modes == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 mode.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+
+if {![regexp {^[+ -]} $modes]} {
+blacktools:tell $nick $host $hand $chan $chan1 mode.5 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 mode.6 $modes
+putserv "MODE $chan $modes"
+}
+
+
+################################## myset #############################
+
+proc mysetpublic {nick host hand chan arg} {
+global black
+set chan1 "$chan"
+set flags [lindex [split $arg] 0]
+set type [lindex [split $arg] 1]
+if {$type == ""} {
+blacktools:tell $nick $host $hand $chan $chan1 myset.3 none
+return 0
+}
+myset:process $nick $host $hand $chan $chan1 $flags $type
+}
+
+
+proc myset:process {nick host hand chan chan1 flags typez} {
+global black
+switch -exact -- [string tolower $flags] {
+lang {
+setuser $hand XTRA OUTPUT_LANG $typez
+blacktools:tell $nick $host $hand $chan $chan1 myset.1 $typez
+return 0
+}
+
+output {
+if {[string match -nocase $typez "notice"]} {
+setuser $hand XTRA OUTPUT_TYPE 1
+blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
+return 0
+}
+if {[string match -nocase $typez "chan"]} {
+setuser $hand XTRA OUTPUT_TYPE 0
+blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
+return 0
+}
+}
+
+}
+}
+
+
+################################# set #################################
+
+proc setpublic {nick host hand chan arg} {
+global black
+set flags [lindex [split $arg] 0]
+set type [join [lrange [split $arg] 1 end]]
+set chan1 "$chan"
+set type1 0
+if {[regexp {^[#&]} $flags] && [matchattr $hand nm|- $chan]} {
+set chan "$flags"
+set flags [lindex [split $arg] 1]
+set type [join [lrange [split $arg] 2 end]]
+}
+set:process $nick $host $hand $chan $chan1 $flags $type $type1
+}
+
+proc set:process {nick host hand chan chan1 flags type type1} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($flags == "")  && ($type1 == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 set.1 none
+return 0
+}
+if {($flags == "") && ($type1 == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 set.2 none
+return 0
+}
+}
+if {($flags == "") && ($type1 == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 set.3 none
+return 0
+}
+if {($flags == "") && ($type1 == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 set.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+ if {$type == ""} {
+set why [catch {channel set $chan $flags} error]
+if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.5 $flags
+return 0
+} else {
+channel set $chan $flags ; blacktools:tell $nick $host $hand $chan $chan1 set.6 $flags
+}
+ 
+} else {
+set why [catch {channel set $chan $flags $type} error]
+if {!([matchattr $hand mn|- $chan]) && [string match -nocase "backchan" $flags]} {
+return 0
+}
+
+if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
+return 0
+} else {
+ channel set $chan $flags $type ; blacktools:tell $nick $host $hand $chan $chan1 set.8 "$flags $type" 
+}
+}
+}
+
+
+
+proc ignorepublic {nick host hand chan arg} {
+global black
+set chan1 "$chan"
+set what [lindex [split $arg] 0]
+set mask [lindex [split $arg] 1]
+set time [lindex [split $arg] 2]
+set reason [join [lrange [split $arg] 3 end]]
+if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.1 none
+return 0
+}
+ignore:process $nick $host $hand $chan $chan1 $what $mask $time $reason
+}
+
+
+proc ignore:process {nick host hand chan chan1 what mask time reason} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+switch -exact -- [string tolower $what] {
+
+list {
+
+if {[llength [ignorelist]] == "0"} { blacktools:tell $nick $host $hand $chan $chan1 ignore.3 none
+return 0
+}
+foreach ig [ignorelist] {
+set hostig [lindex $ig 0]
+set byig [lindex $ig 4]
+set time [lindex $ig 2]
+set reasig [lindex $ig 1]
+if {$time != "0"} {
+set bytime [clock format $time -format %D-%H:%M:%S]
+} else { set bytime "-"}
+blacktools:tell $nick $host $hand $chan $chan1 ignore.4 "$hostig $byig $bytime $reasig" 
+}
+}
+
+add {
+
+if {[isignore $mask]} {
+blacktools:tell $nick $host $hand $chan $chan1 ignore.5 "$mask"
+return 0
+}
+
+if {![regexp {^[0-9]} $time]} {
+set time "60"
+}
+if {$reason == ""} { set reason "No Reason" }
+newignore $mask $hand $reason $time
+blacktools:tell $nick $host $hand $chan $chan1 ignore.6 "$mask $time $reason"
+}
+
+
+
+delete {
+if {$mask == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.7 none
+return 0
+}
+
+if {[isignore $mask]} {
+killignore $mask
+} else { blacktools:tell $nick $host $hand $chan $chan1 ignore.8 "$mask"
+return 0
+} 
+blacktools:tell $nick $host $hand $chan $chan1 ignore.9 "$mask"
+}
+
+}
+}
+
+
+################################# show ################################
+
+proc showpublic {nick host hand chan arg} {
+global black
+set wich [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $wich] && [matchattr $hand nm|- $chan]} {
+set chan "$wich"
+set wich [lindex [split $arg] 1]
+}
+show:process $nick $host $hand $chan $chan1 $wich $type
+}
+
+proc show:process {nick host hand chan chan1 wich type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($wich == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 show.1 none
+return 0
+}
+if {($wich == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 show.2 none
+return 0
+}
+}
+if {($wich == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 show.3 none
+return 0
+}
+if {($wich == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 show.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+set why [catch {channel get $chan $wich} error]
+if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 show.5 $wich
+return 0
+} else {
+set replyinfo [channel get $chan $wich]
+
+if {($replyinfo == "") || ($replyinfo == "0")} {
+switch -exact -- [string tolower $wich] {
+
+antipub-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antipub.1)
+}
+
+antilongtextmax {
+set replyinfo [channel get $chan antilongtextmax]
+if {$replyinfo == "0"} {
+set replyinfo "$black(longchar)"
+}
+}
+
+
+joinflood {
+set replyinfo [channel get $chan joinflood]
+if {$replyinfo == ""} {
+set replyinfo "4 5"
+}
+}
+
+chanflood {
+set replyinfo [channel get $chan chanflood]
+if {$replyinfo == ""} {
+set replyinfo "4 5"
+}
+}
+
+idleopmax {
+set replyinfo [channel get $chan idleopmax]
+if {$replyinfo == "0"} {
+set replyinfo "$black(idleopmax)"
+}
+}
+
+idlevoicemax {
+set replyinfo [channel get $chan idlevoicemax]
+if {$replyinfo == "0"} {
+set replyinfo "$black(idlevoicemax)"
+}
+}
+
+
+private-bantime {
+set replyinfo "$black(privatebantime)"
+}
+
+private-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.private.12)
+}
+
+antipub-bantime {
+set replyinfo "$black(antipubbantime)"
+}
+
+antinotice-bantime {
+set replyinfo "$black(antinoticebantime)"
+}
+
+antinotice-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antinotice.1)
+}
+
+antictcp-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antictcp.1)
+}
+
+antictcp-bantime {
+set replyinfo "$black(antictcpbantime)"
+}
+
+antibadword-bantime {
+set replyinfo "$black(antibadwordbantime)"
+}
+
+antibadword-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antibadword.1)
+}
+
+antilongtext-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antilongtext.1)
+}
+
+antilongtext-bantime {
+set replyinfo "$black(longbantime)"
+}
+
+antibadquitpart-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antibadquitpart.1)
+}
+
+antibadquitpart-bantime {
+set replyinfo "$black(badquitparttime)"
+}
+
+antijoinpart-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antijoinpart.1)
+}
+
+antijoinpart-bantime {
+set replyinfo "$black(joinpartbantime)"
+}
+
+antispam-bantime {
+set replyinfo "$black(spamban)"
+}
+
+antispam-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antispam.1)
+}
+
+antirepeat-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antirepeat.1)
+}
+
+antirepeat-setting {
+set replyinfo "$black(repeats)"
+}
+
+antirepeat-bantime {
+set replyinfo "$black(antirepeatbantime)"
+}
+
+anticolor-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.anticolor.1)
+}
+
+anticolor-bantime {
+set replyinfo "$black(anticolorbantime)"
+}
+
+antibold-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antibold.1)
+}
+
+antibold-bantime {
+set replyinfo "$black(antiboldbantime)"
+}
+
+antiunderline-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antiunderline.1)
+}
+
+antiunderline-bantime {
+set replyinfo "$black(antiunderlinebantime)"
+}
+
+anticaps-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.anticaps.1)
+}
+
+anticaps-bantime {
+set replyinfo "$black(anticapsbantime)"
+}
+
+badfullname-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.badfullname.1)
+}
+
+badfullname-bantime {
+set replyinfo "$black(badfbantime)"
+}
+
+badnick-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.badnick.1)
+}
+
+badnick-bantime {
+set replyinfo "$black(badnickbantime)"
+}
+
+badident-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.badident.1)
+}
+
+badident-bantime {
+set replyinfo "$black(badidentbantime)"
+}
+
+antichanflood-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.antichanflood.1)
+}
+
+antichanflood-bantime {
+set replyinfo "$black(antifloodchanbantime)"
+}
+
+badchan-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.badchan.15)
+}
+
+badchan-bantime {
+set replyinfo "$black(badcbantime)"
+}
+
+count-message {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.count.11)
+}
+
+
+dr-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.dr.5)
+}
+
+dr-bantime {
+set replyinfo "$black(drtime)"
+}
+
+bot-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.bot.5)
+}
+
+bot-bantime {
+set replyinfo "$black(bottime)"
+}
+
+n-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.n.5)
+}
+
+n-bantime {
+set replyinfo "$black(ntime)"
+}
+
+id-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.id.5)
+}
+
+id-bantime {
+set replyinfo "$black(idtime)"
+}
+
+w-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.w.5)
+
+}
+
+spam-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.spam.5)
+}
+
+spam-bantime {
+set replyinfo "$black(spamtime)"
+}
+
+bw-reason {
+set getlang [string tolower [channel get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set replyinfo $black(say.$getlang.bw.5)
+}
+
+bw-bantime {
+set replyinfo "$black(bwtime)"
+}
+
+}
+}
+blacktools:tell $nick $host $hand $chan $chan1 show.6 "$wich $replyinfo"
+}
+}
+
+
+############################## silence ################################
+
+proc silencepublic {nick host hand chan arg} {
+global black
+set value [lindex [split $arg] 0]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set chan1 "$chan"
+if {$value == ""} { blacktools:tell $nick $host $hand $chan $chan1 silence.1 none
+return 0
+}
+silence:process $nick $host $hand $chan $chan1 $value
+}
+
+proc silence:process {nick host hand chan chan1 value} {
+global botnick black
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|on|off)} $value tmp silents]) && (![regexp -nocase -- {\S#} $value])} {
+ switch $silents {
+on { blacktools:tell $nick $host $hand $chan $chan1 silence.3 none ; putquick "SILENCE +*!*@*"             
+}
+off { blacktools:tell $nick $host $hand $chan $chan1 silence.4 none ; putquick "SILENCE -*!*@*"            
+}
+}
+}
+}
+
+############################## msg ####################################
+
+proc msgpublic {nick host hand chan arg} {
+global black
+set nicks [lindex [split $arg] 0]
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set msg [join [lrange [split $arg] 1 end]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$nicks == ""} {blacktools:tell $nick $host $hand $chan $chan1 msg.1 none
+return 0
+}
+if {[isbotnick $nicks]} { 
+return 0
+}
+putquick "PRIVMSG $nicks :$msg"
+}
+
+
+############################### reset #################################
+
+proc resetpublic {nick host hand chan arg} {
+global black
+set dece [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $dece] && [matchattr $hand nm|- $chan]} {
+set chan "$dece"
+set dece [lindex [split $arg] 1]
+}
+reset:process $nick $host $hand $chan $chan1 $dece $type
+}
+
+
+
+proc reset:process {nick host hand chan chan1 dece type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($dece == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 reset.1 none
+return 0
+}
+if {($dece == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 reset.2 none
+return 0
+}
+}
+if {($dece == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 reset.3 none
+return 0
+}
+if {($dece == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 reset.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {[string match -nocase "all" "$dece"]} {
+set emptyflag "antipub-reason antinotice-reason antictcp-reason antibadword-reason antilongtext-reason antijoinpart-reason antirepeat-reason antirepeat-setting antispam-reason anticolor-reason antibold-reason antiunderline-reason anticaps-reason badfullname-reason badnick-reason badident-reason antichanflood-reason chanflood joinflood private-reason dr-reason n-reason id-reason spam-reason w-reason bw-reason bot-reason badchan-reason count-message"
+foreach eflag $emptyflag {
+channel set $chan $eflag ""
+}
+set zeroflag "antinotice-bantime antipub-bantime antictcp-bantime antibadword-bantime antilongtext-bantime antijoinpart-bantime antispam-bantime idleopmax idlevoicemax antilongtextmax antirepeat-bantime anticolor-bantime antibold-bantime antiunderline-bantime anticaps-bantime badfullname-bantime badnick-bantime badident-bantime antichanflood-bantime private-bantime  dr-bantime n-bantime id-bantime spam-bantime bw-bantime bot-bantime kickcount"
+foreach oflag $zeroflag {
+channel set $chan $oflag 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 reset.5 none
+return 0
+}
+set why [catch {channel set $chan $dece ""} error]
+if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 reset.6 $dece
+} else {
+channel set $chan $dece ""
+blacktools:tell $nick $host $hand $chan $chan1 reset.7 $dece
+}
+}
+
+
+################################### banlist ###################################
+
+proc banlistpublic {nick host hand chan arg} {
+global botnick black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+banlist:process $nick $host $hand $chan $chan1 $user $type
+}
+
+
+proc banlist:process {nick host hand chan chan1 user type} {
+global botnick black
+set i 0
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.1 none
+blacktools:tell $nick $host $hand $chan $chan1 banlist.2 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.3 none
+blacktools:tell $nick $host $hand $chan $chan1 banlist.4 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.5 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.6 none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan] && [string match -nocase "global" $user]} {
+
+foreach ban [banlist] {
+
+set i [expr $i +1]
+set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
+set create [clock format [lindex $ban 3] -format %D-%H:%M:%S]
+set fban [lindex $ban 0]
+set freason [lindex $ban 1]
+set fbywho [lindex $ban 5]
+
+if {[lindex $ban 2] == 0} {
+set expire "Permanent"
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 banlist.9 none
+blacktools:tell $nick $host $hand $chan $chan1 banlist.10 "$fban $fbywho $create $expire $freason"
+set foundban 1
+}
+
+if {![info exists foundban]} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.7 none
+} else { blacktools:tell $nick $host $hand $chan $chan1 banlist.8 none }
+return 0
+}
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+
+if {![matchattr $user nm|OASMN $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none 
+return 0
+}
+
+foreach ban [banlist $chan] {
+set own [lindex $ban 5]
+if {[string match -nocase $own $user]} {
+set i [expr $i +1]
+set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
+set create [clock format [lindex $ban 3] -format %D-%H:%M:%S]
+set fban [lindex $ban 0]
+set freason [lindex $ban 1]
+
+if {[lindex $ban 2] == 0} {
+set expire "Permanent"
+}
+blacktools:tell $nick $host $hand $chan $chan1 banlist.11 $user
+blacktools:tell $nick $host $hand $chan $chan1 banlist.12 "$fban $create $expire $freason"
+set foundban 1
+}
+}
+
+if {![info exists foundban]} {
+blacktools:tell $nick $host $hand $chan $chan1 banlist.11 $user
+blacktools:tell $nick $host $hand $chan $chan1 banlist.7 $user
+} else { 
+blacktools:tell $nick $host $hand $chan $chan1 banlist.8 $user }
+}
+
+
+############################## rehash #################################
+
+proc rehashme {nick host hand arg} {
+global black
+blacktools:tell:prv $nick $host $hand rehash.1 none
+ rehash
+}
+
+############################## VERSION ################################
+
+proc blackreply {nick host hand dest key text} {
+global ctcp-version
+set {ctcp-version} "1Using 4BlackTools 2.3 1by 12BLaCkShaDoW"
+}
+
+
+############################## restart ################################
+
+proc restartme {nick host hand arg} {
+global black
+blacktools:tell:prv $nick $host $hand restart.1 none
+utimer 3 [list restart ]
+}
+
+############################### save #################################
+
+proc saveme {nick host hand arg} {
+global black
+blacktools:tell:prv $nick $host $hand save.1 none
+ save
+}
+
+############################### jump #################################
+
+proc jumpme {nick host hand arg} {
+global black
+blacktools:tell:prv $nick $host $hand jump.1 none
+ utimer 3 [list jump]
+}
+
+############################### die ###################################
+
+proc dieme {nick host hand arg} {
+global black
+blacktools:tell:prv $nick $host $hand die.1 none
+utimer 3 [list die "byeeee" ]
+}
+
+
+############################## nick ###################################
+
+proc nickpublic {altnick host hand arg} {
+global nick black
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+set newnick [lindex [split $arg] 0]
+if {$newnick == ""} { blacktools:tell:prv $nick $host $hand nick.2 none
+return 0
+}
+blacktools:tell:prv $nick $host $hand nick.1 "$newnick"
+set nick $newnick
+}
+
+proc nick:process {who newnick host hand chan} {
+global black nick
+set chan1 "$chan"
+if {$newnick == ""} {
+blacktools:tell $who $host $hand $chan $chan1 nick.2 none
+return 0
+}
+blacktools:tell $who $host $hand $chan $chan1 nick.1 none
+set nick $newnick
+}
+
+############################## addchan ################################
+
+proc addchanpublic {nick host hand arg} {
+global black
+set chans [lindex [split $arg] 0]
+if {$chans == ""} {blacktools:tell:prv $nick $host $hand addchan.1 none
+return 0 
+}
+
+if {![regexp {^[#&]} $chans]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none
+return 0
+} 
+
+if {[validchan $chans]} {
+blacktools:tell:prv $nick $host $hand addchan.2 "$chans"
+return 0
+} else {
+channel add $chans
+addchan:stats $chans $hand $host
+blacktools:tell:prv $nick $host $hand addchan.3 "$chans"
+}
+}
+
+proc addchan:stats {chan hand host} {
+global black botnick statsdir
+set k 0
+set time [unixtime]
+set file [open $statsdir "r"]
+set addfile "$chan ADDED $hand $host $time 0"
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set k [expr $k +1]
+set chanentry [lindex [split $line] 0]
+set addtype [lindex [split $line] 1]
+if {[string equal -nocase "REMOVED" "$addtype"] && [string match -nocase $chanentry $chan]} { 
+if {$line != ""} {
+set num [expr $k - 1]
+set delete [lreplace $data $num $num]
+set files [open $statsdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $statsdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $statsdir "w"]
+close $files
+}
+set file [open $statsdir "a"]
+puts $file "$addfile"
+close $file
+}
+
+
+proc delchan:stats {chan hand host} {
+global black botnick statsdir
+set k 0
+set time [unixtime]
+set file [open $statsdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+set addfile "$chan REMOVED $hand $host $time 0 0 none none"
+foreach line $data {
+set k [expr $k +1]
+set chanentry [lindex [split $line] 0]
+set addtype [lindex [split $line] 1]
+if {[string equal -nocase "REMOVED" "$addtype"] && [string match -nocase $chanentry $chan]} {
+if {$line != ""} {
+set num [expr $k - 1]
+set delete [lreplace $data $num $num]
+set files [open $statsdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+if {[string equal -nocase "ADDED" "$addtype"] && [string match -nocase $chanentry $chan]} {
+set added [lindex [split $line] 4]
+set bywho [lindex [split $line] 2]
+set byhost [lindex [split $line] 3]
+set addfile "$chan REMOVED $hand $host $time $added $bywho $byhost"
+if {$line != ""} {
+set num [expr $k - 1]
+set delete [lreplace $data $num $num]
+set files [open $statsdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $statsdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $statsdir "w"]
+close $files
+}
+set file [open $statsdir "a"]
+puts $file "$addfile"
+close $file
+}
+
+
+
+
+
+############################## delchan ################################
+
+
+proc delchanpublic {nick host hand arg} {
+global black
+set chans [lindex [split $arg] 0]
+
+if {$chans == ""} {blacktools:tell:prv $nick $host $hand delchan.1 none
+return 0 
+}
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none
+return 0
+ } 
+
+if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand delchan.2 $chans
+return 0
+}
+delchan:stats $chans $hand $host
+channel remove $chans
+blacktools:tell:prv $nick $host $hand delchan.3 $chans
+}
+
+
+############################## suspend ################################
+
+proc suspendpublic {nick host hand arg} {
+global black
+set chans [lindex [split $arg] 0]
+
+if {$chans == ""} {blacktools:tell:prv $nick $host $hand suspend.1 none
+return 0 
+}
+
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none 
+return 0
+ }
+
+if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand suspend.2 $chans
+return 0
+}
+
+if {[channel get $chans inactive]} {
+blacktools:tell:prv $nick $host $hand suspend.3 $chans
+return 0
+}
+channel set $chans +inactive
+blacktools:tell:prv $nick $host $hand suspend.4 $chans
+}
+
+############################# unsuspend ###############################
+
+proc unsuspendpublic {nick host hand arg} {
+global black
+set chans [lindex [split $arg] 0]
+
+if {$chans == ""} {blacktools:tell:prv $nick $host $hand unsuspend.1 none
+return 0 
+}
+
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none
+return 0
+ }
+ 
+if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand unsuspend.2 $chans
+return 0
+}
+
+if {![channel get $chans inactive]} {
+blacktools:tell:prv $nick $host $hand unsuspend.3 $chans
+return 0
+ }
+channel set $chans -inactive
+blacktools:tell:prv $nick $host $hand unsuspend.4 $chans
+}
+
+################################ op ###################################
+
+proc oppublic {nick host hand arg} {
+global black
+set chan [lindex [split $arg] 0]
+set nicks [lrange [split $arg] 1 end]
+if {![validchan $chan]} {
+blacktools:tell:prv $nick $host $hand gl.nocmem $chan
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
+return 0
+}
+if {$nicks == ""} { set nicks "$nick" }
+if {[matchattr $hand nm|OASM $chan]} {
+if {![regexp {^[\\+!#&]} $chan]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none 
+return 0
+} 
+if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
+return 0
+}
+
+if {![validchan $chan]} { 
+blacktools:tell:prv $nick $host $hand op.1 $chan
+return 0
+}
+
+foreach nickz $nicks {
+if {[isop $nickz $chan]} {
+blacktools:tell:prv $nick $host $hand op.2 $nickz
+return 0
+}
+putquick "MODE $chan +o $nickz"
+
+}
+}
+}
+
+############################### deop ##################################
+
+proc deoppublic {nick host hand arg} {
+global black
+set chan [lindex [split $arg] 0]
+set nicks [lrange [split $arg] 1 end]
+if {![validchan $chan]} {
+blacktools:tell:prv $nick $host $hand gl.nocmem $chan
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
+return 0
+}
+if {$nicks == ""} { set nicks "$nick" }
+if {[matchattr $hand nm|OASM $chan]} {
+if {![regexp {^[\\+!#&]} $chan]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none 
+return 0
+ } 
+if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
+return 0
+}
+
+if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand deop.1 $chan
+return 0
+}
+
+foreach nickz $nicks {
+if {[onchan $nickz $chan]} {
+putquick "MODE $chan -o $nickz"
+
+}
+}
+}
+}
+
+############################### voice #################################
+
+proc voicepublic {nick host hand arg} {
+global black
+set chan [lindex [split $arg] 0]
+set nicks [lrange [split $arg] 1 end]
+
+if {![validchan $chan]} {
+blacktools:tell:prv $nick $host $hand gl.nocmem $chan
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
+return 0
+}
+if {$nicks == ""} { set nicks "$nick" }
+if {[matchattr $hand nm|OASM $chan]} {
+if {![regexp {^[\\+!#&]} $chan]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none 
+return 0
+ } 
+if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
+return 0
+}
+
+if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand voice.1 $chan
+return 0
+}
+
+foreach nickz $nicks {
+if {[onchan $nickz $chan]} {
+if {[isvoice $nickz $chan]} { 
+blacktools:tell:prv $nick $host $hand voice.2 $nickz
+return 0
+}
+putquick "MODE $chan +v $nickz"
+
+}
+}
+}
+}
+
+############################## devoice ################################
+
+proc devoicepublic {nick host hand arg} {
+global black
+set chan [lindex [split $arg] 0]
+set nicks [lrange [split $arg] 1 end]
+if {![validchan $chan]} {
+blacktools:tell:prv $nick $host $hand gl.nocmem $chan
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
+return 0
+}
+if {$nicks == ""} { set nicks "$nick" }
+if {[matchattr $hand nm|OASM $chan]} {
+if {![regexp {^[\\+!#&]} $chan]} {
+blacktools:tell:prv $nick $host $hand gl.novalidchan none 
+return 0
+ } 
+if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
+return 0
+}
+
+if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand devoice.1 $chan
+return 0
+}
+
+foreach nickz $nicks {
+if {[onchan $nickz $chan]} {
+putquick "MODE $chan -v $nickz"
+
+}
+}
+}
+}
+
+############################## invite #################################
+
+proc invitepublic {nick host hand arg} {
+global black
+set chan [lindex [split $arg] 0]
+set replace(%chan%) $chan
+if {![validchan $chan]} {
+blacktools:tell:prv $nick $host $hand gl.nocmem $chan
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none"
+return 0
+}
+if {[matchattr $hand nm|OASM $chan]} {
+if {$chan == ""} { blacktools:tell:prv $nick $host $hand invite.1 none
+return 0 
+}
+putquick "INVITE $nick $chan"
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set getmsg $black(say.$getlang.invite.2)
+if {[info exists black(say.$getlang.invite.2)]} {
+set getmsg [string map [array get replace] $getmsg]
+putquick "PRIVMSG $nick :$getmsg"
+}
+
+}
+}
+
+
+
+##############################add ######################################
+
+proc add:process {args time level hand host chan chan1 nick type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flags "nm|NMOSAV"
+if {[matchattr $hand nm|- $chan]} {
+if {($level == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.1 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.2 none
+return 0
+}
+}
+if {($level == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.3 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+
+foreach user $args {
+if {$user != ""} {
+set replace(%user%) $user
+if {([string length $user]>=10) && ($black(maxhand) == "1")} {
+set user [string range $user 0 8]
+}
+
+set uhost [string map [array get replace] $black(hostadd)]
+if {[userlist] != ""} {
+foreach usr [userlist] {
+set hst [getuser $usr hosts]
+foreach hhost $hst {
+if {[string match -nocase $hhost $uhost] && (![string match -nocase $usr $user])} {
+blacktools:tell $nick $host $hand $chan $chan1 add.5 $usr
+return 0
+}
+}
+}
+}
+ 
+if {[matchattr $hand -|A $chan] && ($level == "manager")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.6 none
+return 0
+}
+if {[matchattr $hand -|A $chan] && ($level == "admin")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.7 none
+return 0
+}
+if {[matchattr $hand -|M $chan] && ($level == "manager")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.8 none
+return 0
+}
+
+if {([regexp -nocase -- {(#[0-9]+|owner|manager|admin|senior|op|voice|protect)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
+    switch $access {
+       manager { 
+          set flags "-|olM"
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
+} else {
+adduser $user $uhost
+chattr $user -|-SOAMV $chan
+chattr $user $flags $chan
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
+}
+}
+     admin {
+
+      set flags "-|olA"
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
+}
+}
+
+   senior {
+     set flags "-|olS"
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} {
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
+}
+}
+
+
+owner {
+if {[matchattr $hand n|- $chan]} {
+ set flags "m|-"
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
+}
+}
+}
+
+op {
+ set flags "-|olO"
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
+}
+}
+
+protect {
+ set flags "-|H"
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qHolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolHSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
+}
+}
+
+
+
+ voice {
+ set flags "-|lV"
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
+}
+}
+}
+}
+}
+}
+}
+
+
+
+########################## adduser ################################
+
+proc adduserpublic {nick host hand chan arg} {
+global black
+set level [lindex [split $arg] 0]
+set args [lrange [split $arg] 1 end]
+set c [lindex [split $arg] 1]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 2 end]
+}
+adduser:process $nick $host $hand $chan $chan1 $args $level $type
+}
+
+
+proc adduser:process {nick host hand chan chan1 args level type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+set flags "nm|NMOSVA"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($level == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 adduser.1 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 adduser.2 none
+return 0
+}
+}
+if {($level == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 adduser.3 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 adduser.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+foreach user $args {
+if {$user != ""} {
+if {![onchan $user $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $user
+return 0
+}
+
+set handle [nick2hand $user]
+set hosts [getchanhost $user $chan]
+set uhost "*!*@[lindex [split $hosts @] 1]"
+
+
+if {([string length $user]>=10) && ($black(maxhand) == "1")} {
+set user [string range $user 0 8]
+}
+if {[userlist] != ""} {
+foreach usr [userlist] {
+set hst [getuser $usr hosts]
+foreach hhost $hst {
+if {[string match -nocase $hhost $uhost] && (![string match -nocase $usr $user])} {
+blacktools:tell $nick $host $hand $chan $chan1 add.5 $usr
+return 0
+}
+}
+}
+}
+
+if {[matchattr $hand -|A $chan] && ($level == "manager")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.6 none
+return 0
+}
+if {[matchattr $hand -|A $chan] && ($level == "admin")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.7 none
+return 0
+}
+if {[matchattr $hand -|M $chan] && ($level == "manager")} {
+blacktools:tell $nick $host $hand $chan $chan1 add.8 none
+return 0
+}
+if {([regexp -nocase -- {(#[0-9]+|owner|manager|admin|senior|op|voice|protect)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
+    switch $access {
+       manager { 
+          set flags "-|olM"
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
+} else {
+adduser $user $uhost
+chattr $user -|-SOAMV $chan
+chattr $user $flags $chan
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
+}
+}
+     admin {
+      set flags "-|olA"
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} {
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
+}
+}
+   senior {
+     set flags "-|olS"
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} {
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
+}
+}
+
+owner {
+if {[matchattr $hand n|- $chan]} {
+ set flags "m|-"
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
+}
+}
+}
+
+op {
+ set flags "-|olO"
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
+}
+}
+
+protect {
+ set flags "-|H"
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qolHSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolHSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
+}
+}
+
+
+
+ voice {
+ set flags "-|lV"
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
+} else {
+adduser $user $uhost
+chattr $user -|-qolSOAMV $chan
+chattr $user $flags $chan 
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
+blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
+}
+}
+}
+}
+}
+}
+}
+
+
+
+
+proc publicadd {nick host hand chan arg} {
+global black
+set level [lindex [split $arg] 0]
+set time [ctime [unixtime]]
+set type 0
+set chan1 "$chan"
+set args [lrange [split $arg] 1 end]
+set c [lindex [split $arg] 1]
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 2 end]
+}
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+add:process $args $time $level $hand $host $chan $chan1 $nick $type
+}
+
+
+############################## delacc ################################
+
+proc delaccpublic {nick host hand chan arg} {
+global black
+set args [lrange [split $arg] 0 end]
+set type 0
+set chan1 "$chan"
+set c [lindex [split $arg] 0]
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 1 end]
+}
+delacc:process $nick $host $hand $chan $chan1 $args $type
+}
+
+proc delacc:process {nick host hand chan chan1 args type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($args == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delacc.1 none
+return 0
+}
+if {($args == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delacc.2 none
+return 0
+}
+}
+if {($args == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delacc.3 none
+return 0
+}
+if {($args == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delacc.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+foreach user $args {
+if {$user != ""} {
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {![matchattr $user nm|aolSOAMV $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
+return 0
+}
+
+if {[validuser $user]} { 
+chattr $user -|-qaolSOAMV $chan
+blacktools:tell $nick $host $hand $chan $chan1 delacc.5 $user
+} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
+}
+}
+}
+
+############################## del #####################################
+
+proc delpublic {nick host hand chan arg} {
+global black
+set args [lrange [split $arg] 0 end]
+set type 0
+set chan1 "$chan"
+del:process $nick $host $hand $chan $chan1 $args $type
+}
+
+proc del:process {nick host hand chan chan1 args type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {($args == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 del.1 none
+return 0
+}
+if {($args == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 del.2 none
+return 0
+}
+
+foreach user $args {
+if {$user != ""} {
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[validuser $user]} { 
+deluser $user
+blacktools:tell $nick $host $hand $chan $chan1 del.3 $user
+} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
+}
+}
+}
+
+################################ addhost #############################
+
+proc addhostpublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set hosts [lrange [split $arg] 1 end]
+addhost:process $nick $host $hand $chan $chan1 $user $hosts $type
+}
+
+proc addhost:process {nick host hand chan chan1 user hosts type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 addhost.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 addhost.2 none
+return 0
+}
+
+
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} {
+set hhost [getuser $user hosts]
+foreach hhost $hhost {
+if {[string match -nocase $hosts $hhost]} {
+blacktools:tell $nick $host $hand $chan $chan1 addhost.3 "$user $hosts"
+return 0
+}
+}
+setuser $user HOSTS $hosts
+setuser $user XTRA LASTMODIFBY $hand
+setuser $user XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 addhost.4 "$user $hosts"
+} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
+}
+
+
+############################### delhost ############################
+
+
+proc delhostpuplic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set hosts [lrange [split $arg] 1 end]
+delhost:process $nick $host $hand $chan $chan1 $user $hosts $type
+}
+
+
+proc delhost:process {nick host hand chan chan1 user hosts type} {
+global black botnick
+set time [ctime [unixtime]]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delhost.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delhost.2 none
+return 0
+}
+
+
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} {
+
+set hhost [getuser $user hosts]
+foreach hhost $hhost {
+if {[string match -nocase $hhost $hosts]} {
+set foundhost 1
+}
+}
+if {![info exists foundhost]} {
+blacktools:tell $nick $host $hand $chan $chan1 delhost.3 "$user $hosts"
+return 0
+}
+
+delhost $user $hosts
+blacktools:tell $nick $host $hand $chan $chan1 delhost.4 "$user $hosts"
+} else { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+ }
+}
+
+
+proc chuserpublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+set chandle [lindex [split $arg] 1]
+chuser:process $nick $host $hand $chan $chan1 $user $chandle $type
+}
+
+proc chuser:process {nick host hand chan chan1 user chandle type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 chuser.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 chuser.2 none
+return 0
+}
+
+if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+
+if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0
+}
+if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[validuser $user]} {
+chhandle $user $chandle
+setuser $chandle XTRA LASTMODIFBY $hand
+setuser $chandle XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 chuser.3 "$user $chandle"
+} else {blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
+}
+
+proc userlist:execute {hand host level chan chan1 nick type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($level == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 userlist.1 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 userlist.2 none
+return 0
+}
+}
+if {($level == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 userlist.3 none
+return 0
+}
+if {($level == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 userlist.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+if {([regexp -nocase -- {(#[0-9]+|manager|protect|admin|senior|op|voice|all|owner)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
+    switch $access {
+     manager {
+     set flags "-|M"
+    set numar [llength [userlist $flags $chan]]
+    set list [userlist $flags $chan]
+foreach user [wordwrap [join $list "  "] 250 ,] {
+    if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.5 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.6 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+admin {
+  set flags "-|A"
+  set numar [llength [userlist $flags $chan]]
+  set list [userlist $flags $chan]
+foreach user [wordwrap [join $list " , "] 250 ,] {
+if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.8 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.9 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+senior {
+set flags "-|S"
+    set list [userlist $flags $chan]
+    set numar [llength [userlist $flags $chan]]
+foreach user [wordwrap [join $list " , "] 250 ,] {
+if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.10 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.11 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+protect {
+set flags "-|H"
+set list [userlist $flags $chan]
+    set numar [llength [userlist $flags $chan]]
+foreach user [wordwrap [join $list " , "] 250 ,] {
+if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.12 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.13 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+op  {
+set flags "-|O"
+    set list [userlist $flags $chan]
+    set numar [llength [userlist $flags $chan]]
+foreach user [wordwrap [join $list " , "] 250 ,] {
+if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.14 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.15 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+owner {
+if {[matchattr $hand nm|- $chan]} {
+set bossflags "n|-"
+set ownerflags "m|-"
+set listbossowner [userlist $bossflags]
+set listowner [userlist $ownerflags]
+blacktools:tell $nick $host $hand $chan $chan1 userlist.16 $listbossowner
+blacktools:tell $nick $host $hand $chan $chan1 userlist.17 $listowner
+}
+}
+
+voice {
+set flags "-|V"
+    set numar [llength [userlist $flags $chan]]
+    set list [userlist $flags $chan]
+foreach user [wordwrap [join $list " , "] 250 ,] {
+if {$list == ""} { set user "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.18 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.19 none
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
+}
+}
+
+all {
+array set flgc [list]
+set flags "-|MNASVO"
+set list [userlist $flags $chan]
+set numar [llength [userlist $flags $chan]]
+foreach user $list {
+if {[matchattr $user -|V $chan]} { 
+lappend flgc(VOICE) $user
+
+} elseif {[matchattr $user -|O $chan]} {
+ 
+lappend flgc(OP) $user
+} elseif {[matchattr $user -|S $chan]} {
+
+lappend flgc(SENIOR) $user
+
+} elseif {[matchattr $user -|A $chan]} {
+ 
+lappend flgc(ADMINISTRATOR) $user
+
+} elseif {[matchattr $user -|M $chan]} {
+ 
+lappend flgc(MANAGER) $user
+ 
+}
+}
+
+foreach flw [array names flgc] {
+lappend messall [join 4$flgc($flw) " , "] -> 12($flw)
+}
+if {$list == ""} { set messall "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 userlist.20 $numar
+blacktools:tell $nick $host $hand $chan $chan1 userlist.21 none
+foreach mes [wordwrap [join $messall] 250] {
+blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $mes
+}
+}
+
+}
+}
+}
+
+proc wordwrap {str {len 100} {splitChr { }}} { 
+   set out [set cur {}]; set i 0 
+   foreach word [split [set str][unset str] $splitChr] { 
+     if {[incr i [string len $word]]>$len} { 
+         lappend out [join $cur $splitChr] 
+         set cur [list $word] 
+         set i [string len $word] 
+      } { 
+         lappend cur $word 
+      } 
+      incr i 
+   } 
+   lappend out [join $cur $splitChr] 
+} 
+
+
+
+proc publicuserlist {nick host hand chan arg} {
+global black
+set level [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $level] && [matchattr $hand nm|- $chan]} {
+set chan "$level"
+set level [lindex [split $arg] 1]
+} 
+userlist:execute $hand $host $level $chan $chan1 $nick $type
+}
+
+
+############################### channels ########################
+
+proc channelspublic {nick host hand chan arg} {
+global botnick black
+set chan1 "$chan"
+channels:process $nick $host $hand $chan $chan1
+}
+
+proc channels:process {nick host hand chan chan1} {
+global botnick black
+set num [llength [channels]]
+set minusers "5"
+array set status [list]
+set notonchan "(NoT on ChaN)"
+set notenough "(users < $minusers)"
+set suspended "(SUSPENDED)"
+foreach c [channels] {
+set usersnumber [llength [chanlist $c]]
+if {[channel get $c inactive]} {
+lappend status($c) "4$c $suspended"
+} elseif {![onchan $botnick $c]} {
+lappend status($c) "4$c $notonchan"
+} elseif {[onchan $botnick $c] && (![botisop $c])} {
+lappend status($c) "4$c"
+} elseif {[onchan $botnick $c] && ($usersnumber < $minusers)} {
+lappend status($c) "4$c $notenough"
+}
+if {![info exists status($c)]} {
+lappend status($c) "1@$c"
+}
+
+lappend message "[join $status($c) ", "]"
+
+}
+blacktools:tell $nick $host $hand $chan $chan1 channels.1 $num
+foreach word [wordwrap [join $message] 350 ,] {
+blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
+}
+}
+
+
+############################### info ############################
+
+proc infopublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+info:process $nick $host $hand $chan $chan1 $user $type
+}
+
+proc info:process {nick host hand chan chan1 user type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+array set flg [list]
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 info.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 info.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 info.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 info.4 none
+return 0
+}
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[validuser $user]} {
+} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none 
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+foreach c [channels] {
+if {[matchattr $user -|V $c]} { 
+set fl "VOICE"
+lappend flg($fl) $c
+} elseif {[matchattr $user -|O $c]} { 
+set fl "OP" 
+lappend flg($fl) $c
+} elseif {[matchattr $user -|S $c]} {
+ set fl "SENIOR"
+lappend flg($fl) $c
+} elseif {[matchattr $user -|A $c]} {
+set fl "ADMINISTRATOR" 
+lappend flg($fl) $c
+} elseif {[matchattr $user -|M $c]} {
+set fl "MANAGER" 
+lappend flg($fl) $c 
+}
+
+}
+foreach cf [array names flg] {
+
+lappend exit 1[join $flg($cf) ,] 12($cf) |
+}
+
+}
+
+if {![matchattr $user nm|OAHSMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
+if {![info exists exit]} { set exit "1NONE"}
+if {[matchattr $hand nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 info.5 "[join $exit]"
+if {[getuser $user HOSTS] != ""} {
+set hosts [getuser $user hosts]
+blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
+}
+set lastseen [getuser $user LASTON $chan]
+if {($lastseen == "0") || ($lastseen == "")} {
+set seened "1NONE"
+} else { set seened [ctime $lastseen] }
+blacktools:tell $nick $host $hand $chan $chan1 info.7 $seened
+}
+return 0
+}
+
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set suspendat "$black(say.$getlang.info.10)"
+
+set cflags [chattr $user | $chan]
+blacktools:tell $nick $host $hand $chan $chan1 info.8 $user
+blacktools:tell $nick $host $hand $chan $chan1 info.9 $time
+if {[matchattr $user -|V $chan]} { set flags "VOICE" } elseif {[matchattr $user -|O $chan]} { set flags "OP" } elseif {[matchattr $user -|S $chan]} { set flags "SENIOR" } elseif {[matchattr $user -|A $chan]} { set flags "ADMINISTRATOR" } elseif {[matchattr $user -|H $chan]} { set flags "PROTECT"}
+if {[matchattr $user -|M $chan]} { set flags "MANAGER" } elseif {[matchattr $user n|- $chan]} { set flags "THE BOSS OWNER" } elseif {[matchattr $user m|- $chan]} { set flags "OWNER" } elseif {$cflags == "-|-"} {puthelp "NOTICE $nick :$user nu are ACCESS pe acest canal !" 
+return 0
+}
+
+
+if {[matchattr $user -|q $chan]} {
+if {[matchattr $user -|V $chan]} { set flags "VOICE ($suspendat)" } elseif {[matchattr $user -|O $chan]} { set flags "OP ($suspendat)" } elseif {[matchattr $user -|S $chan]} { set flags "SENIOR ($suspendat)" } elseif {[matchattr $user -|A $chan]} { set flags "ADMINISTRATOR ($suspendat)" } elseif {[matchattr $user -|O $chan]} { set flags "PROTECT ($suspendat)"}
+if {[matchattr $user -|M $chan]} { set flags "MANAGER ($suspendat)" } elseif {[matchattr $user m|- $chan]} { set flags "OWNER ($suspendat)" } elseif {$cflags == "-|-"} {puthelp "NOTICE $nick :$user 
+
+S pe acest canal !" 
+return 0
+}
+}
+
+blacktools:tell $nick $host $hand $chan $chan1 info.11 "$cflags $flags"
+if {[getuser $user INFO] != ""} {
+blacktools:tell $nick $host $hand $chan $chan1 info.12 "[getuser $user INFO]"
+}
+
+ 
+set date [getuser $user XTRA LASTMODIFDATE]
+if {[matchattr $user n|- $chan]} { set date "No Date" }
+if {$date == ""} { set date "No Date" }
+
+ set lastt [getuser $user XTRA LASTMODIFBY]
+ if {$lastt == ""} { set lastt "No info" }
+ if {[matchattr $user n|- $chan]} { set lastt "NONE" }
+blacktools:tell $nick $host $hand $chan $chan1 info.13 "$lastt $date"
+
+if {[getuser $user HOSTS] != ""} {
+set hosts [getuser $user hosts]
+blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
+}
+
+if {![info exists exit]} { set exit "NONE"}
+if {![matchattr $user nm|- $chan] && [matchattr $hand nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 info.5 "[join $exit]"
+}
+
+set lastseen [getuser $user LASTON $chan]
+if {($lastseen == "0") || ($lastseen == "")} { 
+blacktools:tell $nick $host $hand $chan $chan1 info.14 none
+blacktools:tell $nick $host $hand $chan $chan1 info.15 $user
+blacktools:tell $nick $host $hand $chan $chan1 info.16 none
+return 0
+}
+set seened [ctime $lastseen]
+blacktools:tell $nick $host $hand $chan $chan1 info.17 $seened
+blacktools:tell $nick $host $hand $chan $chan1 info.15 $user
+blacktools:tell $nick $host $hand $chan $chan1 info.16 none
+}
+
+
+################################# s ###############################
+
+proc spublic {nick host hand chan arg} {
+global black
+set type 0
+set chan1 "$chan"
+set users [lindex [split $arg] 0]
+if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
+set chan "$users"
+set users [lindex [split $arg] 1]
+}
+s:process $nick $host $hand $chan $chan1 $users $type
+}
+
+proc s:process {nick host hand chan chan1 users type} {
+global botnick black
+set flags "-|q"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($users == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 s.1 none
+return 0
+}
+if {($users == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 s.2 none
+return 0
+}
+}
+if {($users == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 s.3 none
+return 0
+}
+if {($users == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 s.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+if {[matchattr $users -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 s.5 $users
+return 0
+}
+
+if {![validuser $users]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+if {![matchattr $users nm|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
+return 0
+}
+ 
+
+if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+
+chattr $users $flags $chan
+setuser $users XTRA LASTMODIFBY $hand
+setuser $users XTRA LASTMODIFDATE $time
+blacktools:tell $nick $host $hand $chan $chan1 s.6 $users
+} 
+
+
+################################## us ################################
+
+proc uspublic {nick host hand chan arg} {
+global black
+set type 0
+set chan1 "$chan"
+set users [lindex [split $arg] 0]
+if {[regexp {^[\\+!#&]} $users] && [matchattr $hand nm|- $chan]} {
+set chan "$users"
+set users [lindex [split $arg] 1]
+}
+us:process $nick $host $hand $chan $chan1 $users $type
+}
+
+proc us:process {nick host hand chan chan1 users type} {
+global botnick black
+set flags "-|-q"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set time [ctime [unixtime]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($users == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 us.1 none
+return 0
+}
+if {($users == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 us.2 none
+return 0
+}
+}
+if {($users == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 us.3 none
+return 0
+}
+if {($users == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 us.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $users]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+if {![matchattr $users nm|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
+return 0
+}
+
+if {![matchattr $users -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 us.5 $users
+return 0
+}
+
+if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
+return 0 
+}
+
+setuser $users XTRA LASTMODIFBY $hand
+setuser $users XTRA LASTMODIFDATE $time
+chattr $users $flags $chan
+blacktools:tell $nick $host $hand $chan $chan1 us.6 $users
+} 
+
+############################## ping ##################################
+
+proc pings {nick host hand chan arg} {
+putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
+return 0
+}
+
+proc pingpublic {nick host hand dest key arg} {
+global botnick black
+set ping [split $arg "."]
+set pingreply [lindex $ping 0]
+if {[regexp -- {^-?[0-9]+$} $pingreply]} {
+set second "[expr {abs([expr [expr {abs([clock clicks -milliseconds])} - $pingreply] / 1000.000])}]"
+blacktools:tell:prv $nick $host $hand ping.1 $second
+}
+}
+
+############################### time ##################################
+
+proc timepublic {nick host hand chan arg} {
+global black
+set chan1 "$chan"
+set time [ctime [unixtime]]
+blacktools:tell $nick $host $hand $chan $chan1 time.1 $time
+}
+
+################################### vers ###############################
+
+proc verspublic {nick host hand chan arg} {
+global black
+set why [lindex [split $arg] 0]
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 vers.1 none
+return 0
+}
+vers:process $nick $host $hand $chan $chan1 $why
+}
+
+proc vers:process {nick host hand chan chan1 why} {
+global botnick black
+set ::verschan $chan
+set ::versnick $nick
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {![onchan $why $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan $why
+return 0
+}
+putserv "PRIVMSG $why :\001VERSION\001"
+
+}
+
+
+proc ctcpvers {nickname hostname handle dest key arg} {
+set text [split $arg]
+set chan $::verschan
+set nick $::versnick
+blacktools:tell:prv $nick $hostname $handle vers.3 "$nickname $text"
+}
+
+################################### whois ###############################
+
+proc whoispublic {nick host hand chan arg} {
+global black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set chan1 "$chan"
+set who [lindex [split $arg] 0]
+if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 whois.1 none
+return 0
+}
+whois:process $nick $host $hand $chan $chan1 $who
+}
+
+
+
+proc whois:process {nick host hand chan chan1 who} {
+global botnick black
+set ::wnick $nick
+set ::hand $hand
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+putquick "WHOIS $who $who"
+bind RAW - 311 winfo
+bind RAW - 319 wchannels
+bind RAW - 401 nonicks
+}
+
+proc winfo { from keyword arguments } {
+global black
+ set hand $::hand
+ set nick $::wnick
+ set nickname [lindex [split $arguments] 1]
+ set ident [lindex [split $arguments] 2]
+ set host [lindex [split $arguments] 3]
+ set realname [string range [join [lrange $arguments 5 end]] 1 end]
+
+blacktools:tell:prv $nick hostname $hand whois.3 "$nickname 4host - 12*!*$ident@$host * $realname"
+
+unbind RAW - 311 winfo
+
+}
+
+proc wchannels { from keyword arguments } {
+global black
+set hand $::hand
+set nick $::wnick
+set channels [string range [join [lrange $arguments 2 end]] 1 end]
+blacktools:tell:prv $nick hostname $hand whois.4 $channels
+
+unbind RAW - 319 wchannels
+
+}
+
+proc nonicks { from keyword arguments } {
+global black
+set hand $::hand
+set nick $::wnick
+blacktools:tell:prv $nick hostname $hand whois.5 none
+unbind RAW - 401 nonicks
+}
+
+
+################################### clear ###############################
+
+
+proc clearpublic {nick host hand chan arg} {
+global black
+set why [lindex [split $arg] 0]
+set chan1 "$chan"
+set type 0
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 1]
+}
+clear:process $nick $host $hand $chan $chan1 $why $type
+}
+
+proc clear:process {nick host hand chan chan1 why type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($why == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 clear.1 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 clear.2 none
+return 0
+}
+}
+if {($why == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 clear.3 none
+return 0
+}
+if {($why == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 clear.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+if {([regexp -nocase -- {(#[0-9]+|banlist|userlist)} $why tmp cleanlist]) && (![regexp -nocase -- {\S#} $why])} {
+    switch $cleanlist {
+       userlist {
+set list [userlist -|AOSV $chan]
+
+foreach user $list {
+chattr $user -|-AOVS $chan
+}
+blacktools:tell $nick $host $hand $chan $chan1 clear.5 none
+}
+
+banlist {
+set i 0
+foreach ban [banlist $chan] {
+set theban [lindex $ban 0]
+if {[string match "*" $theban]} {
+set i [expr $i +1]
+killchanban $chan $theban
+}
+}
+blacktools:tell $nick $host $hand $chan $chan1 clear.6 $i
+}
+
+}
+}
+}
+
+
+################################# addbot ################################
+
+
+proc addbotpublic {nick host hand chan arg} {
+global black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set chan1 "$chan"
+set why [lindex [split $arg] 0]
+set host [lindex [split $arg] 1]
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addbot.1 none
+return 0
+}
+addbot:process $nick $host $hand $chan $chan1 $why $host
+}
+
+
+proc addbot:process {nick host hand chan chan1 why host} {
+global botnick black
+set flags "ao|ao"
+if {[validuser $why]} {
+blacktools:tell $nick $host $hand $chan $chan1 addbot.3 $why
+return 0
+}
+
+addbot $why $host
+chattr $why $flags $chan
+blacktools:tell $nick $host $hand $chan $chan1 addbot.4 "$why $host"
+}
+
+
+
+proc autovonjoin {nick host hand chan} {
+if {[channel get $chan autovoice]} {
+pushmode $chan +v $nick
+}
+}
+
+
+
+proc autoponjoin {nick host hand chan} {
+if {[channel get $chan autoop]} {
+pushmode $chan +o $nick
+}
+}
+
+############################# addop #################################
+
+proc addoppublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+addop:process $nick $host $hand $chan $chan1 $user $type
+}
+
+
+proc addop:process {nick host hand chan chan1 user type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flag "-|a"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 addop.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 addop.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 addop.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 addop.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+
+if {[matchattr $user -|a $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addop.5 $user
+return 0
+}
+
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 addop.6 $user
+}
+
+proc addopjoin {nick host hand chan} {
+if {[matchattr $hand -|a $chan]} {
+pushmode $chan +o $nick
+}
+}
+
+
+########################### addvoice ################################
+
+proc addvoicepublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+addvoice:process $nick $host $hand $chan $chan1 $user $type
+}
+
+proc addvoice:process {nick host hand chan chan1 user type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flag "-|g"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+
+if {[matchattr $user -|g $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.5 $user
+return 0
+}
+
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 addvoice.6 $user
+}
+
+proc addvoicejoin {nick host hand chan} {
+if {[matchattr $hand -|g $chan]} {
+pushmode $chan +v $nick
+}
+}
+
+
+
+
+
+########################### delop ##################################
+
+proc deloppublic {nick host hand chan arg} {
+global black botnick
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+delop:process $nick $host $hand $chan $chan1 $user $type
+}
+
+proc delop:process {nick host hand chan chan1 user type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flag "-|-a"
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delop.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delop.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delop.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delop.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+
+if {[matchattr $user -|a $chan]} {
+set noautoop 1
+}
+
+if {![info exists noautoop]} {
+blacktools:tell $nick $host $hand $chan $chan1 delop.5 $user
+return 0
+}
+
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 delop.6 $user
+}
+
+
+
+############################ delvoice ###############################
+
+proc delvoicepublic {nick host hand chan arg} {
+global black
+set user [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+delvoice:process $nick $host $hand $chan $chan1 $user $type
+}
+
+
+
+proc delvoice:process {nick host hand chan chan1 user type} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set flag "-|-g"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+
+if {[matchattr $user -|g $chan]} {
+set noautovoice 1
+}
+
+if {![info exists noautovoice]} {
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.5 $user
+return 0
+}
+
+chattr $user $flag $chan
+blacktools:tell $nick $host $hand $chan $chan1 delvoice.6 $user
+}
+
+
+
+############################## activ ##################################
+
+proc activpublic {nick host hand chan arg} { 
+global black
+set type 0
+set chan1 "$chan"
+set user [lindex [split $arg] 0]
+if {[regexp {^[#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 1]
+}
+activ:process $nick $host $hand $chan $chan1 $user $type
+}
+
+proc activ:process {nick host hand chan chan1 user type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($user == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.1 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.2 none
+return 0
+}
+}
+if {($user == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.3 none
+return 0
+}
+if {($user == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
+return 0
+}
+if {![matchattr $user mn|OAVMS $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none 
+return 0
+}
+
+set dr [getuser $user XTRA DR($chan)]
+set ban [getuser $user XTRA b($chan)]
+set spam [getuser $user XTRA spam($chan)]
+set badnick [getuser $user XTRA n($chan)]
+set invite [getuser $user XTRA i($chan)]
+set blacks [getuser $user XTRA Black($chan)]
+set warn [getuser $user XTRA w($chan)]
+set day [getuser $user XTRA d($chan)]
+set kick [getuser $user XTRA k($chan)]
+set stick [getuser $user XTRA stick($chan)]
+set bw [getuser $user XTRA bw($chan)]
+set bot [getuser $user XTRA bot($chan)]
+
+if {$ban == ""} { set ban "0" }
+if {$dr == ""} { set dr "0" }
+if {$spam == ""} { set spam "0" }
+if {$badnick == ""} { set badnick "0" }
+if {$invite == ""} { set invite "0" }
+if {$blacks == ""} { set blacks "0" }
+if {$warn == ""} { set warn "0" }
+if {$day == ""} { set day "0" }
+if {$kick == ""} { set kick "0" }
+if {$stick == ""} { set stick "0" }
+if {$bw == ""} { set bw "0" }
+if {$bot == ""} { set bot "0" }
+
+if {[matchattr $user mn|AMS $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.5 $user
+blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)dr - 4($dr) | 12- $char(p)bot - 4($bot) | 12- $char(p)b - 4($ban) | 12- $char(p)spam - 4($spam) | 12- $char(p)n - 4($badnick) | 12- $char(p)i - 4($invite) | 12- $char(p)black - 4($blacks) | 12- $char(p)w - 4($warn) | 12- $char(p)d - 4($day) | 12- $char(p)k - 4($kick) | 12- $char(p)stick - 4($stick) | 12- $char(p)bw - 4($bw) ."
+blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
+return 0
+}
+if {[matchattr $user -|O $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.8 $user
+blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)dr - 4($dr) | 12- $char(p)bot - 4($bot) | 12- $char(p)b - 4($ban) | 12- $char(p)spam - 4($spam) | 12- $char(p)n - 4($badnick) | 12- $char(p)i - 4($invite) | 12- $char(p)w - 4($warn) | 12- $char(p)k - 4($kick) | 12- $char(p)bw - 4($bw) ."
+blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
+return 0
+}
+if {[matchattr $user -|V $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 activ.9 $user
+blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)w - 4($warn) | 12- $char(p)k - 4($kick)"
+blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
+return 0
+}
+}
+
+proc addmyhostpublic {nick host hand chan arg} {
+global black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set chan1 "$chan"
+set why [lindex [split $arg] 0]
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addmyhost.1 none
+return 0
+}
+addmyhost:process $nick $host $hand $chan $chan1 $why
+}
+
+proc addmyhost:process {nick host hand chan chan1 why} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set hhost [getuser $hand hosts]
+foreach hhost $hhost {
+if {[string match -nocase $hhost $why]} {
+set foundhost 1
+}
+}
+if {[info exists foundhost]} {
+blacktools:tell $nick $host $hand $chan $chan1 addmyhost.3 $why
+return 0
+}
+setuser $hand HOSTS $why
+blacktools:tell $nick $host $hand $chan $chan1 addmyhost.4 $why
+}
+
+############################## delmyhost ##########################
+
+proc delmyhostpublic {nick host hand chan arg} {
+global black
+set chan1 "$chan"
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set why [lindex [split $arg] 0]
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 delmyhost.1 none
+return 0
+}
+delmyhost:process $nick $host $hand $chan $chan1 $why
+}
+
+proc delmyhost:process {nick host hand chan chan1 why} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set hhost [getuser $hand hosts]
+foreach hhost $hhost {
+if {[string match -nocase $hhost $why]} {
+set foundhost 1
+}
+}
+if {![info exists foundhost]} {
+blacktools:tell $nick $host $hand $chan $chan1 delmyhost.3 $why
+return 0
+}
+delhost $hand $why
+blacktools:tell $nick $host $hand $chan $chan1 delmyhost.4 $why
+}
+
+
+######################## cc (channel created) #######################
+
+proc createdpublic { from keyword arguments } {
+set hand $::hand
+set nick $::ccnick
+set date [lindex [split $arguments] 2]
+set dates [ctime $date]
+blacktools:tell:prv $nick host $hand cc.3 $dates
+unbind RAW - 329 createdpublic
+}
+
+proc nocreatedpublic { from keyword arguments } {
+set hand $::hand
+set nick $::ccnick
+blacktools:tell:prv $nick host $hand cc.4 none
+unbind RAW - 403 nocreatedpublic
+
+}
+
+proc ccpublic {nick host hand chan arg} {
+global black
+set ::ccnick $nick
+set ::hand $hand
+set chan1 "$chan"
+set c [lindex [split $arg] 0]
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {$c == ""} { blacktools:tell $nick $host $hand $chan $chan1 cc.1 none
+return 0
+}
+if {![regexp {^[\\+!#&]} $c]} {
+set c #$c
+ } 
+
+putquick "MODE $c"
+bind raw - 329 createdpublic
+bind raw - 403 nocreatedpublic
+}
+
+proc statspublic {nick host hand chan arg} {
+global botnick black
+set c [lindex [split $arg] 0]
+set chan1 "$chan"
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+stats:process $nick $host $hand $chan $chan1
+}
+
+proc stats:process {nick host hand chan chan1} {
+global botnick black statsdir
+set ops 0
+set numban 0
+set voices 0
+set numuser 0
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+set time [unixtime]
+set file [open $statsdir "r"]
+set database [read -nonewline $file]
+set data [split $database "\n"]
+foreach line $data {
+set c [lindex [split $line] 0]
+set type [lindex [split $line] 1]
+if {[string match "ADDED" "$type"] && [string match -nocase $c $chan]} {
+set foundchan 1
+set chanadded 1
+set awho [lindex [split $line] 2]
+set ahost [lindex [split $line] 3]
+set a1time [lindex [split $line] 4]
+if {[regexp {^[0-9]} $a1time]} { 
+set duration [duration [expr [unixtime] - $a1time]]
+} else { set duration "NONE" }
+if {[regexp {^[0-9]} $a1time]} {
+set atime [clock format $a1time -format %D-%H:%M:%S]
+} else { set atime "NONE"}
+set replace(%ahost%) $ahost
+set replace(%atime%) $atime
+set replace(%duration%) $duration
+set replace(%awho%) $awho
+lappend mes "[string map [array get replace] $black(say.$getlang.stats.1)]" 
+lappend mes1 "[string map [array get replace] $black(say.$getlang.stats.2)]"
+}
+if {[string match "REMOVED" "$type"] && [string match -nocase $c $chan]} {
+set foundchan 1
+set chanremoved 1
+set rwho [lindex [split $line] 2]
+set rhost [lindex [split $line] 3]
+set rtime [lindex [split $line] 4]
+set a1time [lindex [split $line] 5]
+if {[regexp {^[0-9]} $a1time]} { 
+set duration [duration [expr [unixtime] - $a1time]]
+} else { set duration "NONE" }
+if {[regexp {^[0-9]} $a1time]} {
+set atime [clock format $a1time -format %D-%H:%M:%S]
+} else { set atime "NONE"}
+if {[regexp {^[0-9]} $rtime]} {
+set rtime [clock format $rtime -format %D-%H:%M:%S]
+} else { set rtime "NONE" }
+set awho [lindex [split $line] 6]
+set ahost [lindex [split $line] 7]
+set replace(%ahost%) $ahost
+set replace(%atime%) $atime
+set replace(%rtime%) $rtime
+set replace(%duration%) $duration
+set replace(%awho%) $awho
+set replace(%rwho%) $rwho
+set replace(%rhost%) $ahost
+lappend mes "[string map [array get replace] $black(say.$getlang.stats.1)]"
+lappend mes1 "[string map [array get replace] $black(say.$getlang.stats.3)]"
+lappend mes2 "[string map [array get replace] $black(say.$getlang.stats.4)]"
+}
+}
+if {![info exists foundchan]} {
+blacktools:tell $nick $host $hand $chan $chan1 stats.5 none
+return 0
+}
+if {[validchan $chan] && ([onchan $botnick $chan])} {
+set numban [llength [banlist $chan]]
+set numuser [llength [chanlist $chan]]
+foreach user [chanlist $chan] {
+if {[isop $user $chan] && (![isvoice $user $chan])} {
+set ops [expr $ops +1]
+}
+if {[isvoice $user $chan]} {
+set voices [expr $voices +1]
+}
+}
+}
+if {[info exists chanadded]} {
+blacktools:tell $nick $host $hand $chan $chan1 stats.6 none
+blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes]"
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 stats.9 none 
+} else {
+blacktools:tell $nick $host $hand $chan $chan1 stats.8 none
+}
+blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes1]"
+blacktools:tell $nick $host $hand $chan $chan1 stats.10 "$numuser $ops $voices $numban"
+blacktools:tell $nick $host $hand $chan $chan1 stats.11 none
+}
+
+if {[info exists chanremoved]} {
+blacktools:tell $nick $host $hand $chan $chan1 stats.6 none
+blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes]"
+blacktools:tell $nick $host $hand $chan $chan1 stats.12 none
+blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes1]"
+blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes2]"
+blacktools:tell $nick $host $hand $chan $chan1 stats.11 none
+}
+
+}
+
+
+
+####################### TopWords ####################################
+
+
+proc topwordspublic {nick host hand chan arg} {
+global black who username
+set arg [split $arg]
+if {![validchan $chan]} {
+return 0
+}
+if {[channel get $chan topwords]} {
+set lin 0
+set wordsdir "logs/$username.$chan.words.db"
+if {![file exists $wordsdir]} {
+set file [open $wordsdir w]
+close $file
+}
+set host "*!*@[lindex [split $host @] 1]"
+set len($host) [llength $arg]
+set words($host:$chan) $len($host)
+if {[isbotnick $nick]} { return 0 }
+set who "$chan $nick $host $words($host:$chan)"
+set file [open $wordsdir "r"]
+set database [read -nonewline $file]
+close $file
+set data [split $database "\n"]
+foreach line $data {
+set lin [expr $lin +1] 
+set hhost [lindex [split $line] 2]
+set hscore [lindex [split $line] 3]
+set chanentry [lindex [split $line] 0]
+if {[string match -nocase $hhost $host] && [string match -nocase $chanentry $chan]} {
+lappend current($hhost:$chan) $hscore
+set who "$chan $nick $hhost [expr $words($host:$chan) + $current($hhost:$chan)]"
+if {$line != ""} {
+set num [expr $lin - 1]
+set delete [lreplace $data $num $num]
+set files [open $wordsdir "w"]
+puts $files [join $delete "\n"]
+close $files
+}
+}
+}
+set file [open $wordsdir "r"]
+set data [read -nonewline $file]
+close $file
+if {$data == ""} {
+set files [open $wordsdir "w"]
+close $files
+}
+set file [open $wordsdir "a"]
+puts $file "$who"
+close $file
+}
+}
+
+
+################################## TOP ################################
+
+proc toppublic {nick host hand chan arg} {
+global black
+set cmd [lindex [split $arg] 0]
+set del [lindex [split $arg] 1]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $cmd] && [matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set chan "$cmd"
+set cmd [lindex [split $arg] 1]
+set del [lindex [split $arg] 2]
+}
+top:process $nick $host $hand $chan $chan1 $cmd $type $del
+}
+
+
+proc top:process {nick host hand chan chan1 cmd type del} {
+global botnick black username
+set max "20"
+set i 0
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+set list [userlist nm|OSVAM $chan]
+set wordsdir "logs/$username.$chan.words.db"
+if {![file exists $wordsdir]} {
+set file [open $wordsdir w]
+close $file
+}
+
+if {[matchattr $hand nm|- $chan]} {
+if {($cmd == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 top.1 none
+blacktools:tell $nick $host $hand $chan $chan1 top.2 none
+return 0
+}
+if {($cmd == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 top.3 none
+blacktools:tell $nick $host $hand $chan $chan1 top.4 none
+return 0
+}
+}
+if {($cmd == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 top.5 none
+blacktools:tell $nick $host $hand $chan $chan1 top.6 none
+return 0
+}
+if {($cmd == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 top.7 none
+blacktools:tell $nick $host $hand $chan $chan1 top.8 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+ 
+switch -exact -- [string tolower $cmd] {
+       dr {
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA DR($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.10 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+ b {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA b($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.12 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+bot {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA bot($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.13 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+bw {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA bw($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.14 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+black {
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA Black($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.15 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+
+spam {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA spam($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.16 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+stick {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA stick($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.17 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+n {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA n($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.18 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+
+i {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA i($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.19 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+k {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA k($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.20 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+w {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA w($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.21 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+d {
+ 
+array set blacks [list] 
+set list [userlist nm|OSVAM $chan] 
+foreach user $list { 
+ set b [getuser $user XTRA d($chan)] 
+ if {$b == ""} { set b 0 }
+if {$b > 0} { 
+ lappend blacks($b) $user
+}
+}
+
+foreach blackq [lsort -integer -decreasing [array names blacks]] {
+set i [expr $i +1]
+lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) | 
+}
+if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.22 none
+foreach txt [wordwrap [join $topblack " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+words {
+array set topw [list]
+if {![channel get $chan topwords]} {
+blacktools:tell $nick $host $hand $chan $chan1 top.23 none
+return 0
+}
+if {[string match -nocase $del "erase"] && [matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 top.24 none
+set file [open $wordsdir "w"]
+close $file
+return 0
+}
+set file [open $wordsdir "r"]
+set database [read -nonewline $file]
+close $file
+if {$database == ""} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+set data [split $database "\n"]
+foreach line $data {
+set hhost [lindex [split $line] 2]
+set hentry [lindex [split $line] 1]
+set chanentry [lindex [split $line] 0]
+set tw [lindex [split $line] 3]
+if {[string match -nocase $chanentry $chan]} {
+lappend topw($tw) $hentry
+}
+}
+foreach twords [lsort -integer -decreasing [array names topw]] {
+set i [expr $i +1]
+if {!($i > $max)} {
+lappend topwo 1- $i - : 1[join $topw($twords) ,] 12($twords) |
+}
+}
+if {![info exists topwo]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
+return 0
+}
+blacktools:tell $nick $host $hand $chan $chan1 top.25 $max
+foreach txt [wordwrap [join $topwo " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
+}
+}
+
+}
+}
+
+proc securepublic {nick host hand chan arg} {
+global black
+set what [lindex [split $arg] 0]
+set type 0
+set chan1 "$chan"
+if {[regexp {^[#&]} $what] && [matchattr $hand nm|- $chan]} {
+set chan "$what"
+set what [lindex [split $arg] 1]
+}
+secure:process $nick $host $hand $chan $chan1 $what $type
+}
+
+
+proc secure:process {nick host hand chan chan1 what type} {
+global botnick black
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+} 
+if {[matchattr $hand nm|- $chan]} {
+if {($what == "")  && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 secure.1 none
+return 0
+}
+if {($what == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 secure.2 none
+return 0
+}
+}
+if {($what == "") && ($type == "0")} {
+blacktools:tell $nick $host $hand $chan $chan1 secure.3 none
+return 0
+}
+if {($what == "") && ($type == "1")} {
+blacktools:tell $nick $host $hand $chan $chan1 secure.4 none
+return 0
+}
+
+
+if {![validchan $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+}
+
+if {![onchan $botnick $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
+return 0
+}
+
+
+
+
+if {[string match -nocase "$what" "on"]} {
+set char(a) "+"
+channel set $chan $char(a)antipub ; channel set $chan $char(a)antinotice ; channel set $chan $char(a)antictcp ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antilongtext ; channel set $chan $char(a)badquitpart ; channel set $chan $char(a)antijoinpart ; channel set $chan $char(a)antispam ; channel set $chan $char(a)antirepeat ; channel set $chan $char(a)anticolor ; channel set $chan $char(a)antibold ; channel set $chan $char(a)antiunderline ; channel set $chan $char(a)anticaps ; channel set $chan $char(a)badnick ; channel set $chan $char(a)badfullname ; channel set $chan $char(a)antijoinflood ; channel set $chan $char(a)antichanflood ; channel set $chan $char(a)badident
+blacktools:tell $nick $host $hand $chan $chan1 secure.5 none
+}
+if {[string match -nocase "$what" "off"]} {
+set char(a) "-"
+channel set $chan $char(a)antipub ; channel set $chan $char(a)antinotice ; channel set $chan $char(a)antictcp ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antilongtext ; channel set $chan $char(a)badquitpart ; channel set $chan $char(a)antijoinpart ; channel set $chan $char(a)antispam ; channel set $chan $char(a)antirepeat ; channel set $chan $char(a)anticolor ; channel set $chan $char(a)antibold ; channel set $chan $char(a)antiunderline ; channel set $chan $char(a)anticaps ; channel set $chan $char(a)badnick ; channel set $chan $char(a)badfullname ; channel set $chan $char(a)antijoinflood ; channel set $chan $char(a)antichanflood ; channel set $chan $char(a)badident
+blacktools:tell $nick $host $hand $chan $chan1 secure.6 none
+}
+}
+
+proc hpublic {nick host hand chan arg} {
+global black botnick
+set chan1 "$chan"
+set command [lindex [split $arg] 0]
+h:process $nick $host $hand $chan $chan1 $command
+}
+
+
+proc h:process {nick host hand chan chan1 command} {
+global black botnick
+set char(p) [lindex $black(cmdchar) 0]
+if {[string match -nocase "$char(p)" "none"]} {
+set char(p) ""
+}
+set replace(%chan%) $chan
+set replace(%char%) $char(p)
+set greeting [getuser $hand XTRA GREET]
+set chanlang [string tolower [channel get $chan lang]]
+if {$chanlang == ""} { set chanlang "[string tolower $black(default_lang)]" }
+if {$greeting == ""} {
+putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.1)]"
+putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.2)]"
+putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.3)]"
+putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.4)]"
+setuser $hand XTRA GREET 1
+return 0
+}
+set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+set replace(%char%) "$char(p)"
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$command == ""} {
+if {[matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.1 none
+blacktools:tell $nick $host $hand $chan $chan1 h.2 none
+return 0
+}
+if {[matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.3 none
+blacktools:tell $nick $host $hand $chan $chan1 h.4 none
+return 0
+}
+if {[matchattr $hand -|V $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.5 none
+blacktools:tell $nick $host $hand $chan $chan1 h.6 none
+return 0
+}
+if {[matchattr $hand -|O $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.7 none
+blacktools:tell $nick $host $hand $chan $chan1 h.8 none
+return 0
+}
+if {[matchattr $hand -|S $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.9 none
+blacktools:tell $nick $host $hand $chan $chan1 h.10 none
+return 0
+}
+if {[matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.11 none
+blacktools:tell $nick $host $hand $chan $chan1 h.12 none
+return 0
+}
+if {[matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 h.13 none
+blacktools:tell $nick $host $hand $chan $chan1 h.14 none
+return 0
+}
+return 0
+}
+switch -exact -- [string tolower $command] {
+
+cmds {
+if {[matchattr $hand -|V $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 cmdsvoice none
+
+return 0
+}
+
+if {[matchattr $hand -|O $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdsop)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand -|S $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdsenior)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+
+}
+return 0
+}
+
+if {[matchattr $hand -|A $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdadmin)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+b
+}
+return 0
+}
+
+if {[matchattr $hand -|M $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdmanager)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+
+}
+return 0
+}
+
+if {[matchattr $hand n|- $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdbossowner)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+
+}
+return 0
+}
+
+if {[matchattr $hand m|- $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdowner)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+
+}
+return 0
+}
+}
+
+ban {
+
+if {[matchattr $hand -|V $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banvoice)] " "] 450] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand -|O $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banop)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand -|S $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.bansenior)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand -|A $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banadmin)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand -|M $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banmanager)] " "] 300] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand n|- $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banbossowner)] " "] 380] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+
+if {[matchattr $hand m|- $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banowner)] " "] 380] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+return 0
+}
+}
+
+add {
+
+if {[matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addadmin none
+return 0
+}
+
+if {[matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addmanager none
+return 0
+}
+
+if {[matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addbossowner none
+return 0
+}
+
+if {[matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 addowner none
+return 0
+}
+}
+
+
+modif {
+if {[matchattr $hand -|A $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 modifadmin none
+return 0
+}
+
+if {[matchattr $hand -|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 modifmanager none
+return 0
+}
+
+if {[matchattr $hand n|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 modifbossowner none
+return 0
+}
+
+if {[matchattr $hand m|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 modifowner none
+return 0
+}
+}
+
+owner {
+if {[matchattr $hand nm|- $chan]} {
+foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.howner)] " "] 390] {
+blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
+}
+}
+}
+
+top {
+if {[matchattr $hand nm|MASOV $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 htop $nick
+}
+}
+
+blacktools {
+if {[matchattr $hand nm|M $chan]} {
+if {[channel get $chan antipub]} { set pubstatus "+antipub" } else { set pubstatus "-antipub" }
+if {[channel get $chan antinotice]} { set noticestatus "+antinotice" } else { set noticestatus "-antinotice" }
+if {[channel get $chan antictcp]} { set ctcpstatus "+antictcp" } else { set ctcpstatus "-antictcp" }
+if {[channel get $chan antibadword]} { set badwordstatus "+antibadword" } else { set badwordstatus "-antibadword" }
+if {[channel get $chan antilongtext]} { set longtextstatus "+antilongtext" } else { set longtextstatus "-antilongtext" }
+if {[channel get $chan badquitpart]} { set badquitpartstatus "+badquitpart" } else { set badquitpartstatus "-badquitpart" }
+if {[channel get $chan antijoinpart]} { set joinpartstatus "+antijoinpart" } else { set joinpartstatus "-antijoinpart" }
+if {[channel get $chan antispam]} { set antispamstatus "+antispam" } else { set antispamstatus "-antispam" }
+if {[channel get $chan antirepeat]} { set repeatstatus "+antirepeat" } else { set repeatstatus "-antirepeat" }
+if {[channel get $chan anticolor]} { set colorstatus "+anticolor" } else { set colorstatus "-anticolor" }
+if {[channel get $chan antibold]} { set boldstatus "+antibold" } else { set boldstatus "-antibold" }
+if {[channel get $chan antiunderline]} { set underlinestatus "+antiunderline" } else { set underlinestatus "-antiunderline" }
+if {[channel get $chan anticaps]} { set capsstatus "+anticaps" } else { set capsstatus "-anticaps" }
+if {[channel get $chan badnick]} { set nickstatus "+badnick" } else { set nickstatus "-badnick" }
+if {[channel get $chan badfullname]} { set fullnamestatus "+badfullname" } else { set fullnamestatus "-badfullname" }
+if {[channel get $chan autoop]} { set opstatus "+autoop" } else { set opstatus "-autoop" }
+if {[channel get $chan autovoice]} { set voicestatus "+autovoice" } else { set voicestatus "-autovoice" }
+if {[channel get $chan antijoinflood]} { set joinfloodstatus "+antijoinflood" } else { set joinfloodstatus "-antijoinflood" }
+if {[channel get $chan antichanflood]} { set chanfloodstatus "+antichanflood" } else { set chanfloodstatus "-antichanflood" }
+if {[channel get $chan badident]} { set badidentstatus "+badident" } else { set badidentstatus "-badident" }
+set xbantime [channel get $chan xbantime]
+if {$xbantime == "0"} { set xbantime 1 }
+set xbanlevel [channel get $chan xbanlevel]
+if {$xbanlevel == "0"} { set xbanlevel 100 }
+blacktools:tell $nick $host $hand $chan $chan1 hblacktools.1 "1$pubstatus | 4$noticestatus | 1$ctcpstatus | 4$badwordstatus | 1$longtextstatus | 4$badquitpartstatus | 1$joinpartstatus | 4$antispamstatus | 1$repeatstatus | 4$colorstatus | 1$boldstatus | 4$underlinestatus | 1$capsstatus | 4$nickstatus | 1$fullnamestatus | 4$opstatus | 1$voicestatus | 4$joinfloodstatus | 1$chanfloodstatus | 4$badidentstatus | 1xbantime $xbantime | 4xbanlevel $xbanlevel."
+blacktools:tell $nick $host $hand $chan $chan1 hblacktools.2 none
+}
+}
+
+standard {
+if {[matchattr $hand nm|M $chan]} {
+if {[channel get $chan protectops]} { set protectops "+protectops" } else { set protectops "-protectops" }
+if {[channel get $chan bitch]} { set bitch "+bitch" } else { set bitch "-bitch" }
+if {[channel get $chan enforcebans]} { set enforcebans "+enforcebans" } else { set enforcebans "-enforcebans" }
+if {[channel get $chan protecthalfops]} { set protecthalfops "+protecthalfops" } else { set protecthalfops "-protecthalfops" }
+if {[channel get $chan protectfriends]} { set protectfriends "+protectfriends" } else { set protectfriends "-protectfriends" }
+if {[channel get $chan dynamicbans]} { set dynamicbans "+dynamicbans" } else { set dynamicbans "-dynamicbans" }
+if {[channel get $chan dontkickops]} { set dontkickops "+dontkickops" } else { set dontkickops "-dontkickops" }
+if {[channel get $chan nodesynch]} { set nodesynch "+nodesynch" } else { set nodesynch "-nodesynch" }
+if {[channel get $chan dynamicbans]} { set noticestatus "+dynamicbans" } else { set dynamicbans "-dynamicbans" }
+set bantime [channel get $chan ban-time]
+set floodchan [channel get $chan flood-chan]
+set floodjoin [channel get $chan flood-join]
+set floodkick [channel get $chan flood-kick]
+set floodctcp [channel get $chan flood-ctcp]
+set floodnick [channel get $chan flood-nick]
+set flooddeop [channel get $chan flood-deop]
+set chanmode [channel get $chan chanmode]
+blacktools:tell $nick $host $hand $chan $chan1 hstandard.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hstandard.3 "1$protectops 4$bitch 1$enforcebans 4$protecthalfops 1$protectfriends 4$dynamicbans 1$dontkickops 4$nodesynch"
+blacktools:tell $nick $host $hand $chan $chan1 hstandard.3 "12Flood-Chan :1 $floodchan  12Flood-join :4 $floodjoin  12Flood-Kick :1 $floodkick  12Flood-Ctcp :4 $floodctcp  12Flood-Nick :1 $floodnick  12Flood-Deop :4 $flooddeop "
+blacktools:tell $nick $host $hand $chan $chan1 hstandard.3  "12ChanMode :1$chanmode 12Ban-Time :1 $bantime "
+blacktools:tell $nick $host $hand $chan $chan1 hstandard.2 none
+}
+}
+
+
+
+
+chaninfo {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.3 none
+blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.4 none
+blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.5 none
+}
+}
+
+module {
+if {[matchattr $hand nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hmodule.1 none
+} else { blacktools:tell $nick $host $hand $chan $chan1 hmodule.2 none }
+blacktools:tell $nick $host $hand $chan $chan1 hmodule.3 none
+}
+
+
+antitake {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantitake.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantitake.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantitake.3 none
+blacktools:tell $nick $host $hand $chan $chan1 hantitake.4 none
+}
+}
+
+private {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hprivate.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hprivate.2 none
+}
+}
+
+language {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hlanguage.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hlanguage.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hlanguage.3 none
+}
+}
+
+
+xban {
+set xbantime [channel get $chan xbantime]
+if {$xbantime == "0"} { set xbantime 1 }
+set xlevel [channel get $chan xbanlevel]
+if {$xlevel == "0"} { set xlevel 100 }
+if {[matchattr $hand nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hxban.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hxban.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hxban.3 "$xbantime $xlevel"
+}
+}
+
+topicrefresh {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 htopicrefresh.1 none
+blacktools:tell $nick $host $hand $chan $chan1 htopicrefresh.2 none
+}
+}
+
+count {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hcount.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hcount.2 none
+}
+}
+
+xtools {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hxtools.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hxtools.2 none
+}
+}
+
+badchan {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadchan.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadchan.2 none
+}
+}
+
+badword {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadword.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadword.2 none
+}
+}
+
+anunt {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hanunt.1 $black(anunttime)
+blacktools:tell $nick $host $hand $chan $chan1 hanunt.2 none
+}
+}
+
+autobroadcast {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.1 $black(bttime)
+blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.3 none
+}
+}
+
+antibotidle {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantibotidle.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibotidle.2 $black(noidlemax)
+}
+}
+
+limit {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hlimit.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hlimit.2 none
+}
+}
+
+topic {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 htopic.1 none
+blacktools:tell $nick $host $hand $chan $chan1 htopic.2 none
+}
+}
+
+seen {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hseen.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hseen.2 none
+}
+}
+
+clonescan {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hclonescan.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hclonescan.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hclonescan.3 none
+}
+}
+
+greet {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hgreet.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hgreet.2 none
+}
+}
+leave {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hleave.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hleave.2 none
+}
+}
+
+idle {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hidle.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hidle.2 none
+}
+}
+
+chanreport {
+if {[matchattr $hand nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hchanreport.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hchanreport.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hchanreport.3 none
+}
+}
+
+topwords {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 htopwords.1 none
+blacktools:tell $nick $host $hand $chan $chan1 htopwords.2 none
+blacktools:tell $nick $host $hand $chan $chan1 htopwords.3 none
+}
+}
+
+settings {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.3 none
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.4 none
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.5 none
+blacktools:tell $nick $host $hand $chan $chan1 hsettings.6 none
+}
+}
+
+reason {
+if {[matchattr $hand nm|M $chan]} {
+if {[channel get $chan showhandle]} { set showhandle "+showhandle" } else { set showhandle "-showhandle" }
+if {[channel get $chan showcount]} { set showcount "+showcount" } else { set showcount "-showcount" }
+if {[channel get $chan showtime]} { set showtime "+showtime" } else { set showtime "-showtime" }
+blacktools:tell $nick $host $hand $chan $chan1 hreason.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hreason.2 "$showhandle $showcount $showtime"
+blacktools:tell $nick $host $hand $chan $chan1 hreason.3 none
+blacktools:tell $nick $host $hand $chan $chan1 hreason.4 none
+blacktools:tell $nick $host $hand $chan $chan1 hreason.5 none
+blacktools:tell $nick $host $hand $chan $chan1 hreason.6 none
+}
+}
+
+
+extra {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hextra.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hextra.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hextra.3 none
+blacktools:tell $nick $host $hand $chan $chan1 hextra.4 none
+blacktools:tell $nick $host $hand $chan $chan1 hextra.5 none
+}
+}
+
+antipub {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantipub.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantipub.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantipub.3 none
+}
+}
+
+privat {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hprivat.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hprivat.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hprivat.3 none
+}
+}
+
+antidle {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantidle.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantidle.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantidle.3 none
+}
+}
+
+
+antinotice {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantinotice.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantinotice.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantinotice.3 none
+}
+}
+
+antictcp {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantictcp.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantictcp.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantictcp.3 none
+}
+}
+
+antibadword {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantibadword.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibadword.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibadword.3 none
+}
+}
+
+antilongtext {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.3 none
+}
+}
+ 
+antibadquitpart {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.3 none
+}
+}
+
+antijoinpart {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.3 none
+}
+}
+
+antispam {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantispam.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantispam.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantispam.3 none
+}
+}
+
+antirepeat {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.3 none
+}
+}
+
+anticolor {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hanticolor.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hanticolor.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hanticolor.3 none
+}
+}
+
+antibold {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantibold.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibold.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantibold.3 none
+}
+}
+
+antiunderline {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.3 none
+}
+}
+
+anticaps {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hanticaps.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hanticaps.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hanticaps.3 none
+}
+}
+
+badfullname {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.3 none
+}
+}
+
+badnick {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadnick.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadnick.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadnick.3 none
+}
+}
+
+badident {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadident.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadident.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadident.3 none
+}
+}
+
+antichanflood {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.3 none
+}
+}
+
+antijoinflood {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.3 none
+}
+}
+
+dr {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hdr.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hdr.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hdr.3 none
+}
+}
+
+bot {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbot.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbot.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbot.3 none
+}
+}
+
+
+n {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hn.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hn.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hn.3 none
+}
+}
+
+id {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hid.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hid.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hid.3 none
+}
+}
+
+w {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hw.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hw.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hw.3 none
+}
+}
+
+spam {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hspam.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hspam.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hspam.3 none
+}
+}
+
+
+bw {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbw.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbw.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbw.3 none
+}
+}
+
+badchannel {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.3 none
+}
+}
+
+counter {
+if {[matchattr $hand nm|M $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 hcounter.1 none
+blacktools:tell $nick $host $hand $chan $chan1 hcounter.2 none
+blacktools:tell $nick $host $hand $chan $chan1 hcounter.3 none
+}
+}
+
+}
+}
+
+
+
+
+proc comand:pubme {nick host hand chan arg} {
+global botnick wordsdir wdir sdir black seendir count server uptime {server-online}
+set arg [split $arg]
+set bnick [lindex [split $arg] 0]
+set what [lindex [split $arg] 1]
+if {([lsearch -exact [string tolower $bnick] [string tolower $botnick]] == 0)} {
+switch -exact -- [string tolower $what] {
+
+clear {
+if {[matchattr $hand nm|M $chan]} {
+set why [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+}
+clear:process $nick $host $hand $chan $chan1 $why $type
+}
+}
+
+
+private {
+if {[matchattr $hand nm|M $chan]} {
+set type 1
+set chan1 "$chan"
+set why [lindex [split $arg] 2]
+set user [lindex [split $arg] 3]
+set host [lindex [split $arg] 4]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+set user [lindex [split $arg] 4]
+set host [lindex [split $arg] 5]
+}
+private:process $nick $host $hand $chan $chan1 $why $user $host $type
+}
+}
+
+
+login {
+if {[matchattr $hand nm|MSOAV $chan]} {
+putquick "$black(login)"
+putquick "MODE $botnick :$black(xmod)"
+blacktools:tell:prv $nick $host $hand login.1 $black(chanserv)
+}
+}
+
+h {
+if {[matchattr $hand nm|MSOAV $chan]} {
+set chan1 "$chan"
+set command [lindex [split $arg] 2]
+h:process $nick $host $hand $chan $chan1 $command
+}
+}
+
+secure {
+if {[matchattr $hand nm|M $chan]} {
+set what [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $what] && [matchattr $hand nm|- $chan]} {
+set chan "$what"
+set what [lindex [split $arg] 3]
+}
+secure:process $nick $host $hand $chan $chan1 $what $type
+}
+}
+
+ignore {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set what [lindex [split $arg] 2]
+set mask [lindex [split $arg] 3]
+set time [lindex [split $arg] 4]
+set reason [join [lrange [split $arg] 5 end]]
+if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.2 none
+return 0
+}
+ignore:process $nick $host $hand $chan $chan1 $what $mask $time $reason
+}
+}
+
+
+
+idle {
+if {[matchattr $hand nm|M $chan]} {
+set char(p) [lindex $black(cmdchar) 0]
+set flag "-|f"
+set type1 1
+set chan1 "$chan"
+set why [lindex [split $arg] 2]
+set type [lindex [split $arg] 3]
+set user [lindex [split $arg] 3]
+set host [lindex [split $arg] 4]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+set type [lindex [split $arg] 4]
+set user [lindex [split $arg] 4]
+set host [lindex [split $arg] 5]
+}
+antidle:process $why $type $type1 $user $host $nick $hand $chan $chan1
+}
+}
+
+version {
+if {[matchattr $hand nm|MASOV $chan]} {
+set chan1 "$chan"
+version:process $nick $host $hand $chan $chan1
+}
+}
+
+cc {
+if {[matchattr $hand nm|MASO $chan]} {
+set ::chan $chan
+set chan1 "$chan"
+set c [lindex [split $arg] 2]
+if {$c == ""} { blacktools:tell $nick $host $hand $chan $chan1 cc.2 none
+return 0
+}
+if {![regexp {^[\\+!#&]} $c]} {
+set c #$c
+ } 
+
+putquick "MODE $c"
+bind raw - 329 createdpublic
+bind raw - 403 nocreatedpublic
+}
+}
+
+activ {
+if {[matchattr $hand nm|MASOV $chan]} {
+set type 1
+set chan1 "$chan"
+set user [lindex [split $arg] 2]
+if {[regexp {^[#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+activ:process $nick $host $hand $chan $chan1 $user $type
+}
+}
+
+delmyhost {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set why [lindex [split $arg] 2]
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 delmyhost.1 none
+return 0
+}
+delmyhost:process $nick $host $hand $chan $chan1 $why
+}
+}
+
+addmyhost {
+if {[matchattr $hand nm|- $chan]} {
+set why [lindex [split $arg] 2]
+set chan1 "$chan"
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addmyhost.2 none
+return 0
+}
+addmyhost:process $nick $host $hand $chan $chan1 $why
+}
+}
+
+
+leave {
+if {[matchattr $hand nm|M $chan]} {
+set dir "logs/leave($chan).txt"
+set type 1
+set chan1 "$chan"
+set who [lindex [split $arg] 2]
+set leave [join [lrange [split $arg] 3 end]]
+set number [lindex [split $arg] 3]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 3]
+set leave [join [lrange [split $arg] 4 end]]
+set number [lindex [split $arg] 4]
+}
+leave:process $who $leave $number $type $nick $host $hand $chan $chan1
+}
+}
+
+
+greet {
+if {[matchattr $hand nm|M $chan]} {
+set who [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set greet [join [lrange [split $arg] 3 end]]
+set number [lindex [split $arg] 3]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 3]
+set greet [join [lrange [split $arg] 4 end]]
+set number [lindex [split $arg] 4]
+}
+greet:process $who $greet $number $type $nick $host $hand $chan $chan1
+}
+}
+
+chat {
+if {[matchattr $hand nm|- $chan]} {
+*ctcp:CHAT $nick $host $hand $botnick CHAT $arg
+blacktools:tell $nick $host $hand $chan $chan1 chat.1 none
+} 
+}
+
+seen {
+if {[matchattr $hand -|- $chan]} {
+if {![channel get $chan seen]} {
+return 0
+}
+set type 1
+set wseen [lindex $arg 2]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $wseen] && [matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set chan "$wseen"
+set wseen [lindex $arg 3]
+}
+seen:process $nick $host $hand $chan $chan1 $wseen $type
+}
+}
+
+topic {
+if {[matchattr $hand nm|M $chan]} {
+set nop [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set tp [join [lrange [split $arg] 3 end]]
+set number [lindex [split $arg] 3]
+if {[regexp {^[\\+!#&]} $nop] && [matchattr $hand nm|- $chan]} {
+set chan "$nop"
+set nop [lindex [split $arg] 3]
+set tp [join [lrange [split $arg] 4 end]]
+set number [lindex [split $arg] 4]
+}
+topic:process $nick $host $hand $chan $chan1 $nop $tp $number $type
+}
+}
+
+limit {
+if {[matchattr $hand nm|M $chan]} {
+set why [lindex [split $arg] 2]
+set lm [lindex [split $arg] 3]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+set lm [lindex [split $arg] 4]
+}
+limit:process $nick $host $hand $chan $chan1 $why $lm $type
+}
+}
+
+anunt {
+if {[matchattr $hand nm|M $chan]} {
+set type 1
+set chan1 "$chan"
+set who [lindex [split $arg] 2]
+set message [join [lrange [split $arg] 3 end]]
+set number [lindex [split $arg] 3]
+if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
+set chan "$who"
+set who [lindex [split $arg] 3]
+set message [join [lrange [split $arg] 4 end]]
+set number [lindex [split $arg] 4]
+}
+anunt:process $nick $host $hand $chan $chan1 $who $message $number $type
+}
+}
+
+bt {
+if {[matchattr $hand nm|- $chan]} {
+set who [lindex [split $arg] 2]
+set chan1 "$chan"
+set message [join [lrange [split $arg] 3 end]]
+set number [lindex [split $arg] 3]
+if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.2 none
+return 0
+}
+broadcast:process $nick $host $hand $chan $chan1 $who $message $number
+}
+}
+
+badchan {
+if {[matchattr $hand nm|M $chan]} {
+set why [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set bdchan [join [lindex [split $arg] 3]]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+set bdchan [join [lindex [split $arg] 4]]
+}
+badchan:process $nick $host $hand $chan $chan1 $why $bdchan $type
+}
+}
+
+count {
+if {[matchattr $hand nm|M $chan]} {
+set why [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+}
+count:process $nick $host $hand $chan $chan1 $why $type
+}
+}
+
+delvoice {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+delvoice:process $nick $host $hand $chan $chan1 $user $type
+}
+
+}
+
+delop {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+delop:process $nick $host $hand $chan $chan1 $user $type
+}
+
+}
+
+addvoice {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+addvoice:process $nick $host $hand $chan $chan1 $user $type
+}
+}
+
+addop {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+addop:process $nick $host $hand $chan $chan1 $user $type
+}
+}
+
+
+addbot {
+if {[matchattr $hand nm|- $chan]} {
+set why [lindex [split $arg] 2]
+set host [lindex [split $arg] 3]
+set chan1 "$chan"
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addbot.2 none
+return 0
+}
+addbot:process $nick $host $hand $chan $chan1 $why $host
+}
+}
+
+whois {
+if {[matchattr $hand nm|MAOS $chan]} {
+set chan1 "$chan"
+set who [lindex [split $arg] 2]
+if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 whois.2 none
+return 0
+}
+whois:process $nick $host $hand $chan $chan1 $who
+}
+}
+
+vers {
+if {[matchattr $hand nm|MAOS $chan]} {
+set chan1 "$chan"
+set why [lindex [split $arg] 2]
+if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 vers.2 none
+return 0
+}
+vers:process $nick $host $hand $chan $chan1 $why
+}
+}
+
+time {
+if {[matchattr $hand nm|MAOSV $chan]} {
+set chan1 "$chan"
+set time [ctime [unixtime]]
+blacktools:tell $nick $host $hand $chan $chan1 time.1 $time
+}
+}
+
+ping {
+if {[matchattr $hand nm|MAOSV $chan]} {
+putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
+return 0
+}
+}
+
+us {
+if {[matchattr $hand nm|MA $chan]} {
+set type 1
+set chan1 "$chan"
+set users [lindex [split $arg] 2]
+if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
+set chan "$users"
+set users [lindex [split $arg] 3]
+}
+us:process $nick $host $hand $chan $chan1 $users $type
+}
+} 
+
+s {
+if {[matchattr $hand nm|MA $chan]} {
+set type 1
+set chan1 "$chan"
+set users [lindex [split $arg] 2]
+if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
+set chan "$users"
+set users [lindex [split $arg] 3]
+}
+s:process $nick $host $hand $chan $chan1 $users $type
+}
+}
+
+info {
+if {[matchattr $hand nm|MASOV $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+info:process $nick $host $hand $chan $chan1 $user $type
+}
+}
+
+channels {
+if {[matchattr $hand nm|MASOV $chan]} {
+set chan1 "$chan"
+channels:process $nick $host $hand $chan $chan1
+}
+}
+
+
+userlist {
+if {[matchattr $hand nm|MASOV $chan]} {
+set level [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $level] && [matchattr $hand nm|- $chan]} {
+set chan "$level"
+set level [lindex [split $arg] 3]
+} 
+userlist:execute $hand $host $level $chan $chan1 $nick $type
+}
+}
+
+chuser {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set chandle [lindex [split $arg] 3]
+chuser:process $nick $host $hand $chan $chan1 $user $chandle $type
+}
+}
+
+
+delhost {
+if {[matchattr $hand nm|M $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set hosts [lrange [split $arg] 3 end]
+delhost:process $nick $host $hand $chan $chan1 $user $hosts $type
+}
+}
+
+botidle {
+if {[matchattr $hand nm|M $chan]} {
+set chan1 "$chan"
+set what [lindex [split $arg] 2]
+if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 antibotidle.2 none
+return 0
+}
+botidle:process $nick $host $hand $chan $chan1 $what
+}
+}
+
+addhost {
+if {[matchattr $hand nm|M $chan]} {
+set type 1
+set chan1 "$chan"
+set user [lindex [split $arg] 2]
+set hosts [lrange [split $arg] 3 end]
+addhost:process $nick $host $hand $chan $chan1 $user $hosts $type
+}
+}
+
+del {
+if {[matchattr $hand nm|- $chan]} {
+set args [lrange [split $arg] 2 end]
+set type 1
+set chan1 "$chan"
+del:process $nick $host $hand $chan $chan1 $args $type
+}
+}
+
+
+delacc {
+if {[matchattr $hand nm|MA $chan]} {
+set args [lrange [split $arg] 2 end]
+set type 1
+set chan1 "$chan"
+set c [lindex [split $arg] 2]
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 3 end]
+}
+delacc:process $nick $host $hand $chan $chan1 $args $type
+}
+}
+
+adduser {
+if {[matchattr $hand nm|MA $chan]} {
+set chan1 "$chan"
+set level [lindex [split $arg] 2]
+set args [lrange [split $arg] 3 end]
+set c [lindex [split $arg] 3]
+set type 1
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 4 end]
+}
+adduser:process $nick $host $hand $chan $chan1 $args $level $type
+}
+}
+
+add {
+if {[matchattr $hand nm|MA $chan]} {
+set level [lindex [split $arg] 2]
+set time [ctime [unixtime]]
+set type 1
+set chan1 "$chan"
+set args [lrange [split $arg] 3 end]
+set c [lindex [split $arg] 3]
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set args [lrange [split $arg] 4 end]
+}
+if {[matchattr $hand -|q $chan]} { 
+blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+add:process $args $time $level $hand $host $chan $chan1 $nick $type
+}
+}
+
+unsuspend {
+if {[matchattr $hand nm|- $chan]} {
+set chans [lindex [split $arg] 2]
+set chan1 "$chan"
+if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 unsuspend.5 none
+return 0 
+}
+
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+ }
+ 
+if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 unsuspend.2 $chans
+return 0
+}
+
+if {![channel get $chans inactive]} {
+blacktools:tell $nick $host $hand $chan $chan1 unsuspend.3 $chans
+return 0
+}
+channel set $chans -inactive
+blacktools:tell $nick $host $hand $chan $chan1 unsuspend.4 $chans
+}
+}
+
+
+
+suspend {
+if {[matchattr $hand nm|- $chan]} {
+set chans [lindex [split $arg] 2]
+set chan1 "$chan"
+if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 suspend.5 none
+return 0 
+}
+
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+ }
+
+if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 suspend.2 $chans
+return 0
+}
+
+if { [channel get $chans inactive]} {
+blacktools:tell $nick $host $hand $chan $chan1 suspend.3 $chans 
+return 0
+}
+channel set $chans +inactive
+blacktools:tell $nick $host $hand $chan $chan1 suspend.4 $chans 
+}
+}
+
+
+delchan {
+if {[matchattr $hand nm|- $chan]} {
+set chans [lindex [split $arg] 2]
+set chan1 "$chan"
+if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 delchan.4 none
+return 0 
+}
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none 
+return 0
+ } 
+
+if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 delchan.2 $chans
+return 0
+}
+channel remove $chans
+delchan:stats $chans $hand $host
+blacktools:tell $nick $host $hand $chan $chan1 delchan.3 $chans
+}
+}
+
+addchan {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set chans [lindex [split $arg] 2]
+if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 addchan.4 none
+return 0 
+}
+
+if {![regexp {^[\\+!#&]} $chans]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
+return 0
+ } 
+
+if {[validchan $chans]} {
+blacktools:tell $nick $host $hand $chan $chan1 addchan.2 $chans
+return 0
+} else {
+channel add $chans
+addchan:stats $chans $hand $host
+blacktools:tell $nick $host $hand $chan $chan1 addchan.3 $chans
+}
+}
+}
+
+die {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+blacktools:tell $nick $host $hand $chan $chan1 die.1 none
+utimer 3 [list die "byeeee"]
+}
+}
+
+jump {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set serv [lindex [split $arg] 2]
+blacktools:tell $nick $host $hand $chan $chan1 jump.1 none
+utimer 3 [list jump $serv]
+}
+}
+
+
+save {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+blacktools:tell $nick $host $hand $chan $chan1 save.1 none
+ save
+}
+}
+
+restart {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+blacktools:tell $nick $host $hand $chan $chan1 restart.1 none
+ utimer 3 [list restart]
+}
+}
+
+rehash {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+blacktools:tell $nick $host $hand $chan $chan1 rehash.1 none
+ rehash
+}
+}
+
+nick {
+if {[matchattr $hand nm|- $chan]} {
+set who "$nick"
+set newnick [lindex [split $arg] 2]
+nick:process $who $newnick $host $hand $chan
+}
+}
+
+
+
+msg {
+if {[matchattr $hand nm|- $chan]} {
+set nicks [lindex [split $arg] 2]
+set chan1 "$chan"
+set msg [join [lrange [split $arg] 3 end]]
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$nicks == ""} {blacktools:tell $nick $host $hand $chan $chan1 msg.2 none
+return 0
+}
+if {[isbotnick $nicks]} { 
+return 0
+ }
+putquick "PRIVMSG $nicks :$msg"
+}
+}
+
+
+silence {
+if {[matchattr $hand nm|- $chan]} {
+set value [lindex [split $arg] 2]
+set chan1 "$chan"
+if {$value == ""} { blacktools:tell $nick $host $hand $chan $chan1 silence.2 none
+return 0
+}
+silence:process $nick $host $hand $chan $chan1 $value
+}
+}
+
+set {
+if {[matchattr $hand nm|M $chan]} {
+set flags [lindex [split $arg] 2]
+set type [join [lrange [split $arg] 3 end]]
+set type1 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $flags] && [matchattr $hand nm|- $chan]} {
+set chan "$flags"
+set flags [lindex [split $arg] 3]
+set type [join [lrange [split $arg] 4 end]]
+}
+set:process $nick $host $hand $chan $chan1 $flags $type $type1
+}
+}
+
+mode {
+if {[matchattr $hand nm|OSMA $chan]} {
+set modes [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[#&]} $modes] && [matchattr $hand nm|- $chan]} {
+set chan "$modes"
+set modes [lindex [split $arg] 3]
+}
+mode:process $nick $host $hand $chan $chan1 $modes $type
+}
+}
+
+away {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set aw [join [lrange [split $arg] 2 end]]
+if {$aw == "" } {blacktools:tell $nick $host $hand $chan $chan1 away.2 none
+return 0
+}
+away:process $nick $host $hand $chan $chan1 $aw
+}
+}
+
+cycle {
+if {[matchattr $hand nm|OSMA $chan]} {
+set reason [join [lrange [split $arg] 2 end]]
+set c [lindex [split $arg] 2]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set reason [join [lrange [split $arg] 3 end]]
+}
+cycle:process $nick $host $hand $chan $chan1 $reason
+}
+}
+
+
+purge {
+if {[matchattr $hand nm|M $chan]} {
+set reason [join [lrange [split $arg] 2 end]]
+set chan1 "$chan"
+if {$reason == ""} {
+blacktools:tell $nick $host $hand $chan $chan1 purge.1 none
+return 0
+}
+purge:process $nick $host $hand $chan $chan1 $reason
+}
+}
+
+
+check {
+if {[matchattr $hand nm|OSMA $chan]} {
+set chan1 "$chan"
+set checked [lindex [split $arg] 2]
+if {$checked == ""} { blacktools:tell $nick $host $hand $chan $chan1 check.2 none
+return 0
+}
+check:process $nick $host $hand $chan $chan1 $checked
+}
+}
+
+broadcast {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set text [join [lrange [split $arg] 2 end]]
+if {$text == ""} { 
+blacktools:tell $nick $host $hand $chan $chan1 broadcast.2 none
+return 0
+}
+broadcast:cmd:process $nick $host $hand $chan $chan1 $text
+}
+}
+
+act {
+if {[matchattr $hand nm|SMA $chan]} {
+set text [join [lrange [split $arg] 2 end]]
+set c [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set text [join [lrange [split $arg] 3 end]]
+}
+act:process $nick $host $hand $chan $chan1 $text $type
+}
+}
+
+
+say {
+if {[matchattr $hand nm|SMA $chan]} {
+set text [join [lrange [split $arg] 2 end]]
+set c [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set text [join [lrange [split $arg] 3 end]]
+}
+say:process $nick $host $hand $chan $chan1 $text $type
+}
+}
+
+v {
+if {[matchattr $hand nm|VOSMA $chan]} {
+set voicex [lrange $arg 2 end]
+set c [lindex [split $arg] 2]
+set nick [split $nick]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set voicex [lrange $arg 3 end]
+}
+v:process $nick $host $hand $chan $chan1 $voicex
+}
+}
+
+o {
+if {[matchattr $hand nm|OSMA $chan]} {
+set opex [lrange $arg 2 end]
+set c [lindex [split $arg] 2]
+set nick [split $nick]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set opex [lrange $arg 3 end]
+}
+o:process $nick $host $hand $chan $chan1 $opex
+}
+}
+
+uptime {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+set up [duration [expr [unixtime] - $uptime]]
+set on [duration [expr [unixtime] - ${server-online}]]
+blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
+blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
+blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
+}
+}
+
+status {
+if {[matchattr $hand nm|- $chan]} {
+set chan1 "$chan"
+regsub -all " " [channels] ", " chans
+catch {exec uptime} shelluptime
+set up [duration [expr [unixtime] - $uptime]]
+set on [duration [expr [unixtime] - ${server-online}]]
+blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
+blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
+blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
+blacktools:tell $nick $host $hand $chan $chan1 status.4 $chans
+blacktools:tell $nick $host $hand $chan $chan1 status.5 $shelluptime
+}
+}
+
+t {
+if {[matchattr $hand nm|VOSMA $chan]} {
+set topics [join [lrange [split $arg] 2 end]]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $topics] && [matchattr $hand nm|- $chan]} {
+set chan "$topics"
+set topics [join [lrange [split $arg] 3 end]]
+}
+t:process $nick $host $hand $chan $chan1 $topics $type
+}
+}
+
+d {
+if {[matchattr $hand nm|SMA $chan]} {
+set days [lindex [split $arg] 2]
+set dnick [lindex [split $arg] 3]
+set type 1
+set mask [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+set handle [nick2hand $dnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $days] && [matchattr $hand nm|- $chan]} {
+set chan "$days"
+set days [lindex [split $arg] 3]
+set mask [lindex [split $arg] 4]
+set dnick [lindex [split $arg] 4]
+set reason [join [lrange [split $arg] 5 end]]
+if {![regexp {^[0-9]} $days]} {
+set days 1
+set mask [lindex [split $arg] 3]
+set dnick [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+} 
+}
+if {![regexp {^[0-9]} $days]} {
+set days 1
+set mask [lindex [split $arg] 2]
+set dnick [lindex [split $arg] 2]
+set reason [join [lrange [split $arg] 3 end]]
+}
+d:process $dnick $mask $days $reason $nick $hand $host $chan $chan1 $type
+}
+}
+
+sb {
+if {[matchattr $hand nm|VOSMA $chan]} {
+set bhost [string tolower [lindex [split $arg] 2]]
+set what [lindex [split $arg] 3]
+set type 1
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bhost] && [matchattr $hand nm|- $chan]} {
+set chan "$bhost"
+set bhost [string tolower [lindex [split $arg] 3]]
+set what [lindex [split $arg] 4]
+}
+sb:process $bhost $what $nick $hand $host $chan $chan1 $type
+}
+}
+
+ub {
+if {[matchattr $hand nm|OSMA $chan]} {
+set ban [lindex [split $arg] 2]
+set why [lindex [split $arg] 3]
+set type 1
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $ban] && [matchattr $hand nm|- $chan]} {
+set chan "$ban"
+set ban [lindex [split $arg] 3]
+}
+ub:process $ban $why $nick $hand $host $chan $chan1 $type
+}
+
+}
+
+bw {
+if {[matchattr $hand nm|OSMA $chan]} {
+set abuser [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set handle [nick2hand $abuser]
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $abuser] && [matchattr $hand nm|- $chan]} {
+set chan "$abuser"
+set abuser [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+}
+bw:process $abuser $mask $nick $hand $host $chan $chan1 $type
+}
+}
+
+stick {
+if {[matchattr $hand nm|SMA $chan]} {
+set snick [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type 1
+set time [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+set handle [nick2hand $snick]
+set list [userlist $black(exceptflags) $chan]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $snick] && [matchattr $hand nm|- $chan]} {
+set chan "$snick"
+set time [lindex [split $arg] 4]
+set mask [lindex [split $arg] 3]
+set snick [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 5 end]]
+if {![regexp {^[0-9]} $time]} {
+set time "$black(dfstickbantime)"
+set reason [join [lrange [split $arg] 4 end]]
+}
+}
+if {![regexp {^[0-9]} $time]} {
+set time "$black(dfstickbantime)"
+set reason [join [lrange [split $arg] 3 end]]
+}
+stick:process $snick $mask $time $reason $nick $hand $host $chan $chan1 $type
+}
+}
+
+
+k {
+if {[matchattr $hand nm|VOSMA $chan]} {
+set knick [lindex [split $arg] 2]
+set type 1
+set reason [join [lrange [split $arg] 3 end]]
+set handle [nick2hand $knick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $knick] && [matchattr $hand nm|- $chan]} {
+set chan "$knick"
+set knick [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+}
+k:process $knick $nick $hand $host $reason $chan $chan1 $type
+}
+}
+
+spam {
+if {[matchattr $hand nm|OSMA $chan]} {
+set spammer [lindex [split $arg] 2]
+set type 1
+set mask [lindex [split $arg] 2]
+set handle [nick2hand $spammer]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $spammer] && [matchattr $hand nm|- $chan]} {
+set chan "$spammer"
+set spammer [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+}
+spam:process $spammer $mask $nick $hand $host $chan $chan1 $type
+}
+}
+
+w {
+if {[matchattr $hand nm|OVSMA $chan]} {
+set wnick [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set handle [nick2hand $wnick]
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $wnick] && [matchattr $hand nm|- $chan]} {
+set chan "$wnick"
+set wnick [lindex [split $arg] 3]
+}
+w:process $wnick $nick $hand $host $chan $chan1 $type
+}
+}
+
+black {
+if {[matchattr $hand nm|SMA $chan]} {
+set blnick [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type 1
+set reason [join [lrange [split $arg] 3 end]]
+set handle [nick2hand $blnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
+set chan "$blnick"
+set blnick [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+}
+black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
+}
+}
+
+
+bl {
+if {[matchattr $hand nm|SMA $chan]} {
+set blnick [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set reason [join [lrange [split $arg] 3 end]]
+set handle [nick2hand $blnick]
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
+set chan "$blnick"
+set blnick [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+set reason [join [lrange [split $arg] 4 end]]
+}
+black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
+}
+}
+
+
+
+id {
+if {[matchattr $hand nm|OSMA $chan]} {
+set idnick [lindex [split $arg] 2]
+set handle [nick2hand $idnick]
+set type 1
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $idnick] && [matchattr $hand nm|- $chan]} {
+set chan "$idnick"
+set idnick [lindex [split $arg] 3]
+}
+id:process $idnick $nick $hand $host $chan $chan1 $type
+}
+}
+
+bot {
+if {[matchattr $hand nm|OSMA $chan]} {
+set bot [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bot] && [matchattr $hand nm|- $chan]} {
+set chan "$bot"
+set bot [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+}
+bot:process $bot $mask $nick $hand $host $chan $chan1 $type
+}
+}
+
+dr {
+if {[matchattr $hand nm|OSMA $chan]} {
+set drone [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set type "1"
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $drone] && [matchattr $hand nm|- $chan]} {
+set chan "$drone"
+set drone [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+}
+dr:process $drone $mask $nick $hand $host $chan $chan1 $type
+}
+}
+
+b {
+if {[matchattr $hand nm|OSMA $chan]} {
+set bnick [lindex [split $arg] 2]
+set mask [lindex [split $arg] 2]
+set time [lindex [split $arg] 3]
+set type 1
+set chan1 "$chan"
+set type1 [lindex [split $arg] 3]
+set type2 [lindex [split $arg] 4]
+set reason [join [lrange [split $arg] 4 end]] 
+set handle [nick2hand $bnick]
+if {[string match -nocase "global" $type1] || [string match -nocase "global" $type2]  && [matchattr $hand nm|- $chan]} {
+if {[string match -nocase $type1 "global"]} {
+set reason [join [lrange [split $arg] 4 end]]
+}
+if {[string match -nocase $type2 "global"]} {
+set reason [join [lrange [split $arg] 5 end]]
+}
+set list [userlist nm|-]
+foreach user $list {
+ set hosts [getuser $user hosts]
+foreach host $hosts {
+if {[string match $mask $host]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+}
+}
+if {[matchattr $handle nm|- $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
+ return 0
+}
+
+if {![regexp {^[0-9]} $time]} {
+set reason [join [lrange [split $arg] 4 end]]
+set time "$black(btime)"
+}
+if {$reason == ""} {set reason1 "(GLOBAL) $black(dfreason)"
+ } else { set reason1 "(GLOBAL) $reason" }
+
+if {[channel get $chan showhandle]} {
+set reason "($hand) $reason1"
+} else { set reason "$reason1" 
+}
+
+if {[isbotnick $bnick]} {
+return 0
+}
+if {![botisop $chan]} {
+blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
+return 0
+}
+if {$mask == "*!*@*"} {
+ return 0
+}
+if {[onchan $bnick $chan]} {
+set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
+}
+newban $mask $hand $reason $time
+if {$time == "0"} { set reply "Permanent" } else { set reply "$time" }
+blacktools:tell $nick $host $hand $chan $chan1 b.8 "$mask $reply"
+return 0
+}
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
+set chan "$bnick"
+set bnick [lindex [split $arg] 3]
+set mask [lindex [split $arg] 3]
+set time [lindex [split $arg] 4]
+set reason [join [lrange [split $arg] 5 end]]
+if {![regexp {^[0-9]} $time]} {
+set reason [join [lrange [split $arg] 4 end]]
+set time "$black(btime)"
+}
+}
+if {![regexp {^[0-9]} $time]} {
+set reason [join [lrange [split $arg] 3 end]]
+set time "$black(btime)"
+}
+b:local $bnick $mask $time $nick $reason $hand $host $chan $chan1 $type
+}
+}
+
+
+n {
+if {[matchattr $hand nm|OSMA $chan]} {
+set bnick [lindex [split $arg] 2]
+set type 1
+set handle [nick2hand $bnick]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
+set chan "$bnick"
+set bnick [lindex [split $arg] 3]
+}
+n:process $bnick $nick $hand $host $chan $chan1 $type
+}
+}
+
+gag {
+if {[matchattr $hand nm|OSMA $chan]} {
+set gagger [lindex [split $arg] 2]
+set type 1
+set handle [nick2hand $gagger]
+set chan1 "$chan"
+foreach c [channels] {
+set backchan [channel get $c backchan]
+if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
+set chan "$c"
+}
+}
+if {[regexp {^[\\+!#&]} $gagger] && [matchattr $hand nm|- $chan]} {
+set chan "$gagger"
+set gagger [lindex [split $arg] 3]
+}
+gag:process $gagger $nick $hand $host $chan $chan1 $type
+}
+}
+
+l {
+if {[matchattr $hand nm|OSMA $chan]} {
+set times [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $times] && [matchattr $hand nm|- $chan]} {
+set chan "$times"
+set times [lindex [split $arg] 3]
+}
+l:process $nick $host $hand $chan $chan1 $times $type
+}
+}
+
+ul {
+if {[matchattr $hand nm|OSMA $chan]} {
+set c [lindex [split $arg] 0]
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+ul:process $nick $host $hand $chan $chan1
+}
+}
+
+show {
+if {[matchattr $hand nm|OSMA $chan]} {
+set wich [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $wich] && [matchattr $hand nm|- $chan]} {
+set chan "$wich"
+set wich [lindex [split $arg] 3]
+}
+show:process $nick $host $hand $chan $chan1 $wich $type
+}
+}
+
+reset {
+if {[matchattr $hand nm|M $chan]} {
+set dece [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $dece] && [matchattr $hand nm|- $chan]} {
+set chan "$dece"
+set dece [lindex [split $arg] 3]
+}
+reset:process $nick $host $hand $chan $chan1 $dece $type
+}
+}
+
+clonescan {
+if {[matchattr $hand nm|M $chan]} {
+set c [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+scanner:process $nick $host $hand $chan $chan1
+}
+}
+
+top {
+if {[matchattr $hand nm|AOSM $chan]} {
+set cmd [lindex [split $arg] 2]
+set del [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[#&]} $cmd] && [matchattr $hand nm|- $chan]} {
+set chan "$cmd"
+set cmd [lindex [split $arg] 3]
+set del [lindex [split $arg] 3]
+}
+top:process $nick $host $hand $chan $chan1 $cmd $type $del
+}
+}
+
+banlist {
+if {[matchattr $hand nm|AOSM $chan]} {
+set user [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
+set chan "$user"
+set user [lindex [split $arg] 3]
+}
+banlist:process $nick $host $hand $chan $chan1 $user $type
+}
+}
+
+stats {
+if {[matchattr $hand nm|AOSM $chan]} {
+set chan1 "$chan"
+set c [lindex [split $arg] 2]
+if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+}
+stats:process $nick $host $hand $chan $chan1
+}
+}
+
+myset {
+if {[matchattr $hand nm|VAOSM $chan]} {
+set chan1 "$chan"
+set flags [lindex [split $arg] 2]
+set type [lindex [split $arg] 3]
+if {$type == ""} {
+blacktools:tell $nick $host $hand $chan $chan1 myset.4 none
+return 0
+}
+myset:process $nick $host $hand $chan $chan1 $flags $type
+}
+}
+
+i {
+if {[matchattr $hand nm|VAOSM $chan]} {
+set type 1
+set chan1 "$chan"
+set inick [lrange [split $arg] 2 end]
+set c [lindex [split $arg] 2]
+if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
+set chan "$c"
+set inick [join [lrange [split $arg] 3 end]]
+}
+i:process $nick $host $hand $chan $chan1 $inick $type
+}
+}
+
+addinfo {
+if {[matchattr $hand nm|VAOSM $chan]} {
+set info [join [lrange [split $arg] 2 end]]
+set chan1 "$chan"
+if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
+return 0
+}
+if {$info == ""} { 
+blacktools:tell $nick $host $hand $chan $chan1 addinfo.2 none
+return 0
+}
+addinfo:process $nick $host $hand $chan $chan1 $info
+}
+}
+
+badword {
+if {[matchattr $hand nm|M $chan]} {
+set why [lindex [split $arg] 2]
+set type 1
+set chan1 "$chan"
+set bdword [lrange [split $arg] 3 end]
+set bdnumber [lindex [split $arg] 3]
+if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
+set chan "$why"
+set why [lindex [split $arg] 3]
+set bdnumber [lindex [split $arg] 4]
+set bdword [lrange [split $arg] 4 end]
+}
+antibadword:command:process $nick $host $hand $chan $chan1 $why $bdword $bdnumber $type
+}
+}
+
+
+
+
+}
+}
+}
+
+
+putlog "$black(name) $black(vers) by $black(author) Loaded -> BLaCkShaDoW ProductionS ®"

BlackTools2.3/README.txt

@@ -0,0 +1,13 @@
+EN : Just put the BlackTools.tcl and the lang folder in the scripts directory
+EN : Put in the eggdrop`s config file on the bottom " source scripts/BlackTools.tcl "
+EN : And rehash/restart your eggdrop.
+
+
+RO : Pune BlackTOols.tcl si folderul lang in directorul scripts 
+RO : Pune in config-ul eggdrop-ului la sfarsit " source scripts/BlackTools.tcl "
+RO : Si da rehash/restart la eggdrop
+
+
+Have Fun !
+
+			BLaCkShaDoW ProductionS