Added HoleBlock Entity
Additional Value * MapPath,X,Y,Z,DropDistance,WarpTurns,[FallSpeed=1],[ValidAccessRotations] ActionValue: * MessageBulb Index + 1 DropDistance argument might be redundant if the camera doesn't follow the falling player
This commit is contained in:
JappaWakka
parent
6f41946e21
commit
549d313509
|
|
@ -277,6 +277,10 @@
|
|||
newEnt = New RockClimbEntity()
|
||||
SetProperties(newEnt, propertiesEnt)
|
||||
CType(newEnt, RockClimbEntity).Initialize()
|
||||
Case "holeblock"
|
||||
newEnt = New HoleBlock()
|
||||
SetProperties(newEnt, propertiesEnt)
|
||||
CType(newEnt, HoleBlock).Initialize()
|
||||
End Select
|
||||
|
||||
Return newEnt
|
||||
|
|
|
|||
|
|
@ -0,0 +1,189 @@
|
|||
Public Class HoleBlock
|
||||
|
||||
Inherits Entity
|
||||
|
||||
Dim ActivateDrop As Boolean = False
|
||||
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
|
||||
|
||||
Public Overrides Sub Initialize()
|
||||
MyBase.Initialize()
|
||||
|
||||
Me.NeedsUpdate = True
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Function WalkIntoFunction() As Boolean
|
||||
Me.ActivateDrop = True
|
||||
If ActionScript.TempInputDirection = -1 Then
|
||||
ActionScript.TempInputDirection = Screen.Camera.GetPlayerFacingDirection()
|
||||
End If
|
||||
|
||||
If Screen.Camera.Name = "Overworld" Then
|
||||
If CType(Screen.Camera, OverworldCamera).FreeCameraMode = False Then
|
||||
CType(Screen.Camera, OverworldCamera).YawLocked = True
|
||||
End If
|
||||
End If
|
||||
|
||||
Screen.Level.WalkedSteps = 0
|
||||
Screen.Level.PokemonEncounterData.EncounteredPokemon = False
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Overrides Sub Update()
|
||||
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
||||
If CType(Screen.Camera, OverworldCamera).IsPushingStrengthRock = False Then
|
||||
If Me.ActivateDrop = True AndAlso Screen.Camera.Position.X = Me.Position.X And Screen.Camera.Position.Z = Me.Position.Z And CInt(Screen.Camera.Position.Y) = CInt(Me.Position.Y) Then
|
||||
Screen.Camera.StopMovement()
|
||||
ActivateDrop = False
|
||||
Drop()
|
||||
ElseIf CType(Screen.Camera, OverworldCamera)._moved = 0.0F Then
|
||||
ActivateDrop = False
|
||||
End If
|
||||
ElseIf CType(Screen.Camera, OverworldCamera)._moved = 0.0F Then
|
||||
ActivateDrop = False
|
||||
End If
|
||||
End If
|
||||
|
||||
MyBase.Update()
|
||||
End Sub
|
||||
|
||||
Public Function Drop() As Boolean
|
||||
If IsValidLink(Me.AdditionalValue) = True And ScriptBlock.TriggeredScriptBlock = False Then
|
||||
Dim Destination As String = Me.AdditionalValue.GetSplit(0)
|
||||
|
||||
Dim WarpPosition As New Vector3(CSng(Me.AdditionalValue.GetSplit(1)), CSng(Me.AdditionalValue.GetSplit(2).Replace(".", GameController.DecSeparator)), CSng(Me.AdditionalValue.GetSplit(3)))
|
||||
Dim DropDistance As Single = CSng(Me.AdditionalValue.GetSplit(4))
|
||||
Dim WarpTurns As Integer = CInt(Me.AdditionalValue.GetSplit(5))
|
||||
Dim FallSpeed As String = "2.25"
|
||||
If Me.AdditionalValue.Split(",").Count >= 7 Then
|
||||
FallSpeed = Me.AdditionalValue.GetSplit(6)
|
||||
End If
|
||||
|
||||
If Me.AdditionalValue.Split(",").Count >= 8 Then
|
||||
Dim validRotations As New List(Of Integer)
|
||||
|
||||
Dim rotationData() As String = Me.AdditionalValue.GetSplit(7, ",").Split(CChar("|"))
|
||||
For Each Element As String In rotationData
|
||||
validRotations.Add(CInt(Element))
|
||||
Next
|
||||
If validRotations.Contains(Screen.Camera.GetPlayerFacingDirection()) = False Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Dim ResetFirstPerson As Boolean = False
|
||||
If CType(Screen.Camera, OverworldCamera).ThirdPerson = True Then
|
||||
ResetFirstPerson = True
|
||||
End If
|
||||
|
||||
If System.IO.File.Exists(GameController.GamePath & "\" & GameModeManager.ActiveGameMode.MapPath & Destination) = True Or System.IO.File.Exists(GameController.GamePath & "\Content\Data\maps\" & Destination) = True Then
|
||||
Dim s As String = "version=2" & Environment.NewLine &
|
||||
"@Camera.ActivateThirdPerson" & Environment.NewLine &
|
||||
"@Camera.Reset" & Environment.NewLine &
|
||||
"@Camera.SetPitch(-0.10)" & Environment.NewLine &
|
||||
"@Camera.Update" & Environment.NewLine &
|
||||
"@Camera.Fix" & Environment.NewLine &
|
||||
"@Level.Wait(10)" & Environment.NewLine
|
||||
|
||||
If Me.ActionValue > 0 Then
|
||||
s &= "@Entity.ShowMessageBulb(" & CInt(Me.ActionValue - 1) & "|" & Screen.Camera.Position.X & "|" & CSng(Screen.Camera.Position.Y + 0.65F) & "|" & Screen.Camera.Position.Z & ")" & Environment.NewLine
|
||||
End If
|
||||
|
||||
s &= "@Player.SetMovement(0,-1,0)" & Environment.NewLine &
|
||||
"@Player.DoWalkAnimation(0)" & Environment.NewLine &
|
||||
"@Player.SetSpeed(" & FallSpeed & ")" & Environment.NewLine &
|
||||
"@Player.Move(2)" & Environment.NewLine &
|
||||
"@Player.SetOpacity(0)" & Environment.NewLine &
|
||||
"@Player.ResetMovement" & Environment.NewLine &
|
||||
"@Level.Wait(30)" & Environment.NewLine &
|
||||
"@Screen.FadeOut(35)" & Environment.NewLine &
|
||||
"@Player.Warp(" & Destination & "," & CStr(WarpPosition.X).Replace(GameController.DecSeparator, ".") & "," & CStr(WarpPosition.Y).Replace(GameController.DecSeparator, ".") & "," & CStr(WarpPosition.Z).Replace(GameController.DecSeparator, ".") & "," & WarpTurns & ")" & Environment.NewLine &
|
||||
"@Level.Update" & Environment.NewLine &
|
||||
"@Camera.Defix" & Environment.NewLine &
|
||||
"@Camera.Reset" & Environment.NewLine &
|
||||
"@Camera.SetYaw(0)" & Environment.NewLine &
|
||||
"@Camera.Update" & Environment.NewLine &
|
||||
"@Camera.Fix" & Environment.NewLine &
|
||||
"@Player.Warp(" & CStr(WarpPosition.X).Replace(GameController.DecSeparator, ".") & "," & CStr(WarpPosition.Y + DropDistance).Replace(GameController.DecSeparator, ".") & "," & CStr(WarpPosition.Z).Replace(GameController.DecSeparator, ".") & ")" & Environment.NewLine &
|
||||
"@Player.SetOpacity(1)" & Environment.NewLine &
|
||||
"@Level.Update" & Environment.NewLine &
|
||||
"@Player.SetMovement(0,-1,0)" & Environment.NewLine &
|
||||
"@Player.SetSpeed(" & FallSpeed & ")" & Environment.NewLine &
|
||||
"@Screen.FadeIn(35)" & Environment.NewLine &
|
||||
"@Player.Move(" & DropDistance & ")" & Environment.NewLine &
|
||||
"@Level.Update" & Environment.NewLine &
|
||||
"@Camera.Update" & Environment.NewLine &
|
||||
"@Camera.Defix" & Environment.NewLine &
|
||||
"@Camera.Reset" & Environment.NewLine &
|
||||
"@Camera.SetThirdPerson(" & ResetFirstPerson & ")" & Environment.NewLine &
|
||||
"@Player.DoWalkAnimation(1)" & Environment.NewLine &
|
||||
":end"
|
||||
|
||||
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
|
||||
|
||||
Else
|
||||
CallError("Map file """ & GameModeManager.ActiveGameMode.MapPath & Destination & """ does not exist.")
|
||||
End If
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Shared Function IsValidLink(ByVal link As String) As Boolean
|
||||
If link <> "" Then
|
||||
If link.Contains(",") = True Then
|
||||
Dim c As Integer = 0
|
||||
For e = 0 To link.Length - 1
|
||||
If link(e) = CChar(",") Then
|
||||
c += 1
|
||||
End If
|
||||
Next
|
||||
If c >= 5 Then
|
||||
Dim destination As String = link.GetSplit(0)
|
||||
If destination.EndsWith(".dat") = True Then
|
||||
Dim x As String = link.GetSplit(1)
|
||||
Dim y As String = link.GetSplit(2).Replace(".", GameController.DecSeparator)
|
||||
Dim z As String = link.GetSplit(3)
|
||||
Dim d As String = link.GetSplit(4)
|
||||
Dim r As String = link.GetSplit(5)
|
||||
|
||||
If StringHelper.IsNumeric(x) = True And
|
||||
StringHelper.IsNumeric(y) = True And
|
||||
StringHelper.IsNumeric(z) = True And
|
||||
StringHelper.IsNumeric(d) = True And
|
||||
StringHelper.IsNumeric(r) = True Then
|
||||
Return True
|
||||
Else
|
||||
CallError("Position values are not numeric.")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
CallError("Destination file is not a valid map file.")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
CallError("Not enough or too much arguments to resolve the link.")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
CallError("Link does not contain seperators or has wrong seperators.")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
CallError("Link is empty.")
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Sub CallError(ByVal ex As String)
|
||||
Logger.Log(Logger.LogTypes.ErrorMessage, "WarpBlock.vb: Invalid warp! More information:" & ex)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
@ -28776,6 +28776,7 @@
|
|||
<Compile Include="Battle\BattleAnimations\BAPlaySound.vb" />
|
||||
<Compile Include="Battle\BattleSystemV2\QueryObjects\AnimationQueryObject.vb" />
|
||||
<Compile Include="Dialogues\ImageView.vb" />
|
||||
<Compile Include="Entites\Enviroment\HoleBlock.vb" />
|
||||
<Compile Include="Overworld\NotificationPopup.vb" />
|
||||
<Compile Include="Overworld\RouteSign.vb" />
|
||||
<Compile Include="Pokemon\Abilities\SteamEngine.vb" />
|
||||
|
|
|
|||
Loading…
Reference in New Issue