####################################################################################
set away {
   putserv "NOTICE $nick :\002Away\002: $nick, you are being marked as away (DEOP, VOICE) in the following channels: #emma-watson.net #trivia #help #bots #HouseCup"
   putserv "PRIVMSG chanserv :DEOP #emma-watson.net $nick"
   putserv "PRIVMSG chanserv :VOICE #emma-watson.net $nick"
   putserv "PRIVMSG chanserv :DEOP #trivia $nick"
   putserv "PRIVMSG chanserv :VOICE #trivia $nick"
   putserv "PRIVMSG chanserv :DEOP #help $nick"
   putserv "PRIVMSG chanserv :VOICE #help $nick"
   putserv "PRIVMSG chanserv :DEOP #bots $nick"
   putserv "PRIVMSG chanserv :VOICE #bots $nick"
   putserv "PRIVMSG chanserv :DEOP #HouseCup $nick"
   putserv "PRIVMSG chanserv :VOICE #Housecup $nick"
   log " $nick has put him/herself on Away."
}
bind pub o !away pub:t
proc pub:t {nick uhost hand chan text} {
if {$chan == "#staff"} {
global away
set awaynick [lindex [split $text " "] 0]
if {$text != "" && [onchan $nick $chan]} {
foreach line $away { puthelp "NOTICE $nick :$line" }
return 0
}
foreach line $away {putserv "NOTICE $nick :$line" }
} 
}
####################################################################################
set back {
   putserv "NOTICE $nick :\002Back\002: $nick, you are being marked as back (DEVOICE, OP) in the following channels: #emma-watson.net #trivia #help #bots #HouseCup"
   putserv "PRIVMSG chanserv :DEVOICE #emma-watson.net $nick"
   putserv "PRIVMSG chanserv :OP #emma-watson.net $nick"
   putserv "PRIVMSG chanserv :DEVOICE #trivia $nick"
   putserv "PRIVMSG chanserv :OP #trivia $nick"
   putserv "PRIVMSG chanserv :DEVOICE #help $nick"
   putserv "PRIVMSG chanserv :OP #help $nick"
   putserv "PRIVMSG chanserv :DEVOICE #bots $nick"
   putserv "PRIVMSG chanserv :OP #bots $nick"
   putserv "PRIVMSG chanserv :DEVOICE #housecup $nick"
   putserv "PRIVMSG chanserv :OP #housecup $nick"
   log " $nick has put him/herself on Available."
}
bind pub o !back pub:t
proc pub:t {nick uhost hand chan text} {
if {$chan == "#staff"} {
global back
set backnick [lindex [split $text " "] 0]
if {$text != "" && [onchan $nick $chan]} {
foreach line $back { puthelp "NOTICE $nick :$line" }
return 0
}
foreach line $back {putserv "NOTICE $nick :$line" }
} 
}
####################################################################################
set stats {
"Stats can be found at : http://stats.ewfs.co.uk/"
}
bind pub o !stats pub:t
proc pub:t {nick uhost hand chan text} {
global stats
set statsnick [lindex [split $text " "] 0]
if {$text != "" && [onchan $nick $chan]} {
foreach line $stats { puthelp "NOTICE $nick :$line" }
return 0
}
foreach line $stats {putserv "NOTICE $nick :$line" }
}
####################################################################################
set gallery {
"User Gallery can be found at : http://ewfs.co.uk/gallery"
}
bind pub o !gallery pub:t
proc pub:t {nick uhost hand chan text} {
global gallery
set gallerynick [lindex [split $text " "] 0]
if {$text != "" && [onchan $nick $chan]} {
foreach line $gallery { puthelp "NOTICE $nick :$line" }
return 0
}
foreach line $gallery {putserv "NOTICE $nick :$line" }
}
