From 7cce4f77032e78ed8cec3973e2e3effe78f62f28 Mon Sep 17 00:00:00 2001
From: Marcelo Lv Cabral <marcelo@lvcabral.com>
Date: Sat, 16 Nov 2019 14:55:07 -0700
Subject: [PATCH] Fixed #99 SD Mode cut screens on small TVs

---
 images/icon_arrows.png     | Bin 237 -> 440 bytes
 images/icon_arrows_bw.png  | Bin 226 -> 440 bytes
 images/keyboard-cursor.png | Bin 132 -> 132 bytes
 source/gameMain.brs        |  20 ++++----------------
 source/gameMenu.brs        |   8 +-------
 source/gameUtil.brs        |  10 +++++++---
 6 files changed, 12 insertions(+), 26 deletions(-)

diff --git a/images/icon_arrows.png b/images/icon_arrows.png
index 5e47c2ed2b4829e1d352ca45ac478ec8bd92e12a..fe0673f3241c1d1deabcad109577508b64dea34d 100644
GIT binary patch
delta 426
zcmV;b0agC(0k{K@7=H)`0000xFs`Bi0004VQb$4nuFf3k00004XF*Lt006O%3;baP
z00009a7bBm000id000id0mpBsWB>pGO-V#SR7gwhmd{GVKoEy#1FgMz6k-k{_!@#w
zAihE0P`rxZg9zdwRy>I}wa_@T`ORWTcDtKD#6v$QJ2RW)%YTF}3?2A)yszl&ZAq6%
zTgaYVgLE9qC0&<Cw8QTKWrx(<K3|J+5QEi=eUPDBq?U!D^OG-nkyyIiR`hH)l!|VO
zAG$-<Nl@G+Wj4h(6^Jd|X~|1oXJC&!!`i|pH9NXO>_BZ(XMpbwefG|dL(<bNJt1%K
zx}b|Hqel*-I)878`$&}(c|$xzs>I5jcnql$Be&u)rOH0JnL?_B<c81S2ZzUX#WIRi
z@yI{D=Xh!|ZhMVb$>j~@O_BE|@Tu4H{kf3NbDWeh<S|mAAr^+nW2Hh%EcB75NQF+Z
zkRnf&3SP0`lTSJb2=+#P08%CYJJcagl13w)yJ2oc_ai7fxSl-hMKjBIdtf+3zi&D6
U71mMk1poj507*qoM6N<$g4Mjd9smFU

delta 221
zcmdnN{FZToL_G^L0|UcJxy=)Slw5#Mh%1nO!p`u74MaX=Wq8Q}Vmt?PpKvhr?YCeB
zs^BUK@(X78=l?`i;l16SUG?6l%YdRKo-U3d5|@(|xLcSDHJeVW+&FMRaRtM3ZLTgO
z7A`KuC9J#>Ggw(gA6z=b$D`BM<W!IuCamz3C!}FQ8iTfjhqLH`r3<+dE)}o_WVST9
zOfZRQl(3SIwcS;j@onL5_RD)`{B!&vZfj$3h<jZElah_#Ltj1yhN~|`<g+ZEC<7h9
N;OXk;vd$@?2>@htNzVWP

diff --git a/images/icon_arrows_bw.png b/images/icon_arrows_bw.png
index 27830fe1a1bf949df8a88edaabd91f00d4a1fa7f..7683f4fbb23208f406f72e4a6656c12e2abb20fd 100644
GIT binary patch
delta 426
zcmV;b0agCu0k{K@7=H)`0000xFs`Bi0004VQb$4nuFf3k00004XF*Lt006O%3;baP
z00009a7bBm000id000id0mpBsWB>pGO-V#SR7gwhmQ8NLFc3!L9s_k*^%#hCvZ%NL
zN8<*FMUq8@#5oYlien_5&mIpyu^l^@(gknh8Qb`2M%YU6;(y=KG|flbwsTGgU=4dX
z9p#P3Aaz}T^?iTnx^7SLH%|+g!y5KrFHZ+iJbK}SHYPJDr9R8DJR(Mw5bA|9%c`oj
z96Je$T~gvihrV;Hp?yCz%uFT(<=$5Nq*U#KV}a*RCKEQHwmT~hNo|X7;g;_yjH-Mf
zo+7oR$gjlrNPjJ{auMf{T4Ll{oKtEUldDHaEg?Cs)7r#B7Ae3PIE%vDtG14MG9LlN
zD-#Mcv<GeCd@_Mnub%hk;^aBk$&y1JBL!DtaF0Az3I<{@MV=xBPBBQ4r%HkM9`g^D
zCKL2k<5)<Qg5U$<lcPe8b+t4kNx|sL<&f_#Tg~y#WFwkUX%eU`=jZK<KcXmp0V6Ua
UEX-U#o&W#<07*qoM6N<$g5!F!y8r+H

delta 210
zcmdnN{D^UaL_G^L0|UcJxy=)Slth3}h%1oZ3I^M@ZG$j?<o4~`jqK7c0_8YLg8YIR
z{`spsdB5APM2fQrC|2m{;us=vIaz^w26Lfd(`l6%2M(yMV0f<0#bqqP#ih7}RaPQ`
zg;n&yB_%eVGkr}?1)1pzsZ1da6VkjHv>iO0MGq`p$dz!ZfHfeqrO9D}Nlc@Lm3*x2
zuF8yW3wN_$-aF%;;}3CV8-v5##x{Zvefby|1XF~a_g~p22(+ES)78&qol`;+01m25
A6aWAK

diff --git a/images/keyboard-cursor.png b/images/keyboard-cursor.png
index c880a1b71c36a09fbe0e6437823cfc5268c9e8f5..df1c8ef0afc3d1219c60a41c5fae6e11e5a92a03 100644
GIT binary patch
delta 20
bcmZo+Y+;<>$#sZ<f$tEbsD@X=#9%`JI${N#

delta 20
bcmZo+Y+;<>$#s~4f$uQm@%$Aj6N3!_LS_cq

diff --git a/source/gameMain.brs b/source/gameMain.brs
index 3ce9d29..5824849 100644
--- a/source/gameMain.brs
+++ b/source/gameMain.brs
@@ -48,14 +48,7 @@ Sub Main()
         MessageDialog(m.port, "Prince of Persia", "Warning: Your Roku Stick device has limited memory," + chr(10) + "this game only works properly on the 4 rooms mode.")
     end if
     'Initialize Screen
-    if isHD()
-        print "HD Mode"
-        m.mainScreen = CreateObject("roScreen", true, 854, 480)
-    else
-        print "SD Mode"
-        m.mainScreen = CreateObject("roScreen", true, 640, 480)
-    end if
-    m.mainScreen.SetMessagePort(m.port)
+    ResetMainScreen()
     'Load Mods
     m.mods = LoadMods()
     'Initialize Settings
@@ -167,12 +160,7 @@ Sub Main()
                 PlayGame()
             end if
         end if
-        if isHD()
-            m.mainScreen = CreateObject("roScreen", true, 854, 480)
-        else
-            m.mainScreen = CreateObject("roScreen", true, 640, 480)
-        end if
-        m.mainScreen.SetMessagePort(m.port)
+        ResetMainScreen()
     end while
 End Sub
 
@@ -310,8 +298,8 @@ Sub SetupGameScreen()
 			m.mainWidth = 854
 			m.mainHeight = 626
 		else
-			m.mainWidth = 640
-			m.mainHeight = 480
+			m.mainWidth = 720
+			m.mainHeight = 540
 		end if
 	end if
     ResetScreen(m.mainWidth, m.mainHeight, m.gameWidth, m.gameHeight)
diff --git a/source/gameMenu.brs b/source/gameMenu.brs
index c58cfd5..8e66695 100644
--- a/source/gameMenu.brs
+++ b/source/gameMenu.brs
@@ -130,13 +130,7 @@ sub SettingsMenu()
                     end if
                 else if selected = 2
                     ModsAndCheatsScreen()
-                    if isHD()
-                        m.mainScreen = CreateObject("roScreen", true, 854, 480)
-                    else
-                        m.mainScreen = CreateObject("roScreen", true, 640, 480)
-                    end if
-                    m.mainScreen.SetMessagePort(m.port)
-                    m.mainScreen.SetAlphaEnable(true)
+                    ResetMainScreen()
                 else if selected = 3
                     HighscoresScreen()
                 else if selected = 4
diff --git a/source/gameUtil.brs b/source/gameUtil.brs
index 221d7a9..1656926 100644
--- a/source/gameUtil.brs
+++ b/source/gameUtil.brs
@@ -654,15 +654,19 @@ Function KeyboardScreen(title = "", prompt = "", text = "", button1 = "Okay", bu
         end if
     end while
     screen.Close()
+    ResetMainScreen()
+    return result
+End Function
+
+Sub ResetMainScreen()
     if isHD()
         m.mainScreen = CreateObject("roScreen", true, 854, 480)
     else
-        m.mainScreen = CreateObject("roScreen", true, 640, 480)
+        m.mainScreen = CreateObject("roScreen", true, 720, 540)
     end if
     m.mainScreen.SetMessagePort(m.port)
     m.mainScreen.SetAlphaEnable(true)
-    return result
-End function
+End Sub
 
 '------- Registry Functions -------
 Function GetRegistryString(key as String, default = "") As String