What it does: Give an op to a authed user on join
Usage: !aop on/off/status
- Code: Select all
set aop(chan) ""
set aop(nick) ""
setudef flag authop
bind pub n "!aop" pub:aop
bind join - * join:aop
bind raw - "354" raw:aop
proc pub:aop {nick host hand chan arg} {
global aop
if {[lindex $arg 0] == ""} {
putserv "notice $nick :Please use: !aop on|off|status"
} elseif {[lindex $arg 0] == "on"} {
if {[channel get $chan authop] == "1"} {
putserv "notice $nick :Autoop is already enabled for $chan"
} else {
channel set $chan +authop
putserv "notice $nick :Autoop is now enabled for $chan"
}
} elseif {[lindex $arg 0] == "off"} {
if {[channel get $chan authop] == "0"} {
putserv "notice $nick :Autoop is already disabled for $chan"
} else {
channel set $chan -authop
putserv "notice $nick :Autoop is now disabled for $chan"
}
} elseif {[lindex $arg 0] == "status"} {
if {[channel get $chan authop] == "1"} {
putserv "notice $nick :Autoop is: enabled"
} else {
putserv "notice $nick :Autoop is: disabled"
}
}
}
proc join:aop {nick host hand chan} {
if {[channel get $chan authop] == "1"} {
global aop
set aop(chan) "$chan"
set aop(nick) "$nick"
putserv "who $nick n%nat,167"
}
}
proc raw:aop {from raw arg} {
global aop
if {[lindex $arg 3] != "0"} {
putserv "mode $aop(chan) +o $aop(nick)"
}
}
tHx