Potential debugwalk fix for rockclimbing
This commit is contained in:
parent
174fa3c634
commit
bda6f66423
|
@ -113,6 +113,7 @@
|
||||||
Screen.Level.OwnPlayer.ChangeTexture()
|
Screen.Level.OwnPlayer.ChangeTexture()
|
||||||
|
|
||||||
Dim s As String = "version=2" & Environment.NewLine &
|
Dim s As String = "version=2" & Environment.NewLine &
|
||||||
|
"@player.stopmovement" & Environment.NewLine &
|
||||||
"@pokemon.cry(" & RockClimbPokemon.Number & ")" & Environment.NewLine &
|
"@pokemon.cry(" & RockClimbPokemon.Number & ")" & Environment.NewLine &
|
||||||
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
||||||
"@sound.play(destroy)" & Environment.NewLine &
|
"@sound.play(destroy)" & Environment.NewLine &
|
||||||
|
@ -186,6 +187,7 @@
|
||||||
Screen.Level.OwnPlayer.ChangeTexture()
|
Screen.Level.OwnPlayer.ChangeTexture()
|
||||||
|
|
||||||
Dim s As String = "version=2" & Environment.NewLine &
|
Dim s As String = "version=2" & Environment.NewLine &
|
||||||
|
"@player.stopmovement" & Environment.NewLine &
|
||||||
"@pokemon.cry(" & RockClimbPokemon.Number & ")" & Environment.NewLine &
|
"@pokemon.cry(" & RockClimbPokemon.Number & ")" & Environment.NewLine &
|
||||||
"@player.move(1)" & Environment.NewLine &
|
"@player.move(1)" & Environment.NewLine &
|
||||||
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",-1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
"@player.setmovement(" & Screen.Camera.GetMoveDirection().X & ",-1," & Screen.Camera.GetMoveDirection().Z & ")" & Environment.NewLine &
|
||||||
|
|
Loading…
Reference in New Issue