# BlackTOOLS vers. 1.9 by  BLaCkShaDoW  (English Version)
# Script that contains utilities to make an easy way to ban drones / #abusers and to make your eggdrop more advanced.
#
#######################################################################


#######################################################################
#Thanks for testing and for commands ideas
# Catalin @ #Focsani                 HangMan @ #senzor
#  altR @ #CServiceRo                  Ove @ #Deva
#  bandyt @ #bandyt
# 
#           BLaCkShaDoW ProductionS @ #SolidSevices
#                                   @ #TcL-Help
#
#For more informations enter on -> WwW.TclScriptS.Tk
#my email : blackshadow_bz@yahoo.co.uk
#######################################################################

###################This is the script`s story##########################

#######################################################################
# Version 1.1
# Fixed some bugs :)
#Added two more commands .check <nick> (will check the <nick> for spam)
#Ihave modified the reasons for banning (deleted the "Autor:$hand") and #added ($handle) at the start of the reason
#Soon more in version 1.2 :P
#######################################################################

#######################################################################
# Version 1.2
#
#Fixed some more bugs
#
# -> Added in the command .info <user> (who gave the access to him)
# -> Added in the .addinfo <info> , everyone who sets the .info , the #message will apear in .info command , and on join in the chan the user #will be "attended" by the message "$nick $message"
# -> I repaired the command .check <user> (now it`s working)
# -> I added some special commands for the level OWNER :
# * restart (pe privat) - the bot will restart
# * .set +/-flag / flag number:number , the bot will activate the #desired flag, for the specific Tcl to work. 
#Example : .set -dontkickops / .set flood-chan 0:0
# * .away <text> - the BoT will set the Away <text) , to switch away #off type .away off
# * nick <newnick> (on prv)- the bot will change his nick in <newnick>
#More in version 1.3 :P
#######################################################################


####################################################################### # Version 1.3
#
#-> I repared an important bug about banning a users`s host that has #access on the BoT
#-> Added anti-bnan protection for those who have access on the egg
#-> Added command .cycle ( the bot will cycle the channel )
#More in version 1.4 :P
######################################################################


######################################################################
# Version 1.4
#
#-> i added .silence ON / OFF (to put silence or remove)
#-> i added .jump <server> (for server change)
#-> i added private commands for those who have local access on egg
# voice <chan> , op <chan> , deop <chan> devoice <chan> , invite <chan>
#-> i added .gag <nick> (shut`s up the <nick>)
#-> i added .ungag <nick> (let`s <nick> talk on the chan)
#-> i added .mode <chanmode> (puts a mode on the chan ,ex: .mode +m)
#-> added for OWNERS : .msg <nick/chan> <text>
#
#More in version 1.5 ( soon protections )
######################################################################


######################################################################
#                         =- Version 1.5 -=
#-> Added a command to switch off the ".addinfo" , to switch off type #.addinfo off
#-> I added a little protection for the bot , when he will get deoped #he will cycle the channel to regain the OP 
#-> I added a new command to add users that dont have a user on #undernet`s X , the command is .addnick <nick> , the command will take #the user`s host and add him along with his ident (little protection)
#-> Added protections : .antipub on/off (antiadvertise)
#                          .antinotice on/off (antinotice) 
#                          .antibadword on/off (antibadwords)
#                          .antictcp on/off (anti CTCP)
#-> I repaired the command .nick <newnick> , now the command works
#-> I added the command .dronecheck ( to run you have to turn on the #command using .dronecheck on/off) , the bot will VERSION the chan and #if a user`s VERSION matches the text that are set in the TCl as #forbidden the user will get banned
#-> I added the command .s <user> (suspends the user`s access on BoT)
#-> I added the command .us <user> (removes the suspend)
#-> Added protections on BoT 
#                          .xtools on/off
#       (the bot will invite , op , unban himself if he needs)
#-> I repaired .info <user> , now the command shows the users access also if he has other flags next to the standard flags
#-> I added a command for adding a owner
#                     .addowner user ( the command can be used only by #those who have "BOSS OWNER" (the users with global n), and will add a #user that has OWNER , and has the same commands as BOSS OWNER
#
######################################################################

######################################################################
#                          =- Version 1.6 -=
#I setup the .h in categories ( it`s much better now)
#I added commands for adding autoop on a user : .addop <user>
#I added commands for adding autovoice on a user : .addvoice <user>
#I added more protections : .anticaps on/off ( anti caps Lock)
#                          .anticolor on/off (anti color)
#                          .antirepeat on/off (anti repeat)
#Added other stuff
#                          .reban on/off ( puts every boT ban on #undernet X)
#                          .refresh on/off ( will refresh the topic #every "X" minutes
#I added on .h a "chaninfo" that shows the protections to activate and #also shows the status of the protections if their are ON or OFF
#Am mai reparat unde erau cateva buguri gasite din greseala :D
#
#i added a feature to set , the first character of all commands
#
#More in version 1.7 :))
######################################################################


######################################################################
#                           =- VERSION 1.7 -=
#NEW !!!
#-I added statistics on commands
#Now you can see the activity of your OPS
#You have the command : 
#                 .info <user>
#       will show the user`s level , and the statistic for each command
#              
#-I added .vers <nick> ( will show the version of the nick`s script )
#-I added .whois <nick> ( will show the nicks host and channels)
#-I added the command save (on private will save the informations)
#-The Command .mode <mode> ( it`s saves now the chan modes)
#
#-I added the protection .antispam on/off that has the utilites
# -> it`s cycles the channel , you can set in script the timer
# -> if its set "1" the bot will message every ones who joins the chan
# -> exceptie la banare cei cu + , @ si cei cu access la egg
# -> atentie pentru a fi functionala comanda .check activati antispam
#
#- I set the ban-time for anticaps , antirepeat and anticolor to #minutes
#
#-I added more protections    : .antiunderline on/off
#                               .antibold on/off
#These protections also have the ban-time in minutes
#
#- I modified .sb now the command shows the time , and date when the #ban was set , and the time and date when the ban will expire
#
#-I added the module for antidle for OPS
#                               .antidle on/off
# NEW !
#- Now the command .away <setaway> saves the away and every time the #bot gets connected to the network he will set in 20 minutes the away #saved
# 
#######################################################################


########################################################################                            << Versiunea 1.8 >>
#
#-> I repaired the "cycle" from antispam now it works great
#-> I resolved topic refresh
#-> Added in .userlist ( on OWNER ) and the command .userlist <owner> #to see the BOSS OWNER and to see also who has OWNER
#-> Added the command .broadcast <message> ( will give the message to #all channels
#-> I added a "count module" on the bans that are set by the eggdrop, #the count will be on the all kick messages of the eggdrop
#-> Added the command .me <action> (will action /me on the chan)
#-> Added a module to count the joins of the channels, to activate type #.count on or to deactivate .count off
#
#-> You can now  enter on antispam , anunt , and nick using the #replacements %nick% , %chan%
#-> Added greet module & leave module
#To activate :   .greet on
#                .leave on
#To set the messages : .greet set <mesaj>
#                       .leave set <mesaj>
#I annount that you can put in your greet/leave messages the #replacements %nick% , %chan% and the bot will replace them with the #nick and the respective chan for example : .greet set Welcome %nick% !
#-> Added the commands : .autoop <on> / <off> (activate autoop - will #give op to anyone who enters on chan
#                          .autovoice <on> / <off> (activate autovoice #will give voice to anyone who enters on the chan
#-> Added a protection for those who receive autoop on eggdrop with the #command .addop <user>. Now the user will not be deopped when the bot #scans for idle.
#-> Added a commmand to give a global ban
#                             .gb <nick> / <host> <time (hours)> reason
#                                           
#-> To check global bans : .sb <ban> global
#-> To delete a global ban   : .ub <ban> global
#-> Added a module to log @ X (only for undernet)
#-> Added the command .stick <host>/ <nick> <time> <reason> , this #command will put a ban on the host and will keep the ban on the #channel banlist as long as the ban time is.The ban-time for the #command is in hours , if you put "0" the ban will never expire.
#-> Added the command .ping to check the users ping ( only users who #have access on the bot
#
#Added protections : .antibadquitpart <on> / <off>
#                       .antilongtext <on> / <off>
#                       .antijoinpart <on> / <off>
#                       .antibadrealname <on> / <off>
#
#NEW !!
#Added a "anunt" module. Every channel can have a announce to set. The #message can be set with .anunt set <message>,and if you activate using #.anunt on,the message will be shown on the chan in "time" (you can set #the time in the script)
#
#
#######################################################################

########################################################################                         Versiunea 1.9
#- I have to announce that this version 1.9 doesn`t contains any new #commands, il the call version 1.9 a "Perfection Version" Because 1.8 #has a bug on the timers that makes the bots to fall into ping timeout.
#- Now version 1.9 is more stable and more fast, i implemented new #timers that work great
#
#- i made a little clean on the bindings and flags
#
#- I repaired the bug for those with nicks with { , [ , now the #commands work for them
#I have to say that BlackTools reached a new generation :)
#
#                                       Va doresc utilizare placuta 
#######################################################################


#####################End of the story##################################


#######################################################################
#                                                                     #
#---------------------------------------------------------------------#
#                                                                     #
####################################################################### 
#                    ---> X module logger <---                        # 
                                                                     
#Here you can set the user (X@undernet)                                
set edu(username) ""                      
                                                                     
#Here you set the password (X@undernet)                        
set edu(password) ""                                       
                                                                     
#Here you can set the mode for the eggdrop to put when he gets #connected                                                   
                                                                     
set edu(xmod) "+x"                                                    
                                                                     
#######################################################################
#                                                                     #
#---------------------------------------------------------------------#
#                                                                     #
#######################################################################


######################################################################
#       Here you can set the default character for the commands :P
# You can put : "!" and you will use the commands with ! ; ex: !h
set edu(cmdchar) "."
#
######################################################################


#####################################################################
#If you want the bot the ban on the specific commands & protections
#trough X @ undernet just set here "1" or else set "0"
set edu(xban) "1"
#
#####################################################################



################################ .h #################################
#             The command .h will show you all your commands                #
#####################################################################


########################################################################
#   The command .addnick <level> <nick1> <nick2> <nick3>
# This command is usefull to add users without beeing logged @ X
#the bot takes their ident@host and adds the to his list
#           The levels are : voice , op , senior , admin , manager 
#######################################################################


#######################################################################
#
#   The Command .add <nivel> <ser1> <user2> <user3> etc.
#This command is used to add users that have a user and are logged #trough X@undernet the bot will take their host like this:
# .add op user1 : and the host will be *!*@user1.users.undernet.org
#         The levels are : voice , op , senior , admin , manager
#######################################################################


########################################################################
#         The Command .addowner <nick> 
#This command can be done by the BOSS OWNER (the n global) and adds an #OWNER to the BoT , that has the same commands as BOSS OWNER
#
#######################################################################


########################################################################
#                          Rebaning module
#     If it`s activated the bot bans will be added on X @ undernet
# 
#######################################################################


#Here you can set the time for reban @ X (hours)

set edu(reban) "1"

#Here you can set the level for the ban @ X

set edu(rebanlevel) "100"


########################################################################            
#                         Topic refresh
#If it`s activated the BoT wil refresh the topic in "X" minutes
#
# You can use also the command  ".r" to refresh manually
#######################################################################

# Here you can set the number of minutes for refresh

set edu(topic_time) "5"

#Here you can set the temporary topic untill he will put the same topic
 
set edu(topics) "Refreshing topic..."


########################################################################
#                      Long text Protection
#           Will ban the users that write long texts
#
#######################################################################

#Here you can set the reason for the longtext ban

set edu(longmsg) "Please do not write long texts !"

#Here you can set the maximum chars of the text

set edu(longchar) "150"

#Here you can set the bot`s ban duration (minutes)

