Mirage Source
Seamless Scrolling Maps & Paperdolling. - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Seamless Scrolling Maps & Paperdolling. (/showthread.php?tid=1237)

Pages: 1 2

Seamless Scrolling Maps & Paperdolling. - JohnY - 31-08-2007

For the past couple of days I've tried to add Seamless Scrolling Maps (in wich it blits surrounding tiles, not the full map)
Link: http://www.key2heaven.net/ms/BackupCode ... 0Maps.html

It has been tested on Mirage Source Ver 3.0.3 although I'm using MSE 1, I can't get it to work at all, deleted and added it 4 times total.

Same goes for the paperdolling, I have added 32x64 sprites so I had to chance a bit of it, although I added it, no errors at all, just when I try to wear a item, it doesn't show up !

Is there anyone who would edit my source for me and include the Seamless Scrolling/Paperdolling, please?

U'd be my hero !

If so, please add me on Msn: Johny_050@hotmail.com

Re: Seamless Scrolling Maps & Paperdolling. - Coke - 31-08-2007

I think this is slightly more advanced than beginner lol.

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 01-09-2007

I tried that, but Seamless Scrolling didn't work out for me, so I went to Paperdolling wich didn't work out for me either.

Re: Seamless Scrolling Maps & Paperdolling. - genusis - 01-09-2007

well seemless maps wont work well unless you have the rigth tiles. papperdoll wount work well unless you make the weapons and armor right. other than that you should keep tring on seemless scrolling and paperdoll becuase people love games where they can have there own little custom look.

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 01-09-2007

genusis Wrote:well seemless maps wont work well unless you have the rigth tiles. papperdoll wount work well unless you make the weapons and armor right. other than that you should keep tring on seemless scrolling and paperdoll becuase people love games where they can have there own little custom look.

STFU. It'll work with any tiles.

JohnY, if you used Misunderstood's tutorial, he left out some important code. You have to do quite a bit of redims and such.

Add me on msn and I'll help you when I get a chance.

presisefa@netscape.net

If you use GTalk, that'd be even better.

faproductions@gmail.com

And occasionally, AIM.

AdvocateFA

Re: Seamless Scrolling Maps & Paperdolling. - genusis - 01-09-2007

W/E you think

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 01-09-2007

I know, dude. Misunderstood helped me with this exact system. I helped Gilgamesch get it in his game. Tried to help William, but we both got confused.

I know wtf I'm talking about, go jump off a bridge.

Damn I wish you were banned. I swear.

Re: Seamless Scrolling Maps & Paperdolling. - genusis - 01-09-2007

Its there personal opinion and the code that they use. and robin it kicked me out of windows live messenger agian wount let me sign in it lol.

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 01-09-2007

The code I'm talking about, HAS TO BE USED FOR THAT FUCKING TUTORIAL YOU GOD DAMN FUCKING RETARD. Fuck, I swear.

Re: Seamless Scrolling Maps & Paperdolling. - genusis - 01-09-2007

a bit violent today arnt we. just calm down and munch on some popcorn with me. and everythign will be ok.

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 01-09-2007

...

Go away. You're annoying. You irritate me so fucking bad..

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 02-09-2007

Added you Wink

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 02-09-2007

Now that I FINALLY tought I had it running by just adding: ReDim SMaps(7)
It doesn't Blit the damn surrounding maps, yes it does scroll, my player bars were fucked but I fixed the offsets, but still it Doesn't blit the damn surroundng maps.

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 02-09-2007

Put this:

Code:
ReDim SMaps(7)
    
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

In:

Code:
Sub LoadSurroundingMaps

Also add:

Code:
ReDim SMaps(7)

For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a
ReDim Map.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

In:

Code:
Sub Main

That should be all you need. Test it and let me know.

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 03-09-2007

Variable not defined:

For a = 0 To 7

The a is highlighted.

and:

ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

Array already dimensioned?


Code:
Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte
    ReDim SMaps(7)
  
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

    MapNum = Map.Up
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 0)
    Else
        etc etc..


Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 03-09-2007

Array already dimension in:

Code:
Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte
    Dim a As Variant
    ReDim SMaps(7)
    
    For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a
ReDim Map.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To is highlighted.

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 04-09-2007

Anyone? Cry

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 04-09-2007

You got ultra mixed up.. And Dave didn't help. Tongue

Code:
Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte

    ReDim SMaps(7)
    
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
    
    MapNum = Map.Up
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 0)
    Else
        SMaps(0) = BlankMap
    End If
    MapNum = Map.Right
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 2)
    Else
        SMaps(2) = BlankMap
    End If
    MapNum = Map.Down
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 4)
    Else
        SMaps(4) = BlankMap
    End If
    MapNum = Map.Left
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 6)
    Else
        SMaps(6) = BlankMap
    End If
    MapNum = SMaps(0).Right
    If MapNum = 0 And SMaps(2).Up > 0 Then MapNum = SMaps(2).Up
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 1)
    Else
        SMaps(1) = BlankMap
    End If
    MapNum = SMaps(2).Down
    If MapNum = 0 And SMaps(4).Right > 0 Then MapNum = SMaps(4).Right
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 3)
    Else
        SMaps(3) = BlankMap
    End If
    MapNum = SMaps(4).Left
    If MapNum = 0 And SMaps(6).Down > 0 Then MapNum = SMaps(6).Down
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 5)
    Else
        SMaps(5) = BlankMap
    End If
    MapNum = SMaps(6).Up
    If MapNum = 0 And SMaps(0).Left > 0 Then MapNum = SMaps(0).Left
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 7)
    Else
        SMaps(7) = BlankMap
    End If
End Sub

Thats my loadsurroundingmaps sub. Works.

As for the other stuff.. Wrong sub. xD

In
Code:
Sub Main

At the top, use this:

Code:
Sub Main()
Dim i As Long
Dim a As Long

Call CheckFile

ReDim SMaps(7)

For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a
ReDim Map.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

    
    ' Check if the maps directory is there, if its not make it
    If LCase(Dir(App.Path & "\maps", vbDirectory))  "maps" Then
        Call MkDir(App.Path & "\maps")
    End If


Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 04-09-2007

Call CheckFile

sub or function not defined.


I believe that when u give me ur Sub CheckFile it will still be messed up.

Re: Seamless Scrolling Maps & Paperdolling. - Robin - 04-09-2007

Hahaha.

That error means it can't find the subroutine.

Either you don't have a sub CheckFile or it's set to private.

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 04-09-2007

Comment that out. All it does is create my special settings.ini file for the game. You don't need it.

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 04-09-2007

I commented that out, but like I stated before.

ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To

Already dimensioned...

Re: Seamless Scrolling Maps & Paperdolling. - Matt - 04-09-2007

Do a search for redim smaps and find how many times it's in there.

It's obviously set somewhere else. Wink

It's really not hard to figure out if you just sit down and think about it.

Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 04-09-2007

Well you see that's the problem, I can't find any other SMaps wich is Dimed or ReDimed:

The things I could find with SMaps in it

Code:
' Public structure variables
Public Map As MapRec
Public SMaps() As MapRec

S
Code:
ub Main()
Call MultiClient
Dim i As Long
Dim a As Long

ReDim SMaps(7)

For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a
ReDim Map.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

and in the loadsurroundingmap sub:

Code:
Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte

    ReDim SMaps(7)
  
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
  
    MapNum = Map.Up
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 0)
    Else


Re: Seamless Scrolling Maps & Paperdolling. - JohnY - 04-09-2007

Quited this project since I can't handle it on my own and there's no one available to help.