[EO] Run-time Error '49'

[Harris6310]

I have a fresh copy of the server and when I try and run it from the source I get the error. It highlights this line of code:

Result = Compress(tempBuffer(0), Size, Buffer(0), tempSize)

What do I do?

[Robin]

Fresh copy of the source? What the hell did you do man? xD

[Harris6310]

The only thing I changed was the project properties.

[Robin]

Re-download it and don't touch anything.

[Harris6310]

Same problem, the already compiled server works fine.

[Robin]

It's a problem with your VB6 then.

[Harris6310]

Can't be, I use to to edit and run 1.0.2 with no problem.

[Harris6310]

[This](http://msdn.microsoft.com/en-us/library/aa232602(VS.60).aspx) is what I'm getting, I just don't understand how to fix it.

[Harris6310]

Hey I fixed it! All I did was reboot my PC.

Triiiple glory!

[Warconn]

I am getting the same error minus the reboot luck :(

The error is occurring when the server is trying to "Creating Map Caches"

[Robin]

Delete your maps.

[Warconn]

I have with not success, I seemed to have tracked down the error to

in servertcp
```
Public Sub MapCache_Create(ByVal MapNum As Long)
    Dim MapData As String
    Dim x As Long
    Dim y As Long
    Dim I As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer

    Buffer.WriteLong MapNum
    Buffer.WriteString Trim$(Map(MapNum).Name)
    Buffer.WriteString Trim$(Map(MapNum).Music)
    Buffer.WriteLong Map(MapNum).Revision
    Buffer.WriteLong Map(MapNum).Moral
    Buffer.WriteLong Map(MapNum).Tileset
    Buffer.WriteLong Map(MapNum).Up
    Buffer.WriteLong Map(MapNum).Down
    Buffer.WriteLong Map(MapNum).Left
    Buffer.WriteLong Map(MapNum).Right
    Buffer.WriteLong Map(MapNum).BootMap
    Buffer.WriteLong Map(MapNum).BootX
    Buffer.WriteLong Map(MapNum).BootY
    Buffer.WriteLong Map(MapNum).MaxX
    Buffer.WriteLong Map(MapNum).MaxY

    For x = 0 To Map(MapNum).MaxX
        For y = 0 To Map(MapNum).MaxY

            With Map(MapNum).Tile(x, y)
                For I = 1 To MapLayer.Layer_Count - 1
                    Buffer.WriteByte .Layer(I).x
                    Buffer.WriteByte .Layer(I).y
                    Buffer.WriteByte .Layer(I).Tileset
                Next
                Buffer.WriteLong .Type
                Buffer.WriteLong .Data1
                Buffer.WriteLong .Data2
                Buffer.WriteLong .Data3
                Buffer.WriteByte .DirBlock
            End With

        Next
    Next

    For x = 1 To MAX_MAP_NPCS
        Buffer.WriteLong Map(MapNum).Npc(x)
    Next

    Buffer.CompressBuffer  '*********************ERRORZONE**************************
    MapCache(MapNum).Data = Buffer.ToArray()

    Set Buffer = Nothing
End Sub

```
when ever I comment that out, the server starts up, but then I get the same error client side -_-

[PD]

get a frresh copy of zlib.dll, that should fix it, i had this error or something similar to it :P

[bandcampboy]

I'm getting this error too. Where do I find this file and where should I download it to?

[Ruins of Hell]

Google should probably have it and you need to put it in your system32 folder and register it like the following.

regsvr32 path/to/system32/folder/zlib.dll

[Robin]

zlib isn't COM+. Just put it in the client folder.