63 lines
2.1 KiB
VB.net
63 lines
2.1 KiB
VB.net
Public Class SignBlock
|
|
|
|
Inherits Entity
|
|
|
|
'Action value: 0=normal text in additional value
|
|
' 1=script path in additional value
|
|
' 2=direct script input in additional value
|
|
' 3=normal text in additional value, block not resized
|
|
|
|
Public Overrides Sub Initialize()
|
|
MyBase.Initialize()
|
|
|
|
Me.Scale = New Vector3(0.7)
|
|
|
|
If ActionValue < 3 Then
|
|
Me.Position.Y -= 0.15F
|
|
End If
|
|
|
|
Me.CreatedWorld = False
|
|
End Sub
|
|
|
|
Public Overrides Sub ClickFunction()
|
|
Dim canRead As Boolean = False
|
|
|
|
Select Case Screen.Camera.GetPlayerFacingDirection()
|
|
Case 1, 3
|
|
If Me.Rotation.Y = MathHelper.Pi * 1.5F Or Me.Rotation.Y = MathHelper.Pi * 0.5F Then
|
|
canRead = True
|
|
End If
|
|
Case 0, 2
|
|
If Me.Rotation.Y = MathHelper.Pi Or Me.Rotation.Y = MathHelper.TwoPi Or Me.Rotation.Y = 0 Then
|
|
canRead = True
|
|
End If
|
|
End Select
|
|
|
|
If canRead = True Then
|
|
Dim oScreen As OverworldScreen = CType(Core.CurrentScreen, OverworldScreen)
|
|
If oScreen.ActionScript.IsReady = True Then
|
|
SoundManager.PlaySound("select")
|
|
Select Case Me.ActionValue
|
|
Case 0, 3
|
|
oScreen.ActionScript.StartScript(Me.AdditionalValue, 1)
|
|
Case 1
|
|
oScreen.ActionScript.StartScript(Me.AdditionalValue, 0)
|
|
Case 2
|
|
oScreen.ActionScript.StartScript(Me.AdditionalValue.Replace("<br>", Environment.NewLine), 2)
|
|
Case Else
|
|
oScreen.ActionScript.StartScript(Me.AdditionalValue, 1)
|
|
End Select
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Sub Render()
|
|
If Me.Model Is Nothing Then
|
|
Me.Draw(Me.BaseModel, Textures, True)
|
|
Else
|
|
UpdateModel()
|
|
Draw(Me.BaseModel, Me.Textures, True, Me.Model)
|
|
End If
|
|
End Sub
|
|
|
|
End Class |