From b0755b9d0e083f2481ea36a8cf5bd1f929c5c0a3 Mon Sep 17 00:00:00 2001
From: furaihan <zhafarfuraihan@gmail.com>
Date: Sun, 30 Aug 2020 17:18:36 +0700
Subject: [PATCH] Update first-setup

---
 first-setup | 45 +++++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 22 deletions(-)

diff --git a/first-setup b/first-setup
index 30f412c..5beccf7 100644
--- a/first-setup
+++ b/first-setup
@@ -14,43 +14,44 @@
 	}
 }
 #source: https://s.id/q4f-O
-global ConvertLowerCase do={
-	local alphabet {"A"="a";"B"="b";"C"="c";"D"="d";"E"="e";"F"="f";"G"="g";"H"="h";"I"="i";"J"="j";"K"="k";"L"="l";"M"="m";"N"="n";"O"="o";"P"="p";"Q"="q";"R"="r";"S"="s";"T"="t";"U"="u";"V"="v";"X"="x";"Z"="z";"Y"="y";"W"="w"};
-	local result
-	local character
-	for strings from=0 to=([:len $1] - 1) do={
-		local single [:pick $1 $strings]
-		set character ($alphabet->$single)
-		if ([:typeof $character] = "str") do={set single $character}
+:global ConvertLowerCase do={
+	:local alphabet {"A"="a";"B"="b";"C"="c";"D"="d";"E"="e";"F"="f";"G"="g";"H"="h";"I"="i";"J"="j";"K"="k";"L"="l";"M"="m";"N"="n";"O"="o";"P"="p";"Q"="q";"R"="r";"S"="s";"T"="t";"U"="u";"V"="v";"X"="x";"Z"="z";"Y"="y";"W"="w"};
+	:local result
+	:local character
+	:for strings from=0 to=([:len $1] - 1) do={
+		:local single [:pick $1 $strings]
+		:set character ($alphabet->$single)
+		:if ([:typeof $character] = "str") do={set single $character}
 		:set result ($result.$single)
 	}
 	:return $result
 }
 
-global ConvertUpperCase do={
-	local alphabet {"a"="A";"b"="B";"c"="C";"d"="D";"e"="E";"f"="F";"g"="G";"h"="H";"i"="I";"j"="J";"k"="K";"l"="L";"m"="M";"n"="N";"o"="O";"p"="P";"q"="Q";"r"="R";"s"="S";"t"="T";"u"="U";"v"="V";"x"="X";"z"="Z";"y"="Y";"w"="W"};
-	local result
-	local character
-	for strings from=0 to=([:len $1] - 1) do={
-		local single [:pick $1 $strings]
-		set character ($alphabet->$single)
-		if ([:typeof $character] = "str") do={set single $character}
+:global ConvertUpperCase do={
+	:local alphabet {"a"="A";"b"="B";"c"="C";"d"="D";"e"="E";"f"="F";"g"="G";"h"="H";"i"="I";"j"="J";"k"="K";"l"="L";"m"="M";"n"="N";"o"="O";"p"="P";"q"="Q";"r"="R";"s"="S";"t"="T";"u"="U";"v"="V";"x"="X";"z"="Z";"y"="Y";"w"="W"};
+	:local result
+	:local character
+	:for strings from=0 to=([:len $1] - 1) do={
+		:local single [:pick $1 $strings]
+		:set character ($alphabet->$single)
+		:if ([:typeof $character] = "str") do={set single $character}
 		:set result ($result.$single)
 	}
 	:return $result
 }
-global CheckConnection do={
-	global ConnectionAvailable
-	tool flood-ping 8.8.8.8 count=10 do={
+:global ConnectionAvailable do={
+	:local internet
+	/tool flood-ping 8.8.8.8 count=10 do={
 		/if ($received > 8) do={
-			set $ConnectionAvailable [tobool true]
+			:set $internet true;
 		} else={
-			set $ConnectionAvailable [tobool false]
+			:set internet false;
 		}
 	}
+	:return $internet
 }
 #This script is inspired by TSOKOTSA's script published in the Mikrotik forum
-global GenerateRandomString do={
+:global GenerateRandomString do={
 	:local hour [:pick [/system clock get time] 0 2]
 	:local hourx
 	:local minute [:pick [/system clock get time] 3 5]