Added battle frontier shop with power items, QA pending. Fixed daycare texts and costs and other miscellaneous fixes.

2.5DHero/2.5DHero/Pokemon/Items/Standard/PowerAnklet.vb

@@ -11,7 +11,7 @@ Namespace Items.Standard
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
-            _textureRectangle = New Rectangle(240, 384, 24, 24)
+            _textureRectangle = New Rectangle(240, 288, 24, 24)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Standard/PowerBand.vb

@@ -11,7 +11,7 @@ Namespace Items.Standard
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
-            _textureRectangle = New Rectangle(216, 384, 24, 24)
+            _textureRectangle = New Rectangle(216, 288, 24, 24)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Standard/PowerBelt.vb

@@ -11,7 +11,7 @@ Namespace Items.Standard
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
-            _textureRectangle = New Rectangle(168, 384, 24, 24)
+            _textureRectangle = New Rectangle(168, 288, 24, 24)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Standard/PowerBracer.vb

@@ -11,7 +11,7 @@ Namespace Items.Standard
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
-            _textureRectangle = New Rectangle(144, 384, 24, 24)
+            _textureRectangle = New Rectangle(144, 288, 24, 24)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Standard/PowerLens.vb

@@ -11,7 +11,7 @@ Namespace Items.Standard
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
-            _textureRectangle = New Rectangle(192, 384, 24, 24)
+            _textureRectangle = New Rectangle(192, 288, 24, 24)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Security/FileValidation.vb

@@ -6,8 +6,8 @@
         Shared _valid As Boolean = False
 
         Const RUNVALIDATION As Boolean = False
-        Const EXPECTEDSIZE As Integer = 42289870
-        Const METAHASH As String = "OTEzQTRBRURFMjU2RkUyNDgxRjU0MEJDODMwMjk3Mzc="
+        Const EXPECTEDSIZE As Integer = 42302116
+        Const METAHASH As String = "RThCNzQxMTA2MUIxNzlBQzdFMDNCNEM5N0IwNDIwQzk="
 
         Public Shared ReadOnly Property IsValid(ByVal ForceResult As Boolean) As Boolean
             Get

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoScreen.vb

@@ -24,14 +24,14 @@
 
                     CanContinue = False
                 Case "trade"
-                    Dim storeData As String = CStr(argument.GetSplit(0))
-                    Dim canBuy As Boolean = CBool(argument.GetSplit(1))
-                    Dim canSell As Boolean = CBool(argument.GetSplit(2))
+                    Dim storeData As String = CStr(argument.GetSplit(0))    'e.g. Item ID
+                    Dim canBuy As Boolean = CBool(argument.GetSplit(1))     '
+                    Dim canSell As Boolean = CBool(argument.GetSplit(2))    '
 
                     Dim currencyIndicator As String = "P"
 
                     If argument.CountSplits() > 3 Then
-                        currencyIndicator = argument.GetSplit(3)
+                        currencyIndicator = argument.GetSplit(3)            'p for pokedollars, bp for battle points
                     End If
 
                     Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator), Color.Black, False))

2.5DHero/2.5DHeroContent/Content.mgcb

@@ -49698,6 +49698,9 @@
 #begin Scripts/frontier/frontier_cameraintro.dat
 /copy:Scripts/frontier/frontier_cameraintro.dat
 
+#begin Scripts/frontier/frontier_shop.dat
+/copy:Scripts/frontier/frontier_shop.dat
+
 #begin Scripts/frontier/intro.dat
 /copy:Scripts/frontier/intro.dat