Daragorn wrote:The error says it cannot locate file at location [teaseAiRoot]\audio! ....i think the error is just in the method that opens audio where there should be [teaseAiRoot]\audio\ instead of [teaseAiRoot]\audio! ...i imagine that miswrote \ is the problem
Is this with House Of Tease? TAI expects @PlayAudio to be at the end of a line, otherwise it reads the rest of the line as part of the audio path. Looking into fixing the command now.
Edit: Also I hope I didn't scare you away or anything OxiKlein, I can do up my own repo if you want.
Edit 2: And fixed, line 14625 form1:
Replace the line with
Code: Select all
Dim ParenEnd As Integer = ParenFlag.IndexOf(ParenType, ParenStart)
ParenFlag = ParenFlag.Substring(ParenStart, ParenEnd - ParenStart)
This wasn't specific to PlayAudio, so PlayVideo and any similar commands should now work regardless of where they are in a line.
Edit 3: Bonus Fixes
line 12099 form1:
Replace this code
Code: Select all
Dim TagSplit As String() = Split(LocalTagImageList(randomizer.Next(0, LocalTagImageList.Count)))
FoundString = TagSplit(0) & " "
If Not LCase(FoundString).Contains(".jpg ") Or Not LCase(FoundString).Contains(".jpeg ") Or Not LCase(FoundString).Contains(".png ") Or Not LCase(FoundString).Contains(".bmp ") Or Not LCase(FoundString).Contains(".gif ") Then
Dim FSLoop As Integer = 1
Do Until LCase(FoundString).Contains(".jpg ") Or LCase(FoundString).Contains(".jpeg ") Or LCase(FoundString).Contains(".png ") Or LCase(FoundString).Contains(".bmp ") Or LCase(FoundString).Contains(".gif ")
FoundString = FoundString & TagSplit(FSLoop) & " "
FSLoop += 1
Loop
End If
With this code
Code: Select all
If LocalTagImageList.Count = 0 Then
FoundString = Application.StartupPath & "\Images\System\NoLocalImagesFound.jpg"
Else
Dim TagSplit As String() = Split(LocalTagImageList(randomizer.Next(0, LocalTagImageList.Count)))
FoundString = TagSplit(0) & " "
If Not LCase(FoundString).Contains(".jpg ") Or Not LCase(FoundString).Contains(".jpeg ") Or Not LCase(FoundString).Contains(".png ") Or Not LCase(FoundString).Contains(".bmp ") Or Not LCase(FoundString).Contains(".gif ") Then
Dim FSLoop As Integer = 1
Do Until LCase(FoundString).Contains(".jpg ") Or LCase(FoundString).Contains(".jpeg ") Or LCase(FoundString).Contains(".png ") Or LCase(FoundString).Contains(".bmp ") Or LCase(FoundString).Contains(".gif ")
FoundString = FoundString & TagSplit(FSLoop) & " "
FSLoop += 1
Loop
End If
End If
This will catch if you don't have any images with a particular tag and show the error image instead of crashing the session completely.
line 8492 form1
replace the line with
Code: Select all
Dim LoopBuffer As Integer = 0
Do
LoopBuffer += 1
StatusText = PoundClean(StatusText)
If LoopBuffer > 4 Then Exit Do
Loop Until Not DomTask.Contains("#")
This will allow "nested" vocabulary phrases to work with glitter text (seen in #EmoteRandom)
To fix the recently mentioned @StartTaunts problem (line 10691 form1)
comment or remove these lines:
Code: Select all
StrokePace = 0
StrokePaceTimer.Interval = StrokePace
Has this always been a bug? The Patch 26 source has those same lines.