egghelp/eggheads community

AOP with authcheck

2008-05-26T07:28:42-04:00

Well smart or not. thats why i want the script for the "smartness"

Statistics: Posted by Fraud — Mon May 26, 2008 7:28 am

AOP with authcheck

2008-05-25T17:37:08-04:00

matchattr is only for internal eggdrop flag checking.

it has NOTHING to do with Q.
Instead you should be smart enough to just not op all users on your channel.

Statistics: Posted by metroid — Sun May 25, 2008 5:37 pm

AOP with authcheck

2008-05-24T10:14:32-04:00

Yep its q net. Sorry.

Well if i dont want to set +d on my bot, just checking on Q it has to be look like

if {[matchattr [nick2hand $nick] +d $chan] == 0} {

??

and what i meant with the trigger is...

Code:

setudef flag aopbind pub n "!aop" pub:aopbind join - * join:aop

Well i dont know how o bind the rest in the code. maybe

Code:

setudef flag aopbind pub n "!aop" pub:aopbind join - * join:aopbind time -|- "* * * * *" scantimebind PUB o $aop(cmd) aop_pubproc scantime {minute hour day month year} {   global aop   bind RAW -|- {354} raw354   if {[validchan $aop(channel)]} {      if {[channel get $aop(channel) aop]} {         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"      }   }}proc raw354 {s r a} {   global aop   set a [join [split $a]]   regexp {(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)} $a match bnick rawid chan ident host nick flags auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop] || [channel get [string tolower $chan] aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick            }         }         }        }         }proc aop_pub {n u h c t} {   set s [lindex $t 0]   switch $s {      on {         if {[channel get $c aop]} {            putserv "NOTICE $n :Auto op is already \002on\002 for $c"         } else {            channel set $c +aop            putserv "NOTICE $n :Auto op is now \002on\002 for $c"         }      }      off {channel set $c -aop; putserv "NOTICE $n :Auto op is now \002off\002 for $c"}      default {         if {[channel get $c aop]} {            putserv "NOTICE $n :Auto op is \002on\002 for $c"         } else {            putserv "NOTICE $n :Auto op is \002off\002 for $c"         }      }   }}putlog "ircu AOP script loaded"

Statistics: Posted by Fraud — Sat May 24, 2008 10:14 am

AOP with authcheck

2008-05-23T23:33:01-04:00

Well i meant !aop #channel on/off status

that somebody can enter in chan !aop #xyz on

and it ops also Users that have +d Flag on q. Means the Bot ops and q deops and this the whole time.

i´ve tried this
if {[matchattr [nick2hand $nick] d|d $chan] == 0} {
but its not working

Is "q" your bot? If you are talking about the quakenet services, then you'll have to set that user +d on your bot also.

Statistics: Posted by DragnLord — Fri May 23, 2008 11:33 pm

AOP with authcheck

2008-05-23T14:15:32-04:00

Well i meant !aop #channel on/off status

that somebody can enter in chan !aop #xyz on

and it ops also Users that have +d Flag on q. Means the Bot ops and q deops and this the whole time.

i´ve tried this

if {[matchattr [nick2hand $nick] d|d $chan] == 0} {

but its not working

Statistics: Posted by Fraud — Fri May 23, 2008 2:15 pm

AOP with authcheck

2008-05-23T12:04:28-04:00

Code:

setudef flag aopset aop(channel) "#channel"set aop(rawid) "678"set aop(cmd) "!aop"bind time -|- "* * * * *" scantimebind PUB o $aop(cmd) aop_pubproc scantime {minute hour day month year} {   global aop   bind RAW -|- {354} raw354   if {[validchan $aop(channel)]} {      if {[channel get $aop(channel) aop]} {         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"      }   }}proc raw354 {s r a} {   global aop   set a [join [split $a]]   regexp {(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)} $a match bnick rawid chan ident host nick flags auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop] || [channel get [string tolower $chan] aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick            }         }         }        }         }proc aop_pub {n u h c t} {   set s [lindex $t 0]   switch $s {      on {         if {[channel get $c aop]} {            putserv "NOTICE $n :Auto op is already \002on\002 for $c"         } else {            channel set $c +aop            putserv "NOTICE $n :Auto op is now \002on\002 for $c"         }      }      off {channel set $c -aop; putserv "NOTICE $n :Auto op is now \002off\002 for $c"}      default {         if {[channel get $c aop]} {            putserv "NOTICE $n :Auto op is \002on\002 for $c"         } else {            putserv "NOTICE $n :Auto op is \002off\002 for $c"         }      }   }}putlog "ircu AOP script loaded"

Statistics: Posted by DragnLord — Fri May 23, 2008 12:04 pm

AOP with authcheck

2008-05-23T11:53:44-04:00

of course that's possible

Statistics: Posted by DragnLord — Fri May 23, 2008 11:53 am

AOP with authcheck

2008-05-23T11:24:25-04:00

ahh Ok. no did not knew that. Thank u very much for ure help.

Well hope u will not kill me but is it possible to implement this part ?

Code:

 bind PUB o !aop aop_pub   proc aop_pub {nick uhost hand chan arg} {      set s [lindex $arg 0]      switch $s {         on {            if {[channel get $chan aop]} {               putserv "NOTICE $nick :Auto op is already \002on\002 for $chan"            } else {               channel set $chan +aop               putserv "NOTICE $nick :Auto op is now \002on\002 for $chan"            }         }         off { channel set $chan -aop; putserv "NOTICE $nick :Auto op is now \002off\002 for $chan" }         default {            if {[channel get $chan aop]} {               putserv "NOTICE $nick :Auto op is \002on\002 for $chan"            } else {               putserv "NOTICE $nick :Auto op is \002off\002 for $chan"            }         }      }   }

Maybe to let the user edit the trigger like

set op(trigger) "\."

Thank u

Statistics: Posted by Fraud — Fri May 23, 2008 11:24 am

AOP with authcheck

2008-05-23T02:27:48-04:00

Code:

setudef flag aopset aop(channel) "#channel"set aop(rawid) "678"bind time -|- "* * * * *" scantimeproc scantime {minute hour day month year} {   global aop   bind RAW -|- {354} raw354   if {[validchan $aop(channel)]} {      if {[channel get $aop(channel) aop]} {         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"      }   }}proc raw354 {s r a} {   global aop   set a [join [split $a]]   regexp {(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)} $a match bnick rawid chan ident host nick flags auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop] || [channel get [string tolower $chan] aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick            }         }         }        }         }           putlog "ircu AOP script loaded"

Happier now?
By the way, quakenet uses undernet's ircd (just in case you didn't know that).

Statistics: Posted by DragnLord — Fri May 23, 2008 2:27 am

AOP with authcheck

2008-05-23T02:23:18-04:00

Well i wrote i using it for Quakenet
I want to use it on Quakenet

Unfortunately you did not say that in your initial post, the script had already been written by the time you did say that.

Statistics: Posted by DragnLord — Fri May 23, 2008 2:23 am

AOP with authcheck

2008-05-22T15:52:54-04:00

Well i wrote i using it for Quakenet

I want to use it on Quakenet

Statistics: Posted by Fraud — Thu May 22, 2008 3:52 pm

AOP with authcheck

2008-05-22T13:03:15-04:00

tested and working on undernet for me:

Code:

setudef flag aopset aop(channel) "#channel"set aop(rawid) "678"bind time -|- "* * * * *" scantimeproc scantime {minute hour day month year} {   global aop   bind RAW -|- {354} raw354   if {[validchan $aop(channel)]} {      if {[channel get $aop(channel) aop]} {         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"      }   }}proc raw354 {s r a} {   global aop   set a [join [split $a]]   regexp {(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)} $a match bnick rawid chan ident host nick flags auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop] || [channel get [string tolower $chan] aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick            }         }         }         }         }            putlog "UnderNet AOP script loaded"

Statistics: Posted by DragnLord — Thu May 22, 2008 1:03 pm

AOP with authcheck

2008-05-22T12:08:16-04:00

Is the bot using a really old version of TCL?

Statistics: Posted by DragnLord — Thu May 22, 2008 12:08 pm

AOP with authcheck

2008-05-22T07:41:53-04:00

hehe. well 4 a clock is early

But its still nothing
Authed User joins the Chan and.... thats it.

Edit: well Partyline says:" Tcl error [raw354]: can't read "rawid": no such variable"

Here the whole Code

Code:

setudef flag aopset aop(channel) "#channel"set aop(rawid) "678"bind time -|- "* * * * *" scantimeproc scantime {minute hour day month year} {   global aop   bind RAW -|- {354} raw354   if {[validchan $aop(channel)]} {      if {[channel get $aop(channel) aop]} {         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"      }   }} proc raw354 {s r a} {   global aop   set a [split $a]   set a2 [string tolower $a]   regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join $a] -> rawid flags   regexp {(.*?) .*? (.*?) (.*?) (.*?) (.*?) (.*?) .*? (.*?)} [join $a2] -> bnick chan ident host nick auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick       }            }         } else {            pushmode $chan +v $nick         }      }   }

Statistics: Posted by Fraud — Thu May 22, 2008 7:41 am

AOP with authcheck

2008-05-21T10:56:08-04:00

I spotted a few more typos (guess I shouldn't bother answering posts at 4am).

Code:

proc raw354 {s r a} {   global aop   set a [split $a]   set a2 [string tolower $a]   regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join $a] -> rawid flags   regexp {(.*?) .*? (.*?) (.*?) (.*?) (.*?) (.*?) .*? (.*?)} [join $a2] -> bnick chan ident host nick auth   set v "*+*"   set o "*@*"   if {[string equal -nocase $rawid $aop(rawid)]} {      if {![string match $auth 0] > 0} {         if {[channel get $chan aop]} {            if {[string match "$o" "$flags"] == 0} {               pushmode $chan +o $nick            }         }      }   }}

Statistics: Posted by DragnLord — Wed May 21, 2008 10:56 am