set edu(longbantime) "30"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(xlongbantime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(longxlevel) "100"

#Here you set what modes will put on channel

set edu(longmode) "mr"

#here you set the time to hold the mode on the channel

set edu(longtimemode) "10"

########################################################################
#                            Bad-Quit Part
#
#######################################################################

#Here you can set the reason for part/quit with forbidden chars

set edu(badquitpartreason) "Please do not part/quit with forbidden words !"

#Here you can set the reason for part/quit with colors

set edu(badquitpartcolorreason) "Please do not part/quit with colors on this chan !"

#Here you can set the bot`s ban duration (minutes)

set edu(badquitparttime) "60"

#Here you can set the words that are considered forbidden

set edu(badquitpartwords) {
"*www.*"
"*http://*"
"*#*"

}

#Here you can set "1" if you want the bot to ban on part/quit with #colors or put "0" to deactivate this setting

set edu(badquitpartcolour) "1"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(badquitpartxtime) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(badquitpartxlevel) "100"

########################################################################
#                        Anti Join-Part
#
#######################################################################


#Here you can set the reason for join/part flood

set edu(joinpartmsg) "Please do not use join/part flood"

#Here you can set the ban duration (hours)

set edu(joinpartbantime) "30"

#Here you can set the periode that "nick" stayed on the chan before #parting

set edu(joinparttime) "2"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(joinpartxtime) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(joinpartxlevel) "100"


#Here you can set what mode to put on channel

set edu(joinpartmode) "mr"

#Here you set the time to hold the mode on the channel

set edu(joinparttimemode) "10"


########################################################################
#                            Bad Fullname
#
#
#######################################################################

#Here you can set the bad fullname reason

set edu(badfreason) "Your fullname contains forbidden characters !"

#Here you can set the ban duration (hours)

set edu(badfbantime) "60"

#Here you can set the forbidden words

set edu(badfwords) {
"*www.*"
"*#*"
"*http://*"

}


#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(badfxtime) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))


set edu(badfxlevel) "100"



########################################################################
#                              Anti-Idle
#                         .antidle on/off
#######################################################################

#Here you can set the idle check interval (minutes)

set edu(idleinterval) "30"

#Here you can set the limit time of the OPS idle

set edu(idletime) "60"

#Set here "1" if you want on deop for the bot to message the user else #set here "0"
set edu(idlemsgreq) "1"

#If you set upper "1" please specify the message"

set edu(idlemsg) "You have received deop because you have to much idle"

########################################################################
#           greet <set> | <on> | <off> | <display> | <status>
#
#######################################################################

#Here you can set the methode to give the greet ? PRIVMSG or NOTICE

set edu(greetstatus) "NOTICE"

########################################################################
#          leave <set> | <on> | <off> | <display> | <status>
#
#######################################################################

#Here you can set the methode to give the leave ? PRIVMSG or NOTICE

set edu(leavestatus) "PRIVMSG"

########################################################################
#                                 Count
#                  .count <on> / <off> / <display> / <reset>
#
#######################################################################

#Here you can set the notice for the count, onjoin

set edu(countmsg) "You are the number %num% who joined %chan% !"

########################################################################
#                        Anunt module
#                .anunt <on> / <off> / <display> / <set>
#                 
#######################################################################

#Here you can set the time to show the announce

set edu(anunttime) "45"


#####################################################################
#
#                Command .b <nick> / <host> <reason>
#
#####################################################################


#Here you can set the ban duration (hours)

set edu(btime) "48"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(xbtime) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(bxlevel) "100"

#####################################################################
#
#               Command .ub <host>
#
#####################################################################


#####################################################################
#
#               Command .dr <nick>
#
#####################################################################

#Here you can set the reason for .dr

set edu(dreason) "You are infected for desinfection join #dmsetup !"

#Here you can set the ban duration (hours)

set edu(drtime) "336"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(drxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(drxlevel) "100"


########################################################################
#               Command .w <nick>
#
#######################################################################

#Here you can set the reason for .w

set edu(wreason) "You have been warned !"

#Here you can set the message for the .w command

set edu(wmessage) "This is the last warning. You are breaking one of our rules, available at website of channel (get it from topic). Thanks."


########################################################################
#              Command .t <topic>
#
#######################################################################


#######################################################################
#
#              Comand .n <nick> (for bad nicks)
#
#######################################################################

#Here you can set the reason for .n

set edu(nreason) "Your nick is considered to be a bad one , change it and rejoin !"

#Here you can set the ban duration (hours)

set edu(ntime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(nxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(nxlevel) "100"

######################################################################
#
#         Command .addinfo <newinfo> (will apear at .info <user>)
#                to set off type : .addinfo off
######################################################################


######################################################################
#
#               Command  .black <host> / <nick> <reason>
#
######################################################################

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))
set edu(xblack) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(blackxlevel) "100"


######################################################################
#
#                 Command .spam <nick> / <host> (for spammers)
#
######################################################################

#Here you can set the reason for .spam

set edu(spamreason) "You have been spotted spamming in this channel !"


#Here you can set the ban duration (hours)

set edu(spamtime) "672"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(spamxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(spamxlevel) "100"

######################################################################
#
#              Command .d <number> <host> / <nick> <reason>
#                                    <number> = number of days (ex 1)
######################################################################

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(dxtime) "1"


#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(dxlevel) "100"

########################################################################
#             Comand .stick <nick> / <host> <time hours> <reason>
#
#######################################################################

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(stickxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(stickxlevel) "100"

######################################################################
#
#                Command .say <text>
#
######################################################################


######################################################################
#
#                 Command .i <nick> (invites <nick>)
#
######################################################################



######################################################################
#
#                Command .k <nick> <reason> (kicks <nick>)
#
######################################################################


######################################################################
#
#               Command .id <nick> (for forbidden idents)
#
######################################################################

#Here you can set the reason for .id

set edu(idreason) "Your ident is considered to be a bad one change it and rejoin !"

#Here you can set the ban duration (hours)

set edu(idtime) "2"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(idxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(idxlevel) "100"


######################################################################
#
#    Command .l <number> (will put a mode on channel that last 
#<number>)
#                            <number> = <seconds> (max 300 seconds)
######################################################################

#Here we can set the mode to put

set edu(mod) "m"

######################################################################
#
# Command .ul (will remove specific modes from channel (default mir))
######################################################################

set edu(unlock) "mir"


######################################################################
#
#   Command .b3 <host> / <nick> (will ban with bigger ban-time)
#
######################################################################

#Here you can set the ban duration (hours)

set edu(b3time) "144"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(b3xtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(b3xlevel) "100"


######################################################################
#
#   Command .b6 <host> / <nick> (will ban with bigger ban-time)
#
######################################################################

#Here you can set the ban duration (hours)

set edu(b6time) "288"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(b6xtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(b6xlevel) "100"

######################################################################
#
#   Command .b9 <host> / <nick> (will ban with bigger ban-time)
#
######################################################################

#Here you can set the ban duration (hours)

set edu(b9time) "432"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(b9xtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(b9xlevel) "100"

######################################################################
#
#   Command .b12 <host> / <nick> (will ban with bigger ban-time)
#
######################################################################

#Here you can set the ban duration (hours)

set edu(b12time) "576"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(b12xtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(b12xlevel) "100"

#######################################################################
#
# Command .del user1 user2 user3 etc.
#           will erase the users from the bot
#######################################################################

#######################################################################
#
# Command .delacc user1 user2 user3
#             will erase the access from users on chan
#######################################################################

#######################################################################
#
# Command .addhost <user> <host>
#          will add <host> to <user>
#######################################################################

#######################################################################
#
# Command .delhost <user> <host>
#          will erase <host> from <user>
#######################################################################

#######################################################################
#
# Command .userlist <level>
#          levels : all , voice , op , senior , admin , manager
#######################################################################

#######################################################################
#
# Command .info <user>
#          will show informations about <user>
#######################################################################

#######################################################################
#
# Command .chuser <user> <newuser>
#           will change <user> in <newuser>
#######################################################################

#######################################################################
#
# Command addchan <chan>  (on private)
#        will add <chan> in bots memory
#######################################################################

#######################################################################
#
# Command delchan <chan>  (on private)
#        will erase <chan> from the bots memory
#######################################################################

#######################################################################
#
# Command suspend <canal> (on private)
#      will suspend the channel and the bot will part it
#######################################################################

#######################################################################
#
# Command unsuspend <canal> (on private) 
#    it will unsuspend the channel and the bot will join
#######################################################################

#######################################################################
#
#   Command .v user1 user2 user3 etc. or command .v
#        Will give voice or devoice depending on his status
#######################################################################

#######################################################################
#
#    Command .o user1 user2 user3 etc. or .o
#           Will give op or deop depending on his status
#######################################################################


#######################################################################
#
#                   Command rehash (on private)
#       
#######################################################################

########################################################################
#         Command .version will show the BlacKTools version :P
#
#######################################################################

#######################################################################
#
#           Command .check <nick> will check the  <nick> for spam
#
#######################################################################

#Here you can set the message that the bots gives <nick>

set edu(checkmsg) "You are checked for spam.."

########################################################################
#                  AntiSpam Protection
#
#######################################################################

#Aici setezi motivul de ban

set edu(spamcreason) "Please dont spam here !"

#Here you can set the ban duration (hours)

set edu(spamban) "240"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(spamxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(spamxlevel) "100"

#Here you can set the words that the bot will ban on spam

set edu(spamword) {
"*#*"
 "*www.*"
 "*http://*"
}

#here you can set the time for cycle

set edu(spamcycle) "30"

#Here you can set 1 if you want the bot message the users onjoin if the #antispam is on or else set 0

set edu(spamreq) "1"

#If you set upped 1 set here the message

set edu(spamsg) "Hello , i`m a full protection bot and i`m checking you for spam please do not reply ! Thanks."

#Here you can set the message on /cycle

set edu(spammsgcycle) "Spam Check !"


#######################################################################
#
#      Command restart ( will restart the eggdrop) (private)
#
#######################################################################

########################################################################
#               Command .set +/-flag or .set option 0:0
#             Example : .set +protectops / .set flood-chan 0:0
#######################################################################


#######################################################################
#
#                           Command .away <text>
#                  To stop away : .away OFF
#######################################################################


#######################################################################
#
#                         Command  nick <newnick> (on private)
#                       Will change bot`s nick
#######################################################################

#######################################################################
#
#                  Command .cycle (the bot will cycle)
#
#######################################################################

#here you can set the message on cycle
                                                                                                   
set edu(cyclemsg) "Cycling the channel.."

########################################################################
#           Command .silence ON / OFF (will put or remove silence)                            
#
#######################################################################


#######################################################################
#
#          Command .jump <server> (the bot will change the server)
#
#######################################################################


#######################################################################
#
# Private commands : op <chan> (will give op on <chan>) , deop <chan>
#(will give deop on <chan>) , voice <chan> (will give voice on <chan>) #devoice <chan> will give devoice on <chan>)
#  You can use also op <chan> nick1 nick2
#
#######################################################################


#######################################################################
#
#             Private command invite <nick> (will give invite)
#
#######################################################################


########################################################################
# Command .gag <nick> ( will shut up <nick> , to release type .ungag 
#<nick>
#######################################################################


#######################################################################
#
#            Command .mode <chanmode> ( +m , +i , +nt , +mir)
#
#######################################################################

########################################################################
#           Comand .act <message> ( will put /me)
#
#######################################################################

########################################################################
#           Command .whois <nick> (give whois to <nick>)
#
#######################################################################

########################################################################
#           Command save (on private , saves the files)
#
#######################################################################

########################################################################
#            Command .vers <nick> ( will show the irc version)
#
#######################################################################


########################################################################
#                      Antipub protection
#                      .antipub on/off
#
#######################################################################

#Here you can set the reason for antipub ban

set edu(antipubreason) "Please do not advertise here !"

#Here you can set the ban duration (hours)

set edu(antipubbantime) "48"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antipubxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antipubxlevel) "100"

#Here you can set the words that the bot will ban

set edu(antipubword) {
"*#*"
 "*www.*"
 "http://*"
}

#Here you can set the modes for the BoT to put on advertise

set edu(antipubmode) "m"

#Here you can set the time to hold the mode on chan

set edu(antipubsecunde) "5"


########################################################################
#                      Antinotice Protection
#                      .antinotice on/off
#
#######################################################################

#Here you can set the reason for NOTICE ban

set edu(antinoticereason) "Please do not use NOTICE here !"

#Here you can set the ban duration (hours)

set edu(antinoticebantime) "48"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antinoticextime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antinoticexlevel) "100"

#Here you can set the modes for the BoT to put on NOTICE

set edu(antinoticemode) "mr"

#Here you can set the time to hold the mode on chan

set edu(antinoticesecunde) "7"

########################################################################
#                     Protectia AntiBADWORD
#                      .antibadword on/off
#
#######################################################################

########################################################################
#                     AntiBadWord Protection
#                      .antibadword on/off
#
#######################################################################

#Here you can set the reason for BADWORD ban

set edu(antibadwordreason) "Do not use this type of language !"

#Here you can set the ban duration (hours)

set edu(antibadwordbantime) "12"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antibadwordxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antibadwordxlevel) "100"

#Here you can set the words that the bot will ban

set edu(antibadword) {
"*pula*"
 "*pizda*"
 "*muie*"
 "*sugi"
 "mwie"
 "*pwla*"
 "belesti"
 "sloboz"
 "*muisti*"
 "*fut*"
 "*fwt*"
 "tarfa"
"*suck*"
"*dick*"
"*asshole*"
"*fuck*"
"*hoore*"
"*pussy*"


}

########################################################################
#                   Command .dronecheck on/off
#Will put CTCP VERSION on channel , and if a users version mactches the #forbidden version the user gets banned
#
#######################################################################

#Here you can set the forbidden versions

set edu(versions) {
"v1.0"
"v1.1"
"v1.2"
"v1.3"
"v1.4"

}

#Here you can set the reason for bad version

set edu(versreason) "You are not allowed to use this type of scripts !"


#Here you can set the ban duration (hours)

set edu(versionbantime) "12"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(versionxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(versionxlevel) "100"


########################################################################
#                     Command .s <user> (suspends the bot access)
#
#
#######################################################################



########################################################################
#                        .broadcast <message>
#               will give the message on all chans :)
#
#######################################################################


########################################################################
#                    Command .us <user> (removes the bot access)
#
#
#######################################################################

########################################################################
#                      Anti CTCP Protection
#                      .antictcp on/off
#
#######################################################################

#Here you can set the reason for CTCP ban

set edu(antictcpreason) "Do not use CTCP here !"

#Here you can set the ban duration (hours)

set edu(antictcpbantime) "48"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antictcpxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antictcpxlevel) "100"

#Here you can set the modes for the BoT to put on CTCP

set edu(antictcpmode) "mr"

#Here you can set the time to hold the mode on chan

set edu(antictcpsecunde) "8"

########################################################################
#                              XTOOLS
#If its activated the bot will invite , unban , op , himself trough X
#       for acivation /deactivation .xtools on/off
#
#######################################################################


########################################################################
#                     Anticolor Protection
#                      .anticolor on/off
#
#######################################################################

#Here you can set the reason for Anticolor ban

set edu(anticolormsg) "Do not use colors here !"

#Here you can set the ban duration (minutes)

set edu(anticolorbantime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(anticolorxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(anticolorxlevel) "100"

########################################################################
#                       AntiUnderline Protection
#                       .antiunderline on/off
#
#######################################################################

#Here you can set the reason for Anticolor ban

set edu(antiunderlinemsg) "Do not use UNDERLINE here!"

#Here you can set the ban duration (minutes)

set edu(antiunderlinebantime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antiunderlinextime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antiunderlinexlevel) "100"

######################################################################## 
#                       Protectia antibold 
#                        .antibold on/off
#
#######################################################################

#Here you can set the reason for antibold ban

set edu(antiboldmsg) "Do not use BOLD here !"

#Here you can set the ban duration (minutes)

set edu(antiboldbantime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antiboldxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antiboldxlevel) "100"



########################################################################
#                       Protectia antirepeat
#                        .antirepeat on/off
#
#######################################################################

#Here you can set the reason for antirepeat ban

set edu(antirepeatmsg) "Do not repeat here !"

#here you can set the number of repeats

set edu(repeats) "3"

#Here you can set the ban duration (minutes)

set edu(antirepeatbantime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(antirepeatxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))

set edu(antirepeatxlevel) "100"

########################################################################
#                    Protectia antiCAPS
#                     .anticaps on/off
#
#######################################################################

#Here you can set the reason for antiCAPS ban

set edu(anticapsmsg) "Do not use CAPS here !"

#Here you can set the ban duration (minutes)

set edu(anticapsbantime) "10"

#Here you can set the ban duration @ X (in case you set 1 on edu(xban))

set edu(anticapsxtime) "1"

#Here you can set the ban level @ X (in case you set 1 on edu(xban))


set edu(anticapsxlevel) "100"


########################################################################                     
#              #####  @  ##      #  @  ######  #      #
#              #         # #     #     #       #      #
#              #      #  #  #    #  #  #       #      #
#              #####  #  #   #   #  #  ######  ########
#              #      #  #    #  #  #       #  #      #
#              #      #  #     # #  #       #  #      #
#              #      #  #      ##  #  ######  #      #
#              
#######################################################################
set names "BlackTOOLS"
set vers "1.9"
set Autor "BLaCkShaDoW"



#binds

bind pub nm|MSNAVO $edu(cmdchar)h pub:h
bind pub nm|MA $edu(cmdchar)add pub:add
bind pub nm|M $edu(cmdchar)del pub:del
bind pub nm|MA $edu(cmdchar)delacc pub:delacc
bind pub nm|MA $edu(cmdchar)addhost pub:addhost
bind pub nm|MA $edu(cmdchar)delhost pub:delhost
bind pub nm|MA $edu(cmdchar)chuser pub:chuser
bind pub nm|MAOSV $edu(cmdchar)userlist pub:userlist
bind pub nm|MAOSV $edu(cmdchar)info pub:infos
bind pub nm|- $edu(cmdchar)status pub:status
bind pub nm|MASO $edu(cmdchar)o pub:ops
bind pub nm|MASOV $edu(cmdchar)v pub:voices
bind pub nm|AMSOV $edu(cmdchar)sb pub:sb
bind pub nm|MASO $edu(cmdchar)b pub:b
bind pub nm|OSMA $edu(cmdchar)ub pub:ub
bind pub nm|OSMA $edu(cmdchar)dr pub:dr
bind pub nm|AOSMV $edu(cmdchar)w pub:w
bind pub nm|AOSMV $edu(cmdchar)t pub:t
bind pub nm|MSOA $edu(cmdchar)n pub:n
bind pub nm|AOSMV $edu(cmdchar)addinfo pub:setinfo
bind pub nm|MAS $edu(cmdchar)black pub:black
bind pub nm|MAS $edu(cmdchar)bl pub:black
bind pub nm|OSMA $edu(cmdchar)spam pub:spam
bind pub nm|MSA $edu(cmdchar)d pub:d
bind pub nm|MA $edu(cmdchar)say pub:say
bind pub nm|MSAO $edu(cmdchar)i pub:i
bind pub nm|MSOAV $edu(cmdchar)k pub:k
bind pub nm|MSOA $edu(cmdchar)id pub:id
bind pub nm|AOSM $edu(cmdchar)l pub:lock
bind pub nm|AMSO $edu(cmdchar)ul pub:ul
bind pub nm|MAS $edu(cmdchar)b3 pub:b3
bind pub nm|MAS $edu(cmdchar)b6 pub:b6
bind pub nm|MAS $edu(cmdchar)b9 pub:b9
bind pub nm|MAS $edu(cmdchar)b12 pub:b12
bind pub nm|VOSAM $edu(cmdchar)version pub:versions
bind pub nm|OSMA $edu(cmdchar)check pub:checking
bind pub nm|- $edu(cmdchar)silence pub:silent
bind pub nm|MSOA $edu(cmdchar)cycle pub:cycles
bind pub nm|- $edu(cmdchar)jump pub:jumps
bind pub nm|- $edu(cmdchar)broadcast broadcast
bind pub nm|M $edu(cmdchar)anticaps anticapss
bind pub nm|M $edu(cmdchar)antirepeat antirepeats
bind pub nm|M $edu(cmdchar)antilongtext antilongtext
bind pub nm|M $edu(cmdchar)xtools xtools
bind pub n|- $edu(cmdchar)addowner pub:addowner
bind pub nm|M $edu(cmdchar)antibold antiboldes
bind pub nm|M $edu(cmdchar)anticolor anticolors
bind pub nm|MA $edu(cmdchar)delvoice pub:delvoice
bind pub nm|MA $edu(cmdchar)delop pub:delop
bind pub nm|- $edu(cmdchar)reban rebanned
bind pub nm|AM $edu(cmdchar)r pubs:refresh
bind pub nm|- $edu(cmdchar)refresh refresh
bind pub nm|M $edu(cmdchar)antipub antipub
bind pub nm|M $edu(cmdchar)antinotice antinotice
bind pub nm|MA $edu(cmdchar)addnick pub:addnick
bind pub mn|MA $edu(cmdchar)adduser pub:adduser
bind pub nm|AOSM $edu(cmdchar)vers pub:vers
bind pub nm|OSMA $edu(cmdchar)act act
bind pub nm|M $edu(cmdchar)count count
bind pub nm|M $edu(cmdchar)autovoice autovoices
bind pub nm|- $edu(cmdchar)gb bgs
bind pub nm|M $edu(cmdchar)antiunderline antiunderlines
bind pub nm|MAS $edu(cmdchar)stick pub:stick
bind pub n|OASMN $edu(cmdchar)gag pub:gager
bind pub nm|OSAM $edu(cmdchar)mode pub:modes
bind pub nm|- $edu(cmdchar)msg pub:msgs
bind pub nm|M $edu(cmdchar)antibadrealname antibadrealname
bind pub nm|M $edu(cmdchar)anunt pub:anunt
bind pub mn|MOSAV $edu(cmdchar)ping pings
bind pub nm|MA $edu(cmdchar)addop pub:addop
bind pub nm|M $edu(cmdchar)autoop autoops
bind pub mn|OSMA $edu(cmdchar)whois pub:whois
bind pub nm|M $edu(cmdchar)antictcp antictcps
bind pub nm|M $edu(cmdchar)antibadword antibadword
bind pub nm|OSAM $edu(cmdchar)dronecheck pub:dronecheck
bind pub nm|M $edu(cmdchar)antidle antidles
bind pub nm|MA $edu(cmdchar)addvoice pub:addvoice
bind pub nm|M $edu(cmdchar)leave leaving
bind pub nm|AM $edu(cmdchar)s pub:suspend
bind pub nm|M $edu(cmdchar)greet greeting
bind pub nm|M $edu(cmdchar)clear pub:clear
bind pub nm|AM $edu(cmdchar)us pub:unsuspend
bind pub nm|OASM $edu(cmdchar)ungag pub:ungager
bind pub nm|M $edu(cmdchar)antibadquitpart antibadquitpart
bind pub nm|M $edu(cmdchar)antijoinpart antijoinpart
bind pub nm|M $edu(cmdchar)antispam antispammer
bind pub nm|- $edu(cmdchar)set pub:sets
bind pub nm|- $edu(cmdchar)away pub:aways
bind msg nm|- addchan msg:addchan
bind msg nm|- delchan msg:delchan
bind msg nm|- suspend msg:suspend
bind msg nm|- unsuspend msg:unsuspend
bind msg nm|- nick msg:nickname
bind msg nm|- rehash msg:rehash
bind msg nm|- restart msg:restart
bind msg - invite msg:msginvite
bind msg - op msg:msgop
bind msg - deop msg:msgdeop
bind msg - voice msg:msgvoice
bind msg - devoice msg:msgdevoice
bind msg mn|- save msg:saves
bind msgm - * msgm:antispam
bind pubm - "*" anticolor
bind pubm - * longtext
bind pubm - * caps
bind pubm - * prot:antibadword
bind pubm - * prot:antipub
bind pubm - "*" antiunderline
bind pubm - "*" antibold
bind pubm - * repeat
bind NOTC - * antinotices
bind ctcp - ACTION prot:antibadwords
bind ctcp - * anti-ctcp
bind ctcr - VERSION ctcprequest
bind ctcp - ACTION prot:anticolorme
bind ctcp - ACTION antiunderlineme
bind ctcp - ACTION antiboldme
bind ctcp - ACTION prot:antipubs
bind ctcp - ACTION prot:repeat
bind ctcr - VERSION ctcpvers
bind ctcr mn|MOSAV PING replyp
bind evnt - init-server black_login
bind evnt - init-server set:away
bind join - * autovjoin
bind join - * autoojoin
bind join - "* *" counter
bind join - * joinq
bind join -|- "* *" badrealnames
bind join -|- "* *" joingreet
bind join -|- "* *" spammsgcheck
bind join - "* *" voiced
bind join - "* *" opped
bind mode - "*+b*" protect
bind mode - "*+b*" rebans
bind need - * toolz
bind part - * leavepart
bind part - * part
bind part - * partcolours
bind part - * joinparts
bind sign - * sign
bind sign - * signcolours

#Default Flags

setudef flag antispam
setudef flag antipubs
setudef flag antinotices
setudef flag antibadwords
setudef flag dronecheck
setudef flag antictcps
setudef flag xtools
setudef flag reban
setudef flag refresh
setudef flag antidle
setudef flag anticolors
setudef flag antiunderline
setudef flag antibold
setudef flag antirepeats
setudef flag anticaps
setudef flag count
setudef flag leave
setudef flag greet
setudef flag autoop
setudef flag autovoice
setudef flag antilongtext
setudef flag badquitpart
setudef flag antijoinpart
setudef flag badfullname
setudef flag anunts

setudef int countnumber
setudef int kickcount

#Comand .h


set edu(cmdsvoice) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic>"


set edu(cmdsop) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"

set edu(cmdsop1) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"


set edu(cmdsenior) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"


set edu(cmdsenior1) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"

set edu(cmdadmin) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"

set edu(cmdadmin1) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"

set edu(cmdmanager) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"

set edu(cmdmanager1) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"

set edu(cmdbossowner) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"

set edu(cmdbossowner1) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"

set edu(cmdowner) "The Commands are : 12$edu(cmdchar)v <nick> | 12$edu(cmdchar)o <nick> | 12$edu(cmdchar)userlist | 12$edu(cmdchar)version | 12$edu(cmdchar)info <user> | 12$edu(cmdchar)ping 4(verify lag) | 12$edu(cmdchar)act <message> 4(gives /me) | 12$edu(cmdchar)addinfo <text> 4(you can personalise your user) | 12$edu(cmdchar)t <topic> | 12$edu(cmdchar)l <seconds> 4(will put a chan mode) | 12$edu(cmdchar)ul 4(will remove the chanmodes) |12$edu(cmdchar)cycle| 12$edu(cmdchar)mode <chanmode>| 12$edu(cmdchar)i <nick> (invite) | 12$edu(cmdchar)vers <nick> 4( shows the script version) | 12$edu(cmdchar)whois <nick>"

set edu(cmdowner) "PRIVATE COMMANDS : 12op <chan> <nick> | 12deop <chan> <nick> | 12voice <chan> <nick> | 12devoice <chan> <nick> | 12invite <chan>"

set edu(owners) "PRIVATE COMMANDS : 12nick <newnick> | 12restart | 12rehash | 12suspend / unsuspend <chan> | 12delchan <chan> | 12addchan <chan> | 12save ."

set edu(owners1) "12$edu(cmdchar)status 4(shows channels , server , uptime) | 12$edu(cmdchar)set +/-flag / $edu(cmdchar)set flag number:number 4(ex: $edu(cmdchar)set flood-chan 0:0 / $edu(cmdchar)set +dontkickops) | 12$edu(cmdchar)away <text> | 12$edu(cmdchar)silence ON/OFF | 12$edu(cmdchar)jump <server> | 12$edu(cmdchar)msg <nick/chan> <text> | 12$edu(cmdchar)broadcast <text> 4(global message)"

set edu(banvoice) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host>"


set edu(banop) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident)"

set edu(banop1) "12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers) | 12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated)"

set edu(bansenior) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident) | 12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers)"

set edu(bansenior1) "12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated) | 12$edu(cmdchar)d <number days> <nick> / <host> <reason> | 12$edu(cmdchar)b3 - $edu(cmdchar)b6 - $edu(cmdchar)b9 - $edu(cmdchar)b12 <nick> / <host> <reason> | 12$edu(cmdchar)black <host> / <nick> <reason> | 12$edu(cmdchar)stick <nick> / <host> <time hours> <reason> 4(sticky ban)"


set edu(banadmin) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident) | 12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers)"

set edu(banadmin1) "12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated) | 12$edu(cmdchar)d <number days> <nick> / <host> <reason> | 12$edu(cmdchar)b3 - $edu(cmdchar)b6 - $edu(cmdchar)b9 - $edu(cmdchar)b12 <nick> / <host> <reason> | 12$edu(cmdchar)black <host> / <nick> <reason> | 12$edu(cmdchar)stick <nick> / <host> <time hours> <reason> 4(sticky ban)"

set edu(banmanager) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident) | 12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers)"

set edu(banmanager1) "12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated) | 12$edu(cmdchar)d <number days> <nick> / <host> <reason> | 12$edu(cmdchar)b3 - $edu(cmdchar)b6 - $edu(cmdchar)b9 - $edu(cmdchar)b12 <nick> / <host> <reason> | 12$edu(cmdchar)black <host> / <nick> <reason> | 12$edu(cmdchar)stick <nick> / <host> <time hours> <reason> 4(sticky ban)"

set edu(banowner) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident) | 12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers)"

