View difference between Paste ID: CKFefZFP and NDVwGEJT

-// TLD LIST
+// Some generic lists that may be used elsewhere
 
-tld = [
+tld = [com net org de us cz fr gb jp ro ru se uk ws]
-AC AD AE AF AG AI AL AM AO AR AS ASIA AT AU AW AX AZ BA BB BD BE BF BG BH
+char_high = [ABCDEFGHIJKLMNOPQRSTUVWXYZ]
-BI BIZ BJ BM BN BO BR BS BT BW BY BZ CA CC CD CF CG CH CI CK CL CM CN CO
+char_low  = [abcdefghijklmnopqrstuvwxyz]
-COM CR CU CV CX CY CZ DE DJ DK DM DO DZ EC EDU EE EG ER ES ET EU FI FJ FK
+
-FM FO FR GA GB GD GE GF GG GH GI GL GM GN GP GQ GR GS GT GU GW GY HK HM HN
+
-HR HT HU ID IE IL IM IN INFO IO IQ IR IS IT JE JM JO JP KE KG KH KI KM KN
+
-KP KR KW KY KZ LB LC LI LK LR LS LT LU LV LY MA MC ME MG MH ML MM MN MO MP
+
-MQ MR MS MT MU MV MW MX MY MZ NA NC NE NET NF NG NI NL NO NP NR NU NZ OM
+
-ORG PA PE PF PG PH PK PL PM PN PR PS PT PW PY QA RE RO RS RU RW SA SB SC
+
-SD SE SG SH SI SK SL SM SN SO SR ST SU SV SY SZ TC TD TG TH TJ TK TL TM TN
+charcase = [
-TO TP TR TT TV TW TZ UA UG UK US UY UZ VC VE VG VI VN VU WF WS YE YT ZA ZM ZW
+	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 = [
-		if (< (strstr "0123456789." (substr $arg1 $c 1)) 0) [bool = 0]
+
 	loop n (strlen $arg1) [
 		if (< (strstr "0123456789." (substr $arg1 $n 1)) 0) [bool = 0]
 	]
 	result $bool
-// 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
 		) (isnum $arg1)
 	)
 ]
 
 // Alias variables for the first use
 
 createine qc_servlist ""
 createine _qc_servname ""
-createine qc_servname ""
+
 // Define some commands as helpers
 
 _qc_findserv = [listfind i $qc_servlist [=s $arg1 (at $i 0)]]
-qc_findserv = [listfind i $qc_servlist [=s $arg1 (at $i 0)]]
+_qc_complete = [
-qc_complete = [
+	_qc_servname = ""
-	qc_servname = ""
+	looplist i $qc_servlist [append _qc_servname (at $i 0)]
-	looplist i $qc_servlist [append qc_servname (at $i 0)]
+	_qc_servname = (substr $_qc_servname 1)
-	qc_servname = (substr $qc_servname 1)
+	listcomplete qc $_qc_servname
-	listcomplete qc $qc_servname
+	listcomplete delqcserv $_qc_servname
-	listcomplete delqcserv $qc_servname
+	listcomplete viewqcserv $_qc_servname
-	listcomplete viewqcserv $qc_servname
+
 _qc_info = [
-qc_info = [
+	qc_sel = (at $qc_servlist (_qc_findserv $arg1))
-	qc_sel = (at $qc_servlist (qc_findserv $arg1))
+
 ]
 
 // Below here lies the magic, user commands.
 
 qcaddserv = [
 	cond (|| (> (_qc_findserv $arg1) -1) (isip $arg1)) [
-	cond (|| (> (qc_findserv $arg1) -1) (isip $arg1)) [
+
 	] (
 		? (>= $numargs 2) (
 			? (< (indexof $tld (charcase (at (strreplace $arg2 . " ") (- (listlen (strreplace $arg2 . " ")) 1)))) 0) (! (isip $arg2))
-			? (< (indexof $tld (at (strreplace $arg2 . " ") (- (listlen (strreplace $arg2 . " ")) 1))) 0) (! (isip $arg2))
+
 	) [
 		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!"
-		echo "^f2QC ^f7entry has been included successfully!"
+		_qc_complete
-		qc_complete
+
 ]
 
 qcdelserv = [
 	if (< (_qc_findserv $arg1) 0) [
-	if (< (qc_findserv $arg1) 0) [
+
 	] [
 		qc_servlist = (strreplace $qc_servlist (format ["%1"] (at $qc_servlist (_qc_findserv $arg1))) "")
-		qc_servlist = (strreplace $qc_servlist (format ["%1"] (at $qc_servlist (qc_findserv $arg1))) "")
+		echo "^f2QC ^f7entry^f2" $arg1 "^f7has been deleted successfully!"
-		echo "^f2QC ^f7entry has been deleted successfully!"
+		_qc_complete
-		qc_complete
+
 ]
 
 qclistserv = [
 	if (!=s $qc_servlist "") [
-	echo (format "^f2%1^f7 Available servers: ^f2%2" (listlen $qc_servname) (strreplace $qc_servname " " "^f7, ^f2"))
+		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"))
 		]
 	] [error "^f3No registered entries!"]
-	if (< (qc_findserv $arg1) 0) [
+
 
-	] [qc_info $arg1]
+
 	if (< (_qc_findserv $arg1) 0) [
 		error "^f3QC entry does not exist!"
-qcviewservall = [
+	] [_qc_info $arg1]
 ]
-		looplist i $qc_servname [qc_info $i]
+
 qc = [
 	if (!=s $qc_servlist "") [
 		connect (at (at $qc_servlist (_qc_findserv $arg1)) 1) (at (at $qc_servlist (_qc_findserv $arg1)) 2)
 	] [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