Fixed moves page text boundary issue in the pokemon summary screen.

This commit is contained in:
CaptainSegis 2017-02-06 21:39:10 -05:00
parent 1543a099d2
commit 5a98f67faa
5 changed files with 9 additions and 9 deletions

View File

@ -16,7 +16,7 @@
Me.Category = Categories.Physical
Me.ContestCategory = ContestCategories.Beauty
Me.Name = "Fire Fang"
Me.Description = "The user bites with flame-cloaked fangs. It may also make the target flinch or leave it burned."
Me.Description = "The user bites with flame cloaked fangs. It may also make the target flinch or leave it burned."
Me.CriticalChance = 1
Me.IsHMMove = False
Me.Target = Targets.OneAdjacentTarget

View File

@ -77,10 +77,10 @@
End If
End If
Else
If Me.AttackPos < 320.0F Then
If Me.AttackPos < 340.0F Then
Me.AttackPos += 15.0F
If Me.AttackPos >= 320.0F Then
Me.AttackPos = 320.0F
If Me.AttackPos >= 340.0F Then
Me.AttackPos = 340.0F
End If
End If
@ -485,8 +485,8 @@
acc = "-"
End If
.DrawString(FontManager.MiniFont, Localization.GetString("poke_status_screen_power") & ": " & power & vbNewLine & Localization.GetString("poke_status_screen_accuracy") & ": " & acc & vbNewLine & vbNewLine & t, New Vector2(CInt(572 - 300 + AttackPos), 218), Color.Black)
.Draw(A.GetDamageCategoryImage(), New Rectangle(CInt(572 - 150 + AttackPos), 222, 56, 28), Color.White)
.DrawString(FontManager.MiniFont, Localization.GetString("poke_status_screen_power") & ": " & power & vbNewLine & Localization.GetString("poke_status_screen_accuracy") & ": " & acc & vbNewLine & vbNewLine & t, New Vector2(CInt(552 - 300 + AttackPos), 218), Color.Black)
.Draw(A.GetDamageCategoryImage(), New Rectangle(CInt(552 - 150 + AttackPos), 222, 56, 28), Color.White)
End With
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 196, 320, 384))

View File

@ -6,8 +6,8 @@
Shared _valid As Boolean = False
Const RUNVALIDATION As Boolean = False
Const EXPECTEDSIZE As Integer = 42393422
Const METAHASH As String = "Qzk0NDBGMzdBOEM0MTIzNzY1RTgxMTYwNzg0RkFBOTU="
Const EXPECTEDSIZE As Integer = 42393424
Const METAHASH As String = "MDVEQzY2RkJCQUZDNzJFMDc2MDU2NEIzNTEzN0Y2M0U="
Public Shared ReadOnly Property IsValid(ByVal ForceResult As Boolean) As Boolean
Get

File diff suppressed because one or more lines are too long