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).
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"
}
}
}
}
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"
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"