tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-31 01:35:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed some textbox related issues

Browse Source
This commit is contained in:
CaptainSegis 2017-10-27 20:18:27 -05:00
parent 8c6c78e759
commit 2eac9b665f
4 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.5DHero/2.5DHero/2.5DHero.vbproj
View File

@ -42,6 +42,7 @@
<UseVSHostingProcess>false</UseVSHostingProcess> <UseVSHostingProcess>false</UseVSHostingProcess>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Import Include="System.Text" />
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.Management" /> <Reference Include="System.Management" />

2
2.5DHero/2.5DHero/Battle/Trainer.vb
View File

@ -51,7 +51,7 @@ Public Class Trainer
Dim path As String = GameModeManager.GetScriptPath("Trainer\" & TrainerFile & ".trainer") Dim path As String = GameModeManager.GetScriptPath("Trainer\" & TrainerFile & ".trainer")
Security.FileValidation.CheckFileValid(path, False, "Trainer.vb") Security.FileValidation.CheckFileValid(path, False, "Trainer.vb")
Dim Data() As String = System.IO.File.ReadAllLines(path) Dim Data() As String = System.IO.File.ReadAllLines(path, Encoding.GetEncoding("iso-8859-1"))
If Data(0) = "[TRAINER FORMAT]" Then If Data(0) = "[TRAINER FORMAT]" Then
LoadTrainer(Data) LoadTrainer(Data)

2
2.5DHero/2.5DHero/Dialogues/TextBox.vb
View File

@ -3,7 +3,7 @@
Public Shared ReadOnly DefaultColor As Color = New Color(16, 24, 32) Public Shared ReadOnly DefaultColor As Color = New Color(16, 24, 32)
Public Shared ReadOnly PlayerColor As Color = New Color(0, 0, 180) Public Shared ReadOnly PlayerColor As Color = New Color(0, 0, 180)
Public Shared TextSpeed As Integer = 0 Public Shared TextSpeed As Integer = 1
Public Text As String Public Text As String
Dim currentChar As Integer = 0 Dim currentChar As Integer = 0

4
2.5DHero/2.5DHero/World/ActionScript/ActionScript.vb
View File

@ -122,9 +122,7 @@ nextScript:
Security.FileValidation.CheckFileValid(path, False, "ActionScript.vb") Security.FileValidation.CheckFileValid(path, False, "ActionScript.vb")
If System.IO.File.Exists(path) = True Then If System.IO.File.Exists(path) = True Then
Dim Data As String = System.IO.File.ReadAllText(path, Encoding.GetEncoding("iso-8859-1"))
Dim Data As String = System.IO.File.ReadAllText(path)
Data = Data.Replace(vbNewLine, "^") Data = Data.Replace(vbNewLine, "^")
Dim ScriptData() As String = Data.Split(CChar("^")) Dim ScriptData() As String = Data.Split(CChar("^"))