set edu(banowner1) "12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated) | 12$edu(cmdchar)d <number days> <nick> / <host> <reason> | 12$edu(cmdchar)b3 - $edu(cmdchar)b6 - $edu(cmdchar)b9 - $edu(cmdchar)b12 <nick> / <host> <reason> | 12$edu(cmdchar)black <host> / <nick> <reason> | 12$edu(cmdchar)stick <nick> / <host> <time hours> <reason> 4(sticky ban)"
set edu(banowner2) "Comenzi pentru ban global : 12$edu(cmdchar)gb <nick> / <host> <time hours> <reason> 4(global ban) | 12$edu(cmdchar)sb <*!*@ban> global 4(info global ban) | 12$edu(cmdchar)ub <*!*@ban> global 4(remove global ban)"



set edu(banbossowner) "The Commands are : 12$edu(cmdchar)k <nick> | 12$edu(cmdchar)w <nick> | 12$edu(cmdchar)check <nick> | 12$edu(cmdchar)sb <host> | 12$edu(cmdchar)gag <nick> 4(shuts up <nick>) | 12$edu(cmdchar)ungag <nick> 4(closes .gag) | 12$edu(cmdchar)id <nick> 4(bad ident) | 12$edu(cmdchar)n <nick> 4(bad nick)| 12$edu(cmdchar)spam <nick> 4(spammers)"

set edu(banbossowner1) "12$edu(cmdchar)i <nick> 4(invite) | 12$edu(cmdchar)dr <nick> | 12$edu(cmdchar)b <nick>/<host> <reason> | 12$edu(cmdchar)ub <host> | 12$edu(cmdchar)dronecheck 4(if activated) | 12$edu(cmdchar)d <number days> <nick> / <host> <reason> | 12$edu(cmdchar)b3 - $edu(cmdchar)b6 - $edu(cmdchar)b9 - $edu(cmdchar)b12 <nick> / <host> <reason> | 12$edu(cmdchar)black <host> / <nick> <reason> | 12$edu(cmdchar)stick <nick> / <host> <time hours> <reason> 4(sticky ban)"
set edu(banbossowner2) "Comenzi pentru ban global : 12$edu(cmdchar)gb <nick> / <host> <time hours> <reason> 4(global ban) | 12$edu(cmdchar)sb <*!*@ban> global 4(info global ban) | 12$edu(cmdchar)ub <*!*@ban> global 4(remove global ban)"

set edu(addadmin) "The Commands are : 12$edu(cmdchar)add <level> <user> 4(level= voice,op,senior) | 12$edu(cmdchar)addnick <nivel> <nick> 4(for those who dont have a user) | 12$edu(cmdchar)delacc <user> | 12$edu(cmdchar)adduser <name> <host> <level> 4(level :op or voice)."

set edu(addmanager) "The Commands are : 12$edu(cmdchar)add <level> <user> 4(level= voice,op,senior,admin) | 12$edu(cmdchar)addnick <nivel> <nick> 4(for those who dont have a user) | 12$edu(cmdchar)delacc <user> | 12$edu(cmdchar)adduser <name> <host> <level> 4(level :op or voice) | 12$edu(cmdchar)del <user>."


set edu(addowner) "The Commands are : 12$edu(cmdchar)add <level> <user> 4(level= voice,op,senior,admin,manager) | 12$edu(cmdchar)addnick <nivel> <nick> 4(for those who dont have a user) | 12$edu(cmdchar)delacc <user> | 12$edu(cmdchar)adduser <name> <host> <level> 4(level :op or voice) | 12$edu(cmdchar)del <user>."

set edu(addbossowner) "The Commands are : 12$edu(cmdchar)add <nivel> <user> 4(level= voice,op,senior,admin,manager,owner) | 12$edu(cmdchar)addnick <level> <nick> 4(for those who dont have a user) | 12$edu(cmdchar)delacc <user> | 12$edu(cmdchar)adduser <name> <host> <level> 4(level :op or voice) | 12$edu(cmdchar)del <user> | 12$edu(cmdchar)addowner <nick> 4(add an owner)."

set edu(modifadmin) "The Commands are : 12$edu(cmdchar)addhost <user> <host> | 12$edu(cmdchar)chuser <user> <newuser> 4(change a user) | 12$edu(cmdchar)s <user> 4(access suspend) | 12$edu(cmdchar)us <user> (remove access) | 12$edu(cmdchar)delhost <user> <host> | 12$edu(cmdchar)addvoice <user> 4(autovoice) | 12$edu(cmdchar)delvoice <user> 4(remove autovoice) | 12$edu(cmdchar)addop <user> 4(autoop) | 12$edu(cmdchar)delop <user> 4(remove autoop)"


set edu(modifmanager) "The Commands are : 12$edu(cmdchar)addhost <user> <host> | 12$edu(cmdchar)chuser <user> <newuser> 4(change a user) | 12$edu(cmdchar)s <user> 4(access suspend) | 12$edu(cmdchar)us <user> (remove access) | 12$edu(cmdchar)delhost <user> <host> | 12$edu(cmdchar)addvoice <user> 4(autovoice) | 12$edu(cmdchar)delvoice <user> 4(remove autovoice) | 12$edu(cmdchar)addop <user> 4(autoop) | 12$edu(cmdchar)delop <user> 4(remove autoop)"



set edu(modifowner) "The Commands are : 12$edu(cmdchar)addhost <user> <host> | 12$edu(cmdchar)chuser <user> <newuser> 4(change a user) | 12$edu(cmdchar)s <user> 4(access suspend) | 12$edu(cmdchar)us <user> (remove access) | 12$edu(cmdchar)delhost <user> <host> | 12$edu(cmdchar)addvoice <user> 4(autovoice) | 12$edu(cmdchar)delvoice <user> 4(remove autovoice) | 12$edu(cmdchar)addop <user> 4(autoop) | 12$edu(cmdchar)delop <user> 4(remove autoop)"


set edu(modifbossowner) "The Commands are : 12$edu(cmdchar)addhost <user> <host> | 12$edu(cmdchar)chuser <user> <newuser> 4(change a user) | 12$edu(cmdchar)s <user> 4(access suspend) | 12$edu(cmdchar)us <user> (remove access) | 12$edu(cmdchar)delhost <user> <host> | 12$edu(cmdchar)addvoice <user> 4(autovoice) | 12$edu(cmdchar)delvoice <user> 4(remove autovoice) | 12$edu(cmdchar)addop <user> 4(autoop) | 12$edu(cmdchar)delop <user> 4(remove autoop)"


set edu(module) "The Modules are : 4$edu(cmdchar)count 12<on> / <off> / <display> / <reset> | 44$edu(cmdchar)greet 12<set> / <on> / <off> / <display> / <status> 4(greeting message) | 4$edu(cmdchar)leave 12<set> / <on> / <off> / <display> / <status> 4(leave message) | 4$edu(cmdchar)anunt 12<set> / <on> / <off> / <display>"


set timezone "GMT"

