egghelp/eggheads community

Only founder can add aop..

2008-06-13T05:54:48-04:00

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.

Statistics: Posted by Sydneybabe — Fri Jun 13, 2008 5:54 am

Only founder can add aop..

2008-05-20T14:51:18-04:00

The next snippet is the best solution to your problem:

Code:

STOP GIVING SOP ACCESS TO PEOPLE YOU DO NOT TRUST

Statistics: Posted by metroid — Tue May 20, 2008 2:51 pm

Only founder can add aop..

2008-05-19T23:43:39-04:00

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.

Statistics: Posted by Alchera — Mon May 19, 2008 11:43 pm

Only founder can add aop..

2008-05-19T07:43:15-04:00

no help regarding that conflict

Statistics: Posted by Sydneybabe — Mon May 19, 2008 7:43 am

Only founder can add aop..

2008-05-06T17:08:02-04:00

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.

Statistics: Posted by Sydneybabe — Tue May 06, 2008 5:08 pm

Only founder can add aop..

2008-05-06T11:05:35-04:00

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"

Statistics: Posted by uffs — Tue May 06, 2008 11:05 am

Only founder can add aop..

2008-05-06T09:07:44-04:00

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"

Statistics: Posted by Sydneybabe — Tue May 06, 2008 9:07 am

Only founder can add aop..

2008-05-04T13:44:54-04:00

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

Statistics: Posted by uffs — Sun May 04, 2008 1:44 pm

Only founder can add aop..

2008-04-27T10:45:23-04:00

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

Statistics: Posted by Sydneybabe — Sun Apr 27, 2008 10:45 am