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

Stop the NotificationPopup from autoexecuting the attached script.

Browse Source
This commit is contained in:
JappaWakkaP3D 2021-10-26 23:55:22 +02:00
parent 9b8022897c
commit 53f006cd3d
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
P3D/Overworld/NotificationPopup.vb
View File

@ -20,6 +20,7 @@ Public Class NotificationPopup
Public _delayDate As Date = Nothing Public _delayDate As Date = Nothing
Public _waitForInput As Boolean = False Public _waitForInput As Boolean = False
Public _interacted As Boolean = False
Public _scriptFile As String = "" Public _scriptFile As String = ""
Public IsReady As Boolean = False Public IsReady As Boolean = False
@ -88,6 +89,7 @@ Public Class NotificationPopup
Public Sub Dismiss() Public Sub Dismiss()
Me._waitForInput = False Me._waitForInput = False
Me._delayDate = Date.Now Me._delayDate = Date.Now
_interacted = True
End Sub End Sub
''' <summary> ''' <summary>
@ -119,16 +121,25 @@ Public Class NotificationPopup
End If End If
End If End If
Else Else
If Me._scriptFile <> "" Then
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(Me._scriptFile, 0, False)
Me.IsReady = True
End If
Dim BackY As Integer = CInt(0 - _size.Height * (FrameSizeBack / 3) * _scale - (FrameSizeBack / 3 * _scale) - 5) Dim BackY As Integer = CInt(0 - _size.Height * (FrameSizeBack / 3) * _scale - (FrameSizeBack / 3 * _scale) - 5)
If Me._positionY > BackY Then If Me._interacted = True Then
Me._positionY -= CInt(0.7 * (FrameSizeBack / 3 * _scale) / _size.Height) If Me._positionY > BackY Then
If Me._positionY <= BackY Then Me._positionY -= CInt(0.7 * (FrameSizeBack / 3 * _scale) / _size.Height)
Me._positionY = BackY If Me._positionY <= BackY Then
Me.IsReady = True Me._positionY = BackY
If Me._scriptFile <> "" Then
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(Me._scriptFile, 0, False)
Me.IsReady = True
End If
End If
End If
Else
If Me._positionY > BackY Then
Me._positionY -= CInt(0.7 * (FrameSizeBack / 3 * _scale) / _size.Height)
If Me._positionY <= BackY Then
Me._positionY = BackY
Me.IsReady = True
End If
End If End If
End If End If
End If End If