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

Public Class StepBlock

    Inherits Entity

    Public Overrides Function WalkAgainstFunction() As Boolean
        Dim facing As Integer = CInt(Me.Rotation.Y / MathHelper.PiOver2)
        facing -= 2
        If facing < 0 Then
            facing += 4
        End If

        If Screen.Camera.GetPlayerFacingDirection() = facing Then 
            'Dim newPos As New Vector3(Screen.Camera.Position.X + Screen.Camera.moveDirectionX * 2, Screen.Camera.Position.Y, Screen.Camera.Position.Z + Screen.Camera.moveDirectionZ * 2)
            'If CType(Screen.Camera, OverworldCamera).CheckCollision(newPos) = True Then

            'End If
            Screen.Camera.AddToPlannedMovement(New Vector3(0, 0.15F, 0))
            Screen.Camera.Move(1.0F)
            Screen.Level.OverworldPokemon.Visible = False
            Screen.Level.OverworldPokemon.warped = True

            Dim delay As Date = Date.Now
            If Screen.Level.Riding = True Then
                delay = Date.Now.AddMilliseconds(401)
            ElseIf Core.Player.IsRunning() = True Then
                delay = Date.Now.AddMilliseconds(540)
            Else
                delay = Date.Now.AddMilliseconds(867)
            End If

            SoundManager.PlaySound("jump_ledge", False, delay)

            Return False
        End If
        Return True
    End Function

    Public Overrides Sub Render()
        If Me.Model Is Nothing Then
            Me.Draw(Me.BaseModel, Textures, False)
        Else
            UpdateModel()
            Draw(Me.BaseModel, Me.Textures, True, Me.Model)
        End If
    End Sub

End Class