demon contacts import
SUPA PUPA DUPA COPYPASTE FILES IMPORT SYSTEM
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user