View difference between Paste ID: UbfWF38J and CKFefZFP

 // 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 ] ]
+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 = [
-	result (
+	&& (
-		&& (
+		= (listlen (strreplace $arg1 . " ")) 4
-			= (listlen (strreplace $arg1 . " ")) 4
+	) (
-		) (
+		< (listfind i (strreplace $arg1 . " ") [|| (> $i 255) (< $i 0)]) 0
-			< (listfind i (strreplace $arg1 . " ") [|| (> $i 255) (< $i 0)]) 0
+	) (isnum $arg1)
-		) (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 delqcserv $_qc_servname
 	listcomplete viewqcserv $_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_servlist = (strreplace $qc_servlist (format ["%1"] (at $qc_servlist (_qc_findserv $arg1))) "")
+
 	]
 ]
 
 qclistserv = [
 	if (=s $qc_servlist "") [error "^f3No registered entries!"] [
 		if $numargs [looplist i $_qc_servname [_qc_info $i]] [
-	if (!=s $qc_servlist "") [
+
 		]
 	]
 ]
-	] [error "^f3No registered entries!"]
+
 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)
-	if (!=s $qc_servlist "") [
+
 ]
-	] [error "^f3No registered entries!"]
+
 // Compile tab completion upon execution, just in case
 
 _qc_complete