QuickConnect 2

// Some generic commands that may be used elsewhere

createine = [ if (=s (getalias $arg1) "") [ $arg1 = $arg2 ] ]
append = [$arg1 = (concat (getalias $arg1) $arg2)]
strtochar = [
    temp = ""
    loop c (strlen $arg1) [
        append temp (format ["%1"] (substr $arg1 $c 1))
    ]
    result $temp
]

// Ugly and could use many improvements, but for
// the most part, it does its job pretty nicely

isip = [
    result (
        && (
            = (listlen (strreplace $arg1 . " ")) 4
        ) (
            < (listfind i (strreplace $arg1 . " ") [|| (> $i 255) (< $i 0)]) 0
        ) (
            < (listfind p (strtochar $arg1) [< (indexof "0 1 2 3 4 5 6 7 8 9 ." $p) 0]) 0
        )
    )
]

// Alias variables for the first use

createine qc_servlist ""
createine qc_servname ""
createine qc_sel      ""

// Define some commands as helpers

qc_findserv = [listfind i $qc_servlist [=s @arg1 (at $i 0)]]
qc_complete = [
    qc_servname = ""
    looplist i $qc_servlist [append qc_servname (at $i 0)]
    qc_servname = (substr $qc_servname 1)
    listcomplete qc $qc_servname
    listcomplete delqcserv $qc_servname
    listcomplete viewqcserv $qc_servname
]

// Below here lies the magic, user commands.

addqcserv = [
    cond (|| (> (qc_findserv $arg1) -1) (isip $arg1)) [
        error "^f3QC entry already exists or is invalid!"
    ] (
        ? (>= $numargs 2) (
            ? (< (indexof "com org net de us" (at (strreplace $arg2 . " ") (- (listlen (strreplace $arg2 . " ")) 1))) 0) (! (isip $arg2))
        ) (! (isconnected))
    ) [
        error "^f3Incorrect IP was rejected!"
    ] [
        append qc_servlist (
            format ["%1 %2 %3"] @arg1 (
                ? (isconnected) (connectedip) @arg2
            ) (
                ? (isconnected) (connectedport) (? (> @numargs 2) @arg3 28785)
            )
        )
        echo "^f2QC ^f7entry has been included successfully!"
        qc_complete
    ]
]

delqcserv = [
    if (< (qc_findserv $arg1) 0) [
        error "^f3QC entry does not exist!"
    ] [
        qc_servlist = (listdel $qc_servlist (format ["%1"] (at $qc_servlist (qc_findserv $arg1))))
        qc_complete
    ]
]

listqcserv = [
    echo (format "^f2%1^f7 Available servers: ^f2%2" (listlen $qc_servname) (strreplace $qc_servname " " "^f7, ^f2"))
]

viewqcserv = [
    qc_sel = (at $qc_servlist (qc_findserv $arg1))
    echo (format "^f7Name: ^f2%1 ^f7%2: ^f2%3 ^f7Port: ^f2%4" (at $qc_sel 0) (? (isip (at $qc_sel 1)) IP Domain) (at $qc_sel 1) (at $qc_sel 2))
]

qc = [
    if (!=s $qc_servlist "") [
        connect (at (at $qc_servlist (qc_findserv $arg1)) 1) (at (at $qc_servlist (qc_findserv $arg1)) 2)
    ]
]

// Compile tab completion upon execution, just in case

qc_complete