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

Fix Item Finder and hidden item fading issues

Browse Source
This commit is contained in:
JappaWakka 2024-05-02 15:10:11 +02:00
parent 9873f15aa5
commit cab4e66cea
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
P3D/Entites/Enviroment/ItemObject.vb
View File

@ -14,6 +14,7 @@
Dim X, Y, width, height, rows, columns, animationSpeed, startRow, startColumn As Integer Dim X, Y, width, height, rows, columns, animationSpeed, startRow, startColumn As Integer
Dim CurrentRectangle As New Rectangle(0, 0, 0, 0) Dim CurrentRectangle As New Rectangle(0, 0, 0, 0)
Dim CanInteractWith As Boolean = True Dim CanInteractWith As Boolean = True
Public HiddenDelay As Date = Nothing
Public Overloads Sub Initialize(Optional ByVal AnimationData As List(Of List(Of Integer)) = Nothing) Public Overloads Sub Initialize(Optional ByVal AnimationData As List(Of List(Of Integer)) = Nothing)
MyBase.Initialize() MyBase.Initialize()
@ -101,11 +102,14 @@
End If End If
If Me.IsHiddenItem() = True Then If Me.IsHiddenItem() = True Then
If Me.Opacity > 0.0F Then If HiddenDelay <> Nothing AndAlso Date.Now >= HiddenDelay Then
Me.Opacity -= 0.01F If Me.Opacity > 0.0F Then
If Me.Opacity <= 0.0F Then Me.Opacity -= 0.01F
Me.Opacity = 1.0F If Me.Opacity <= 0.0F Then
Me.Visible = False Me.Opacity = 0.0F
Me.Visible = False
End If
Me.NormalOpacity = Me.Opacity
End If End If
End If End If
End If End If

2
P3D/Pokemon/Items/KeyItems/ItemFinder.vb
View File

@ -20,7 +20,9 @@ Namespace Items.KeyItems
Dim i As ItemObject = CType(e, ItemObject) Dim i As ItemObject = CType(e, ItemObject)
If i.IsHiddenItem() = True Then If i.IsHiddenItem() = True Then
i.Opacity = 1.0F i.Opacity = 1.0F
i.NormalOpacity = 1.0F
i.Visible = True i.Visible = True
i.HiddenDelay = Date.Now + New TimeSpan(0, 0, 3)
found = True found = True
End If End If
End If End If