mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-27 15:54:25 +02:00
Fix Battle Box crash when taking item
This commit is contained in:
parent
fcff6fe74e
commit
5fd6ca1e38
@ -1046,6 +1046,9 @@ Public Class StorageSystemScreen
|
|||||||
|
|
||||||
Private Sub TakeItemPokemon()
|
Private Sub TakeItemPokemon()
|
||||||
Dim id As Integer = CInt(CursorPosition.X) + CInt((CursorPosition.Y - 1) * 6)
|
Dim id As Integer = CInt(CursorPosition.X) + CInt((CursorPosition.Y - 1) * 6)
|
||||||
|
If GetBox(CurrentBox).IsBattleBox = True Then
|
||||||
|
id = GetBattleBoxID()
|
||||||
|
End If
|
||||||
If CursorPosition.X = 6 Then
|
If CursorPosition.X = 6 Then
|
||||||
If Core.Player.Pokemons(CInt(CursorPosition.Y)).Item IsNot Nothing Then
|
If Core.Player.Pokemons(CInt(CursorPosition.Y)).Item IsNot Nothing Then
|
||||||
If Core.Player.Pokemons(CInt(CursorPosition.Y)).Item.IsMail And Core.Player.Pokemons(CInt(CursorPosition.Y)).Item.AdditionalData <> "" Then
|
If Core.Player.Pokemons(CInt(CursorPosition.Y)).Item.IsMail And Core.Player.Pokemons(CInt(CursorPosition.Y)).Item.AdditionalData <> "" Then
|
||||||
|
Loading…
x
Reference in New Issue
Block a user