QuickConnect 2.51

// Some generic lists that may be used elsewhere

tld = [com net org de us cz fr gb jp ro ru se uk ws]
char_high = [ABCDEFGHIJKLMNOPQRSTUVWXYZ]
char_low  = [abcdefghijklmnopqrstuvwxyz]

// Some generic commands that may be used elsewhere

createine = [if (=s (getalias $arg1) "") [$arg1 = $arg2]]
append = [$arg1 = (concat (getalias $arg1) $arg2)]

charcase = [
    _str = $arg1
    _bool = [? $arg1 $char_high $char_low]
    loop c (strlen $arg1) [
        _char = (substr $_str $c 1)
        if (> (strstr (_bool (! $arg2)) $_char) -1) [
            _str = (strreplace $_str $_char (substr (_bool $arg2) (strstr (_bool (! $arg2)) $_char) 1))
        ]
    ]
    result $_str
]

isnum = [
    _bool = 1
    loop n (strlen $arg1) [
        if (< (strstr "0123456789." (substr $arg1 $n 1)) 0) [_bool = 0]
    ]
    result $_bool
]

isip = [
    && (
        = (listlen (strreplace $arg1 . " ")) 4
    ) (
        < (listfind i (strreplace $arg1 . " ") [|| (> $i 255) (< $i 0)]) 0
    ) (isnum $arg1)
]

mins = [
    _str = (at $arg1 0)
    looplist i $arg1 [if (<s $i $_str) [_str = $i]]
    result $_str
]

maxs = [
    _str = (at $arg1 0)
    looplist i $arg1 [if (>s $i $_str) [_str = $i]]
    result $_str
]

sortlist = [
    _list = ""
    loop p (listlen $arg1) [
        append _list (
            format ["%1"] ((? $arg2 maxs mins) (listdel $arg1 $_list))
        )
    ]
    result $_list
]

// Alias variables for the first use

createine _qc_servlist ""
createine _qc_servname ""

// 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 (sortlist $_qc_servname) 1)
    looplist i "qc qcdelserv qcviewserv" [
        listcomplete $i $_qc_servname
    ]
]
_qc_info = [
    _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))
]

// Below here lies the magic, user commands.

qcaddserv = [
    cond (|| (> (_qc_findserv $arg1) -1) (isip $arg1)) [
        error "^f3QC entry already exists or is invalid!"
    ] (
        ? (>= $numargs 2) (
            ? (< (indexof $tld (charcase (at (strreplace $arg2 . " ") (- (listlen (strreplace $arg2 . " ")) 1)))) 0) (! (isip $arg2))
        ) (! (isconnected))
    ) [
        error "^f3IP or Domain is invalid!"
    ] [
        append _qc_servlist (
            format ["%1 %2 %3"] @arg1 (
                ? (> @numargs 1) $arg2 (connectedip)
            ) (
                ? (> @numargs 2) $arg3 (? (isconnected) (connectedport) 28785)
            )
        )
        echo "^f2QC ^f7entry^f2" $arg1 "^f7has been included successfully!"
        _qc_complete
    ]
]

qcdelserv = [
    if (< (_qc_findserv $arg1) 0) [
        error "^f3QC entry does not exist!"
    ] [
        _qc_servlist = (listdel $_qc_servlist (format ["%1"] (at $_qc_servlist (_qc_findserv $arg1))))
        echo "^f2QC ^f7entry^f2" $arg1 "^f7has been deleted successfully!"
        _qc_complete
    ]
]

qclistserv = [
    if (=s $_qc_servlist "") [error "^f3No registered entries!"] [
        if $numargs [looplist i $_qc_servname [_qc_info $i]] [
            echo (format "^f2%1^f7 Available servers: ^f2%2" (listlen $_qc_servname) (strreplace (prettylist $_qc_servname) "," "^f7,^f2"))
        ]
    ]
]

qcviewserv = [
    if (< (_qc_findserv $arg1) 0) [
        error "^f3QC entry does not exist!"
    ] [_qc_info $arg1]
]

qc = [
    if (=s $_qc_servlist "") [error "^f3No registered entries!"] [
        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