mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-20 01:08:35 +02:00
9def5642e8
- You can now run up and down a slideblock. - NPC movement type Straight is now less random and more smooth. - When renaming the rival, the skin visible at the top changes to whatever skin is set as the rivalskin. This way, the rival is not stuck with one skin. This can be useful when the rival's skin changes based on the player's gender for example. - Text messages that contain <token.tokenname>, where tokenname is a string from the localizations files, have the part between the <> replaced with that string now. - Text messages that contain <button.buttonname>, where buttonname is one of the controls defined in "Saves\Keyboard.dat", will now have the part between the <> replaced with the key assigned to that control. - Players can now be genderless instead of only either male or female in scripts. - Which skins are available in the intro is now defined in the GameMode's definition file instead of being hard-coded - Old New Game intro now uses the player skin data from the GameMode definition file - The Pokémon in the old New Game now doesn't fall too far down anymore - Scripts adjusted to match the new gender functionality
172 lines
7.0 KiB
VB.net
172 lines
7.0 KiB
VB.net
Public Class SlideBlock
|
|
|
|
Inherits Entity
|
|
|
|
Dim TempScriptEntity As ScriptBlock = Nothing
|
|
|
|
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
|
|
|
|
Screen.Camera.PlannedMovement = Vector3.Zero
|
|
|
|
If Screen.Camera.GetPlayerFacingDirection() = facing And Screen.Camera.IsMoving() = False Then
|
|
CType(Screen.Camera, OverworldCamera).DidWalkAgainst = False
|
|
|
|
Dim Steps As Integer = 0
|
|
|
|
Dim checkPosition As Vector3 = Screen.Camera.GetForwardMovedPosition()
|
|
checkPosition.Y = checkPosition.Y.ToInteger()
|
|
|
|
Dim foundSteps As Boolean = True
|
|
While foundSteps = True
|
|
Dim e As Entity = GetEntity(Screen.Level.Entities, checkPosition, True, {GetType(SlideBlock), GetType(ScriptBlock), GetType(WarpBlock)})
|
|
If Not e Is Nothing Then
|
|
If e.EntityID = "SlideBlock" Then
|
|
Steps += 1
|
|
checkPosition.X += Screen.Camera.GetMoveDirection().X
|
|
checkPosition.Z += Screen.Camera.GetMoveDirection().Z
|
|
checkPosition.Y += 1
|
|
Else
|
|
If e.EntityID = "ScriptBlock" Then
|
|
TempScriptEntity = CType(e, ScriptBlock)
|
|
ElseIf e.EntityID = "WarpBlock" Then
|
|
CType(e, WarpBlock).WalkAgainstFunction()
|
|
End If
|
|
foundSteps = False
|
|
End If
|
|
Else
|
|
foundSteps = False
|
|
End If
|
|
End While
|
|
|
|
Screen.Level.OverworldPokemon.Visible = False
|
|
Screen.Level.OverworldPokemon.warped = True
|
|
|
|
Dim walkSpeed As Single = 1.0F
|
|
If Screen.Camera.Speed <> 0.04F Then
|
|
walkSpeed = Screen.Camera.Speed / 0.04F
|
|
End If
|
|
|
|
Dim s As String = "version=2" & Environment.NewLine &
|
|
"@player.stopmovement" & Environment.NewLine &
|
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
|
"@player.setspeed(" & walkSpeed & ")" & Environment.NewLine &
|
|
"@player.move(" & Steps & ")" & Environment.NewLine &
|
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",0," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
|
"@pokemon.hide" & Environment.NewLine &
|
|
"@player.move(1)" & Environment.NewLine &
|
|
"@pokemon.hide" & Environment.NewLine &
|
|
"@player.resetspeed" & Environment.NewLine
|
|
|
|
If Not Me.TempScriptEntity Is Nothing Then
|
|
s &= GetScriptStartLine(Me.TempScriptEntity) & Environment.NewLine
|
|
Me.TempScriptEntity = Nothing
|
|
End If
|
|
|
|
s &= ":end"
|
|
|
|
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
|
|
Return True
|
|
End If
|
|
|
|
facing = CInt(Me.Rotation.Y / MathHelper.PiOver2)
|
|
If facing < 0 Then
|
|
facing += 4
|
|
End If
|
|
If Screen.Camera.GetPlayerFacingDirection() = facing Then
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Private Function GetScriptStartLine(ByVal ScriptEntity As ScriptBlock) As String
|
|
If Not ScriptEntity Is Nothing Then
|
|
If ScriptEntity.CorrectRotation() = True Then
|
|
Select Case ScriptEntity.GetActivationID()
|
|
Case 0
|
|
Return "@script.start(" & ScriptEntity.ScriptID & ")"
|
|
Case 1
|
|
Return "@script.text(" & ScriptEntity.ScriptID & ")"
|
|
Case 2
|
|
Return "@script.run(" & ScriptEntity.ScriptID & ")"
|
|
End Select
|
|
End If
|
|
End If
|
|
|
|
Return ""
|
|
End Function
|
|
|
|
Public Overrides Sub WalkOntoFunction()
|
|
Dim facing As Integer = CInt(Me.Rotation.Y / MathHelper.PiOver2)
|
|
|
|
Screen.Camera.PlannedMovement = Vector3.Zero
|
|
|
|
If Screen.Camera.GetPlayerFacingDirection() = facing Then
|
|
CType(Screen.Camera, OverworldCamera).DidWalkAgainst = False
|
|
|
|
Dim Steps As Integer = 0
|
|
|
|
Dim checkPosition As Vector3 = Screen.Camera.GetForwardMovedPosition()
|
|
checkPosition.Y = checkPosition.Y.ToInteger() - 1
|
|
|
|
Dim foundSteps As Boolean = True
|
|
While foundSteps = True
|
|
Dim e As Entity = GetEntity(Screen.Level.Entities, checkPosition, True, {GetType(SlideBlock), GetType(ScriptBlock), GetType(WarpBlock)})
|
|
If Not e Is Nothing Then
|
|
If e.EntityID = "SlideBlock" Then
|
|
Steps += 1
|
|
checkPosition.X += Screen.Camera.GetMoveDirection().X
|
|
checkPosition.Z += Screen.Camera.GetMoveDirection().Z
|
|
checkPosition.Y -= 1
|
|
Else
|
|
If e.EntityID = "ScriptBlock" Then
|
|
Me.TempScriptEntity = CType(e, ScriptBlock)
|
|
ElseIf e.EntityID = "WarpBlock" Then
|
|
CType(e, WarpBlock).WalkAgainstFunction()
|
|
End If
|
|
foundSteps = False
|
|
End If
|
|
Else
|
|
foundSteps = False
|
|
End If
|
|
End While
|
|
|
|
Screen.Level.OverworldPokemon.Visible = False
|
|
Screen.Level.OverworldPokemon.warped = True
|
|
|
|
Dim walkSpeed As Single = 1.0F
|
|
If Screen.Camera.Speed <> 0.04F Then
|
|
walkSpeed = Screen.Camera.Speed / 0.04F
|
|
End If
|
|
|
|
Dim s As String = "version=2" & Environment.NewLine &
|
|
"@player.stopmovement" & Environment.NewLine &
|
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",0," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
|
"@player.setspeed(" & walkSpeed & ")" & Environment.NewLine &
|
|
"@player.move(1)" & Environment.NewLine &
|
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",-1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
|
"@player.move(" & Steps & ")" & Environment.NewLine &
|
|
"@pokemon.hide" & Environment.NewLine &
|
|
"@player.resetspeed" & Environment.NewLine
|
|
|
|
If Not Me.TempScriptEntity Is Nothing Then
|
|
s &= GetScriptStartLine(Me.TempScriptEntity) & Environment.NewLine
|
|
Me.TempScriptEntity = Nothing
|
|
End If
|
|
|
|
s &= ":end"
|
|
|
|
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Sub Render()
|
|
Me.Draw(Me.Model, Textures, False)
|
|
End Sub
|
|
|
|
End Class |