Originally posted by Xeon

---

Go away, nobody likes you...

---

Originally posted by Darkdata

---

Use a bit of source from elite map?
Or you could just ask around about it....
And Xeon don't be such a pain because your "progect" failed.

---

Private Sub ApplyTileset(ByVal bank As Byte, tileset As TilesetHeader)

  'KAWA --- ...  ...  HOLY MOTHER OF FUCK!

  '         And I thought Bouché wrote dirty code 

  '         It hurts my eyes just to read this sub!

  '         I still love you anyway.

  

  '         P.S.: At least properly indent 

  

  Dim DataIn(0 To 32767) As Byte

  Dim DataIn2(0 To 32767) As Byte

  Dim byteIn As Byte

  

  Dim cachefile As String

  cachefile = App.Path & "\tilecache\" & Replace(Left(Right(txtRom.Text, 12), 8), "\", "_") & txtOldskoolChooser.Text & bank & ".bmp"

  If Dir(cachefile) <> "" Then

    picTileset.Picture = LoadPicture(cachefile)

    Exit Sub

  End If

  

  Get #256, GBA2PC(thistileseta.pGFX) + 1, DataIn

  Get #256, GBA2PC(thistilesetb.pGFX) + 1, DataIn2

  

  'Decompress GFX

  If bank = 0 Then

    If checkifcompa <> 1 Then

      zahl = 204780

      If NextGen = False Then zahl = 16384

      CopyMemory gfxA(0), DataIn(0), zahl

      GoTo no_comp1

    End If

    LZ77UnComp DataIn(), gfxA()

no_comp1:

    If checkifcompb <> 1 Then

      zahl = 12288

      If NextGen = False Then zahl = 16384

      CopyMemory gfxB(0), DataIn2(0), zahl

      GoTo no_comp

    End If

    LZ77UnComp DataIn2(), gfxB()

  End If

no_comp:

  If bank <> 0 Then GoTo already_added

  If NextGen = False Then CopyMemory gfxA(16384), gfxB(0), 16384

  If NextGen = True Then CopyMemory gfxA(20480), gfxB(0), 12288

already_added:

  'If tattr(0) <> "&H30" Then GoTo nodebug1 'KAWA --- Made it an easter egg.

  Open App.Path & "\tileset.bin" For Binary As #512

  For z = 0 To 32767

    Put #512, z + 1, gfxA(z) 'KAWA --- Why was there a +336 in the offset?

  Next z

  Close #512

nodebug1:

  If NextGen = False Then

    adder = &HC0

    rounds = 5

    rounds2 = 6

  End If

  If NextGen = True Then

    adder = &HE0

    rounds = 6

    rounds2 = 7

  End If

  

  On Error GoTo PalError

  paloffsetx = GBA2PC(thistileseta.pPalettes) + adder * checkifpala

  For aa = 0 To 1

    For i = 0 To rounds

      For j = 0 To &HF

        Get #256, paloffsetx + 1 + (i * &H20) + (j * 2), byteIn

        pal = byteIn

        Get #256, paloffsetx + 2 + (i * &H20) + (j * 2), byteIn

        pal = CInt(pal + (byteIn * 256))

        c2 = (pal \ &H400) Mod &H20

        c1 = (pal \ &H20) Mod &H20

        C0 = pal Mod &H20

        pal = ((c2 * 8) * CLng(&H10000)) + ((c1 * 8) * &H100) + (C0 * 8)

        palettesA(i + rounds2 * aa, j) = pal

      Next j

    Next i

    paloffsetx = GBA2PC(thistilesetb.pPalettes) + adder * checkifpalb

  Next aa

  'Read Palettes

  On Error GoTo 0

  

  If bank = 0 Then

    Get #256, GBA2PC(tileset.pMap) + 1, Map16A

  ElseIf bank = 1 Then

    Get #256, GBA2PC(tileset.pMap) + 1, Map16B

  End If

  'Read Map16

  If NextGen = False Then endvalue = &H1FF

  If NextGen = True Then

    If bank = 0 Then endvalue = &H27F

    If bank = 1 Then endvalue = &H17F

  End If

  For i = 0 To endvalue

    DoEvents

    X = (i Mod &H10) * &H10

    If NextGen = False Then Y = ((i \ &H10) + IIf(bank = 1, &H20, 0)) * &H10

    If NextGen = True Then Y = ((i \ &H10) + IIf(bank = 1, &H28, 0)) * &H10

    DrawMap16 picTileset.hdc, bank, i, X, Y

  Next i

  

  picTileset.Picture = picTileset.Image

  On Error Resume Next

  MkDir App.Path & "\tilecache"

  SavePicture picTileset.Picture, cachefile

  Exit Sub

PalError:

  If BeenThereDoneThat = 0 Then

    MsgBox LoadResString(155)

    BeenThereDoneThat = 1

  End If

  Resume Next

End Sub