proc pub:h {nick host hand chan arg} {
global edu line
set what [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
} 
if {$what == ""} { 
if {[matchattr $hand -|V $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= VOICE =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban"
return 0
}
if {[matchattr $hand -|O $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= OP =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban"
return 0
}
if {[matchattr $hand -|S $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= SENIOR =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban"
return 0
}
if {[matchattr $hand -|A $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= ADMINISTRATOR =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban | 12$edu(cmdchar)h add | 4$edu(cmdchar)h modif"
return 0
}
if {[matchattr $hand -|M $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= MANAGER =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban | 12$edu(cmdchar)h add | 4$edu(cmdchar)h modif | 12$edu(cmdchar)h chaninfo | 12$edu(cmdchar)h module"
return 0
}

if {[matchattr $hand n|- $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= BOSS OWNER =-"
putquick "NOTICE $nick :You can use: 12$edu(cmdchar)h cmds | 4$edu(cmdchar)h ban | 12$edu(cmdchar)h add | 4$edu(cmdchar)h modif | 12$edu(cmdchar)h chaninfo | 12$edu(cmdchar)h module | 12$edu(cmdchar)h owner |"
return 0
}
if {[matchattr $hand m|- $chan]} {
putquick "NOTICE $nick :ACCESS LEVEL 4-= OWNER =-"
putquick "NOTICE $nick :You can use: 12.h cmds | 4.h ban | 12.h add | 4.h modif | 12.h chaninfo | 12.h module | 12.h owner |"
}
return 0
}

if {([regexp -nocase -- {(#[0-9]+|cmds|ban|add|modif|chaninfo|owner|module)} $what tmp commands]) && (![regexp -nocase -- {\S#} $what])} {
    switch $commands {
 cmds {
if {[matchattr $hand -|V $chan]} {
putquick "NOTICE $nick :$edu(cmdsvoice)"
return 0
}

if {[matchattr $hand -|O $chan]} {
putquick "NOTICE $nick :$edu(cmdsop)"
putquick "NOTICE $nick :$edu(cmdsop1)"
return 0
}

if {[matchattr $hand -|S $chan]} {
putquick "NOTICE $nick :$edu(cmdsenior)"
putquick "NOTICE $nick :$edu(cmdsenior1)"
return 0
}

if {[matchattr $hand -|A $chan]} {
putquick "NOTICE $nick :$edu(cmdadmin)"
putquick "NOTICE $nick :$edu(cmdadmin1)"
return 0
}

if {[matchattr $hand -|M $chan]} {
putquick "NOTICE $nick :$edu(cmdmanager)"
putquick "NOTICE $nick :$edu(cmdmanager1)"
return 0
}

if {[matchattr $hand n|- $chan]} {
putquick "NOTICE $nick :$edu(cmdbossowner)"
putquick "NOTICE $nick :$edu(cmdbossowner1)"
return 0
}

if {[matchattr $hand m|- $chan]} {
putquick "NOTICE $nick :$edu(cmdowner)"
putquick "NOTICE $nick :$edu(cmdowner1)"
return 0
}
}

ban {
if {[matchattr $hand -|V $chan]} {
putquick "NOTICE $nick :$edu(banvoice)"
return 0
}


if {[matchattr $hand -|O $chan]} {
putquick "NOTICE $nick :$edu(banop)"
putquick "NOTICE $nick :$edu(banop1)"
return 0
}

if {[matchattr $hand -|S $chan]} {
putquick "NOTICE $nick :$edu(bansenior)"
putquick "NOTICE $nick :$edu(bansenior1)"
return 0
}

if {[matchattr $hand -|A $chan]} {
putquick "NOTICE $nick :$edu(banadmin)"
putquick "NOTICE $nick :$edu(banadmin1)"
return 0
}

if {[matchattr $hand -|M $chan]} {
putquick "NOTICE $nick :$edu(banmanager)"
putquick "NOTICE $nick :$edu(banmanager1)"
return 0
}

if {[matchattr $hand n|- $chan]} {
putquick "NOTICE $nick :$edu(banbossowner)"
putquick "NOTICE $nick :$edu(banbossowner1)"
putquick "NOTICE $nick :$edu(banbossowner2)"
return 0
}

if {[matchattr $hand m|- $chan]} {
putquick "NOTICE $nick :$edu(banowner)"
putquick "NOTICE $nick :$edu(banowner1)"
putquick "NOTICE $nick :$edu(banowner2)"
return 0
}
}

module {
if {[matchattr $hand nm|M $chan]} {
putquick "NOTICE $nick :$edu(module)"
}
return 0
}

add {
if {[matchattr $hand -|A $chan]} {
putquick "NOTICE $nick :$edu(addadmin)"
return 0
}

if {[matchattr $hand -|M $chan]} {
putquick "NOTICE $nick :$edu(addmanager)"
return 0
}

if {[matchattr $hand n|- $chan]} {
putquick "NOTICE $nick :$edu(addbossowner)"
return 0
}

if {[matchattr $hand m|- $chan]} {
putquick "NOTICE $nick :$edu(addowner)"
return 0
}
}

modif {

if {[matchattr $hand -|A $chan]} {
putquick "NOTICE $nick :$edu(modifadmin)"
return 0
}

if {[matchattr $hand -|M $chan]} {
putquick "NOTICE $nick :$edu(modifmanager)"
return 0
}

if {[matchattr $hand n|- $chan]} {
putquick "NOTICE $nick :$edu(modifbossowner)"
return 0
}

if {[matchattr $hand m|- $chan]} {
putquick "NOTICE $nick :$edu(modifowner)"
return 0
}
}

owner {
if {[matchattr $hand nm|- $chan]} {
putquick "NOTICE $nick :$edu(owners)"
putquick "NOTICE $nick :$edu(owners1)"
return 0
}
}

chaninfo {
if { [channel get $chan antipubs] } { set antipubs "ON" } else { set antipubs "OFF"}
if { [channel get $chan antinotices] } { set antinotices "ON"} else { set antinotices "OFF" } 
if { [channel get $chan antictcps] } { set antictcps "ON" } else { set antictcps "OFF" }
if { [channel get $chan xtools] } {set xtoolss "ON"} else { set xtoolss "OFF" } 
if { [channel get $chan reban] } { set rebans "ON" } else { set rebans "OFF" } 
if  { [channel get $chan refresh] } { set refreshs "ON"} else { set refreshs "OFF" }
if  { [channel get $chan antibadwords] } { set antibadwordss "ON"} else { set antibadwordss "OFF" }
if  { [channel get $chan anticolors] } { set colors "ON"} else { set colors "OFF" }
if  { [channel get $chan antirepeats] } { set repeats "ON"} else { set repeats "OFF" }
if  { [channel get $chan anticaps] } { set capss "ON"} else { set capss "OFF" }
if  { [channel get $chan antispam] } { set spams "ON"} else { set spams "OFF" }
if  { [channel get $chan antiunderline] } { set antiunderlines "ON"} else { set antiunderlines "OFF" }
if  { [channel get $chan antibold] } { set antibolds "ON"} else { set antibolds "OFF" }
if  { [channel get $chan antidle] } { set antidles "ON"} else { set antidles "OFF" }
if {[channel get $chan badquitpart]} { set quitpart "ON" } else { set quitpart "OFF" }
if {[channel get $chan antijoinpart]} {set joinpart "ON" } else { set joinpart "OFF" }
if {[channel get $chan antilongtext]} { set longtext "ON" } else { set longtext "OFF" }
if {[channel get $chan autovoice]} {set voice "ON" } else { set voice "OFF" }
if {[channel get $chan autoop]} { set op "ON" } else { set op "OFF" }
if {[channel get $chan badfullname]} { set fullname "ON" } else { set fullname "OFF" }

if {[matchattr $hand nm|M $chan]} {
putquick "NOTICE $nick :ACTIVATIONS : 12$edu(cmdchar)antipub on/off 4(for now is $antipubs) | 12$edu(cmdchar)antinotice on/off 4(for now is $antinotices) | 12$edu(cmdchar)antictcp on/off 4(for now is $antictcps) | 12$edu(cmdchar)xtools on/off - the bot gives him self unban , op , invite 4(for now is $xtoolss) | 12$edu(cmdchar)reban on/off - adds bot bans trough X 4(for now is $rebans)"

putquick "NOTICE $nick :12$edu(cmdchar)antibadword on/off 4(for now is $antibadwordss) | 12$edu(cmdchar)anticolor on/off 4(for now is $colors) | 12$edu(cmdchar)antirepeat on/off 4(for now is $repeats) | 12$edu(cmdchar)anticaps on/off 4(for now is $capss) | 12$edu(cmdchar)refresh on/off - refresh the topic 4(for now is $refreshs)"

putquick "NOTICE $nick :12$edu(cmdchar)antibold on/off 4(for now is $antibolds) | 12$edu(cmdchar)antiunderline on/off 4(for now is $antiunderlines) | 12$edu(cmdchar)antispam on/off 4(for now is $spams) | 12$edu(cmdchar)antidle on/off 4(for now is $antidles)"

puthelp "NOTICE $nick : 12$edu(cmdchar)antibadquitpart on/off 4(for now is $quitpart) | 12$edu(cmdchar)antijoinpart on/off 4(for now is $joinpart) | 12$edu(cmdchar)antilongtext on/off 4(for now is $longtext) | 12$edu(cmdchar)autovoice on/off 4(for now is $voice) | 12$edu(cmdchar)autoop on/off 4(for now is $op) | 12$edu(cmdchar)antibadrealname on/off 4(for now is $fullname)"
}
}
}
}
}


#adduser


proc pub:add {nick host hand chan arg} {
global botnick user edu
set level [lindex $arg 0]
set args [lrange [split $arg] 1 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)add admin/senior/op/voice user1 user2 user3.." 
return 0
}
foreach user $args {
set hosts "*!*@$user.users.undernet.org"
if {[matchattr $hand -|A $chan] && ($level == "manager")} {
puthelp "NOTICE $nick :You cant give manager because is more higher than your level !" 
return 0
}
if {[matchattr $hand -|A $chan] && ($level == "admin")} {
puthelp "NOTICE $nick :You cant give admin because its your level !" 
return 0
}
if {[matchattr $hand -|M $chan] && ($level == "manager")} {
puthelp "NOTICE $nick :You cant give manager because this is your level !" 
return 0
}
if {([regexp -nocase -- {(#[0-9]+|manager|admin|senior|op|voice)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
    switch $access {
       manager { 
          set flags "-|olM"
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} { puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} { puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
adduser $user $hosts
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has manager access on $chan."
} else {
adduser $user $hosts
chattr $user -|-SOAMV $chan
chattr $user $flags $chan
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has manager access on $chan."
}
}
     admin {
      set flags "-|olA"
 if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has admin access on $chan."
} else {
adduser $user $hosts
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has admin access on $chan."
}
}
   senior {
     set flags "-|olS"
if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} {
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has senior access on $chan."
} else {
adduser $user $hosts
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has senior access on $chan."
}
}

  op {

 set flags "-|olO"
if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has op access on $chan."
} else {
adduser $user $hosts
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has op access on $chan."
}
}

 voice {
 set flags "-|olV"
if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} { 
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has voice access on $chan."
} else {
adduser $user $hosts
chattr $user -|-qolSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has voice access on $chan."
}
}
}
}
}
}

#.del



proc pub:del {nick host hand chan arg} {
global botnick user edu
set users [lrange [split $arg] 0 end]

if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$users == ""} { 
puthelp "NOTICE $nick :Please use : $edu(cmdchar)del user1 user2 user3.."
return 0
}
foreach user $users {
if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant delete a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
deluser $user
puthelp "NOTICE $nick :Erased $user from my memory"
} else {puthelp "NOTICE $nick :Error. $user isn`t in my memory" }
}
}


#.delacc

proc pub:delacc {nick host hand chan arg} {
global botnick user edu
set args [lrange [split $arg] 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$arg == ""} { puthelp "Please use :$edu(cmdchar)delacc user1 user2.."
return 0
} 

foreach user $args {

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant delete the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
chattr $user -|-qolSOAMV $chan
puthelp "NOTICE $nick :Erased the access for ($user) on $chan"
} else { puthelp "NOTICE $nick :Error. $user is not in my memory" }
}
}

#.addhost

proc pub:addhost {nick host hand chan arg} {
global botnick user edu
set user [lindex [split $arg] 0]
set hosts [lrange $arg 1 end]

if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$hosts == ""} {puthelp "NOTICE $nick :Please use : $edu(cmdchar)addhost user1 *!*@host1.users.undernet.org"
return 0
}

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
setuser $user HOSTS $hosts
puthelp "NOTICE $nick :Added host :$hosts to $user"
} else { puthelp "NOTICE $nick :Error. $user isn`t in my memory" }
}

#.delhost


proc pub:delhost {nick host hand chan arg} {
global botnick user edu
set user [lindex [split $arg] 0]
set hosts [lrange $arg 1 end]

if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$hosts == ""} {puthelp "NOTICE $nick :Please use : $edu(cmdchar)delhost user1 *!*@host1.users.undernet.org"
return 0
}

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the host of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} {
delhost $user $hosts
puthelp "NOTICE $nick :Erased host :$hosts from $user"
} else { 
puthelp "NOTICE $nick :Error. $user isn`t in my memory"
 }
}

#.chuser


proc pub:chuser {nick host hand chan arg} {
global botnick user edu
set user [lindex [split $arg] 0]
set chandle [lindex $arg 1]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$user == ""} { puthelp "NOTICE $nick :Please us : $edu(cmdchar)chuser <nick> <newnick>"
return 0 
}

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} {
chhandle $user $chandle
puthelp "NOTICE $nick :Changed $user in $chandle"
} else {puthelp "NOTICE $nick :Error. $user isn`t in my memory" }
}

#.userlist


proc pub:userlist {nick host hand chan arg} {
global botnick edu
set level [lindex [split $arg] 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$level == ""} {puthelp "NOTICE $nick :Please use : $edu(cmdchar)userlist all/op/voice/senior/admin/manager"
return 0
}

if {([regexp -nocase -- {(#[0-9]+|manager|admin|senior|op|voice|all)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
    switch $access {
     manager {
     set flags "-|M"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick : 4Users Manager :12$list"
}
admin {
  set flags "-|A"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick :4Users Admin :12$list"
}

senior {
set flags "-|S"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick :4Users Senior :12$list"
}

op  {
set flags "-|O"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick :4Users Op :12$list"
}

voice {
set flags "-|V"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick :4Users Voice :12$list"
}

all {
       set flags "-|MNASVO"
    set list [userlist $flags $chan]
puthelp "NOTICE $nick :4Users :12$list"
}

}

}
}

#.info TCL



proc pub:infos {nick host hand chan arg} {
global timezone count user edu
set user [lindex [split $arg] 0]
set timezone "GMT"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$user == ""} {puthelp "NOTICE $nick :Please use : $edu(cmdchar)info user1"
return 0
}
if {[validuser $user]} {
} else {puthelp "NOTICE $nick :Error. $user isn`t in my memory" 
return 0
}
set cflags [chattr $user | $chan]
puthelp "NOTICE $nick :4Informations about 12$user"
puthelp "NOTICE $nick :4Current Time   : 12[ctime [unixtime]] $timezone"
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" } 
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 doesn`t have access on $chan" 
return 0
}


if {[matchattr $user -|q $chan]} {
if {[matchattr $user -|V $chan]} { set flags "VOICE (SUSPENDED)" } elseif {[matchattr $user -|O $chan]} { set flags "OP (SUSPENDED)" } elseif {[matchattr $user -|S $chan]} { set flags "SENIOR (SUSPENDED)" } elseif {[matchattr $user -|A $chan]} { set flags "ADMINISTRATOR (SUSPENDED)" } 
if {[matchattr $user -|M $chan]} { set flags "MANAGER (SUSPENDED)" } elseif {[matchattr $user m|- $chan]} { set flags "OWNER (SUSPENDED)" } elseif {$cflags == "-|-"} {puthelp "NOTICE $nick :$user nu are ACCESS pe acest canal !" 
return 0
}
}


  puthelp "NOTICE $nick :4Access Level :12$flags"
if {[getuser $user INFO] != ""} {
   puthelp "NOTICE $nick :4Info - 12[getuser $user INFO]"
 }
  

if {[getuser $user XTRA] != ""} {
 set lastt [getuser $user XTRA]
set list [userlist nm|OSVAM $chan]
foreach use $list {
if {[string match -nocase "*$use*" "*$lastt*"]} {
 if {[matchattr $user n|- $chan]} { set use "12The One And Only"
 }
  puthelp "NOTICE $nick :4LAST MODIFIED BY :12$use"
}
}
}
if {[getuser $user HOSTS] != ""} {
     set hosts [getuser $user hosts]
     puthelp "NOTICE $nick :4HOSTS: 12$hosts"
}

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 black [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)]
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 {$black == ""} { set black "0" }
if {$warn == ""} { set warn "0" }
if {$day == ""} { set day "0" }
if {$kick == ""} { set kick "0" }
puthelp "NOTICE $nick :4Statistics for $user : number of bans 4.dr 12($dr) | number of bans 4.b 12($ban) | number of bans 4.spam 12($spam) | number of bans 4.n 12($badnick) | number of invites 4.i 12($invite) | number of bans 4.black 12($black) | number of kicks 4.w 12($warn) | number of bans tip 4.d 12($day) | number of kicks 4.k 12($kick)."

   set lastseen [getuser $user LASTON]
 if {$lastseen == ""} {puthelp "NOTICE $nick :LAST SEEN :12I never saw $user for the moment";return 0 }
  set lastseen [lindex $lastseen 0]
	set totalyear [expr [unixtime] - $lastseen]
	if {$totalyear < 60} {
		return "12$user left one minute ago"
                return 0
	}
	if {$totalyear >= 31536000} {
		set yearsfull [expr $totalyear/31536000]
		set years [expr int($yearsfull)]
		set yearssub [expr 31536000*$years]
		set totalday [expr $totalyear - $yearssub]
	}
	if {$totalyear < 31536000} {
		set totalday $totalyear
		set years 0
	}
	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 {$years < 1} {set yearstext ""} elseif {$years == 1} {set yearstext "$years year, "} {set yearstext "$years years, "}

	if {$days < 1} {set daystext ""} elseif {$days == 1} {set daystext "$days day, "} {set daystext "$days days, "}

	if {$hours < 1} {set hourstext ""} elseif {$hours == 1} {set hourstext "$hours hour, "} {set hourstext "$hours hours, "}

	if {$mins < 1} {set minstext ""} elseif {$mins == 1} {set minstext "$mins min"} {set minstext "$mins mins"}

	set output $yearstext$daystext$hourstext$minstext
	
puthelp "NOTICE $nick :LAST SEEN :12$output"
}

#.status



proc pub:status {nick host hand chan arg} {
global botnick server uptime
regsub -all " " [channels] ", " chans
puthelp "NOTICE $nick :I am on SERVER :$server"
puthelp "NOTICE $nick :I have in memory chans :$chans"
set totalyear [expr [unixtime] - $uptime]
	if {$totalyear >= 31536000} {
		set yearsfull [expr $totalyear/31536000]
		set years [expr int($yearsfull)]
		set yearssub [expr 31536000*$years]
		set totalday [expr $totalyear - $yearssub]
	}
	if {$totalyear < 31536000} {
		set totalday $totalyear
		set years 0
	}
	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 {$years < 1} {set yearstext ""} elseif {$years == 1} {set yearstext "$years year, "} {set yearstext "$years years, "}

	if {$days < 1} {set daystext ""} elseif {$days == 1} {set daystext "$days day, "} {set daystext "$days days, "}

	if {$hours < 1} {set hourstext ""} elseif {$hours == 1} {set hourstext "$hours hour, "} {set hourstext "$hours hours, "}

	if {$mins < 1} {set minstext ""} elseif {$mins == 1} {set minstext "$mins min"} {set minstext "$mins mins"}

        if {[string length $mins] == 1} {set mins "0${mins}"}
        if {[string length $hours] == 1} {set hours "0${hours}"}
	set output "${yearstext}${daystext}${hours}:${mins}"
	set output [string trimright $output ", "]
 puthelp "NOTICE $nick :Uptime : $output"
}

#addchan



proc msg:addchan {nick host hand arg} {
global botnick
set chans [lindex [split $arg] 0]

if {[matchattr $hand -|q $chans]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"

return 0
}

if {$chans == ""} {puthelp "PRIVMSG $nick :Please use : addchan #chan"
return 0 
}
if {![regexp {^[\\+!#&]} $chans]} {
puthelp "PRIVMSG $nick :Error. $chans isn`t a valid chan" 
return 0
 } 
if {[validchan $chans]} {
puthelp "PRIVMSG $nick :Error. $chans is allready in my memory"
return 0
} else {
channel add $chans
puthelp "PRIVMSG $nick :Added $chans in my list of chans"
}
}

#delchan

proc msg:delchan {nick host hand arg} {
global botnick
set chans [lindex [split $arg] 0]
if {[matchattr $hand -|q $chans]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$chans == ""} {puthelp "PRIVMSG $nick :Please use : delchan #chan"
return 0 
}
if {![regexp {^[\\+!#&]} $chans]} {
puthelp "PRIVMSG $nick :Error. $chans isn`t a valid chan"
return 0
 } 
channel remove $chans
puthelp "PRIVMSG $nick :Erased $chans from my list of chans"
}

#suspend


proc msg:suspend {nick host hand arg} {
global botnick
set chans [lindex [split $arg] 0]
if {[matchattr $hand -|q $chans]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$chans == ""} {puthelp "PRIVMSG $nick :Please use : suspend #chan"
return 0 
}

if {![regexp {^[\\+!#&]} $chans]} {
puthelp "PRIVMSG $nick :Error. $chans isn`t a valid chan" 
return 0
 } 
if { [channel get $chans inactive]} {
puthelp "PRIVMSG $nick :Error. $chans is allready suspended" 
return 0
}
channel set $chans +inactive
puthelp "PRIVMSG $nick :Suspended the chan $chans"
}

#unsuspend


proc msg:unsuspend {nick host hand arg} {
global botnick
set chans [lindex [split $arg] 0]
if {[matchattr $hand -|q $chans]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"

return 0
}

if {$chans == ""} {puthelp "PRIVMSG $nick :Please use : unsuspend #chan"
return 0 
}

if {![regexp {^[\\+!#&]} $chans]} {
puthelp "PRIVMSG $nick :Error. $chans isn`t a valid chan" 
return 0
 } 
if { [channel get $chans inactive]} {
} else {puthelp "PRIVMSG $nick :Error. $chans isn`t suspended"
return 0
 }
channel set $chans -inactive
puthelp "PRIVMSG $nick :$chans is unsuspended now"
}

#.o


proc pub:ops {nick uhost hand chan arg} {
global botnick
set arg [split $arg]
set nick [split $nick]
if {![botisop $chan]} {puthelp "NOTICE $nick :Error I dont have OP !"
 return 0
}
if {[llength $arg] == 0} {
set arg $nick
}
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach opnick $arg {
if {![botisop $chan]} {puthelp "NOTICE $nick :Error. I dont have OP"}
if {$opnick == $botnick} {puthelp "NOTICE $nick :I can`t deop myself" 
 return 0
}

if {[isop $opnick $chan]} {putquick "MODE $chan -o $opnick"} else {putquick "MODE $chan +o $opnick"}
    }

}

#.v


proc pub:voices {nick uhost hand chan arg} {
global botnick
if {![botisop $chan]} {puthelp "NOTICE $nick :Error I dont have OP !"
 return 0
}
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

set arg [split $arg]
set nick [split $nick]
if {[llength $arg] == 0} {
set arg $nick
}

foreach voicenick $arg {
if {[isvoice $voicenick $chan]} {putquick "MODE $chan -v $voicenick"} else {putquick "MODE $chan +v $voicenick"}
    }

}

#.sb


proc pub:sb {nick host hand chan arg} {
   global botnick edu localtime edu
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :Esti suspendat, nu pot folosi aceasta comanda !"
return 0
}
if {([lindex $arg 0] == "") && [matchattr $hand mn|- $chan]} {
    puthelp "NOTICE $nick :Foloseste : .sb *!*@host / .sb *!*@Host global (pt verificare ban global)"
    return 0
  }

if {[lindex $arg 0] == ""} {
    puthelp "NOTICE $nick :Please use : $edu(cmdchar)sb *!*@host.users.undernet.org"
    return 0
  }

set what [lindex $arg 1]
if {($what == "global") && [matchattr $hand mn|- $chan]} {
set bhost [string tolower [lindex $arg 0]]
  foreach ban [banlist] {
 set expire "[ctime [lindex $ban 2]]"
 set created "[ctime [lindex $ban 3]]"
    if {[string match $bhost [string tolower [lindex $ban 0]]]} {
      if {[lindex $ban 2] == 0} {
      if {[isbansticky [lindex $ban 0]]} {
         puthelp "NOTICE $nick : 4Global Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires on : 12permanent , sticky"
        } else {
          puthelp "NOTICE $nick : 4Global Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12permanent"
        }

      } else { 
      if {[isbansticky [lindex $ban 0]]} {          
           puthelp "NOTICE $nick : 4Global Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12$expire ,sticky"

        } else {
          puthelp "NOTICE $nick : 4Global Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12$expire"
          
        }
      }

      set foundban 1
 }
    }
  }

set bhost [string tolower [lindex $arg 0]]
  foreach ban [banlist $chan] {
 set expire "[ctime [lindex $ban 2]]"
 set created "[ctime [lindex $ban 3]]"
    if {[string match $bhost [string tolower [lindex $ban 0]]]} {
      if {[lindex $ban 2] == 0} {
      if {[isbansticky [lindex $ban 0] $chan]} {
         puthelp "NOTICE $nick : 4Local Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12permanent , sticky"
        } else {
          puthelp "NOTICE $nick : 4Local Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12permanent"
        }

      } else { 
      if {[isbansticky [lindex $ban 0] $chan]} {          
           puthelp "NOTICE $nick : 4local Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12$expire ,sticky"

        } else {
          puthelp "NOTICE $nick : 4Local Ban : 12[lindex $ban 0] | 4Set by : 12[lindex $ban 5] | 4Reason : 12[lindex $ban 1] | 4Created date : 12$created | 4Expires : 12$expire"
          
       }
      }

      set foundban 1
 }
    }

  if {![info exists foundban]} {
    puthelp "NOTICE $nick : I didnt find anything in my list"
 return 0
  }
}


#.b


proc pub:b {nick host hand chan arg} {
global botnick edu kcount edu
set bnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
set handle [nick2hand $bnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) You are BANNED"
 } else { set reason1 "($hand) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :I cant ban myself !"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $bnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
}
if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)b <nick> / <host> <reason>"
    	} 
if {$edu(xban) == "1"} {
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(xbtime) $edu(bxlevel) $reason1"
newchanban $chan $mask $hand $reason1 [expr $edu(btime) * 60]
putquick "MODE $chan +b $mask"
} else {
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
newchanban $chan $mask $hand $reason1 [expr $edu(btime) * 60]
putquick "MODE $chan +b $mask"
}
}

#.ub

proc pub:ub {nick host hand chan arg} {
  global botnick edu
  set ban [lindex [split $arg] 0]
  set why [lindex $arg 1]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {($ban == "") && [matchattr $hand nm|- $chan]} {
 puthelp "NOTICE $nick :Please use : $edu(cmdchar)ub *!*@host / $edu(cmdchar)ub *!*@host global (scoti un ban global)"
return 0
}

if {$ban == ""} {putquick "NOTICE $nick :Please use : $edu(cmdchar)ub *!*@host"
return 0
}

  
if {![validchan $chan]} { return 0 } 
    if {![string match "*!*@*" $ban]} { return 0 }
    if {![botisop $chan]} {
    putquick "NOTICE $nick :Error i dont have op !"
    return 0
  }

if {$why == "global"} {
foreach b [banlist] {
set a [lindex $b 0]
if {[string match -nocase $ban $a]} {
killban $a 
puthelp "NOTICE $nick :I erased $a from my global banlist"
return 0
} else { puthelp "NOTICE $nick :$ban isn`t in my global banlist !"
return 0
}
} 
} 
 
  killchanban $chan $ban
  putquick "PRIVMSG X :unban $chan $ban"
  putquick "MODE $chan -b $ban"
 }   

#.dr

proc pub:dr {nick host hand chan arg} {
  	global botnick edu count chans edu
set drone [lindex [split $arg] 0]
set reason "($hand) $edu(dreason)"
set handle [nick2hand $drone]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}


if {[isbotnick $drone]} {
   	 	putquick "NOTICE $nick :I cant ban myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $drone $chan]} {
    		set mask *!*@[lindex [split [getchanhost $drone $chan] "@"] 1] 
	}
if {$drone == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)dr <nick>"
return 0
    	}
  if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA DR($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA DR($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(drxtime) $edu(drxlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(drtime) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA DR($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA DR($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(drtime) * 60]
putquick "MODE $chan +b $mask"
}
}

#.w

proc pub:w {nick host hand chan arg} {
global botnick edu
set wnick [lindex [split $arg] 0]
set reason "($hand) $edu(wreason)"
set handle [nick2hand $wnick]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}


if {[isbotnick $wnick]} {
   putquick "NOTICE $nick :I cant kick myself"
    return 0
  }
if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}


if {![botisop $chan]} {
    putquick "NOTICE $nick :Error. I dont have OP"
    return 0
  }
if {$wnick == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)w <nick>"
return 0
}
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA w($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA w($chan) $counts
putquick "KICK $chan $wnick :$creason"
puthelp "PRIVMSG $wnick :$edu(wmessage)"
}

#.t



proc pub:t {nick host hand chan arg} {
global botnick edu
set topics [lrange $arg 0 end]
set topic "($hand) $topics"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {![botisop $chan]} {
    putquick "NOTICE $nick :Error. I dont have OP"
    return 0
}
if {$topics == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)t <topic>"
return 0
}
putquick "TOPIC $chan :$topic"
}

#.n


proc pub:n {nick uhost hand chan text} {
  	global botnick edu
  	set bnick [lindex [split $text] 0]
       set reason "($hand) $edu(nreason)"
       set handle [nick2hand $bnick]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :Esti suspendat, nu pot folosi aceasta comanda !"
return 0
}

if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

       	if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :I cant ban myself."
    		return 0
  	}
  	if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
    if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)n <nick>"
        return 0
}
  	if {[onchan $bnick $chan]} {
    		set mask "*$bnick*!*@*"
	} else {puthelp "NOTICE $nick :Error. $bnick isn`t on $chan"
return 0
}           	
   if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA n($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA n($chan) $counts
      putquick "PRIVMSG X :ban $chan $mask $edu(nxtime) $edu(nxlevel) $creason"
    	newchanban $chan $mask $hand $creason $edu(ntime)
    } else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA n($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA n($chan) $counts
  newchanban $chan $mask $hand $creason $edu(ntime)
 }
}

#.addinfo


proc pub:setinfo {nick uhost hand chan arg} {
  	global botnick
set info [lrange $arg 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$info == ""} { 
 puthelp "NOTICE $nick :Please use : $edu(cmdchar)addinfo <newinfo> | To turn off : Please use : $edu(cmdchar)addinfo off"
return 0
}
if {$info == "off"} {
set infos ""
setuser $hand info $infos ; putquick "NOTICE $nick :info is OFF"
return 0
}
 
setuser $hand info $info ; putquick "NOTICE $nick :Info set to :  ( $info ) for $hand" 
}


proc joingreet {nick host hand chan} {
global edu
set handle [nick2hand $nick]
if {[matchattr $handle n|AMNOVS $chan]} {
if {[getuser $handle INFO] != ""} {
   puthelp "PRIVMSG $chan :$nick [getuser $handle INFO]"
}
}
}



#.black

proc pub:black {nick host hand chan arg} {
global botnick edu
set blnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "($hand) BlackListed: [lrange $arg 1 end]"
set handle [nick2hand $blnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $blnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $blnick $chan] "@"] 1] 
	}
