egghelp/eggheads community

Help Me With This Code

2004-07-01T02:50:42-04:00

You can change the variable name to arg or args or idontcare or iforgotwhileediting or igavenexample to whatever you like.

You can change it, yes, but you should understand the difference between poopoo and args, else you'll keep 'changing it' everywhere, until a bug pops up.

Statistics: Posted by dollar — Thu Jul 01, 2004 2:50 am

Help Me With This Code

2004-06-30T16:02:51-04:00

You can change the variable name to arg or args or idontcare or iforgotwhileediting or igavenexample to whatever you like.

I was just trying to get the script working, whether args, which he posted the script originally in, or arg which I made it in my last post while editing.

Statistics: Posted by awyeah — Wed Jun 30, 2004 4:02 pm

Help Me With This Code

2004-06-30T11:52:15-04:00

Awyeah, try reading what respectable people like strikelight tell you. $args is a special variable in Tcl, it's always a list. Split is used for magically transforming strings into lists, so why are you splitting $args? :S

Statistics: Posted by dollar — Wed Jun 30, 2004 11:52 am

Help Me With This Code

2004-06-28T16:37:10-04:00

Is someone missing something that is staring them right in the face?
For a start, do not use this:

Code:

set killnicks { "dick" "bitch" }

Use this:

Code:

set killnicks { *dick**bitch*}

Notice no quotes?

That should fix at least one problem.

Statistics: Posted by Alchera — Mon Jun 28, 2004 4:37 pm

Help Me With This Code

2004-06-28T15:34:05-04:00

Hmmm, lets see now.

Is this set to the correct list index number, even?
Or you might be splitting it wrong.

Code:

set usernick [lindex [split $args] 9]

add these lines in the script

Code:

putlog "/[1/] Bad user nick: [lindex [split $args] 9]"putlog "/[2/] Bad user nick: [lindex $args 9]"

This should show you in dcc partyline with the bot when
the script runs the results, which of these is correct, by
giving results, or if it isn't correct.

This is to check if it is okay and should tell you if you have
set it on the correct list index.

---
Still hopeless if this doesn't do it then, you can try this.

remove this line from the script

Code:

set usernick [lindex [split $args] 9]

and then replace this line

Code:

