Multiturn moves don't skip turns

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

View File

@ -1002,7 +1002,7 @@
Dim b As Double = op.BaseExperience
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
t = CType(p.Item, GameModeItem).gmExpMultiplier
Else
@ -1017,7 +1017,7 @@
End If
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
gm = CType(p.Item, GameModeItem).gmExpMultiplier
End If