if {$blnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)black <nick> / <host> <reason>"
 return 0
    	}
 if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA Black($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA Black($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(xblack) $edu(blackxlevel) $creason"
 newchanban $chan $mask $hand $creason [expr 0 * 60]
 putquick "MODE $chan +b $mask"
 } else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA Black($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA Black($chan) $counts
newchanban $chan $mask $hand $creason [expr 0 * 60]
 putquick "MODE $chan +b $mask"
}
}

#spam

proc pub:spam {nick host hand chan arg} {
  	global botnick edu
set spammer [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "($hand) $edu(spamreason)"
set handle [nick2hand $spammer]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

if {$mask == "*!*@*"} {
 return 0
}

if {[isbotnick $spammer]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $spammer $chan]} {
    		set mask *!*@[lindex [split [getchanhost $spammer $chan] "@"] 1] 
	}
if {$spammer == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)spam <nick> / <host>"
return 0

    	}

 if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA spam($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA spam($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(spamxtime) $edu(spamxlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(spamtime) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA spam($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA spam($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(spamtime) * 60]
putquick "MODE $chan +b $mask"
}
}

# .d

proc pub:d {nick host hand chan arg} {
global botnick edu
set days [lindex [split $arg] 0]
set dnick [lindex [split $arg] 1]
set mask [lindex [split $arg] 1]
set reason "[lrange $arg 2 end]"
set handle [nick2hand $dnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {$reason == ""} { set reason1 "($hand) You are BANNED" 
} else { set reason1 "($hand) $reason" }

if {$days == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)d <number days> <nick/<host> <reason>"
 return 0
}
if {[isbotnick $dnick]} {
   	 	putquick "NOTICE $nick :I cant ban myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $dnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $dnick $chan] "@"] 1] 
	} 

if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA d($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA d($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(dxtime) $edu(dxlevel) $creason"
newchanban $chan $mask $hand $creason [expr $days * 1440]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA d($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA d($chan) $counts
newchanban $chan $mask $hand $creason [expr $days * 1440]
putquick "MODE $chan +b $mask"
} 
}

#.say


proc pub:say {nick host hand chan arg} {
global botnick edu
set text [lrange $arg 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$text == ""} { 
puthelp "NOTICE $nick :Please use : $edu(cmdchar)say <text>"
return 0
}
putquick "PRIVMSG $chan :$text"
}

#.i



proc pub:i {nick host hand chan arg} {
global botnick edu
set inick [lindex [split $arg] 0]
set edu(imessage) "You are invited on $chan by $nick , if you want to join type /join $chan now. Thanks"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $inick $chan]} {
puthelp "NOTICE $nick :Error. $inick is allready on $chan."
return 0
}

if {$inick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)i <nick>"
    	}
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 $inick $chan"
puthelp "PRIVMSG $inick :$edu(imessage)"
}

#.k


proc pub:k {nick host hand chan arg} {
global botnick edu
set knick [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {$reason == ""} { set reason1 "($hand) You are kicked !" } else {
set reason1 "($hand) $reason"
}

if {[isbotnick $knick]} {
   	 	putquick "NOTICE $nick :Error. I cant kick myself"
    		return 0
  	}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}

if {$knick == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)k <nick>"
return 0
}
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA k($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA k($chan) $counts
putquick "KICK $chan $knick :$creason"
}

#.id <nick>

proc pub:id {nick host hand chan text} {
  	global botnick edu
  	set idnick [lindex [split $text] 0]
       set reason "($hand) $edu(idreason)"
       set uhost [getchanhost $idnick $chan]
       set handle [nick2hand $idnick]
       set ident "[string trimleft [string tolower [lindex [split $uhost "@"] 0]] "~"]"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

       	if {[isbotnick $idnick]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
  	}
  	if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {$idnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)id <nick>"
        return 0

}
  	if {[onchan $idnick $chan]} {
    		set mask "*!*$ident@*"
	} else {puthelp "NOTICE $nick :Eroare.. $idnick nu este pe $chan !"
return 0
}
           	
   if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
      putquick "PRIVMSG X :ban $chan $mask $edu(idxtime) $edu(idxlevel) $creason"
    	newchanban $chan $mask $hand $creason $edu(idtime)
     } else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason (Nr. Kick 12$kcount)"
  newchanban $chan $mask $hand $creason $edu(idtime)
 }
}

#.l


proc pub:lock {nick host hand chan arg} {
  	global botnick edu
  	set times [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

       	if {![botisop $chan]} {
    		puthelp "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {$times == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)l <seconds>"
return 0
}
if {$times >= 300} {
puthelp "NOTICE $nick :The value is to big please specify a value between 1 and 300 seconds"
return 0
}

  	          putserv "MODE $chan +$edu(mod)" ;utimer $times [list putquick "MODE $chan -$edu(mod)"]
          puthelp "NOTICE $nick : Set +m on $chan for $times seconds" 
}


#Comanda .ul


proc pub:ul {nick host hand chan arg} {
global botnick edu
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {![botisop $chan]} {
    		puthelp "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
putquick "MODE $chan -$edu(unlock)"
}

#Comanda .b3

proc pub:b3 {nick host hand chan arg} {
global botnick edu
set bnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
set handle [nick2hand $bnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) You are BANNED"
 } else { set reason1 "($hand) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $bnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
}
if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)b3 <nick> / <host> <reason>"
    	} 
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(b3xtime) $edu(b3xlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(b3time) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(b3time) * 60]
putquick "MODE $chan +b $mask"
}
}

#Comanda .b6

proc pub:b6 {nick host hand chan arg} {
global botnick edu
set bnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
set handle [nick2hand $bnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) You are BANNED"
 } else { set reason1 "($hand) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $bnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
}
if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)b6 <nick> / <host> <reason>"
    	} 
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(b6xtime) $edu(b6xlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(b6time) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(b6time) * 60]
putquick "MODE $chan +b $mask"
}
}

#Comanda .b9



proc pub:b9 {nick host hand chan arg} {
global botnick edu
set bnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
set handle [nick2hand $bnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) You are BANNED"
 } else { set reason1 "($hand) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $bnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
}
if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)b9 <nick> / <host> <reason>"
    	} 
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(b9xtime) $edu(b9xlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(b9time) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(b9time) * 60]
putquick "MODE $chan +b $mask"
}
}

#Comanda $edu(cmdchar)b12

proc pub:b12 {nick host hand chan arg} {
global botnick edu
set bnick [lindex [split $arg] 0]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 1 end]"
set handle [nick2hand $bnick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}

foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) You are BANNED"
 } else { set reason1 "($hand) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $bnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1] 
}
if {$bnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)b12 <nick> / <host> <reason>"
    	} 
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(b12xtime) $edu(b12xlevel) $creason"
newchanban $chan $mask $hand $creason [expr $edu(b12time) * 60]
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA b($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA b($chan) $counts
newchanban $chan $mask $hand $creason [expr $edu(b12time) * 60]
putquick "MODE $chan +b $mask"
}
}

#Comanda version


proc pub:versions {nick host hand chan arg} {
global botnick names Autor vers
puthelp "NOTICE $nick :SCRIPT VERSION : $names $vers"
}

#rehash comanda

proc msg:rehash {nick host hand arg} {
global botnick
puthelp "PRIVMSG $nick :Rehashed.."
 rehash
}

#Comanda .check


proc pub:checking {nick host hand chan arg} {
 global botnick edu
set checked [lindex [split $arg] 0]
set handle [nick2hand $checked]
if {[matchattr $hand -|q $chan]} { puthelp "You are suspended you cant use this command !"
return 0
}

if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

if {[isbotnick $checked]} {
   	 	putquick "NOTICE $nick :Error. I cant check myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $checked $chan]} {
    		set mask *!*@[lindex [split [getchanhost $checked $chan] "@"] 1] 
	}
if {$checked == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)check <nick>"
return 0
    	}
set countz [getuser $hand XTRA check($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA check($chan) $counts
putquick "PRIVMSG $checked :$edu(checkmsg)"
}

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
}



proc msgm:antispam {nick uhost hand text} {
global botnick edu
set text [spam:filter $text]
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
foreach spammer [string tolower $edu(spamword)] { 
if {[string match -nocase "*$spammer*" "*$text*"]} {
foreach chans [channels] {
if {[onchan $nick $chans]} {
if {[channel get $chans antispam]} {
if {[matchattr $handle nm|AMOVS $chans]} { return 0 }
if {[isbotnick $nick]} { return 0 }
if {$edu(xban) == "1"} {
set getcount [channel get $chans kickcount]
set kcount [expr $getcount +1]
channel set $chans kickcount $kcount
set creason "$edu(spamreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chans $banmask $edu(spamxtime) $edu(spamxlevel) $creason"
newchanban $chans $banmask $botnick $creason [expr $edu(spamban) * 60]
} else {
set getcount [channel get $chans kickcount]
set kcount [expr $getcount +1]
channel set $chans kickcount $kcount
set creason "$edu(spamcreason) (Nr. Kick 12$kcount)"
newchanban $chans $banmask $botnick $creason [expr $edu(spamban) * 60]
}
}
}
}
}
}
}

if {![info exists antispamcycle_running]} {
timer $edu(spamcycle) antispamcycle
set antispamcycle_running 1
}


proc antispamcycle {} {
global edu
set chans [channels]
 foreach chan $chans {
 if { [channel get $chan antispam]} {
  putserv "PART $chan :$edu(spammsgcycle)"; putserv "JOIN $chan"

}
}
timer $edu(spamcycle) antispamcycle
return 1
}



proc spammsgcheck {nick host hand chan } {
global edu
if { [channel get $chan antispam]} {
if {$edu(spamreq) == "1"} {
set replace(%nick%) $nick
set replace(%chan%) $chan
set spamsg [string map [array get replace] $edu(spamsg)]
puthelp "PRIVMSG $nick :$spamsg"
} 
}
}

proc antispammer {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "antispam"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antispam on/off"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antispam"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antispam"
return 0
}
}



