bind pub - himbot msg:reply
bind pub - himbot msg:insult

proc msg:reply {nick host hand chan arg} {
    global owner
    global botnick
    set args "$arg"

    if {$arg == "hello"} {
        putserv "PRIVMSG $chan :Hello you!"
    }
}

proc msg:reply {nick host hand chan arg} {
	set args "$arg"

	package require http
	set url "http://www.randominsults.com"
	set page [http::data [http::geturl $url]]
	regexp {<i>(./?)</i>} $page a insult
	if {$arg == "insult"} {
		putserv "PRIVMSG $chan :$insult"
	}
}