egghelp/eggheads community

Need some help.

2001-11-30T19:12:00-04:00

Yap. Now he binds corectly. Thx Petersen!

Statistics: Posted by caesar — Fri Nov 30, 2001 7:12 pm

Need some help.

2001-11-30T18:54:00-04:00

Aha .. I see. I'll test it right now.

Statistics: Posted by caesar — Fri Nov 30, 2001 6:54 pm

Need some help.

2001-11-30T18:31:00-04:00

because your bind mask is wrong. try "* *#*"

Statistics: Posted by Petersen — Fri Nov 30, 2001 6:31 pm

Need some help.

2001-11-30T18:23:00-04:00

Yap. I sow my mistake with "newchanban" and corect it. Thx for advice Wcc & ppslim.

At be begining this workt fine, but now I don't know why don't work and ban on any word to channel taht user. Any sugestion to fix this ?

Statistics: Posted by caesar — Fri Nov 30, 2001 6:23 pm

Need some help.

2001-11-30T13:05:00-04:00

newchanban $channel $banmask"Lame advertise!" $bantime

should be

newchanban $channel $banmask "Lame advertise!" $bantime

The newchanban in your script does not work perfectly.

If may look like it is working, but that is only because of some backup code you put in the script.

You issue a putserv to send a ban, and one to send a kick. If the ban line wasn't there, then newchanban would fail.

Statistics: Posted by ppslim — Fri Nov 30, 2001 1:05 pm

Need some help.

2001-11-30T07:51:00-04:00

Well my "newchanban" works perfectly. I'll change and test this line u told me.

Ppslim where to put some space coz I din't understand you perfectly. And why this would cause an error ? Can u be more certain pls ?

Thx!

Statistics: Posted by caesar — Fri Nov 30, 2001 7:51 am

Need some help.

2001-11-29T21:03:00-04:00

Make sure you add a space though, as that would cause an error.

Statistics: Posted by ppslim — Thu Nov 29, 2001 9:03 pm

Need some help.

2001-11-29T19:45:00-04:00

For one thing, your newchanban command is wrong.

Code:

newchanban $channel $banmask $bantime "Lame advertise!"

should be

Code:

newchanban $channel $banmask"Lame advertise!" $bantime

Statistics: Posted by Wcc — Thu Nov 29, 2001 7:45 pm

Need some help.

2001-11-29T09:28:00-04:00

I see. Well I'm back with a new question about a previous tcl of my own.

- Code -

bind pubm - "*#*" pub_dont_advertise

proc pub_dont_advertise {nick host handle channel arg} {
global botnick
set banmask "*!*@[lindex [split $host @] 1]"
set bantime "1440"
if [botisop $channel] {
if {([matchattr $handle m] || [matchattr $handle p] || [matchattr $handle b] || [matchattr $handle n] || [matchattr $handle o])} { return }
if {[string match "*#mychan*" $channel]} {return }
newchanban $channel $banmask $bantime "Lame advertise!"
putserv "KICK $channel $nick :Lame advertise!"
putserv "MODE $channel +b $banmask"
return 1
}
}

putlog "Don't advertise .. loaded."
- Code -

With this code he react's at all words. Any sugestions to fix this problem ?

Statistics: Posted by caesar — Thu Nov 29, 2001 9:28 am

Need some help.

2001-11-24T20:46:00-04:00

yah i know, cos i copy/pasted that bit and missed the : cos of the smilies.

Statistics: Posted by Petersen — Sat Nov 24, 2001 8:46 pm

Need some help.

2001-11-24T20:09:00-04:00

Thx! .. btw .. u forgot an ":"

- Cut -
"putserv "KICK $dest $nick don't do channel notices."
- Cut -

shoud be

- Cut -
"putserv "KICK $dest $nick on't do channel notices."
- Cut -

Work's great. Thx!

Statistics: Posted by caesar — Sat Nov 24, 2001 8:09 pm

Need some help.

2001-11-24T09:27:00-04:00

you've not read the proc arguments properly from tcl-commands.doc

try this

Code:

bind notc - * anti_notice proc anti_notice {nick host handle text {dest ""}} { global botnickif {$dest==""} { set dest $botnick }if {[validchan $dest]} { set banmask "*!*@[lindex [split $host @] 1]" set bantime "1440" if {[botisop $dest]} { if {([matchattr $handle m] || [matchattr $handle p] || [matchattr $handle b] || [matchattr $handle n] || [matchattr $handle f])} { return 0 } newchanban $dest $banmask $bantime "Don't do channel notices." putserv "KICK $dest $nick don't do channel notices." putserv "MODE $dest +b $banmask" return 1 } } }

note that you might wanna protect channel |+n and |+f as well from this

[ This Message was edited by: Petersen on 2001-11-24 06:28 ]

[ This Message was edited by: Petersen on 2001-11-24 06:28 ]

Statistics: Posted by Petersen — Sat Nov 24, 2001 9:27 am

Need some help.

2001-11-24T07:27:00-04:00

- Original Code -
bind notc - * anti_notice

proc anti_notice {nick host handle channel arg} {
global botnick
set channel "$arg"
set banmask "*!*@[lindex [split $host @] 1]"
set bantime "1440"
if [botisop $channel] {
if {([matchattr $handle m] || [matchattr $handle p] || [matchattr $handle b] || [matchattr $handle n] || [matchattr $handle f])} { return }
if {$arg == "$channel"} {
newchanban $channel $banmask $bantime "Don't do channel notices."
putserv "KICK $channel $nick on't do channel notices."
putserv "MODE $channel +b $banmask"
return 1 }
}
}
- Original Code -

I just want to change 2 lines if it's possible, in a way or other. Any sugestions ?

- Line 1 -
set channel "$arg"
- Line 1 -

and

- Line 2 -
if {$arg == "$channel"} {
- Line 2 -

Thx!

PS: This is and want's to be an Anti Channel Notices.

Statistics: Posted by caesar — Sat Nov 24, 2001 7:27 am

Need some help.

2001-11-23T23:03:00-04:00

I fail to see what you are trying to do.

Statistics: Posted by ppslim — Fri Nov 23, 2001 11:03 pm

Need some help.

2001-11-23T22:38:00-04:00

Hi again. I'm bodering u with an other tcl of my own.

- Cut -
proc anti_notice {nick host handle channel arg} {
global botnick
set channel "$arg"
set banmask "*!*@[lindex [split $host @] 1]"
set bantime "1440"
if [botisop $channel] {
if {([matchattr $handle m] || [matchattr $handle p] || [matchattr $handle b] || [matchattr $handle n] || [matchattr $handle f])} { return }
if {$arg == "$channel"} {
- Cut -

As u see this is a part of an anti notice tcl. As it is right now, I meen the entire code works fine, but .. I want to change this 2 lines.

- Cut -
set channel "$arg"
- Cut -

and

- Cut -
if {$arg == "$channel"} {
- Cut -

Any sugestions in what to change them ?
Thx!

Statistics: Posted by caesar — Fri Nov 23, 2001 10:38 pm