#restart

proc msg:restart {nick host hand args} {
putquick "PRIVMSG $nick :Restarting.."
restart
}

#.set

proc pub:sets {nick uhost hand chan arg} {
global botnick edu
set flags [lindex $arg 0]
set type [lindex $arg 1]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
 if {$type == ""} {
if {[botisop $chan]} { channel set $chan $flag ; putquick "NOTICE $nick :Set $flag on $chan" } 
} else { channel set $chan $flag $type ; putquick "NOTICE $nick :Set$flag $type on $chan" 
 }
 

}

#.away

proc pub:aways {nick host hand chan arg} {
global edu
set aw [lrange [split $arg] 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$aw == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)away <text> | To turn of : Please use : $edu(cmdchar)away off"
return 0
}
if {$aw == "off"} { 
putquick "NOTICE $nick :Set AWAY OFF"
putquick "AWAY :" 
set type [open logs/away.txt w]
set none ""
puts $type "$none"
close $type

return 0
} else {
putquick "NOTICE $nick :Mi-am setat ca AWAY :$aw" ; putquick "AWAY :$aw"
set type [open logs/away.txt w]
puts $type "$aw"
close $type
}
}


proc set:away {my} {
set aways [open logs/away.txt r]
set away "[gets $aways]"
catch {close $aways}
if {$away == ""} {
 return 0 
} else {
putserv "AWAY :"
putserv "AWAY :$away"
}
}


set keep-nick 0
proc msg:nickname {nick host hand arg} {
global botnick
set newnick [lindex $arg 0]
if {$newnick == ""} { puthelp "PRIVMSG $nick :Please use :nick <nickname>"
return 0
}
putquick "NICK $newnick"
}

#user protections

proc protect {nick host hand chan args} {
global botnick
set bans [lindex $args 1]
set flags "nm|MASVO"
set list [userlist $flags $chan]
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $bans $host]} {
putquick "MODE $chan -b $bans"
putquick "PRIVMSG X :unban $chan $bans"

}
}
}
}
#.cycle

proc pub:cycles {nick host hand chan arg} {
global edu
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
set reason "($hand) $edu(cyclemsg)"
putquick "PART $chan :$reason"
utimer 5 [list putquick "JOIN $chan"]
}

#.silence on/off


proc pub:silent {nick host hand chan arg} {
global edu
set value [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :Esti suspendat, nu pot folosi aceasta comanda !"
return 0
}
if {$arg == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)silence on / off"
return 0
}
if {([regexp -nocase -- {(#[0-9]+|on|off)} $value tmp silents]) && (![regexp -nocase -- {\S#} $value])} {
    switch $silents {
       on { putquick "NOTICE $nick :Set SILENCE +*!*@*" ; putquick "SILENCE +*!*@*" 
            
}
       off { putquick "NOTICE $nick :Set SILENCE -*!*@*" ; putquick "SILENCE -*!*@*"
             
}
}
}
}

#.jump

proc pub:jumps {nick host hand chan arg} {
global edu
set serv [lindex $arg 0]
if {$serv == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)jump <server>"
return 0
}
putquick "NOTICE $nick :Changing server in : $serv"
jump $serv
}

#private commands

#op <canal>

proc msg:msgop {nick host hand arg} {
set chan [lindex $arg 0]
set nicks [lrange $arg 1 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$nicks == ""} { set nicks "$nick" }
if {[matchattr $hand nm|OASM $chan]} {
if {![regexp {^[\\+!#&]} $chan]} {
puthelp "privmsg $nick :Error. $chan isn`t a valid chan"
return 0
 } 
foreach nickz $nicks {
if {[onchan $nickz $chan]} {
if {[isop $nickz $chan]} { puthelp "PRIVMSG $nick : $nickz has allready op"
return 0
}
putquick "MODE $chan +o $nickz"

}
}
}
}

#deop <canal>

bind msg - deop msg:msgdeop

proc msg:msgdeop {nick host hand arg} {
set chan [lindex $arg 0]
set nicks [lrange $arg 1 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$nicks == ""} { set nicks "$nick" }
if {[matchattr $hand nm|OASM $chan]} {
if {![regexp {^[\\+!#&]} $chan]} {
puthelp "privmsg $nick :Error. $chan isn`t a valid chan"
return 0
 } 
foreach nickz $nicks {
if {[onchan $nickz $chan]} {


putquick "MODE $chan -o $nickz"

}
}
}
}

#Voice <chan>

bind msg - voice msg:msgvoice

proc msg:msgvoice {nick host hand arg} {
set chan [lindex $arg 0]
set nicks [lrange $arg 1 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$nicks == ""} { set nicks "$nick" }
if {[matchattr $hand nm|OASM $chan]} {
if {![regexp {^[\\+!#&]} $chan]} {
puthelp "privmsg $nick :Error. $chan isn`t a valid chan"
return 0
 } 
foreach nickz $nicks {
if {[onchan $nickz $chan]} {
if {[isvoice $nickz $chan]} { puthelp "PRIVMSG $nick : $nickz allready has voice"
return 0
}
putquick "MODE $chan +v $nickz"

}
}
}
}

#Devoice <chan>

bind msg - devoice msg:msgdevoice

proc msg:msgdevoice {nick host hand arg} {
set chan [lindex $arg 0]
set nicks [lrange $arg 1 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$nicks == ""} { set nicks "$nick" }
if {[matchattr $hand nm|OASM $chan]} {
if {![regexp {^[\\+!#&]} $chan]} {
puthelp "privmsg $nick :Error. $chan isn`t a valid chan"
return 0
 } 
foreach nickz $nicks {
if {[onchan $nickz $chan]} {


putquick "MODE $chan -v $nickz"

}
}
}
}

#.gag

proc pub:gager {nick host hand chan arg} {
  	global botnick edu
set gagger [lindex [split $arg] 0]
set handle [nick2hand $gagger]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {[matchattr $handle nm|OASM $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

if {[isbotnick $gagger]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $gagger $chan]} {
    		set mask *!*@[lindex [split [getchanhost $gagger $chan] "@"] 1] 
	}
if {$gagger == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)gag <nick>"
return 0
    	}


putquick "MODE $chan +b $mask"
putquick "NOTICE $gagger :$gagger you have been reduced to silence please wait untill you get $edu(cmdchar)ungag thanks"

 }

#.ungag

proc pub:ungager {nick host hand chan arg} {
  	global botnick edu
set ungagger [lindex [split $arg] 0]
set handle [nick2hand $ungagger]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}

if {[isbotnick $ungagger]} {
   	 	putquick "NOTICE $nick :Error. I cant ban myself"
    		return 0
}
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
  	}
if {[onchan $ungagger $chan]} {
    		set mask *!*@[lindex [split [getchanhost $ungagger $chan] "@"] 1] 
	}
if {$ungagger == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)ungag <nick>"
return 0
    	}

putquick "MODE $chan -b $mask"
putquick "NOTICE $ungagger :You received ungag now you can chat on chan"

}

#invite

proc msg:msginvite {nick host hand arg} {
global edu
set chan [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {[matchattr $hand nm|OASM $chan]} {
if {$arg == ""} { puthelp "PRIVMSG $nick :Please use : invite <chan>"
return 0
}
putquick "INVITE $nick $chan"
putquick "PRIVMSG $nick :You have received invite on $chan please ENTER"
}
}

#.mode

proc pub:modes {nick host hand chan arg} {
global edu
set modes [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$modes == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)mode <chanmode>"
return 0
}
if {![regexp {^[+ -]} $modes]} {
puthelp "NOTICE $nick :Please specify a valid mode"
return 0
}
puthelp "NOTICE $nick :Set channel $modes on $chan"
channel set $chan chanmode $modes


}

#.msg

proc pub:msgs {nick host hand chan arg} {
global edu
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
set nicks [lindex $arg 0]
set msg [lrange $arg 1 end]
if {$arg == ""} {puthelp "NOTICE $nick :Please use : $edu(cmdchar)msg <nick> / <chan> <text>"
return 0
}
if {[isbotnick $nicks]} { puthelp "NOTICE $nick :Error. I cant message myself"
return 0
 }
putquick "PRIVMSG $nicks :$msg"

}

#.s <user>

proc pub:suspend {nick host hand chan arg} {
global edu users
set flags "-|q"
set users [lindex [split $arg] 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$users == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)s <user> (suspend access)"
return 0
}
if {[validuser $users]} { 
if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant suspend a user that has a higher or equal level then you"
return 0 
}


chattr $users $flags $chan
setuser $users XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Suspended $users access on $chan"
} else { puthelp "NOTICE $nick :$users isn`t in my memory"
return 0
}
} 

#Comanda .us <nick>

proc pub:unsuspend {nick host hand chan arg} {
global edu users
set flags "-|-q"
set users [lindex [split $arg] 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$users == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)us <user>(remove suspend)"
return 0
}
if {[validuser $users]} { 
if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}

setuser $users XTRA LASTMODIFBY $hand
chattr $users $flags $chan
puthelp "NOTICE $nick :Removed suspend for $users on $chan"
} else { puthelp "NOTICE $nick :$users isn`t in my memory"
return 0
}
} 



#antipub protection


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 prot:antipub {nick host hand chan text} {
global edu botnick
set text [antipub:filter $text]
set handle [nick2hand $nick]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[isbotnick $nick]} { return 0 } 
if { [channel get $chan antipubs] } {
if {[onchan $nick $chan]} {
    		set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 
}
foreach antipub [string tolower $edu(antipubword)] {
if {[string match -nocase $antipub $text]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antipubreason) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(antipubmode)" -next ;utimer $edu(antipubsecunde) [list putquick "MODE $chan -$edu(antipubmode)"]
putquick "PRIVMSG X :ban $chan $banmask $edu(antipubxtime) $edu(antipubxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antipubbantime) * 60]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antipubreason) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(antipubmode)" -next ;utimer $edu(antipubsecunde) [list putquick "MODE $chan -$edu(antipubmode)"]
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antipubbantime) * 60]
}
}
}
}
}
proc prot:antipubs {nick uhost hand chan keyword text} {
global edu botnick
set text [antipub:filter $text]
set handle [nick2hand $nick]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[isbotnick $nick]} { return 0 } 
if { [channel get $chan antipubs] } {
if {[onchan $nick $chan]} {
    		set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 
}
foreach antipub [string tolower $edu(antipubword)] {
if {[string match -nocase $antipub $text]} {
if {$edu(xban) == "1"} {
putquick "MODE $chan +$edu(antipubmode)" -next ;utimer $edu(antipubsecunde) [list putquick "MODE $chan -$edu(antipubmode)"]
putquick "PRIVMSG X :ban $chan $banmask $edu(antipubxtime) $edu(antipubxlevel) $edu(antipubreason)"
putquick "KICK $chan $nick :$edu(antipubreason)"
newchanban $chan $banmask $botnick $edu(antipubreason) [expr $edu(antipubbantime) * 60]
} else {
putquick "MODE $chan +$edu(antipubmode)" -next ;utimer $edu(antipubsecunde) [list putquick "MODE $chan -$edu(antipubmode)"]
putquick "KICK $chan $nick :$edu(antipubreason)"
newchanban $chan $banmask $botnick $edu(antipubreason) [expr $edu(antipubbantime) * 60]
}
}
}
}
}



proc antipub {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antipubs
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antipub <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antipub"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antipub"
return 0
}
}

#AntiNOTICE



proc antinotices {nick uhost hand text chan} {
global edu botnick
set handle [nick2hand $nick]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {![validchan $chan]} {
      return 0
   }
if {[isbotnick $nick] || ![botisop $chan] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
if {$chan == $botnick} { return 0 }
if { [channel get $chan antinotices] } {
set masks *!*@[lindex [split $uhost @] 1]
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antinoticereason) (Nr. Kick 12$kcount)"

putquick "MODE $chan +$edu(antinoticemode)" -next ;utimer $edu(antinoticesecunde) [list putquick "MODE $chan -$edu(antinoticemode)"]
putquick "PRIVMSG X :ban $chan $masks $edu(antinoticextime) $edu(antinoticexlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $masks $botnick $creason [expr $edu(antinoticebantime) * 60]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antinoticereason) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(antinoticemode)"
utimer $edu(antinoticesecunde) [list putquick "MODE $chan -$edu(antinoticemode)"]
putquick "KICK $chan $nick :$creason"
newchanban $chan $masks $botnick $creason [expr $edu(antinoticebantime) * 60]
}
}
}

proc antinotice {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antinotices
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antinotice
<on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antinotice"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antinotice"
return 0
}
}

#.addnick <level> <nick>

proc pub:addnick {nick host hand chan arg} {
global botnick user edu
set level [lindex $arg 0]
set args [lrange [split $arg] 1 end]

if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)addnick admin/senior/op/voice <user1> <user2>.."
return 0
}
foreach user $args {
set handle [nick2hand $user]
set uhost [getchanhost $user $chan]
if {[onchan $user $chan]} {
set hosts "*!*$uhost"
} else { putquick "NOTICE $nick :I cant add $user because he is not on $chan"
return 0
} 
if {[matchattr $hand -|A $chan] && ($level == "manager")} {
puthelp "NOTICE $nick :You cant give manager because is more higher than your level !"
return 0
}
if {[matchattr $hand -|A $chan] && ($level == "admin")} {
puthelp "NOTICE $nick :You cant give admin because this is your level"
return 0
}
if {[matchattr $hand -|M $chan] && ($level == "manager")} {
puthelp "NOTICE $nick :You cant give manager because this is your level"
return 0
}
if {([regexp -nocase -- {(#[0-9]+|manager|admin|senior|op|voice)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
    switch $access {
       manager { 
          set flags "-|olM"
if {[matchattr $handle -|N $chan] && [matchattr $hand -|M $chan]} { puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} { puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} { 
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has manager access on $chan."
} else {
adduser $user $hosts
chattr $user -|-SOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has manager access on $chan."
}
}
     admin {
      set flags "-|olA"
 if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has admin access on $chan."
} else {
adduser $user $hosts
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has admin access on $chan."
}
}
   senior {
     set flags "-|olS"
if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[validuser $user]} { 
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has senior access on $chan."
} else {
adduser $user $hosts
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has senior access on $chan."
}
}

  op {

 set flags "-|olO"
if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}


if {[validuser $user]} {
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has op access on $chan."
} else {
adduser $user $hosts
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has op access on $chan."
}
}

 voice {
 set flags "-|olV"
if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant remove suspend for a user that has a higher or equal level then you"
return 0 
}


if {[validuser $user]} { 
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has voice access on $chan."
} else {
adduser $user $hosts
chattr $user -|-olSOAMV $chan
chattr $user $flags $chan 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has voice access on $chan."

}
}
}
}
}
}


#anti bad word

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 prot:antibadword {nick host hand chan text} {
global edu botnick
set handle [nick2hand $nick]
set text [antibadword:filter $text]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[isbotnick $nick]} { return 0 } 
if { [channel get $chan antibadwords] } {
if {[onchan $nick $chan]} {
    		set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 
}
foreach antibadword [string tolower $edu(antibadword)] {
if {[string match -nocase $antibadword $text]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antibadwordreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(antibadwordxtime) $edu(antibadwordxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antibadwordbantime) * 60]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antibadwordreason) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antibadwordbantime) * 60]
}
}
}
}
}

proc prot:antibadwords {nick uhost hand chan keyword text} {
global edu botnick
set handle [nick2hand $nick]
set text [antibadword:filter $text]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[isbotnick $nick]} { return 0 } 
if { [channel get $chan antibadwords] } {
if {[onchan $nick $chan]} {
    		set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1] 
}
foreach antibadword [string tolower $edu(antibadword)] {
if {[string match -nocase $antibadword $text]} {
if {$edu(xban) == "1"} {
putquick "PRIVMSG X :ban $chan $banmask $edu(antibadwordxtime) $edu(antibadwordxlevel) $edu(antibadwordreason)"
putquick "KICK $chan $nick :$edu(antibadwordreason)"
newchanban $chan $banmask $botnick $edu(antibadwordreason) [expr $edu(antibadwordbantime) * 60]
} else {
putquick "KICK $chan $nick :$edu(antibadwordreason)"
newchanban $chan $banmask $botnick $edu(antibadwordreason) [expr $edu(antibadwordbantime) * 60]
}
}
}
}
}


proc antibadword {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antibadwords
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antibadoword on/off"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antibadwords"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antibadwords"
return 0
}
}

#.dronecheck


proc pub:dronecheck {nick host hand chan arg} {
global edu
set flag dronecheck
set why [lindex $arg 0]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$why == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the command .dronecheck"
return 0
}
if {$why == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the command .dronecheck"
return 0
}
if { [channel get $chan dronecheck]} {
putserv "PRIVMSG $chan :\001VERSION\001"
}
}


proc ctcprequest {nick uhost hand dest key arg} {
global edu botnick user
set banmask *!*@[lindex [split $uhost @] 1]
foreach chan [channels] {
if {[isbotnick $nick] || ![botisop $chan] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
if { [channel get $chan dronecheck]} {
 foreach user $chan {
set handle [nick2hand $user]
if {[matchattr $handle n|oAMNOVS $chan]} { return 0 }
foreach version $edu(versions) {
 if {[string match "*[string tolower $version]*" [string tolower $arg]]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(versreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(versionxtime) $edu(versionxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(versionbantime) * 60]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(versreason) (Nr. Kick 12$kcount)"
newchanban $chan $banmask $botnick $creason [expr $edu(versionbantime) * 60]
}
}
}
}
}
}
}

#.antictcp on/off



proc anti-ctcp {nick uhost hand chan kw arg} {
global botnick edu
if {[string equal -nocase "action" $kw] || [string equal -nocase "chat" $kw]} {return 0}
set handle [nick2hand $nick]
if {[matchattr $handle nm|oAMOVS $chan]} { return 0 }
if {![validchan $chan]} {
      return 0
   }
if {[isbotnick $nick] || ![botisop $chan] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
if {$chan == $botnick} { return 0 }
if { [channel get $chan antictcps] } {
set masks *!*@[lindex [split $uhost @] 1]
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antictcpreason) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(antictcpmode)" -next ;utimer $edu(antictcpsecunde) [list putquick "MODE $chan -$edu(antictcpmode)"]
putquick "PRIVMSG X :ban $chan $masks $edu(antictcpxtime) $edu(antictcpxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $masks $botnick $creason [expr $edu(antictcpbantime) * 60]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antictcpreason) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(antictcpmode)"
utimer $edu(antictcpsecunde) [list putquick "MODE $chan -$edu(antictcpmode)"]
putquick "KICK $chan $nick :$creason"
newchanban $chan $masks $botnick $creason [expr $edu(antictcpbantime) * 60]
}
}
}


