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

allow white space before trainer scripts for insight detection

Browse Source
This commit is contained in:
darkfire006 2022-08-23 00:08:55 -05:00
parent d4ad4e2e45
commit 0e32b45b6c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Entites/Other/NPC.vb
View File

@ -359,16 +359,17 @@
Dim trainerContent() As String = System.IO.File.ReadAllLines(trainerFilePath) Dim trainerContent() As String = System.IO.File.ReadAllLines(trainerFilePath)
For Each line As String In trainerContent For Each line As String In trainerContent
If line.StartsWith("@Trainer:") = True Then Dim l As String = line.Trim().ToLower()
Dim trainerID As String = line.GetSplit(1, ":") If l.StartsWith("@trainer:") = True Then
Dim trainerID As String = l.GetSplit(1, ":")
If Trainer.IsBeaten(trainerID) = True Then If Trainer.IsBeaten(trainerID) = True Then
Exit Sub Exit Sub
Else Else
Dim t As New Trainer(trainerID) Dim t As New Trainer(trainerID)
InSightMusic = t.GetInSightMusic() InSightMusic = t.GetInSightMusic()
End If End If
ElseIf line.ToLower().StartsWith("@battle.starttrainer(") = True Then ElseIf l.StartsWith("@battle.starttrainer(") = True Then
Dim trainerID As String = line.Remove(line.Length - 1, 1).Remove(0, "@battle.starttrainer(".Length) Dim trainerID As String = l.Remove(l.Length - 1, 1).Remove(0, "@battle.starttrainer(".Length)
If Trainer.IsBeaten(trainerID) = True Then If Trainer.IsBeaten(trainerID) = True Then
Exit Sub Exit Sub
Else Else