From f03e93151b0562153c6b03d3c6652b729e7f4c7e Mon Sep 17 00:00:00 2001
From: furaihan <zhafarfuraihan@gmail.com>
Date: Sat, 29 Aug 2020 00:02:52 +0700
Subject: [PATCH] added convert case fuction

---
 first-setup | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/first-setup b/first-setup
index 6e4d9f2..6bf3276 100644
--- a/first-setup
+++ b/first-setup
@@ -1,4 +1,4 @@
-#Add a new scheduler setting with folowwing event:
+#Add a new scheduler setting with following event:
 #Change telegram chat id below with your own
 :global CHATID ("-4936xxx")
 #Change telegram bot id below with your own
@@ -13,3 +13,28 @@
 		return "Error! this probably cause from unknown vendor or a connection problem"
 	}
 }
+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}
+		:set result ($result.$single)
+	}
+	:return $result
+}