tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-29 16:54:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Reworked Accuracy and Evasion changes

Browse Source 
According to the original games metagame.
This commit is contained in:
Capt_Segis 2016-09-17 17:30:33 -05:00 committed by GitHub
parent 9ee6f42a1f
commit aff0d0def7
1 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -322,7 +322,7 @@
Dim ACC As Integer = accuracy - evasion Dim ACC As Integer = accuracy - evasion
ACC = ACC.Clamp(-6, 6) ACC = ACC.Clamp(-6, 6)
Dim ACCM As Single = GetMultiplierFromStat(ACC) Dim ACCM As Single = GetMultiplierFromAccEvasion(ACC)
If UsedAttack.GetUseAccEvasion(own, BattleScreen) = False Then If UsedAttack.GetUseAccEvasion(own, BattleScreen) = False Then
ACCM = 1.0F ACCM = 1.0F
@ -1816,7 +1816,39 @@
Return 1.0F Return 1.0F
End Select End Select
End Function End Function
Public Shared Function GetMultiplierFromAccEvasion(ByVal StatValue As Integer) As Single
Select Case StatValue
Case -6
Return CSng(3 / 9)
Case -5
Return CSng(3 / 8)
Case -4
Return CSng(3 / 7)
Case -3
Return CSng(3 / 6)
Case -2
Return CSng(3 / 5)
Case -1
Return CSng(3 / 4)
Case 0
Return CSng(3 / 3)
Case 1
Return CSng(4 / 3)
Case 2
Return CSng(5 / 3)
Case 3
Return CSng(6 / 3)
Case 4
Return CSng(7 / 3)
Case 5
Return CSng(8 / 3)
Case 6
Return CSng(9 / 3)
Case Else
Return 1.0F
End Select
End Function
End Class End Class
End Namespace End Namespace