This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

JoinDelay.tcl

Help for those learning Tcl or writing their own scripts.
Post Reply
O
ORATEGOD
Halfop
Posts: 42
Joined: Mon Jun 08, 2020 5:50 pm

JoinDelay.tcl

Post by ORATEGOD »

THIS CODE DOES NOT WORK

Code: Select all

###############   K O M U T L A R  B Ö L Ü M Ü   #############
##                                                          ##
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##
##      kendinize özel yapabilir yada asla değiştirmeden    ##
##             mevcut hali ile kullanabilirsiniz            ##
##                                                          ##
##############################################################
set tor(kanal) "#Sohbet,#Radyo,#Oyun"
set tor(sure) "5"

bind raw * notice tor:connection
proc tor:connection {from keyword arg} {
global tor
if {[string match -nocase "*Client connecting on port*" $arg]} {
set nick [lindex $arg 9]
set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
set ip [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
if {![regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}} $ip]} {
set ip [dnslookup $ip dienes]
}
set connect [::http::geturl http://rbls.org/$ip]
set files [::http::data $connect]
if {[string match -nocase "*listed in*other blacklists*" $files]} {
putquick "GLINE *@$ip 12h Tor Koruması v3.0 Coded By CLubber"
::http::cleanup $files
}
if {[string match -nocase "*not listed in any blacklists*" $files]} {
utimer $tor(sure)[list putquick "sajoin $nick $tor(kanal)"]
::http::cleanup $files
}
}
}

proc dienes {ip host status} {
if {!$status} {return}
return $ip
}

putlog "Delay Join TCL v2.0 - Written By CLubber"

* With this TCL, you can easily secure your server by scanning users connecting to your server.

* Delay Join and Proxy Protection are combined. In short, when the user connects to your server, it checks whether there is a tor / proxy from the online website without buying bot channels.

* It removes the user it perceives as Proxy / Tor and attracts the users it finds clean to the channels you designate as tor (channel).

* Send a message to the users he finds clean and at the end of the time you specify, “5 - 10 sec.” pulls into channels.

* Since the user is scanned without getting into the channels, there is no mess / pollution across the channel.
s
simo
Revered One
Posts: 1107
Joined: Sun Mar 22, 2015 2:41 pm

Post by simo »

I would use ircd dnsbl module for this or hopm in combination with autojoin option in the ircd i may be able to help you with this if you are facing difficulties pm me if that's the case
User avatar
CrazyCat
Revered One
Posts: 1306
Joined: Sun Jan 13, 2002 8:00 pm
Location: France
Contact:

Post by CrazyCat »

This code may work, if your eggdrop is ircop and has the +e (eye) snomask... But as simo said, dnsbl or hopm are dedicated to this job, use them.
O
ORATEGOD
Halfop
Posts: 42
Joined: Mon Jun 08, 2020 5:50 pm

Post by ORATEGOD »

Greetings ... the eggdrops has ircop level with the following modes

Code: Select all

	snomask "+cFfkejvGnNqsSoJCU";
	flags "OoawkKbBnCGAreDRhgcLZtGNzvWHeq^";
Post Reply