#night.ka -- miscellaneous addons I felt like making.
#Created by Night, l33terized by kano

if {[get_cookie currentver] != ""} {
    after 1 {set verreply [get_cookie currentver]}
}

set allvers {
    bitchx1 {BitchX-75p1+ by panasync - Linux 2.0.34 : Keep it to yourself!}
    bitchx2 {osiris-1a/bitchx-74p2 : ereet?}
    bitchx3 {bitchx(74p2)+interspace(3) [phunk]}
    bitchx4 {bx-74p2/Linux 2.0.32(shell) + coherent-1.00(final) :deviate from the absolute}
    ircii {Running ircII 2.8.2-EPIC3 on *nix!}
    mirc {mIRC32 v5.41 K.Mardam-Bey}
    7thsphere {!7th Sphere! 3.0 for mIRC 5.02}
    mirc54 {mIRC32 v5.4 K.Mardam-Bey}
    pirch {PIRCH98:WIN 95/98/WIN NT:1.0 (build 1.0.1.1190)}
}

proc find_ver x {
    global allvers
    if {$x == ""} {return $old_fullver}
    foreach {a b} [concat [get_cookie addver] $allvers] {
	if {$a == $x} {
	    return $b
	}
    }
    return $x
}
addname (night.ka)
alias setver {
    set arg [raw_args]
    set cat [concat [get_cookie addver] $allvers none]
    if {$arg == ""} {
	set vers ""
	foreach {a b} $cat {
	    lappend vers [strip $b]
	}
	set ans [FALC_listbox -t "Set version reply" -m "Select a version reply" -e $vers]
	if {$ans == ""} {complete;return}
	set f 0
	foreach {a b} $cat {
	    if {[strip $ans] == [strip $b]} {
		set verreply $b
		set f 1
		break
	    }
	}
	if !$f {set verreply $ans}
    } elseif {$arg == "list"} {
	foreach {a b} $cat {
	    echo "[kano] $a: $b"
	}
	complete;return
    } {
	set verreply [find_ver [raw_args]]
    }
    if {$verreply != $old_fullver && $verreply != "none"} {
	set_cookie currentver $verreply
    } {
	set_cookie currentver ""
	set verreply $old_fullver
    }
    echo "[kano] Permanent version reply set to ( $verreply )"
    complete
}

alias unf { 
    if {[arg] == ""} {
	say "*moan* uNF uNF *grunt*"
    } {
	/me opens his mouth... his tongue darts out towards... [arg]! (uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF uNF)
    }
    complete
}

alias smack { 
    if {[arg] == ""} {
	/me slaps his arm a few times, saying, 'I need it bad!'
	complete;return
    }
    /me smacks [arg] upside the head! (stupid fuck)
    complete
}

alias bitchslap { 
    if {[arg] == ""} {
	say "Slap that stupid bitch."
    } {
	/me bitchslaps [arg], a resounding *CRACK* is heard!
    }
    complete
}

addecho "[kano] Thank you for using --(night.ka)--"
kaddhelp unf "Makes an *uNF* statement, or uNFs <name>" "/unf \[name\]" "uNF uNF uNF!"
kaddhelp setver "Without an argument, this pops up a cute dialog box so you can pick a version reply. With an argument, it allows you to set your version reply to the one associated with <client name> or set your own. These are saved forever." "/setver \[reply|client name\], /setver, /setver list, /setver none" "Set Version Reply" "/stealver"
kaddhelp smack "Smacks somebody." "/smack <name>" "Smack!"
kaddhelp bitchslap "Bitchslaps somebody." "/bitchslap <name>" "Bitchslap"

#shit added by kano
kaddhelp addver "Adds a client name and reply to /setver." "/addver <client name> <reply>" "Add Version Reply" "/stealver"

alias addver {
    if {[lindex [args] 1] == ""} {/help [event];complete;return}
    set_cookie addver [concat [get_cookie addver] [list [lindex [args] 0] [join [lrange [args] 1 end]]]]
    echo "[kano] Added version reply ( [join [lrange [args] 1 end]] )"
    complete
}