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

demon contacts import

Browse Source 
SUPA PUPA DUPA COPYPASTE FILES IMPORT SYSTEM
This commit is contained in:
sShemet
2026-03-19 17:43:18 +05:00
parent 48ca6f2d85
commit 2e01e57e70
7 changed files with 105 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
p2isPSX_CDToolkit/ScriptTools.vb
View File

@@ -104,7 +104,7 @@ Public Class ScriptTools
ScriptCodes.Add(New CodeObject With {.code = &H1E, .value = "AvtrLoad", .descr = "AvatarID"})
ScriptCodes.Add(New CodeObject With {.code = &H1F, .value = "AvtEmSet", .descr = "TEST IT!"})
ScriptCodes.Add(New CodeObject With {.code = &H20, .value = "AvUnload", .descr = "or wait"})
ScriptCodes.Add(New CodeObject With {.code = &H22, .value = "_AvaFade", .descr = "opacity, speed?"})
'ScriptCodes.Add(New CodeObject With {.code = &H22, .value = "_AvaFade", .descr = "opacity, speed?"})
ScriptCodes.Add(New CodeObject With {.code = &H23, .value = "AvaFWait"})
ScriptCodes.Add(New CodeObject With {.code = &H22, .value = "AvaSetXY"})
'ScriptCodes.Add(New CodeObject With {.code = &H23, .value = "AvaLdWit"})
@@ -134,7 +134,7 @@ Public Class ScriptTools
ScriptCodes.Add(New CodeObject With {.code = &H45, .value = "CtrlLock"})
ScriptCodes.Add(New CodeObject With {.code = &H46, .value = "CtrUnlck"})
ScriptCodes.Add(New CodeObject With {.code = &H48, .value = "ChSubSet", .descr = "ID, SubroutineID, ?, ?"})
ScriptCodes.Add(New CodeObject With {.code = &H48, .value = "ChSubSet", .descr = "ID, SubroutineID, Heigth, CollType"})
ScriptCodes.Add(New CodeObject With {.code = &H4A, .value = "CRotaDef"})
@@ -178,7 +178,7 @@ Public Class ScriptTools
ScriptCodes.Add(New CodeObject With {.code = &HD4, .value = "meshMove"})
ScriptCodes.Add(New CodeObject With {.code = &HD5, .value = "meshTurn"})
ScriptCodes.Add(New CodeObject With {.code = &HD6, .value = "meshWait"})
'ScriptCodes.Add(New CodeObject With {.code = &HD6, .value = "meshWait"})
ScriptCodes.Add(New CodeObject With {.code = &HD6, .value = "meshHide", .descr = "objID"})
@@ -1167,7 +1167,7 @@ endlineTest:
TempLinesAccum.AddRange({&H1D, &H12, spl(1), 0})
Case "col"
Dim ind = ColorCodes.Find(Function(q) q.value = spl(1)).code 'old style color
TempLinesAccum.AddRange({&H1D, &H12, ind, 0})
TempLinesAccum.AddRange({&H2E, &H12, ind, 0})
End Select
'x += 2