P3D-Legacy/P3D/Entites/Enviroment/AnimatedBlock.vb

Public Class AnimatedBlock

    Inherits Entity

    Shared BlockTexturesTemp As New Dictionary(Of String, Texture2D)

    Dim CurrentSeason As World.Seasons
    Dim AnimationNames As List(Of String)

    Dim Animations As List(Of Animation)
    Dim currentRectangle As List(Of Rectangle)

    Dim X, Y, width, height, rows, columns, animationSpeed, startRow, startColumn As List(Of Integer)

    Dim AnimCount As Integer = 0


    Sub New()
        X = New List(Of Integer)
        Y = New List(Of Integer)
        width = New List(Of Integer)
        height = New List(Of Integer)
        rows = New List(Of Integer)
        columns = New List(Of Integer)
        animationSpeed = New List(Of Integer)
        startRow = New List(Of Integer)
        startColumn = New List(Of Integer)

        AnimationNames = New List(Of String)
        currentRectangle = New List(Of Rectangle)
        Animations = New List(Of Animation)
    End Sub

    Public Overloads Sub Initialize(ByVal AnimationData As List(Of List(Of Integer)))

        MyBase.Initialize()
        For i = 0 To AnimationData.Count - 1
            X.Add(AnimationData(i)(0))
            Y.Add(AnimationData(i)(1))
            width.Add(AnimationData(i)(2))
            height.Add(AnimationData(i)(3))
            rows.Add(AnimationData(i)(4))
            columns.Add(AnimationData(i)(5))
            animationSpeed.Add(AnimationData(i)(6))
            startRow.Add(AnimationData(i)(7))
            startColumn.Add(AnimationData(i)(8))

            AnimationNames.Add("")
            currentRectangle.Add(New Rectangle(0, 0, 0, 0))

            Animations.Add(New Animation(TextureManager.GetTexture("Textures\Routes"), rows(i), columns(i), 16, 16, animationSpeed(i), startRow(i), startColumn(i)))

            AnimCount += 1
        Next

        CreateBlockTextureTemp()
    End Sub

    Public Shared Sub ClearAnimationResources()
        BlockTexturesTemp.Clear()
    End Sub

    Private Sub CreateBlockTextureTemp()
        'If Core.GameOptions.GraphicStyle = 1 Then

        For n = 0 To Animations.Count - 1
            Dim r As New Rectangle(X(n), Y(n), width(n), height(n))
            Me.AnimationNames(n) = AdditionalValue & "," & X(n) & "," & Y(n) & "," & height(n) & "," & width(n)
            If BlockTexturesTemp.ContainsKey(AnimationNames(n) & "_0") = False Then
                For i = 0 To Me.rows(n) - 1
                    For j = 0 To Me.columns(n) - 1
                        If SeasonColorTexture <> "" Then
                            CurrentSeason = P3D.World.CurrentSeason
                            BlockTexturesTemp.Add(AnimationNames(n) & "_" & (j + columns(n) * i).ToString, P3D.World.GetSeasonTexture(TextureManager.GetTexture("Textures\Seasons\" & Me.SeasonColorTexture), TextureManager.GetTexture(AdditionalValue, New Rectangle(r.X + r.Width * j, r.Y + r.Height * i, r.Width, r.Height))))
                        Else
                            BlockTexturesTemp.Add(AnimationNames(n) & "_" & (j + columns(n) * i).ToString, TextureManager.GetTexture(AdditionalValue, New Rectangle(r.X + r.Width * j, r.Y + r.Height * i, r.Width, r.Height)))
                        End If

                    Next
                Next
            End If
        Next

    End Sub

    Public Overrides Sub ClickFunction()
        Me.Surf()
    End Sub

    Public Overrides Function WalkAgainstFunction() As Boolean
        WalkOntoFunction()
        Return MyBase.WalkAgainstFunction()
    End Function

    Public Overrides Function WalkIntoFunction() As Boolean
        WalkOntoFunction()
        Return MyBase.WalkIntoFunction()
    End Function

    Public Overrides Sub WalkOntoFunction()
        If Screen.Level.Surfing = True Then
            Dim canSurf As Boolean = False

            For Each Entity As Entity In Screen.Level.Entities
                If Entity.boundingBox.Contains(Screen.Camera.GetForwardMovedPosition()) = ContainmentType.Contains Then
                    If Entity.ActionValue = 0 AndAlso (Entity.EntityID = "AnimatedBlock" OrElse Entity.EntityID = "Water") Then
                        canSurf = True
                    Else
                        If Entity.Collision = True Then
                            canSurf = False
                            Exit For
                        End If
                    End If
                End If
            Next

            If canSurf = True Then
                If CType(Screen.Camera, OverworldCamera)._debugWalk = False Then
                    Screen.Camera.Move(1)
                End If

                Screen.Level.PokemonEncounter.TryEncounterWildPokemon(Me.Position, Spawner.EncounterMethods.Surfing, "")
            End If
        End If
    End Sub

    Private Sub Surf()
        If Screen.Camera.Turning = False Then
            If Screen.Level.Surfing = False Then
                If Badge.CanUseHMMove(Badge.HMMoves.Surf) = True Or GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
                    If Screen.ChooseBox.Showing = False Then
                        Dim canSurf As Boolean = False

                        If Me.ActionValue = 0 Then
                            For Each Entity As Entity In Screen.Level.Entities
                                If Entity.boundingBox.Contains(Screen.Camera.GetForwardMovedPosition()) = ContainmentType.Contains Then
                                    If Entity.EntityID = "AnimatedBlock" Then
                                        If Core.Player.SurfPokemon > -1 Then
                                            canSurf = True
                                        End If
                                    Else
                                        If Entity.Collision = True Then
                                            canSurf = False
                                            Exit For
                                        End If
                                    End If
                                End If
                            Next
                        End If

                        If Screen.Level.Riding = True Then
                            canSurf = False
                        End If

                        If canSurf = True Then
                            Dim message As String = Localization.GetString("fieldmove_surf_type0", "Do you want to Surf?") & "%" & Localization.GetString("global_yes", "Yes") & "|" & Localization.GetString("global_no", "No") & "%"
                            SoundManager.PlaySound("select")
                            Screen.TextBox.Show(message, {Me}, True, True)
                        End If
                    End If
                End If
            End If
        End If
    End Sub


    Protected Overrides Function CalculateCameraDistance(CPosition As Vector3) As Single
        Return MyBase.CalculateCameraDistance(CPosition) - 0.25F
    End Function

    Public Overrides Sub UpdateEntity()
        If Me.BaseModel Is BaseModel.getModelbyID(3) Then
            If Me.Rotation.Y <> Screen.Camera.Yaw Then
                Me.Rotation.Y = Screen.Camera.Yaw
                CreatedWorld = False
            End If
        End If

        If Not Animations Is Nothing Then
            For n = 0 To Animations.Count - 1
                Animations(n).Update(0.01)
                If currentRectangle(n) <> Animations(n).TextureRectangle Then
                    ChangeTexture(n)

                    currentRectangle(n) = Animations(n).TextureRectangle
                End If
            Next
        End If
        MyBase.UpdateEntity()
    End Sub

    Private Sub ChangeTexture(ByVal n As Integer)
        If BlockTexturesTemp.Count = 0 Then
            ClearAnimationResources()
            CreateBlockTextureTemp()
        End If
        If Me.CurrentSeason <> P3D.World.CurrentSeason Then
            ClearAnimationResources()
            CreateBlockTextureTemp()
        End If
        If Not Animations Is Nothing Then
            Dim i = Animations(n).CurrentRow
            Dim j = Animations(n).CurrentColumn
            If BlockTexturesTemp.ContainsKey(AnimationNames(n) & "_" & (j + columns(n) * i)) = True Then
                Me.Textures(n) = BlockTexturesTemp(AnimationNames(n) & "_" & (j + columns(n) * i))
            End If
        End If
    End Sub

    Public Overrides Sub ResultFunction(ByVal Result As Integer)
        If Result = 0 Then
            Screen.TextBox.Show(Core.Player.Pokemons(Core.Player.SurfPokemon).GetDisplayName() & " " & Localization.GetString("fieldmove_surf_used", "used~Surf!"), {Me})
            Screen.Level.Surfing = True
            Screen.Camera.Move(1)
            PlayerStatistics.Track("Surf used", 1)

            With Screen.Level.OwnPlayer
                Core.Player.TempSurfSkin = .SkinName

                Dim pokemonNumber As Integer = Core.Player.Pokemons(Core.Player.SurfPokemon).Number
                Dim SkinName As String = "[POKEMON|N]" & pokemonNumber & PokemonForms.GetOverworldAddition(Core.Player.Pokemons(Core.Player.SurfPokemon))
                If Core.Player.Pokemons(Core.Player.SurfPokemon).IsShiny = True Then
                    SkinName = "[POKEMON|S]" & pokemonNumber & PokemonForms.GetOverworldAddition(Core.Player.Pokemons(Core.Player.SurfPokemon))
                End If

                .SetTexture(SkinName, False)

                .UpdateEntity()

                SoundManager.PlayPokemonCry(pokemonNumber)

                If Screen.Level.IsRadioOn = False OrElse GameJolt.PokegearScreen.StationCanPlay(Screen.Level.SelectedRadioStation) = False Then
                    MusicManager.Play("surf", True)
                End If
            End With
        End If
    End Sub

    Public Overrides Sub Render()
        Dim setRasterizerState As Boolean = Me.BaseModel.ID <> 0
        If Me.Model Is Nothing Then
            Me.Draw(Me.BaseModel, Textures, setRasterizerState)
        Else
            UpdateModel()
            Draw(Me.BaseModel, Me.Textures, True, Me.Model)
        End If
    End Sub

End Class