tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 14:54:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added fadein/fadeout limit argument

Browse Source 
@Screen.ScreenFadeColor also defaults to Black if there's no argument
This commit is contained in:
JappaWakka 2022-07-07 19:32:25 +02:00
parent 88ac7fc687
commit 1b3218bb67
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -81,13 +81,19 @@
CanContinue = False CanContinue = False
Case "fadein" Case "fadein"
Dim fadeSpeed As Integer = 5 Dim fadeSpeed As Integer = 5
Dim fadeLimit As Integer = 0
If argument <> "" Then If argument <> "" Then
fadeSpeed = int(argument) If argument.Contains(",") Then
fadeSpeed = int(argument.GetSplit(0, ","))
fadeLimit = int(argument.GetSplit(1, ","))
Else
fadeSpeed = int(argument)
End If
End If End If
If OverworldScreen.FadeValue > 0 Then If OverworldScreen.FadeValue > fadeLimit Then
OverworldScreen.FadeValue -= fadeSpeed OverworldScreen.FadeValue -= fadeSpeed
If OverworldScreen.FadeValue <= 0 Then If OverworldScreen.FadeValue <= fadeLimit Then
OverworldScreen.FadeValue = 0 OverworldScreen.FadeValue = fadeLimit
IsReady = True IsReady = True
End If End If
Else Else
@ -95,13 +101,19 @@
End If End If
Case "fadeout" Case "fadeout"
Dim fadeSpeed As Integer = 5 Dim fadeSpeed As Integer = 5
Dim fadeLimit As Integer = 255
If argument <> "" Then If argument <> "" Then
fadeSpeed = int(argument) If argument.Contains(",") Then
fadeSpeed = int(argument.GetSplit(0, ","))
fadeLimit = int(argument.GetSplit(1, ","))
Else
fadeSpeed = int(argument)
End If
End If End If
If OverworldScreen.FadeValue < 255 Then If OverworldScreen.FadeValue < fadeLimit Then
OverworldScreen.FadeValue += fadeSpeed OverworldScreen.FadeValue += fadeSpeed
If OverworldScreen.FadeValue >= 255 Then If OverworldScreen.FadeValue >= fadeLimit Then
OverworldScreen.FadeValue = 255 OverworldScreen.FadeValue = fadeLimit
IsReady = True IsReady = True
End If End If
Else Else
@ -113,6 +125,8 @@
Dim colorG As Integer = int(argument.GetSplit(1)) Dim colorG As Integer = int(argument.GetSplit(1))
Dim colorB As Integer = int(argument.GetSplit(2)) Dim colorB As Integer = int(argument.GetSplit(2))
OverworldScreen.FadeColor = New Color(colorR, colorG, colorB) OverworldScreen.FadeColor = New Color(colorR, colorG, colorB)
Else
OverworldScreen.FadeColor = Color.Black
End If End If
IsReady = True IsReady = True
Case "setfade" Case "setfade"