Only founder can add aop..

Sydneybabe · Post by **Sydneybabe** » Sun Apr 27, 2008 10:45 am

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

uffs · Post by **uffs** » Sun May 04, 2008 1:44 pm

you already req similiar scripts..

Code: Select all

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..

Sydneybabe · Post by **Sydneybabe** » Tue May 06, 2008 9:07 am

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"

uffs · Post by **uffs** » Tue May 06, 2008 11:05 am

test with eggdrop1.6.18/tcl8.4, work !

Code: Select all

# ----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"

Sydneybabe · Post by **Sydneybabe** » Tue May 06, 2008 5:08 pm

hi uffs thanks it's work but the problem now the script looks like conflict the aop delete working ...but the akick delete http://forum.egghelp.org/viewtopic.php? ... may+addnot not working anymore.

Sydneybabe · Post by **Sydneybabe** » Mon May 19, 2008 7:43 am

no help regarding that conflict

Alchera · Post by **Alchera** » Mon May 19, 2008 11:43 pm

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.

metroid · Post by **metroid** » Tue May 20, 2008 2:51 pm

The next snippet is the best solution to your problem:

Code: Select all

STOP GIVING SOP ACCESS TO PEOPLE YOU DO NOT TRUST

Sydneybabe · Post by **Sydneybabe** » Fri Jun 13, 2008 5:54 am

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.