; Q Chanlev by Teppuli (#AndRew @ QuakeNet). Copyright (C) 2008 Teppuli & AndRew

on *:text:!chanlev *:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {
if (!$3) {
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if ($left($2,1) == $chr(35)) { processchanlevauth $chan $2 | halt }
if ($2 !ison $chan) { msg $chan %chanlevskin Nickname: $2 %chanlevskin Isnt on this channel %chanlevskin | halt }
processchanlev $chan $2
halt
}
if ($3) {

if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if ($left($2,1) == $chr(35)) { processchangechanlevauth $chan $2 $3 | halt }
if ($2 !ison $chan) { msg $chan %chanlevskin Nickname: $2 %chanlevskin Isnt on this channel %chanlevskin | halt }
processchangechanlev $chan $2 $3
halt
}
}
}
on *:text:!chanlev:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {

if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanlev $chan
}
}

on *:text:!chanflags:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanflags $chan
}
}

on *:text:!chanflags *:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanflags $chan $2
}
}

on *:text:!setskin:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {
notice $nick %chanlevskin Usage: $1 <new skin> %chanlevskin
}
}

on *:text:!setskin *:#:{
if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) {
set %chanlevskin $2
notice $nick %chanlevskin Done. %chanlevskin
}
}

on *:notice:*{
if ($nick != Q) { halt }
if (!%qchanlevpending) { halt }
if (User #* is not known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Auth: $remove($2,$chr(35)) %chanlevskin Is not known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. User #* is no longer known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Auth: $remove($3,$chr(35)) %chanlevskin Is not longer known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Current channel flags for #*: * iswm $1-) {
if (%qchanlevdone) {
msg %qchanlevpending %chanlevskin Done. New chanflags for channel %qchanlevpending $+ : $6- %chanlevskin
unset %qchanlevpending
unset %qchanlevdone
halt

}
msg %qchanlevpending %chanlevskin Current chanflags for channel %qchanlevpending $+ : $6- %chanlevskin
unset %qchanlevpending
halt
}
if (Done. iswm $1-) {
set -u10 %qchanlevdone true
halt
}
if (You do not have sufficient access on #* to use chanflags. iswm $1-) {
msg %qchanlevpending %chanlevskin I dont have sufficient access on Q to use chanflags. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. User * is no longer known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Nickname: $remove($3,$chr(35)) %chanlevskin Is not longer known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (User * is not known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Nickname: $remove($2,$chr(35)) %chanlevskin Is not known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. Flags for #* on #* are now: *. iswm $1-) {
msg %qchanlevpending %chanlevskin New flags for auth: $remove($4,$chr(35)) %chanlevskin Are: $remove($9,$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Done. Flags for * on #* are now: *. iswm $1-) {
msg %qchanlevpending %chanlevskin New flags for nick: $4 %chanlevskin Are: $remove($9,$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}

if (User * is not authed. iswm $1-) {
msg %qchanlevpending %chanlevskin User $2 is not authed %chanlevskin
unset %qchanlevpending
halt
}
if (Can't find user #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Can't find auth: $remove($remove($4,$chr(35)),$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Can't find user *. iswm $1-) {
msg %qchanlevpending %chanlevskin Can't find nickname: $remove($remove($4,$chr(35)),$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Invalid or disallowed flag specified. iswm $1-) {
msg %qchanlevpending %chanlevskin You specified invalid flag(s), or bot doesnt have enough access to perform this operation. %chanlevskin
unset %qchanlevpending
halt
}
if (Nothing changed. Your requested flag combination change was either the same as the existing flags, impossible, or you don't have enough access. iswm $1-) {
msg %qchanlevpending %chanlevskin Nothing changed. %chanlevskin I maybe dont have enough access, or requested flags are same as existing flags, or flag is unknown. %chanlevskin
unset %qchanlevpending
halt
}
if (Flags for #* on #*: * iswm $1-) {
msg %qchanlevpending %chanlevskin Flags for auth: $remove($3,$chr(35)) %chanlevskin Are: $6 %chanlevskin
unset %qchanlevpending
halt
}
if (Flags for * on #*: * iswm $1-) {
msg %qchanlevpending %chanlevskin Flags for nick: $3 %chanlevskin Are: $6 %chanlevskin
unset %qchanlevpending
halt
}
if (You do not have sufficient access on * to use chanlev. iswm $1-) { msg %qchanlevpending %chanlevskin I dont have sufficient access on Q. %chanlevskin | unset %qchanlevpending | halt }
if (Total: * (owner: * master: * op: * voice: * known: * ban: *). iswm $1-) {
msg %qchanlevpending %chanlevskin Chanlev stats for %qchanlevpending %chanlevskin
msg %qchanlevpending %chanlevskin Total: $2 $+ . %chanlevskin Owners: $remove($4,$chr(44)) $+ . %chanlevskin Masters: $remove($6,$chr(44)) $+ . %chanlevskin Ops: $remove($8,$chr(44)) $+ . %chanlevskin Voices: $remove($10,$chr(44)) $+ . %chanlevskin Known: $remove($12,$chr(44)) $+ . %chanlevskin Bans: $remove($14,$chr(41) $+ .) $+ . %chanlevskin
unset %qchanlevpending
halt
}

}
alias -l processchanlev {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2
}
alias -l processchanlevauth {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2
}
alias -l processchangechanlev {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2 $3
}
alias -l processchangechanlevauth {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2 $3
}