proc moxfun_cry {nick host handle channel text} {
    global funstuff_enabled botnick

    if {!$funstuff_enabled} {
	return
    }

    set tlist [list "$nick starts to weep.  Poor little!"\
                  "$nick bursts into tears."\
                  "$nick cries."]

    set txt "sees: [lindex $tlist [rand [llength $tlist]]]"

    mxirc_action $channel $txt

    switch [rand 10] {
        0 { mxirc_action $channel "pats $nick.  C'mon, world isn't that bad." }
        1 { mxirc_say $channel "here $nick, have a tissue." }
        2 {
            mxirc_say $channel "!hug $nick"
            moxfun_hug $botnick $host $handle $channel $nick
        }
        default {}
    }
}