tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-04-08 18:35:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gave "beast" text color white.

Browse Source
This commit is contained in:
FantaX1911 2019-01-25 19:05:01 +02:00
parent 1f3fc83b8a
commit d419794c3c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
P3D/Screens/Pokemon/PartyScreen.vb
View File

@ -845,22 +845,22 @@ Public Class PartyScreen
Private Sub CheckForBeastEmblem() Private Sub CheckForBeastEmblem()
'This sub checks if Entei, Raikou and Suicune are in the player's party. 'This sub checks if Entei, Raikou and Suicune are in the player's party.
Dim hasEntei As Boolean = False
Dim hasRaikou As Boolean = False Dim hasRaikou As Boolean = False
Dim hasSuicune As Boolean = False Dim hasEntei As Boolean = False
Dim hasSuicune2 As Boolean = False
For Each p As Pokemon In PokemonList For Each p As Pokemon In PokemonList
Select Case p.Number Select Case p.Number
Case 244
hasEntei = True
Case 243 Case 243
hasRaikou = True hasRaikou = True
Case 244
hasEntei = True
Case 245 Case 245
hasSuicune = True hasSuicune2 = True
End Select End Select
Next Next
If hasEntei And hasRaikou And hasSuicune Then If hasRaikou And hasEntei And hasSuicune2 Then
GameJolt.Emblem.AchieveEmblem("beast") GameJolt.Emblem.AchieveEmblem("beast")
End If End If
End Sub End Sub