bind pub o !op pub:op
bind msg o op msg:op
 
proc pub:op {nick host hand chan arg} {
    putserv "MODE $chan +o $nick"
}
 
proc msg:op {nick host hand arg} {
    set chan [lindex $arg 0]
    if ![validchan $chan] {
        putserv "NOTICE $nick :salon invalide."
        return
    }
    putserv "MODE $chan +o $nick"
}

bind pub o !op test:op
bind msg o op test:op
 
proc test:op args {
    set arg [lassign $args nick host hand chan]
    if {[llength $chan]>1} {
        set arg [lassign $chan chan]
        if ![validchan $chan] {
            putserv "NOTICE $nick :salon invalide."
            return
        }
    }
    putserv "MODE $chan +o $nick"
}

proc arg_assign {} {
    uplevel 1 {
        set arg [lassign $args nick host hand chan]
        if {[llength $chan]>1} {
            set arg [lassign $chan chan]
        }
    }
}
 
bind pub o !op test:op
bind msg o op test:op
 
proc test:op args {
    arg_assign
    if ![validchan $chan] {
        putserv "NOTICE $nick :salon invalide."
        return
    }
    putserv "MODE $chan +o $nick"
}

bind pub o !op {procOp pub $_pub4 $_pub3 $_pub5}
bind msg o op {procOp msg $_msg1 $_msg3 $_msg4}
bind dcc o op {procOp dcc}
 
proc putuser {text} {
upvar 1 bindtype bindtype target target
if {$bindtype eq "dcc"} { putdcc $target $text
} else { putserv [concat PRIVMSG $target :$text] }
return }
 
proc procOp {bindtype target hand text args} {
# Whateverhappensinyourlifeforever
# ...
putuser "SLT LOL"
return }

bind pub o !op op:pub
bind msg o !op op:msg
 
proc op:pub {nick uhost handle chan args} {
   pushmode $chan +o $nick
}
proc op:msg {nick uhost handle args} {
   if {!validchan [lindex $args 0]} { return 0;}
   op:pub $nick $uhost $handle [lindex $args 0] {""}
}