egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-07-06T08:30:46-04:00 https://forum.eggheads.org/app.php/feed/topic/7850 2004-07-06T08:30:46-04:00 2004-07-06T08:30:46-04:00 https://forum.eggheads.org/viewtopic.php?p=38261#p38261 <![CDATA[my superbitch.tcl, but i have little problem]]>

Code: 

# nofear BiTcH TcL v1.0# Contact By E-Mail: elnofear@email.si# Contact By IrC: #H-Town @ IRCNeT# Enjoy..# SeTTiNgS..# List of chans that Bitch will work on (Leave "*" for all chans)set chans "*"# Flags for users that can op in channelsset allowed "bmn|m"# Codebind mode - "*+o*" bitchproc bitch {nick uhost hand chan mode target} { global botnick chans allowed  if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {   if {($mode == "+o") && ($nick != $botnick) && ($target != $botnick) && ([botisop $chan]) && (![matchattr $hand $allowed])} {    putquick "KICK $chan $nick :Permission Denied"    putquick "KICK $chan $target :Permission Denied"    }  } }putlog "BiTcH By nofear v1.0 Loaded"
Please.. I'm missing the part of the code.. Like this..

If an user with no flags ops me (i'm owner), we both get kicked, i don't want that.. so i don't know what to type so that users with bnmo|nm flags can be opped by users with no flags

Mybee that bot ignores users with these flags (bnmo|nm) and do nothing to both $opped and $nick ?
I don't know.. Pls Help :oops:

Owk.. it's done.. i publish the code here.. it's just simple bitch..

Code: 

# nofear BiTcH TcL v1.0# Contact By E-Mail: elnofear@email.si# Contact By IrC: #H-Town @ IRCNeT# Enjoy..# SeTTiNgS..# List of chans that Bitch will work on (Leave "*" for all chans)set chans "*"# Flags for users that can op in channelsset allowed "bmn|m"# Flags for users that can be opped by users with no flagsset allowedops "bomn|mn"# Codebind mode - "*+o*" bitchproc bitch {nick uhost hand chan mode target} {global botnick chans allowed allowedops   if {([lsearch -exact [split [string tolower $chans]] [string tolower $chan]] != -1) || ($chans == "*")} {     if {[matchattr $target $allowedops $chan]} { return }   if {($mode == "+o") && ($nick != $botnick) && ($target != $botnick) && ([botisop $chan]) && (![matchattr $hand $allowed])} {      putquick "KICK $chan $nick :Permission Denied"      putquick "KICK $chan $target :Permission Denied"      }    }   }putlog "BiTcH By nofear v1.0 Loaded"
There you go.. c'ya all, actually this was my first script :roll:

Statistics: Posted by NoFear — Tue Jul 06, 2004 8:30 am

]]>