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

Slight fix about shake animation in PartyScreen. Enabled back sprite view in SummaryScreen.

This commit is contained in:
CaptainSegis 2017-08-31 00:03:25 -05:00
parent e3c9a78aea
commit 89944271da
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Screens/Pokemon/PartyScreen.vb
View File

@ -457,18 +457,22 @@ Public Class PartyScreen
_menu.Update()
Else
If Controls.Down(True, True, False, True, True, True) And _index < PokemonList.Count - 2 Then
_pokemonAnimations(_index)._shakeV = 0
_index += 2
_cursorDest = GetBoxPosition(_index)
End If
If Controls.Up(True, True, False, True, True, True) And _index > 1 Then
_pokemonAnimations(_index)._shakeV = 0
_index -= 2
_cursorDest = GetBoxPosition(_index)
End If
If Controls.Left(True) And _index > 0 Then
_pokemonAnimations(_index)._shakeV = 0
_index -= 1
_cursorDest = GetBoxPosition(_index)
End If
If Controls.Right(True) And _index < PokemonList.Count - 1 Then
_pokemonAnimations(_index)._shakeV = 0
_index += 1
_cursorDest = GetBoxPosition(_index)
End If

14
2.5DHero/2.5DHero/Screens/Pokemon/SummaryScreen.vb
View File

@ -10,6 +10,8 @@
Private _texture As Texture2D
Private _isFront As Boolean = True
'Pointer
Private _pointerDest As Integer = 0
Private _pointerPos As Single = 0F
@ -194,7 +196,7 @@
'Draw Pokémon preview:
If _enrollY >= 160 Then
Dim height As Integer = CInt(_enrollY - 160).Clamp(0, 256)
Dim pokemonTexture = GetPokemon().GetTexture(True)
Dim pokemonTexture = GetPokemon().GetTexture(_isFront)
Dim textureHeight As Integer = CInt(pokemonTexture.Height * (height / 256))
Dim pokemonTextureOffset As Integer = 32
@ -607,6 +609,7 @@
_partyIndex -= 1
GetYOffset()
SetDest(_partyIndex)
_isFront = True
End If
End If
@ -615,6 +618,7 @@
_partyIndex += 1
GetYOffset()
SetDest(_partyIndex)
_isFront = True
End If
End If
@ -634,8 +638,12 @@
_pageOpening = False
End If
End If
If Controls.Accept() = True And _pageIndex = 1 Then
_moveSelected = True
If Controls.Accept() = True Then
If _pageIndex = 0 Then
_isFront = Not _isFront
ElseIf _pageIndex = 1 Then
_moveSelected = True
End If
End If
End If
If Controls.Dismiss() = True Then