admin/P2EP_Toolkit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CD extra & settings support

Browse Source 
Written on book
This commit is contained in:
sShemet
2025-10-24 22:03:21 +05:00
parent 00ad4163f9
commit 3475406781
52 changed files with 2731 additions and 926 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
p2isPSX_CDToolkit/ScriptTools.vb
View File

@@ -440,9 +440,18 @@ Public Class ScriptTools
End If
If tx(x) = vbTab Then accum.AddRange({&H31, &H11}) : x += 1 : Continue Do 'Tab and enter
If tx(x) = vbTab Then
If (Form1.CDExtraBtn.Checked) Then
accum.AddRange({&H20, &H11}) 'Special Tab
x += 1
Continue Do
End If
accum.AddRange({&H31, &H11})
x += 1
Continue Do 'Tab and enter
End If
If tx(x) & tx(x + 1) = vbCrLf Then accum.AddRange({&H1, &H11}) : LineCount += 1 : x += 2 : Continue Do
If tx(x) & tx(x + 1) = vbCrLf Then accum.AddRange({&H1, &H11}) : LineCount += 1 : x += 2 : Continue Do
If tx(x) = vbLf Then accum.AddRange({&H1, &H11}) : LineCount += 1 : x += 1 : Continue Do
If Form1.NewTextMODE.Checked Then 'Новый режим вывода текста!!!
@@ -607,23 +616,17 @@ Exitif:
End If
For p = 0 To JRes.ParsedText.Count - 1
If Not IsNothing(ERes.ParsedText) Then 'load english version in comment
Dim etxt = Split(ERes.ParsedText(p), vbCrLf)
txt &= "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" & vbCrLf
For Each t In etxt
If Form1.UnKudosScript.Checked Then t = StringsOffsetEditorvb.Unkudos(t)
txt &= "\\ " & t & vbCrLf
Next
End If
Dim sT = If(IsNothing(ERes.ParsedText), JRes.ParsedText(p), ERes.ParsedText(p))
Dim etxt = Split(sT, vbCrLf)
txt &= "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" & vbCrLf
For Each t In etxt
If Form1.UnKudosScript.Checked Then t = StringsOffsetEditorvb.Unkudos(t)
txt &= "\\ " & t & vbCrLf
Next
txt &= "[" & p & "]" & vbCrLf
txt &= JRes.ParsedText(p) & vbCrLf
Next
Return txt
End Function
'specialCodesParse
@@ -730,7 +733,7 @@ isJapanese:
If c = &H1101 Then txt &= vbCrLf : a += 2 : GoTo endlineTest ' Перенос строки
If c = &H1120 Then txt &= " " : a += 2 : GoTo endlineTest ' PSP Space!!!
If c = &H1120 Then txt &= vbTab : a += 2 : GoTo endlineTest ' PSP, IS and ExtraCD Tab
If c = &H1131 Then txt &= vbTab : a += 2 : GoTo endlineTest ' Табуляция (+12 пикс)
If c = &H1205 Then txt &= "[pause][" & get2(m, a + 2) & "]" : a += 4 : GoTo endlineTest ' Пауза при воспроизведении диалога
If c = &H1208 Then txt &= "[SelectionMenu][" & get2(m, a + 2) & "]" : a += 4 : GoTo endlineTest ' Пауза 1с при воспроизведении диалога