tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
P3D-Legacy/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb

272 lines
13 KiB
VB.net
Raw Normal View History

0.53.3 commit
2016-09-07 18:50:38 +02:00
Namespace ScriptVersion2
Partial Class ScriptCommander
Minor text fixes for consistency (World folder). Outside of changing comments to be consistent, I also had the credits screen and credits.txt match eachother, because there's no reason why they shouldn't match.
2017-01-18 21:07:45 +01:00
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @player commands.
' --------------------------------------------------------------------------------------------------------------------------
0.53.3 commit
2016-09-07 18:50:38 +02:00
Private Shared Sub DoPlayer(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
Dim argument As String = ScriptComparer.GetSubClassArgumentPair(subClass).Argument
Select Case command.ToLower()
Case "receivepokedex"
Core.Player.HasPokedex = True
For Each p As Pokemon In Core.Player.Pokemons
Dim i As Integer = 2
If p.IsShiny = True Then
i = 3
End If
Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, p.Number, i)
Next
IsReady = True
Case "receivepokegear"
Core.Player.HasPokegear = True
IsReady = True
Case "renamerival"
Core.SetScreen(New NameObjectScreen(Core.CurrentScreen, TextureManager.GetTexture("NPC\4", New Rectangle(0, 64, 32, 32)), False, False, "rival", "Silver", AddressOf Script.NameRival))
IsReady = True
CanContinue = False
Case "wearskin"
With Screen.Level.OwnPlayer
Dim TextureID As String = argument
.SetTexture(TextureID, False)
.UpdateEntity()
End With
IsReady = True
Case "move"
If Started = False Then
Screen.Camera.Move(sng(argument))
Started = True
Screen.Level.OverworldPokemon.Visible = False
Else
Screen.Level.UpdateEntities()
Screen.Camera.Update()
If Screen.Camera.IsMoving() = False Then
IsReady = True
Screen.Level.OverworldPokemon.Visible = False
End If
End If
Case "moveasnyc", "moveasync"
Screen.Camera.Move(sng(argument))
IsReady = True
Screen.Level.OverworldPokemon.Visible = False
Case "turn"
If Started = False Then
Screen.Camera.Turn(int(argument))
Started = True
Screen.Level.OverworldPokemon.Visible = False
Else
Screen.Camera.Update()
Screen.Level.UpdateEntities()
If Screen.Camera.Turning = False Then
IsReady = True
End If
End If
- Added missing houses in Six and Seven Island. - Implemented @NPC.dance and @Player.dance commands. - Implemented the CameraDistanceDelta tag, which allows entity CD to be adjusted manually.
2018-08-29 02:34:58 +02:00
Case "dance"
Screen.Level.OwnPlayer().isDancing = True
If Started = False Then
Screen.Camera.Move(sng(argument))
Started = True
Screen.Level.OverworldPokemon.Visible = False
Else
Screen.Level.UpdateEntities()
Screen.Camera.Update()
If Screen.Camera.IsMoving() = False Then
IsReady = True
Screen.Level.OverworldPokemon.Visible = False
End If
End If
0.53.3 commit
2016-09-07 18:50:38 +02:00
Case "turnasync"
Screen.Camera.Turn(int(argument))
IsReady = True
Screen.Level.OverworldPokemon.Visible = False
Case "turntoasync"
Dim turns As Integer = int(argument) - Screen.Camera.GetPlayerFacingDirection()
If turns < 0 Then
turns = turns + 4
End If
If turns > 0 Then
Screen.Camera.Turn(turns)
Started = True
Screen.Level.OverworldPokemon.Visible = False
End If
IsReady = True
Case "turnto"
If Started = False Then
Dim turns As Integer = int(argument) - Screen.Camera.GetPlayerFacingDirection()
If turns < 0 Then
turns = turns + 4
End If
If turns > 0 Then
Screen.Camera.Turn(turns)
Started = True
Screen.Level.OverworldPokemon.Visible = False
Else
IsReady = True
End If
Else
Screen.Camera.Update()
Screen.Level.UpdateEntities()
If Screen.Camera.Turning = False Then
IsReady = True
End If
End If
Case "warp"
Dim commas As Integer = 0
For Each c As Char In argument
If c = "," Then
commas += 1
End If
Next
Dim cPosition As Vector3 = Screen.Camera.Position
Select Case commas
Case 4
Screen.Level.WarpData.WarpDestination = argument.GetSplit(0)
Screen.Level.WarpData.WarpPosition = New Vector3(sng(argument.GetSplit(1).Replace("~", CStr(cPosition.X)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(2).Replace("~", CStr(cPosition.Y)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(3).Replace("~", CStr(cPosition.Z)).Replace(".", GameController.DecSeparator)))
Screen.Level.WarpData.WarpRotations = int(argument.GetSplit(4))
Screen.Level.WarpData.DoWarpInNextTick = True
Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw
Case 3
Screen.Level.WarpData.WarpDestination = argument.GetSplit(0)
Screen.Level.WarpData.WarpPosition = New Vector3(sng(argument.GetSplit(1).Replace("~", CStr(cPosition.X)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(2).Replace("~", CStr(cPosition.Y)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(3).Replace("~", CStr(cPosition.Z)).Replace(".", GameController.DecSeparator)))
Screen.Level.WarpData.WarpRotations = 0
Screen.Level.WarpData.DoWarpInNextTick = True
Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw
Case 2
Screen.Camera.Position = New Vector3(sng(argument.GetSplit(0).Replace("~", CStr(cPosition.X)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(1).Replace("~", CStr(cPosition.Y)).Replace(".", GameController.DecSeparator)),
sng(argument.GetSplit(2).Replace("~", CStr(cPosition.Z)).Replace(".", GameController.DecSeparator)))
Case 0
Screen.Level.WarpData.WarpDestination = argument
Screen.Level.WarpData.WarpPosition = Screen.Camera.Position
Screen.Level.WarpData.WarpRotations = 0
Screen.Level.WarpData.DoWarpInNextTick = True
Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw
End Select
Screen.Level.OverworldPokemon.warped = True
Screen.Level.OverworldPokemon.Visible = False
IsReady = True
Case "stopmovement"
Screen.Camera.StopMovement()
IsReady = True
Case "money", "addmoney"
Core.Player.Money += int(argument)
IsReady = True
Case "setmovement"
Dim movements() As String = argument.Split(CChar(","))
Screen.Camera.PlannedMovement = New Vector3(int(movements(0)),
sng(movements(1)),
int(movements(2)))
IsReady = True
Case "resetmovement"
Screen.Camera.PlannedMovement = Vector3.Zero
IsReady = True
Case "getbadge"
Replace all functions from Microsoft.VisualBasic
2018-01-07 18:01:32 +01:00
If StringHelper.IsNumeric(argument) Then
0.53.3 commit
2016-09-07 18:50:38 +02:00
If Core.Player.Badges.Contains(int(argument)) = False Then
Core.Player.Badges.Add(int(argument))
SoundManager.PlaySound("badge_acquired", True)
Screen.TextBox.TextColor = TextBox.PlayerColor
Screen.TextBox.Show(Core.Player.Name & " received the~" & Badge.GetBadgeName(int(argument)) & "badge.", {}, False, False)
Core.Player.AddPoints(10, "Got a badge.")
End If
End If
IsReady = True
CanContinue = False
Case "removebadge"
Replace all functions from Microsoft.VisualBasic
2018-01-07 18:01:32 +01:00
If StringHelper.IsNumeric(argument) Then
0.53.3 commit
2016-09-07 18:50:38 +02:00
If Core.Player.Badges.Contains(int(argument)) = True Then
Core.Player.Badges.Remove(int(argument))
End If
End If
IsReady = True
Case "addbadge"
Replace all functions from Microsoft.VisualBasic
2018-01-07 18:01:32 +01:00
If StringHelper.IsNumeric(argument) Then
0.53.3 commit
2016-09-07 18:50:38 +02:00
If Core.Player.Badges.Contains(int(argument)) = False Then
Core.Player.Badges.Add(int(argument))
End If
End If
IsReady = True
Case "achieveemblem"
GameJolt.Emblem.AchieveEmblem(argument)
IsReady = True
Case "addbp"
Dim bp As Integer = int(argument)
Core.Player.BP += bp
If bp > 0 Then
PlayerStatistics.Track("Obtained BP", bp)
End If
IsReady = True
Case "showrod"
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
OverworldScreen.DrawRodID = int(argument)
End If
IsReady = True
Case "hiderod"
OverworldScreen.DrawRodID = -1
IsReady = True
Case "showpokemonfollow"
Screen.Level.OverworldPokemon.Visible = True
IsReady = True
Case "hidepokemonfollow"
Screen.Level.OverworldPokemon.Visible = False
IsReady = True
Case "togglepokemonfollow"
Screen.Level.OverworldPokemon.Visible = Not Screen.Level.OverworldPokemon.Visible
IsReady = True
Case "save"
Core.Player.SaveGame(False)
Added PressStartScreen and NewNewGameScreen, and the new intro sequence for offline saves with it.
2017-08-14 06:14:45 +02:00
IsReady = True
Case "setname"
Core.Player.Name = argument
0.53.3 commit
2016-09-07 18:50:38 +02:00
IsReady = True
Case "setrivalname"
Core.Player.RivalName = argument
IsReady = True
Case "setopacity"
Dim newOpacity As Single = sng(argument.Replace("~", Screen.Level.OwnPlayer.Opacity.ToString().Replace(".", GameController.DecSeparator)))
Screen.Level.OwnPlayer.Opacity = newOpacity
IsReady = True
Case Else
IsReady = True
End Select
End Sub
End Class
End Namespace