Netsplit & . dcc chat command problem in superbitch.tcl

esix · Post by **esix** » Fri Aug 27, 2004 12:16 pm

Hello all,

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

bind mode - "*+o*" bitch
set 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

greenbear · Post by **greenbear** » Fri Aug 27, 2004 4:31 pm

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

Code: Select all

setudef flag superbitch

And then use 'channel get' to read it

Code: Select all

channel get $chan superbitch

Hope this helps.

esix · Post by **esix** » Fri Aug 27, 2004 5:55 pm

Can you be a bit more specific please?

greenbear · Post by **greenbear** » Fri Aug 27, 2004 6:18 pm

Code: Select all

bind mode - "*+o*" bitch
set chans "*"

# define channel flag
setudef flag superbitch

proc 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 ;-)"
      }
    }
  }
}

esix · Post by **esix** » Fri Aug 27, 2004 6:59 pm

thanks qb, i'll test it in a moment

works fine, thank you qb!

u make my day

awyeah · Post by **awyeah** » Sat Aug 28, 2004 3:33 am

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.

esix · Post by **esix** » Sat Aug 28, 2004 2:39 pm

awyeah wrote: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

awyeah · Post by **awyeah** » Sat Aug 28, 2004 2:51 pm

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.

esix · Post by **esix** » Sat Aug 28, 2004 2:54 pm

i will. no problem

peace !