proc antictcps {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antictcps
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antictcp <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antictcp"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antictcp"
return 0
}
}

#XTOOLZ



proc toolz {channel type} {
global botnick
  if {![channel get $channel xtools]} {
    return 1
  }
  if {$type == "op"} {
    if  {![onchan "X" $channel] && ![botisop $channel]} {
      return 1
    }
    putquick "PRIVMSG X :op $channel $botnick" -next
    return 1
  }
  if {$type == "unban"} {
    putquick "PRIVMSG X :unban $channel $botnick" -next
    return 1
  }
  if {$type == "invite" || $type == "limit"} {
    putquick "PRIVMSG X :invite $channel $botnick" -next
    return 1
  }
}

proc xtools {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag xtools
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)xtools <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated xtools"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated xtools"
return 0
}
}

#.addowner <nick>

proc pub:addowner {nick host hand chan arg} {
global botnick edu
set arg [split $arg]
set flags "m|-"
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)addowner <nick>"
return 0
}
foreach user $arg {
set handle [nick2hand $user]
set uhost [getchanhost $user $chan]
if {[onchan $user $chan]} {
set hosts "*!*$uhost"
} else { putquick "NOTICE $nick :I cant add $user because he is not on $chan"
return 0
} 
if {[validuser $user]} { 
chattr $user -|-olSOANMV $chan
chattr $user $flags
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :$user has OWNER access"
} else {
adduser $user $hosts
chattr $user -|-olSOAMNV $chan
chattr $user $flags 
setuser $user XTRA _FLAG
setuser $user XTRA LASTMODIFBY $hand
puthelp "NOTICE $nick :Added $user in my memory with host :$hosts"
puthelp "NOTICE $nick :$user has OWNER access"
}
}
}


#reban module

proc rebans {nick host hand chan args} {
global reban edu
set bans [lindex $args 1]
foreach ban [banlist $chan] {
set reason "[lindex $ban 1]"
if {[string match *$bans* [string tolower [lindex $ban 0]]]} {
if {[channel get $chan reban]} {
putquick "PRIVMSG X :ban $chan $bans $edu(reban) $edu(rebanlevel) $reason"
}
}
}
}


proc rebanned {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag reban
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)reban <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the reban module"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the reban module"
return 0
}
}

#topic refresh module



proc pubs:refresh {nickname hostname handle channel text} {
global botnick edu
set thetopic [topic $channel]
times_topic
}

if {![info exists times_topic_running]} { 
timer $edu(topic_time) times_topic
set times_topic_running 1
}


proc times_topic {} {
 global edu
foreach channel [channels] {
if { [channel get $channel refresh] } {
set thetopic [topic $channel]
   puthelp "TOPIC $channel :$edu(topics)"
   puthelp "TOPIC $channel :$thetopic"
putlog "reimprospatez topicul.."

}
}
timer $edu(topic_time) times_topic
 return 1
}


proc refresh {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag refresh
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)refresh <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the refresh module"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the refresh module"
return 0
}
}

#antidle

bind raw - 317 antidle
setudef flag antidle
proc antidle {nick int arg} {
  global edu botnick
   set nick [string tolower [lindex $arg 1]]
   set nick [split $nick]
   set idle [string tolower [lindex $arg 2]]
   set minutesidle [expr $idle / 60]
 foreach chans [channels] {
 if {[channel get $chans antidle]} {

   if {$minutesidle > $edu(idletime)} {
      dccbroadcast "$nick are prea mult idle"
         
        putserv "MODE $chans -o $nick"
         putlog "I-am dat deop lu $nick de pe $chans deoarece are prea mult idle"
 if {$edu(idlemsgreq) == "1"} {
  puthelp "PRIVMSG $nick :$edu(idlemsg)"
 }
      }
    }
}
}

proc whois { } {
  global edu botnick
        foreach chan [channels] {
      if {[channel get $chan antidle]} {
       dccbroadcast "Caut pe $chan de idle.."
       foreach person [chanlist $chan] { 
  set person [split $person]
         if { [isop $person $chan]} { 
             if {(![matchattr [nick2hand $person $chan] n|VOASM]) && ($person != $botnick)} { putserv "WHOIS $person $person" }
           }
                      }
         } 
       } 
timer $edu(idleinterval) whois
 return 1
}

if {![info exists whois_running]} { 
timer $edu(idleinterval) whois
set whois_running 1
}

proc antidles {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antidle
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antidle <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the idle module"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the idle module"
return 0
}
}


 
#Autovoice

proc pub:addvoice {nick host hand chan arg} {
global botnick user edu
set args [lrange [split $arg] 0 end]
set flag "-|g"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)addvoice user1 user2 user3.." 
return 0
}
foreach user $args {

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} {
 chattr $user $flag $chan
 setuser $user XTRA _FLAG
puthelp "NOTICE $nick :Set autovoice for $user on $chan"
} else { puthelp "NOTICE $nick :$user isn`t in my memory"
return 0
 }
}
}

proc voiced {nick host hand chan} {
set handle [nick2hand $nick]
if {[matchattr $handle -|g $chan]} {
putquick "MODE $chan +v $nick"
}
}



proc pub:delvoice {nick host hand chan arg} {
global botnick user edu
set args [lrange [split $arg] 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)delvoice user1 user2 user3.." 
return 0
}
foreach user $args {

if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} {
 chattr $user -|-g $chan
 setuser $user XTRA _FLAG
puthelp "NOTICE $nick :Removed autovoice for $user on $chan"
} else { puthelp "NOTICE $nick :$user isn`t in my memory"
return 0
 }
}
}

#AutoOp

proc pub:addop {nick host hand chan arg} {
global botnick user edu
set args [lrange [split $arg] 0 end]
set flag "-|a"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)addop user1 user2 user3.." 
return 0
}
foreach user $args {

if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} {
 chattr $user $flag $chan
 setuser $user XTRA _FLAG
puthelp "NOTICE $nick :Set autoop for $user on $chan"
} else { puthelp "NOTICE $nick :$user isn`t in my memory"
return 0
 }
}
}

proc opped {nick host hand chan} {
set handle [nick2hand $nick]
if {[matchattr $handle -|a $chan]} {
putquick "MODE $chan +o $nick"
}
}

proc pub:delop {nick host hand chan arg} {
global botnick user edu
set args [lrange [split $arg] 0 end]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)delop user1 user2 user3.." 
return 0
}
foreach user $args {

if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}

if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
 puthelp "NOTICE $nick :You cant modify the access of a user that has a higher or equal level then you"
return 0 
}
if {[validuser $user]} {
 chattr $user -|-a $chan
 setuser $user XTRA _FLAG
puthelp "NOTICE $nick :Removed autoop for $user on $chan"
} else { puthelp "NOTICE $nick :$user isn`t in my memory"
return 0
 }
}
}

#Anticolor



proc anticolor {nick uhost hand chan args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan anticolors]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\x03* $args]} {
if {$edu(xban) == "1"} {
incr count($nick:$host:$chan)
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticolormsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
incr count($nick:$host:$chan)
putquick "PRIVMSG X :ban $chan $banmask $edu(anticolorxtime) $edu(anticolorxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(anticolorbantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticolormsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(anticolorbantime)]
}
}
}
}



proc anticolors {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "anticolors"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)anticolor <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection anticolor"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection anticolor"
return 0
}
}

proc prot:anticolorme {nick uhost hand chan keyword args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan anticolors]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\x03* $args]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticolormsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
putquick "PRIVMSG X :ban $chan $banmask $edu(anticolorxtime) $edu(anticolorxlevel) $creason"
putquick "KICK $chan $nick :$edu(anticolormsg)"
newchanban $chan $banmask $botnick $creason [expr $edu(anticolorbantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticolormsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(anticolorbantime)]
}
}
}
}

proc antiunderline {nick uhost hand chan args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan antiunderline]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\037* $args]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiunderlinemsg) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(antiunderlinextime) $edu(antiunderlinexlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiunderlinebantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiunderlinemsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiunderlinebantime)]
}
}
}
}

proc antiunderlineme {nick uhost hand chan keyword args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan antiunderline]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\037* $args]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiunderlinemsg) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(antiunderlinextime) $edu(antiunderlinexlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiunderlinebantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiunderlinemsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiunderlinebantime)]
}
}
}
}

proc antiunderlines {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "antiunderline"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antiunderline <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antiunderline"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antiunderline"
return 0
}
}

proc antibold {nick uhost hand chan args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan antibold]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\002* $args]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiboldmsg) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(antiboldxtime) $edu(antiboldxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiboldbantime)]
} else { 
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiboldmsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiboldbantime)]
}
}
}
}

proc antiboldme {nick uhost hand chan keyword args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan antiunderline]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match *\002* $args]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiboldmsg) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(antiboldxtime) $edu(antiboldxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiboldbantime)]
} else { 
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antiboldmsg) (Nr. Kick 12$kcount)"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antiboldbantime)]
}
}
}
}



proc antiboldes {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "antibold"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antibold <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antibold"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antibold"
return 0
}
}


#Anti-Repeat



proc repeat {nick uhost hand chan args} {
global edu botnick repeat_last repeat_num
set banmask "*!*@[lindex [split $uhost @] 1]"
set handle [nick2hand $nick]
if {[channel get $chan antirepeats]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if [info exists repeat_last([set n [string tolower $nick]])] {
    if {[string compare [string tolower $repeat_last($n)] \
        [string tolower $args]] == 0} {
      if {[incr repeat_num($n)] >= ${edu(repeats)}} {
       if {$edu(xban) == "1"} {
 set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antirepeatmsg) (Nr. Kick 12$kcount)"
        putquick "PRIVMSG X :ban $chan $banmask $edu(antirepeatxtime) $edu(antirepeatxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antirepeatbantime)]
} else { 
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antirepeatmsg) (Nr. Kick 12$kcount)"

putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antirepeatbantime)] 
}
        unset repeat_last($n)
        unset repeat_num($n)
      }
      return
    }
  }
  set repeat_num($n) 1
  set repeat_last($n) $args
}
}


proc antirepeats {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "antirepeats"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antirepeat on/off"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection antirepeat"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection antirepeat"
return 0
}
}

proc prot:repeat {nick uhost hand chan keyword args} {
global edu botnick repeat_last repeat_num
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan antirepeats]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if [info exists repeat_last([set n [string tolower $nick]])] {
    if {[string compare [string tolower $repeat_last($n)] \
        [string tolower $args]] == 0} {
      if {[incr repeat_num($n)] >= ${edu(repeats)}} {
       if {$edu(xban) == "1"} {
        set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antirepeatmsg) (Nr. Kick 12$kcount)"
        putquick "PRIVMSG X :ban $chan $banmask $edu(antirepeatxtime) $edu(antirepeatxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antirepeatbantime)]
} else { 
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(antirepeatmsg) (Nr. Kick 12$kcount)"

putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(antirepeatbantime)] 
}

        unset repeat_last($n)
        unset repeat_num($n)
      }
      return
    }
  }
  set repeat_num($n) 1
  set repeat_last($n) $args
}
}

#anticaps

proc caps {nick uhost hand chan args} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $uhost @] 1]"
if {[channel get $chan anticaps]} {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }

set caps 0
  foreach word [split $args {}] {
    if [string match \[A-Z\] $word] {
      incr caps
    }

}

  if {$caps == 0} {
  return 0
}
  if {[string length $args] < 20} {return 0}
  set capchar [string length $args]
  set number $caps/$capchar
  if {[expr 100 * $caps / $capchar] > 40} {
if {$edu(xban) == "1"} {
 set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticapsmsg) (Nr. Kick 12$kcount)"
        putquick "PRIVMSG X :ban $chan $banmask $edu(anticapsxtime) $edu(anticapsxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(anticapsbantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(anticapsmsg) (Nr. Kick 12$kcount)"

 putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(anticapsbantime)] 
}
}
}
}



proc anticapss {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "anticaps"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antianticaps on/off"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated the protection anticaps"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated the protection anticaps"
return 0
}
}

#Comand .adduser <nume> <host> <nivel>

proc pub:adduser {nick host hand chan arg} {
global botnick user edu
set name [lindex [split $arg] 0]
set host [lindex $arg 1]
set level [lindex $arg 2]
set hosts [finduser $host]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$arg == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)adduser <name> <host> <level> ( op or voice )" 
return 0
}

if {$host == $hosts} {
putquick "NOTICE $nick :$host is allready in my memory"
return 0 
}

if {[validuser $name]} {
putquick "NOTICE $nick :$name is allready in my memory"
return 0
} 

if {([regexp -nocase -- {(#[0-9]+|op|voice)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
    switch $access {
op {
set flags "-|olOa"
adduser $name $host
chattr $name -|-qolSOAMVga $chan
chattr $name $flags $chan 
setuser $name XTRA LASTMODIFBY $hand
putquick "NOTICE $nick :Added $name with host $host"
puthelp "NOTICE $nick :$user has op access on $chan with autoop"
}

voice { 
set flags "-|olVg"
adduser $name $host
chattr $name -|-qolSOAMVga $chan
chattr $name $flags $chan 
setuser $name XTRA LASTMODIFBY $hand
putquick "NOTICE $nick :Added $name with host $host"
puthelp "NOTICE $nick :$user has op access on $chan with autovoice"
}
}
}
}

#vers command


proc pub:vers {nick host hand chan arg} {
global botnick edu
set ::verschan $chan
set ::versnick $nick
set why [lindex [split $arg] 0]
if {$why == ""} { puthelp "Please use : $edu(cmdchar)vers <nick>"
return 0
}
putserv "PRIVMSG $why :\001VERSION\001"

}


proc ctcpvers {nickname hostname handle dest key text} {
set text [split $text]
set chan $::verschan
set nick $::versnick
putquick "NOTICE $::versnick :4$nickname has version : 12$text"
}

#Comand .whois <nick>

proc pub:whois {nick host hand chan arg} {
global botnick edu
set ::wnick $nick
set who [lindex [split $arg] 0]
if {$who == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)whois <nick>"
return 0
}
putquick "WHOIS $who $who"
bind RAW - 311 winfo
bind RAW - 319 wchannels
}

proc winfo { from keyword arguments } {
 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]

putquick "NOTICE $::wnick :4Informations about $nickname :4host - 12*!*$ident@$host * $realname"

unbind RAW - 311 winfo
if {$arguments == ""} { puthelp "NOTICE $nick :There is no such $nickname"
return 0
}
}

proc wchannels { from keyword arguments } {
set nick $::wnick
set channels [string range [join [lrange $arguments 2 end]] 1 end]
putquick "NOTICE $::wnick :4On channels : 12$channels"

unbind RAW - 319 wchannels

}

#Comand save



proc msg:saves {nick host hand arg} {
global botnick
putquick "PRIVMSG $nick :Saving files.."
save
}

#broadcast command

proc broadcast {nick host hand chan arg} {
global edu
set message [lrange $arg 0 end]
if {$message == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)broadcast <message>"
return 0
}
foreach chans [channels] {
putquick "PRIVMSG $chans :(broadcast) $message"
}
}

#Comand .act

proc act {nick host hand chan arg} {
global edu
set action [lrange $arg 0 end]
if {$action == ""} { puthelp "NOTICE $nick :Please use $edu(cmdchar)act <message>"
return 0
}
putquick "PRIVMSG $chan :\001ACTION $action\001"
}

#Module Count



proc count {nick host hand chan arg} {
global edu
set why [lindex $arg 0]
if {$why == ""} { puthelp "NOTICE $nick :Please use $edu(cmdchar)count on / off / display / reset"
return 0
}

if { [channel get $chan count] } { set countstats "on" } else { set countstats "off"}
if {($countstats == "on") && ($why == "on")} { puthelp "NOTICE $nick :Count for $chan is allready activated"
return 0
}
if {($countstats == "off") && ($why == "off")} { puthelp "NOTICE $nick :Count for $chan is allready deactivated"
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
puthelp "NOTICE $nick :I activated count on $chan"
}

off {
channel set $chan -count
puthelp "NOTICE $nick :I deactivated count on $chan"
}

display {
set stats [channel get $chan countnumber]
puthelp "PRIVMSG $chan :count for $chan is $stats visitators"
}

reset {
channel set $chan countnumber 0
puthelp "NOTICE $nick :Reset the count for $chan"

}
} 
} else { puthelp "NOTICE $nick :Please use $edu(cmdchar)count on / off / display / reset"
return 0
} 
}


proc counter {nick host hand chan} {
global botnick edu

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 countmessage [string map [array get replace] $edu(countmsg)]
putquick "NOTICE $nick :$countmessage"
}
}

#Greet & LEave


