View difference between Paste ID: wmHHMDeY and USRMAKdr

 // Some generic commands that may be used elsewhere
-iscorrectip = [result (= (listlen (strreplace $arg1 . " ")) 4)]
+
 createine = [ if (=s (getalias $arg1) "") [ $arg1 = $arg2 ] ]
-	connect (
+append = [$arg1 = (concat (getalias $arg1) $arg2)]
-		at (at $qc_servlist (listfind i $qc_servlist [(=s @arg1 (at $i 0))])) 1
+strtochar = [
-	) (
+	temp = ""
-		at (at $qc_servlist (listfind i $qc_servlist [(=s @arg1 (at $i 0))])) 2
+	loop c (strlen $arg1) [
 		append temp (format ["%1"] (substr $arg1 $c 1))
 	]
 	result $temp
 ]
-	cond (= (listfind i $qc_servlist [(=s @arg1 (at $i 0))]) 0) [
+
-		echo "^f7QC entry already exists!"
+// Ugly and could use many improvements, but for
-	] (? (>= $numargs 2) (! (iscorrectip @arg2)) (! (isconnected))) [
+// the most part, it does its job pretty nicely
-		echo "^f7Incorrect IP was rejected!"
+
 isip = [
 	result (
 		&& (
 			= (listlen (strreplace $arg1 . " ")) 4
 		) (
-				? (isconnected) (connectedport) (? (> $numargs 2) @arg3 28785)
+			< (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
-		qc_servname = ""
+
-		looplist i $qc_servlist [append qc_servname (at $i 0)]
+
-		listcomplete qc $qc_servname
+
 
-]
+// 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