New Emblems (3)

Tao Emblem for post Kyurem
Minor fix for monochrome stones
Heart Gold Emblem for Ho-oh
Soul Silver Emblem for Lugia
Can be achieved after battle on first encounter event
Retroactively achieved by revisiting encounter area

P3D/Network/Profiles/Emblem.vb

@@ -286,9 +286,9 @@
 
         Public Shared Function GetEmblemFontColor(ByVal emblemName As String) As Color
             Select Case emblemName.ToLower()
-                Case "alph", "genetics", "legendary", "stars", "champion", "overkill", "cyber", "glowing", "material", "fog", "mineral", "storm", "eggsplosion", "missingno", "thunder", "rainbow", "marsh", "volcano", "earth", "shooting star", "victorious", "mega", "time", "deep sea"
+                Case "alph", "genetics", "legendary", "stars", "champion", "overkill", "cyber", "glowing", "material", "fog", "mineral", "storm", "eggsplosion", "missingno", "thunder", "rainbow", "marsh", "volcano", "earth", "shooting star", "victorious", "mega", "time", "deep sea", "heart gold", "soul silver"
                     Return Color.White
-                Case "eevee", "pokedex", "snow", "trainer", "kanto", "glacier", "hive", "plain", "zephyr", "rising", "mailman", "cascade", "boulder", "unodostres", "silver ability", "gold ability", "silver knowledge", "gold knowledge", "johto", "eruption", "ancestor"
+                Case "eevee", "pokedex", "snow", "trainer", "kanto", "glacier", "hive", "plain", "zephyr", "rising", "mailman", "cascade", "boulder", "unodostres", "silver ability", "gold ability", "silver knowledge", "gold knowledge", "johto", "eruption", "ancestor", "tao", "floral"
                     Return Color.Black
             End Select
             Return Color.White
@@ -769,6 +769,14 @@
                     '    Return ???
                     'Case "mega"
                     '    Return ???
+                    'Case "heart gold"
+                    '    Return ???
+                    'Case "soul silver"
+                    '    Return ???
+                    'Case "tao"
+                    '    Return ???
+                    'Case "floral"
+                    '    Return ???
 
                 Case Else
                     Return 0
@@ -868,6 +876,14 @@
                     '    Return "time"
                     'Case ???
                     '    Return "mega"
+                    'Case "heart gold"
+                    '    Return ???
+                    'Case "soul silver"
+                    '    Return ???
+                    'Case "tao"
+                    '    Return ???
+                    'Case "floral"
+                    '    Return ???
 
                 Case Else
                     Return "fail"
@@ -1040,6 +1056,14 @@
                     Return "Mega"
                 Case "beast"
                     Return "Beast"
+                Case "heart gold"
+                    Return "Heart Gold"
+                Case "soul silver"
+                    Return "Soul Silver"
+                Case "tao"
+                    Return "Tao"
+                Case "floral"
+                    Return "Floral"
                 Case Else
                     Return "???"
             End Select
@@ -1137,6 +1161,14 @@
                     Return "Receive the Mega Bracelet from Professor Oak."
                 Case "beast"
                     Return "Have Raikou, Entei, and Suicune in your party."
+                Case "heart gold"
+                    Return "Have an encounter with the magnificent Ho-oh."
+                Case "soul silver"
+                    Return "Have an encounter with the mysterious Lugia."
+                Case "tao"
+                    Return "Have a heroic encounter."
+                Case "floral"
+                    Return "Have a mythical encounter."
                 Case Else
                     Return "Unknown emblem."
             End Select
@@ -1148,9 +1180,9 @@
                      "cascade", "thunder", "rainbow", "marsh", "soul", "volcano", "earth"
                     Return "Bronze"
                 Case "johto", "kanto", "legendary", "shooting star", "genetics", "eggsplosion", "mailman", "silver ability", "silver knowledge",
-                     "deep sea", "eruption", "victorious"
+                     "deep sea", "eruption", "victorious", "floral"
                     Return "Silver"
-                Case "champion", "snow", "eevee", "stars", "unodostres", "gold ability", "gold knowledge", "time", "ancestor", "beast"
+                Case "champion", "snow", "eevee", "stars", "unodostres", "gold ability", "gold knowledge", "time", "ancestor", "beast", "tao", "heart gold", "soul silver"
                     Return "Gold"
                 Case "overkill", "pokedex"
                     Return "Platinum"

P3D/P3D.vbproj

@@ -13931,9 +13931,15 @@
     <Content Include="Content\Textures\Emblem\floral.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\heart gold.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\mega.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\soul silver.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\alph.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -13970,6 +13976,9 @@
     <Content Include="Content\Textures\Emblem\Square\eruption.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\floral.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\fog.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -13985,6 +13994,9 @@
     <Content Include="Content\Textures\Emblem\Square\gold knowledge.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\heart gold.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\hive.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -14012,6 +14024,9 @@
     <Content Include="Content\Textures\Emblem\Square\mineral.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\missingno.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\overkill.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -14039,6 +14054,9 @@
     <Content Include="Content\Textures\Emblem\Square\snow.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\soul silver.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\soul.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -14048,12 +14066,18 @@
     <Content Include="Content\Textures\Emblem\Square\storm.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\tao.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\thunder.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
     <Content Include="Content\Textures\Emblem\Square\time.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\Square\trainer.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\Square\unodostres.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -14066,6 +14090,9 @@
     <Content Include="Content\Textures\Emblem\Square\zephyr.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\Emblem\tao.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\Emblem\time.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
@@ -24959,9 +24986,6 @@
     <Content Include="Content\Textures\Emblem\glacier.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
-    <Content Include="Content\Textures\Emblem\glowing.png">
-      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
-    </Content>
     <Content Include="Content\Textures\Emblem\gold ability.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>

P3D/Pokemon/Items/KeyItems/DarkStone.vb

@@ -1,6 +1,6 @@
 Namespace Items.KeyItems
 
-    <Item(652, "Dark stone")>
+    <Item(652, "Dark Stone")>
     Public Class DarkStone
 
         Inherits KeyItem

P3D/Pokemon/Items/KeyItems/LightStone.vb

@@ -1,6 +1,6 @@
 Namespace Items.KeyItems
 
-    <Item(651, "Light stone")>
+    <Item(651, "Light Stone")>
     Public Class LightStone
 
         Inherits KeyItem