Created a Anti Bottler / ircopen, Xdcc Catcher script

Talk about pretty much anything here, but DO NOT USE FOR SUPPORT.

Moderator: Supporters

Locked
Klint
Posts: 10
Joined: Fri Mar 17, 2006 4:29 pm

Created a Anti Bottler / ircopen, Xdcc Catcher script

Post by Klint »

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 :Please 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 :Please 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 :Please 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 :Please 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 :Please 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"
}
}
}
Jason
Posts: 570
Joined: Mon Jun 14, 2004 5:09 pm

Post by Jason »

This is really the wrong place to post this, as this forum is for UnrealIRCd modules only. Your script, since it does not fit into any of the other categories, would have been best posted in Off Topic.
Why the hell can't my signature be empty?
"Your message contains too few characters."
Stealth
Head of Support
Posts: 2086
Joined: Tue Jun 15, 2004 8:50 pm
Location: Chino Hills, CA, US
Contact:

Post by Stealth »

Moved -> Off Topic
Locked