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
I think this is slightly more advanced than beginner lol.
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.
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.
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
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.
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.
The code I'm talking about, HAS TO BE USED FOR THAT FUCKING TUTORIAL YOU GOD DAMN FUCKING RETARD. Fuck, I swear.
a bit violent today arnt we. just calm down and munch on some popcorn with me. and everythign will be ok.
...
Go away. You're annoying. You irritate me so fucking bad..
Added you 
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.
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:
That should be all you need. Test it and let me know.
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..
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)
is highlighted.
Anyone? 
You got ultra mixed up.. And Dave didn't help. 
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
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
Call CheckFile
sub or function not defined.
I believe that when u give me ur Sub CheckFile it will still be messed up.
Posts: 2,742
Threads: 115
Joined: Jun 2006
Reputation:
0
Hahaha.
That error means it can't find the subroutine.
Either you don't have a sub CheckFile or it's set to private.
Quote:Robin:
Why aren't maps and shit loaded up in a dynamic array?
Jacob:
the 4 people that know how are lazy
Robin:
Who are those 4 people?
Jacob:
um
you, me, and 2 others?
Comment that out. All it does is create my special settings.ini file for the game. You don't need it.
I commented that out, but like I stated before.
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To
Already dimensioned...
Do a search for redim smaps and find how many times it's in there.
It's obviously set somewhere else.
It's really not hard to figure out if you just sit down and think about it.
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
Quited this project since I can't handle it on my own and there's no one available to help.
|
