mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-09-27 03:49:12 +02:00
c74751b35b
Map Property "Lightning" renamed to "Lighting" (bulk replaced all occurences in the maps) Map Property "EnviromentType" renamed to "EnvironmentType" (bulk replaced all occurences in the maps) Replaced the skydomes, sun, moon and stars and updated the lighting to be less dark at times of day other than day itself.
35 lines
1.4 KiB
VB.net
35 lines
1.4 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <level> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoLevel(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "mapfile", "levelfile"
|
|
Return Screen.Level.LevelFile
|
|
Case "filename"
|
|
Dim filename As String = System.IO.Path.GetFileNameWithoutExtension(Screen.Level.LevelFile)
|
|
Return filename
|
|
Case "riding"
|
|
Return ReturnBoolean(Screen.Level.Riding)
|
|
Case "surfing"
|
|
Return ReturnBoolean(Screen.Level.Surfing)
|
|
Case "musicloop"
|
|
Dim musicloop As String = System.IO.Path.GetFileNameWithoutExtension(Screen.Level.MusicLoop)
|
|
Return musicloop
|
|
Case "daytime"
|
|
Return Screen.Level.DayTime
|
|
End Select
|
|
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |