Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
New Map Layers
#5
Thank you, for some reason, I added this code into the MapData Packet, but it didn't save that, so I only had the old code. I fixed the error, and it now works perfectly!
Code:
For y = 0 To MAX_MAPY
            For x = 0 To MAX_MAPX
                SaveMap.Tile(x, y).Ground = Val(Parse(n))
                SaveMap.Tile(x, y).Mask = Val(Parse(n + 1))
                SaveMap.Tile(x, y).Anim = Val(Parse(n + 2))
                SaveMap.Tile(x, y).Mask2 = Val(Parse(n + 3))
                SaveMap.Tile(x, y).M2Anim = Val(Parse(n + 4))
                SaveMap.Tile(x, y).Fringe = Val(Parse(n + 5))
                SaveMap.Tile(x, y).FAnim = Val(Parse(n + 6))
                SaveMap.Tile(x, y).Fringe2 = Val(Parse(n + 7))
                SaveMap.Tile(x, y).F2Anim = Val(Parse(n + 8))
                SaveMap.Tile(x, y).Type = Val(Parse(n + 9))
                SaveMap.Tile(x, y).Data1 = Val(Parse(n + 10))
                SaveMap.Tile(x, y).Data2 = Val(Parse(n + 11))
                SaveMap.Tile(x, y).Data3 = Val(Parse(n + 12))
                
                n = n + 13
            Next x
        Next y

Thanks alot!
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)