Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // 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)
- ]
- // 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 $_qc_servname 1)
- listcomplete qc $_qc_servname
- listcomplete qcdelserv $_qc_servname
- listcomplete qcviewserv $_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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement