# emulate.ka v2 by doug, modded by kano
# CORRECTLY emulates ircii replys
addecho "[kano] emulate.ka v2 by doug loaded"
addname emulate.ka

set emulate(os) "FreeBSD 3.1-STABLE"
set emulate(version) {ircII 4.4 $emulate(os) :this is a bug free client. honest}
set emulate(clientinfo) "SED VERSION CLIENTINFO USERINFO ERRMSG FINGER TIME ACTION DCC UTC PING ECHO :Use CLIENTINFO <COMMAND> to get more specific information"
set emulate(userinfo) ""
set emulate(echo) {[string range [lrange $args 1 end] 0 79]}
set emulate(finger) {[FALC_config connection description] ([my_user]@[my_host]) Idle [random 29 92459] seconds}
set emulate(clientinfo:sed) "contains simple_encrypted_data"
set emulate(clientinfo:version) "shows client type, version and environment"
set emulate(clientinfo:clientinfo) "gives information about available CTCP commands"
set emulate(clientinfo:userinfo) "returns user settable information"
set emulate(clientinfo:errmsg) "returns error messages"
set emulate(clientinfo:finger) "shows real name, login name and idle time of user"
set emulate(clientinfo:time) "tells you the time on the user's host"
set emulate(clientinfo:action) "contains action descriptions for atmosphere"
set emulate(clientinfo:dcc) "requests a direct_client_connection"
set emulate(clientinfo:utc) "substitutes the local timezone"
set emulate(clientinfo:ping) "returns the arguments it receives"
set emulate(clientinfo:echo) "returns the arguments it receives"
set emulate(clientinfo:*) {CLIENTINFO: [lindex $args 0] is not a valid function}

on ctcp {
    if {[get_cookie cloak]} return
    global emulate
    set arg [args]
    set whoo [nick]
    set cmd [string tolower [lindex $arg 1]]
    set args [string tolower [lrange $arg 2 end]]
    
    set i [join [concat $cmd $args] :]
    catch {unset reply}
    if [info exists emulate($i)] {
	set reply $emulate($i)
    } {
	foreach var [array names emulate] {
	    if [string match $var $i] {
		set reply $emulate($var)
		break
	    }
	}
    }
    if [info exists reply] {
	/quote NOTICE $whoo :
[string toupper [concat [lindex $arg 1] [lindex $arg 2]]] [subst $reply]

	echo [rep [t ctcp] %cmd [lindex [args] 1]]
	complete
    }
}