demon contacts import

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

View File

@@ -1,11 +1,7 @@
Public Class rleTools
'This is implementation from ASM of ORIGINAL ATLUS GAME UNRLE PROCEDURE
'NEED TO FIX LAST BYTES!!! Fixed!
Public Function Unrle(ByRef readFile As Byte())
Dim newF As List(Of Byte)
@@ -18,8 +14,6 @@
If readFile(0) = 2 Then readAddr = 16 'if picture
If readFile(0) = 3 Then readAddr = 20 'if bgm
Dim mode As Byte
Dim curByte As Byte
Dim params1readCounter As Byte
@@ -28,7 +22,6 @@
Dim params2 As Integer
Dim params18 As Integer
Do
If mode = 0 Then
@@ -117,8 +110,6 @@ LAB_80026700:
Dim params1readRepeatCounter As Byte 'params[1] 80080dc8 - Bytecounter to read
Dim params2
Do
If mode = 0 Then