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

Multiturn moves don't skip turns

Browse Source
This commit is contained in:
JappaWakka 2024-04-07 11:58:28 +02:00
parent 1bef17409e
commit 6ca5a5442c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -1002,7 +1002,7 @@
Dim b As Double = op.BaseExperience Dim b As Double = op.BaseExperience
Dim t As Double = 1D Dim t As Double = 1D
If p.Item.IsGameModeItem = True Then If Not p.Item Is Nothing AndAlso p.Item.IsGameModeItem = True Then
If CType(p.Item, GameModeItem).gmExpMultiplier <> -1D AndAlso CType(p.Item, GameModeItem).gmOverrideTradeExp = True Then If CType(p.Item, GameModeItem).gmExpMultiplier <> -1D AndAlso CType(p.Item, GameModeItem).gmOverrideTradeExp = True Then
t = CType(p.Item, GameModeItem).gmExpMultiplier t = CType(p.Item, GameModeItem).gmExpMultiplier
Else Else
@ -1017,7 +1017,7 @@
End If End If
Dim gm As Double = 1D Dim gm As Double = 1D
If p.Item.IsGameModeItem = True Then If Not p.Item Is Nothing AndAlso p.Item.IsGameModeItem = True Then
If CType(p.Item, GameModeItem).gmExpMultiplier <> -1D AndAlso CType(p.Item, GameModeItem).gmOverrideTradeExp = False Then If CType(p.Item, GameModeItem).gmExpMultiplier <> -1D AndAlso CType(p.Item, GameModeItem).gmOverrideTradeExp = False Then
gm = CType(p.Item, GameModeItem).gmExpMultiplier gm = CType(p.Item, GameModeItem).gmExpMultiplier
End If End If