bind pub - `ship _shipnicks

proc _shipnicks { nick uhost handle chan args } {

     catch { set nick "[ lindex $args 0 ] $nick" }
     set nicks [ chanlist $chan ]
     set shipnick [ expr { int(ceil(rand()*[ llength $nicks ])) - 1 } ]
     variable 1 [ lindex $nick 0 ] 2 [ lindex $nicks $shipnick ]

     #set shipmsgs {

     #    "I think $1 should be shipped with $2!"

     #}

     #set shipmsg [ expr { int(ceil(rand()*[ llength $shipmsgs ])) - 1 } ]

     puthelp "PRIVMSG $chan :I think $1 should be shipped with $2!"
     #puthelp "PRIVMSG $chan :[ eval [ lindex $shipmsgs $shipmsg ] ]"

}