xOP TCL script

# IRC network ChanServ's nickname
set chanservnick "ChanServ"

#binding events
bind pub mn|mn .aop pub_aop
bind pub mn|mn .sop pub_sop
bind pub mn|mn .hop pub_hop
bind pub mn|mn .vop pub_vop

proc pub_aop {nick uhost hand chan text} {
    putserv "PRIVMSG $chanservnick :aop $chan ADD $text"
}

proc pub_sop {nick uhost hand chan text} {
    putserv "PRIVMSG $chanservnick :sop $chan ADD $text"
}

proc pub_hop {nick uhost hand chan text} {
    putserv "PRIVMSG $chanservnick :hop $chan ADD $text"
}

proc pub_vop {nick uhost hand chan text} {
    putserv "PRIVMSG $chanservnick :vop $chan ADD $text"
}