P3D-Legacy/P3D/World/ActionScript/V2/ScriptConstructs/DoPokedex.vb

Namespace ScriptVersion2

    Partial Class ScriptComparer

        ' --------------------------------------------------------------------------------------------------------------------------
        ' Contains the <pokedex> constructs.
        ' --------------------------------------------------------------------------------------------------------------------------

        Private Shared Function DoPokedex(ByVal subClass As String) As Object
            Dim command As String = GetSubClassArgumentPair(subClass).Command
            Dim argument As String = GetSubClassArgumentPair(subClass).Argument

            Select Case command.ToLower()
                Case "caught"
                    Return Pokedex.CountEntries(Core.Player.PokedexData, {2, 3}).ToString()
                Case "shiny"
                    Return Pokedex.CountEntries(Core.Player.PokedexData, {3}).ToString()
                Case "seen"
                    Return Pokedex.CountEntries(Core.Player.PokedexData, {1}).ToString()
                Case "dexcaught"
                    Dim dexIndex As Integer = int(argument)
                    Return Core.Player.Pokedexes(dexIndex).Obtained
                Case "dexseen"
                    Dim dexIndex As Integer = int(argument)
                    Return Core.Player.Pokedexes(dexIndex).Seen + Core.Player.Pokedexes(dexIndex).Obtained
                Case "getheight"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        Return Pokemon.GetPokemonByID(id, ad).PokedexEntry.Height
                    End If
                Case "getweight"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        Return Pokemon.GetPokemonByID(id, ad).PokedexEntry.Weight
                    End If
                Case "getentry"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        Dim p As Pokemon = Pokemon.GetPokemonByID(id, ad)
                        Dim FormName As String = PokemonForms.GetFormName(p)
                        If FormName = "" Then
                            FormName = p.Name
                        End If
                        If Localization.LanguageSuffix <> "en" AndAlso Localization.TokenExists("pokemon_desc_" & FormName) = True Then
                            Return Localization.GetString("pokemon_desc_" & FormName, Pokemon.GetPokemonByID(id, ad).PokedexEntry.Text)
                        Else
                            Return Pokemon.GetPokemonByID(id, ad).PokedexEntry.Text
                        End If
                    End If
                Case "getcolor"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        Return Pokemon.GetPokemonByID(id, ad).PokedexEntry.Color.ToString()
                    End If
                Case "getspecies"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        If Localization.LanguageSuffix <> "en" AndAlso Localization.TokenExists("pokemon_species_" & dexID) = True Then
                            Return Localization.GetString("pokemon_species_" & dexID, Pokemon.GetPokemonByID(id, ad).PokedexEntry.Species)
                        Else
                            Return Pokemon.GetPokemonByID(id, ad).PokedexEntry.Species
                        End If
                    End If
                Case "getname"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If

                    If Pokemon.PokemonDataExists(dexID) Then
                        Return Pokemon.GetPokemonByID(id, ad).GetName()
                    End If
                Case "getability"
                    Dim id As Integer = CInt(argument.GetSplit(0, ",").GetSplit(0, "_").GetSplit(0, ";"))
                    Dim ad As String = ""
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                        ad = argument.GetSplit(1, ";")
                    ElseIf argument.Contains("_") Then
                        ad = PokemonForms.GetAdditionalValueFromDataFile(argument)
                    End If
                    If Pokemon.PokemonDataExists(dexID.GetSplit(0, ",")) Then
                        Select Case argument.GetSplit(1)
                            Case "0"
                                Return Pokemon.GetPokemonByID(id, ad).NewAbilities(Core.Random.Next(0, Pokemon.GetPokemonByID(id, ad).NewAbilities.Count)).ID
                            Case "1"
                                Return Pokemon.GetPokemonByID(id, ad).NewAbilities(0).ID
                            Case "2"
                                Return Pokemon.GetPokemonByID(id, ad).NewAbilities(Pokemon.GetPokemonByID(id, ad).NewAbilities.Count - 1).ID
                            Case "3"
                                Return Pokemon.GetPokemonByID(id, ad).HiddenAbility.ID

                        End Select
                    End If
                Case "pokemoncaught"
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                    End If
                    If Pokemon.PokemonDataExists(dexID) Then
                        If Pokedex.GetEntryType(Core.Player.PokedexData, dexID) > 1 Then
                            Return ReturnBoolean(True)
                        Else
                            Return ReturnBoolean(False)
                        End If

                    End If
                Case "pokemonseen"
                    Dim dexID As String = argument
                    If argument.Contains(";") Then
                        If Pokemon.PokemonDataExists(argument) = False Then
                            dexID = argument.GetSplit(0, ";")
                        End If
                    End If
                    If Pokemon.PokemonDataExists(dexID) Then
                        If Pokedex.GetEntryType(Core.Player.PokedexData, dexID) > 0 Then
                            Return ReturnBoolean(True)
                        Else
                            Return ReturnBoolean(False)
                        End If

                    End If
            End Select

            Return DEFAULTNULL
        End Function

    End Class

End Namespace