Looking for a script similar to botnetnotify.tcl
But, One that does this...
1. Notifies the selected channel of any partyline user joins/parts from any bot connected to the botnet, not just the bot with the script loaded on it.
2. Notifies selected channel of any bot or hub that disconnects from the botnet. If a hub Disconnects, just want to be notified of the hub disconnection, not all related bots connected to that hub. Exactly as the bot shows in DCC on the partyline... Perhaps just an echo of this would be best and fit my needs...
Below is the code of botnetnotify.tcl
When a hub with 30+ bots disconnects, this script floods the channel with each bot that has disconnected due to that individual hub.
Since I have a total of 79 bots connected to my <NO IRC> hub, I have to load this script on a leaf bot in order to reflect messages to the channel.
any help is appreciated...
Code: Select all
##################################
### BotnetNotify.tcl ###
### Version 1.8 ###
### By Wcc ###
### wcc@techmonkeys.org ###
### http://www.dawgtcl.com:81/ ###
### EFnet #|DAWG|Tcl ###
##################################
############################################################################
### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ###
############################################################################
#########################################################################
## This script notifies a channel (or channels) what a user joins the ##
## partyline, when a ser leaves the partyline, when a bot disconnects, ##
## when a bot links, and when a user changes their handle. If hub mode ##
## is set to 1, it will notify when any bot links or delinks. ##
#########################################################################
##############
## COMMANDS ##
##################################################################
## DCC ## .chanset <channel> +/-botnetnotify ##
######### This enables or disables botnet activity notification ##
######### for a channel. ##
##################################################################
#############################################################
## Just load the script, edit the settings, and rehash. ##
#############################################################
##################################################################
# If you want bot links and unlinks to be announced, set 1 here. #
##################################################################
set botnetnotify_setting(hub) 1
####################
# Code begins here #
####################
if {![string match 1.6.* $version]} { putlog "\002BOTNETNOTIFY:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }
if {[info tclversion] < 8.2} { putlog "\002BOTNETNOTIFY:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }
setudef flag botnetnotify
foreach botnetnotify_bind [list chon chof link disc] { bind $botnetnotify_bind - * botnetnotify_$botnetnotify_bind }
proc botnetnotify_chanout {text} {
foreach chan [channels] {
if {[botonchan $chan] && [lsearch -exact [channel info $chan] +botnetnotify] != -1} { putserv "PRIVMSG $chan :$text" }
}
}
proc botnetnotify_chon {hand idx} { botnetnotify_chanout "$hand has joined the partyline." }
proc botnetnotify_chof {hand idx} { botnetnotify_chanout "$hand has left the partyline." }
proc botnetnotify_link {bot to} {
if {$::botnetnotify_setting(hub)} { botnetnotify_chanout "$bot is now linked to $to." }
}
proc botnetnotify_disc {botname} {
if {$::botnetnotify_setting(hub)} { botnetnotify_chanout "$botname has disconnected from the botnet." }
}
putlog "\002BOTNETNOTIFY:\002 BotnetNotify.tcl Version 1.8 by Wcc is loaded."