|
|
@@ -1,14637 +0,0 @@
|
|
|
-###########################################################################
|
|
|
-# ® BLaCkShaDoW ProductionS ® #
|
|
|
-# #
|
|
|
-# Presents #
|
|
|
-
|
|
|
-#### # #### ##### # # ##### ##### #### # #####
|
|
|
-# # # # # # # # # # # # # # #
|
|
|
-# # # # # # # # # # # # # # #
|
|
|
-## # # ###### # ## # # # # # # #####
|
|
|
-# # # # # # # # # # # # # # #
|
|
|
-# # # # # # # # # # # # # # #
|
|
|
-#### ##### # # ##### # # # ##### #### ##### #####
|
|
|
-
|
|
|
-# #
|
|
|
-# #
|
|
|
-# ##### ##### #
|
|
|
-# # # #
|
|
|
-# # # #
|
|
|
-# #### ##### #
|
|
|
-# # # #
|
|
|
-# # # #
|
|
|
-# ##### # ##### #
|
|
|
-# #
|
|
|
-# #
|
|
|
-# THE NEXT GENERATION TCL #
|
|
|
-# #
|
|
|
-# - #TCL-HELP @ UNDERNET - WwW.TclScripts.Net - #
|
|
|
-###########################################################################
|
|
|
-#A Next Generation Channel Control Script that contains a lot of commands #
|
|
|
-#modules, and protections that make`s your life easy for you and for your #
|
|
|
-# Eggdrop. #
|
|
|
-###########################################################################
|
|
|
-# #
|
|
|
-# Many thanks for without this script wouldn't got this far to: #
|
|
|
-# #
|
|
|
-# Time2Go@Oradea(#Bihor Admin) #
|
|
|
-# #
|
|
|
-# Offcourse i thanks all the users who participate with ideas, #
|
|
|
-# opinions, which took the script to this version. #
|
|
|
-# #
|
|
|
-# cola @ #Tcl-Help btw @ #ialomita #
|
|
|
-# #
|
|
|
-# Cacique @ #mures bandyt @ #bandyt #
|
|
|
-# #
|
|
|
-###########################################################################
|
|
|
-#
|
|
|
-#Please specify the folder name that contains the BlackTools.tcl and the lang
|
|
|
-#folder (Default "scripts")
|
|
|
-#
|
|
|
-set black(dirname) "scripts"
|
|
|
-#
|
|
|
-###########################################################################
|
|
|
-#First Char ( "- . !" ) - ( "none" ) (for no char)
|
|
|
-#
|
|
|
-set black(cmdchar) ". !"
|
|
|
-#
|
|
|
-###########################################################################
|
|
|
-
|
|
|
-#-------------------------- Default Language -----------------------------#
|
|
|
-
|
|
|
-#Default language ( RO / EN )
|
|
|
-
|
|
|
-set black(default_lang) "RO"
|
|
|
-
|
|
|
-#-------------------------------------------------------------------------#
|
|
|
-
|
|
|
-#----------------------------- Max Handle --------------------------------#
|
|
|
-
|
|
|
-#Max Handle ( 1 - for handle < 9 ; 0 - for handle > 9 )
|
|
|
-
|
|
|
-set black(maxhand) "0"
|
|
|
-
|
|
|
-#-------------------------------------------------------------------------#
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-# #
|
|
|
-# Command Help - h - Command Help #
|
|
|
-# #
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#---------------------------------------------------------------------#
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-# Chanserv Name
|
|
|
-#
|
|
|
-set black(chanserv) "X"
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#---------------------------------------------------------------------#
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-# #
|
|
|
-#---------------------------------------------------------------------#
|
|
|
-# #
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#------------------------- Chanserv Login ----------------------------#
|
|
|
-
|
|
|
-#Login On Connect ( 1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(logonconect) "1"
|
|
|
-
|
|
|
-#------------------------- Chanserv User ----------------------------##
|
|
|
-
|
|
|
-set black(username) "username"
|
|
|
-
|
|
|
-#------------------------- Chanserv Pass ----------------------------##
|
|
|
-
|
|
|
-set black(password) "password"
|
|
|
-
|
|
|
-#------------------------- Login Command ----------------------------##
|
|
|
-
|
|
|
-set black(login) "PRIVMSG x@channels.undernet.org :login $black(username) $black(password)"
|
|
|
-
|
|
|
-
|
|
|
-#--------------------------- Login Mode ------------------------------##
|
|
|
-
|
|
|
-set black(xmod) "+x"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-# #
|
|
|
-#---------------------------------------------------------------------#
|
|
|
-# #
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#---------------------------------------------------------------------#
|
|
|
-
|
|
|
-################################# add #################################
|
|
|
-#
|
|
|
-# add <level> <user> (level : manager,admin,senior,op voice)
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Default Hostname for - add <user> command -
|
|
|
-
|
|
|
-set black(hostadd) "*!*@%user%.users.undernet.org"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-#
|
|
|
-# Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Op Protect (1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(vprotect) "1"
|
|
|
-
|
|
|
-
|
|
|
-#VOICE Protect (1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(oprotect) "1"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Antipub Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antipubbantime) "2880"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(antipubword) {
|
|
|
-"*#*"
|
|
|
- "*www.*"
|
|
|
- "*http://*"
|
|
|
- "*.ro"
|
|
|
- "*.com"
|
|
|
- "*/server*"
|
|
|
-}
|
|
|
-
|
|
|
-#Ban-Mode
|
|
|
-
|
|
|
-set black(antipubmode) "m"
|
|
|
-
|
|
|
-#Ban-mode Time (Seconds)
|
|
|
-
|
|
|
-set black(antipubsecunde) "5"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiNotice Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antinoticebantime) "2880"
|
|
|
-
|
|
|
-#Ban-Mode
|
|
|
-
|
|
|
-set black(antinoticemode) "mr"
|
|
|
-
|
|
|
-#Ban-mode Time (Seconds)
|
|
|
-
|
|
|
-set black(antinoticesecunde) "7"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiCTCP Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antictcpbantime) "2880"
|
|
|
-
|
|
|
-#Ban-Mode
|
|
|
-
|
|
|
-set black(antictcpmode) "mr"
|
|
|
-
|
|
|
-#Ban-mode Time (Seconds)
|
|
|
-
|
|
|
-set black(antictcpsecunde) "8"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiBadWord Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antibadwordbantime) "360"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(antibadword) {
|
|
|
-"*pula*"
|
|
|
- "*pizda*"
|
|
|
- "*muie*"
|
|
|
- "*sugi"
|
|
|
- "mwie"
|
|
|
- "*pwla*"
|
|
|
- "*muisti*"
|
|
|
- "*fut*"
|
|
|
- "*fwt*"
|
|
|
- "tarfa"
|
|
|
-
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiLongText Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Char length
|
|
|
-
|
|
|
-set black(longchar) "400"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(longbantime) "30"
|
|
|
-
|
|
|
-#Ban-Mode
|
|
|
-
|
|
|
-set black(longmode) "mr"
|
|
|
-
|
|
|
-#Ban-mode Time (Seconds)
|
|
|
-
|
|
|
-set black(longtimemode) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiBAdQuitPart Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(badquitparttime) "60"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(badquitpartwords) {
|
|
|
-"*www.*"
|
|
|
-"*http://*"
|
|
|
-"*#*"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-#Ban on COLORS (1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(badquitpartcolour) "1"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Protectia AntiJoinPart
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(joinpartbantime) "30"
|
|
|
-
|
|
|
-#Stay-Time
|
|
|
-
|
|
|
-set black(joinparttime) "2"
|
|
|
-
|
|
|
-#Ban-Mode
|
|
|
-
|
|
|
-set black(joinpartmode) "mr"
|
|
|
-
|
|
|
-#Ban-Mode Time (Seconds)
|
|
|
-
|
|
|
-set black(joinparttimemode) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiSpam Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(spamban) "2880"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(spamword) {
|
|
|
-"*#*"
|
|
|
- "*www.*"
|
|
|
- "*http://*"
|
|
|
-}
|
|
|
-
|
|
|
-#Cycle-Time
|
|
|
-
|
|
|
-set black(spamcycle) "30"
|
|
|
-
|
|
|
-#ON-JOIN Message ( 1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(spamreq) "1"
|
|
|
-
|
|
|
-#Part Message
|
|
|
-
|
|
|
-set black(spammsgcycle) "Checking for spam.."
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiRepeat Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Repeat Setting (number repeats:seconds)
|
|
|
-
|
|
|
-set black(repeats) "3:5"
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(antirepeattype) "1"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antirepeatbantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Anticolor Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(anticolortype) "1"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(anticolorbantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiBold Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(antiboldtype) "1"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antiboldbantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiUnderline Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(antiunderlinetype) "1"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antiunderlinebantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiCaps Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(anticapstype) "1"
|
|
|
-
|
|
|
-#Caps Char Length
|
|
|
-
|
|
|
-set black(anticapscount) "40"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(anticapsbantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# BadFullName Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(badfbantime) "60"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(badfwords) {
|
|
|
-"*www.*"
|
|
|
-"*#*"
|
|
|
-"*http://*"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# BadNick Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(badnickbantime) "60"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(badnickwords) {
|
|
|
-
|
|
|
-"*pula*"
|
|
|
-"*muie *"
|
|
|
-"pwla*"
|
|
|
-"pizda*"
|
|
|
-"laba*"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# BadIdent Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(badidentbantime) "60"
|
|
|
-
|
|
|
-#Words
|
|
|
-
|
|
|
-set black(badidentwords) {
|
|
|
-
|
|
|
-"*pula*"
|
|
|
-"*muie *"
|
|
|
-"pwla*"
|
|
|
-"pizda*"
|
|
|
-"laba*"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiJoinFlood Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Join-Mode
|
|
|
-
|
|
|
-set black(modes) "mir"
|
|
|
-
|
|
|
-
|
|
|
-#Join-Mode Time (Seconds)
|
|
|
-
|
|
|
-set black(nomodetime) "15"
|
|
|
-
|
|
|
-
|
|
|
-#Op ALERT (1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(fjoinhow) "1"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiChanFlood Protection
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Type (1 - KICK -> BAN ; 0 - BAN )
|
|
|
-
|
|
|
-set black(antifloodchantype) "1"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(antifloodchanbantime) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Module
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Topic refresh
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Refresh Time
|
|
|
-
|
|
|
-set black(topic_time) "60"
|
|
|
-
|
|
|
-#Standard Topic
|
|
|
-
|
|
|
-set black(topics) "Reloading topic..."
|
|
|
-
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# Count
|
|
|
-#
|
|
|
-# count <on> / <off> / <display> / <reset>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(counthow) "1"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# BadChan
|
|
|
-#
|
|
|
-# badchan | <on> | <off> | add | del | | list |
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(badcbantime) "360"
|
|
|
-
|
|
|
-#User Message ( 1 - ON ; 0 - OFF)
|
|
|
-
|
|
|
-set black(badcwhyreason) "1"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# Anunt
|
|
|
-#
|
|
|
-# Anunt <on> | <off> | <add> | <list> | <del>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Anunt Time ( 60 min max )
|
|
|
-
|
|
|
-set black(anunttime) "45"
|
|
|
-
|
|
|
-#MSg Type ( 1 - ACTION ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(anunthow) "0"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# AutoBroadcast
|
|
|
-#
|
|
|
-# bt <on> | <off> | <add> | <list> | <del>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#BRoadcast Time
|
|
|
-
|
|
|
-set black(bttime) "60"
|
|
|
-
|
|
|
-#MSg Type ( 1 - ACTION ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(bthow) "1"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# CloneScan
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Max Clones
|
|
|
-
|
|
|
-set black(maxclone) "2"
|
|
|
-
|
|
|
-#Ban-Type ( 0 - OP Message ; 1 - Ban )
|
|
|
-
|
|
|
-set black(what) "0"
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(clonebtime) "180"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# AntiBoTidle
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Random Object
|
|
|
-
|
|
|
-set black(noobject) "blacky:P"
|
|
|
-
|
|
|
-#Max Idle
|
|
|
-
|
|
|
-set black(noidlemax) "10"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# Seen
|
|
|
-#
|
|
|
-# seen <host> / <nick>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Flood-Protection (searches : seconds)
|
|
|
-
|
|
|
-set black(seenflood) "4:5"
|
|
|
-
|
|
|
-#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(seenmet) "1"
|
|
|
-
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# Greet
|
|
|
-#
|
|
|
-# greet <on> | <off> | <add> | <list> | <del>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(howgreet) "1"
|
|
|
-
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# Leave
|
|
|
-#
|
|
|
-# leave <on> | <off> | <add> | <list> | <del>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#MSg Type ( 1 - NOTICE ; 0 - PRIVMSG )
|
|
|
-
|
|
|
-set black(howleave) "0"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# idle
|
|
|
-#
|
|
|
-#
|
|
|
-# idle <on> | <off> | voice <on>/<off> | op <on>/<off> | add <nick>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Idle Scan Time
|
|
|
-
|
|
|
-set black(idleinterval) "60"
|
|
|
-
|
|
|
-#Op max idle
|
|
|
-
|
|
|
-set black(idleopmax) "30"
|
|
|
-
|
|
|
-#Voice idle Max
|
|
|
-
|
|
|
-set black(idlevoicemax) "60"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# Private
|
|
|
-#
|
|
|
-#
|
|
|
-# private <on> | <off> | <add> <user> | <list> | del <nume>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(privatebantime) "10"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-#
|
|
|
-# Commands
|
|
|
-#
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# dr <nick> / <host>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(drtime) "20160"
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# bot <nick> / <host>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(bottime) "10160"
|
|
|
-
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# b <nick> / <host>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(btime) "2880"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# n <nick>
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(ntime) "120"
|
|
|
-
|
|
|
-######################################################################
|
|
|
-#
|
|
|
-# id <nick>
|
|
|
-#
|
|
|
-######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(idtime) "120"
|
|
|
-
|
|
|
-
|
|
|
-######################################################################
|
|
|
-#
|
|
|
-# spam <nick> / <host> (pentru spammeri)
|
|
|
-#
|
|
|
-######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(spamtime) "10080"
|
|
|
-
|
|
|
-
|
|
|
-######################################################################
|
|
|
-#
|
|
|
-# k <nick> <reason>
|
|
|
-#
|
|
|
-######################################################################
|
|
|
-
|
|
|
-
|
|
|
-#Access Except ( 1 - ON ; 0 - OFF )
|
|
|
-
|
|
|
-set black(kaccess) "1"
|
|
|
-
|
|
|
-
|
|
|
-#######################################################################
|
|
|
-#
|
|
|
-# bw <nick> / <host> ( bad word)
|
|
|
-#
|
|
|
-#######################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(bwtime) "360"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# stick <nick> / <host> <timp> <motiv>
|
|
|
-#
|
|
|
-########################################################################
|
|
|
-
|
|
|
-#Ban-Time
|
|
|
-
|
|
|
-set black(dfstickbantime) "5040"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# l <seconds>
|
|
|
-#
|
|
|
-########################################################################
|
|
|
-
|
|
|
-#Mode Type
|
|
|
-
|
|
|
-set black(lmode) "m"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-# ul
|
|
|
-#
|
|
|
-########################################################################
|
|
|
-
|
|
|
-#Mode Type
|
|
|
-
|
|
|
-set black(ulmodes) "mir"
|
|
|
-
|
|
|
-########################################################################
|
|
|
-#
|
|
|
-#
|
|
|
-# This is the END !
|
|
|
-#
|
|
|
-#
|
|
|
-########################################################################
|
|
|
-
|
|
|
-
|
|
|
-set black(exceptflags) "nm|HAMOVSo"
|
|
|
-
|
|
|
-setudef flag antipub
|
|
|
-setudef flag antinotice
|
|
|
-setudef flag antictcp
|
|
|
-setudef flag antilongtext
|
|
|
-setudef flag antibadword
|
|
|
-setudef flag antijoinpart
|
|
|
-setudef flag antispam
|
|
|
-setudef flag antirepeat
|
|
|
-setudef flag badquitpart
|
|
|
-setudef flag anticolor
|
|
|
-setudef flag antibold
|
|
|
-setudef flag antiunderline
|
|
|
-setudef flag anticaps
|
|
|
-setudef flag badfullname
|
|
|
-setudef flag badnick
|
|
|
-setudef flag badident
|
|
|
-setudef flag antijoinflood
|
|
|
-setudef flag antichanflood
|
|
|
-setudef flag xtools
|
|
|
-setudef flag topicrefresh
|
|
|
-setudef flag count
|
|
|
-setudef flag antibadchan
|
|
|
-setudef flag anunt
|
|
|
-setudef flag limit
|
|
|
-setudef flag refresh
|
|
|
-setudef flag clonescan
|
|
|
-setudef flag seen
|
|
|
-setudef flag antidle
|
|
|
-setudef flag antividle
|
|
|
-setudef flag antididle
|
|
|
-setudef flag autoop
|
|
|
-setudef flag autovoice
|
|
|
-setudef flag leave
|
|
|
-setudef flag chanreport
|
|
|
-setudef flag topwords
|
|
|
-setudef flag xban
|
|
|
-setudef flag protectop
|
|
|
-setudef flag protectvoice
|
|
|
-setudef flag dontop
|
|
|
-setudef flag dontdeop
|
|
|
-setudef flag private
|
|
|
-setudef flag silent
|
|
|
-setudef flag showtime
|
|
|
-setudef flag showhandle
|
|
|
-setudef flag showcount
|
|
|
-
|
|
|
-setudef int idlevoicemax
|
|
|
-setudef int idleopmax
|
|
|
-setudef int countnumber
|
|
|
-setudef int kickcount
|
|
|
-setudef int xbantime
|
|
|
-setudef int xbanlevel
|
|
|
-setudef int blacklimit
|
|
|
-setudef str backchan
|
|
|
-
|
|
|
-
|
|
|
-#Motive / Bantime
|
|
|
-
|
|
|
-#Protection
|
|
|
-
|
|
|
-setudef str antipub-reason
|
|
|
-setudef int antipub-bantime
|
|
|
-setudef str antinotice-reason
|
|
|
-setudef int antinotice-bantime
|
|
|
-setudef str antictcp-reason
|
|
|
-setudef int antictcp-bantime
|
|
|
-setudef str antibadword-reason
|
|
|
-setudef int antibadword-bantime
|
|
|
-setudef str antilongtext-reason
|
|
|
-setudef int antilongtext-bantime
|
|
|
-setudef str antibadquitpart-reason
|
|
|
-setudef int antibadquitpart-bantime
|
|
|
-setudef str antijoinpart-reason
|
|
|
-setudef int antijoinpart-bantime
|
|
|
-setudef str antispam-reason
|
|
|
-setudef int antispam-bantime
|
|
|
-setudef str antispam-message
|
|
|
-setudef str antirepeat-reason
|
|
|
-setudef int antirepeat-bantime
|
|
|
-setudef str anticolor-reason
|
|
|
-setudef int anticolor-bantime
|
|
|
-setudef str antibold-reason
|
|
|
-setudef int antibold-bantime
|
|
|
-setudef str antiunderline-reason
|
|
|
-setudef int antiunderline-bantime
|
|
|
-setudef str anticaps-reason
|
|
|
-setudef int anticaps-bantime
|
|
|
-setudef str badfullname-reason
|
|
|
-setudef int badfullname-bantime
|
|
|
-setudef str badnick-reason
|
|
|
-setudef int badnick-bantime
|
|
|
-setudef str badident-reason
|
|
|
-setudef int badident-bantime
|
|
|
-setudef str antichanflood-reason
|
|
|
-setudef int antichanflood-bantime
|
|
|
-setudef str joinflood
|
|
|
-setudef str chanflood
|
|
|
-setudef int private-bantime
|
|
|
-setudef str private-reason
|
|
|
-setudef int antilongtextmax
|
|
|
-setudef str antirepeat-setting
|
|
|
-
|
|
|
-#commands
|
|
|
-
|
|
|
-setudef str dr-reason
|
|
|
-setudef int dr-bantime
|
|
|
-setudef str n-reason
|
|
|
-setudef int n-bantime
|
|
|
-setudef int b-bantime
|
|
|
-setudef str id-reason
|
|
|
-setudef int id-bantime
|
|
|
-setudef str w-reason
|
|
|
-setudef str spam-reason
|
|
|
-setudef int spam-bantime
|
|
|
-setudef str bw-reason
|
|
|
-setudef int bw-bantime
|
|
|
-setudef int bot-bantime
|
|
|
-setudef str bot-reason
|
|
|
-
|
|
|
-#module
|
|
|
-
|
|
|
-setudef str badchan-reason
|
|
|
-setudef int badchan-bantime
|
|
|
-setudef str count-message
|
|
|
-setudef str lang
|
|
|
-
|
|
|
-if {$black(logonconect) == "1"} {
|
|
|
-bind evnt - init-server loginpublic
|
|
|
-}
|
|
|
-
|
|
|
-bind pubm - * topwordspublic
|
|
|
-bind pubm - * antipub:protect
|
|
|
-bind ctcp - ACTION antipub:protect:me
|
|
|
-bind notc - * antinotice:protect
|
|
|
-bind ctcp - * antictcp:protect
|
|
|
-
|
|
|
-bind pubm - * antibadword:protect
|
|
|
-bind ctcp - ACTION antibadword:protect:me
|
|
|
-bind pubm - * antilongtext:protect
|
|
|
-bind ctcp - ACTION antilongtext:protect:me
|
|
|
-bind part - * antipubpart:protect
|
|
|
-bind sign - * antipubsign:protect
|
|
|
-bind part - * anticolorpart:protect
|
|
|
-bind sign - * anticolorquit:protect
|
|
|
-bind part - * antijoinpart:protect
|
|
|
-bind join - * antispam:protect:msg
|
|
|
-bind msgm - * antispam:protect
|
|
|
-bind time - * antispam:protect:cycle
|
|
|
-bind time - "30 * * * *" clonescanner
|
|
|
-bind time - "* * * * *" limit:timer
|
|
|
-bind pubm - * antirepeat:protect
|
|
|
-bind pubm - * antifloodchan:protect
|
|
|
-bind ctcp - version blackreply
|
|
|
-bind ctcp - ACTION antirepeat:protect:me
|
|
|
-bind ctcp - ACTION antifloodchan:protect:me
|
|
|
-bind pubm - * anticolor:protect
|
|
|
-bind ctcp - ACTION anticolor:protect:me
|
|
|
-bind pubm - * antibold:protect
|
|
|
-bind ctcp - ACTION antibold:protect:me
|
|
|
-bind pubm - * antiunderline:protect
|
|
|
-bind ctcp - ACTION antiunderline:protect:me
|
|
|
-bind pubm - * anticaps:protect
|
|
|
-bind ctcp - ACTION anticaps:protect:me
|
|
|
-bind join - * badfullname:protect:join
|
|
|
-bind join - * badnick:protect:join
|
|
|
-bind join - * badident:protect:join
|
|
|
-bind nick - * badnick:protect:change
|
|
|
-bind mode - "*+b*" protectpublic
|
|
|
-bind join - * joinflood:protect
|
|
|
-bind join - * rebanpublic
|
|
|
-bind need - * toolspublic
|
|
|
-bind join - * countpublic:join
|
|
|
-bind join - * badchanpublic:join
|
|
|
-bind join - * seen:join
|
|
|
-bind part - * seen:part
|
|
|
-bind sign - * seen:sign
|
|
|
-bind kick - * seen:kick
|
|
|
-bind splt - * seen:split
|
|
|
-bind nick - * seen:changenick
|
|
|
-bind join - * greetpublic:join
|
|
|
-bind part - * leavepublic:part
|
|
|
-bind time - * idlewhoispublic
|
|
|
-bind evnt - init-server setaway
|
|
|
-bind join - * autovonjoin
|
|
|
-bind join - * autoponjoin
|
|
|
-bind join - * addopjoin
|
|
|
-bind join - * addvoicejoin
|
|
|
-bind join - * private:module
|
|
|
-bind join - * timeban:module
|
|
|
-bind ctcr mn|MOSAV PING pingpublic
|
|
|
-bind ctcr - VERSION ctcpvers
|
|
|
-bind mode - *+o* dontoppublic
|
|
|
-bind mode - *-o* dontdeoppublic
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-bind pubm nm|MmvVNnoOSA * comand:pubme
|
|
|
-foreach black(char) $black(cmdchar) {
|
|
|
-if {[string match -nocase "$black(char)" "none"]} {
|
|
|
-set black(char) ""
|
|
|
-}
|
|
|
-bind pub nm|MAS $black(char)clonescan scannerpublic
|
|
|
-bind pub nm|MASO $black(char)r refreshpublic
|
|
|
-bind pub nm|M $black(char)count countpublic
|
|
|
-bind pub nm|M $black(char)badchan badchanpublic
|
|
|
-bind pub nm|M $black(char)badword antibadword:command:public
|
|
|
-bind pub nm|M $black(char)anunt anuntpublic
|
|
|
-bind pub nm|M $black(char)limit limitpublic
|
|
|
-bind pub nm|M $black(char)topic topicpublic
|
|
|
-bind pub -|- $black(char)seen seenpublic
|
|
|
-bind pub nm|M $black(char)greet greetpublic
|
|
|
-bind pub nm|M $black(char)leave leavepublic
|
|
|
-bind pub nm|M $black(char)idle antidlepublic
|
|
|
-bind pub nm|OSMA $black(char)dr drpublic
|
|
|
-bind pub nm|OSMA $black(char)bot botpublic
|
|
|
-bind pub nm|OSMA $black(char)b bpublic
|
|
|
-bind pub nm|OSMA $black(char)n npublic
|
|
|
-bind pub nm|OSMA $black(char)id idpublic
|
|
|
-bind pub nm|SMA $black(char)black blackpublic
|
|
|
-bind pub nm|SMA $black(char)bl blackpublic
|
|
|
-bind pub nm|VOSMA $black(char)w wpublic
|
|
|
-bind pub nm|OSMA $black(char)spam spampublic
|
|
|
-bind pub nm|VOSMA $black(char)k kpublic
|
|
|
-bind pub nm|OSMA $black(char)bw bwpublic
|
|
|
-bind pub nm|OSMA $black(char)ub ubpublic
|
|
|
-bind pub nm|VOSMA $black(char)sb sbpublic
|
|
|
-bind pub nm|SMA $black(char)d dpublic
|
|
|
-bind pub nm|SMA $black(char)stick stickpublic
|
|
|
-bind pub nm|VOSMA $black(char)t tpublic
|
|
|
-bind pub nm|M $black(char)show showpublic
|
|
|
-bind pub nm|- $black(char)status statuspublic
|
|
|
-bind pub nm|- $black(char)channels channelspublic
|
|
|
-bind pub nm|- $black(char)chat chatpublic
|
|
|
-bind pub nm|- $black(char)uptime uptimepublic
|
|
|
-bind pub nm|VOSMA $black(char)i ipublic
|
|
|
-bind pub nm|VOSMA $black(char)addinfo addinfopublic
|
|
|
-bind pub nm|VOSMA $black(char)v vpublic
|
|
|
-bind pub nm|VOSMA $black(char)myset mysetpublic
|
|
|
-bind pub nm|OSMA $black(char)o opublic
|
|
|
-bind pub nm|VOSMA $black(char)l lpublic
|
|
|
-bind pub nm|VOSMA $black(char)ul ulpublic
|
|
|
-bind pub nm|SMA $black(char)say saypublic
|
|
|
-bind pub nm|SMA $black(char)act actpublic
|
|
|
-bind pub nm|- $black(char)broadcast broadcastpublic
|
|
|
-bind pub nm|OSMA $black(char)check checkpublic
|
|
|
-bind pub nm|VOSMA $black(char)version versionpublic
|
|
|
-bind pub nm|OSMA $black(char)cycle cyclepublic
|
|
|
-bind pub nm|- $black(char)away awaypublic
|
|
|
-bind pub nm|M $black(char)private privatepublic
|
|
|
-bind pub nm|OSMA $black(char)mode modepublic
|
|
|
-bind pub nm|M $black(char)set setpublic
|
|
|
-bind pub nm|- $black(char)silence silencepublic
|
|
|
-bind pub nm|- $black(char)msg msgpublic
|
|
|
-bind pub nm|MA $black(char)add publicadd
|
|
|
-bind pub nm|MA $black(char)adduser adduserpublic
|
|
|
-bind pub nm|MA $black(char)delacc delaccpublic
|
|
|
-bind pub nm|- $black(char)del delpublic
|
|
|
-bind pub nm|- $black(char)ignore ignorepublic
|
|
|
-bind pub nm|- $black(char)botidle botidlepublic
|
|
|
-bind pub nm|M $black(char)addhost addhostpublic
|
|
|
-bind pub nm|M $black(char)delhost delhostpuplic
|
|
|
-bind pub nm|OSMA $black(char)banlist banlistpublic
|
|
|
-bind pub nm|M $black(char)purge purgepublic
|
|
|
-bind pub nm|M $black(char)chuser chuserpublic
|
|
|
-bind pub nm|MASOV $black(char)userlist publicuserlist
|
|
|
-bind pub nm|MASOV $black(char)info infopublic
|
|
|
-bind pub nm|MA $black(char)s spublic
|
|
|
-bind pub nm|MA $black(char)us uspublic
|
|
|
-bind pub nm|MAOSV $black(char)ping pings
|
|
|
-bind pub nm|MASOV $black(char)time timepublic
|
|
|
-bind pub nm|MAOSV $black(char)vers verspublic
|
|
|
-bind pub nm|MAOSV $black(char)whois whoispublic
|
|
|
-bind pub nm|MAOS $black(char)gag gagpublic
|
|
|
-bind pub nm|M $black(char)reset resetpublic
|
|
|
-bind pub nm|M $black(char)clear clearpublic
|
|
|
-bind pub nm|- $black(char)addbot addbotpublic
|
|
|
-bind pub nm|M $black(char)addop addoppublic
|
|
|
-bind pub nm|M $black(char)addvoice addvoicepublic
|
|
|
-bind pub nm|M $black(char)delop deloppublic
|
|
|
-bind pub nm|M $black(char)delvoice delvoicepublic
|
|
|
-bind pub nm|- $black(char)addmyhost addmyhostpublic
|
|
|
-bind pub nm|- $black(char)delmyhost delmyhostpublic
|
|
|
-bind pub nm|VOSAM $black(char)activ activpublic
|
|
|
-bind pub nm|MASOV $black(char)h hpublic
|
|
|
-bind pub nm|MASO $black(char)cc ccpublic
|
|
|
-bind pub nm|MAOSV $black(char)top toppublic
|
|
|
-bind pub nm|M $black(char)secure securepublic
|
|
|
-bind pub nm|- $black(char)bt broadcastpublic:module
|
|
|
-bind pub nm|- $black(char)login publiclogin:Cmd
|
|
|
-bind pub nm|MASO $black(char)stats statspublic
|
|
|
-}
|
|
|
-bind msg nm|- addchan addchanpublic
|
|
|
-bind msg nm|- delchan delchanpublic
|
|
|
-bind msg nm|- suspend suspendpublic
|
|
|
-bind msg nm|- unsuspend unsuspendpublic
|
|
|
-bind msg nm|- nick nickpublic
|
|
|
-bind msg nm|- rehash rehashme
|
|
|
-bind msg nm|- restart restartme
|
|
|
-bind msg nm|- save saveme
|
|
|
-bind msg nm|- jump jumpme
|
|
|
-bind msg nm|- die dieme
|
|
|
-bind msg nm|OSAM op oppublic
|
|
|
-bind msg nm|OSAM deop deoppublic
|
|
|
-bind msg nm|OSAM voice voicepublic
|
|
|
-bind msg nm|OSAM devoice devoicepublic
|
|
|
-bind msg nm|OSAM invite invitepublic
|
|
|
-
|
|
|
-
|
|
|
-##########################################################################
|
|
|
-#
|
|
|
-#
|
|
|
-# Dont try to modify if you dont know what are you doing !
|
|
|
-#
|
|
|
-#
|
|
|
-#########################################################################
|
|
|
-
|
|
|
-
|
|
|
-set black(name) "BlackToolS"
|
|
|
-set black(author) "BLaCkShaDoW"
|
|
|
-set black(vers) "2.3"
|
|
|
-set black(site) "WwW.TclScripts.Net"
|
|
|
-set sdir "$username.status.txt"
|
|
|
-set wdir "$username.away.txt"
|
|
|
-set seendir "$username.Seen.db"
|
|
|
-set statsdir "$username.stats.db"
|
|
|
-set bwordir "$username.bword.db"
|
|
|
-
|
|
|
-set black(loader_error) [catch {source $black(dirname)/lang/loader.tcl} black(loader_error_stats)]
|
|
|
-
|
|
|
-if {$black(loader_error) == "1"} {
|
|
|
-die "4BlackTools :I didnt find the 12loader.tcl in the 12lang folder. This file contains the language for the script.PLease load it."
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists anuntpublic:show_running]} {
|
|
|
-timer $black(anunttime) anuntpublic:show
|
|
|
-set anuntpublic:show_running 1
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists times_topic_running]} {
|
|
|
-timer $black(topic_time) times_topic
|
|
|
-set times_topic_running 1
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![file exists $seendir]} {
|
|
|
-set file [open $seendir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-if {![file exists $sdir]} {
|
|
|
-set file [open $sdir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-if {![file exists $wdir]} {
|
|
|
-set file [open $wdir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-if {![file exists $bwordir]} {
|
|
|
-set file [open $bwordir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![file exists $statsdir]} {
|
|
|
-set file [open $statsdir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists antibotidle:module_running]} {
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-if {$data != ""} {
|
|
|
-foreach line $data {
|
|
|
-set type [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {($type == "antibotidle:module") && ($stats == "ON")} {
|
|
|
-timer $black(noidlemax) antibotidle:module
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set antibotidle:module_running 1
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists broadcastpublic:show_running]} {
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-if {$data != ""} {
|
|
|
-foreach line $data {
|
|
|
-set type [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {($type == "broadcastpublic:show") && ($stats == "ON")} {
|
|
|
-timer $black(bttime) broadcastpublic:show
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set broadcastpublic:show_running 1
|
|
|
-}
|
|
|
-
|
|
|
-proc blacktools:tell:prv {nick host hand type arg} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set replace(%botnick%) $botnick
|
|
|
-set replace(%char%) $char(p)
|
|
|
-set replace(%msg%) [lrange [split $arg] 0 end]
|
|
|
-set replace(%msg.1%) [lindex [split $arg] 0]
|
|
|
-set replace(%msg.2%) [lindex [split $arg] 1]
|
|
|
-set replace(%msg.3%) [lindex [split $arg] 2]
|
|
|
-set replace(%msg.4%) [lrange [split $arg] 1 end]
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-if {[info exists black(say.$getlang.$type)]} {
|
|
|
-set reply [string map [array get replace] $black(say.$getlang.$type)]
|
|
|
-puthelp "PRIVMSG $nick :$reply"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc blacktools:tell {nick host hand chan chan1 type arg} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set replace(%botnick%) $botnick
|
|
|
-set replace(%char%) $char(p)
|
|
|
-set replace(%chan%) $chan
|
|
|
-set replace(%msg%) [lrange $arg 0 end]
|
|
|
-set replace(%msg.set%) [lrange $arg 1 end]
|
|
|
-set replace(%msg.1%) [lindex $arg 0]
|
|
|
-set replace(%msg.2%) [lindex $arg 1]
|
|
|
-set replace(%msg.3%) [lindex $arg 2]
|
|
|
-set replace(%msg.4%) [lindex $arg 3]
|
|
|
-set replace(%msg.5%) [lrange $arg 4 end]
|
|
|
-set replace(%msg.6%) [lrange $arg 3 end]
|
|
|
-set replace(%msg.7%) [lrange $arg 2 end]
|
|
|
-set replace(%msg.8%) [lrange $arg 1 end]
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-set getmethod [getuser $hand XTRA OUTPUT_TYPE]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-if {$getmethod == ""} { set getmethod "1" }
|
|
|
-if {[info exists black(say.$getlang.$type)]} {
|
|
|
-set reply [string map [array get replace] $black(say.$getlang.$type)]
|
|
|
-if {$getmethod == "1"} {
|
|
|
-putserv "NOTICE $nick :$reply"
|
|
|
-} else {
|
|
|
-putserv "PRIVMSG $chan1 :$reply"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc blacktools:banner:1 {banmask botnick chan reason mode timer bantime} {
|
|
|
-global black
|
|
|
-if {[channel get $chan xban]} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set getxtime [channel get $chan xbantime]
|
|
|
-set getxlevel [channel get $chan xbanlevel]
|
|
|
-if {$getxlevel == "0"} { set getxlevel "100"}
|
|
|
-if {$getxtime == "0"} { set getxtime "1" }
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "MODE $chan +$mode" -next ;utimer $timer [list putquick "MODE $chan -$mode"]
|
|
|
-putquick "PRIVMSG $black(chanserv) :ban $chan $banmask $getxtime $getxlevel $reason"
|
|
|
-newchanban $chan $banmask $botnick $reason $bantime
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[info exists black($chan:anounce)]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set black($chan:anounce) 1
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $banmask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-} else {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -" } else {
|
|
|
-set reason "$reason" }
|
|
|
-putquick "MODE $chan +$mode" -next ;utimer $timer [list putquick "MODE $chan -$mode"]
|
|
|
-newchanban $chan $banmask $botnick $reason $bantime
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[info exists black($chan:anounce)]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set black($chan:anounce) 1
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $banmask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-}
|
|
|
-utimer 5 [list unset black($chan:anounce)]
|
|
|
-}
|
|
|
-
|
|
|
-proc blacktools:banner:2 {banmask botnick chan reason bantime} {
|
|
|
-global black
|
|
|
-if {[channel get $chan xban]} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set getxtime [channel get $chan xbantime]
|
|
|
-if {$getxtime == "0"} { set getxtime "1" }
|
|
|
-set getxlevel [channel get $chan xbanlevel]
|
|
|
-if {$getxlevel == "0"} { set getxlevel "100"}
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "PRIVMSG $black(chanserv) :ban $chan $banmask $getxtime $getxlevel $reason"
|
|
|
-newchanban $chan $banmask $botnick $reason $bantime
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[info exists black($chan:anounce)]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set black($chan:anounce) 1
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $banmask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-
|
|
|
-} else {
|
|
|
-
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -" } else {
|
|
|
-set reason "$reason" }
|
|
|
-newchanban $chan $banmask $botnick $reason $bantime
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[info exists black($chan:anounce)]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set black($chan:anounce) 1
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $banmask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-}
|
|
|
-utimer 5 [list unset black($chan:anounce)]
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc blacktools:banner:3 {mask hand chan reason bantime type} {
|
|
|
-global black botnick
|
|
|
-if {[channel get $chan xban]} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set getxtime [channel get $chan xbantime]
|
|
|
-if {$getxtime == "0"} { set getxtime "1" }
|
|
|
-set getxlevel [channel get $chan xbanlevel]
|
|
|
-if {$getxlevel == "0"} { set getxlevel "100"}
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA $type]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA $type $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "PRIVMSG $black(chanserv) :ban $chan $mask $getxtime $getxlevel $reason"
|
|
|
-utimer 1 [list newchanban $chan $mask $hand $reason $bantime]
|
|
|
-putquick "MODE $chan +b $mask"
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $mask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-} else {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA $type]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA $type $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -" } else {
|
|
|
-set reason "$reason" }
|
|
|
-newchanban $chan $mask $hand $reason $bantime
|
|
|
-putquick "MODE $chan +b $mask"
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $mask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc blacktools:banner:4 {mask hand chan reason bantime type} {
|
|
|
-global black botnick
|
|
|
-if {[channel get $chan xban]} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set getxtime [channel get $chan xbantime]
|
|
|
-if {$getxtime == "0"} { set getxtime "1" }
|
|
|
-set getxlevel [channel get $chan xbanlevel]
|
|
|
-if {$getxlevel == "0"} { set getxlevel "100"}
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA $type]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA $type $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "PRIVMSG $black(chanserv) :ban $chan $mask $getxtime $getxlevel $reason"
|
|
|
-utimer 1 [list newchanban $chan $mask $hand $reason $bantime sticky]
|
|
|
-putquick "MODE $chan +b $mask"
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $mask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-} else {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA $type]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA $type $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -" } else {
|
|
|
-set reason "$reason" }
|
|
|
-newchanban $chan $mask $hand $reason $bantime sticky
|
|
|
-putquick "MODE $chan +b $mask"
|
|
|
-if {![channel get $chan chanreport]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replace(%banmask%) $mask
|
|
|
-set replace(%bantime%) $bantime
|
|
|
-set replace(%reason%) $reason
|
|
|
-set replace(%chan%) $chan
|
|
|
-puthelp "PRIVMSG $backchan :[string map [array get replace] $black(say.$getlang.reportchan)]"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-################################ antipub ###########################
|
|
|
-
|
|
|
-
|
|
|
-proc antipub:filter {str} {
|
|
|
- regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
|
|
|
- return $str
|
|
|
-}
|
|
|
-
|
|
|
-proc antipub:protect {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set text [antipub:filter $arg]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antipub-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antipub.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antipub-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antipubbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if { [channel get $chan antipub] } {
|
|
|
-foreach antipub [string tolower $black(antipubword)] {
|
|
|
-if {[string match -nocase $antipub $arg]} {
|
|
|
-blacktools:banner:1 $banmask $botnick $chan $reason $black(antipubmode) $black(antipubsecunde) $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antipub:protect:me {nick host hand chan keyword arg} {
|
|
|
-global black
|
|
|
-antipub:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### antinotice #############################
|
|
|
-
|
|
|
-proc antinotice:protect {nick host hand arg chan} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antinotice-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antinotice.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antinotice-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antinoticebantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set reason "$protectreason"
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {$chan == $botnick} { return 0 }
|
|
|
-if { [channel get $chan antinotice] } {
|
|
|
-blacktools:banner:1 $banmask $botnick $chan $reason $black(antinoticemode) $black(antinoticesecunde) $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## antictcp ################################
|
|
|
-
|
|
|
-
|
|
|
-proc antictcp:protect {nick host hand chan keyword arg} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antictcp-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antictcp.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antictcp-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antictcpbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-if {[string equal -nocase "action" $keyword] || [string equal -nocase "chat" $keyword]} {return 0}
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if { [channel get $chan antictcp] } {
|
|
|
-blacktools:banner:1 $banmask $botnick $chan $reason $black(antictcpmode) $black(antictcpsecunde) $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## antibadword ################################
|
|
|
-
|
|
|
-proc antibadword:filter {str} {
|
|
|
- regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
|
|
|
- return $str
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc antibadword:protect {nick host hand chan arg} {
|
|
|
-global black botnick bwordir
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antibadword-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antibadword.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antibadword-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antibadwordbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set text [antibadword:filter $arg]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {[channel get $chan antibadword]} {
|
|
|
-set file [open $bwordir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-foreach word $lines {
|
|
|
-set c [lindex [split $word] 0]
|
|
|
-set w [lrange [split $word] 1 end]
|
|
|
-if {[string match -nocase $c $chan]} {
|
|
|
-if {[string match -nocase $w $text]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-foreach antibadword [string tolower $black(antibadword)] {
|
|
|
-if {[string match -nocase $antibadword $text]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antibadword:protect:me {nick host hand chan keyword arg} {
|
|
|
-global black
|
|
|
-antibadword:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-################################ badword ##################################
|
|
|
-
|
|
|
-proc antibadword:command:public {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set bdword [lrange [split $arg] 1 end]
|
|
|
-set bdnumber [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set bdnumber [lindex [split $arg] 2]
|
|
|
-set bdword [lrange [split $arg] 2 end]
|
|
|
-}
|
|
|
-antibadword:command:process $nick $host $hand $chan $chan1 $why $bdword $bdnumber $type
|
|
|
-}
|
|
|
-
|
|
|
-proc antibadword:command:process {nick host hand chan chan1 why bdword bdnumber type} {
|
|
|
-global black bwordir botnick
|
|
|
-set i 0
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-switch -exact -- [string tolower $why] {
|
|
|
-
|
|
|
-add {
|
|
|
-set file [open $bwordir a]
|
|
|
-puts $file "$chan $bdword"
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.5 $bdword
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-set file [open $bwordir "r"]
|
|
|
-set why [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $why "\n"]
|
|
|
-if {$data == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach word $data {
|
|
|
-set c [lindex [split $word] 0]
|
|
|
-set word [lrange [split $word] 1 end]
|
|
|
-if {[string match -nocase $chan $c]} {
|
|
|
-set foundchan 1
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.8 "4 $i. 12$word"
|
|
|
-}
|
|
|
-if {![info exists foundchan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.7 none
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-if {![regexp {^[0-9]} $bdnumber]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.9 $bdword
|
|
|
-return 0
|
|
|
-}
|
|
|
-set file [open $bwordir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-foreach word $lines {
|
|
|
-set c [lindex [split $word] 0]
|
|
|
-if {[string match -nocase $c $chan]} {
|
|
|
-set i [expr $bdnumber - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set file [open $bwordir "w"]
|
|
|
-puts $file [join $delete "\n"]
|
|
|
-close $file
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $bwordir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $bwordir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badword.10 $bdnumber
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## AntiLongText ################################
|
|
|
-
|
|
|
-proc antilongtext:protect {nick uhost hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antilongtext-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antilongtext.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antilongtext-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(longbantime) }
|
|
|
-set getlongchar [channel get $chan antilongtextmax]
|
|
|
-if {$getlongchar == "0"} { set getlongchar "$black(longchar)" }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set banmask "*!*@[lindex [split $uhost @] 1]"
|
|
|
-set reason "$protectreason"
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {[string length $arg] >= $getlongchar} {
|
|
|
-if {[channel get $chan antilongtext]} {
|
|
|
-blacktools:banner:1 $banmask $botnick $chan $reason $black(longmode) $black(longtimemode) $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antilongtext:protect:me {nick host hand chan keyword arg} {
|
|
|
-global black
|
|
|
-antilongtext:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-############################ AntiBAdQuitPart ##############################
|
|
|
-
|
|
|
-set black(badcolors) {
|
|
|
-
|
|
|
-"*\x03*"
|
|
|
-"*\037*"
|
|
|
-"*\002*"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-proc antipubpart:protect {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antibadquitpart-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antibadquitpart.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antibadquitpart-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badquitparttime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set banmask "*!*@[lindex [split $host @] 1]"
|
|
|
-set reason "$protectreason"
|
|
|
-if {[channel get $chan badquitpart]} {
|
|
|
-foreach word $black(badquitpartwords) {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {[string match -nocase $word $arg]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antipubsign:protect {nick host hand chan arg} {
|
|
|
-antipubpart:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc anticolorpart:protect {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antibadquitpart-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antibadquitpart.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antibadquitpart-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badquitparttime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set banmask "*!*@[lindex [split $host @] 1]"
|
|
|
-set reason "$protectreason"
|
|
|
-if {[channel get $chan badquitpart]} {
|
|
|
-foreach color $black(badcolors) {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {($black(badquitpartcolour) == "1") && [string match -nocase $color $arg]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc anticolorquit:protect {nick host hand chan arg} {
|
|
|
-anticolorpart:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-########################### AntiJoinPart #############################
|
|
|
-
|
|
|
-proc antijoinpart:protect {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antijoinpart-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antijoinpart.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antijoinpart-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(joinpartbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set banmask "*!*@[lindex [split $host @] 1]"
|
|
|
-set reason "$protectreason"
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {$chan == $botnick} { return 0 }
|
|
|
-if {[channel get $chan antijoinpart]} {
|
|
|
-if {[getchanjoin $nick $chan] >= [expr {[clock seconds]-$black(joinparttime)}]} {
|
|
|
-blacktools:banner:1 $banmask $botnick $chan $reason $black(joinpartmode) $black(joinparttimemode) $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc spam:filter {str} {
|
|
|
- regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
|
|
|
- return $str
|
|
|
-}
|
|
|
-
|
|
|
-############################# AntiSpam ##############################
|
|
|
-
|
|
|
-proc antispam:protect {nick uhost hand arg} {
|
|
|
-global botnick black
|
|
|
-set text [spam:filter $arg]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-foreach spammer [string tolower $black(spamword)] {
|
|
|
-if {[string match -nocase $spammer $arg]} {
|
|
|
-foreach chans [channels] {
|
|
|
-if {![validchan $chans]} { return 0 }
|
|
|
-set getreason [channel get $chans antispam-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chans lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antispam.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chans antispam-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(spamban) }
|
|
|
-if {[onchan $nick $chans]} {
|
|
|
-if {[channel get $chans antispam]} {
|
|
|
-if {![botisop $chans]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-set banmask *!*@[lindex [split $uhost @] 1]
|
|
|
-set replace(%chan%) $chans
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-if {[matchattr $handle $black(exceptflags) $chans]} { return 0 }
|
|
|
-if {[isvoice $nick $chans] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chans] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-blacktools:banner:2 $banmask $botnick $chans $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-proc antispam:protect:msg {nick host hand chan } {
|
|
|
-global black
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan antispam]} {
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {$black(spamreq) == "1"} {
|
|
|
-set getmsg [channel get $chan antispam-message]
|
|
|
-if {$getmsg == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getmsg $black(say.$getlang.antispam.2)
|
|
|
-}
|
|
|
-set replace(%nick%) $nick
|
|
|
-set replace(%chan%) $chan
|
|
|
-set spamsg [string map [array get replace] $getmsg]
|
|
|
-puthelp "PRIVMSG $nick :$spamsg"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc antispam:protect:cycle {min hour day mon year} {
|
|
|
-global black
|
|
|
-if {([scan $min %d]+([scan $hour %d]*60)) % $black(spamcycle) == 0} {
|
|
|
-foreach chan [channels] {
|
|
|
-if { [channel get $chan antispam]} {
|
|
|
-putserv "PART $chan :$black(spammsgcycle)"; putserv "JOIN $chan"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## AntiRepeat ###############################
|
|
|
-
|
|
|
-proc antirepeat:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set arg [join [split $arg]]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antirepeat-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antirepeat.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antirepeat-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antirepeatbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set repeatset [channel get $chan antirepeat-setting]
|
|
|
-if {$repeatset == ""} { set repeatset "$black(repeats)" }
|
|
|
-set number [scan $repeatset %\[^:\]]
|
|
|
-set time [scan $repeatset %*\[^:\]:%s]
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-foreach tmr [utimers] {
|
|
|
-if {[string match "*count(repeat:$host:$chan:$arg)*" [join [lindex $tmr 1]]]} {
|
|
|
-killutimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-if {[channel get $chan antirepeat]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-
|
|
|
-if {![info exists count(repeat:$host:$chan:$arg)]} {
|
|
|
-set count(repeat:$host:$chan:$arg) 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists count(repeat:$host:$chan)]} {
|
|
|
-set count(repeat:$host:$chan) 0
|
|
|
-}
|
|
|
-
|
|
|
-incr count(repeat:$host:$chan:$arg)
|
|
|
-utimer $time [list unset count(repeat:$host:$chan:$arg)]
|
|
|
-
|
|
|
-if {$count(repeat:$host:$chan:$arg) >= $number} {
|
|
|
-if {$black(antirepeattype) == "0"} { set count(repeat:$host:$chan) 2 }
|
|
|
-incr count(repeat:$host:$chan)
|
|
|
-if {$count(repeat:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(repeat:$host:$chan) >= 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(repeat:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc antirepeat:protect:me {nick host hand chan keyword arg} {
|
|
|
-antirepeat:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################# AntiColor ################################
|
|
|
-
|
|
|
-proc anticolor:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set arg [join [split $arg]]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan anticolor-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.anticolor.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan anticolor-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(anticolorbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {[channel get $chan anticolor]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {![info exists count(color:$host:$chan)]} {
|
|
|
-set count(color:$host:$chan) 0
|
|
|
-}
|
|
|
-if {[string match *\003* $arg]} {
|
|
|
-incr count(color:$host:$chan)
|
|
|
-if {$black(anticolortype) == "0" } { set count(color:$host:$chan) 2 }
|
|
|
-if {$count(color:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(color:$host:$chan) == 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(color:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc anticolor:protect:me {nick host hand chan keyword arg} {
|
|
|
-anticolor:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-############################# AntiBold ################################
|
|
|
-
|
|
|
-proc antibold:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set arg [split $arg]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antibold-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antibold.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antibold-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antiboldbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {[channel get $chan antibold]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {![info exists count(bold:$host:$chan)]} {
|
|
|
-set count(bold:$host:$chan) 0
|
|
|
-}
|
|
|
-if {[string match *\002* $arg]} {
|
|
|
-incr count(bold:$host:$chan)
|
|
|
-if {$black(antiboldtype) == "0" } { set count(bold:$host:$chan) 2 }
|
|
|
-if {$count(bold:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(bold:$host:$chan) == 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(bold:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antibold:protect:me {nick host hand chan keyword arg} {
|
|
|
-antibold:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-############################ AntiUnderline ###############################
|
|
|
-
|
|
|
-proc antiunderline:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set arg [split $arg]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antiunderline-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antiunderline.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antiunderline-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antiunderlinebantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {[channel get $chan antiunderline]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {![info exists count(underline:$host:$chan)]} {
|
|
|
-set count(underline:$host:$chan) 0
|
|
|
-}
|
|
|
-if {[string match *\037* $arg]} {
|
|
|
-incr count(underline:$host:$chan)
|
|
|
-if {$black(antiunderlinetype) == "0" } { set count(underline:$host:$chan) 2 }
|
|
|
-if {$count(underline:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(underline:$host:$chan) == 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(underline:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antiunderline:protect:me {nick host hand chan keyword arg} {
|
|
|
-antiunderline:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-############################## AntiCaps #################################
|
|
|
-
|
|
|
-proc anticaps:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan anticaps-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.anticaps.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan anticaps-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(anticapsbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-if {![info exists count(caps:$host:$chan)]} {
|
|
|
-set count(caps:$host:$chan) 0
|
|
|
-}
|
|
|
-if {[channel get $chan anticaps]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-
|
|
|
-set caps($nick:$host) 0
|
|
|
-foreach word [split $arg {}] {
|
|
|
-if [string match \[A-Z\] $word] {
|
|
|
-incr caps($nick:$host)
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-if {$caps($nick:$host) == 0} {
|
|
|
- return 0
|
|
|
-}
|
|
|
- if {[string length $arg] < 20} {return 0}
|
|
|
- set capchar [string length $arg]
|
|
|
- set number $caps($nick:$host)/$capchar
|
|
|
- if {[expr 100 * $caps($nick:$host) / $capchar] > $black(anticapscount)} {
|
|
|
-incr count(caps:$host:$chan)
|
|
|
-if {$black(anticapstype) == "0" } { set count(caps:$host:$chan) 2 }
|
|
|
-if {$count(caps:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(caps:$host:$chan) == 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(caps:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc anticaps:protect:me {nick host hand chan keyword arg} {
|
|
|
-anticaps:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-################################ BadIdent #################################
|
|
|
-
|
|
|
-proc badident:protect:join {nick host hand chan} {
|
|
|
-global black botnick
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan badident-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.badident.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan badident-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badidentbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set ident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
|
|
|
-set banmask "*!*$ident@*"
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan badident]} {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[matchattr $hand $black(exceptflags) $chan]} { return 0 }
|
|
|
-foreach bit $black(badidentwords) {
|
|
|
-if {[string match -nocase $bit $ident]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## BadFullname ###############################
|
|
|
-
|
|
|
-proc badfullname:protect:join {nick host hand chan} {
|
|
|
-global botnick black
|
|
|
-set ::cchan $chan
|
|
|
-set ::nnick $nick
|
|
|
-set ::hhost $host
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if { [channel get $chan badfullname] } {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[onchan $nick $chan]} {
|
|
|
-putquick "WHOIS $nick $nick"
|
|
|
-bind RAW - 311 badfullname:protect
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc badfullname:protect { from keyword arguments } {
|
|
|
-global botnick black
|
|
|
-set chan $::cchan
|
|
|
-set nick $::nnick
|
|
|
-set host $::hhost
|
|
|
-set getreason [channel get $chan badfullname-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.badfullname.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan badfullname-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badfbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set fullname [string range [join [lrange $arguments 5 end]] 1 end]
|
|
|
-if {[onchan $nick $chan]} {
|
|
|
-set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1]
|
|
|
-}
|
|
|
- foreach realname $black(badfwords) {
|
|
|
-if {[string match -nocase $realname $fullname]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-unbind RAW - 311 badfullname:protect
|
|
|
-}
|
|
|
-
|
|
|
-################################ BadNick #################################
|
|
|
-
|
|
|
-proc badnick:protect:join {nick host hand chan} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan badnick-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.badnick.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan badnick-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badnickbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask "$nick*!*@*"
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan badnick]} {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-foreach badnick [string tolower $black(badnickwords)] {
|
|
|
-if {[string match $badnick [string tolower $nick]]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc badnick:protect:change {nick host hand chan newnick} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan badnick-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.badnick.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan badnick-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badnickbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set banmask "$newnick*!*@*"
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan badnick]} {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-foreach badnick [string tolower $black(badnickwords)] {
|
|
|
-if {[string match $badnick [string tolower $newnick]]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-########################### AntiJoinFlood ################################
|
|
|
-
|
|
|
-proc joinflood:protect {nick host hand chan} {
|
|
|
-global black count
|
|
|
-if {[channel get $chan antijoinflood]} {
|
|
|
-set getset [channel get $chan joinflood]
|
|
|
-if {$getset == ""} { set getset "4 5" }
|
|
|
-set number [lindex [split $getset] 0]
|
|
|
-set time [lindex [split $getset] 1]
|
|
|
-set replace(%chan%) $chan
|
|
|
-foreach tmr [utimers] {
|
|
|
-if {[string match "*count(joinflood:$chan)*" [join [lindex $tmr 1]]]} {
|
|
|
-killutimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists count(joinflood:$chan)]} {
|
|
|
-set count(joinflood:$chan) 0
|
|
|
-}
|
|
|
-
|
|
|
-incr count(joinflood:$chan)
|
|
|
-utimer $time [list unset count(joinflood:$chan)]
|
|
|
-
|
|
|
-if {$count(joinflood:$chan) >= "$number"} {
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-putquick "MODE $chan +$black(modes)" ; utimer $black(nomodetime) [list putquick "MODE $chan -$black(modes)"]
|
|
|
-if {$black(fjoinhow) == "1"} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getmessage $black(say.$getlang.antijoinflood.1)
|
|
|
-set message [string map [array get replace] $getmessage]
|
|
|
-puthelp "NOTICE @$chan :$message"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-########################## Login ###############################
|
|
|
-
|
|
|
-proc loginpublic {my} {
|
|
|
- global botnick black
|
|
|
- putquick "$black(login)"
|
|
|
- putquick "MODE $botnick :$black(xmod)"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc publiclogin:Cmd {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-putquick "$black(login)"
|
|
|
-putquick "MODE $botnick :$black(xmod)"
|
|
|
-blacktools:tell:prv $nick $host $hand login.1 $black(chanserv)
|
|
|
-}
|
|
|
-
|
|
|
-########################### User Protection ################################
|
|
|
-
|
|
|
-proc protectpublic {nick host hand chan args} {
|
|
|
-global black
|
|
|
-set bans [lindex $args 1]
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {$bans == "*!*@*"} { putquick "MODE $chan -b $bans"
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $bans $host]} {
|
|
|
-putquick "MODE $chan -b $bans"
|
|
|
-if {[onchan $black(chanserv) $chan]} {
|
|
|
-putquick "PRIVMSG $black(chanserv) :unban $chan $bans"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## AntiChanFlood ###############################
|
|
|
-
|
|
|
-proc antifloodchan:protect {nick host hand chan arg} {
|
|
|
-global black botnick count
|
|
|
-set arg [split $arg]
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-set getreason [channel get $chan antichanflood-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.antichanflood.1)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan antichanflood-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(antifloodchanbantime) }
|
|
|
-set replace(%chan%) $chan
|
|
|
-set getset [channel get $chan chanflood]
|
|
|
-if {$getset == ""} { set getset "4 5" }
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set number [lindex [split $getset] 0]
|
|
|
-set time [lindex [split $getset] 1]
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-foreach tmr [utimers] {
|
|
|
-if {[string match "*count(repeat:$host:$chan:flood)*" [join [lindex $tmr 1]]]} {
|
|
|
-killutimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-if {[channel get $chan antichanflood]} {
|
|
|
-if {[isvoice $nick $chan] && ($black(vprotect) == "1")} { return 0 }
|
|
|
-if {[isop $nick $chan] && ($black(oprotect) == "1")} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-
|
|
|
-if {![info exists count(repeat:$host:$chan:flood)]} {
|
|
|
-set count(repeat:$host:$chan:flood) 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists count(repeat:$host:$chan)]} {
|
|
|
-set count(repeat:$host:$chan) 0
|
|
|
-}
|
|
|
-
|
|
|
-incr count(repeat:$host:$chan:flood)
|
|
|
-utimer $time [list unset count(repeat:$host:$chan:flood)]
|
|
|
-
|
|
|
-if {$count(repeat:$host:$chan:flood) >= $number} {
|
|
|
-if {$black(antifloodchantype) == "0"} { set count(repeat:$host:$chan) 2 }
|
|
|
-incr count(repeat:$host:$chan)
|
|
|
-if {$count(repeat:$host:$chan) == 1} {
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $nick :$reason"
|
|
|
-}
|
|
|
-if {$count(repeat:$host:$chan) >= 2} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $getbantime
|
|
|
-unset count(repeat:$host:$chan)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc antifloodchan:protect:me {nick host hand chan keyword arg} {
|
|
|
-antirepeat:protect $nick $host $hand $chan $arg
|
|
|
-}
|
|
|
-
|
|
|
-################################# reban ################################
|
|
|
-
|
|
|
-proc rebanpublic {nick host hand chan} {
|
|
|
-global black
|
|
|
-if {[channel get $chan xban]} {
|
|
|
-set host "$nick![getchanhost $nick $chan]"
|
|
|
-set getxtime [channel get $chan xbantime]
|
|
|
-set getxlevel [channel get $chan xbanlevel]
|
|
|
-if {$getxlevel == "0"} { set getxlevel "100" }
|
|
|
-if {$getxtime == "0"} { set getxtime "1" }
|
|
|
-foreach ban [banlist $chan] {
|
|
|
-set reason "[lindex $ban 1]"
|
|
|
-if {[string match -nocase [string tolower [lindex $ban 0]] $host]} {
|
|
|
-putquick "PRIVMSG $black(chanserv) :ban $chan [lindex $ban 0] $getxtime $getxlevel $reason"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-################################# XTOOLS ################################
|
|
|
-
|
|
|
-proc toolspublic {chan type} {
|
|
|
-global botnick black
|
|
|
-if {![channel get $chan xtools]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$type == "op"} {
|
|
|
-if {![onchan "$black(chanserv)" $chan] && ![botisop $chan]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "PRIVMSG $black(chanserv) :unban $chan $botnick"
|
|
|
-putquick "PRIVMSG $black(chanserv) :op $chan $botnick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$type == "unban"} {
|
|
|
-putquick "PRIVMSG $black(chanserv) :unban $chan $botnick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$type == "invite" || $type == "limit"} {
|
|
|
-putquick "PRIVMSG $black(chanserv) :invite $chan $botnick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# Clone Scan ###################################
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc scannerpublic {nick host hand chan arg} {
|
|
|
-global black count
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-scanner:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc scanner:process {nick host hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-array set clones [list]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clonescan.4 none
|
|
|
-foreach user [chanlist $chan] {
|
|
|
-set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
|
|
|
-if {![string match "*.undernet.org*" $host]} {
|
|
|
-if {!($black(maxclone) >= "2")} { return 0 }
|
|
|
-if {![info exists c($host:$chan)]} {
|
|
|
-set c($host:$chan) 0
|
|
|
-}
|
|
|
-set c($host:$chan) [expr $c($host:$chan) +1]
|
|
|
-lappend clones($user) $host
|
|
|
-if {$c($host:$chan) >= $black(maxclone)} {
|
|
|
-foreach clon [lsort -unique [array names clones]] {
|
|
|
-set hosts [string tolower [lindex [split [getchanhost $clon $chan] @] 1]]
|
|
|
-if {$host == $hosts} {
|
|
|
-lappend clona($host) [join $clon " , "]
|
|
|
-}
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clonescan.1 "$c($host:$chan) $host [lsort -unique $clona($host)]"
|
|
|
-}
|
|
|
-utimer 3 [list blacktools:tell $nick $host $hand $chan $chan1 clonescan.2 none]
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc clonescanner {minute hour day month year} {
|
|
|
-global black botnick
|
|
|
-foreach chan [channels] {
|
|
|
-set replace(%chan%) $chan
|
|
|
-if {[channel get $chan clonescan]} {
|
|
|
-putlog "Scaning for clones on $chan.."
|
|
|
-foreach user [chanlist $chan] {
|
|
|
-set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
|
|
|
-set replace(%host%) $host
|
|
|
-if {![info exists c($host:$chan)]} {
|
|
|
-set c($host:$chan) 0
|
|
|
-}
|
|
|
-array set clones [list]
|
|
|
-if {![string match "*.undernet.org*" $host]} {
|
|
|
-if {!($black(maxclone) >= "2")} { return 0 }
|
|
|
-set c($host:$chan) [expr $c($host:$chan) +1]
|
|
|
-lappend clones($user) $host
|
|
|
-if {$c($host:$chan) >= $black(maxclone)} {
|
|
|
-foreach clon [array names clones] {
|
|
|
-set hosts [string tolower [lindex [split [getchanhost $clon $chan] @] 1]]
|
|
|
-if {$host == $hosts} {
|
|
|
-lappend clona($host) [join $clon " , "]
|
|
|
-}
|
|
|
-}
|
|
|
-set replace(%num%) $c($host:$chan)
|
|
|
-set replace(%clone%) [lsort -unique $clona($host)]
|
|
|
-if {$black(what) == "0"} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-putserv "NOTICE @$chan :[string map [array get replace] $black(say.$getlang.clonescan.3)]"
|
|
|
-}
|
|
|
-if {$black(what) == "1"} {
|
|
|
-set banmask *!*@[lindex [split $host @] 1]
|
|
|
-set reason [string map [array get replace] $black(reason)]
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $reason $black(clonebtime)
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-############################# Topic refresh #########################
|
|
|
-
|
|
|
-proc refreshpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set thetopic [topic $chan]
|
|
|
-puthelp "TOPIC $chan :$black(topics)"
|
|
|
-puthelp "TOPIC $chan :$thetopic"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc times_topic {} {
|
|
|
- global black
|
|
|
-foreach chan [channels] {
|
|
|
-if {[channel get $chan topicrefresh] } {
|
|
|
-set thetopic [topic $chan]
|
|
|
- puthelp "TOPIC $chan :$black(topics)"
|
|
|
- puthelp "TOPIC $chan :$thetopic"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-timer $black(topic_time) times_topic
|
|
|
- return 1
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################ count ####################################
|
|
|
-
|
|
|
-proc countpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-count:process $nick $host $hand $chan $chan1 $why $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc count:process {nick host hand chan chan1 why type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if { [channel get $chan count] } { set countstats "on" } else { set countstats "off"}
|
|
|
-if {($countstats == "on") && ($why == "on")} { blacktools:tell $nick $host $hand $chan $chan1 count.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($countstats == "off") && ($why == "off")} { blacktools:tell $nick $host $hand $chan $chan1 count.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|display|reset)} $why tmp counter]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $counter {
|
|
|
-
|
|
|
-on {
|
|
|
-channel set $chan +count
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.7 none
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-channel set $chan -count
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.8 none
|
|
|
-}
|
|
|
-
|
|
|
-display {
|
|
|
-set stats [channel get $chan countnumber]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.9 $stats
|
|
|
-}
|
|
|
-
|
|
|
-reset {
|
|
|
-channel set $chan countnumber 0
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 count.10 none
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc countpublic:join {nick host hand chan} {
|
|
|
-global black
|
|
|
-if {[isbotnick $nick]} { return 0}
|
|
|
-if {[channel get $chan count]} {
|
|
|
-set stats [channel get $chan countnumber]
|
|
|
-set counting [expr $stats +1]
|
|
|
-channel set $chan countnumber $counting
|
|
|
-set replace(%num%) $counting
|
|
|
-set replace(%chan%) $chan
|
|
|
-set countmes [channel get $chan count-message]
|
|
|
-if {$countmes == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set countmessage [string map [array get replace] $black(say.$getlang.count.11)]
|
|
|
-}
|
|
|
-putquick "NOTICE $nick :$countmessage"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### Private ##########################
|
|
|
-
|
|
|
-proc privatepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-set host [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set host [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-private:process $nick $host $hand $chan $chan1 $why $user $host $type
|
|
|
-}
|
|
|
-
|
|
|
-proc private:process {nick host hand chan chan1 why user host type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flags "-|f"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $why tmp privat]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $privat {
|
|
|
-on {
|
|
|
- channel set $chan +private
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.5 none
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
- channel set $chan -private
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.6 none
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user $flags $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.7 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-adduser $user $host
|
|
|
-chattr $user $flags $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.8 "$user $host"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-del {
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-f $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.9 $user
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 private.10 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-set list [userlist $flags $chan]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 private.11 $list
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc private:module {nick host hand chan} {
|
|
|
-global black botnick
|
|
|
-set getreason [channel get $chan private-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.private.12)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan private-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(privatebantime) }
|
|
|
-set handle [nick2hand $nick]
|
|
|
-set mask "*!*@[lindex [split $host @] 1]"
|
|
|
-if {[channel get $chan private]} {
|
|
|
-if {[matchattr $handle nm|oMASOVf $chan]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-newchanban $chan $mask $botnick $getreason $getbantime
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### BadChan ###########################
|
|
|
-
|
|
|
-proc badchanpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set bdchan [join [lindex [split $arg] 1]]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set bdchan [join [lindex [split $arg] 2]]
|
|
|
-}
|
|
|
-badchan:process $nick $host $hand $chan $chan1 $why $bdchan $type
|
|
|
-}
|
|
|
-
|
|
|
-proc badchan:process {nick host hand chan chan1 why bdchan type} {
|
|
|
-global botnick black
|
|
|
-set flag "antibadchan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/badchan($chan).txt"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $why tmp bc]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $bc {
|
|
|
-on {
|
|
|
-channel set $chan +$flag
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.5 none
|
|
|
-}
|
|
|
-off {
|
|
|
-channel set $chan -$flag
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.6 none
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $bdchan
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.7 $bdchan
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set dir "logs/badchan($chan).txt"
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 badchan.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach cc $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.10 "$i. $cc"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-if {![regexp {^[0-9]} $bdchan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $bdchan - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set file [open $dir "w"]
|
|
|
-puts $file [join $delete "\n"]
|
|
|
-close $file
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.12 $bdchan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 badchan.13 none
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc badchanpublic:join {nick host hand chan} {
|
|
|
-global black
|
|
|
-set handle [nick2hand $nick]
|
|
|
-set ::ccchan $chan
|
|
|
-if {![validchan $chan]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle nm|MASoOVv $chan]} { return 0 }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-if {[channel get $chan antibadchan]} {
|
|
|
-if {[onchan $nick $chan]} {
|
|
|
-utimer 5 [list putquick "WHOIS $nick $nick"]
|
|
|
-bind RAW - 319 badchanpublic:ban
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc badchanpublic:ban {from keyword arguments } {
|
|
|
-global botnick black
|
|
|
-set chan $::ccchan
|
|
|
-set arguments [join $arguments]
|
|
|
-set nick [string tolower [lindex $arguments 1]]
|
|
|
-set replace(%chan%) $chan
|
|
|
-set replace(%nick%) $nick
|
|
|
-set handle [nick2hand $nick]
|
|
|
-set args [join $arguments]
|
|
|
-set getreason [channel get $chan badchan-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.badchan.14)
|
|
|
-}
|
|
|
-set getbantime [channel get $chan badchan-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(badcbantime) }
|
|
|
-if {[channel get $chan antibadchan]} {
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return 0 }
|
|
|
-set protectreason [string map [array get replace] $getreason]
|
|
|
-set reason "$protectreason"
|
|
|
-set channels [string tolower [lrange $args 2 end]]
|
|
|
-set banmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1]
|
|
|
-set dir "logs/badchan($chan).txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set bchan [split $w "\n"]
|
|
|
-if {$w == ""} { return 0 }
|
|
|
-foreach badchan $bchan {
|
|
|
-set replace(%bchan%) $badchan
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set protectmsg [string map [array get replace] $black(say.$getlang.badchan.15)]
|
|
|
-foreach c $channels {
|
|
|
-set ch [string trimleft $c ":@+"]
|
|
|
-if {[string match -nocase $badchan $ch]} {
|
|
|
-blacktools:banner:2 $banmask $botnick $chan $getreason $getbantime
|
|
|
-putserv "PRIVMSG $nick :$protectmsg"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# Antitake ##################################
|
|
|
-
|
|
|
-
|
|
|
-proc dontdeoppublic {nick host hand chan args} {
|
|
|
-global black botnick
|
|
|
-set dnick [lindex $args 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {[channel get $chan dontdeop] } {
|
|
|
-if {[string match -nocase $nick $botnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-putquick "MODE $chan -o $nick"
|
|
|
-putquick "MODE $chan +o $dnick"
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-puthelp "NOTICE $nick :$black(say.$getlang.antitake.1)"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc dontoppublic {nick host hand chan args} {
|
|
|
-global black botnick
|
|
|
-set onick [lindex $args 1]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-if {[channel get $chan dontop]} {
|
|
|
-if {[string match -nocase $nick $botnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[string match -nocase $onick $botnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-putquick "MODE $chan -o $nick"
|
|
|
-putquick "MODE $chan -o $onick"
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-puthelp "NOTICE $nick :$black(say.$getlang.antitake.2)"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# Anunt ###################################
|
|
|
-
|
|
|
-
|
|
|
-proc anuntpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 0]
|
|
|
-set message [join [lrange [split $arg] 1 end]]
|
|
|
-set number [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 1]
|
|
|
-set message [join [lrange [split $arg] 2 end]]
|
|
|
-set number [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-anunt:process $nick $host $hand $chan $chan1 $who $message $number $type
|
|
|
-}
|
|
|
-
|
|
|
-proc anunt:process {nick host hand chan chan1 who message number type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/anunt($chan).txt"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
|
|
|
- switch $a {
|
|
|
-on {
|
|
|
-channel set $chan +anunt
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.5 none
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-channel set $chan -anunt
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.6 none
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $message
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.7 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.8 $message
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 anunt.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach mes $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.10 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.8 "$i. $mes"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $number]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set dir "logs/anunt($chan).txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $number - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set files [open $dir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.12 $number
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 anunt.13 none
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc anuntpublic:show {} {
|
|
|
-global black count
|
|
|
-foreach chan [channels] {
|
|
|
-if {[validchan $chan]} {
|
|
|
-set dir "logs/anunt($chan).txt"
|
|
|
-if {[channel get $chan anunt]} {
|
|
|
-if {![info exists count(anunt:$chan)]} {
|
|
|
-set count(anunt:$chan) 0
|
|
|
-}
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set line [lindex $lines $count(anunt:$chan)]
|
|
|
-incr count(anunt:$chan)
|
|
|
-if {$line == ""} {
|
|
|
-unset count(anunt:$chan)
|
|
|
-}
|
|
|
-if {$black(anunthow) == "1"} {
|
|
|
-puthelp "PRIVMSG $chan :\001ACTION $line\001"
|
|
|
-} else {
|
|
|
-puthelp "PRIVMSG $chan :$line"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-timer $black(anunttime) anuntpublic:show
|
|
|
-return 1
|
|
|
-}
|
|
|
-
|
|
|
-################################## TimeBan #############################
|
|
|
-
|
|
|
-
|
|
|
-proc timeban:module {nick host hand chan} {
|
|
|
-global botnick
|
|
|
-if {[channel get $chan showtime]} {
|
|
|
-set host "$nick![getchanhost $nick $chan]"
|
|
|
-foreach ban [banlist $chan] {
|
|
|
-if {[string match -nocase [string tolower [lindex $ban 0]] $host]} {
|
|
|
-set reason "[lindex $ban 1]"
|
|
|
-set bantime "[lindex $ban 2]"
|
|
|
-set totalday [expr $bantime - [unixtime]]
|
|
|
-if {$totalday >= 86400} {
|
|
|
-set daysfull [expr $totalday/86400]
|
|
|
-set days [expr int($daysfull)]
|
|
|
-set dayssub [expr 86400*$days]
|
|
|
-set totalhour [expr $totalday - $dayssub]
|
|
|
-}
|
|
|
-if {$totalday < 86400} {
|
|
|
-set totalhour $totalday
|
|
|
-set days 0
|
|
|
-}
|
|
|
-if {$totalhour >= 3600} {
|
|
|
-set hoursfull [expr $totalhour/3600]
|
|
|
-set hours [expr int($hoursfull)]
|
|
|
-set hourssub [expr 3600*$hours]
|
|
|
-set totalmin [expr $totalhour - $hourssub]
|
|
|
-}
|
|
|
-if {$totalhour < 3600} {
|
|
|
-set totalmin $totalhour
|
|
|
-set hours 0
|
|
|
-}
|
|
|
-if {$totalmin >= 60} {
|
|
|
-set minsfull [expr $totalmin/60]
|
|
|
-set mins [expr int($minsfull)]
|
|
|
-}
|
|
|
-if {$totalmin < 60} {
|
|
|
-set mins 0
|
|
|
-}
|
|
|
-if {$days < 1} {set zi "0 zile, "} elseif {$days == 1} {set zi "$days zi, "} {set zi "$days zile, "}
|
|
|
-if {$hours < 1} {set ora "0"} else { set ora "$hours" }
|
|
|
-set minut "$mins"
|
|
|
-set re "$reason Expire :$zi$ora:$minut"
|
|
|
-if {[lindex $ban 2] == 0} {
|
|
|
-set expire "Expire :Perm Ban"
|
|
|
-set re "$reason $expire"
|
|
|
-}
|
|
|
-putquick "MODE $chan +b [lindex $ban 0]"
|
|
|
-putquick "KICK $chan $nick :$re"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-############################### AutoBroadcast ############################
|
|
|
-
|
|
|
-proc broadcastpublic:module {nick host hand chan arg} {
|
|
|
-global black sdir
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 0]
|
|
|
-set message [join [lrange [split $arg] 1 end]]
|
|
|
-set number [lindex [split $arg] 1]
|
|
|
-if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-broadcast:process $nick $host $hand $chan $chan1 $who $message $number
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc broadcast:process {nick host hand chan chan1 who message number} {
|
|
|
-global botnick black sdir
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/broadcast.txt"
|
|
|
-set lin 0
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
|
|
|
- switch $a {
|
|
|
-
|
|
|
-on {
|
|
|
-set type "broadcastpublic:show ON"
|
|
|
-foreach tmr [timers] {
|
|
|
-if {[string match "*broadcastpublic:show*" [join [lindex $tmr 1]]]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.4 none
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set who [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {[string match -nocase "broadcastpublic:show" $who]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $sdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $sdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $sdir "a"]
|
|
|
-puts $file "$type"
|
|
|
-close $file
|
|
|
-timer $black(bttime) broadcastpublic:show
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.5 none
|
|
|
-set type "broadcastpublic:show OFF"
|
|
|
-foreach tmr [timers] {
|
|
|
-if {[string match -nocase "*broadcastpublic:show*" [join [lindex $tmr 1]]]} {
|
|
|
-killtimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set who [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {[string match -nocase "broadcastpublic:show" $who]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $sdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $sdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $sdir "a"]
|
|
|
-puts $file "$type"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $message
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.7 $message
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set dir "logs/broadcast.txt"
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach mes $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.7 "$i. $mes"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $number]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set dir "logs/broadcast.txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $number - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set files [open $dir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.11 $number
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc broadcastpublic:show {} {
|
|
|
-global black
|
|
|
-set dir "logs/broadcast.txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-foreach chan [channels] {
|
|
|
-if {[isdynamic $chan] && (![channel get $chan silent])} {
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set numlines [llength $lines]
|
|
|
-set random [rand $numlines]
|
|
|
-set randomline [lindex $lines $random]
|
|
|
-if {$black(bthow) == "1"} {
|
|
|
-puthelp "PRIVMSG $chan :\001ACTION 1(BROADCAST) $randomline\001"
|
|
|
-} else {
|
|
|
-puthelp "PRIVMSG $chan :1(BROADCAST) $randomline"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-timer $black(bttime) broadcastpublic:show
|
|
|
-return 1
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# Limit ###################################
|
|
|
-
|
|
|
-
|
|
|
-proc limitpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set lm [lindex [split $arg] 1]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set lm [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-limit:process $nick $host $hand $chan $chan1 $why $lm $type
|
|
|
-}
|
|
|
-
|
|
|
-proc limit:process {nick host hand chan chan1 why lm type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set usersnum [llength [chanlist $chan]]
|
|
|
-set setnum [channel get $chan blacklimit]
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|set|on|off)} $why tmp lmt]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $lmt {
|
|
|
-
|
|
|
-on {
|
|
|
-set limt [channel get $chan blacklimit]
|
|
|
-channel set $chan +limit
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.5 none
|
|
|
-if {($limt != "0")} {
|
|
|
-putserv "MODE $chan +l [expr $usersnum + $limt]"
|
|
|
-} else {
|
|
|
-putserv "MODE $chan +l [expr $usersnum + 10]"
|
|
|
-channel set $chan blacklimit 10
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.6 none
|
|
|
-}
|
|
|
-}
|
|
|
-off {
|
|
|
-channel set $chan -limit
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.7 none
|
|
|
-putquick "MODE $chan -l"
|
|
|
-}
|
|
|
-
|
|
|
-set {
|
|
|
-if {![regexp {^[0-9]} $lm]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$lm < 2} { blacktools:tell $nick $host $hand $chan $chan1 limit.9 none
|
|
|
-channel set $chan blacklimit 2
|
|
|
-putserv "MODE $chan +l [expr $usersnum + $lm]"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$lm > 500} { blacktools:tell $nick $host $hand $chan $chan1 limit.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-channel set $chan blacklimit $lm
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 limit.12 $lm
|
|
|
-putserv "MODE $chan +l [expr $usersnum + $lm]"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc limit:timer {min hour day mon year} {
|
|
|
-global black
|
|
|
-foreach chan [channels] {
|
|
|
-if {[channel get $chan limit]} {
|
|
|
-set usersnum [llength [chanlist $chan]]
|
|
|
-set setnum [channel get $chan blacklimit]
|
|
|
-if {$setnum == "0"} { set setnum "10" }
|
|
|
-if {![botisop $chan]} { return 0 }
|
|
|
-set chanmode [getchanmode $chan]
|
|
|
-if {[string match "*l*" "$chanmode"]} {
|
|
|
-set lim [lindex $chanmode 1]
|
|
|
-} else { set lim "0" }
|
|
|
-if {$usersnum > $lim} { set dif [expr $usersnum - $lim] } else { set dif [expr $lim - $usersnum] }
|
|
|
-if {($dif >= $setnum) || ($dif <= $setnum)} {
|
|
|
-putserv "MODE $chan +l [expr $usersnum + $setnum]"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################# Topic ###################################
|
|
|
-
|
|
|
-proc topicpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set nop [lindex [split $arg] 0]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set tp [join [lrange [split $arg] 1 end]]
|
|
|
-set number [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[\\+!#&]} $nop] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$nop"
|
|
|
-set nop [lindex [split $arg] 1]
|
|
|
-set tp [join [lrange [split $arg] 2 end]]
|
|
|
-set number [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-topic:process $nick $host $hand $chan $chan1 $nop $tp $number $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc topic:process {nick host hand chan chan1 nop tp number type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/topic($chan).txt"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($nop == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($nop == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($nop == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($nop == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
- if {([regexp -nocase -- {(#[0-9]+|save|list|add|del|set)} $nop tmp topc]) && (![regexp -nocase -- {\S#} $nop])} {
|
|
|
- switch $topc {
|
|
|
-
|
|
|
- save {
|
|
|
-set t [join [topic $chan]]
|
|
|
-if {$t == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $t
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.6 none
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $tp
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.7 none
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach ts $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.10 "$i. $ts"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $number]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $number - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set files [open $dir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.12 $number
|
|
|
-}
|
|
|
-
|
|
|
-set {
|
|
|
-if {$number == ""} { blacktools:tell $nick $host $hand $chan $chan1 topic.13 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set num [expr $number - 1]
|
|
|
-set line [lindex $lines $num]
|
|
|
-putquick "TOPIC $chan :Setting topic.."
|
|
|
-puthelp "TOPIC $chan :$line"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 topic.14 $number
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# Seen ###################################
|
|
|
-
|
|
|
-
|
|
|
-proc seen:save:2 {nick chan host type time staytimer reason} {
|
|
|
-global seendir
|
|
|
-set lin 0
|
|
|
-set j 0
|
|
|
-set who "$type $chan $nick $host $time $staytimer $reason"
|
|
|
-set file [open $seendir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set userentry [lindex [split $line] 2]
|
|
|
-set chanentry [lindex [split $line] 1]
|
|
|
-if {[string equal -nocase $userentry $nick] && [string match -nocase $chanentry $chan]} {
|
|
|
-set joined [lindex [split $line] 0]
|
|
|
-if {$joined == "JOIN"} {
|
|
|
-set j [lindex [split $line] 4]
|
|
|
-if {![regexp {^[0-9]} $j] || ($j == "")} {
|
|
|
-set j 0
|
|
|
-}
|
|
|
-}
|
|
|
-set who "$type $chan $nick $host $time $j $reason"
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $seendir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $seendir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $seendir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $seendir "a"]
|
|
|
-puts $file "$who"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-proc seen:save:1 {nick chan host type time staytimer} {
|
|
|
-global seendir
|
|
|
-set lin 0
|
|
|
-set who "$type $chan $nick $host $time $staytimer"
|
|
|
-set file [open $seendir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set userentry [lindex [split $line] 2]
|
|
|
-set chanentry [lindex [split $line] 1]
|
|
|
-if {[string equal -nocase $userentry $nick] && [string match -nocase $chanentry $chan]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $seendir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $seendir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $seendir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $seendir "a"]
|
|
|
-puts $file "$who"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc seen:join {nick host hand chan} {
|
|
|
-global seendir botnick
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-set time [unixtime]
|
|
|
-set host "*!$host"
|
|
|
-set type "JOIN"
|
|
|
-set staytimer "0"
|
|
|
-seen:save:1 $nick $chan $host $type $time $staytimer
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc seen:part {nick host hand chan arg} {
|
|
|
-global seendir botnick
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set time [unixtime]
|
|
|
-set staytimer "0"
|
|
|
-set type "PART"
|
|
|
-set reason [join [lrange [split $arg] 0 end]]
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-set host "*!$host"
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-seen:save:2 $nick $chan $host $type $time $staytimer $reason
|
|
|
-}
|
|
|
-
|
|
|
-proc seen:sign {nick host hand chan arg} {
|
|
|
-global seendir botnick
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set time [unixtime]
|
|
|
-set staytimer "0"
|
|
|
-set type "SIGN"
|
|
|
-set host "*!$host"
|
|
|
-set reason [join [lrange [split $arg] 0 end]]
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-seen:save:2 $nick $chan $host $type $time $staytimer $reason
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc seen:kick {nick host hand chan kicked reason} {
|
|
|
-global seendir botnick
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set lin 0
|
|
|
-set j 0
|
|
|
-set time [unixtime]
|
|
|
-set hosted [getchanhost $kicked $chan]
|
|
|
-set hosted "*!$hosted"
|
|
|
-set reason [join [lrange [split $reason] 1 end]]
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-if {[isbotnick $kicked]} { return 0 }
|
|
|
-set who "KICK $chan $kicked $hosted $time 0 $reason"
|
|
|
-set file [open $seendir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set userentry [lindex [split $line] 2]
|
|
|
-set chanentry [lindex [split $line] 1]
|
|
|
-if {[string equal -nocase $kicked $userentry] && [string match -nocase $chanentry $chan]} {
|
|
|
-set joined [lindex [split $line] 0]
|
|
|
-if {$joined == "JOIN"} {
|
|
|
-set j [lindex [split $line] 4]
|
|
|
-if {![regexp {^[0-9]} $j] || ($j == "")} {
|
|
|
-set j 0
|
|
|
-}
|
|
|
-}
|
|
|
-set who "KICK $chan $kicked $hosted $time $j $reason"
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $seendir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $seendir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $seendir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $seendir "a"]
|
|
|
-puts $file "$who"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc seen:split {nick host hand chan args} {
|
|
|
-global seendir botnick
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set time [unixtime]
|
|
|
-set staytimer "0"
|
|
|
-set type "SPLIT"
|
|
|
-set host "*!$host"
|
|
|
-set reason [join [lrange [split $args] 0 end]]
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-seen:save:2 $nick $chan $host $type $time $staytimer $reason
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc seen:changenick {nick host hand chan newnick} {
|
|
|
-global seendir botnick
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set time [unixtime]
|
|
|
-set host "*!$host"
|
|
|
-set staytimer "0"
|
|
|
-set type "NICKCHANGE"
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-seen:save:2 $nick $chan $host $type $time $staytimer $newnick
|
|
|
-}
|
|
|
-
|
|
|
-proc seenpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set what [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[\\+!#&]} $what] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set chan "$what"
|
|
|
-set what [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-seen:process $nick $host $hand $chan $chan1 $what $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc seen:process {nick host hand chan chan1 what type} {
|
|
|
-global seendir black count botnick
|
|
|
-set number [scan $black(seenflood) %\[^:\]]
|
|
|
-set timer [scan $black(seenflood) %*\[^:\]:%s]
|
|
|
-set i 0
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($what == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach tmr [utimers] {
|
|
|
-if {[string match "*count(flood:$host:$chan)*" [join [lindex $tmr 1]]]} {
|
|
|
-killutimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists count(flood:$host:$chan)]} {
|
|
|
-set count(flood:$host:$chan) 0
|
|
|
-}
|
|
|
-incr count(flood:$host:$chan)
|
|
|
-utimer $timer [list unset count(flood:$host:$chan)]
|
|
|
-
|
|
|
-if {$count(flood:$host:$chan) == "$number"} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase $what $nick]} { blacktools:tell $nick $host $hand $chan $chan1 seen.6 $nick
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $what $chan]} { blacktools:tell $nick $host $hand $chan $chan1 seen.7 $what
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $seendir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set userentry [lindex [split $line] 2]
|
|
|
-set chanentry [lindex [split $line] 1]
|
|
|
-set host [lindex [split $line] 3]
|
|
|
-set tm [lindex [split $line] 4]
|
|
|
-set jointime [lindex [split $line] 5]
|
|
|
-set newnick [lindex [split $line] 6]
|
|
|
-set reason [lrange [split $line] 6 end]
|
|
|
-if {!([regexp {^[0-9]} $jointime]) || ($jointime == "")} {
|
|
|
-set jointime 0
|
|
|
-set reason [lrange [split $line] 5 end]
|
|
|
-}
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-set output [duration [expr [unixtime] - $tm]]
|
|
|
-set staytime [expr [unixtime] - $jointime]
|
|
|
-set staytime [duration [expr $tm - $jointime]]
|
|
|
-
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-
|
|
|
-set date [clock format $tm -format %d.%m.]
|
|
|
-set hour [clock format $tm -format %H:%M]
|
|
|
-
|
|
|
-if {$what == "*!*@*"} { return 0 }
|
|
|
-if {([string equal -nocase $userentry $what] || [string match -nocase $what $userentry] || [string match -nocase $what $host]) && [string match -nocase $chanentry $chan]} {
|
|
|
-set i [expr $i +1]
|
|
|
-set host [string trim $host "*!~"]
|
|
|
-if {$i < 6} {
|
|
|
-lappend entry $userentry
|
|
|
-}
|
|
|
-set seenfound 1
|
|
|
-set entry [lsort -unique $entry]
|
|
|
-set replace(%entry%) "[join $entry ","]"
|
|
|
-set replace(%host%) "$host"
|
|
|
-set replace(%output%) "$output"
|
|
|
-set replace(%date%) "($date $hour)"
|
|
|
-set replace(%newnick%) "$newnick"
|
|
|
-set replace(%userentry%) "$userentry"
|
|
|
-set replace(%chan%) "$chan"
|
|
|
-set replace(%reason%) "$reason"
|
|
|
-set replace(%staytime%) "$staytime"
|
|
|
-if {$jointime == "0"} { set staymsg "[string map [array get replace] $black(say.$getlang.seen.8)]"
|
|
|
-set replace(%staymsg%) "$staymsg"
|
|
|
-} else {
|
|
|
- set staymsg "[string map [array get replace] $black(say.$getlang.seen.9)]"
|
|
|
-set replace(%staymsg%) "$staymsg"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "PART"} {
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.12)]"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "SIGN"} {
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.13)]"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "JOIN"} {
|
|
|
-if {[onchan $userentry $chan]} {
|
|
|
-set nowon "[string map [array get replace] $black(say.$getlang.seen.10)]"
|
|
|
-set replace(%nowon%) "$nowon"
|
|
|
-} else {
|
|
|
-set nowon "[string map [array get replace] $black(say.$getlang.seen.11)]"
|
|
|
-set replace(%nowon%) "$nowon"
|
|
|
-}
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.14)]"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "SPLIT"} {
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.15)]"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "KICK"} {
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.16)]"
|
|
|
-}
|
|
|
-if {[lindex [split $line] 0] == "NICKCHANGE"} {
|
|
|
-if {[onchan $newnick $chan]} {
|
|
|
-set nowon "[string map [array get replace] $black(say.$getlang.seen.10)]"
|
|
|
-set replace(%nowon%) "$nowon"
|
|
|
-} else {
|
|
|
-set nowon "[string map [array get replace] $black(say.$getlang.seen.11)]"
|
|
|
-set replace(%nowon%) "$nowon"
|
|
|
-}
|
|
|
-set reply "[string map [array get replace] $black(say.$getlang.seen.17)]"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {$black(seenmet) == "1"} {
|
|
|
-set method "NOTICE"
|
|
|
-set onwho "$nick"
|
|
|
-} else {
|
|
|
-set method "PRIVMSG"
|
|
|
-set onwho "$chan1"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[info exists reply]} {
|
|
|
-puthelp "$method $onwho :$reply"
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists seenfound]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 seen.18 $what
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### Greet #####################################
|
|
|
-
|
|
|
-
|
|
|
-proc greetpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set who [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set greet [join [lrange [split $arg] 1 end]]
|
|
|
-set number [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 1]
|
|
|
-set greet [join [lrange [split $arg] 2 end]]
|
|
|
-set number [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-greet:process $who $greet $number $type $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc greet:process {who greet number type nick host hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-set dir "logs/greet($chan).txt"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
|
|
|
- switch $a {
|
|
|
-on {
|
|
|
-channel set $chan +greet
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.7 none
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-channel set $chan -greet
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.8 none
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $greet
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.10 $greet
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set dir "logs/greet($chan).txt"
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 greet.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach mes $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.12 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.10 "$i. $mes"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $number]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.13 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set dir "logs/greet($chan).txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $number - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set files [open $dir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.14 $number
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 greet.15 none
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc greetpublic:join {nick host hand chan} {
|
|
|
-global black
|
|
|
-set dir "logs/greet($chan).txt"
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan greet]} {
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-set replace(%nick%) $nick
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} { return 0 }
|
|
|
-set lines [split $data "\n"]
|
|
|
-set numlines [llength $lines]
|
|
|
-set random [rand $numlines]
|
|
|
-set randomline [lindex $lines $random]
|
|
|
-set message [string map [array get replace] $randomline]
|
|
|
-if {$black(howgreet) == "1"} {
|
|
|
-puthelp "NOTICE $nick :$message"
|
|
|
-} else { puthelp "PRIVMSG $nick :$message" }
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-################################ Leave ###################################
|
|
|
-
|
|
|
-proc leave:process {who leave number type nick host hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($who == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off|add|list|del)} $who tmp a]) && (![regexp -nocase -- {\S#} $who])} {
|
|
|
- switch $a {
|
|
|
-on {
|
|
|
-channel set $chan +leave
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.7 none
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-channel set $chan -leave
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.8 none
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set file [open $dir a]
|
|
|
-puts $file $leave
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.10 $leave
|
|
|
-}
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-set file [open $dir "r"]
|
|
|
-set w [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $w "\n"]
|
|
|
-set i 0
|
|
|
-if {$data == ""} { blacktools:tell $nick $host $hand $chan $chan1 leave.11 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach mes $data {
|
|
|
-set i [expr $i +1]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.12 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.10 "$i. $mes"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-if {![regexp {^[0-9]} $number]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.13 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set lines [split $data "\n"]
|
|
|
-set i [expr $number - 1]
|
|
|
-set delete [lreplace $lines $i $i]
|
|
|
-set files [open $dir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $dir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.14 $number
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 leave.15 none
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc leavepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 0]
|
|
|
-set leave [join [lrange [split $arg] 1 end]]
|
|
|
-set number [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 1]
|
|
|
-set leave [join [lrange [split $arg] 2 end]]
|
|
|
-set number [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-leave:process $who $leave $number $type $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc leavepublic:part {nick host hand chan args} {
|
|
|
-global black
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-if {![validchan $chan]} { return 0 }
|
|
|
-if {[channel get $chan leave]} {
|
|
|
-if {[file exists $dir] == 0} {
|
|
|
-set file [open $dir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-set replace(%nick%) $nick
|
|
|
-set file [open $dir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} { return 0 }
|
|
|
-set lines [split $data "\n"]
|
|
|
-set numlines [llength $lines]
|
|
|
-set random [rand $numlines]
|
|
|
-set randomline [lindex $lines $random]
|
|
|
-set message [string map [array get replace] $randomline]
|
|
|
-if {$black(howleave) == "1"} {
|
|
|
-puthelp "NOTICE $nick :$message"
|
|
|
-} else { puthelp "PRIVMSG $nick :$message" }
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-################################ Idle ###################################
|
|
|
-
|
|
|
-
|
|
|
-proc antidlepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set type1 0
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set type [lindex [split $arg] 1]
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-set host [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set type [lindex [split $arg] 2]
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set host [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-antidle:process $why $type $type1 $user $host $nick $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc antidle:process {why type type1 user host nick hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-set flag "-|f"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $user]
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type1 == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type1 == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type1 == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type1 == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|op|voice|add|on|off)} $why tmp idler]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $idler {
|
|
|
-on {
|
|
|
- channel set $chan +antidle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.7 none
|
|
|
-}
|
|
|
-off {
|
|
|
-
|
|
|
- channel set $chan -antidle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.8 none
|
|
|
-}
|
|
|
-
|
|
|
-op {
|
|
|
- if {$type == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[string match -nocase $type "on"]} {
|
|
|
-if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
|
|
|
-if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chan +antididle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.11 none
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase $type "off"]} {
|
|
|
-if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
|
|
|
-if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chan -antididle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.12 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-voice {
|
|
|
- if {$type == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.13 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase $type "on"]} {
|
|
|
-
|
|
|
-if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
|
|
|
-if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chan +antividle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.14 none
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase $type "off"]} {
|
|
|
-if {[channel get $chan antidle]} { set antidle "on" } else { set antidle "off"}
|
|
|
-if {$antidle == "off"} { blacktools:tell $nick $host $hand $chan $chan1 idle.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-channel set $chan -antividle
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.15 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {$user == ""} { blacktools:tell $nick $host $hand $chan $chan1 idle.16 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {(![onchan $user $chan]) && (![validuser $user])} { blacktools:tell $nick $host $hand $chan $chan1 idle.17 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.18 $user
|
|
|
-} else {
|
|
|
-set hosts [getchanhost $user $chan]
|
|
|
-set uhost "*!*@[lindex [split $hosts @] 1]"
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 idle.19 "$user $uhost"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc idlewhoispublic {min hour day mon year} {
|
|
|
-global black botnick
|
|
|
-if {([scan $min %d]+([scan $hour %d]*60)) % $black(idleinterval) == 0} {
|
|
|
-foreach chan [channels] {
|
|
|
-if {[channel get $chan antidle]} {
|
|
|
-foreach user [chanlist $chan] {
|
|
|
-set user [split $user]
|
|
|
-set handle [nick2hand $user]
|
|
|
-if {[isop $user $chan] || [isvoice $user $chan]} {
|
|
|
-if {$user != $botnick} { putserv "WHOIS $user $user" }
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bind raw - 317 idleprocespublic
|
|
|
-}
|
|
|
-
|
|
|
-proc idleprocespublic {nick int arg} {
|
|
|
-global black
|
|
|
-set nick [string tolower [lindex $arg 1]]
|
|
|
-set handle [nick2hand $nick]
|
|
|
-set idler [string tolower [lindex $arg 2]]
|
|
|
-set minutesidle [expr $idler / 60]
|
|
|
-foreach chan [channels] {
|
|
|
-set replace(%chan%) $chan
|
|
|
-set idlevoicetime [channel get $chan idlevoicemax]
|
|
|
-if {$idlevoicetime == "0"} { set idlevoicetime "$black(idlevoicemax)" }
|
|
|
-set idleoptime [channel get $chan idleopmax]
|
|
|
-if {$idleoptime == "0"} { set idleoptime "$black(idleopmax)" }
|
|
|
-if {[channel get $chan antividle]} {
|
|
|
-if {[isvoice $nick $chan] && ![matchattr $handle -|f $chan]} {
|
|
|
-if {$minutesidle > $idlevoicetime} {
|
|
|
-putserv "MODE $chan -v $nick"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-if {[channel get $chan antididle]} {
|
|
|
-if {[isop $nick $chan] && ![matchattr $handle -|f $chan]} {
|
|
|
-if {$minutesidle > $idleoptime} {
|
|
|
-putserv "MODE $chan -o $nick"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-######################################### AntiBotIdle #############################
|
|
|
-
|
|
|
-
|
|
|
-proc botidlepublic {nick host hand chan arg} {
|
|
|
-global black botnick sdir
|
|
|
-set what [lindex [split $arg] 0]
|
|
|
-set lin 0
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 antibotidle.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-botidle:process $nick $host $hand $chan $chan1 $what
|
|
|
-}
|
|
|
-
|
|
|
-proc botidle:process {nick host hand chan chan1 what} {
|
|
|
-global botnick black sdir
|
|
|
-set lin 0
|
|
|
-switch -exact -- [string tolower $what] {
|
|
|
-on {
|
|
|
-set type "antibotidle:module ON"
|
|
|
-foreach tmr [timers] {
|
|
|
-if {[string match "*antibotidle:module*" [join [lindex $tmr 1]]]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 antibotidle.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set who [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {[string match -nocase "antibotidle:module" $who]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $sdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $sdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $sdir "a"]
|
|
|
-puts $file "$type"
|
|
|
-close $file
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 antibotidle.4 none
|
|
|
-timer $black(noidlemax) antibotidle:module
|
|
|
-}
|
|
|
-
|
|
|
-off {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 antibotidle.5 none
|
|
|
-set type "antibotidle:module OFF"
|
|
|
-foreach tmr [timers] {
|
|
|
-if {[string match "*antibotidle:module*" [join [lindex $tmr 1]]]} {
|
|
|
-killtimer [lindex $tmr 2]
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set who [lindex [split $line] 0]
|
|
|
-set stats [lindex [split $line] 1]
|
|
|
-if {[string match -nocase "antibotidle:module" $who]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $sdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $sdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $sdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $sdir "a"]
|
|
|
-puts $file "$type"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc antibotidle:module {} {
|
|
|
-global black
|
|
|
-putquick "PRIVMSG $black(noobject) :"
|
|
|
-timer $black(noidlemax) antibotidle:module
|
|
|
-return 1
|
|
|
-}
|
|
|
-
|
|
|
-######################################## Comenzi #####################################
|
|
|
-
|
|
|
-proc drpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set drone [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set type "0"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[#&]} $drone] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$drone"
|
|
|
-set drone [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-dr:process $drone $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc dr:process {drone mask nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $drone]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-set getreason [channel get $chan dr-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.dr.5)
|
|
|
-}
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-set getbantime [channel get $chan dr-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(drtime) }
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $drone]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $drone $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $drone $chan] "@"] 1]
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($drone == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 dr.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($drone == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 dr.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($drone == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 dr.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($drone == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 dr.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $getbantime DR($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc botpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set bot [lindex [split $arg] 0]
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bot] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bot"
|
|
|
-set bot [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-bot:process $bot $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-proc bot:process {bot mask nick hand host chan chan1 type} {
|
|
|
-global black botnick
|
|
|
-set handle [nick2hand $bot]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-set getreason [channel get $chan bot-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.bot.5)
|
|
|
-}
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-set getbantime [channel get $chan bot-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(bottime) }
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $bot]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $bot $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $bot $chan] "@"] 1]
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($bot == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bot.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bot == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bot.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($bot == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bot.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bot == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bot.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $getbantime bot($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc b:local {bnick mask time nick reason hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$reason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set reason1 $black(say.$getlang.b.9)
|
|
|
- } else { set reason1 "$reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $bnick]} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $bnick $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($bnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $time b($chan)
|
|
|
-if {$time == "0"} { set reply "Permanent" } else { set reply "$time minute" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.7 "$mask $reply"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc bpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set bnick [lindex [split $arg] 0]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set time [lindex [split $arg] 1]
|
|
|
-set type1 [lindex [split $arg] 1]
|
|
|
-set type2 [lindex [split $arg] 2]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-if {[string match -nocase "global" $type1] || [string match -nocase "global" $type2] && [matchattr $hand nm|- $chan]} {
|
|
|
-if {[string match -nocase $type1 "global"]} {
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-if {[string match -nocase $type2 "global"]} {
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-set list [userlist nm|-]
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-if {[matchattr $handle nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set time "$black(btime)"
|
|
|
-}
|
|
|
-if {$reason == ""} {set reason1 "(GLOBAL) $black(dfreason)"
|
|
|
- } else { set reason1 "(GLOBAL) $reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $bnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {[onchan $bnick $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1]
|
|
|
-}
|
|
|
-newban $mask $hand $reason $time
|
|
|
-if {$time == "0"} { set reply "Permanent" } else { set reply "$time" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.8 "$mask $reply"
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bnick"
|
|
|
-set bnick [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set time [lindex [split $arg] 2]
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set time "$black(btime)"
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "$black(btime)"
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-b:local $bnick $mask $time $nick $reason $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-################################### n #################################
|
|
|
-
|
|
|
-proc n:process {bnick nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-set getreason [channel get $chan n-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.n.5)
|
|
|
-}
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-set getbantime [channel get $chan n-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(ntime) }
|
|
|
-
|
|
|
-if {[isbotnick $bnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($bnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 n.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 n.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 n.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 n.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $bnick $chan]} {
|
|
|
-set mask "$bnick*!*@*"
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$bnick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $getbantime n($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc npublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set bnick [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bnick"
|
|
|
-set bnick [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-n:process $bnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-################################## id #################################
|
|
|
-
|
|
|
-proc idpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set idnick [lindex [split $arg] 0]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $idnick]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $idnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$idnick"
|
|
|
-set idnick [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-id:process $idnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-proc id:process {idnick nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $idnick]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set uhost [getchanhost $idnick $chan]
|
|
|
-set ident "[string trimleft [string tolower [lindex [split $uhost "@"] 0]] "~"]"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-set getreason [channel get $chan id-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.id.5)
|
|
|
-}
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-
|
|
|
-set getbantime [channel get $chan id-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(idtime) }
|
|
|
-
|
|
|
-if {[isbotnick $idnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($idnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 id.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($idnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 id.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($idnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 id.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($idnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 id.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $idnick $chan]} {
|
|
|
- set mask "*!*$ident@*"
|
|
|
- } else { blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$idnick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:banner:3 $mask $hand $chan $getreason $getbantime id($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### black #################################
|
|
|
-
|
|
|
-proc black:process {blnick nick mask hand host chan chan1 reason type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $blnick]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$reason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set reason1 "BlackListed: $black(say.$getlang.black.5)"
|
|
|
- } else { set reason1 "BlackListed: $reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[isbotnick $blnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $blnick $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $blnick $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($blnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 black.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($blnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 black.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($blnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 black.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($blnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 black.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason 0 Black($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc blackpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set blnick [lindex [split $arg] 0]
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-set handle [nick2hand $blnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$blnick"
|
|
|
-set blnick [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################ w ####################################
|
|
|
-
|
|
|
-proc wpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set wnick [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set handle [nick2hand $wnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $wnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$wnick"
|
|
|
-set wnick [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-w:process $wnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-proc w:process {wnick nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $wnick]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[isbotnick $wnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-set getreason [channel get $chan w-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.w.5)
|
|
|
-}
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($wnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 w.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($wnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 w.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($wnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 w.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($wnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 w.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA w($chan)]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA w($chan) $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $wnick :$reason"
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-puthelp "PRIVMSG $wnick :$black(say.$getlang.w.6)"
|
|
|
-}
|
|
|
-
|
|
|
-############################### spam ##################################
|
|
|
-
|
|
|
-proc spam:process {spammer mask nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set handle [nick2hand $spammer]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-set getreason [channel get $chan spam-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.spam.5)
|
|
|
-}
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-set getbantime [channel get $chan spam-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(spamtime) }
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $spammer]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $spammer $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $spammer $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($spammer == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 spam.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($spammer == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 spam.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($spammer == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 spam.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($spammer == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 spam.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $getbantime spam($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc spampublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set spammer [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set type 0
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set handle [nick2hand $spammer]
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $spammer] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$spammer"
|
|
|
-set spammer [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-spam:process $spammer $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################### k #################################
|
|
|
-
|
|
|
-proc k:process {knick nick hand host reason chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $knick]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $knick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan] && ($black(kaccess) == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$reason == ""} {
|
|
|
-
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set reason1 "$black(say.$getlang.k.5)"
|
|
|
- } else { set reason1 "$reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($knick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 k.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($knick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 k.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($knick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 k.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($knick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 k.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $knick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$knick"
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getcount [channel get $chan kickcount]
|
|
|
-set kcount [expr $getcount +1]
|
|
|
-channel set $chan kickcount $kcount
|
|
|
-set countz [getuser $hand XTRA k($chan)]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA k($chan) $counts
|
|
|
-if {[channel get $chan showcount]} {
|
|
|
-set reason "$reason - $kcount -"
|
|
|
-} else {
|
|
|
-set reason "$reason"
|
|
|
-}
|
|
|
-putquick "KICK $chan $knick :$reason"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc kpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set knick [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-set handle [nick2hand $knick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $knick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$knick"
|
|
|
-set knick [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-k:process $knick $nick $hand $host $reason $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################### gag ###############################
|
|
|
-
|
|
|
-proc gag:process {gagger nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $gagger]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($gagger == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gag.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($gagger == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gag.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($gagger == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gag.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($gagger == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gag.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $gagger]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $gagger $chan]} {
|
|
|
- set mask *!*@[lindex [split [getchanhost $gagger $chan] "@"] 1]
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan "$gagger"
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "MODE $chan +b $mask"
|
|
|
-blacktools:tell $gagger $host $hand $chan $chan1 gag.5 "$gagger"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc gagpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set gagger [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set handle [nick2hand $gagger]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $gagger] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$gagger"
|
|
|
-set gagger [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-gag:process $gagger $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################## bw #################################
|
|
|
-
|
|
|
-proc bw:process {abuser mask nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $abuser]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-set getreason [channel get $chan bw-reason]
|
|
|
-if {$getreason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getreason $black(say.$getlang.bw.5)
|
|
|
-}
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $getreason"
|
|
|
-} else { set reason "$getreason"
|
|
|
-}
|
|
|
-set getbantime [channel get $chan bw-bantime]
|
|
|
-if {$getbantime == "0"} { set getbantime $black(bwtime) }
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $abuser]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $abuser $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $abuser $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($abuser == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bw.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($abuser == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bw.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($abuser == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bw.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($abuser == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 bw.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason $getbantime bw($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc bwpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set abuser [lindex [split $arg] 0]
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set handle [nick2hand $abuser]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $abuser] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$abuser"
|
|
|
-set abuser [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-bw:process $abuser $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################ ub ###################################
|
|
|
-
|
|
|
-proc ub:process {ban why nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($ban == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($ban == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($ban == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($ban == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {$ban == "*!*@*"} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
- return 0
|
|
|
- }
|
|
|
- if {[ispermban $ban $chan] && [matchattr $hand -|O $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {($why == "global") && [matchattr $hand nm|- $chan]} {
|
|
|
-
|
|
|
-if {[killban $ban] == "0"} {
|
|
|
-set notfound 1
|
|
|
-}
|
|
|
-
|
|
|
-killban $ban
|
|
|
-if {![info exists notfound]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.6 $ban
|
|
|
-return 0
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 ub.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-if {[killchanban $chan $ban] == "0"} {
|
|
|
-set notfound 1
|
|
|
-}
|
|
|
-
|
|
|
- killchanban $chan $ban
|
|
|
-if {[onchan "X" $chan]} {
|
|
|
-putquick "PRIVMSG $black(chanserv) :unban $chan $ban"
|
|
|
-}
|
|
|
- putquick "MODE $chan -b $ban"
|
|
|
-if {![info exists notfound]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ub.8 $ban
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 ub.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
- if {[channel get $chan chanreport]} {
|
|
|
-set backchan [channel get $chan backchan]
|
|
|
-if {$backchan == ""} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {!([validchan $backchan]) || !([onchan $botnick $backchan])} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $backchan ub.10 "$hand $ban"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc ubpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set ban [lindex [split $arg] 0]
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $ban] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$ban"
|
|
|
-set ban [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-ub:process $ban $why $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################ sb ###################################
|
|
|
-
|
|
|
-proc sb:process {bhost what nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($bhost == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bhost == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($bhost == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($bhost == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase $what "global"] && [matchattr $hand mn|- $chan]} {
|
|
|
-
|
|
|
-foreach ban [banlist] {
|
|
|
-
|
|
|
- set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
|
|
|
- set created [clock format [lindex $ban 3] -format %D-%H:%M:%S]
|
|
|
- set fban [lindex $ban 0]
|
|
|
- set freason [lindex $ban 1]
|
|
|
- set fbywho [lindex $ban 5]
|
|
|
-
|
|
|
-if {[string match $bhost [string tolower [lindex $ban 0]]]} {
|
|
|
-set foundban 1
|
|
|
-if {[lindex $ban 2] == 0} {
|
|
|
-if {[isbansticky [lindex $ban 0]]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.5 "$fban $fbywho $created 0 $freason"
|
|
|
- } else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.6 "$fban $fbywho $created 0 $freason"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-} else {
|
|
|
-if {[isbansticky [lindex $ban 0]]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.7 "$fban $fbywho $created $expire $freason"
|
|
|
-
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.8 "$fban $fbywho $created $expire $freason"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists foundban]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.13 none
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
- foreach ban [banlist $chan] {
|
|
|
-
|
|
|
- set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
|
|
|
- set created [clock format [lindex $ban 3] -format %D-%H:%M:%S]
|
|
|
- set fban [lindex $ban 0]
|
|
|
- set freason [lindex $ban 1]
|
|
|
- set fbywho [lindex $ban 5]
|
|
|
-if {[string match $bhost [string tolower [lindex $ban 0]]]} {
|
|
|
-
|
|
|
-set foundban 1
|
|
|
-
|
|
|
-if {[lindex $ban 2] == 0} {
|
|
|
-if {[isbansticky [lindex $ban 0] $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.9 "$fban $fbywho $created $expire $freason"
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.10 "$fban $fbywho $created 0 $freason"
|
|
|
-}
|
|
|
-
|
|
|
-} else {
|
|
|
-if {[isbansticky [lindex $ban 0] $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.11 "$fban $fbywho $created $expire $freason"
|
|
|
-
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.12 "$fban $fbywho $created $expire $freason"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists foundban]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 sb.13 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc sbpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set bhost [string tolower [lindex [split $arg] 0]]
|
|
|
-set what [lindex [split $arg] 1]
|
|
|
-set chan1 "$chan"
|
|
|
-set type 0
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bhost] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bhost"
|
|
|
-set bhost [string tolower [lindex [split $arg] 1]]
|
|
|
-set what [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-sb:process $bhost $what $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################# d ###################################
|
|
|
-
|
|
|
-
|
|
|
-proc d:process {dnick mask days reason nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $dnick]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($dnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 d.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($dnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 d.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($dnick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 d.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($dnick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 d.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match -nocase $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$reason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set reason1 $black(say.$getlang.d.5)
|
|
|
- } else { set reason1 "$reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[isbotnick $dnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[onchan $dnick $chan]} {
|
|
|
- set mask *!*@[lindex [split [getchanhost $dnick $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:banner:3 $mask $hand $chan $reason [expr $days * 1440] d($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc dpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set days [lindex [split $arg] 0]
|
|
|
-set dnick [lindex [split $arg] 1]
|
|
|
-set type 0
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set handle [nick2hand $dnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $days] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$days"
|
|
|
-set days [lindex [split $arg] 1]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set dnick [lindex [split $arg] 2]
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-if {![regexp {^[0-9]} $days]} {
|
|
|
-set days 1
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set dnick [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $days]} {
|
|
|
-set days 1
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set dnick [lindex [split $arg] 0]
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-d:process $dnick $mask $days $reason $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### stick #################################
|
|
|
-
|
|
|
-proc stick:process {snick mask time reason nick hand host chan chan1 type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $snick]
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-if {[matchattr $handle nm|AMOVS $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$reason == ""} {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set reason1 $black(say.$getlang.stick.5)
|
|
|
- } else { set reason1 "$reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $snick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {[onchan $snick $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $snick $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($snick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stick.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($snick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stick.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($snick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stick.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($snick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stick.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:banner:4 $mask $hand $chan $reason $time stick($chan)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc stickpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set snick [lindex [split $arg] 0]
|
|
|
-set mask [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set type 0
|
|
|
-set time [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set handle [nick2hand $snick]
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $snick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$snick"
|
|
|
-set time [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set snick [lindex [split $arg] 1]
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "$black(dfstickbantime)"
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "$black(dfstickbantime)"
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-stick:process $snick $mask $time $reason $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-################################### t #################################
|
|
|
-
|
|
|
-
|
|
|
-proc tpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set topics [join [lrange [split $arg] 0 end]]
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set topics [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-t:process $nick $host $hand $chan $chan1 $topics $type
|
|
|
-}
|
|
|
-
|
|
|
-proc t:process {nick host hand chan chan1 topics type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($topics == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 t.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($topics == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 t.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($topics == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 t.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($topics == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 t.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set topics "($hand) $topics"
|
|
|
-} else { set topics "$topics"
|
|
|
-}
|
|
|
-putquick "TOPIC $chan :$topics"
|
|
|
-}
|
|
|
-
|
|
|
-############################## status #################################
|
|
|
-
|
|
|
-
|
|
|
-proc statuspublic {nick host hand chan arg} {
|
|
|
-global botnick server uptime {server-online}
|
|
|
-set chan1 "$chan"
|
|
|
-regsub -all " " [channels] ", " chans
|
|
|
-catch {exec uptime} shelluptime
|
|
|
-set up [duration [expr [unixtime] - $uptime]]
|
|
|
-set on [duration [expr [unixtime] - ${server-online}]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.4 $chans
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.5 $shelluptime
|
|
|
-}
|
|
|
-
|
|
|
-############################## uptime #################################
|
|
|
-
|
|
|
-proc uptimepublic {nick host hand chan arg} {
|
|
|
-global botnick uptime {server-online} server
|
|
|
-set chan1 "$chan"
|
|
|
-set up [duration [expr [unixtime] - $uptime]]
|
|
|
-set on [duration [expr [unixtime] - ${server-online}]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
|
|
|
-}
|
|
|
-
|
|
|
-################################# i ###################################
|
|
|
-
|
|
|
-proc ipublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set inick [lrange [split $arg] 0 end]
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set inick [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-i:process $nick $host $hand $chan $chan1 $inick $type
|
|
|
-}
|
|
|
-
|
|
|
-proc i:process {nick host hand chan chan1 inick type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($inick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($inick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($inick == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($inick == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set replace(%nick%) $nick
|
|
|
-set replace(%chan%) $chan
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getmsg $black(say.$getlang.i.7)
|
|
|
-
|
|
|
-if {[info exists black(say.$getlang.i.7)]} {
|
|
|
-set imessage [string map [array get replace] $getmsg]
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach in $inick {
|
|
|
-if {[onchan $in $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.1 $in
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set countz [getuser $hand XTRA i($chan)]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA i($chan) $counts
|
|
|
-putquick "INVITE $in $chan"
|
|
|
-putquick "PRIVMSG $in :$imessage"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 i.2 $in
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### addinfo ###############################
|
|
|
-
|
|
|
-
|
|
|
-proc addinfopublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set info [join [lrange [split $arg] 0 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$info == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addinfo.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addinfo:process $nick $host $hand $chan $chan1 $info
|
|
|
-}
|
|
|
-
|
|
|
-proc addinfo:process {nick host hand chan chan1 info} {
|
|
|
-global botnick black
|
|
|
-if {[string match -nocase "$info" "off"]} {
|
|
|
-set infos ""
|
|
|
-setuser $hand info $infos
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addinfo.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-setuser $hand info $info
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addinfo.4 $info
|
|
|
-}
|
|
|
-
|
|
|
-############################### purge ###############################
|
|
|
-
|
|
|
-proc purgepublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set reason [join [lrange [split $arg] 0 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$reason == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 purge.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-purge:process $nick $host $hand $chan $chan1 $reason
|
|
|
-}
|
|
|
-
|
|
|
-proc purge:process {nick host hand chan chan1 reason} {
|
|
|
-channel remove $chan
|
|
|
-delchan:stats $chan $hand $host
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 purge.2 none
|
|
|
-putquick "PART $chan :PURGED by $hand :$reason"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################### v #################################
|
|
|
-
|
|
|
-
|
|
|
-proc vpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set arg [split $arg]
|
|
|
-set nick [split $nick]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set arg [lrange $arg 1 end]
|
|
|
-}
|
|
|
-v:process $nick $host $hand $chan $chan1 $arg
|
|
|
-}
|
|
|
-
|
|
|
-proc v:process {nick host hand chan chan1 arg} {
|
|
|
-global botnick black
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$arg == ""} {
|
|
|
-set arg $nick
|
|
|
-}
|
|
|
-
|
|
|
-foreach voicenick $arg {
|
|
|
-if {[isbotnick $voicenick]} { return 0 }
|
|
|
-if {[isvoice $voicenick $chan]} {putquick "MODE $chan -v $voicenick"} else {putquick "MODE $chan +v $voicenick"}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-################################## o ##################################
|
|
|
-
|
|
|
-proc opublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set arg [split $arg]
|
|
|
-set nick [split $nick]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set arg [lrange $arg 1 end]
|
|
|
-}
|
|
|
-o:process $nick $host $hand $chan $chan1 $arg
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc o:process {nick host hand chan chan1 arg} {
|
|
|
-global botnick black
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$arg == ""} {
|
|
|
-set arg $nick
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-foreach opnick $arg {
|
|
|
-if {[isbotnick $opnick]} { return 0 }
|
|
|
-if {[isop $opnick $chan]} {putquick "MODE $chan -o $opnick"} else {putquick "MODE $chan +o $opnick"}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# l ###################################
|
|
|
-
|
|
|
-proc lpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set times [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $times] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$times"
|
|
|
-set times [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-l:process $nick $host $hand $chan $chan1 $times $type
|
|
|
-}
|
|
|
-
|
|
|
-proc l:process {nick host hand chan chan1 time type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($time == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($time == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($time == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($time == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$time >= 300} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-putserv "MODE $chan +$black(lmode)" ;utimer $time [list putquick "MODE $chan -$black(lmode)"]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 l.6 "$black(lmode) $time"
|
|
|
-}
|
|
|
-
|
|
|
-proc chatpublic {nick host hand chan arg} {
|
|
|
-global botnick
|
|
|
-*ctcp:CHAT $nick $host $hand $botnick CHAT $arg
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 chat.1 none
|
|
|
-}
|
|
|
-
|
|
|
-################################ ul ###################################
|
|
|
-
|
|
|
-proc ul:process {nick host hand chan chan1} {
|
|
|
-global black botnick
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "MODE $chan -$black(ulmodes)"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ul.1 $black(ulmodes)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc ulpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-ul:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-################################ say ##################################
|
|
|
-
|
|
|
-
|
|
|
-proc saypublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set text [join [lrange [split $arg] 0 end]]
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set text [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-say:process $nick $host $hand $chan $chan1 $text $type
|
|
|
-}
|
|
|
-
|
|
|
-proc say:process {nick host hand chan chan1 text type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($text == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 say.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 say.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 say.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 say.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-putquick "PRIVMSG $chan :$text"
|
|
|
-}
|
|
|
-
|
|
|
-################################ act ##################################
|
|
|
-
|
|
|
-proc actpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set text [join [lrange [split $arg] 0 end]]
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set text [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-act:process $nick $host $hand $chan $chan1 $text $type
|
|
|
-}
|
|
|
-
|
|
|
-proc act:process {nick host hand chan chan1 text type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($text == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 act.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 act.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 act.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($text == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 act.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "PRIVMSG $chan :\001ACTION $text\001"
|
|
|
-}
|
|
|
-
|
|
|
-############################## broadcast ##############################
|
|
|
-
|
|
|
-proc broadcastpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set text [join [lrange [split $arg] 0 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {$text == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 broadcast.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-broadcast:cmd:process $nick $host $hand $chan $chan1 $text
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc broadcast:cmd:process {nick host hand chan chan1 text} {
|
|
|
-global botnick black
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach c [channels] {
|
|
|
-if {![channel get $c silent]} {
|
|
|
-putquick "PRIVMSG $c :(BROADCAST) $text"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### check #################################
|
|
|
-
|
|
|
-proc checkpublic {nick host hand chan arg} {
|
|
|
- global black
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set checked [lindex [split $arg] 0]
|
|
|
-if {$checked == ""} { blacktools:tell $nick $host $hand $chan $chan1 check.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-check:process $nick $host $hand $chan $chan1 $checked
|
|
|
-}
|
|
|
-
|
|
|
-proc check:process {nick host hand chan chan1 checked} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set handle [nick2hand $checked]
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $checked]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
- if {![onchan $checked $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $checked
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[onchan $checked $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $checked $chan] "@"] 1]
|
|
|
-}
|
|
|
-
|
|
|
-set countz [getuser $hand XTRA check($chan)]
|
|
|
-if {$countz == ""} { set countz 0 }
|
|
|
-set counts [expr $countz + 1]
|
|
|
-setuser $hand XTRA check($chan) $counts
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getmsg $black(say.$getlang.check.3)
|
|
|
-if {[info exists black(say.$getlang.check.3)]} {
|
|
|
-putquick "PRIVMSG $checked :$black(say.$getlang.check.3)"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-############################## version ################################
|
|
|
-
|
|
|
-proc versionpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set chan1 "$chan"
|
|
|
-version:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc version:process {nick host hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 version.1 none
|
|
|
-}
|
|
|
-
|
|
|
-############################### cycle #################################
|
|
|
-
|
|
|
-proc cycle:process {nick host hand chan chan1 reason} {
|
|
|
-global black botnick
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-putquick "PART $chan :$reason"
|
|
|
-utimer 5 [list putquick "JOIN $chan"]
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc cyclepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set reason [join [lrange [split $arg] 0 end]]
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set reason [join [lrange [split $arg] 1 end]]
|
|
|
-}
|
|
|
-cycle:process $nick $host $hand $chan $chan1 $reason
|
|
|
-}
|
|
|
-
|
|
|
-################################ away #################################
|
|
|
-
|
|
|
-proc awaypublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set aw [join [lrange [split $arg] 0 end]]
|
|
|
-if {$aw == "" } {blacktools:tell $nick $host $hand $chan $chan1 away.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-away:process $nick $host $hand $chan $chan1 $aw
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc away:process {nick host hand chan chan1 aw} {
|
|
|
-global black botnick wdir
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[string match -nocase "$aw" "off"]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 away.3 none
|
|
|
-putquick "AWAY :"
|
|
|
-set type [open $wdir w]
|
|
|
-set none ""
|
|
|
-puts $type "$none"
|
|
|
-close $type
|
|
|
-
|
|
|
-return 0
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 away.4 $aw ; putquick "AWAY :$aw"
|
|
|
-set type [open $wdir w]
|
|
|
-puts $type "$aw"
|
|
|
-close $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc setaway {my} {
|
|
|
-global wdir
|
|
|
-if {[file exists $wdir] == 0} {
|
|
|
-set file [open $wdir a]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set aways [open $wdir r]
|
|
|
-set away "[gets $aways]"
|
|
|
-catch {close $aways}
|
|
|
-if {$away == ""} {
|
|
|
- return 0
|
|
|
-} else {
|
|
|
-putserv "AWAY :"
|
|
|
-putserv "AWAY :$away"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################### mode ######################################
|
|
|
-
|
|
|
-proc modepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set modes [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set type 0
|
|
|
-if {[regexp {^[#&]} $modes] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$modes"
|
|
|
-set modes [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-mode:process $nick $host $hand $chan $chan1 $modes $type
|
|
|
-}
|
|
|
-
|
|
|
-proc mode:process {nick host hand chan chan1 modes type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($modes == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($modes == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($modes == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($modes == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[+ -]} $modes]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 mode.6 $modes
|
|
|
-putserv "MODE $chan $modes"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################## myset #############################
|
|
|
-
|
|
|
-proc mysetpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set chan1 "$chan"
|
|
|
-set flags [lindex [split $arg] 0]
|
|
|
-set type [lindex [split $arg] 1]
|
|
|
-if {$type == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 myset.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-myset:process $nick $host $hand $chan $chan1 $flags $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc myset:process {nick host hand chan chan1 flags typez} {
|
|
|
-global black
|
|
|
-switch -exact -- [string tolower $flags] {
|
|
|
-lang {
|
|
|
-setuser $hand XTRA OUTPUT_LANG $typez
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 myset.1 $typez
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-output {
|
|
|
-if {[string match -nocase $typez "notice"]} {
|
|
|
-setuser $hand XTRA OUTPUT_TYPE 1
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[string match -nocase $typez "chan"]} {
|
|
|
-setuser $hand XTRA OUTPUT_TYPE 0
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# set #################################
|
|
|
-
|
|
|
-proc setpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set flags [lindex [split $arg] 0]
|
|
|
-set type [join [lrange [split $arg] 1 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-set type1 0
|
|
|
-if {[regexp {^[#&]} $flags] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$flags"
|
|
|
-set flags [lindex [split $arg] 1]
|
|
|
-set type [join [lrange [split $arg] 2 end]]
|
|
|
-}
|
|
|
-set:process $nick $host $hand $chan $chan1 $flags $type $type1
|
|
|
-}
|
|
|
-
|
|
|
-proc set:process {nick host hand chan chan1 flags type type1} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($flags == "") && ($type1 == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 set.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($flags == "") && ($type1 == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 set.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($flags == "") && ($type1 == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 set.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($flags == "") && ($type1 == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 set.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
- if {$type == ""} {
|
|
|
-set why [catch {channel set $chan $flags} error]
|
|
|
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.5 $flags
|
|
|
-return 0
|
|
|
-} else {
|
|
|
-channel set $chan $flags ; blacktools:tell $nick $host $hand $chan $chan1 set.6 $flags
|
|
|
-}
|
|
|
-
|
|
|
-} else {
|
|
|
-set why [catch {channel set $chan $flags $type} error]
|
|
|
-if {!([matchattr $hand mn|- $chan]) && [string match -nocase "backchan" $flags]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
|
|
|
-return 0
|
|
|
-} else {
|
|
|
- channel set $chan $flags $type ; blacktools:tell $nick $host $hand $chan $chan1 set.8 "$flags $type"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc ignorepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set chan1 "$chan"
|
|
|
-set what [lindex [split $arg] 0]
|
|
|
-set mask [lindex [split $arg] 1]
|
|
|
-set time [lindex [split $arg] 2]
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-ignore:process $nick $host $hand $chan $chan1 $what $mask $time $reason
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc ignore:process {nick host hand chan chan1 what mask time reason} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-switch -exact -- [string tolower $what] {
|
|
|
-
|
|
|
-list {
|
|
|
-
|
|
|
-if {[llength [ignorelist]] == "0"} { blacktools:tell $nick $host $hand $chan $chan1 ignore.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-foreach ig [ignorelist] {
|
|
|
-set hostig [lindex $ig 0]
|
|
|
-set byig [lindex $ig 4]
|
|
|
-set time [lindex $ig 2]
|
|
|
-set reasig [lindex $ig 1]
|
|
|
-if {$time != "0"} {
|
|
|
-set bytime [clock format $time -format %D-%H:%M:%S]
|
|
|
-} else { set bytime "-"}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ignore.4 "$hostig $byig $bytime $reasig"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[isignore $mask]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ignore.5 "$mask"
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "60"
|
|
|
-}
|
|
|
-if {$reason == ""} { set reason "No Reason" }
|
|
|
-newignore $mask $hand $reason $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ignore.6 "$mask $time $reason"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-delete {
|
|
|
-if {$mask == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[isignore $mask]} {
|
|
|
-killignore $mask
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 ignore.8 "$mask"
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 ignore.9 "$mask"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# show ################################
|
|
|
-
|
|
|
-proc showpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set wich [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $wich] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$wich"
|
|
|
-set wich [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-show:process $nick $host $hand $chan $chan1 $wich $type
|
|
|
-}
|
|
|
-
|
|
|
-proc show:process {nick host hand chan chan1 wich type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($wich == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 show.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($wich == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 show.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($wich == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 show.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($wich == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 show.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-set why [catch {channel get $chan $wich} error]
|
|
|
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 show.5 $wich
|
|
|
-return 0
|
|
|
-} else {
|
|
|
-set replyinfo [channel get $chan $wich]
|
|
|
-
|
|
|
-if {($replyinfo == "") || ($replyinfo == "0")} {
|
|
|
-switch -exact -- [string tolower $wich] {
|
|
|
-
|
|
|
-antipub-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antipub.1)
|
|
|
-}
|
|
|
-
|
|
|
-antilongtextmax {
|
|
|
-set replyinfo [channel get $chan antilongtextmax]
|
|
|
-if {$replyinfo == "0"} {
|
|
|
-set replyinfo "$black(longchar)"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-joinflood {
|
|
|
-set replyinfo [channel get $chan joinflood]
|
|
|
-if {$replyinfo == ""} {
|
|
|
-set replyinfo "4 5"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-chanflood {
|
|
|
-set replyinfo [channel get $chan chanflood]
|
|
|
-if {$replyinfo == ""} {
|
|
|
-set replyinfo "4 5"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-idleopmax {
|
|
|
-set replyinfo [channel get $chan idleopmax]
|
|
|
-if {$replyinfo == "0"} {
|
|
|
-set replyinfo "$black(idleopmax)"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-idlevoicemax {
|
|
|
-set replyinfo [channel get $chan idlevoicemax]
|
|
|
-if {$replyinfo == "0"} {
|
|
|
-set replyinfo "$black(idlevoicemax)"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-private-bantime {
|
|
|
-set replyinfo "$black(privatebantime)"
|
|
|
-}
|
|
|
-
|
|
|
-private-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.private.12)
|
|
|
-}
|
|
|
-
|
|
|
-antipub-bantime {
|
|
|
-set replyinfo "$black(antipubbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antinotice-bantime {
|
|
|
-set replyinfo "$black(antinoticebantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antinotice-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antinotice.1)
|
|
|
-}
|
|
|
-
|
|
|
-antictcp-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antictcp.1)
|
|
|
-}
|
|
|
-
|
|
|
-antictcp-bantime {
|
|
|
-set replyinfo "$black(antictcpbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antibadword-bantime {
|
|
|
-set replyinfo "$black(antibadwordbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antibadword-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antibadword.1)
|
|
|
-}
|
|
|
-
|
|
|
-antilongtext-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antilongtext.1)
|
|
|
-}
|
|
|
-
|
|
|
-antilongtext-bantime {
|
|
|
-set replyinfo "$black(longbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antibadquitpart-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antibadquitpart.1)
|
|
|
-}
|
|
|
-
|
|
|
-antibadquitpart-bantime {
|
|
|
-set replyinfo "$black(badquitparttime)"
|
|
|
-}
|
|
|
-
|
|
|
-antijoinpart-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antijoinpart.1)
|
|
|
-}
|
|
|
-
|
|
|
-antijoinpart-bantime {
|
|
|
-set replyinfo "$black(joinpartbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antispam-bantime {
|
|
|
-set replyinfo "$black(spamban)"
|
|
|
-}
|
|
|
-
|
|
|
-antispam-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antispam.1)
|
|
|
-}
|
|
|
-
|
|
|
-antirepeat-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antirepeat.1)
|
|
|
-}
|
|
|
-
|
|
|
-antirepeat-setting {
|
|
|
-set replyinfo "$black(repeats)"
|
|
|
-}
|
|
|
-
|
|
|
-antirepeat-bantime {
|
|
|
-set replyinfo "$black(antirepeatbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-anticolor-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.anticolor.1)
|
|
|
-}
|
|
|
-
|
|
|
-anticolor-bantime {
|
|
|
-set replyinfo "$black(anticolorbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antibold-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antibold.1)
|
|
|
-}
|
|
|
-
|
|
|
-antibold-bantime {
|
|
|
-set replyinfo "$black(antiboldbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antiunderline-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antiunderline.1)
|
|
|
-}
|
|
|
-
|
|
|
-antiunderline-bantime {
|
|
|
-set replyinfo "$black(antiunderlinebantime)"
|
|
|
-}
|
|
|
-
|
|
|
-anticaps-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.anticaps.1)
|
|
|
-}
|
|
|
-
|
|
|
-anticaps-bantime {
|
|
|
-set replyinfo "$black(anticapsbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-badfullname-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.badfullname.1)
|
|
|
-}
|
|
|
-
|
|
|
-badfullname-bantime {
|
|
|
-set replyinfo "$black(badfbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-badnick-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.badnick.1)
|
|
|
-}
|
|
|
-
|
|
|
-badnick-bantime {
|
|
|
-set replyinfo "$black(badnickbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-badident-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.badident.1)
|
|
|
-}
|
|
|
-
|
|
|
-badident-bantime {
|
|
|
-set replyinfo "$black(badidentbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-antichanflood-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.antichanflood.1)
|
|
|
-}
|
|
|
-
|
|
|
-antichanflood-bantime {
|
|
|
-set replyinfo "$black(antifloodchanbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-badchan-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.badchan.15)
|
|
|
-}
|
|
|
-
|
|
|
-badchan-bantime {
|
|
|
-set replyinfo "$black(badcbantime)"
|
|
|
-}
|
|
|
-
|
|
|
-count-message {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.count.11)
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-dr-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.dr.5)
|
|
|
-}
|
|
|
-
|
|
|
-dr-bantime {
|
|
|
-set replyinfo "$black(drtime)"
|
|
|
-}
|
|
|
-
|
|
|
-bot-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.bot.5)
|
|
|
-}
|
|
|
-
|
|
|
-bot-bantime {
|
|
|
-set replyinfo "$black(bottime)"
|
|
|
-}
|
|
|
-
|
|
|
-n-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.n.5)
|
|
|
-}
|
|
|
-
|
|
|
-n-bantime {
|
|
|
-set replyinfo "$black(ntime)"
|
|
|
-}
|
|
|
-
|
|
|
-id-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.id.5)
|
|
|
-}
|
|
|
-
|
|
|
-id-bantime {
|
|
|
-set replyinfo "$black(idtime)"
|
|
|
-}
|
|
|
-
|
|
|
-w-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.w.5)
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-spam-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.spam.5)
|
|
|
-}
|
|
|
-
|
|
|
-spam-bantime {
|
|
|
-set replyinfo "$black(spamtime)"
|
|
|
-}
|
|
|
-
|
|
|
-bw-reason {
|
|
|
-set getlang [string tolower [channel get $chan lang]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set replyinfo $black(say.$getlang.bw.5)
|
|
|
-}
|
|
|
-
|
|
|
-bw-bantime {
|
|
|
-set replyinfo "$black(bwtime)"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 show.6 "$wich $replyinfo"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## silence ################################
|
|
|
-
|
|
|
-proc silencepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set value [lindex [split $arg] 0]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-if {$value == ""} { blacktools:tell $nick $host $hand $chan $chan1 silence.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-silence:process $nick $host $hand $chan $chan1 $value
|
|
|
-}
|
|
|
-
|
|
|
-proc silence:process {nick host hand chan chan1 value} {
|
|
|
-global botnick black
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|on|off)} $value tmp silents]) && (![regexp -nocase -- {\S#} $value])} {
|
|
|
- switch $silents {
|
|
|
-on { blacktools:tell $nick $host $hand $chan $chan1 silence.3 none ; putquick "SILENCE +*!*@*"
|
|
|
-}
|
|
|
-off { blacktools:tell $nick $host $hand $chan $chan1 silence.4 none ; putquick "SILENCE -*!*@*"
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## msg ####################################
|
|
|
-
|
|
|
-proc msgpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set nicks [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set msg [join [lrange [split $arg] 1 end]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} {blacktools:tell $nick $host $hand $chan $chan1 msg.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[isbotnick $nicks]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "PRIVMSG $nicks :$msg"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### reset #################################
|
|
|
-
|
|
|
-proc resetpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set dece [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $dece] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$dece"
|
|
|
-set dece [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-reset:process $nick $host $hand $chan $chan1 $dece $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc reset:process {nick host hand chan chan1 dece type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($dece == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($dece == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($dece == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($dece == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[string match -nocase "all" "$dece"]} {
|
|
|
-set emptyflag "antipub-reason antinotice-reason antictcp-reason antibadword-reason antilongtext-reason antijoinpart-reason antirepeat-reason antirepeat-setting antispam-reason anticolor-reason antibold-reason antiunderline-reason anticaps-reason badfullname-reason badnick-reason badident-reason antichanflood-reason chanflood joinflood private-reason dr-reason n-reason id-reason spam-reason w-reason bw-reason bot-reason badchan-reason count-message"
|
|
|
-foreach eflag $emptyflag {
|
|
|
-channel set $chan $eflag ""
|
|
|
-}
|
|
|
-set zeroflag "antinotice-bantime antipub-bantime antictcp-bantime antibadword-bantime antilongtext-bantime antijoinpart-bantime antispam-bantime idleopmax idlevoicemax antilongtextmax antirepeat-bantime anticolor-bantime antibold-bantime antiunderline-bantime anticaps-bantime badfullname-bantime badnick-bantime badident-bantime antichanflood-bantime private-bantime dr-bantime n-bantime id-bantime spam-bantime bw-bantime bot-bantime kickcount"
|
|
|
-foreach oflag $zeroflag {
|
|
|
-channel set $chan $oflag 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set why [catch {channel set $chan $dece ""} error]
|
|
|
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 reset.6 $dece
|
|
|
-} else {
|
|
|
-channel set $chan $dece ""
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 reset.7 $dece
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################### banlist ###################################
|
|
|
-
|
|
|
-proc banlistpublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-banlist:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc banlist:process {nick host hand chan chan1 user type} {
|
|
|
-global botnick black
|
|
|
-set i 0
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan] && [string match -nocase "global" $user]} {
|
|
|
-
|
|
|
-foreach ban [banlist] {
|
|
|
-
|
|
|
-set i [expr $i +1]
|
|
|
-set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
|
|
|
-set create [clock format [lindex $ban 3] -format %D-%H:%M:%S]
|
|
|
-set fban [lindex $ban 0]
|
|
|
-set freason [lindex $ban 1]
|
|
|
-set fbywho [lindex $ban 5]
|
|
|
-
|
|
|
-if {[lindex $ban 2] == 0} {
|
|
|
-set expire "Permanent"
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.10 "$fban $fbywho $create $expire $freason"
|
|
|
-set foundban 1
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists foundban]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.7 none
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 banlist.8 none }
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![matchattr $user nm|OASMN $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach ban [banlist $chan] {
|
|
|
-set own [lindex $ban 5]
|
|
|
-if {[string match -nocase $own $user]} {
|
|
|
-set i [expr $i +1]
|
|
|
-set expire [clock format [lindex $ban 2] -format %D-%H:%M:%S]
|
|
|
-set create [clock format [lindex $ban 3] -format %D-%H:%M:%S]
|
|
|
-set fban [lindex $ban 0]
|
|
|
-set freason [lindex $ban 1]
|
|
|
-
|
|
|
-if {[lindex $ban 2] == 0} {
|
|
|
-set expire "Permanent"
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.11 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.12 "$fban $create $expire $freason"
|
|
|
-set foundban 1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists foundban]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.11 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.7 $user
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 banlist.8 $user }
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## rehash #################################
|
|
|
-
|
|
|
-proc rehashme {nick host hand arg} {
|
|
|
-global black
|
|
|
-blacktools:tell:prv $nick $host $hand rehash.1 none
|
|
|
- rehash
|
|
|
-}
|
|
|
-
|
|
|
-############################## VERSION ################################
|
|
|
-
|
|
|
-proc blackreply {nick host hand dest key text} {
|
|
|
-global ctcp-version
|
|
|
-set {ctcp-version} "1Using 4BlackTools 2.3 1by 12BLaCkShaDoW"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## restart ################################
|
|
|
-
|
|
|
-proc restartme {nick host hand arg} {
|
|
|
-global black
|
|
|
-blacktools:tell:prv $nick $host $hand restart.1 none
|
|
|
-utimer 3 [list restart ]
|
|
|
-}
|
|
|
-
|
|
|
-############################### save #################################
|
|
|
-
|
|
|
-proc saveme {nick host hand arg} {
|
|
|
-global black
|
|
|
-blacktools:tell:prv $nick $host $hand save.1 none
|
|
|
- save
|
|
|
-}
|
|
|
-
|
|
|
-############################### jump #################################
|
|
|
-
|
|
|
-proc jumpme {nick host hand arg} {
|
|
|
-global black
|
|
|
-blacktools:tell:prv $nick $host $hand jump.1 none
|
|
|
- utimer 3 [list jump]
|
|
|
-}
|
|
|
-
|
|
|
-############################### die ###################################
|
|
|
-
|
|
|
-proc dieme {nick host hand arg} {
|
|
|
-global black
|
|
|
-blacktools:tell:prv $nick $host $hand die.1 none
|
|
|
-utimer 3 [list die "byeeee" ]
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## nick ###################################
|
|
|
-
|
|
|
-proc nickpublic {altnick host hand arg} {
|
|
|
-global nick black
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-set newnick [lindex [split $arg] 0]
|
|
|
-if {$newnick == ""} { blacktools:tell:prv $nick $host $hand nick.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell:prv $nick $host $hand nick.1 "$newnick"
|
|
|
-set nick $newnick
|
|
|
-}
|
|
|
-
|
|
|
-proc nick:process {who newnick host hand chan} {
|
|
|
-global black nick
|
|
|
-set chan1 "$chan"
|
|
|
-if {$newnick == ""} {
|
|
|
-blacktools:tell $who $host $hand $chan $chan1 nick.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $who $host $hand $chan $chan1 nick.1 none
|
|
|
-set nick $newnick
|
|
|
-}
|
|
|
-
|
|
|
-############################## addchan ################################
|
|
|
-
|
|
|
-proc addchanpublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chans [lindex [split $arg] 0]
|
|
|
-if {$chans == ""} {blacktools:tell:prv $nick $host $hand addchan.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[#&]} $chans]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validchan $chans]} {
|
|
|
-blacktools:tell:prv $nick $host $hand addchan.2 "$chans"
|
|
|
-return 0
|
|
|
-} else {
|
|
|
-channel add $chans
|
|
|
-addchan:stats $chans $hand $host
|
|
|
-blacktools:tell:prv $nick $host $hand addchan.3 "$chans"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc addchan:stats {chan hand host} {
|
|
|
-global black botnick statsdir
|
|
|
-set k 0
|
|
|
-set time [unixtime]
|
|
|
-set file [open $statsdir "r"]
|
|
|
-set addfile "$chan ADDED $hand $host $time 0"
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set k [expr $k +1]
|
|
|
-set chanentry [lindex [split $line] 0]
|
|
|
-set addtype [lindex [split $line] 1]
|
|
|
-if {[string equal -nocase "REMOVED" "$addtype"] && [string match -nocase $chanentry $chan]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $k - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $statsdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $statsdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $statsdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $statsdir "a"]
|
|
|
-puts $file "$addfile"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc delchan:stats {chan hand host} {
|
|
|
-global black botnick statsdir
|
|
|
-set k 0
|
|
|
-set time [unixtime]
|
|
|
-set file [open $statsdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-set addfile "$chan REMOVED $hand $host $time 0 0 none none"
|
|
|
-foreach line $data {
|
|
|
-set k [expr $k +1]
|
|
|
-set chanentry [lindex [split $line] 0]
|
|
|
-set addtype [lindex [split $line] 1]
|
|
|
-if {[string equal -nocase "REMOVED" "$addtype"] && [string match -nocase $chanentry $chan]} {
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $k - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $statsdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-if {[string equal -nocase "ADDED" "$addtype"] && [string match -nocase $chanentry $chan]} {
|
|
|
-set added [lindex [split $line] 4]
|
|
|
-set bywho [lindex [split $line] 2]
|
|
|
-set byhost [lindex [split $line] 3]
|
|
|
-set addfile "$chan REMOVED $hand $host $time $added $bywho $byhost"
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $k - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $statsdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $statsdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $statsdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $statsdir "a"]
|
|
|
-puts $file "$addfile"
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-############################## delchan ################################
|
|
|
-
|
|
|
-
|
|
|
-proc delchanpublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chans [lindex [split $arg] 0]
|
|
|
-
|
|
|
-if {$chans == ""} {blacktools:tell:prv $nick $host $hand delchan.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand delchan.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-delchan:stats $chans $hand $host
|
|
|
-channel remove $chans
|
|
|
-blacktools:tell:prv $nick $host $hand delchan.3 $chans
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## suspend ################################
|
|
|
-
|
|
|
-proc suspendpublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chans [lindex [split $arg] 0]
|
|
|
-
|
|
|
-if {$chans == ""} {blacktools:tell:prv $nick $host $hand suspend.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand suspend.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[channel get $chans inactive]} {
|
|
|
-blacktools:tell:prv $nick $host $hand suspend.3 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chans +inactive
|
|
|
-blacktools:tell:prv $nick $host $hand suspend.4 $chans
|
|
|
-}
|
|
|
-
|
|
|
-############################# unsuspend ###############################
|
|
|
-
|
|
|
-proc unsuspendpublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chans [lindex [split $arg] 0]
|
|
|
-
|
|
|
-if {$chans == ""} {blacktools:tell:prv $nick $host $hand unsuspend.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell:prv $nick $host $hand unsuspend.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![channel get $chans inactive]} {
|
|
|
-blacktools:tell:prv $nick $host $hand unsuspend.3 $chans
|
|
|
-return 0
|
|
|
- }
|
|
|
-channel set $chans -inactive
|
|
|
-blacktools:tell:prv $nick $host $hand unsuspend.4 $chans
|
|
|
-}
|
|
|
-
|
|
|
-################################ op ###################################
|
|
|
-
|
|
|
-proc oppublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chan [lindex [split $arg] 0]
|
|
|
-set nicks [lrange [split $arg] 1 end]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.nocmem $chan
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} { set nicks "$nick" }
|
|
|
-if {[matchattr $hand nm|OASM $chan]} {
|
|
|
-if {![regexp {^[\\+!#&]} $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand op.1 $chan
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach nickz $nicks {
|
|
|
-if {[isop $nickz $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand op.2 $nickz
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "MODE $chan +o $nickz"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### deop ##################################
|
|
|
-
|
|
|
-proc deoppublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chan [lindex [split $arg] 0]
|
|
|
-set nicks [lrange [split $arg] 1 end]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.nocmem $chan
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} { set nicks "$nick" }
|
|
|
-if {[matchattr $hand nm|OASM $chan]} {
|
|
|
-if {![regexp {^[\\+!#&]} $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand deop.1 $chan
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach nickz $nicks {
|
|
|
-if {[onchan $nickz $chan]} {
|
|
|
-putquick "MODE $chan -o $nickz"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### voice #################################
|
|
|
-
|
|
|
-proc voicepublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chan [lindex [split $arg] 0]
|
|
|
-set nicks [lrange [split $arg] 1 end]
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.nocmem $chan
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} { set nicks "$nick" }
|
|
|
-if {[matchattr $hand nm|OASM $chan]} {
|
|
|
-if {![regexp {^[\\+!#&]} $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand voice.1 $chan
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach nickz $nicks {
|
|
|
-if {[onchan $nickz $chan]} {
|
|
|
-if {[isvoice $nickz $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand voice.2 $nickz
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "MODE $chan +v $nickz"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## devoice ################################
|
|
|
-
|
|
|
-proc devoicepublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chan [lindex [split $arg] 0]
|
|
|
-set nicks [lrange [split $arg] 1 end]
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.nocmem $chan
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} { set nicks "$nick" }
|
|
|
-if {[matchattr $hand nm|OASM $chan]} {
|
|
|
-if {![regexp {^[\\+!#&]} $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-if {![botisop $chan]} { blacktools:tell:prv $nick $host $hand gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validchan $chan]} { blacktools:tell:prv $nick $host $hand devoice.1 $chan
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach nickz $nicks {
|
|
|
-if {[onchan $nickz $chan]} {
|
|
|
-putquick "MODE $chan -v $nickz"
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## invite #################################
|
|
|
-
|
|
|
-proc invitepublic {nick host hand arg} {
|
|
|
-global black
|
|
|
-set chan [lindex [split $arg] 0]
|
|
|
-set replace(%chan%) $chan
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell:prv $nick $host $hand gl.nocmem $chan
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell:prv $nick $host $hand gl.suspend none"
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|OASM $chan]} {
|
|
|
-if {$chan == ""} { blacktools:tell:prv $nick $host $hand invite.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-putquick "INVITE $nick $chan"
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set getmsg $black(say.$getlang.invite.2)
|
|
|
-if {[info exists black(say.$getlang.invite.2)]} {
|
|
|
-set getmsg [string map [array get replace] $getmsg]
|
|
|
-putquick "PRIVMSG $nick :$getmsg"
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-##############################add ######################################
|
|
|
-
|
|
|
-proc add:process {args time level hand host chan chan1 nick type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flags "nm|NMOSAV"
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-foreach user $args {
|
|
|
-if {$user != ""} {
|
|
|
-set replace(%user%) $user
|
|
|
-if {([string length $user]>=10) && ($black(maxhand) == "1")} {
|
|
|
-set user [string range $user 0 8]
|
|
|
-}
|
|
|
-
|
|
|
-set uhost [string map [array get replace] $black(hostadd)]
|
|
|
-if {[userlist] != ""} {
|
|
|
-foreach usr [userlist] {
|
|
|
-set hst [getuser $usr hosts]
|
|
|
-foreach hhost $hst {
|
|
|
-if {[string match -nocase $hhost $uhost] && (![string match -nocase $usr $user])} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.5 $usr
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|A $chan] && ($level == "manager")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|A $chan] && ($level == "admin")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|M $chan] && ($level == "manager")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|owner|manager|admin|senior|op|voice|protect)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
|
|
|
- switch $access {
|
|
|
- manager {
|
|
|
- set flags "-|olM"
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-SOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
|
|
|
-}
|
|
|
-}
|
|
|
- admin {
|
|
|
-
|
|
|
- set flags "-|olA"
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
- senior {
|
|
|
- set flags "-|olS"
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-owner {
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
- set flags "m|-"
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-op {
|
|
|
- set flags "-|olO"
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-protect {
|
|
|
- set flags "-|H"
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qHolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolHSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- voice {
|
|
|
- set flags "-|lV"
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-########################## adduser ################################
|
|
|
-
|
|
|
-proc adduserpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set level [lindex [split $arg] 0]
|
|
|
-set args [lrange [split $arg] 1 end]
|
|
|
-set c [lindex [split $arg] 1]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 2 end]
|
|
|
-}
|
|
|
-adduser:process $nick $host $hand $chan $chan1 $args $level $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc adduser:process {nick host hand chan chan1 args level type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-set flags "nm|NMOSVA"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 adduser.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 adduser.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 adduser.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 adduser.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach user $args {
|
|
|
-if {$user != ""} {
|
|
|
-if {![onchan $user $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set handle [nick2hand $user]
|
|
|
-set hosts [getchanhost $user $chan]
|
|
|
-set uhost "*!*@[lindex [split $hosts @] 1]"
|
|
|
-
|
|
|
-
|
|
|
-if {([string length $user]>=10) && ($black(maxhand) == "1")} {
|
|
|
-set user [string range $user 0 8]
|
|
|
-}
|
|
|
-if {[userlist] != ""} {
|
|
|
-foreach usr [userlist] {
|
|
|
-set hst [getuser $usr hosts]
|
|
|
-foreach hhost $hst {
|
|
|
-if {[string match -nocase $hhost $uhost] && (![string match -nocase $usr $user])} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.5 $usr
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|A $chan] && ($level == "manager")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|A $chan] && ($level == "admin")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|M $chan] && ($level == "manager")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|owner|manager|admin|senior|op|voice|protect)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
|
|
|
- switch $access {
|
|
|
- manager {
|
|
|
- set flags "-|olM"
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-SOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.9 $user
|
|
|
-}
|
|
|
-}
|
|
|
- admin {
|
|
|
- set flags "-|olA"
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.11 $user
|
|
|
-}
|
|
|
-}
|
|
|
- senior {
|
|
|
- set flags "-|olS"
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.12 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-owner {
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
- set flags "m|-"
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.16 $user
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-op {
|
|
|
- set flags "-|olO"
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.13 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-protect {
|
|
|
- set flags "-|H"
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolHSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolHSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.15 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- voice {
|
|
|
- set flags "-|lV"
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $handle -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $handle n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
|
|
|
-} else {
|
|
|
-adduser $user $uhost
|
|
|
-chattr $user -|-qolSOAMV $chan
|
|
|
-chattr $user $flags $chan
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.10 "$user $uhost"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 add.14 $user
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc publicadd {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set level [lindex [split $arg] 0]
|
|
|
-set time [ctime [unixtime]]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set args [lrange [split $arg] 1 end]
|
|
|
-set c [lindex [split $arg] 1]
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 2 end]
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-add:process $args $time $level $hand $host $chan $chan1 $nick $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################## delacc ################################
|
|
|
-
|
|
|
-proc delaccpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set args [lrange [split $arg] 0 end]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 1 end]
|
|
|
-}
|
|
|
-delacc:process $nick $host $hand $chan $chan1 $args $type
|
|
|
-}
|
|
|
-
|
|
|
-proc delacc:process {nick host hand chan chan1 args type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($args == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delacc.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($args == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delacc.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($args == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delacc.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($args == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delacc.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-foreach user $args {
|
|
|
-if {$user != ""} {
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![matchattr $user nm|aolSOAMV $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chattr $user -|-qaolSOAMV $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delacc.5 $user
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################## del #####################################
|
|
|
-
|
|
|
-proc delpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set args [lrange [split $arg] 0 end]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-del:process $nick $host $hand $chan $chan1 $args $type
|
|
|
-}
|
|
|
-
|
|
|
-proc del:process {nick host hand chan chan1 args type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {($args == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 del.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($args == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 del.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-foreach user $args {
|
|
|
-if {$user != ""} {
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validuser $user]} {
|
|
|
-deluser $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 del.3 $user
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-################################ addhost #############################
|
|
|
-
|
|
|
-proc addhostpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set hosts [lrange [split $arg] 1 end]
|
|
|
-addhost:process $nick $host $hand $chan $chan1 $user $hosts $type
|
|
|
-}
|
|
|
-
|
|
|
-proc addhost:process {nick host hand chan chan1 user hosts type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addhost.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addhost.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-set hhost [getuser $user hosts]
|
|
|
-foreach hhost $hhost {
|
|
|
-if {[string match -nocase $hosts $hhost]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addhost.3 "$user $hosts"
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-setuser $user HOSTS $hosts
|
|
|
-setuser $user XTRA LASTMODIFBY $hand
|
|
|
-setuser $user XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addhost.4 "$user $hosts"
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### delhost ############################
|
|
|
-
|
|
|
-
|
|
|
-proc delhostpuplic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set hosts [lrange [split $arg] 1 end]
|
|
|
-delhost:process $nick $host $hand $chan $chan1 $user $hosts $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc delhost:process {nick host hand chan chan1 user hosts type} {
|
|
|
-global black botnick
|
|
|
-set time [ctime [unixtime]]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delhost.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delhost.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-
|
|
|
-set hhost [getuser $user hosts]
|
|
|
-foreach hhost $hhost {
|
|
|
-if {[string match -nocase $hhost $hosts]} {
|
|
|
-set foundhost 1
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists foundhost]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delhost.3 "$user $hosts"
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-delhost $user $hosts
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delhost.4 "$user $hosts"
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
- }
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc chuserpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set chandle [lindex [split $arg] 1]
|
|
|
-chuser:process $nick $host $hand $chan $chan1 $user $chandle $type
|
|
|
-}
|
|
|
-
|
|
|
-proc chuser:process {nick host hand chan chan1 user chandle type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 chuser.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 chuser.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-chhandle $user $chandle
|
|
|
-setuser $chandle XTRA LASTMODIFBY $hand
|
|
|
-setuser $chandle XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 chuser.3 "$user $chandle"
|
|
|
-} else {blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
|
|
|
-}
|
|
|
-
|
|
|
-proc userlist:execute {hand host level chan chan1 nick type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($level == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|manager|protect|admin|senior|op|voice|all|owner)} $level tmp access]) && (![regexp -nocase -- {\S#} $level])} {
|
|
|
- switch $access {
|
|
|
- manager {
|
|
|
- set flags "-|M"
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
- set list [userlist $flags $chan]
|
|
|
-foreach user [wordwrap [join $list " "] 250 ,] {
|
|
|
- if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.5 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-admin {
|
|
|
- set flags "-|A"
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
- set list [userlist $flags $chan]
|
|
|
-foreach user [wordwrap [join $list " , "] 250 ,] {
|
|
|
-if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.8 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-senior {
|
|
|
-set flags "-|S"
|
|
|
- set list [userlist $flags $chan]
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
-foreach user [wordwrap [join $list " , "] 250 ,] {
|
|
|
-if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.10 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.11 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-protect {
|
|
|
-set flags "-|H"
|
|
|
-set list [userlist $flags $chan]
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
-foreach user [wordwrap [join $list " , "] 250 ,] {
|
|
|
-if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.12 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.13 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-op {
|
|
|
-set flags "-|O"
|
|
|
- set list [userlist $flags $chan]
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
-foreach user [wordwrap [join $list " , "] 250 ,] {
|
|
|
-if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.14 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.15 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-owner {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set bossflags "n|-"
|
|
|
-set ownerflags "m|-"
|
|
|
-set listbossowner [userlist $bossflags]
|
|
|
-set listowner [userlist $ownerflags]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.16 $listbossowner
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.17 $listowner
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-voice {
|
|
|
-set flags "-|V"
|
|
|
- set numar [llength [userlist $flags $chan]]
|
|
|
- set list [userlist $flags $chan]
|
|
|
-foreach user [wordwrap [join $list " , "] 250 ,] {
|
|
|
-if {$list == ""} { set user "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.18 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.19 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-all {
|
|
|
-array set flgc [list]
|
|
|
-set flags "-|MNASVO"
|
|
|
-set list [userlist $flags $chan]
|
|
|
-set numar [llength [userlist $flags $chan]]
|
|
|
-foreach user $list {
|
|
|
-if {[matchattr $user -|V $chan]} {
|
|
|
-lappend flgc(VOICE) $user
|
|
|
-
|
|
|
-} elseif {[matchattr $user -|O $chan]} {
|
|
|
-
|
|
|
-lappend flgc(OP) $user
|
|
|
-} elseif {[matchattr $user -|S $chan]} {
|
|
|
-
|
|
|
-lappend flgc(SENIOR) $user
|
|
|
-
|
|
|
-} elseif {[matchattr $user -|A $chan]} {
|
|
|
-
|
|
|
-lappend flgc(ADMINISTRATOR) $user
|
|
|
-
|
|
|
-} elseif {[matchattr $user -|M $chan]} {
|
|
|
-
|
|
|
-lappend flgc(MANAGER) $user
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach flw [array names flgc] {
|
|
|
-lappend messall [join 4$flgc($flw) " , "] -> 12($flw)
|
|
|
-}
|
|
|
-if {$list == ""} { set messall "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.20 $numar
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.21 none
|
|
|
-foreach mes [wordwrap [join $messall] 250] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 userlist.7 $mes
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc wordwrap {str {len 100} {splitChr { }}} {
|
|
|
- set out [set cur {}]; set i 0
|
|
|
- foreach word [split [set str][unset str] $splitChr] {
|
|
|
- if {[incr i [string len $word]]>$len} {
|
|
|
- lappend out [join $cur $splitChr]
|
|
|
- set cur [list $word]
|
|
|
- set i [string len $word]
|
|
|
- } {
|
|
|
- lappend cur $word
|
|
|
- }
|
|
|
- incr i
|
|
|
- }
|
|
|
- lappend out [join $cur $splitChr]
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc publicuserlist {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set level [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $level] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$level"
|
|
|
-set level [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-userlist:execute $hand $host $level $chan $chan1 $nick $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### channels ########################
|
|
|
-
|
|
|
-proc channelspublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set chan1 "$chan"
|
|
|
-channels:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc channels:process {nick host hand chan chan1} {
|
|
|
-global botnick black
|
|
|
-set num [llength [channels]]
|
|
|
-set minusers "5"
|
|
|
-array set status [list]
|
|
|
-set notonchan "(NoT on ChaN)"
|
|
|
-set notenough "(users < $minusers)"
|
|
|
-set suspended "(SUSPENDED)"
|
|
|
-foreach c [channels] {
|
|
|
-set usersnumber [llength [chanlist $c]]
|
|
|
-if {[channel get $c inactive]} {
|
|
|
-lappend status($c) "4$c $suspended"
|
|
|
-} elseif {![onchan $botnick $c]} {
|
|
|
-lappend status($c) "4$c $notonchan"
|
|
|
-} elseif {[onchan $botnick $c] && (![botisop $c])} {
|
|
|
-lappend status($c) "4$c"
|
|
|
-} elseif {[onchan $botnick $c] && ($usersnumber < $minusers)} {
|
|
|
-lappend status($c) "4$c $notenough"
|
|
|
-}
|
|
|
-if {![info exists status($c)]} {
|
|
|
-lappend status($c) "1@$c"
|
|
|
-}
|
|
|
-
|
|
|
-lappend message "[join $status($c) ", "]"
|
|
|
-
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 channels.1 $num
|
|
|
-foreach word [wordwrap [join $message] 350 ,] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-############################### info ############################
|
|
|
-
|
|
|
-proc infopublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-info:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-proc info:process {nick host hand chan chan1 user type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-array set flg [list]
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[validuser $user]} {
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-foreach c [channels] {
|
|
|
-if {[matchattr $user -|V $c]} {
|
|
|
-set fl "VOICE"
|
|
|
-lappend flg($fl) $c
|
|
|
-} elseif {[matchattr $user -|O $c]} {
|
|
|
-set fl "OP"
|
|
|
-lappend flg($fl) $c
|
|
|
-} elseif {[matchattr $user -|S $c]} {
|
|
|
- set fl "SENIOR"
|
|
|
-lappend flg($fl) $c
|
|
|
-} elseif {[matchattr $user -|A $c]} {
|
|
|
-set fl "ADMINISTRATOR"
|
|
|
-lappend flg($fl) $c
|
|
|
-} elseif {[matchattr $user -|M $c]} {
|
|
|
-set fl "MANAGER"
|
|
|
-lappend flg($fl) $c
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-foreach cf [array names flg] {
|
|
|
-
|
|
|
-lappend exit 1[join $flg($cf) ,] 12($cf) |
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-if {![matchattr $user nm|OAHSMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-if {![info exists exit]} { set exit "1NONE"}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.5 "[join $exit]"
|
|
|
-if {[getuser $user HOSTS] != ""} {
|
|
|
-set hosts [getuser $user hosts]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
|
|
|
-}
|
|
|
-set lastseen [getuser $user LASTON $chan]
|
|
|
-if {($lastseen == "0") || ($lastseen == "")} {
|
|
|
-set seened "1NONE"
|
|
|
-} else { set seened [ctime $lastseen] }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.7 $seened
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set suspendat "$black(say.$getlang.info.10)"
|
|
|
-
|
|
|
-set cflags [chattr $user | $chan]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.8 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.9 $time
|
|
|
-if {[matchattr $user -|V $chan]} { set flags "VOICE" } elseif {[matchattr $user -|O $chan]} { set flags "OP" } elseif {[matchattr $user -|S $chan]} { set flags "SENIOR" } elseif {[matchattr $user -|A $chan]} { set flags "ADMINISTRATOR" } elseif {[matchattr $user -|H $chan]} { set flags "PROTECT"}
|
|
|
-if {[matchattr $user -|M $chan]} { set flags "MANAGER" } elseif {[matchattr $user n|- $chan]} { set flags "THE BOSS OWNER" } elseif {[matchattr $user m|- $chan]} { set flags "OWNER" } elseif {$cflags == "-|-"} {puthelp "NOTICE $nick :$user nu are ACCESS pe acest canal !"
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $user -|q $chan]} {
|
|
|
-if {[matchattr $user -|V $chan]} { set flags "VOICE ($suspendat)" } elseif {[matchattr $user -|O $chan]} { set flags "OP ($suspendat)" } elseif {[matchattr $user -|S $chan]} { set flags "SENIOR ($suspendat)" } elseif {[matchattr $user -|A $chan]} { set flags "ADMINISTRATOR ($suspendat)" } elseif {[matchattr $user -|O $chan]} { set flags "PROTECT ($suspendat)"}
|
|
|
-if {[matchattr $user -|M $chan]} { set flags "MANAGER ($suspendat)" } elseif {[matchattr $user m|- $chan]} { set flags "OWNER ($suspendat)" } elseif {$cflags == "-|-"} {puthelp "NOTICE $nick :$user
|
|
|
-
|
|
|
-S pe acest canal !"
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.11 "$cflags $flags"
|
|
|
-if {[getuser $user INFO] != ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.12 "[getuser $user INFO]"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-set date [getuser $user XTRA LASTMODIFDATE]
|
|
|
-if {[matchattr $user n|- $chan]} { set date "No Date" }
|
|
|
-if {$date == ""} { set date "No Date" }
|
|
|
-
|
|
|
- set lastt [getuser $user XTRA LASTMODIFBY]
|
|
|
- if {$lastt == ""} { set lastt "No info" }
|
|
|
- if {[matchattr $user n|- $chan]} { set lastt "NONE" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.13 "$lastt $date"
|
|
|
-
|
|
|
-if {[getuser $user HOSTS] != ""} {
|
|
|
-set hosts [getuser $user hosts]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists exit]} { set exit "NONE"}
|
|
|
-if {![matchattr $user nm|- $chan] && [matchattr $hand nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.5 "[join $exit]"
|
|
|
-}
|
|
|
-
|
|
|
-set lastseen [getuser $user LASTON $chan]
|
|
|
-if {($lastseen == "0") || ($lastseen == "")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.14 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.15 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.16 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set seened [ctime $lastseen]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.17 $seened
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.15 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 info.16 none
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# s ###############################
|
|
|
-
|
|
|
-proc spublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set users [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$users"
|
|
|
-set users [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-s:process $nick $host $hand $chan $chan1 $users $type
|
|
|
-}
|
|
|
-
|
|
|
-proc s:process {nick host hand chan chan1 users type} {
|
|
|
-global botnick black
|
|
|
-set flags "-|q"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($users == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 s.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 s.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 s.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 s.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $users -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 s.5 $users
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $users]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![matchattr $users nm|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-chattr $users $flags $chan
|
|
|
-setuser $users XTRA LASTMODIFBY $hand
|
|
|
-setuser $users XTRA LASTMODIFDATE $time
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 s.6 $users
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################## us ################################
|
|
|
-
|
|
|
-proc uspublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set users [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[\\+!#&]} $users] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$users"
|
|
|
-set users [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-us:process $nick $host $hand $chan $chan1 $users $type
|
|
|
-}
|
|
|
-
|
|
|
-proc us:process {nick host hand chan chan1 users type} {
|
|
|
-global botnick black
|
|
|
-set flags "-|-q"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set time [ctime [unixtime]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($users == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 us.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 us.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 us.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($users == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 us.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $users]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![matchattr $users nm|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![matchattr $users -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 us.5 $users
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $users -|M $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users -|M $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users m|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users m|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $users -|A $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $users n|- $chan] && [matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-setuser $users XTRA LASTMODIFBY $hand
|
|
|
-setuser $users XTRA LASTMODIFDATE $time
|
|
|
-chattr $users $flags $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 us.6 $users
|
|
|
-}
|
|
|
-
|
|
|
-############################## ping ##################################
|
|
|
-
|
|
|
-proc pings {nick host hand chan arg} {
|
|
|
-putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-proc pingpublic {nick host hand dest key arg} {
|
|
|
-global botnick black
|
|
|
-set ping [split $arg "."]
|
|
|
-set pingreply [lindex $ping 0]
|
|
|
-if {[regexp -- {^-?[0-9]+$} $pingreply]} {
|
|
|
-set second "[expr {abs([expr [expr {abs([clock clicks -milliseconds])} - $pingreply] / 1000.000])}]"
|
|
|
-blacktools:tell:prv $nick $host $hand ping.1 $second
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################### time ##################################
|
|
|
-
|
|
|
-proc timepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set chan1 "$chan"
|
|
|
-set time [ctime [unixtime]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 time.1 $time
|
|
|
-}
|
|
|
-
|
|
|
-################################### vers ###############################
|
|
|
-
|
|
|
-proc verspublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 vers.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-vers:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-
|
|
|
-proc vers:process {nick host hand chan chan1 why} {
|
|
|
-global botnick black
|
|
|
-set ::verschan $chan
|
|
|
-set ::versnick $nick
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $why $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan $why
|
|
|
-return 0
|
|
|
-}
|
|
|
-putserv "PRIVMSG $why :\001VERSION\001"
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc ctcpvers {nickname hostname handle dest key arg} {
|
|
|
-set text [split $arg]
|
|
|
-set chan $::verschan
|
|
|
-set nick $::versnick
|
|
|
-blacktools:tell:prv $nick $hostname $handle vers.3 "$nickname $text"
|
|
|
-}
|
|
|
-
|
|
|
-################################### whois ###############################
|
|
|
-
|
|
|
-proc whoispublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 0]
|
|
|
-if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 whois.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-whois:process $nick $host $hand $chan $chan1 $who
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc whois:process {nick host hand chan chan1 who} {
|
|
|
-global botnick black
|
|
|
-set ::wnick $nick
|
|
|
-set ::hand $hand
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-putquick "WHOIS $who $who"
|
|
|
-bind RAW - 311 winfo
|
|
|
-bind RAW - 319 wchannels
|
|
|
-bind RAW - 401 nonicks
|
|
|
-}
|
|
|
-
|
|
|
-proc winfo { from keyword arguments } {
|
|
|
-global black
|
|
|
- set hand $::hand
|
|
|
- set nick $::wnick
|
|
|
- set nickname [lindex [split $arguments] 1]
|
|
|
- set ident [lindex [split $arguments] 2]
|
|
|
- set host [lindex [split $arguments] 3]
|
|
|
- set realname [string range [join [lrange $arguments 5 end]] 1 end]
|
|
|
-
|
|
|
-blacktools:tell:prv $nick hostname $hand whois.3 "$nickname 4host - 12*!*$ident@$host * $realname"
|
|
|
-
|
|
|
-unbind RAW - 311 winfo
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-proc wchannels { from keyword arguments } {
|
|
|
-global black
|
|
|
-set hand $::hand
|
|
|
-set nick $::wnick
|
|
|
-set channels [string range [join [lrange $arguments 2 end]] 1 end]
|
|
|
-blacktools:tell:prv $nick hostname $hand whois.4 $channels
|
|
|
-
|
|
|
-unbind RAW - 319 wchannels
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-proc nonicks { from keyword arguments } {
|
|
|
-global black
|
|
|
-set hand $::hand
|
|
|
-set nick $::wnick
|
|
|
-blacktools:tell:prv $nick hostname $hand whois.5 none
|
|
|
-unbind RAW - 401 nonicks
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################### clear ###############################
|
|
|
-
|
|
|
-
|
|
|
-proc clearpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-set type 0
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-clear:process $nick $host $hand $chan $chan1 $why $type
|
|
|
-}
|
|
|
-
|
|
|
-proc clear:process {nick host hand chan chan1 why type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($why == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {([regexp -nocase -- {(#[0-9]+|banlist|userlist)} $why tmp cleanlist]) && (![regexp -nocase -- {\S#} $why])} {
|
|
|
- switch $cleanlist {
|
|
|
- userlist {
|
|
|
-set list [userlist -|AOSV $chan]
|
|
|
-
|
|
|
-foreach user $list {
|
|
|
-chattr $user -|-AOVS $chan
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.5 none
|
|
|
-}
|
|
|
-
|
|
|
-banlist {
|
|
|
-set i 0
|
|
|
-foreach ban [banlist $chan] {
|
|
|
-set theban [lindex $ban 0]
|
|
|
-if {[string match "*" $theban]} {
|
|
|
-set i [expr $i +1]
|
|
|
-killchanban $chan $theban
|
|
|
-}
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 clear.6 $i
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################# addbot ################################
|
|
|
-
|
|
|
-
|
|
|
-proc addbotpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-set host [lindex [split $arg] 1]
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addbot.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addbot:process $nick $host $hand $chan $chan1 $why $host
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc addbot:process {nick host hand chan chan1 why host} {
|
|
|
-global botnick black
|
|
|
-set flags "ao|ao"
|
|
|
-if {[validuser $why]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addbot.3 $why
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-addbot $why $host
|
|
|
-chattr $why $flags $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addbot.4 "$why $host"
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc autovonjoin {nick host hand chan} {
|
|
|
-if {[channel get $chan autovoice]} {
|
|
|
-pushmode $chan +v $nick
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc autoponjoin {nick host hand chan} {
|
|
|
-if {[channel get $chan autoop]} {
|
|
|
-pushmode $chan +o $nick
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-############################# addop #################################
|
|
|
-
|
|
|
-proc addoppublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-addop:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc addop:process {nick host hand chan chan1 user type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flag "-|a"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|a $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.5 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addop.6 $user
|
|
|
-}
|
|
|
-
|
|
|
-proc addopjoin {nick host hand chan} {
|
|
|
-if {[matchattr $hand -|a $chan]} {
|
|
|
-pushmode $chan +o $nick
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-########################### addvoice ################################
|
|
|
-
|
|
|
-proc addvoicepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-addvoice:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-proc addvoice:process {nick host hand chan chan1 user type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flag "-|g"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|g $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.5 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addvoice.6 $user
|
|
|
-}
|
|
|
-
|
|
|
-proc addvoicejoin {nick host hand chan} {
|
|
|
-if {[matchattr $hand -|g $chan]} {
|
|
|
-pushmode $chan +v $nick
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-########################### delop ##################################
|
|
|
-
|
|
|
-proc deloppublic {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-delop:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-proc delop:process {nick host hand chan chan1 user type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flag "-|-a"
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|a $chan]} {
|
|
|
-set noautoop 1
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists noautoop]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.5 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delop.6 $user
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-############################ delvoice ###############################
|
|
|
-
|
|
|
-proc delvoicepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-delvoice:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc delvoice:process {nick host hand chan chan1 user type} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set flag "-|-g"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $user -|g $chan]} {
|
|
|
-set noautovoice 1
|
|
|
-}
|
|
|
-
|
|
|
-if {![info exists noautovoice]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.5 $user
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-chattr $user $flag $chan
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delvoice.6 $user
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-############################## activ ##################################
|
|
|
-
|
|
|
-proc activpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-set user [lindex [split $arg] 0]
|
|
|
-if {[regexp {^[#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-activ:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-proc activ:process {nick host hand chan chan1 user type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($user == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![validuser $user]} { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![matchattr $user mn|OAVMS $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-set dr [getuser $user XTRA DR($chan)]
|
|
|
-set ban [getuser $user XTRA b($chan)]
|
|
|
-set spam [getuser $user XTRA spam($chan)]
|
|
|
-set badnick [getuser $user XTRA n($chan)]
|
|
|
-set invite [getuser $user XTRA i($chan)]
|
|
|
-set blacks [getuser $user XTRA Black($chan)]
|
|
|
-set warn [getuser $user XTRA w($chan)]
|
|
|
-set day [getuser $user XTRA d($chan)]
|
|
|
-set kick [getuser $user XTRA k($chan)]
|
|
|
-set stick [getuser $user XTRA stick($chan)]
|
|
|
-set bw [getuser $user XTRA bw($chan)]
|
|
|
-set bot [getuser $user XTRA bot($chan)]
|
|
|
-
|
|
|
-if {$ban == ""} { set ban "0" }
|
|
|
-if {$dr == ""} { set dr "0" }
|
|
|
-if {$spam == ""} { set spam "0" }
|
|
|
-if {$badnick == ""} { set badnick "0" }
|
|
|
-if {$invite == ""} { set invite "0" }
|
|
|
-if {$blacks == ""} { set blacks "0" }
|
|
|
-if {$warn == ""} { set warn "0" }
|
|
|
-if {$day == ""} { set day "0" }
|
|
|
-if {$kick == ""} { set kick "0" }
|
|
|
-if {$stick == ""} { set stick "0" }
|
|
|
-if {$bw == ""} { set bw "0" }
|
|
|
-if {$bot == ""} { set bot "0" }
|
|
|
-
|
|
|
-if {[matchattr $user mn|AMS $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.5 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)dr - 4($dr) | 12- $char(p)bot - 4($bot) | 12- $char(p)b - 4($ban) | 12- $char(p)spam - 4($spam) | 12- $char(p)n - 4($badnick) | 12- $char(p)i - 4($invite) | 12- $char(p)black - 4($blacks) | 12- $char(p)w - 4($warn) | 12- $char(p)d - 4($day) | 12- $char(p)k - 4($kick) | 12- $char(p)stick - 4($stick) | 12- $char(p)bw - 4($bw) ."
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|O $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.8 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)dr - 4($dr) | 12- $char(p)bot - 4($bot) | 12- $char(p)b - 4($ban) | 12- $char(p)spam - 4($spam) | 12- $char(p)n - 4($badnick) | 12- $char(p)i - 4($invite) | 12- $char(p)w - 4($warn) | 12- $char(p)k - 4($kick) | 12- $char(p)bw - 4($bw) ."
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $user -|V $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.9 $user
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.6 "12- $char(p)w - 4($warn) | 12- $char(p)k - 4($kick)"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 activ.7 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc addmyhostpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addmyhost.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addmyhost:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-
|
|
|
-proc addmyhost:process {nick host hand chan chan1 why} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set hhost [getuser $hand hosts]
|
|
|
-foreach hhost $hhost {
|
|
|
-if {[string match -nocase $hhost $why]} {
|
|
|
-set foundhost 1
|
|
|
-}
|
|
|
-}
|
|
|
-if {[info exists foundhost]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addmyhost.3 $why
|
|
|
-return 0
|
|
|
-}
|
|
|
-setuser $hand HOSTS $why
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addmyhost.4 $why
|
|
|
-}
|
|
|
-
|
|
|
-############################## delmyhost ##########################
|
|
|
-
|
|
|
-proc delmyhostpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set chan1 "$chan"
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set why [lindex [split $arg] 0]
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 delmyhost.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-delmyhost:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-
|
|
|
-proc delmyhost:process {nick host hand chan chan1 why} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set hhost [getuser $hand hosts]
|
|
|
-foreach hhost $hhost {
|
|
|
-if {[string match -nocase $hhost $why]} {
|
|
|
-set foundhost 1
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists foundhost]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delmyhost.3 $why
|
|
|
-return 0
|
|
|
-}
|
|
|
-delhost $hand $why
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delmyhost.4 $why
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-######################## cc (channel created) #######################
|
|
|
-
|
|
|
-proc createdpublic { from keyword arguments } {
|
|
|
-set hand $::hand
|
|
|
-set nick $::ccnick
|
|
|
-set date [lindex [split $arguments] 2]
|
|
|
-set dates [ctime $date]
|
|
|
-blacktools:tell:prv $nick host $hand cc.3 $dates
|
|
|
-unbind RAW - 329 createdpublic
|
|
|
-}
|
|
|
-
|
|
|
-proc nocreatedpublic { from keyword arguments } {
|
|
|
-set hand $::hand
|
|
|
-set nick $::ccnick
|
|
|
-blacktools:tell:prv $nick host $hand cc.4 none
|
|
|
-unbind RAW - 403 nocreatedpublic
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-proc ccpublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set ::ccnick $nick
|
|
|
-set ::hand $hand
|
|
|
-set chan1 "$chan"
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {$c == ""} { blacktools:tell $nick $host $hand $chan $chan1 cc.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![regexp {^[\\+!#&]} $c]} {
|
|
|
-set c #$c
|
|
|
- }
|
|
|
-
|
|
|
-putquick "MODE $c"
|
|
|
-bind raw - 329 createdpublic
|
|
|
-bind raw - 403 nocreatedpublic
|
|
|
-}
|
|
|
-
|
|
|
-proc statspublic {nick host hand chan arg} {
|
|
|
-global botnick black
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-stats:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-
|
|
|
-proc stats:process {nick host hand chan chan1} {
|
|
|
-global botnick black statsdir
|
|
|
-set ops 0
|
|
|
-set numban 0
|
|
|
-set voices 0
|
|
|
-set numuser 0
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-set time [unixtime]
|
|
|
-set file [open $statsdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set c [lindex [split $line] 0]
|
|
|
-set type [lindex [split $line] 1]
|
|
|
-if {[string match "ADDED" "$type"] && [string match -nocase $c $chan]} {
|
|
|
-set foundchan 1
|
|
|
-set chanadded 1
|
|
|
-set awho [lindex [split $line] 2]
|
|
|
-set ahost [lindex [split $line] 3]
|
|
|
-set a1time [lindex [split $line] 4]
|
|
|
-if {[regexp {^[0-9]} $a1time]} {
|
|
|
-set duration [duration [expr [unixtime] - $a1time]]
|
|
|
-} else { set duration "NONE" }
|
|
|
-if {[regexp {^[0-9]} $a1time]} {
|
|
|
-set atime [clock format $a1time -format %D-%H:%M:%S]
|
|
|
-} else { set atime "NONE"}
|
|
|
-set replace(%ahost%) $ahost
|
|
|
-set replace(%atime%) $atime
|
|
|
-set replace(%duration%) $duration
|
|
|
-set replace(%awho%) $awho
|
|
|
-lappend mes "[string map [array get replace] $black(say.$getlang.stats.1)]"
|
|
|
-lappend mes1 "[string map [array get replace] $black(say.$getlang.stats.2)]"
|
|
|
-}
|
|
|
-if {[string match "REMOVED" "$type"] && [string match -nocase $c $chan]} {
|
|
|
-set foundchan 1
|
|
|
-set chanremoved 1
|
|
|
-set rwho [lindex [split $line] 2]
|
|
|
-set rhost [lindex [split $line] 3]
|
|
|
-set rtime [lindex [split $line] 4]
|
|
|
-set a1time [lindex [split $line] 5]
|
|
|
-if {[regexp {^[0-9]} $a1time]} {
|
|
|
-set duration [duration [expr [unixtime] - $a1time]]
|
|
|
-} else { set duration "NONE" }
|
|
|
-if {[regexp {^[0-9]} $a1time]} {
|
|
|
-set atime [clock format $a1time -format %D-%H:%M:%S]
|
|
|
-} else { set atime "NONE"}
|
|
|
-if {[regexp {^[0-9]} $rtime]} {
|
|
|
-set rtime [clock format $rtime -format %D-%H:%M:%S]
|
|
|
-} else { set rtime "NONE" }
|
|
|
-set awho [lindex [split $line] 6]
|
|
|
-set ahost [lindex [split $line] 7]
|
|
|
-set replace(%ahost%) $ahost
|
|
|
-set replace(%atime%) $atime
|
|
|
-set replace(%rtime%) $rtime
|
|
|
-set replace(%duration%) $duration
|
|
|
-set replace(%awho%) $awho
|
|
|
-set replace(%rwho%) $rwho
|
|
|
-set replace(%rhost%) $ahost
|
|
|
-lappend mes "[string map [array get replace] $black(say.$getlang.stats.1)]"
|
|
|
-lappend mes1 "[string map [array get replace] $black(say.$getlang.stats.3)]"
|
|
|
-lappend mes2 "[string map [array get replace] $black(say.$getlang.stats.4)]"
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists foundchan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[validchan $chan] && ([onchan $botnick $chan])} {
|
|
|
-set numban [llength [banlist $chan]]
|
|
|
-set numuser [llength [chanlist $chan]]
|
|
|
-foreach user [chanlist $chan] {
|
|
|
-if {[isop $user $chan] && (![isvoice $user $chan])} {
|
|
|
-set ops [expr $ops +1]
|
|
|
-}
|
|
|
-if {[isvoice $user $chan]} {
|
|
|
-set voices [expr $voices +1]
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-if {[info exists chanadded]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes]"
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.9 none
|
|
|
-} else {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.8 none
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes1]"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.10 "$numuser $ops $voices $numban"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.11 none
|
|
|
-}
|
|
|
-
|
|
|
-if {[info exists chanremoved]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.6 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes]"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.12 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes1]"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.7 "[join $mes2]"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 stats.11 none
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-####################### TopWords ####################################
|
|
|
-
|
|
|
-
|
|
|
-proc topwordspublic {nick host hand chan arg} {
|
|
|
-global black who username
|
|
|
-set arg [split $arg]
|
|
|
-if {![validchan $chan]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[channel get $chan topwords]} {
|
|
|
-set lin 0
|
|
|
-set wordsdir "logs/$username.$chan.words.db"
|
|
|
-if {![file exists $wordsdir]} {
|
|
|
-set file [open $wordsdir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-set host "*!*@[lindex [split $host @] 1]"
|
|
|
-set len($host) [llength $arg]
|
|
|
-set words($host:$chan) $len($host)
|
|
|
-if {[isbotnick $nick]} { return 0 }
|
|
|
-set who "$chan $nick $host $words($host:$chan)"
|
|
|
-set file [open $wordsdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set lin [expr $lin +1]
|
|
|
-set hhost [lindex [split $line] 2]
|
|
|
-set hscore [lindex [split $line] 3]
|
|
|
-set chanentry [lindex [split $line] 0]
|
|
|
-if {[string match -nocase $hhost $host] && [string match -nocase $chanentry $chan]} {
|
|
|
-lappend current($hhost:$chan) $hscore
|
|
|
-set who "$chan $nick $hhost [expr $words($host:$chan) + $current($hhost:$chan)]"
|
|
|
-if {$line != ""} {
|
|
|
-set num [expr $lin - 1]
|
|
|
-set delete [lreplace $data $num $num]
|
|
|
-set files [open $wordsdir "w"]
|
|
|
-puts $files [join $delete "\n"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-set file [open $wordsdir "r"]
|
|
|
-set data [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$data == ""} {
|
|
|
-set files [open $wordsdir "w"]
|
|
|
-close $files
|
|
|
-}
|
|
|
-set file [open $wordsdir "a"]
|
|
|
-puts $file "$who"
|
|
|
-close $file
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-################################## TOP ################################
|
|
|
-
|
|
|
-proc toppublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set cmd [lindex [split $arg] 0]
|
|
|
-set del [lindex [split $arg] 1]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $cmd] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set chan "$cmd"
|
|
|
-set cmd [lindex [split $arg] 1]
|
|
|
-set del [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-top:process $nick $host $hand $chan $chan1 $cmd $type $del
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc top:process {nick host hand chan chan1 cmd type del} {
|
|
|
-global botnick black username
|
|
|
-set max "20"
|
|
|
-set i 0
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-set wordsdir "logs/$username.$chan.words.db"
|
|
|
-if {![file exists $wordsdir]} {
|
|
|
-set file [open $wordsdir w]
|
|
|
-close $file
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($cmd == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($cmd == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($cmd == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.5 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($cmd == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.7 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-switch -exact -- [string tolower $cmd] {
|
|
|
- dr {
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA DR($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.10 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
- b {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA b($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.12 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bot {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA bot($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.13 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bw {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA bw($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.14 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-black {
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA Black($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.15 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-spam {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA spam($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.16 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-stick {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA stick($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.17 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-n {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA n($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.18 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-i {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA i($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.19 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-k {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA k($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.20 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-w {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA w($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.21 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-d {
|
|
|
-
|
|
|
-array set blacks [list]
|
|
|
-set list [userlist nm|OSVAM $chan]
|
|
|
-foreach user $list {
|
|
|
- set b [getuser $user XTRA d($chan)]
|
|
|
- if {$b == ""} { set b 0 }
|
|
|
-if {$b > 0} {
|
|
|
- lappend blacks($b) $user
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-foreach blackq [lsort -integer -decreasing [array names blacks]] {
|
|
|
-set i [expr $i +1]
|
|
|
-lappend topblack 1- $i - : 1[join $blacks($blackq) ,] 12($blackq) |
|
|
|
-}
|
|
|
-if {![info exists topblack]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.22 none
|
|
|
-foreach txt [wordwrap [join $topblack " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-words {
|
|
|
-array set topw [list]
|
|
|
-if {![channel get $chan topwords]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.23 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[string match -nocase $del "erase"] && [matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.24 none
|
|
|
-set file [open $wordsdir "w"]
|
|
|
-close $file
|
|
|
-return 0
|
|
|
-}
|
|
|
-set file [open $wordsdir "r"]
|
|
|
-set database [read -nonewline $file]
|
|
|
-close $file
|
|
|
-if {$database == ""} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-set data [split $database "\n"]
|
|
|
-foreach line $data {
|
|
|
-set hhost [lindex [split $line] 2]
|
|
|
-set hentry [lindex [split $line] 1]
|
|
|
-set chanentry [lindex [split $line] 0]
|
|
|
-set tw [lindex [split $line] 3]
|
|
|
-if {[string match -nocase $chanentry $chan]} {
|
|
|
-lappend topw($tw) $hentry
|
|
|
-}
|
|
|
-}
|
|
|
-foreach twords [lsort -integer -decreasing [array names topw]] {
|
|
|
-set i [expr $i +1]
|
|
|
-if {!($i > $max)} {
|
|
|
-lappend topwo 1- $i - : 1[join $topw($twords) ,] 12($twords) |
|
|
|
-}
|
|
|
-}
|
|
|
-if {![info exists topwo]} { blacktools:tell $nick $host $hand $chan $chan1 top.9 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.25 $max
|
|
|
-foreach txt [wordwrap [join $topwo " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 top.11 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc securepublic {nick host hand chan arg} {
|
|
|
-global black
|
|
|
-set what [lindex [split $arg] 0]
|
|
|
-set type 0
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $what] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$what"
|
|
|
-set what [lindex [split $arg] 1]
|
|
|
-}
|
|
|
-secure:process $nick $host $hand $chan $chan1 $what $type
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc secure:process {nick host hand chan chan1 what type} {
|
|
|
-global botnick black
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-if {($what == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "0")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.3 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {($what == "") && ($type == "1")} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-if {![validchan $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![onchan $botnick $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-if {[string match -nocase "$what" "on"]} {
|
|
|
-set char(a) "+"
|
|
|
-channel set $chan $char(a)antipub ; channel set $chan $char(a)antinotice ; channel set $chan $char(a)antictcp ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antilongtext ; channel set $chan $char(a)badquitpart ; channel set $chan $char(a)antijoinpart ; channel set $chan $char(a)antispam ; channel set $chan $char(a)antirepeat ; channel set $chan $char(a)anticolor ; channel set $chan $char(a)antibold ; channel set $chan $char(a)antiunderline ; channel set $chan $char(a)anticaps ; channel set $chan $char(a)badnick ; channel set $chan $char(a)badfullname ; channel set $chan $char(a)antijoinflood ; channel set $chan $char(a)antichanflood ; channel set $chan $char(a)badident
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.5 none
|
|
|
-}
|
|
|
-if {[string match -nocase "$what" "off"]} {
|
|
|
-set char(a) "-"
|
|
|
-channel set $chan $char(a)antipub ; channel set $chan $char(a)antinotice ; channel set $chan $char(a)antictcp ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antibadword ; channel set $chan $char(a)antilongtext ; channel set $chan $char(a)badquitpart ; channel set $chan $char(a)antijoinpart ; channel set $chan $char(a)antispam ; channel set $chan $char(a)antirepeat ; channel set $chan $char(a)anticolor ; channel set $chan $char(a)antibold ; channel set $chan $char(a)antiunderline ; channel set $chan $char(a)anticaps ; channel set $chan $char(a)badnick ; channel set $chan $char(a)badfullname ; channel set $chan $char(a)antijoinflood ; channel set $chan $char(a)antichanflood ; channel set $chan $char(a)badident
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 secure.6 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-proc hpublic {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-set chan1 "$chan"
|
|
|
-set command [lindex [split $arg] 0]
|
|
|
-h:process $nick $host $hand $chan $chan1 $command
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-proc h:process {nick host hand chan chan1 command} {
|
|
|
-global black botnick
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-if {[string match -nocase "$char(p)" "none"]} {
|
|
|
-set char(p) ""
|
|
|
-}
|
|
|
-set replace(%chan%) $chan
|
|
|
-set replace(%char%) $char(p)
|
|
|
-set greeting [getuser $hand XTRA GREET]
|
|
|
-set chanlang [string tolower [channel get $chan lang]]
|
|
|
-if {$chanlang == ""} { set chanlang "[string tolower $black(default_lang)]" }
|
|
|
-if {$greeting == ""} {
|
|
|
-putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.1)]"
|
|
|
-putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.2)]"
|
|
|
-putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.3)]"
|
|
|
-putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.4)]"
|
|
|
-setuser $hand XTRA GREET 1
|
|
|
-return 0
|
|
|
-}
|
|
|
-set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
|
|
|
-set replace(%char%) "$char(p)"
|
|
|
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$command == ""} {
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|V $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.5 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.6 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|O $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.7 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.8 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|S $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.9 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.10 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.11 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.12 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.13 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.14 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-switch -exact -- [string tolower $command] {
|
|
|
-
|
|
|
-cmds {
|
|
|
-if {[matchattr $hand -|V $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 cmdsvoice none
|
|
|
-
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|O $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdsop)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|S $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdsenior)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|A $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdadmin)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-b
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|M $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdmanager)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdbossowner)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand m|- $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.cmdowner)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-ban {
|
|
|
-
|
|
|
-if {[matchattr $hand -|V $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banvoice)] " "] 450] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|O $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banop)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|S $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.bansenior)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|A $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banadmin)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|M $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banmanager)] " "] 300] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banbossowner)] " "] 380] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand m|- $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.banowner)] " "] 380] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-
|
|
|
-if {[matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addadmin none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addmanager none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addbossowner none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addowner none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-modif {
|
|
|
-if {[matchattr $hand -|A $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 modifadmin none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand -|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 modifmanager none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand n|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 modifbossowner none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {[matchattr $hand m|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 modifowner none
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-owner {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-foreach txt [wordwrap [join [string map [array get replace] $black(say.$getlang.howner)] " "] 390] {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 h.15 $txt
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-top {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htop $nick
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-blacktools {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-if {[channel get $chan antipub]} { set pubstatus "+antipub" } else { set pubstatus "-antipub" }
|
|
|
-if {[channel get $chan antinotice]} { set noticestatus "+antinotice" } else { set noticestatus "-antinotice" }
|
|
|
-if {[channel get $chan antictcp]} { set ctcpstatus "+antictcp" } else { set ctcpstatus "-antictcp" }
|
|
|
-if {[channel get $chan antibadword]} { set badwordstatus "+antibadword" } else { set badwordstatus "-antibadword" }
|
|
|
-if {[channel get $chan antilongtext]} { set longtextstatus "+antilongtext" } else { set longtextstatus "-antilongtext" }
|
|
|
-if {[channel get $chan badquitpart]} { set badquitpartstatus "+badquitpart" } else { set badquitpartstatus "-badquitpart" }
|
|
|
-if {[channel get $chan antijoinpart]} { set joinpartstatus "+antijoinpart" } else { set joinpartstatus "-antijoinpart" }
|
|
|
-if {[channel get $chan antispam]} { set antispamstatus "+antispam" } else { set antispamstatus "-antispam" }
|
|
|
-if {[channel get $chan antirepeat]} { set repeatstatus "+antirepeat" } else { set repeatstatus "-antirepeat" }
|
|
|
-if {[channel get $chan anticolor]} { set colorstatus "+anticolor" } else { set colorstatus "-anticolor" }
|
|
|
-if {[channel get $chan antibold]} { set boldstatus "+antibold" } else { set boldstatus "-antibold" }
|
|
|
-if {[channel get $chan antiunderline]} { set underlinestatus "+antiunderline" } else { set underlinestatus "-antiunderline" }
|
|
|
-if {[channel get $chan anticaps]} { set capsstatus "+anticaps" } else { set capsstatus "-anticaps" }
|
|
|
-if {[channel get $chan badnick]} { set nickstatus "+badnick" } else { set nickstatus "-badnick" }
|
|
|
-if {[channel get $chan badfullname]} { set fullnamestatus "+badfullname" } else { set fullnamestatus "-badfullname" }
|
|
|
-if {[channel get $chan autoop]} { set opstatus "+autoop" } else { set opstatus "-autoop" }
|
|
|
-if {[channel get $chan autovoice]} { set voicestatus "+autovoice" } else { set voicestatus "-autovoice" }
|
|
|
-if {[channel get $chan antijoinflood]} { set joinfloodstatus "+antijoinflood" } else { set joinfloodstatus "-antijoinflood" }
|
|
|
-if {[channel get $chan antichanflood]} { set chanfloodstatus "+antichanflood" } else { set chanfloodstatus "-antichanflood" }
|
|
|
-if {[channel get $chan badident]} { set badidentstatus "+badident" } else { set badidentstatus "-badident" }
|
|
|
-set xbantime [channel get $chan xbantime]
|
|
|
-if {$xbantime == "0"} { set xbantime 1 }
|
|
|
-set xbanlevel [channel get $chan xbanlevel]
|
|
|
-if {$xbanlevel == "0"} { set xbanlevel 100 }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hblacktools.1 "1$pubstatus | 4$noticestatus | 1$ctcpstatus | 4$badwordstatus | 1$longtextstatus | 4$badquitpartstatus | 1$joinpartstatus | 4$antispamstatus | 1$repeatstatus | 4$colorstatus | 1$boldstatus | 4$underlinestatus | 1$capsstatus | 4$nickstatus | 1$fullnamestatus | 4$opstatus | 1$voicestatus | 4$joinfloodstatus | 1$chanfloodstatus | 4$badidentstatus | 1xbantime $xbantime | 4xbanlevel $xbanlevel."
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hblacktools.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-standard {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-if {[channel get $chan protectops]} { set protectops "+protectops" } else { set protectops "-protectops" }
|
|
|
-if {[channel get $chan bitch]} { set bitch "+bitch" } else { set bitch "-bitch" }
|
|
|
-if {[channel get $chan enforcebans]} { set enforcebans "+enforcebans" } else { set enforcebans "-enforcebans" }
|
|
|
-if {[channel get $chan protecthalfops]} { set protecthalfops "+protecthalfops" } else { set protecthalfops "-protecthalfops" }
|
|
|
-if {[channel get $chan protectfriends]} { set protectfriends "+protectfriends" } else { set protectfriends "-protectfriends" }
|
|
|
-if {[channel get $chan dynamicbans]} { set dynamicbans "+dynamicbans" } else { set dynamicbans "-dynamicbans" }
|
|
|
-if {[channel get $chan dontkickops]} { set dontkickops "+dontkickops" } else { set dontkickops "-dontkickops" }
|
|
|
-if {[channel get $chan nodesynch]} { set nodesynch "+nodesynch" } else { set nodesynch "-nodesynch" }
|
|
|
-if {[channel get $chan dynamicbans]} { set noticestatus "+dynamicbans" } else { set dynamicbans "-dynamicbans" }
|
|
|
-set bantime [channel get $chan ban-time]
|
|
|
-set floodchan [channel get $chan flood-chan]
|
|
|
-set floodjoin [channel get $chan flood-join]
|
|
|
-set floodkick [channel get $chan flood-kick]
|
|
|
-set floodctcp [channel get $chan flood-ctcp]
|
|
|
-set floodnick [channel get $chan flood-nick]
|
|
|
-set flooddeop [channel get $chan flood-deop]
|
|
|
-set chanmode [channel get $chan chanmode]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hstandard.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hstandard.3 "1$protectops 4$bitch 1$enforcebans 4$protecthalfops 1$protectfriends 4$dynamicbans 1$dontkickops 4$nodesynch"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hstandard.3 "12Flood-Chan :1 $floodchan 12Flood-join :4 $floodjoin 12Flood-Kick :1 $floodkick 12Flood-Ctcp :4 $floodctcp 12Flood-Nick :1 $floodnick 12Flood-Deop :4 $flooddeop "
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hstandard.3 "12ChanMode :1$chanmode 12Ban-Time :1 $bantime "
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hstandard.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-chaninfo {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.4 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchaninfo.5 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-module {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hmodule.1 none
|
|
|
-} else { blacktools:tell $nick $host $hand $chan $chan1 hmodule.2 none }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hmodule.3 none
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-antitake {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantitake.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantitake.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantitake.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantitake.4 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-private {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hprivate.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hprivate.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-language {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hlanguage.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hlanguage.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hlanguage.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-xban {
|
|
|
-set xbantime [channel get $chan xbantime]
|
|
|
-if {$xbantime == "0"} { set xbantime 1 }
|
|
|
-set xlevel [channel get $chan xbanlevel]
|
|
|
-if {$xlevel == "0"} { set xlevel 100 }
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hxban.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hxban.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hxban.3 "$xbantime $xlevel"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-topicrefresh {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopicrefresh.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopicrefresh.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-count {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hcount.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hcount.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-xtools {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hxtools.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hxtools.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badchan {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadchan.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadchan.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badword {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadword.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadword.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-anunt {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanunt.1 $black(anunttime)
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanunt.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-autobroadcast {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.1 $black(bttime)
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hautobroadcast.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antibotidle {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibotidle.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibotidle.2 $black(noidlemax)
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-limit {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hlimit.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hlimit.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-topic {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopic.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopic.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-seen {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hseen.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hseen.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-clonescan {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hclonescan.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hclonescan.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hclonescan.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-greet {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hgreet.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hgreet.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-leave {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hleave.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hleave.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-idle {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hidle.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hidle.2 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-chanreport {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchanreport.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchanreport.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hchanreport.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-topwords {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopwords.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopwords.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 htopwords.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-settings {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.4 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.5 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hsettings.6 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-reason {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-if {[channel get $chan showhandle]} { set showhandle "+showhandle" } else { set showhandle "-showhandle" }
|
|
|
-if {[channel get $chan showcount]} { set showcount "+showcount" } else { set showcount "-showcount" }
|
|
|
-if {[channel get $chan showtime]} { set showtime "+showtime" } else { set showtime "-showtime" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.2 "$showhandle $showcount $showtime"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.4 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.5 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hreason.6 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-extra {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hextra.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hextra.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hextra.3 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hextra.4 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hextra.5 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antipub {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantipub.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantipub.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantipub.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-privat {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hprivat.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hprivat.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hprivat.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antidle {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantidle.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantidle.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantidle.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-antinotice {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantinotice.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantinotice.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantinotice.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antictcp {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantictcp.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantictcp.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantictcp.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antibadword {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadword.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadword.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadword.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antilongtext {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantilongtext.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antibadquitpart {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibadquitpart.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antijoinpart {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinpart.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antispam {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantispam.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantispam.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantispam.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antirepeat {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantirepeat.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-anticolor {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticolor.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticolor.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticolor.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antibold {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibold.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibold.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantibold.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antiunderline {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantiunderline.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-anticaps {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticaps.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticaps.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hanticaps.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badfullname {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadfullname.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badnick {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadnick.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadnick.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadnick.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badident {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadident.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadident.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadident.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antichanflood {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantichanflood.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-antijoinflood {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hantijoinflood.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-dr {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hdr.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hdr.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hdr.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bot {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbot.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbot.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbot.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-n {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hn.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hn.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hn.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-id {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hid.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hid.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hid.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-w {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hw.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hw.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hw.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-spam {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hspam.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hspam.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hspam.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-bw {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbw.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbw.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbw.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badchannel {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hbadchannel.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-counter {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hcounter.1 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hcounter.2 none
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 hcounter.3 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-proc comand:pubme {nick host hand chan arg} {
|
|
|
-global botnick wordsdir wdir sdir black seendir count server uptime {server-online}
|
|
|
-set arg [split $arg]
|
|
|
-set bnick [lindex [split $arg] 0]
|
|
|
-set what [lindex [split $arg] 1]
|
|
|
-if {([lsearch -exact [string tolower $bnick] [string tolower $botnick]] == 0)} {
|
|
|
-switch -exact -- [string tolower $what] {
|
|
|
-
|
|
|
-clear {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-clear:process $nick $host $hand $chan $chan1 $why $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-private {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-set host [lindex [split $arg] 4]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set user [lindex [split $arg] 4]
|
|
|
-set host [lindex [split $arg] 5]
|
|
|
-}
|
|
|
-private:process $nick $host $hand $chan $chan1 $why $user $host $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-login {
|
|
|
-if {[matchattr $hand nm|MSOAV $chan]} {
|
|
|
-putquick "$black(login)"
|
|
|
-putquick "MODE $botnick :$black(xmod)"
|
|
|
-blacktools:tell:prv $nick $host $hand login.1 $black(chanserv)
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-h {
|
|
|
-if {[matchattr $hand nm|MSOAV $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set command [lindex [split $arg] 2]
|
|
|
-h:process $nick $host $hand $chan $chan1 $command
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-secure {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set what [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $what] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$what"
|
|
|
-set what [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-secure:process $nick $host $hand $chan $chan1 $what $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-ignore {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set what [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set time [lindex [split $arg] 4]
|
|
|
-set reason [join [lrange [split $arg] 5 end]]
|
|
|
-if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 ignore.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-ignore:process $nick $host $hand $chan $chan1 $what $mask $time $reason
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-idle {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set char(p) [lindex $black(cmdchar) 0]
|
|
|
-set flag "-|f"
|
|
|
-set type1 1
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set type [lindex [split $arg] 3]
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-set host [lindex [split $arg] 4]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set type [lindex [split $arg] 4]
|
|
|
-set user [lindex [split $arg] 4]
|
|
|
-set host [lindex [split $arg] 5]
|
|
|
-}
|
|
|
-antidle:process $why $type $type1 $user $host $nick $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-version {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-version:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-cc {
|
|
|
-if {[matchattr $hand nm|MASO $chan]} {
|
|
|
-set ::chan $chan
|
|
|
-set chan1 "$chan"
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-if {$c == ""} { blacktools:tell $nick $host $hand $chan $chan1 cc.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![regexp {^[\\+!#&]} $c]} {
|
|
|
-set c #$c
|
|
|
- }
|
|
|
-
|
|
|
-putquick "MODE $c"
|
|
|
-bind raw - 329 createdpublic
|
|
|
-bind raw - 403 nocreatedpublic
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-activ {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-activ:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-delmyhost {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 delmyhost.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-delmyhost:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-addmyhost {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addmyhost.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addmyhost:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-leave {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set dir "logs/leave($chan).txt"
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 2]
|
|
|
-set leave [join [lrange [split $arg] 3 end]]
|
|
|
-set number [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 3]
|
|
|
-set leave [join [lrange [split $arg] 4 end]]
|
|
|
-set number [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-leave:process $who $leave $number $type $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-greet {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set who [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set greet [join [lrange [split $arg] 3 end]]
|
|
|
-set number [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 3]
|
|
|
-set greet [join [lrange [split $arg] 4 end]]
|
|
|
-set number [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-greet:process $who $greet $number $type $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-chat {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-*ctcp:CHAT $nick $host $hand $botnick CHAT $arg
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 chat.1 none
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-seen {
|
|
|
-if {[matchattr $hand -|- $chan]} {
|
|
|
-if {![channel get $chan seen]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-set type 1
|
|
|
-set wseen [lindex $arg 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $wseen] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set chan "$wseen"
|
|
|
-set wseen [lindex $arg 3]
|
|
|
-}
|
|
|
-seen:process $nick $host $hand $chan $chan1 $wseen $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-topic {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set nop [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set tp [join [lrange [split $arg] 3 end]]
|
|
|
-set number [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[\\+!#&]} $nop] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$nop"
|
|
|
-set nop [lindex [split $arg] 3]
|
|
|
-set tp [join [lrange [split $arg] 4 end]]
|
|
|
-set number [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-topic:process $nick $host $hand $chan $chan1 $nop $tp $number $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-limit {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set lm [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set lm [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-limit:process $nick $host $hand $chan $chan1 $why $lm $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-anunt {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 2]
|
|
|
-set message [join [lrange [split $arg] 3 end]]
|
|
|
-set number [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[\\+!#&]} $who] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$who"
|
|
|
-set who [lindex [split $arg] 3]
|
|
|
-set message [join [lrange [split $arg] 4 end]]
|
|
|
-set number [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-anunt:process $nick $host $hand $chan $chan1 $who $message $number $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bt {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set who [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-set message [join [lrange [split $arg] 3 end]]
|
|
|
-set number [lindex [split $arg] 3]
|
|
|
-if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 autobroadcast.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-broadcast:process $nick $host $hand $chan $chan1 $who $message $number
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badchan {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set bdchan [join [lindex [split $arg] 3]]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set bdchan [join [lindex [split $arg] 4]]
|
|
|
-}
|
|
|
-badchan:process $nick $host $hand $chan $chan1 $why $bdchan $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-count {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-count:process $nick $host $hand $chan $chan1 $why $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-delvoice {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-delvoice:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-delop {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-delop:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-addvoice {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-addvoice:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-addop {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-addop:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-addbot {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set host [lindex [split $arg] 3]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 addbot.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addbot:process $nick $host $hand $chan $chan1 $why $host
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-whois {
|
|
|
-if {[matchattr $hand nm|MAOS $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set who [lindex [split $arg] 2]
|
|
|
-if {$who == ""} { blacktools:tell $nick $host $hand $chan $chan1 whois.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-whois:process $nick $host $hand $chan $chan1 $who
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-vers {
|
|
|
-if {[matchattr $hand nm|MAOS $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-if {$why == ""} { blacktools:tell $nick $host $hand $chan $chan1 vers.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-vers:process $nick $host $hand $chan $chan1 $why
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-time {
|
|
|
-if {[matchattr $hand nm|MAOSV $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set time [ctime [unixtime]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 time.1 $time
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-ping {
|
|
|
-if {[matchattr $hand nm|MAOSV $chan]} {
|
|
|
-putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
|
|
|
-return 0
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-us {
|
|
|
-if {[matchattr $hand nm|MA $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set users [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$users"
|
|
|
-set users [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-us:process $nick $host $hand $chan $chan1 $users $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-s {
|
|
|
-if {[matchattr $hand nm|MA $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set users [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[#&]} $users] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$users"
|
|
|
-set users [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-s:process $nick $host $hand $chan $chan1 $users $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-info {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-info:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-channels {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-channels:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-userlist {
|
|
|
-if {[matchattr $hand nm|MASOV $chan]} {
|
|
|
-set level [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $level] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$level"
|
|
|
-set level [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-userlist:execute $hand $host $level $chan $chan1 $nick $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-chuser {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set chandle [lindex [split $arg] 3]
|
|
|
-chuser:process $nick $host $hand $chan $chan1 $user $chandle $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-delhost {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set hosts [lrange [split $arg] 3 end]
|
|
|
-delhost:process $nick $host $hand $chan $chan1 $user $hosts $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-botidle {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set what [lindex [split $arg] 2]
|
|
|
-if {$what == ""} { blacktools:tell $nick $host $hand $chan $chan1 antibotidle.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-botidle:process $nick $host $hand $chan $chan1 $what
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-addhost {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set hosts [lrange [split $arg] 3 end]
|
|
|
-addhost:process $nick $host $hand $chan $chan1 $user $hosts $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-del {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set args [lrange [split $arg] 2 end]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-del:process $nick $host $hand $chan $chan1 $args $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-delacc {
|
|
|
-if {[matchattr $hand nm|MA $chan]} {
|
|
|
-set args [lrange [split $arg] 2 end]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 3 end]
|
|
|
-}
|
|
|
-delacc:process $nick $host $hand $chan $chan1 $args $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-adduser {
|
|
|
-if {[matchattr $hand nm|MA $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set level [lindex [split $arg] 2]
|
|
|
-set args [lrange [split $arg] 3 end]
|
|
|
-set c [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 4 end]
|
|
|
-}
|
|
|
-adduser:process $nick $host $hand $chan $chan1 $args $level $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-add {
|
|
|
-if {[matchattr $hand nm|MA $chan]} {
|
|
|
-set level [lindex [split $arg] 2]
|
|
|
-set time [ctime [unixtime]]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set args [lrange [split $arg] 3 end]
|
|
|
-set c [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set args [lrange [split $arg] 4 end]
|
|
|
-}
|
|
|
-if {[matchattr $hand -|q $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-add:process $args $time $level $hand $host $chan $chan1 $nick $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-unsuspend {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chans [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 unsuspend.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 unsuspend.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![channel get $chans inactive]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 unsuspend.3 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chans -inactive
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 unsuspend.4 $chans
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-suspend {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chans [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 suspend.5 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 suspend.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if { [channel get $chans inactive]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 suspend.3 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel set $chans +inactive
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 suspend.4 $chans
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-delchan {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chans [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 delchan.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {![validchan $chans]} { blacktools:tell $nick $host $hand $chan $chan1 delchan.2 $chans
|
|
|
-return 0
|
|
|
-}
|
|
|
-channel remove $chans
|
|
|
-delchan:stats $chans $hand $host
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 delchan.3 $chans
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-addchan {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set chans [lindex [split $arg] 2]
|
|
|
-if {$chans == ""} {blacktools:tell $nick $host $hand $chan $chan1 addchan.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[\\+!#&]} $chans]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
|
|
|
-return 0
|
|
|
- }
|
|
|
-
|
|
|
-if {[validchan $chans]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addchan.2 $chans
|
|
|
-return 0
|
|
|
-} else {
|
|
|
-channel add $chans
|
|
|
-addchan:stats $chans $hand $host
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addchan.3 $chans
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-die {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 die.1 none
|
|
|
-utimer 3 [list die "byeeee"]
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-jump {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set serv [lindex [split $arg] 2]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 jump.1 none
|
|
|
-utimer 3 [list jump $serv]
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-save {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 save.1 none
|
|
|
- save
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-restart {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 restart.1 none
|
|
|
- utimer 3 [list restart]
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-rehash {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 rehash.1 none
|
|
|
- rehash
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-nick {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set who "$nick"
|
|
|
-set newnick [lindex [split $arg] 2]
|
|
|
-nick:process $who $newnick $host $hand $chan
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-msg {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set nicks [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-set msg [join [lrange [split $arg] 3 end]]
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$nicks == ""} {blacktools:tell $nick $host $hand $chan $chan1 msg.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {[isbotnick $nicks]} {
|
|
|
-return 0
|
|
|
- }
|
|
|
-putquick "PRIVMSG $nicks :$msg"
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-silence {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set value [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$value == ""} { blacktools:tell $nick $host $hand $chan $chan1 silence.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-silence:process $nick $host $hand $chan $chan1 $value
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-set {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set flags [lindex [split $arg] 2]
|
|
|
-set type [join [lrange [split $arg] 3 end]]
|
|
|
-set type1 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $flags] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$flags"
|
|
|
-set flags [lindex [split $arg] 3]
|
|
|
-set type [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-set:process $nick $host $hand $chan $chan1 $flags $type $type1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-mode {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set modes [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[#&]} $modes] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$modes"
|
|
|
-set modes [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-mode:process $nick $host $hand $chan $chan1 $modes $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-away {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set aw [join [lrange [split $arg] 2 end]]
|
|
|
-if {$aw == "" } {blacktools:tell $nick $host $hand $chan $chan1 away.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-away:process $nick $host $hand $chan $chan1 $aw
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-cycle {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-cycle:process $nick $host $hand $chan $chan1 $reason
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-purge {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set reason [join [lrange [split $arg] 2 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-if {$reason == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 purge.1 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-purge:process $nick $host $hand $chan $chan1 $reason
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-check {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set checked [lindex [split $arg] 2]
|
|
|
-if {$checked == ""} { blacktools:tell $nick $host $hand $chan $chan1 check.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-check:process $nick $host $hand $chan $chan1 $checked
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-broadcast {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set text [join [lrange [split $arg] 2 end]]
|
|
|
-if {$text == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 broadcast.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-broadcast:cmd:process $nick $host $hand $chan $chan1 $text
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-act {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set text [join [lrange [split $arg] 2 end]]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set text [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-act:process $nick $host $hand $chan $chan1 $text $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-say {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set text [join [lrange [split $arg] 2 end]]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set text [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-say:process $nick $host $hand $chan $chan1 $text $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-v {
|
|
|
-if {[matchattr $hand nm|VOSMA $chan]} {
|
|
|
-set voicex [lrange $arg 2 end]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set nick [split $nick]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set voicex [lrange $arg 3 end]
|
|
|
-}
|
|
|
-v:process $nick $host $hand $chan $chan1 $voicex
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-o {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set opex [lrange $arg 2 end]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set nick [split $nick]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set opex [lrange $arg 3 end]
|
|
|
-}
|
|
|
-o:process $nick $host $hand $chan $chan1 $opex
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-uptime {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set up [duration [expr [unixtime] - $uptime]]
|
|
|
-set on [duration [expr [unixtime] - ${server-online}]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-status {
|
|
|
-if {[matchattr $hand nm|- $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-regsub -all " " [channels] ", " chans
|
|
|
-catch {exec uptime} shelluptime
|
|
|
-set up [duration [expr [unixtime] - $uptime]]
|
|
|
-set on [duration [expr [unixtime] - ${server-online}]]
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.1 $up
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.2 $server
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.3 $on
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.4 $chans
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 status.5 $shelluptime
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-t {
|
|
|
-if {[matchattr $hand nm|VOSMA $chan]} {
|
|
|
-set topics [join [lrange [split $arg] 2 end]]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $topics] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$topics"
|
|
|
-set topics [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-t:process $nick $host $hand $chan $chan1 $topics $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-d {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set days [lindex [split $arg] 2]
|
|
|
-set dnick [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-set handle [nick2hand $dnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $days] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$days"
|
|
|
-set days [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 4]
|
|
|
-set dnick [lindex [split $arg] 4]
|
|
|
-set reason [join [lrange [split $arg] 5 end]]
|
|
|
-if {![regexp {^[0-9]} $days]} {
|
|
|
-set days 1
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set dnick [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $days]} {
|
|
|
-set days 1
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set dnick [lindex [split $arg] 2]
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-d:process $dnick $mask $days $reason $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-sb {
|
|
|
-if {[matchattr $hand nm|VOSMA $chan]} {
|
|
|
-set bhost [string tolower [lindex [split $arg] 2]]
|
|
|
-set what [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bhost] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bhost"
|
|
|
-set bhost [string tolower [lindex [split $arg] 3]]
|
|
|
-set what [lindex [split $arg] 4]
|
|
|
-}
|
|
|
-sb:process $bhost $what $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-ub {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set ban [lindex [split $arg] 2]
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $ban] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$ban"
|
|
|
-set ban [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-ub:process $ban $why $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-bw {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set abuser [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set handle [nick2hand $abuser]
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $abuser] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$abuser"
|
|
|
-set abuser [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-bw:process $abuser $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-stick {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set snick [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set time [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-set handle [nick2hand $snick]
|
|
|
-set list [userlist $black(exceptflags) $chan]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $snick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$snick"
|
|
|
-set time [lindex [split $arg] 4]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set snick [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 5 end]]
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "$black(dfstickbantime)"
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set time "$black(dfstickbantime)"
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-stick:process $snick $mask $time $reason $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-k {
|
|
|
-if {[matchattr $hand nm|VOSMA $chan]} {
|
|
|
-set knick [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-set handle [nick2hand $knick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $knick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$knick"
|
|
|
-set knick [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-k:process $knick $nick $hand $host $reason $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-spam {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set spammer [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set handle [nick2hand $spammer]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $spammer] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$spammer"
|
|
|
-set spammer [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-}
|
|
|
-spam:process $spammer $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-w {
|
|
|
-if {[matchattr $hand nm|OVSMA $chan]} {
|
|
|
-set wnick [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set handle [nick2hand $wnick]
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $wnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$wnick"
|
|
|
-set wnick [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-w:process $wnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-black {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set blnick [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-set handle [nick2hand $blnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$blnick"
|
|
|
-set blnick [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-bl {
|
|
|
-if {[matchattr $hand nm|SMA $chan]} {
|
|
|
-set blnick [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-set handle [nick2hand $blnick]
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $blnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$blnick"
|
|
|
-set blnick [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-black:process $blnick $nick $mask $hand $host $chan $chan1 $reason $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-id {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set idnick [lindex [split $arg] 2]
|
|
|
-set handle [nick2hand $idnick]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $idnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$idnick"
|
|
|
-set idnick [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-id:process $idnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-bot {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set bot [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bot] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bot"
|
|
|
-set bot [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-bot:process $bot $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-dr {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set drone [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set type "1"
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $drone] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$drone"
|
|
|
-set drone [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-dr:process $drone $mask $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-b {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set bnick [lindex [split $arg] 2]
|
|
|
-set mask [lindex [split $arg] 2]
|
|
|
-set time [lindex [split $arg] 3]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set type1 [lindex [split $arg] 3]
|
|
|
-set type2 [lindex [split $arg] 4]
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-if {[string match -nocase "global" $type1] || [string match -nocase "global" $type2] && [matchattr $hand nm|- $chan]} {
|
|
|
-if {[string match -nocase $type1 "global"]} {
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-}
|
|
|
-if {[string match -nocase $type2 "global"]} {
|
|
|
-set reason [join [lrange [split $arg] 5 end]]
|
|
|
-}
|
|
|
-set list [userlist nm|-]
|
|
|
-foreach user $list {
|
|
|
- set hosts [getuser $user hosts]
|
|
|
-foreach host $hosts {
|
|
|
-if {[string match $mask $host]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-if {[matchattr $handle nm|- $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
|
|
|
- return 0
|
|
|
-}
|
|
|
-
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-set time "$black(btime)"
|
|
|
-}
|
|
|
-if {$reason == ""} {set reason1 "(GLOBAL) $black(dfreason)"
|
|
|
- } else { set reason1 "(GLOBAL) $reason" }
|
|
|
-
|
|
|
-if {[channel get $chan showhandle]} {
|
|
|
-set reason "($hand) $reason1"
|
|
|
-} else { set reason "$reason1"
|
|
|
-}
|
|
|
-
|
|
|
-if {[isbotnick $bnick]} {
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {![botisop $chan]} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$mask == "*!*@*"} {
|
|
|
- return 0
|
|
|
-}
|
|
|
-if {[onchan $bnick $chan]} {
|
|
|
-set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1]
|
|
|
-}
|
|
|
-newban $mask $hand $reason $time
|
|
|
-if {$time == "0"} { set reply "Permanent" } else { set reply "$time" }
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 b.8 "$mask $reply"
|
|
|
-return 0
|
|
|
-}
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bnick"
|
|
|
-set bnick [lindex [split $arg] 3]
|
|
|
-set mask [lindex [split $arg] 3]
|
|
|
-set time [lindex [split $arg] 4]
|
|
|
-set reason [join [lrange [split $arg] 5 end]]
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set reason [join [lrange [split $arg] 4 end]]
|
|
|
-set time "$black(btime)"
|
|
|
-}
|
|
|
-}
|
|
|
-if {![regexp {^[0-9]} $time]} {
|
|
|
-set reason [join [lrange [split $arg] 3 end]]
|
|
|
-set time "$black(btime)"
|
|
|
-}
|
|
|
-b:local $bnick $mask $time $nick $reason $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-n {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set bnick [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set handle [nick2hand $bnick]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $bnick] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$bnick"
|
|
|
-set bnick [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-n:process $bnick $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-gag {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set gagger [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set handle [nick2hand $gagger]
|
|
|
-set chan1 "$chan"
|
|
|
-foreach c [channels] {
|
|
|
-set backchan [channel get $c backchan]
|
|
|
-if {[string match -nocase $chan $backchan] && [channel get $c chanreport]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-}
|
|
|
-if {[regexp {^[\\+!#&]} $gagger] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$gagger"
|
|
|
-set gagger [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-gag:process $gagger $nick $hand $host $chan $chan1 $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-l {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set times [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $times] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$times"
|
|
|
-set times [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-l:process $nick $host $hand $chan $chan1 $times $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-ul {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set c [lindex [split $arg] 0]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-ul:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-show {
|
|
|
-if {[matchattr $hand nm|OSMA $chan]} {
|
|
|
-set wich [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $wich] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$wich"
|
|
|
-set wich [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-show:process $nick $host $hand $chan $chan1 $wich $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-reset {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set dece [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $dece] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$dece"
|
|
|
-set dece [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-reset:process $nick $host $hand $chan $chan1 $dece $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-clonescan {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-scanner:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-top {
|
|
|
-if {[matchattr $hand nm|AOSM $chan]} {
|
|
|
-set cmd [lindex [split $arg] 2]
|
|
|
-set del [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[#&]} $cmd] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$cmd"
|
|
|
-set cmd [lindex [split $arg] 3]
|
|
|
-set del [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-top:process $nick $host $hand $chan $chan1 $cmd $type $del
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-banlist {
|
|
|
-if {[matchattr $hand nm|AOSM $chan]} {
|
|
|
-set user [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-if {[regexp {^[\\+!#&]} $user] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$user"
|
|
|
-set user [lindex [split $arg] 3]
|
|
|
-}
|
|
|
-banlist:process $nick $host $hand $chan $chan1 $user $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-stats {
|
|
|
-if {[matchattr $hand nm|AOSM $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-}
|
|
|
-stats:process $nick $host $hand $chan $chan1
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-myset {
|
|
|
-if {[matchattr $hand nm|VAOSM $chan]} {
|
|
|
-set chan1 "$chan"
|
|
|
-set flags [lindex [split $arg] 2]
|
|
|
-set type [lindex [split $arg] 3]
|
|
|
-if {$type == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 myset.4 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-myset:process $nick $host $hand $chan $chan1 $flags $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-i {
|
|
|
-if {[matchattr $hand nm|VAOSM $chan]} {
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set inick [lrange [split $arg] 2 end]
|
|
|
-set c [lindex [split $arg] 2]
|
|
|
-if {[regexp {^[\\+!#&]} $c] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$c"
|
|
|
-set inick [join [lrange [split $arg] 3 end]]
|
|
|
-}
|
|
|
-i:process $nick $host $hand $chan $chan1 $inick $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-addinfo {
|
|
|
-if {[matchattr $hand nm|VAOSM $chan]} {
|
|
|
-set info [join [lrange [split $arg] 2 end]]
|
|
|
-set chan1 "$chan"
|
|
|
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
|
|
|
-return 0
|
|
|
-}
|
|
|
-if {$info == ""} {
|
|
|
-blacktools:tell $nick $host $hand $chan $chan1 addinfo.2 none
|
|
|
-return 0
|
|
|
-}
|
|
|
-addinfo:process $nick $host $hand $chan $chan1 $info
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-badword {
|
|
|
-if {[matchattr $hand nm|M $chan]} {
|
|
|
-set why [lindex [split $arg] 2]
|
|
|
-set type 1
|
|
|
-set chan1 "$chan"
|
|
|
-set bdword [lrange [split $arg] 3 end]
|
|
|
-set bdnumber [lindex [split $arg] 3]
|
|
|
-if {[regexp {^[\\+!#&]} $why] && [matchattr $hand nm|- $chan]} {
|
|
|
-set chan "$why"
|
|
|
-set why [lindex [split $arg] 3]
|
|
|
-set bdnumber [lindex [split $arg] 4]
|
|
|
-set bdword [lrange [split $arg] 4 end]
|
|
|
-}
|
|
|
-antibadword:command:process $nick $host $hand $chan $chan1 $why $bdword $bdnumber $type
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-}
|
|
|
-}
|
|
|
-}
|
|
|
-
|
|
|
-
|
|
|
-putlog "$black(name) $black(vers) by $black(author) Loaded -> BLaCkShaDoW ProductionS ®"
|
Florian