| View previous topic :: View next topic |
| Author |
Message |
Sydneybabe
Op
Joined: 27 Apr 2007
Posts: 106
Location: Philippines
|
 Posted: Sun Apr 27, 2008 10:45 am Post subject: Only founder can add aop.. |
 |
|
Hi good day, i need a script that when the sop add aop on my channel the eggdrop sop will delete the aop added by other sop's. I will use on Dalnet server. Thanks in advance guys  |
|
| Back to top |
|
 |
uffs
Voice
Joined: 17 Apr 2008
Posts: 14
Location: 6°10.5S-106°49.7E
|
| Posted: Sun May 04, 2008 1:44 pm Post subject: |
|
|
you already req similiar scripts..
| Code: | | http://forum.egghelp.org/viewtopic.php?t=14183&highlight=founder+may+add |
what u should do, just replace "akick" to "aop" in a whole scripts..
I have made one base that script and work.. |
|
| Back to top |
|
|
Sydneybabe
Op
Joined: 27 Apr 2007
Posts: 106
Location: Philippines
|
| Posted: Tue May 06, 2008 9:07 am Post subject: |
|
|
hi uffs, i did what u told me and this an error occured -
Tcl error [check:why]: wrong # args: should be "stripcodes strip-flags string" |
|
| Back to top |
|
|
uffs
Voice
Joined: 17 Apr 2008
Posts: 14
Location: 6°10.5S-106°49.7E
|
| Posted: Tue May 06, 2008 11:05 am Post subject: |
|
|
test with eggdrop1.6.18/tcl8.4, work !
| Code: |
# ----bind(s)------------
bind notc - {[VERBOSE]* => aop * add *} check:addAOp
bind notc - {* has * access to * Reason:*} check:why
catch {unset aop:queue}
# -----proc(s)----------
proc sign {msg} {
putlog "$msg"
}
proc check:addAOp {nick host hand text {dest ""}} {
if {$dest == "" || [isbotnick $dest] || ![string equal -nocase "chanserv!service@dal.net" "$nick!$host"]} {
return
}
if {[regexp -- {^\[VERBOSE\] (.+?)!(.+?) => aop (.+?) add (.+?)$} [stripcodes bcruag $text] match tnick thost tchan tmask] && ![isbotnick $tnick]} {
set ::aop:queue([list [string tolower $tchan] [string tolower $tnick]]) $tmask
putserv "CHANSERV WHY $tchan $tnick"
}
}
proc check:why {nick host hand text {dest ""}} {
if {![string equal -nocase "chanserv!service@dal.net" "$nick!$host"]} {
return
}
if {$dest == "" || [isbotnick $dest]} {
if {[regexp -- {^(.+?) has (SOp|AOp) access to (.+?)\. +Reason: Identification to the nickname (.+?)\. Channel Frozen: (YES|NO)$} [stripcodes bcruag $text] match tnick tacc tchan trnick tfrozen]} {
if {[info exists ::aop:queue] && [info exists ::aop:queue([list [string tolower $tchan] [string tolower $tnick]])]} {
putserv "CHANSERV aop $tchan DEL [set ::aop:queue([list [string tolower $tchan] [string tolower $tnick]])]"
puthelp "PRIVMSG $tnick :Only Founder may add AOp's at $tchan"
unset ::aop:queue([list [string tolower $tchan] [string tolower $tnick]])
}
}
}
}
# -----end------------
sign "AOp Remove Successfully Loaded" |
|
|
| Back to top |
|
|
Sydneybabe
Op
Joined: 27 Apr 2007
Posts: 106
Location: Philippines
|
|
| Back to top |
|
|
Sydneybabe
Op
Joined: 27 Apr 2007
Posts: 106
Location: Philippines
|
| Posted: Mon May 19, 2008 7:43 am Post subject: |
|
|
no help regarding that conflict  |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon May 19, 2008 11:43 pm Post subject: |
|
|
| Sydneybabe wrote: | hi uffs, i did what u told me and this an error occured -
Tcl error [check:why]: wrong # args: should be "stripcodes strip-flags string" |
You have two procedures no doubt using the same variables in some instances.
Maybe assign another variable to $text i.e. set customvar $text etc.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Tue May 20, 2008 2:51 pm Post subject: |
|
|
The next snippet is the best solution to your problem:
| Code: | | STOP GIVING SOP ACCESS TO PEOPLE YOU DO NOT TRUST |
|
|
| Back to top |
|
|
Sydneybabe
Op
Joined: 27 Apr 2007
Posts: 106
Location: Philippines
|
| Posted: Fri Jun 13, 2008 5:54 am Post subject: |
|
|
metroid they are my long friend on IRC and if i have to tell them don't add aop sometimes they refuse to listen and it feels bad for them if i have to demote there sop access to aop i hope u understand why i'm requesting this kind of tcl.  |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
