Map converter from Stable to Origins?

I’ve been getting plenty of errors and I was wondering if someone knew how to do this. I want to transfer all the maps from stable to Origins in a way that they stay the same and there are no errors.

No help for stables.

@PokemonEarthOnline:

No help for stables.

Don’t backsteat moderate.

I have decided to let this topic stay simply because it is being pointed in the right direction. I hope someone will help you convert over to the EO map format.

If your able to supply me  a download to stable I will make the converter when i have time…

It’s possible, but there are features that’re simply not there in EO, so it may cause you to lose a feature or two here and there.

@Stein:

It’s possible, but there are features that’re simply not there in EO, so it may cause you to lose a (bugged) feature or two here and there.

I know, but just clarifying he  may not be able to keep all of it, animated tiles being the most prominent one coming to mind.

I was considering housing and such but no matter what he loses it is still worth it to upgrade to EO.

If I can find a download of Stable, so I can get the map structure, I wouldn’t mind making a quick converter for you. 😆

I posted this somewhere else as well, but if you have some basic knowledge of programming and you know what you need to find in this code and change (basicly compare the maprec) then you’ll probably be able to do it yourself. Trying to do things yourself is always a great way to learn.

Sub ConvertOldMapsToNew()
Dim FileName As String
Dim i As Long
Dim F As Long
Dim X As Long, Y As Long
Dim OldMap As OldMapRec
Dim NewMap As MapRec

    For i = 1 To MAX_MAPS
        FileName = App.Path & "\maps\map" & i & ".dat"

        ' Get the old file
        F = FreeFile
        Open FileName For Binary As #F
            Get #F, , OldMap
        Close #F

        ' Delete the old file
        Call Kill(FileName)

        ' Convert
        NewMap.Name = OldMap.Name
        NewMap.Revision = OldMap.Revision + 1
        NewMap.Moral = OldMap.Moral
        NewMap.Up = OldMap.Up
        NewMap.Down = OldMap.Down
        NewMap.Left = OldMap.Left
        NewMap.Right = OldMap.Right
        NewMap.Music = OldMap.Music
        NewMap.BootMap = OldMap.BootMap
        NewMap.BootX = OldMap.BootX
        NewMap.BootY = OldMap.BootY
        NewMap.Shop = OldMap.Shop
        For Y = 0 To MAX_MAPY
            For X = 0 To MAX_MAPX
                NewMap.Tile(X, Y).Ground = OldMap.Tile(X, Y).Ground
                NewMap.Tile(X, Y).Mask = OldMap.Tile(X, Y).Mask
                NewMap.Tile(X, Y).Anim = OldMap.Tile(X, Y).Anim
                NewMap.Tile(X, Y).Fringe = OldMap.Tile(X, Y).Fringe
                NewMap.Tile(X, Y).Type = OldMap.Tile(X, Y).Type
                NewMap.Tile(X, Y).Data1 = OldMap.Tile(X, Y).Data1
                NewMap.Tile(X, Y).Data2 = OldMap.Tile(X, Y).Data2
                NewMap.Tile(X, Y).Data3 = OldMap.Tile(X, Y).Data3
            Next X
        Next Y

        For X = 1 To MAX_MAP_NPCS
            NewMap.Npc(X) = OldMap.Npc(X)
        Next X

        ' Set new values to 0 or null
        NewMap.Indoors = NO

        ' Save the new map
        F = FreeFile
        Open FileName For Binary As #F
            Put #F, , NewMap
        Close #F
    Next i
End Sub
```(and if it doesnt work out, I'm sure you can PM one of the guys who offered to do it for programming advice, free knowledge yumyum)

I know this is really REALLY late, but if anyone still needs this i have made a converter - by default it is meant to convert to Eclipse Dream Worlds(needs a little customization done to it even on a clean version cause i changed some values to make it compatabile with a modified Eclipse Evolution engine)

If anyone wants it i can help them fix it to their systems.

Log in to reply