egghelp/eggheads community

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-28T14:54:03-04:00

i will. no problem peace !

Statistics: Posted by esix — Sat Aug 28, 2004 2:54 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-28T14:51:18-04:00

Not really, people who keep asking for something which is impossible and want to enhace something working perfect to something ridiculous, moreover they won't follow the instructions which I give, only want me to do everything and which I refuse todo, then I might call them bugging me. I don't charge you I just do it for free and when I am free.
- Keep that in mind.

Statistics: Posted by awyeah — Sat Aug 28, 2004 2:51 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-28T14:39:03-04:00

Hmmm... I think I coded that one, a guy used to bug me on msn alot for something very similar to this, yeah its me I always use split with lsearch, heh okay.

yeah, as i said, with help from friends Also i don't know why in public u say bugged, but when we were talking u didn't say nothing like that? Smarta$$ probably. U won't get your reputation multipler raised

Statistics: Posted by esix — Sat Aug 28, 2004 2:39 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-28T03:33:36-04:00

Hmmm... I think I coded that one, a guy used to bug me on msn alot for something very similar to this, yeah its me I always use split with lsearch, heh okay.

Statistics: Posted by awyeah — Sat Aug 28, 2004 3:33 am

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-27T18:59:54-04:00

thanks qb, i'll test it in a moment

works fine, thank you qb!
u make my day

Statistics: Posted by esix — Fri Aug 27, 2004 6:59 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-27T18:18:41-04:00

Code:

bind mode - "*+o*" bitchset chans "*"# define channel flagsetudef flag superbitchproc bitch {nick uhost hand chan mode target} { global botnick chans; set handle [nick2hand $target $chan]  if {![channel get $chan superbitch]} {    # chan is not set +superbitch, do nothing    return  } if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {  if {([string match "*+o*" $mode]) && (![string equal -nocase $nick $botnick]) && (![string equal -nocase $target $botnick]) && ([botisop $chan])} {   if {(![matchattr $hand fbomn|fbomn $chan]) && ([matchattr $handle bomn|omn $chan])} { return 0 }    if {([matchattr $hand bomn|omn $chan])} { return 0 }     if {(![wasop $target $chan])} {       putquick "KICK $chan $nick :Permission Denied ;-)"       putquick "KICK $chan $target :Permission Denied ;-)"      }    }  }}

Statistics: Posted by greenbear — Fri Aug 27, 2004 6:18 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-27T17:55:28-04:00

Can you be a bit more specific please?

Statistics: Posted by esix — Fri Aug 27, 2004 5:55 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-27T16:31:35-04:00

You can define a channel flag with 'setudef', like

Code:

setudef flag superbitch

And then use 'channel get' to read it

Code:

channel get $chan superbitch

Hope this helps.

Statistics: Posted by greenbear — Fri Aug 27, 2004 4:31 pm

Netsplit & . dcc chat command problem in superbitch.tcl

2004-08-27T12:16:21-04:00

Hello all,

This is a superbitch code that i made (with help from some friends).

Code:

bind mode - "*+o*" bitchset chans "*"proc bitch {nick uhost hand chan mode target} { global botnick chans; set handle [nick2hand $target $chan] if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {  if {([string match "*+o*" $mode]) && (![string equal -nocase $nick $botnick]) && (![string equal -nocase $target $botnick]) && ([botisop $chan])} {   if {(![matchattr $hand fbomn|fbomn $chan]) && ([matchattr $handle bomn|omn $chan])} { return 0 }    if {([matchattr $hand bomn|omn $chan])} { return 0 }     if {(![wasop $target $chan])} {       putquick "KICK $chan $nick :Permission Denied ;-)"       putquick "KICK $chan $target :Permission Denied ;-)"      }    }  }}

Now still, there are some things that are missing and i can't find a way to make them work. I would like a dcc chat command. So that superbitch.tcl will work only on that channels that were setted.
Example: .netchanset #chan1 +superbitch
And then the superbitch.tcl would work only on that channel. And on all other channels that i would set them like this.
Can anyone please help me with this?
P.S. That netsplit in post subject is mistake.
Thanks,
esix

Statistics: Posted by esix — Fri Aug 27, 2004 12:16 pm