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.

Whois ban

Old posts that have not been replied to for several years.
d
dax47988

sorry....eating ice cream as i write

Post by dax47988 »

banmask *!*@*.host not !*!........
p
ppslim
Revered One
Posts: 3914
Joined: Sun Sep 23, 2001 8:00 pm
Location: Liverpool, England

Post by ppslim »

Yes and no.

Using the ISON command, you can tell if he has come online.

Once the ISON replies that he is on, you can use USERHOST or WHO commands, to tell hist hostname, which you can ban.
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Try with this:

Code: Select all

if {[string match *@*.undernet.org [strlwr [maskhost [lindex [split $arg] 3]]]} {
Once the game is over, the king and the pawn go back in the same box.
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Also, for the first code (named badrealname.tcl) to make it see the bad realnames even if they hay bold, underline, colour, italic.. etc. replace from this:

Code: Select all

if {$realname != $bah} {
to this:

Code: Select all

if {[strlwr [ctrl:filter $realname]] != $bah} {
and for the second code (named clean.tcl) replace from:

Code: Select all

if {$nick == $realname} {
to this:

Code: Select all

if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {
Also, add at the end of each file this proc:

Code: Select all

proc ctrl:filter {str} {regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str ; return $str}
Thanks to ppslim for it. after this changes it should be working fine..
Once the game is over, the king and the pawn go back in the same box.
n
nut

Post by nut »

hi!
i get an error on my bot while this script is in use:
[23:18] Tcl error [badrealname:check]: invalid command name "strlwr"
could you help me?
thank you!
nut
s
spock
Master
Posts: 319
Joined: Thu Dec 12, 2002 8:40 pm

Post by spock »

strlwr is a procedure in alltools.tcl (loaded by default) so make sure youve got it loaded.

or paste this in any script youve got loaded (and rehash it)

Code: Select all

proc strlwr {string} {
  return [string tolower $string]
}
photon?
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Be shure that the default tcl scripts (compact.tcl and alltools.tcl) are loaded.
Once the game is over, the king and the pawn go back in the same box.
User avatar
Papillon
Owner
Posts: 724
Joined: Fri Feb 15, 2002 8:00 pm
Location: *.no

Post by Papillon »

Code: Select all

if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {
instead of using strlwr and == why don't you just use:

Code: Select all

if {[string equal -nocase $nick [ctrl:filter $realname]]} {
it's usually better to use string commands on strings, and if you want to make fast scripts it's usually faster aswell.... not much,but a littlebit.. :p
Elen sila lúmenn' omentielvo
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Humm, yes, nice sugestion.
Once the game is over, the king and the pawn go back in the same box.
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Also, folowing Papillon's sugestion, replace from:

Code: Select all

if {[strlwr [ctrl:filter $realname]] != $bah} { 
to this:

Code: Select all

if {[string equal -nocase $bah [ctrl:filter $realname]]} {
Once the game is over, the king and the pawn go back in the same box.
n
nut

Post by nut »

hi!
the script works very fine! thank you all for your help!
greetz nut
User avatar
ReaLz
Op
Posts: 121
Joined: Sat Oct 19, 2002 5:33 am
Location: Athens, Greece

Post by ReaLz »

could somebody post again the full code of badrealname.tcl but with the wildcards in fullnames enabled.. so that if someone adds this fullname: "*[censored] off*" he gets banned.
«A fantastic spaghetti is a spaghetti that does not exist»
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Get it from here..
Once the game is over, the king and the pawn go back in the same box.
User avatar
ReaLz
Op
Posts: 121
Joined: Sat Oct 19, 2002 5:33 am
Location: Athens, Greece

Post by ReaLz »

this one doesn't support wildcards in fullnames I think...
«A fantastic spaghetti is a spaghetti that does not exist»
V
Volume
Halfop
Posts: 84
Joined: Fri May 23, 2003 5:08 am

Ban Mask

Post by Volume »

Hello, the ban works but the bot set this to ban. all t-dialin.net user are kicket :(

[23:27:52] * Geist sets mode: +b *!*@*.t-dialin.net
[23:27:53] * dort was kicked by Sunstorm (gebannt: You norteh norteh boy!)

eft is simon@p508C34A5.dip.t-dialin.net * http://www.mahoo.de
eft using uni-karlsruhe.de University of Karlsruhe, Germany
eft has been idle 22mins 22secs, signed on Mon Jun 02 22:58:54
eft End of WHOIS list.

this is only 1 user with bad realname.
can i make the script bans *!*@p508C34A5.dip.t-dialin.net ?

this is better and not other users are banned.
thanks for help
Locked