tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix Item Finder and hidden item fading issues

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 CurrentRectangle As New Rectangle(0, 0, 0, 0)
Dim CanInteractWith As Boolean = True
Public HiddenDelay As Date = Nothing
Public Overloads Sub Initialize(Optional ByVal AnimationData As List(Of List(Of Integer)) = Nothing)
MyBase.Initialize()
@ -101,11 +102,14 @@
End If
If Me.IsHiddenItem() = True Then
If Me.Opacity > 0.0F Then
Me.Opacity -= 0.01F
If Me.Opacity <= 0.0F Then
Me.Opacity = 1.0F
Me.Visible = False
If HiddenDelay <> Nothing AndAlso Date.Now >= HiddenDelay Then
If Me.Opacity > 0.0F Then
Me.Opacity -= 0.01F
If Me.Opacity <= 0.0F Then
Me.Opacity = 0.0F
Me.Visible = False
End If
Me.NormalOpacity = Me.Opacity
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)
If i.IsHiddenItem() = True Then
i.Opacity = 1.0F
i.NormalOpacity = 1.0F
i.Visible = True
i.HiddenDelay = Date.Now + New TimeSpan(0, 0, 3)
found = True
End If
End If