QuickConnect WIP

createine qc_servlist ""
iscorrectip = [result (= (listlen (strreplace $arg1 . " ")) 4)]
qc = [
    connect (
        at (at $qc_servlist (listfind i $qc_servlist [(=s @arg1 (at $i 0))])) 1
    ) (
        at (at $qc_servlist (listfind i $qc_servlist [(=s @arg1 (at $i 0))])) 2
    )
]

addqcserv = [
    cond (= (listfind i $qc_servlist [(=s @arg1 (at $i 0))]) 0) [
        echo "^f7QC entry already exists!"
    ] (? (>= $numargs 2) (! (iscorrectip @arg2)) (! (isconnected))) [
        echo "^f7Incorrect IP was rejected!"
    ] [
        append qc_servlist (
            format ["%1 %2 %3"] @arg1 (
                ? (isconnected) (connectedip) @arg2
            ) (
                ? (isconnected) (connectedport) (? (> $numargs 2) @arg3 28785)
            )
        )
        qc_servname = ""
        looplist i $qc_servlist [append qc_servname (at $i 0)]
        listcomplete qc $qc_servname
    ]
]