#!/usr/local/bin/tclsh

package require irc

cd [file dirname $argv0]

load ./libmh_tcl.so

::irc::config logger 1
::irc::config debug 1

set server "irc.gnaa.us"
set nick "inc0g"
set chan "#gnaa"

set last_chan_msg ""

set c [::irc::connection]

# End of motd
$c registerevent 376 {

    mh_init
    cmd-join $::chan
    mh_spontaneous_reply
}

proc mh_spontaneous_reply {} {

    $::c privmsg $::chan [mh_doreply $::last_chan_msg]

    after [expr {int (rand () * 200000) + 60000}] \
        mh_spontaneous_reply
}

# Privmsg
$c registerevent PRIVMSG {

    if {[string equal [target] $::nick]} {

        set msg_split [split [msg] " "]
        set cmd [lindex $msg_split 0]

        if {[string equal $cmd exit]} {

            mh_cleanup
            cmd-quit
            set ::forever 1

        } else {

            after [expr {int (rand () * 5000) + 1000}] \
                [list \
                    $::c \
                    privmsg \
                    [who] \
                    [mh_doreply [msg]]
                ]
        }

    } elseif {[string equal [target] $::chan]} {

        set msg_split [split [msg] " "]
        set cmd [lindex $msg_split 0]

        if {[string equal $cmd .exit]} {

            mh_cleanup
            cmd-quit
            set ::forever 1

        } elseif {[regexp -nocase -- $::nick [msg] m]} {

            after [expr {int (rand () * 10000) + 1000}] \
                [list \
                    $::c \
                    privmsg \
                    $::chan \
                    "[who]: [mh_doreply [regsub -all -nocase -- $::nick [msg] {}]]" \
                ]

        } else {

            set ::last_chan_msg [msg]
            mh_doreply [msg]
        }
    }
}


# Connect
$c connect $server
$c user $nick h d e
$c nick $nick

vwait forever