egghelp/eggheads community

Help with this clone script

2004-05-04T10:07:51-04:00

@ CoMMy : replace your "ischanset" with "channel get" and voila! also, next time don't be lazy and consult the tcl-commands.doc file.

@ user : Thanks for sharing that info

Statistics: Posted by caesar — Tue May 04, 2004 10:07 am

Help with this clone script

2004-05-04T05:35:57-04:00

Well this is the ischanset proc

Code:

proc ischanset {chan setting} {set setting "+[string tolower $setting]"foreach item [string tolower [channel info $chan]] {if {$item == $setting} { return 1 }}return 0 }

This uses the old method of getting a channel flag. Can you update the proc to use "channel get" please? I need to change this because i have a lot of procs using ischanset.

Thanks

Statistics: Posted by CoMMy — Tue May 04, 2004 5:35 am

Help with this clone script

2004-05-03T17:05:19-04:00

if {![ischanset $c noclones]||[matchattr $h o|o $c]} return
and you haven't missed some } and { too?

Ps: Use the default "channel get" instead of the "ischanset" proc.

There are no missing {}'s. (strings with no whitespace/special chars don't need escaping/quoting) Calling a proc instead of using the recently added "channel get" makes sense if you want your script to work on older eggdrop models AND i stole that part from his example, so I assume he's got a proc doing the right thing.

Statistics: Posted by user — Mon May 03, 2004 5:05 pm

Help with this clone script

2004-05-03T14:08:06-04:00

I'll try your advice user and check to see if it works.

Basically my proc kick+banned everyone who joined that chan regarding if the host matched !!!!

Anyway. I'll try it

Statistics: Posted by CoMMy — Mon May 03, 2004 2:08 pm

Help with this clone script

2004-05-03T12:03:17-04:00

if {![ischanset $c noclones]||[matchattr $h o|o $c]} return

and you haven't missed some } and { too?

Ps: Use the default "channel get" instead of the "ischanset" proc.

Statistics: Posted by caesar — Mon May 03, 2004 12:03 pm

Re: Help with this clone script

2004-05-03T10:48:37-04:00

Code:

bind join - * joinerproc joiner {nick host handle chan} {global botnick ban_typeif {[ischanset $chan noclones]} {if {![matchattr $handle &o $chan] || ![matchattr $handle o]} {foreach user [chanlist $chan] {set what "$user![getchanhost $user $chan]"if {[string match -nocase "*$host*" "$what"]} {newchanban $chan [hostmasktype $nickshost $ban_type] $botnick "Clones In $chan" "15" stickyputquick "KICK $chan $user Clones Are Not Allowed" -next}}}putquick "KICK $chan $nick Clones Are Not Allowed" -next }

You're missing a } there...and you seem to be kicking anyone joining the +noclones channel...a bit weird Try something like this:

Code:

bind join - * joinerproc joiner {n u h c} {if {![ischanset $c noclones]||[matchattr $h o|o $c]} returnforeach x [chanlist $c] {if {[string equal -nocase $n $x]} continueif {[string equal -nocase $u [getchanhost $x $c]]} {# same user@host... kick $x and $n then return or break}}}

Statistics: Posted by user — Mon May 03, 2004 10:48 am

Help with this clone script

2004-05-03T08:58:12-04:00

Can anyone help with this ?
It bans every person it joins unless its a member of course.
What i want it to do is see if the person's host matches one of another person in the chan and ban both..

Here is the code.

Code:

bind join - * joinerproc joiner {nick host handle chan} {global botnick ban_typeif {[ischanset $chan noclones]} {if {![matchattr $handle &o $chan] || ![matchattr $handle o]} {foreach user [chanlist $chan] {set what "$user![getchanhost $user $chan]"if {[string match -nocase "*$host*" "$what"]} {newchanban $chan [hostmasktype $nickshost $ban_type] $botnick "Clones In $chan" "15" stickyputquick "KICK $chan $user Clones Are Not Allowed" -next }}}putquick "KICK $chan $nick Clones Are Not Allowed" -next }

Thanks

Statistics: Posted by CoMMy — Mon May 03, 2004 8:58 am