This has been tested on Eggdrop 1.6 network was running NeoStats
I just finished it
----
###########################################################
###########################################################
###########################################################
##Just this works with ConnectServ with NeoStats###########
##This was made by Snow_death of irc.Global-Dimension.net##
##This has been tested on Eggdrop 1.6.1+###################
###########################################################
##YOU MUST REMOVE COLORS OUT OF YOUR ConnectServ###########
##Make sure that when someone connects it displays in #####
##whatever you set your #SAYCHAN to########################
##Make sure that no other scripts are running that use ####
##channel if so change it##################################
##This is Version 1.0SD please email me if you find a bug##
##My email is: [email protected]#####################
##Or join me on irc.Global-dimension.net We're back########
##I am a Network Administrator there#######################
##Please let me know what you think about this script..####
##Thanks alot##############################################
##Also you can use .v <NICK> to Version / LAG that nick####
##.kill is only for owner##################################
##.version shows version in the channel####################
###########################################################
##Please do not take credit for my work by changing names##
##I worked really hard on this#############################
###########################################################
##Oh yeah, this bans for 21 days so if you dont like it####
##Change it################################################
###########################################################
###########################################################
###########################################################
###########################################################
## CHANGE THE NEXT FEW OPTIONS ##
###########################################################
####Change this to your Services Channel##
set channel "#SAYCHAN"
###Change this to the nick that owns the bot##
set snowy "OWNER"
##Follow is OperId and password##
set operid "OPERID"
set operpass "OPERPASSWORD"
##What is your Eggdrops Bots name?##
set me "BOTSNAME"
##Nickserv password?????##
set Nickserv "NickServ Password"
###########################################################
###########################################################
###########################################################
###########################################################
##DONT CHANGE ANYTHING BELOW THIS PLEASE###################
###########################################################
###########################################################
###########################################################
###########################################################
bind pub -|- "SIGNON" version
bind pub -|- ".version" cmd.showver
bind evnt - init-server oper
bind pub -|- ".kill" cmd.kill
bind pub -|- ".v" cmd.version
bind ctcr -|- "VERSION" check
bind ctcr -|- "LAG" glag
proc oper init-server { putserv "OPER $::operid $::operpass"
putserv "privmsg nickserv identify $::Nickserv"
putserv "privmsg chanserv invite $::channel"
putserv "join $channel"
putserv "mode $::me +B-h"
}
proc cmd.showver {nick host handle chan text} {
putserv "PRIVMSG $chan $nick: I am running Eggdrop 1.6 with Custom TCL Scripts by Snow_death. AntiXBC 1.0SD"
putserv "PRIVMSG $chan $nick: AntiXBC: Monitor's all of the network for Xdcc Catcher, Bottler, ircopen, cortim, Ircork, PLUS MORE!"
}
proc cmd.version {nick host handle chan text} {
putserv "PRIVMSG $text :\001VERSION\001"
putserv "PRIVMSG $chan $nick: I am checking the version of $text"
putserv "PRIVMSG [lindex $text 0] :\001LAG\001"
}
proc cmd.kill {nick host handle chan text} {
if { $nick != $::snowy } { return 0 }
putserv "kill $text"
}
proc version {nick host handle chan text} {
if { $chan == $::channel } {
if { [lindex $text 0] == Snow_death } { putserv "notice [lindex $text 0] I am running AntiXBC 1.0SD script!" }
set text [split $text " "]
putserv "NOTICE [lindex $text 0] :Just Checking your client version."
putserv "PRIVMSG [lindex $text 0] :\001VERSION\001"
putserv "PRIVMSG [lindex $text 0] :\001LAG\001"
}
}
proc glag {nick uhost handle dest keyword text} {
putserv "PRIVMSG $nick lease upgrade your client. mIRC: http://www.mirc.com, xChat: http://www.xchat.com."
putserv "GLINE $nick +21d The current client & version your using is not permitted on this network. Version: XDCC CATCHER"
putserv "PRIVMSG $::channel Found $nick using XDCC CATCHER (OLD VERSION)"
}
proc check {nick uhost handle dest keyword text} {
if {![isbotnick $dest]} { return }
set bad_clients [list "bottl*" "Ork*" "Xdcc-cat*" "Catcher*" "*ircopen*" "backdoor*" "*cortim*" ]
foreach client $bad_clients {
if {[lindex [split $text] 0] == "mIRC" && [lindex [split $text] 2] != "Khaled" && [lindex [split $text] 3] != "Mardam-Bey"} {
putserv "PRIVMSG $nick lease upgrade your client. mIRC: http://www.mirc.com, xChat: http://www.xchat.com."
putserv "GLINE $nick +21d The current client & version your using is not permitted on this network. xdcc catcher not allowed"
putserv "PRIVMSG $::channel Found $nick using $text"
Return 0
}
if {[lindex [split $text] 0] == "MIRC"} {
putserv "PRIVMSG $nick lease upgrade your client. mIRC: http://www.mirc.com, xChat: http://www.xchat.com."
putserv "GLINE $nick +21d The current client & version your using is not permitted on this network. xdcc catcher not allowed"
putserv "PRIVMSG $::channel Found $nick using $text"
Return 0
}
if {[lindex [split $text] 0] == "mirc"} {
putserv "PRIVMSG $nick lease upgrade your client. mIRC: http://www.mirc.com, xChat: http://www.xchat.com."
putserv "GLINE $nick +21d The current client & version your using is not permitted on this network. xdcc catcher not allowed"
putserv "PRIVMSG $::channel Found $nick using $text"
Return 0
}
if {[string match "*[string tolower $client]*" [string tolower $text]]} {
putserv "PRIVMSG $nick lease upgrade your client. mIRC: http://www.mirc.com, xChat: http://www.xchat.com."
putserv "GLINE $nick +21d The current client & version your using is not permitted on this network. VERSION: $text xdcc catcher not allowed"
putserv "PRIVMSG $::channel Found $nick using $text"
}
}
}
Created a Anti Bottler / ircopen, Xdcc Catcher script
Moderator: Supporters