AOP with authcheck

DragnLord · Post by **DragnLord** » Fri May 23, 2008 2:27 am

setudef flag aop

set aop(channel) "#channel"
set aop(rawid) "678"
bind time -|- "* * * * *" scantime

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

Fraud · Post by **Fraud** » Fri May 23, 2008 11:24 am

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: Select all

 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

DragnLord · Post by **DragnLord** » Fri May 23, 2008 11:53 am

of course that's possible

DragnLord · Post by **DragnLord** » Fri May 23, 2008 12:04 pm

Code: Select all

setudef flag aop

set aop(channel) "#channel"
set aop(rawid) "678"
set aop(cmd) "!aop"

bind time -|- "* * * * *" scantime
bind PUB o $aop(cmd) aop_pub

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

Fraud · Post by **Fraud** » Fri May 23, 2008 2:15 pm

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

DragnLord · Post by **DragnLord** » Fri May 23, 2008 11:33 pm

jonlar wrote: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.

Fraud · Post by **Fraud** » Sat May 24, 2008 10:14 am

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: Select all

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

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

Code: Select all

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


bind time -|- "* * * * *" scantime
bind PUB o $aop(cmd) aop_pub

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

metroid · Post by **metroid** » Sun May 25, 2008 5:37 pm

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.

Fraud · Post by **Fraud** » Mon May 26, 2008 7:28 am

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