mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-08 14:34:52 +02:00
2c7fbf8364
* Changed the DayTime enum name to DayTimes for consistency with other enums like Seasons * Changing the EnvironmentType or WeatherType will now not reset back to the default when Reloading a map with the R key (Warping or loading a different map normally does reset those properties) * @level.setdaytime(int) is now @environment.setdaytime(int), which sets the DayTime permanently across maps. Setting the daytime to any other value than 1 2 3 or 4 will reset the daytime to the default one * Added command @player.setskin(name) which will permanently change the player's skin, unlike @player.wearskin(name) which only changes the skin temporarily.
72 lines
3.2 KiB
VB.net
72 lines
3.2 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptCommander
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the @environment commands.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Sub DoEnvironment(ByVal subClass As String)
|
|
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = ScriptComparer.GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "setweather"
|
|
Screen.Level.WeatherType = int(argument)
|
|
Case "setregionweather"
|
|
World.RegionWeather = CType(int(argument), World.Weathers)
|
|
Case "setseason"
|
|
If int(argument) = -1 Then
|
|
World.setSeason = Nothing
|
|
Else
|
|
World.setSeason = CType(int(argument), World.Seasons)
|
|
End If
|
|
Case "setcanfly"
|
|
Screen.Level.CanFly = CBool(argument)
|
|
Case "setcandig"
|
|
Screen.Level.CanDig = CBool(argument)
|
|
Case "setcanteleport"
|
|
Screen.Level.CanTeleport = CBool(argument)
|
|
Case "setwildpokemongrass"
|
|
Screen.Level.WildPokemonGrass = CBool(argument)
|
|
Case "setwildpokemonwater"
|
|
Screen.Level.WildPokemonWater = CBool(argument)
|
|
Case "setwildpokemoneverywhere"
|
|
Screen.Level.WildPokemonFloor = CBool(argument)
|
|
Case "setisdark"
|
|
Screen.Level.IsDark = CBool(argument)
|
|
Case "setrenderdistance"
|
|
Select Case argument.ToLower()
|
|
Case "0", "tiny"
|
|
Core.GameOptions.RenderDistance = 0
|
|
Case "1", "small"
|
|
Core.GameOptions.RenderDistance = 1
|
|
Case "2", "normal"
|
|
Core.GameOptions.RenderDistance = 2
|
|
Case "3", "far"
|
|
Core.GameOptions.RenderDistance = 3
|
|
Case "4", "extreme"
|
|
Core.GameOptions.RenderDistance = 4
|
|
End Select
|
|
Case "toggledarkness"
|
|
Screen.Level.IsDark = Not Screen.Level.IsDark
|
|
Case "setdaytime"
|
|
Dim daytime As Integer = int(argument)
|
|
If daytime > 0 AndAlso daytime <= 4 Then
|
|
World.setDaytime = CType(daytime, World.DayTimes)
|
|
Screen.Level.DayTime = daytime
|
|
Else
|
|
World.setDaytime = Nothing
|
|
Screen.Level.DayTime = World.GetTime
|
|
End If
|
|
IsReady = True
|
|
End Select
|
|
|
|
Screen.Level.World.Initialize(Screen.Level.EnvironmentType, Screen.Level.WeatherType)
|
|
|
|
IsReady = True
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |