NoFear
Halfop
Joined: 10 Sep 2003
Posts: 46
Location: cW
|
 Posted: Tue Jul 06, 2004 8:30 am Post subject: my superbitch.tcl, but i have little problem |
 |
|
Ok,.. I started writing on my SuperBitch.tcl,.. Had little problems.. But awyeah helped me.. Ok.. Here is the code..
| 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 channels
set allowed "bmn|m"
# Code
bind mode - "*+o*" bitch
proc 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 
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 channels
set allowed "bmn|m"
# Flags for users that can be opped by users with no flags
set allowedops "bomn|mn"
# Code
bind mode - "*+o*" bitch
proc 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 
_________________
Way Away From Here.. |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