proc leaving {nick host hand chan arg} {
global botnick edu
set why [lindex $arg 0]
set message [lrange $arg 1 end]
if {$why == ""} {puthelp "NOTICE $nick :Use $edu(cmdchar)leave <set> | <on> | <off> | <display> | <status>"
return 0
}
if { [channel get $chan leave] } { set leavez "on" } else { set leavez "off"}

if {([regexp -nocase -- {(#[0-9]+|on|off|status|set|display)} $why tmp leave]) && (![regexp -nocase -- {\S#} $why])} {
    switch $leave {
 on {
if {($leavez == "on") && ($why == "on")} { puthelp "NOTICE $nick :Leave is allready activated"
return 0
}
set leavetext [open logs/leave($chan).txt w]
puts $leavetext ""
close $leavetext
channel set $chan +leave
puthelp "NOTICE $nick :I activated leave on $chan"
}

off {
if {($leavez == "off") && ($why == "off")} { puthelp "NOTICE $nick :Leave is allready deactivated"
return 0
}

channel set $chan -leave
puthelp "NOTICE $nick :I deactivated LEAVE on $chan"
 }

status {

if {[channel get $chan leave]} { set status "ACTIVATED" } else { set status "DEACTIVATED" }
puthelp "NOTICE $nick :Leave Module is :$status"

}
set {
 if {$message == ""} { puthelp "NOTICE $nick :Please use $edu(cmdchar)leave set <message>"
return 0
}
set leavetext [open logs/leave($chan).txt w]
puts $leavetext "$message"
close $leavetext
puthelp "NOTICE $nick :Set LEAVE :$message"
}

display {
set leavetext [open logs/leave($chan).txt r]
set leavetxt "[gets $leavetext]"
catch {close $leavetxt}
if {$leavetxt == ""} {puthelp "NOTICE $nick :$chan doesnt have a LEAVE SET"
return 0
}
puthelp "NOTICE $nick :Leave for $chan is :$leavetxt"
}
}
}
}


proc leavepart {nick host hand chan args} {
global botnick edu
if {[isbotnick $nick]} { return 0 }
if {[channel get $chan leave]} {
set leavetext [open logs/leave($chan).txt r]
set leavetxt "[gets $leavetext]"
catch {close $leavetxt}
set replace(%nick%) $nick
set replace(%chan%) $chan
set leavep [string map [array get replace] $leavetxt]
if {$leavetxt == "" } { return 0 }
putquick "$edu(leavestatus) $nick :$leavep"

}
}


 
proc greeting {nick host hand chan arg} {
global botnick edu
set why [lindex $arg 0]
set message [lrange $arg 1 end]
if {$why == ""} {puthelp "NOTICE $nick :Use $edu(cmdchar)greet <set> | <on> | <off> | <display> | <status>"
return 0
}
if { [channel get $chan greet] } { set greetz "on" } else { set greetz "off"}

if {([regexp -nocase -- {(#[0-9]+|on|off|status|set|display)} $why tmp leave]) && (![regexp -nocase -- {\S#} $why])} {
    switch $leave {
 on {
if {($greetz == "on") && ($why == "on")} { puthelp "NOTICE $nick :Greet is allready activated"
return 0
}
set greettext [open logs/greet($chan).txt w]
puts $greettext "$message"
close $greettext

channel set $chan +greet
puthelp "NOTICE $nick :I activated GREET on $chan"
}

off {
if {($greetz == "off") && ($why == "off")} { puthelp "NOTICE $nick :Greet is allready deactivated"
return 0
}

channel set $chan -greet
puthelp "NOTICE $nick :I deactivated GREET on $chan"
 }

status {

if {[channel get $chan greet]} { set status "ACTIVATED" } else { set status "DEACTIVATED" }
puthelp "NOTICE $nick :GREET Module is :$status"

}
set {
 if {$message == ""} { puthelp "NOTICE $nick :Use .greet set <message>"

return 0
}
set greettext [open logs/greet($chan).txt w]
puts $greettext "$message"
close $greettext
puthelp "NOTICE $nick :Set Greet :$message"
}

display {
set greettext [open logs/greet($chan).txt r]
set greettxt "[gets $greettext]"
catch {close $greettxt}
if {$greettxt == ""} {puthelp "NOTICE $nick :$chan doesnt have a greet yea"
return 0
}
puthelp "NOTICE $nick :Greet for $chan is :$greettxt"
}
}
}
}

proc joinq {nick host hand chan args} {
global botnick edu
if {[isbotnick $nick]} { return 0 }
if {[channel get $chan greet]} {
set greettext [open logs/greet($chan).txt r]
set greettxt "[gets $greettext]"
catch {close $greettxt}
set replace(%nick%) $nick
set replace(%chan%) $chan
set greetp [string map [array get replace] $greettxt]
if {$greettxt == "" } { return 0 }
putquick "$edu(greetstatus) $nick :$greetp"

}
}

#Autovoice

proc autovoices {nick host hand chan arg} {
global edu
set why [lindex $arg 0]
if {$why == ""} { puthelp "NOTICE $nick :Use $edu(cmdchar)autovoice <on>/<off>"
return 0 
}
if {$why == "on"} { 
channel set $chan +autovoice
puthelp "NOTICE $nick :I activated AUTOVOICE on $chan"
}
if {$why == "off"} {
channel set $chan -autovoice
puthelp "NOTICE $nick :I deactivated AUTOVOICE on $chan"
}
}

proc autovjoin {nick host hand chan} {
global edu
if {[channel get $chan autovoice]} {
putquick "MODE $chan +v $nick"
}
}

proc autoops {nick host hand chan arg} {
global edu
set why [lindex $arg 0]
if {$why == ""} { puthelp "NOTICE $nick :Use $edu(cmdchar)autoop <on>/<off>"
return 0
}
if {$why == "on"} { 
channel set $chan +autoop
puthelp "NOTICE $nick :I activated AUTOOP on $chan"
}
if {$why == "off"} {
channel set $chan -autoop
puthelp "NOTICE $nick :I deactivated AUTOOP on $chan"
}
}

proc autoojoin {nick host hand chan} {
global edu
if {[channel get $chan autoop]} {
putquick "MODE $chan +o $nick"
}
}

#Comand .gb <nick> / <host> <time> <reason>

proc bgs {nick host hand chan arg} {
global botnick edu
set gbnick [lindex [split $arg] 0]
set time [lindex $arg 1]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 2 end]"
set handle [nick2hand $gbnick]
set flags "nm|MASVO"
set list [userlist $flags]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|MASVO $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) (GLOBAL) You are BANNED"
 } else { set reason1 "($hand) (GLOBAL) $reason" }
if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nick :I cant ban myself !"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $gbnick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $gbnick $chan] "@"] 1] 
}
if {$gbnick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)gb <nick> / <host> <time hours> <reason>"
return 0
    	}
if {$time == ""} {
puthelp "NOTICE $nick :Please use : $edu(cmdchar)gb <nick> / <host> <time hours> <reason>"
return 0
}
newban $mask $hand $reason1 [expr $time * 60]
puthelp "NOTICE $nick :Added global ban on :$mask for time :$time hours" 
}

#X module


proc black_login {my} {
     global botnick edu
        putquick "PRIVMSG X@channels.undernet.org :login $edu(username) $edu(password)"   
        putquick "MODE $botnick :$edu(xmod)"
        
}

#Comand .stick

proc pub:stick {nick host hand chan arg} {
global botnick edu kcount
set snick [lindex [split $arg] 0]
set time [lindex $arg 1]
set mask [lindex [split $arg] 0]
set reason "[lrange $arg 2 end]"
set handle [nick2hand $snick]
set flags "nm|MASVO"
set list [userlist $flags $chan]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
foreach user $list {
 set hosts [getuser $user hosts]
foreach host $hosts {
if {[string match $mask $host]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
}
}
if {[matchattr $handle nm|AMOVS $chan]} {
 puthelp "NOTICE $nick :I can`t execute because the user has ACCESS"
 return 0
}
if {$reason == ""} {set reason1 "($hand) (sticky) You are BANNED"
 } else { set reason1 "($hand) (sticky) $reason" }
if {[isbotnick $snick]} {
   	 	putquick "NOTICE $nick :I cant ban myself !"
    		return 0
         }
if {![botisop $chan]} {
    		putquick "NOTICE $nick :Error. I dont have OP"
    		return 0
}
if {$mask == "*!*@*"} {
 return 0
}
if {[onchan $snick $chan]} {
    		set mask *!*@[lindex [split [getchanhost $snick $chan] "@"] 1] 
}
if {$snick == ""} {
      	putquick "NOTICE $nick :Please use : $edu(cmdchar)stick <nick> / <host> <time hours> <reason>"
return 0
    	} 
if {$time == ""} {
putquick "NOTICE $nick :Please use : $edu(cmdchar)stick <nick> / <host> <time hours> <reason>"
return 0
    	} 
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA stick($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA stick($chan) $counts
putquick "PRIVMSG X :ban $chan $mask $edu(stickxtime) $edu(stickxlevel) $creason"
newchanban $chan $mask $hand $creason [expr $time * 60] sticky
putquick "MODE $chan +b $mask"
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$reason1 (Nr. Kick 12$kcount)"
set countz [getuser $hand XTRA stick($chan)]
if {$countz == ""} { set countz 0 }
set counts [expr $countz + 1]
setuser $hand XTRA stick($chan) $counts

newchanban $chan $mask $hand $creason [expr $edu(btime) * 60] sticky
putquick "MODE $chan +b $mask"
}
}

#Comanda .ping


proc replyp {nick uhost hand dest key args} {
set pingreply [lindex $arg 0]
if {[regexp -- {^-?[0-9]+$} $pingreply]} {
puthelp "NOTICE $nick :Pingul tau este de [expr {abs([expr [expr {abs([clock clicks -milliseconds])} - $pingreply] / 1000.000])}] secunde"
}
}


proc pings {nick host hand chan args} {
global edu
putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
return 1
}

#longtxt protection



proc longtext {nick uhost hand chan txt} {
global edu botnick
set handle [nick2hand $nick]
if {[channel get $chan antilongtext]} {
if {[botisop $chan]} { return 0 }
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string length $txt] >= $edu(longchar)} {
set banmask "*!*@[lindex [split $uhost @] 1]"
if {$edu(xban) == "1"} {

set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(longmsg) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(longmode)" -next ;utimer $edu(longtimemode) [list putquick "MODE $chan -$edu(longmode)"]
putquick "PRIVMSG X :ban $chan $banmask $edu(xlongbantime) $edu(longxlevel) $creason"
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(longbantime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(longmsg) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(longmode)" -next ;utimer $edu(longtimemode) [list putquick "MODE $chan -$edu(longmode)"]
putquick "KICK $chan $nick :$creason"
newchanban $chan $banmask $botnick $creason [expr $edu(longbantime)]
}
}
}
}

proc antilongtext {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag antilongtext
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antilongtext <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated antilongtext"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated antilongtext"
return 0
}
}

#Bad Quit Part

set edu(badcolors) {

"*\x03*"
"*\037*"
"*\002*"

}



proc part {nick host hand chan arg} {
global botnick edu
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $host @] 1]"
if {[channel get $chan badquitpart]} {
foreach word $edu(badquitpartwords) {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {[string match -nocase $word $arg]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(badquitpartxtime) $edu(badquitpartxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartreason) (Nr. Kick 12$kcount)"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
}
}
}
}
}

proc sign {nick host hand chan arg} {
global botnick edu
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $host @] 1]"
if {[channel get $chan badquitpart]} {
foreach word $edu(badquitpartwords) {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 } 
if {[string match -nocase $word $arg]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(badquitpartxtime) $edu(badquitpartxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartreason) (Nr. Kick 12$kcount)"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
}
}
}
}
}

proc partcolours {nick host hand chan arg} {
global botnick edu
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $host @] 1]"
if {[channel get $chan badquitpart]} {
foreach color $edu(badcolors) {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 }
if {($edu(badquitpartcolour) == "1") && [string match -nocase $color $arg]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartcolorreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(badquitpartxtime) $edu(badquitpartxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartcolorreason) (Nr. Kick 12$kcount)"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
}
}
}
}
}

proc signcolours {nick host hand chan arg} {
global botnick edu
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $host @] 1]"
if {[channel get $chan badquitpart]} {
foreach color $edu(badcolors) {
if {[matchattr $handle nm|OVSMA $chan]} { return 0 }
if {[isvoice $nick $chan]} { return 0 }
if {[isop $nick $chan]} { return 0 } 
if {($edu(badquitpartcolour) == "1") && [string match -nocase $color $arg]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartcolorreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $chan $banmask $edu(badquitpartxtime) $edu(badquitpartxlevel) $creason"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
} else {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(badquitpartcolorreason) (Nr. Kick 12$kcount)"
newchanban $chan $banmask $botnick $creason [expr $edu(badquitparttime)]
}
}
}
}
}

proc antibadquitpart {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "badquitpart"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antilongtext <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated antibadquitpart"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I activated antibadquitpart"
return 0
}
}

#Anti Join-Part


proc joinparts {nick host hand chan arg} {
global edu botnick
set handle [nick2hand $nick]
set banmask "*!*@[lindex [split $host @] 1]"
if {[matchattr $handle nm|OVSMA $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]-$edu(joinparttime)}]} {
if {$edu(xban) == "1"} {
set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(joinpartmsg) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(joinpartmode)" -next ;utimer $edu(joinparttimemode) [list putquick "MODE $chan -$edu(joinpartmode)"]
putquick "PRIVMSG X :ban $chan $banmask $edu(joinpartxtime) $edu(joinpartxlevel) $creason"
putquick "MODE $chan +b $banmask"
newchanban $chan $banmask $botnick $creason [expr $edu(joinpartbantime)]

} else {

set getcount [channel get $chan kickcount]
set kcount [expr $getcount +1]
channel set $chan kickcount $kcount
set creason "$edu(joinpartmsg) (Nr. Kick 12$kcount)"
putquick "MODE $chan +$edu(joinpartmode)" -next ;utimer $edu(joinparttimemode) [list putquick "MODE $chan -$edu(joinpartmode)"]
putquick "MODE $chan +b $banmask"
newchanban $chan $banmask $botnick $creason [expr $edu(joinpartbantime)]
}
}
}
}

proc antijoinpart {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "antijoinpart"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use : $edu(cmdchar)antijoinpart <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated antijoinpart"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated protectia antijoinpart"
return 0
}
}

#Bad Fullname


proc badrealnames {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [channel get $channel badfullname] } {
if {![botisop $channel]} { return 0 }
if {[onchan $nickname $channel]} {
putquick "WHOIS $nickname $nickname"
bind RAW - 311 badfull
}
}
}

proc badfull { from keyword arguments } {
global botnick edu
set channel $::cchan
set nickname $::nnick
set host $::hhost
set handle "[nick2hand $nickname]"
set fullname [string range [join [lrange $arguments 5 end]] 1 end]
if {[onchan $nickname $channel]} {
    		set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] 
	}
  foreach realname [string tolower $edu(badfwords)] {
if {[string match $realname [string tolower $fullname]]} {
if {[matchattr $handle nm|OSMAV $channel]} { return 0 }
if {$edu(xban) == "1"} {
set getcount [channel get $channel kickcount]
set kcount [expr $getcount +1]
channel set $channel kickcount $kcount
set creason "$edu(badfreason) (Nr. Kick 12$kcount)"
putquick "PRIVMSG X :ban $channel $banmask $edu(badfxtime) $edu(badfxlevel) $creason"
newchanban $channel $banmask $botnick $creason [expr $edu(badfbantime)]
} else {
set getcount [channel get $channel kickcount]
set kcount [expr $getcount +1]
channel set $channel kickcount $kcount
set creason "$edu(badfreason) (Nr. Kick 12$kcount)"
newchanban $channel $banmask $botnick $creason [expr $edu(badfbantime)]
}
}
}
unbind RAW - 311 badfull
}

proc antibadrealname {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set flag "badfullname"
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :You are suspended you cant use this command !"
return 0
}
if {$type == "" } {puthelp "NOTICE $nick :Please use :$edu(cmdchar)antijoinpart <on/off>"
return 0
}
if {$type == "on"} { channel set $chan +$flag ; putquick "NOTICE $nick :I activated antibadrealname"
return 0
}
if {$type == "off"} { channel set $chan -$flag ; putquick "NOTICE $nick :I deactivated antibadrealname"
return 0
}
}

#Anunt :D




proc pub:anunt {nick host hand chan arg} {
global edu
set type [lindex $arg 0]
set anunt [lrange $arg 1 end]
set who [lindex $arg 1]
set time [lindex $arg 2]
if {[matchattr $hand -|q $chan]} { puthelp "NOTICE $nick :Esti suspendat, nu pot folosi aceasta comanda !"
return 0
}
if {$type == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)anunt <on> | <off> | <set> | <display>" 
return 0
}
if { [channel get $chan anunts] } { set anounce "on" } else { set anounce "off"}

if {([regexp -nocase -- {(#[0-9]+|on|off|set|display)} $type tmp anunte]) && (![regexp -nocase -- {\S#} $type])} {
    switch $anunte {

on {
if {($anounce == "on") && ($type == "on")} { puthelp "NOTICE $nick :Anunt is allready activated"
return 0
}
set anunts [open logs/anunt($chan).txt w]
puts $anunts ""
close $anunts

channel set $chan +anunts
puthelp "NOTICE $nick :I activated Anunt for $chan"
}

off {
if {($anounce == "off") && ($type == "off")} { puthelp "NOTICE $nick :Anunt is allready deactivated"
return 0
}
channel set $chan -anunts
puthelp "NOTICE $nick :I deactivated anunt for $chan"
}

display {
set anunts [open logs/anunt($chan).txt r]
set anuntz "[gets $anunts]"
catch {close $anunts}
if {$anuntz == ""} {puthelp "NOTICE $nick :$chan doesent have any anunt for $chan"
return 0
}
puthelp "NOTICE $nick :Anunt for $chan is :$anuntz"

}

set {
if {$anunt == ""} { puthelp "NOTICE $nick :Please use : $edu(cmdchar)anunt set <anuntul tau>"
return 0
}
set anunts [open logs/anunt($chan).txt w]
puts $anunts "$anunt"
close $anunts
puthelp "NOTICE $nick :Set anunt for $chan :$anunt"
}
}
}
}

if {![info exists anuntwork_running]} { 
timer $edu(anunttime) anuntwork
set anuntwork_running 1
}

proc anuntwork {} {
global edu
foreach chan [channels] {
if { [channel get $chan anunts]} {
set anunts [open logs/anunt($chan).txt r]
set anuntz "[gets $anunts]"
catch {close $anunts}
putquick "PRIVMSG $chan :$anuntz"
putlog "afisez anuntul.."
}
}
timer $edu(anunttime) anuntwork
return 1

}


#######################################################################################################################################################################This is the REAL END##########################
#######################################################################


putlog "BlackTools version $vers (English Version) by $Autor (ALL Rights Reserved)"