mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-15 06:48:38 +02:00
ff1d21f115
With this command you can add texture replacements similar to how a content pack replaces textures. This is especially useful when, for example, you have multiple supported languages and want to replace certain textures with localized versions. The file that is required is in the same format as the exceptions.dat file in content packs, but only supports texture replacement entries. The replaced texture list is cleared when quitting the current save game. Content Packs should still work, even with the replaced textures.
29 lines
1.3 KiB
VB.net
29 lines
1.3 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptCommander
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the @system commands.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Sub DoSystem(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 "endnewgame"
|
|
Dim args As String() = argument.Split(","c)
|
|
Screens.MainMenu.NewNewGameScreen.EndNewGame(args(0), sng(args(1)), sng(args(2)), sng(args(3)), int(args(4)))
|
|
IsReady = True
|
|
Case "replacetextures"
|
|
Dim path As String = argument
|
|
ContentPackManager.Load(GameController.GamePath & GameModeManager.ActiveGameMode.ContentPath & "Data\" & argument & ".dat", True)
|
|
IsReady = True
|
|
Case Else
|
|
IsReady = True
|
|
End Select
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |