moin.tcl

namespace eval moin {
        bind pubm -|- * moin::moin
}

proc moin::moin { nick host handle chan text } {
        if {[regexp -nocase -- {(^moin|^mornin)} $text]} {
                putserv "PRIVMSG $chan :$nick moin"
        }

        if {[regexp -nocase -- {(^:\)|^:P)} $text]} {
        	putserv "PRIVMSG $chan ::)"
        }
}