if {[string match -nocase *$nick* $usernick]} {

by this line

Code:

if {[string match -nocase *$nick* $args]} {

Or try running this code, its the same after replacing if
you don't get what I have just said.

Infact try running this code

Code:

set killnicks { "dick" "bitch" } set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" bind raw - NOTICE client:connect proc client:connect {from keyword arg} {  global killnicks killreason   if {[string match -nocase "*client connecting*" $arg]} {   foreach nick $killnicks {     if {[string match -nocase *$nick* $arg]} {      putserv "KILL $nick :$killreason"      return 0     }   } }}

If still this doesn't do it, its a hopeless case
I rest my case

Statistics: Posted by awyeah — Mon Jun 28, 2004 3:34 pm

Help Me With This Code

2004-06-28T15:30:31-04:00

Maybe yeah, same procedure names or something... like I have 300, 400kb exceeding tcls in most of my eggies, heh.

Statistics: Posted by awyeah — Mon Jun 28, 2004 3:30 pm

Help Me With This Code

2004-06-28T15:27:03-04:00

Code:

set killnicks { "dick" "bitch" } set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" bind raw - NOTICE client:connect proc client:connect {from keyword args} { global killnicks killreason if {[string match "*Client connecting*" $args]} { set usernick [lindex [split $args] 9] foreach nick $killnicks { if {[string match -nocase *$nick* $usernick]} { putserv "KILL $nick :$killreason" break } } } }

]

So how can i make this code working? i don`t have same proc

Statistics: Posted by ZaKiR — Mon Jun 28, 2004 3:27 pm

Help Me With This Code

2004-06-28T15:24:06-04:00

If you have too many scripts loaded.
Comment them temporarily and only use necessary
ones such as botnick identification and oper identification or so.

Then check if the script works.
Usually this happens with me as well, they some times
clash with other loaded scripts some where, if you have
too many loaded.

They don't if you don't have same proc's

Statistics: Posted by ]Kami[ — Mon Jun 28, 2004 3:24 pm

Help Me With This Code

2004-06-28T15:11:42-04:00

If you have too many scripts loaded.
Comment them temporarily and only use necessary
ones such as botnick identification and oper identification or so.

Then check if the script works.
Usually this happens with me as well, they some times
clash with other loaded scripts some where, if you have
too many loaded.

Statistics: Posted by awyeah — Mon Jun 28, 2004 3:11 pm

Help Me With This Code

2004-06-28T04:56:55-04:00

yes i made another file for this this script called Kill-On-BadNick.tcl & i put that on scripts folder & in eggdrop.conf file i did....

source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/identifY.tcl
source scripts/OPER.tcl
source scripts/ChaN-LiMiT.tcl
source scripts/PinG.tcl
source scripts/SeeN.tcl
source scripts/ChanGE-BaD-NicK.tcl
source scripts/ReMovE-BaN.tcl
source scripts/AdvertisE.tcl
source scripts/Excess-Flood.tcl
source scripts/ResPonder.tcl
source scripts/KiLL-On-BadWord.tcl
source scripts/Kill-On-BadNick.tcl

this file is at last... but then what's my error ??

Statistics: Posted by ZaKiR — Mon Jun 28, 2004 4:56 am

Help Me With This Code

2004-06-28T04:49:14-04:00

and also make sure you put that script in a new file, because if you have too many scripts on same file, they'll interact causing others to crash.
Putting the code in a new file makes no difference what so ever unless you source the resulting file into another interpreter/namespace.

I know it shouldn't but sometimes, if you have too many scripts, and you got a mistake in one, that's not showing any problems, on bots' start up, having a new file, might help out, because it happened to me once, i had 2 wrong scripts, whenever i restart bot/rehash i don't get any errors. but they cause a script not to work, when i put that script in a new file, it was working fine. then again you can't be too cautious.

Statistics: Posted by DarkJFMan — Mon Jun 28, 2004 4:49 am

Help Me With This Code

2004-06-28T04:38:47-04:00

Code:

set killnicks { "dick""bitch" } set killreason "\00304Réason: \00301\037B\037\00314ad \00301\037N\037\00314ick \00301\037D\037\00314étéctéd\003" bind raw - NOTICE client:connect proc client:connect {from keyword args} { global killnicks killreason if {[string match "*Client connecting*" $args]} { set usernick [lindex [split $args] 9] foreach nick $killnicks { if {[string match -nocase *$nick* $usernick]} { putserv "KILL $nick :$killreason" break } } } }

Someone please check out all the lines & say where is the error... This code is not working for bot nick 'bitch' and 'aabitchaa' ... thanks

Statistics: Posted by ZaKiR — Mon Jun 28, 2004 4:38 am

Help Me With This Code

2004-06-28T02:29:19-04:00

Code:

set killnicks {   *hell*  *dick*   *bitch*}

Try this?

Statistics: Posted by Alchera — Mon Jun 28, 2004 2:29 am

Help Me With This Code

2004-06-28T00:55:50-04:00

and also make sure you put that script in a new file, because if you have too many scripts on same file, they'll interact causing others to crash.

Putting the code in a new file makes no difference what so ever unless you source the resulting file into another interpreter/namespace.

Statistics: Posted by user — Mon Jun 28, 2004 12:55 am

Help Me With This Code

2004-06-27T18:04:15-04:00

and also make sure you put that script in a new file, because if you have too many scripts on same file, they'll interact causing others to crash.

Statistics: Posted by DarkJFMan — Sun Jun 27, 2004 6:04 pm