add regional form level tag

P3D/World/Level.vb

@@ -46,6 +46,7 @@ Public Class Level
     Private _wildPokemonWater As Boolean = True
     Private _showOverworldPokemon As Boolean = True
     Private _currentRegion As String = "Johto"
+    Private _regionalForm As String = ""
     Private _hiddenabilitychance As Integer = 0
     Private _lightingType As Integer = 0
     Private _isSafariZone As Boolean = False
@@ -476,6 +477,18 @@ Public Class Level
         End Set
     End Property
 
+    ''' <summary>
+    ''' Regional forms available on this level.
+    ''' </summary>
+    Public Property RegionalForm As String
+        Get
+            Return _regionalForm
+        End Get
+        Set(value As String)
+            _regionalForm = value
+        End Set
+    End Property
+
     ''' <summary>
     ''' Chance of a Hidden Ability being on a wild Pokémon.
     ''' </summary>
@@ -622,6 +635,7 @@ Public Class Level
         End Get
     End Property
 
+
 #End Region
 
 #Region "Structures"

P3D/World/LevelLoader.vb

@@ -959,6 +959,12 @@
             Screen.Level.CurrentRegion = "Johto"
         End If
 
+        If TagExists(Tags, "RegionalForm") = True Then
+            Screen.Level.RegionalForm = CStr(GetTag(Tags, "RegionalForm"))
+        Else
+            Screen.Level.RegionalForm = ""
+        End If
+
         If TagExists(Tags, "HiddenAbility") Then
             Screen.Level.HiddenAbilityChance = CInt(GetTag(Tags, "HiddenAbility"))
         Else