Friday, June 7, 2002, 7:27:07 AM, hidden wrote:
H> Hi people,
H> I heard some CService people have a little mIRC script that checks on every
H> logins if they were added to channels they were not at last login.
H> I scripted a script that works really fine. It tells, on every logins, if
H> <username> was added to new channels. Works fine for everyone, will work
H> fine if they have multiple usernames on the same mIRC (different filenames),
H> works fine with Multi-connections in mIRC.
H> This script wont work correctly for the CSadmins as they can see everyone's
H> complete infos and channel list for a username. But they already have a
H> script like that so where's the problem ?
H> I don't mind at all giving out this script if someone wants it.
H> You can find me on undernet under [EMAIL PROTECTED]
H> regards
H> Hidden
H> [EMAIL PROTECTED]
Well, I got something for my eggdrops written in tcl wich works quite
simple. The bot fetches it's info every hour, and removes itself from
X if it doesn't know about that channel. Keeps the channelaccess lists
clean and the lamers thinking to be smart away. Feel free to modify it
for your needs. I use it in my multi.tcl script so I already needed to
modify it myself for this a bit as I use a lot of other things around
it.
Here's the code in case you want it:
----8<----------------
set cmasterhnd "Somebody" ;# The bots userid in X
bind notc - "%Channels:*" cmaster_getinfo
bind time - "00 * * * *" cmaster_grabinfo
proc cmaster_grabinfo { a b c d e } {
global cmasterhnd
putserv "PRIVMSG X :info $cmasterhnd"
}
proc cmaster_getinfo { nick host hand args dest } {
global cmasterhnd botnick
if {[string tolower $nick] != "x" } {
return 0
}
foreach value $args {
if {[string match #* $value] && ![validchan $value]} {
putserv "PRIVMSG X :remuser $value $cmasterhnd"
putlog "Removing myself from unrecognized channel $chanl"
}
}
}
----8<----------------
greetz,
OUTsider
