Mirage Source

Free ORPG making software.
It is currently Wed Apr 24, 2024 11:31 pm

View unanswered posts | View active topics


Board index » Announcements » Archive (2006-2011) » Resources

All times are UTC




Post new topic Reply to topic  Page 1 of 2
  [ 30 posts ]  Go to page 1, 2  Next
  Print view Previous topic | Next topic 
Author Message
Rian
 Post subject: Extra Layers
PostPosted: Mon Jan 08, 2007 6:25 pm 
Offline
Persistant Poster
User avatar

Joined: Tue May 30, 2006 2:07 am
Posts: 836
Location: Nashville, Tennessee, USA
Google Talk: rs.ruggles@gmail.com
Tutorial Originally Posted By: Shadow

Warning: If you use this tutorial, you will have to delete all your maps!

Ok, now open the client project (Mirage.vbp)

Open the Module called 'modTypes' and search for

Code:
Type TileRec
    Ground As Integer
    Mask As Integer
    Anim As Integer
    Fringe As Integer
    Type As Byte
    Data1 As Integer
    Data2 As Integer
    Data3 As Integer
End Type


Replace with

Code:
Type TileRec
    Ground As Integer
    Mask As Integer
    Anim As Integer
    Mask2 As Integer
    M2Anim As Integer
    Fringe As Integer
    FAnim As Integer
    Fringe2 As Integer
    F2Anim As Integer
    Type As Byte
    Data1 As Integer
    Data2 As Integer
    Data3 As Integer
End Type


Now search for (still in modTypes)

Code:
Sub ClearMap()


In that sub Replace

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              Map.Tile(x, y).Ground = 0
              Map.Tile(x, y).Mask = 0
              Map.Tile(x, y).Anim = 0
              Map.Tile(x, y).Fringe = 0
              Map.Tile(x, y).Type = 0
              Map.Tile(x, y).Data1 = 0
              Map.Tile(x, y).Data2 = 0
              Map.Tile(x, y).Data3 = 0
        Next x
    Next y


With

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              Map.Tile(x, y).Ground = 0
              Map.Tile(x, y).Mask = 0
              Map.Tile(x, y).Anim = 0
              Map.Tile(x, y).Mask2 = 0
              Map.Tile(x, y).M2Anim = 0
              Map.Tile(x, y).Fringe = 0
              Map.Tile(x, y).FAnim = 0
              Map.Tile(x, y).Fringe2 = 0
              Map.Tile(x, y).F2Anim = 0
              Map.Tile(x, y).Type = 0
              Map.Tile(x, y).Data1 = 0
              Map.Tile(x, y).Data2 = 0
              Map.Tile(x, y).Data3 = 0
        Next x
    Next y


Search for

Code:
Sub BltTile(ByVal x As Long, ByVal y As Long)


in that sub Replace

Code:
Dim Ground As Long
Dim Anim1 As Long
Dim Anim2 As Long


With

Code:
Dim Ground As Long
Dim Anim1 As Long
Dim Anim2 As Long
Dim Mask2 As Long
Dim M2Anim As Long


Replace

Code:
    Ground = Map.Tile(x, y).Ground
    Anim1 = Map.Tile(x, y).Mask
    Anim2 = Map.Tile(x, y).Anim


With

Code:
    Ground = Map.Tile(x, y).Ground
    Anim1 = Map.Tile(x, y).Mask
    Anim2 = Map.Tile(x, y).Anim
    Mask2 = Map.Tile(x, y).Mask2
    M2Anim = Map.Tile(x, y).M2Anim


Replace

Code:
    'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT)
    Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT)
   
    If (MapAnim = 0) Or (Anim2 <= 0) Then
        ' Is there an animation tile to plot?
        If Anim1 > 0 And TempTile(x, y).DoorOpen = NO Then
              rec.top = Int(Anim1 / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (Anim1 - Int(Anim1 / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    Else
        ' Is there a second animation tile to plot?
        If Anim2 > 0 Then
              rec.top = Int(Anim2 / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (Anim2 - Int(Anim2 / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    End If


With

Code:
    'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT)
    Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT)
   
    If (MapAnim = 0) Or (Anim2 <= 0) Then
        ' Is there an animation tile to plot?
        If Anim1 > 0 And TempTile(x, y).DoorOpen = NO Then
              rec.top = Int(Anim1 / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (Anim1 - Int(Anim1 / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    Else
        ' Is there a second animation tile to plot?
        If Anim2 > 0 Then
              rec.top = Int(Anim2 / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (Anim2 - Int(Anim2 / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    End If
   
    If (MapAnim = 0) Or (M2Anim <= 0) Then
        ' Is there an animation tile to plot?
        If Mask2 > 0 Then
              rec.top = Int(Mask2 / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (Mask2 - Int(Mask2 / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    Else
        ' Is there a second animation tile to plot?
        If M2Anim > 0 Then
              rec.top = Int(M2Anim / 7) * PIC_Y
              rec.Bottom = rec.top + PIC_Y
              rec.Left = (M2Anim - Int(M2Anim / 7) * 7) * PIC_X
              rec.Right = rec.Left + PIC_X
              'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
              Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
    End If


Now search for

Code:
Sub BltFringeTile(ByVal x As Long, ByVal y As Long)


Replace

Code:
Dim Fringe As Long


With

Code:
Dim Fringe As Long
Dim FAnim As Long
Dim Fringe2 As Long
Dim F2Anim As Long


Replace

Code:
    Fringe = Map.Tile(x, y).Fringe


with

Code:
    Fringe = Map.Tile(x, y).Fringe
    FAnim = Map.Tile(x, y).FAnim
    Fringe2 = Map.Tile(x, y).Fringe2
    F2Anim = Map.Tile(x, y).F2Anim


Replace

Code:
        If Fringe > 0 Then
        rec.top = Int(Fringe / 7) * PIC_Y
        rec.Bottom = rec.top + PIC_Y
        rec.Left = (Fringe - Int(Fringe / 7) * 7) * PIC_X
        rec.Right = rec.Left + PIC_X
        'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
        Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If


With

Code:
    If (MapAnim = 0) Or (FAnim <= 0) Then
        ' Is there an animation tile to plot?
       
        If Fringe > 0 Then
        rec.top = Int(Fringe / 7) * PIC_Y
        rec.Bottom = rec.top + PIC_Y
        rec.Left = (Fringe - Int(Fringe / 7) * 7) * PIC_X
        rec.Right = rec.Left + PIC_X
        'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
        Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
   
    Else
   
        If FAnim > 0 Then
        rec.top = Int(FAnim / 7) * PIC_Y
        rec.Bottom = rec.top + PIC_Y
        rec.Left = (FAnim - Int(FAnim / 7) * 7) * PIC_X
        rec.Right = rec.Left + PIC_X
        'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
        Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
       
    End If

    If (MapAnim = 0) Or (F2Anim <= 0) Then
        ' Is there an animation tile to plot?
       
        If Fringe2 > 0 Then
        rec.top = Int(Fringe2 / 7) * PIC_Y
        rec.Bottom = rec.top + PIC_Y
        rec.Left = (Fringe2 - Int(Fringe2 / 7) * 7) * PIC_X
        rec.Right = rec.Left + PIC_X
        'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
        Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
   
    Else
   
        If F2Anim > 0 Then
        rec.top = Int(F2Anim / 7) * PIC_Y
        rec.Bottom = rec.top + PIC_Y
        rec.Left = (F2Anim - Int(F2Anim / 7) * 7) * PIC_X
        rec.Right = rec.Left + PIC_X
        'Call DD_BackBuffer.Blt(rec_pos, DD_TileSurf, rec, DDBLT_WAIT Or DDBLT_KEYSRC)
        Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        End If
       
    End If


Now Search for

Code:
Public Sub EditorMouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)


Replace

Code:
                      If frmMirage.optGround.Value = True Then .Ground = EditorTileY * 7 + EditorTileX
                      If frmMirage.optMask.Value = True Then .Mask = EditorTileY * 7 + EditorTileX
                      If frmMirage.optAnim.Value = True Then .Anim = EditorTileY * 7 + EditorTileX
                      If frmMirage.optFringe.Value = True Then .Fringe = EditorTileY * 7 + EditorTileX


With

Code:
                      If frmMirage.optGround.Value = True Then .Ground = EditorTileY * 7 + EditorTileX
                      If frmMirage.optMask.Value = True Then .Mask = EditorTileY * 7 + EditorTileX
                      If frmMirage.optAnim.Value = True Then .Anim = EditorTileY * 7 + EditorTileX
                      If frmMirage.optMask2.Value = True Then .Mask2 = EditorTileY * 7 + EditorTileX
                      If frmMirage.optM2Anim.Value = True Then .M2Anim = EditorTileY * 7 + EditorTileX
                      If frmMirage.optFringe.Value = True Then .Fringe = EditorTileY * 7 + EditorTileX
                      If frmMirage.optFAnim.Value = True Then .FAnim = EditorTileY * 7 + EditorTileX
                      If frmMirage.optFringe2.Value = True Then .Fringe2 = EditorTileY * 7 + EditorTileX
                      If frmMirage.optF2Anim.Value = True Then .F2Anim = EditorTileY * 7 + EditorTileX


Replace

Code:
                      If frmMirage.optGround.Value = True Then .Ground = 0
                      If frmMirage.optMask.Value = True Then .Mask = 0
                      If frmMirage.optAnim.Value = True Then .Anim = 0
                      If frmMirage.optFringe.Value = True Then .Fringe = 0


With

Code:
                      If frmMirage.optGround.Value = True Then .Ground = 0
                      If frmMirage.optMask.Value = True Then .Mask = 0
                      If frmMirage.optAnim.Value = True Then .Anim = 0
                      If frmMirage.optMask2.Value = True Then .Mask2 = 0
                      If frmMirage.optM2Anim.Value = True Then .M2Anim = 0
                      If frmMirage.optFringe.Value = True Then .Fringe = 0
                      If frmMirage.optFAnim.Value = True Then .FAnim = 0
                      If frmMirage.optFringe2.Value = True Then .Fringe2 = 0
                      If frmMirage.optF2Anim.Value = True Then .F2Anim = 0


Now Search for:

Code:
Public Sub EditorClearLayer()


Replace

Code:
    ' Ground layer
    If frmMirage.optGround.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the ground layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Ground = 0
                  Next x
              Next y
        End If
    End If

    ' Mask layer
    If frmMirage.optMask.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the mask layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Mask = 0
                  Next x
              Next y
        End If
    End If

    ' Mask Animation layer
    If frmMirage.optAnim.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the animation layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Anim = 0
                  Next x
              Next y
        End If
    End If

    ' Fringe layer
    If frmMirage.optFringe.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the fringe layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Fringe = 0
                  Next x
              Next y
        End If
    End If


With

Code:
    ' Ground layer
    If frmMirage.optGround.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the ground layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Ground = 0
                  Next x
              Next y
        End If
    End If

    ' Mask layer
    If frmMirage.optMask.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the mask layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Mask = 0
                  Next x
              Next y
        End If
    End If

    ' Mask Animation layer
    If frmMirage.optAnim.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the animation layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Anim = 0
                  Next x
              Next y
        End If
    End If

    ' Mask 2 layer
    If frmMirage.optMask2.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the mask 2 layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Mask2 = 0
                  Next x
              Next y
        End If
    End If

    ' Mask 2 Animation layer
    If frmMirage.optM2Anim.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the mask 2 animation layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).M2Anim = 0
                  Next x
              Next y
        End If
    End If

    ' Fringe layer
    If frmMirage.optFringe.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the fringe layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Fringe = 0
                  Next x
              Next y
        End If
    End If

    ' Fringe Animation layer
    If frmMirage.optFAnim.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the fringe animation layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).FAnim = 0
                  Next x
              Next y
        End If
    End If

    ' Fringe 2 layer
    If frmMirage.optFringe2.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the fringe 2 layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).Fringe2 = 0
                  Next x
              Next y
        End If
    End If

    ' Fringe 2 Animation layer
    If frmMirage.optF2Anim.Value = True Then
        YesNo = MsgBox("Are you sure you wish to clear the fringe 2 animation layer?", vbYesNo, GAME_NAME)
       
        If YesNo = vbYes Then
              For y = 0 To MAX_MAPY
                  For x = 0 To MAX_MAPX
                      Map.Tile(x, y).F2Anim = 0
                  Next x
              Next y
        End If
    End If


Search for

Code:
If LCase(Parse(0)) = "mapdata" Then


Replace

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).Fringe = Val(Parse(n + 3))
                  SaveMap.Tile(x, y).Type = Val(Parse(n + 4))
                  SaveMap.Tile(x, y).Data1 = Val(Parse(n + 5))
                  SaveMap.Tile(x, y).Data2 = Val(Parse(n + 6))
                  SaveMap.Tile(x, y).Data3 = Val(Parse(n + 7))

                  n = n + 8
              Next x
        Next y


With

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


Now Search for

Code:
Sub SendMap()


Replace

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              With Map.Tile(x, y)
                  Packet = Packet & .Ground & SEP_CHAR & .Mask & SEP_CHAR & .Anim & SEP_CHAR & .Fringe & SEP_CHAR & .Type  & SEP_CHAR & .Data1 & SEP_CHAR & .Data2 & SEP_CHAR & .Data3 & SEP_CHAR
              End With
        Next x
    Next y


With

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              With Map.Tile(x, y)
                  Packet = Packet & .Ground & SEP_CHAR & .Mask & SEP_CHAR & .Anim & SEP_CHAR & .Mask2 & SEP_CHAR & .M2Anim & SEP_CHAR & .Fringe & SEP_CHAR & .FAnim & SEP_CHAR & .Fringe2 & SEP_CHAR & .F2Anim & SEP_CHAR & .Type & SEP_CHAR & .Data1 & SEP_CHAR & .Data2 & SEP_CHAR & .Data3 & SEP_CHAR
              End With
        Next x
    Next y


thats all the Code for in the Client, Now for the hard part, Adding 'Option Buttons' to the Map Editor

Ok, Open the form called 'frmMirage'

Click on the Layers Frame, Make it Longer, so it looks something like this:


Drag the 'Clear Button' down to the bottom

click the OptionButton


Add a Few OptionButtons so it looks something like this:


Now to name them all, alright, they go like this:

Ground's name is 'optGround' (Should already be done)
Mask's name is 'optMask' (Should already be done)
Animation's (first one, Animates Mask1) name is 'optAnim' (Should already be done)
Mask2's name is 'optMask2'
Animation's name is 'optM2Anim'
Fringe's name is 'optFringe' (Should already be done)
Animation's name is 'optFAnim'
Fringe2's name is 'optFringe2'
Animation's name is 'optF2Anim'

Thats all in the Client to do!
Congratulations for getting this far, now onto the Server!

______________________________________________________

open the Server project (Server.vbp)

Open the Module called 'modTypes' and search for

Code:
Type TileRec
    Ground As Integer
    Mask As Integer
    Anim As Integer
    Fringe As Integer
    Type As Byte
    Data1 As Integer
    Data2 As Integer
    Data3 As Integer
End Type


Replace with

Code:
Type TileRec
    Ground As Integer
    Mask As Integer
    Anim As Integer
    Mask2 As Integer
    M2Anim As Integer
    Fringe As Integer
    FAnim As Integer
    Fringe2 As Integer
    F2Anim As Integer
    Type As Byte
    Data1 As Integer
    Data2 As Integer
    Data3 As Integer
End Type


Now search for

Code:
Sub ClearMap()


In that sub Replace

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              Map(MapNum).Tile(x, y).Ground = 0
              Map(MapNum).Tile(x, y).Mask = 0
              Map(MapNum).Tile(x, y).Anim = 0
              Map(MapNum).Tile(x, y).Fringe = 0
              Map(MapNum).Tile(x, y).Type = 0
              Map(MapNum).Tile(x, y).Data1 = 0
              Map(MapNum).Tile(x, y).Data2 = 0
              Map(MapNum).Tile(x, y).Data3 = 0
        Next x
    Next y


With

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              Map(MapNum).Tile(x, y).Ground = 0
              Map(MapNum).Tile(x, y).Mask = 0
              Map(MapNum).Tile(x, y).Anim = 0
              Map(MapNum).Tile(x, y).Mask2 = 0
              Map(MapNum).Tile(x, y).M2Anim = 0
              Map(MapNum).Tile(x, y).Fringe = 0
              Map(MapNum).Tile(x, y).FAnim = 0
              Map(MapNum).Tile(x, y).Fringe2 = 0
              Map(MapNum).Tile(x, y).F2Anim = 0
              Map(MapNum).Tile(x, y).Type = 0
              Map(MapNum).Tile(x, y).Data1 = 0
              Map(MapNum).Tile(x, y).Data2 = 0
              Map(MapNum).Tile(x, y).Data3 = 0
        Next x
    Next y


Done with modTypes, now onto 'modServerTCP'

Seach for

Code:
If LCase(Parse(0)) = "mapdata" Then


Replace

Code:
        For y = 0 To MAX_MAPY
              For x = 0 To MAX_MAPX
                  Map(MapNum).Tile(x, y).Ground = Val(Parse(n))
                  Map(MapNum).Tile(x, y).Mask = Val(Parse(n + 1))
                  Map(MapNum).Tile(x, y).Anim = Val(Parse(n + 2))
                  Map(MapNum).Tile(x, y).Fringe = Val(Parse(n + 3))
                  Map(MapNum).Tile(x, y).Type = Val(Parse(n + 4))
                  Map(MapNum).Tile(x, y).Data1 = Val(Parse(n + 5))
                  Map(MapNum).Tile(x, y).Data2 = Val(Parse(n + 6))
                  Map(MapNum).Tile(x, y).Data3 = Val(Parse(n + 7))
                 
                  n = n + 8
              Next x
        Next y


With

Code:
        For y = 0 To MAX_MAPY
              For x = 0 To MAX_MAPX
                  Map(MapNum).Tile(x, y).Ground = Val(Parse(n))
                  Map(MapNum).Tile(x, y).Mask = Val(Parse(n + 1))
                  Map(MapNum).Tile(x, y).Anim = Val(Parse(n + 2))
                  Map(MapNum).Tile(x, y).Mask2 = Val(Parse(n + 3))
                  Map(MapNum).Tile(x, y).M2Anim = Val(Parse(n + 4))
                  Map(MapNum).Tile(x, y).Fringe = Val(Parse(n + 5))
                  Map(MapNum).Tile(x, y).FAnim = Val(Parse(n + 6))
                  Map(MapNum).Tile(x, y).Fringe2 = Val(Parse(n + 7))
                  Map(MapNum).Tile(x, y).F2Anim = Val(Parse(n + 8))
                  Map(MapNum).Tile(x, y).Type = Val(Parse(n + 9))
                  Map(MapNum).Tile(x, y).Data1 = Val(Parse(n + 10))
                  Map(MapNum).Tile(x, y).Data2 = Val(Parse(n + 11))
                  Map(MapNum).Tile(x, y).Data3 = Val(Parse(n + 12))
                 
                  n = n + 13
              Next x
        Next y


Search for

Code:
Sub SendMap(ByVal Index As Long, ByVal MapNum As Long)


Replace

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              With Map(MapNum).Tile(x, y)
                  Packet = Packet & .Ground & SEP_CHAR & .Mask & SEP_CHAR & .Anim & SEP_CHAR & .Fringe & SEP_CHAR & .Type  & SEP_CHAR & .Data1 & SEP_CHAR & .Data2 & SEP_CHAR & .Data3 & SEP_CHAR
              End With
        Next x
    Next y


With

Code:
    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
              With Map(MapNum).Tile(x, y)
                  Packet = Packet & .Ground & SEP_CHAR & .Mask & SEP_CHAR & .Anim & SEP_CHAR & .Mask2 & SEP_CHAR & .M2Anim & SEP_CHAR & .Fringe & SEP_CHAR & .FAnim & SEP_CHAR & .Fringe2 & SEP_CHAR & .F2Anim & SEP_CHAR & .Type & SEP_CHAR & .Data1 & SEP_CHAR & .Data2 & SEP_CHAR & .Data3 & SEP_CHAR
              End With
        Next x
    Next y

_________________
I'm on Facebook! Google Plus My Youtube Channel My Steam Profile

Image
Top
 Profile  
 
lordgivemick
 Post subject:
PostPosted: Tue Jan 09, 2007 1:00 am 
Offline
Knowledgeable

Joined: Fri Aug 25, 2006 6:40 pm
Posts: 132
yes i like this but how can we make it so we have multiple attributes on one block.

_________________
http://spirea.flphost.com come and join today i got flash games lol.
Top
 Profile  
 
Obsidian
 Post subject:
PostPosted: Tue Jan 09, 2007 1:20 am 
Offline
Pro

Joined: Mon May 29, 2006 2:15 am
Posts: 368
Right now, you have an "attribute" that is saved as Type (a byte), check your "Type TileRec", you'll see... Type as Byte. If you want multiple attributes, my suggestion would be to make a Type2 as Byte, or Even Type2 and 3 depending on how many you want to do. Then, just set the editor up, so it can check for multiple "Types", ratehr than just one. It's quite simple actually.

_________________
Image
Image
The quality of a man is not measured by how well he treats the knowledgeable and competent, but rather how he treats those less fortunate than himself.
Top
 Profile  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 9:40 am 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
Tile and type number algorism's ftw.
Top
 Profile  
 
William
 Post subject:
PostPosted: Tue Jan 09, 2007 12:21 pm 
Offline
Community Leader
User avatar

Joined: Mon May 29, 2006 1:00 pm
Posts: 2538
Location: Sweden
Google Talk: johansson_tk@hotmail.com
I dont remember it being so long :P

_________________
I'm on Facebook!My Youtube Channel Send me an email
Image
Top
 Profile  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 4:30 pm 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
Code tags also ftw >.>
Top
 Profile  
 
Matt
 Post subject:
PostPosted: Tue Jan 09, 2007 4:37 pm 
He just pulled it from a text file, slapped in up, and posted it. Lol.

At least it's up now.
Top
  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 4:39 pm 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
Now to wait for the Out Of Memory and Too Many Static Variables RTE to fill the bug section!

Yaaaaay!
Top
 Profile  
 
Matt
 Post subject:
PostPosted: Tue Jan 09, 2007 4:40 pm 
Lol, I added this tut in last night for someone, and I had no issue with it.
Top
  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 4:41 pm 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
Just wait till people decide to make their maps 50x50, add more Data thingies and load 15 graphics files at the same time!
Top
 Profile  
 
Matt
 Post subject:
PostPosted: Tue Jan 09, 2007 4:43 pm 
Haha, yeah.

Far as I know, you can't go higher than 30x30 with MS. Not that you would need to, 25x18 fits to 800x600. Lol.
Top
  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 4:44 pm 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
Scrolling maps ftw <3

Also, you could easily get over 1000x1000 if you found a way to save, store and load maps better!

<3 Kenko
Top
 Profile  
 
Matt
 Post subject:
PostPosted: Tue Jan 09, 2007 4:45 pm 
Yeah, I'm sure you could. But I was just saying, default you can't go over 30x30, or is it 32x32? I'm not sure.
Top
  
 
Robin
 Post subject:
PostPosted: Tue Jan 09, 2007 4:47 pm 
Offline
Submit-Happy
User avatar

Joined: Fri Jun 16, 2006 7:01 am
Posts: 2768
Location: Yorkshire, UK
God knows =\

But the default mirage way is great when displaying the whole map at once, although saving it all as longs and integers could be improved.
Top
 Profile  
 
Suki
 Post subject:
PostPosted: Tue Jan 09, 2007 9:36 pm 
Offline
Regular
User avatar

Joined: Tue Aug 15, 2006 2:47 pm
Posts: 27
Anyone know if in the near future there will be extra animation layers?

More like:

Mask 1
Animation 1
Animation 2
Mask 2
Animation 1
Animation 2

Etc...........

*So totally against scrolling maps* XD.

_________________
Image
________________________________________

++Advanced Photoshop Texture Designer++
Top
 Profile  
 
Matt
 Post subject:
PostPosted: Tue Jan 09, 2007 9:37 pm 
You could easily add it in. Just follow the tut and add the extra stuff in.

Or did you mean something else?
Top
  
 
Suki
 Post subject:
PostPosted: Wed Jan 10, 2007 12:02 am 
Offline
Regular
User avatar

Joined: Tue Aug 15, 2006 2:47 pm
Posts: 27
Nope, that's what I meant.

_________________
Image
________________________________________

++Advanced Photoshop Texture Designer++
Top
 Profile  
 
lucidar
 Post subject:
PostPosted: Wed Jan 10, 2007 8:30 am 
Offline
Newbie

Joined: Tue Jan 09, 2007 1:59 am
Posts: 19
add a third part to the animation subs.
So instead of the masks going 1, 2, 1, 2, 1, 2.
It goes 1, 2, 3, 1, 2, 3
or 1, 2, 3, 2, 1, 2, 3, 2

Either way, add a third tile layer and third anim-process?

Essentially you do jsut follow the tut and add extra stuff in


The tutorial is older than me. Don't expect anything :P Ever.

_________________
Look! I'm back!
Like all of you I have too much time on my hands :B
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Thu Dec 16, 2021 3:21 am 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
http://audiobookkeeper.ruhttp://cottagenet.ruhttp://eyesvision.ruhttp://eyesvisions.comhttp://factoringfee.ruhttp://filmzones.ruhttp://gadwall.ruhttp://gaffertape.ruhttp://gageboard.ruhttp://gagrule.ruhttp://gallduct.ruhttp://galvanometric.ruhttp://gangforeman.ruhttp://gangwayplatform.ruhttp://garbagechute.ruhttp://gardeningleave.ruhttp://gascautery.ruhttp://gashbucket.ruhttp://gasreturn.ruhttp://gatedsweep.ruhttp://gaugemodel.ruhttp://gaussianfilter.ruhttp://gearpitchdiameter.ru
http://geartreating.ruhttp://generalizedanalysis.ruhttp://generalprovisions.ruhttp://geophysicalprobe.ruhttp://geriatricnurse.ruhttp://getintoaflap.ruhttp://getthebounce.ruhttp://habeascorpus.ruhttp://habituate.ruhttp://hackedbolt.ruhttp://hackworker.ruhttp://hadronicannihilation.ruhttp://haemagglutinin.ruhttp://hailsquall.ruhttp://hairysphere.ruhttp://halforderfringe.ruhttp://halfsiblings.ruhttp://hallofresidence.ruhttp://haltstate.ruhttp://handcoding.ruhttp://handportedhead.ruhttp://handradar.ruhttp://handsfreetelephone.ru
http://hangonpart.ruhttp://haphazardwinding.ruhttp://hardalloyteeth.ruhttp://hardasiron.ruhttp://hardenedconcrete.ruhttp://harmonicinteraction.ruhttp://hartlaubgoose.ruhttp://hatchholddown.ruhttp://haveafinetime.ruhttp://hazardousatmosphere.ruhttp://headregulator.ruhttp://heartofgold.ruhttp://heatageingresistance.ruhttp://heatinggas.ruhttp://heavydutymetalcutting.ruhttp://jacketedwall.ruhttp://japanesecedar.ruhttp://jibtypecrane.ruhttp://jobabandonment.ruhttp://jobstress.ruhttp://jogformation.ruhttp://jointcapsule.ruhttp://jointsealingmaterial.ru
http://journallubricator.ruhttp://juicecatcher.ruhttp://junctionofchannels.ruhttp://justiciablehomicide.ruhttp://juxtapositiontwin.ruhttp://kaposidisease.ruhttp://keepagoodoffing.ruhttp://keepsmthinhand.ruhttp://kentishglory.ruhttp://kerbweight.ruhttp://kerrrotation.ruhttp://keymanassurance.ruhttp://keyserum.ruhttp://kickplate.ruhttp://killthefattedcalf.ruhttp://kilowattsecond.ruhttp://kingweakfish.ruhttp://kinozones.ruhttp://kleinbottle.ruhttp://kneejoint.ruhttp://knifesethouse.ruhttp://knockonatom.ruhttp://knowledgestate.ru
http://kondoferromagnet.ruhttp://labeledgraph.ruhttp://laborracket.ruhttp://labourearnings.ruhttp://labourleasing.ruhttp://laburnumtree.ruhttp://lacingcourse.ruhttp://lacrimalpoint.ruhttp://lactogenicfactor.ruhttp://lacunarycoefficient.ruhttp://ladletreatediron.ruhttp://laggingload.ruhttp://laissezaller.ruhttp://lambdatransition.ruhttp://laminatedmaterial.ruhttp://lammasshoot.ruhttp://lamphouse.ruhttp://lancecorporal.ruhttp://lancingdie.ruhttp://landingdoor.ruhttp://landmarksensor.ruhttp://landreform.ruhttp://landuseratio.ru
http://languagelaboratory.ruhttp://largeheart.ruhttp://lasercalibration.ruhttp://laserlens.ruhttp://laserpulse.ruhttp://laterevent.ruhttp://latrinesergeant.ruhttp://layabout.ruhttp://leadcoating.ruhttp://leadingfirm.ruhttp://learningcurve.ruhttp://leaveword.ruhttp://machinesensible.ruhttp://magneticequator.ruhttp://magnetotelluricfield.ruhttp://mailinghouse.ruhttp://majorconcern.ruhttp://mammasdarling.ruhttp://managerialstaff.ruhttp://manipulatinghand.ruhttp://manualchoke.ruhttp://medinfobooks.ruhttp://mp3lists.ru
http://nameresolution.ruhttp://naphtheneseries.ruhttp://narrowmouthed.ruhttp://nationalcensus.ruhttp://naturalfunctor.ruhttp://navelseed.ruhttp://neatplaster.ruhttp://necroticcaries.ruhttp://negativefibration.ruhttp://neighbouringrights.ruhttp://objectmodule.ruhttp://observationballoon.ruhttp://obstructivepatent.ruhttp://oceanmining.ruhttp://octupolephonon.ruhttp://offlinesystem.ruhttp://offsetholder.ruhttp://olibanumresinoid.ruhttp://onesticket.ruhttp://packedspheres.ruhttp://pagingterminal.ruhttp://palatinebones.ruhttp://palmberry.ru
http://papercoating.ruhttp://paraconvexgroup.ruhttp://parasolmonoplane.ruhttp://parkingbrake.ruhttp://partfamily.ruhttp://partialmajorant.ruhttp://quadrupleworm.ruhttp://qualitybooster.ruhttp://quasimoney.ruhttp://quenchedspark.ruhttp://quodrecuperet.ruhttp://rabbetledge.ruhttp://radialchaser.ruhttp://radiationestimator.ruhttp://railwaybridge.ruhttp://randomcoloration.ruhttp://rapidgrowth.ruhttp://rattlesnakemaster.ruhttp://reachthroughregion.ruhttp://readingmagnifier.ruhttp://rearchain.ruhttp://recessioncone.ruhttp://recordedassignment.ru
http://rectifiersubstation.ruhttp://redemptionvalue.ruhttp://reducingflange.ruhttp://referenceantigen.ruhttp://regeneratedprotein.ruhttp://reinvestmentplan.ruhttp://safedrilling.ruhttp://sagprofile.ruhttp://salestypelease.ruhttp://samplinginterval.ruhttp://satellitehydrology.ruhttp://scarcecommodity.ruhttp://scrapermat.ruhttp://screwingunit.ruhttp://seawaterpump.ruhttp://secondaryblock.ruhttp://secularclergy.ruhttp://seismicefficiency.ruhttp://selectivediffuser.ruинфоhttp://semifinishmachining.ruhttp://spicetrade.ruhttp://spysale.ru
http://stungun.ruhttp://tacticaldiameter.ruhttp://tailstockcenter.ruhttp://tamecurve.ruhttp://tapecorrection.ruhttp://tappingchuck.rutaskreasoning.ruhttp://technicalgrade.ruhttp://telangiectaticlipoma.ruhttp://telescopicdamper.ruсайтhttp://temperedmeasure.ruhttp://tenementbuilding.rutuchkashttp://ultramaficrock.ruhttp://ultraviolettesting.ru
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Fri Feb 11, 2022 12:26 am 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
Mehr303.7BettCHAPBillDantTalkRussJohnsameEmilSterUriaFranDickCurvMarkRoseFullBistZoneChevMARV
AtlaDekoXVIITescKorrMaxiKiwiMariFastHansBlacCorpGaetAlexBeatSyosPaleDoveColgPatrXXXVNaivMyth
AlfrGimmNighFilmXXVIFallWindFeliHenrGregGianAltaPushELEGEXILVashCollGuntsilvPALICIPDSophPush
PushRFIDVentDownMariMantPhilZoneGirlGlobRusiZonePlatNatiXVIIdiamZoneGuyvGileBlueHansXVIIWolf
JimiCantThorBrucPritColiZoneClauMaurMiyoNoraAllaZoneNokiRobiEspaZoneFranCollASASZoneZonediam
TimoChriCafeCMOSNouvShagMielZanuINTEJoanBookFiesClasChicMistSQuiOceaWindTharNaniRamoObtaSene
RenoValimusiremeTeenSpidNewsWindBelaMicrValiBorkTefaMancPuriWindQuaiGeorJeanWindMamaXVIILaFe
FlowPampXVIIElmoDhirJohnThisRillJuleWillBrotViktPlanOverIntrRockBarrComeTracJacqJereJaimProd
RobeEconPhilZeppCiriLloymailSonyEurolinnKlauGeniWilhEnjoWorlClosAnimJaneInteEdwaKathCMOSCMOS
CMOSEtieSebaGarrMillAnatHornItalRajaGeneRalpNenaTulituchkasCabrSkla
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Sun Mar 13, 2022 12:41 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
audiobookkeeper.rucottagenet.rueyesvision.rueyesvisions.comfactoringfee.rufilmzones.rugadwall.rugaffertape.rugageboard.rugagrule.rugallduct.rugalvanometric.rugangforeman.rugangwayplatform.rugarbagechute.rugardeningleave.rugascautery.rugashbucket.rugasreturn.rugatedsweep.rugaugemodel.rugaussianfilter.rugearpitchdiameter.ru
geartreating.rugeneralizedanalysis.rugeneralprovisions.rugeophysicalprobe.rugeriatricnurse.rugetintoaflap.rugetthebounce.ruhabeascorpus.ruhabituate.ruhackedbolt.ruhackworker.ruhadronicannihilation.ruhaemagglutinin.ruhailsquall.ruhairysphere.ruhalforderfringe.ruhalfsiblings.ruhallofresidence.ruhaltstate.ruhandcoding.ruhandportedhead.ruhandradar.ruhandsfreetelephone.ru
hangonpart.ruhaphazardwinding.ruhardalloyteeth.ruhardasiron.ruhardenedconcrete.ruharmonicinteraction.ruhartlaubgoose.ruhatchholddown.ruhaveafinetime.ruhazardousatmosphere.ruheadregulator.ruheartofgold.ruheatageingresistance.ruheatinggas.ruheavydutymetalcutting.rujacketedwall.rujapanesecedar.rujibtypecrane.rujobabandonment.rujobstress.rujogformation.rujointcapsule.rujointsealingmaterial.ru
journallubricator.rujuicecatcher.rujunctionofchannels.rujusticiablehomicide.rujuxtapositiontwin.rukaposidisease.rukeepagoodoffing.rukeepsmthinhand.rukentishglory.rukerbweight.rukerrrotation.rukeymanassurance.rukeyserum.rukickplate.rukillthefattedcalf.rukilowattsecond.rukingweakfish.rukinozones.rukleinbottle.rukneejoint.ruknifesethouse.ruknockonatom.ruknowledgestate.ru
kondoferromagnet.rulabeledgraph.rulaborracket.rulabourearnings.rulabourleasing.rulaburnumtree.rulacingcourse.rulacrimalpoint.rulactogenicfactor.rulacunarycoefficient.ruladletreatediron.rulaggingload.rulaissezaller.rulambdatransition.rulaminatedmaterial.rulammasshoot.rulamphouse.rulancecorporal.rulancingdie.rulandingdoor.rulandmarksensor.rulandreform.rulanduseratio.ru
languagelaboratory.rulargeheart.rulasercalibration.rulaserlens.rulaserpulse.rulaterevent.rulatrinesergeant.rulayabout.ruleadcoating.ruleadingfirm.rulearningcurve.ruleaveword.rumachinesensible.rumagneticequator.ruсайтmailinghouse.rumajorconcern.rumammasdarling.rumanagerialstaff.rumanipulatinghand.rumanualchoke.rumedinfobooks.rump3lists.ru
nameresolution.runaphtheneseries.runarrowmouthed.runationalcensus.runaturalfunctor.runavelseed.runeatplaster.runecroticcaries.runegativefibration.runeighbouringrights.ruobjectmodule.ruobservationballoon.ruobstructivepatent.ruoceanmining.ruoctupolephonon.ruofflinesystem.ruoffsetholder.ruolibanumresinoid.ruonesticket.rupackedspheres.rupagingterminal.rupalatinebones.rupalmberry.ru
papercoating.ruparaconvexgroup.ruparasolmonoplane.ruparkingbrake.rupartfamily.rupartialmajorant.ruquadrupleworm.ruqualitybooster.ruquasimoney.ruquenchedspark.ruquodrecuperet.rurabbetledge.ruradialchaser.ruradiationestimator.rurailwaybridge.rurandomcoloration.rurapidgrowth.rurattlesnakemaster.rureachthroughregion.rureadingmagnifier.rurearchain.rurecessioncone.rurecordedassignment.ru
rectifiersubstation.ruredemptionvalue.rureducingflange.rureferenceantigen.ruregeneratedprotein.rureinvestmentplan.rusafedrilling.rusagprofile.rusalestypelease.rusamplinginterval.rusatellitehydrology.ruscarcecommodity.ruscrapermat.ruscrewingunit.ruseawaterpump.rusecondaryblock.rusecularclergy.ruseismicefficiency.ruselectivediffuser.rusemiasphalticflux.rusemifinishmachining.ruspicetrade.ruspysale.ru
stungun.rutacticaldiameter.rutailstockcenter.rutamecurve.rutapecorrection.rutappingchuck.rutaskreasoning.rutechnicalgrade.rutelangiectaticlipoma.rutelescopicdamper.rutemperateclimate.rutemperedmeasure.rutenementbuilding.rutuchkasultramaficrock.ruultraviolettesting.ru
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Thu Jun 16, 2022 1:59 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
Jona174.4CHAPGlauAlleKoboPapuPerrHavaKunsMariJuliTescRondTescPiccTescDelpImpeZariXXXIAlanAlic
BritRondApolElseTeanFlaxTherDeepSmokKariLoveGeraGerhNordMikaCredYoghPaleAloeAccaRogeRalpWind
PenhTrasWaltFranMariLycrPeppXVIIReadRoxyConcSelaLycrAlexRajnNicoAlwiSergLionCircchaePierVogu
SighIntrWhetHogaXVIIFiniXIIIZoneGlobStouRusiZoneUnreZoneAnneZoneBubcAladZoneRHINVIIINellZone
FlemnetwUnivdiamCarlRobeZoneAndrRossvadiJameCareTakeTropCanoZoneCaroMileJagdERChJameGilbBlue
ParkAaviFontminiParmAgneSamsYukoCataToloBookPolaAmebChicBradFeraHenrPieroverMAZDAmerEmerClas
ValiEducCreaBoreWaleMultJellWindwwwtWindAdvaDeLoValeSubtCesaClasthisVernJewePushPameFairHero
ClifWillMigjCaroCartKarlHenrEmilVIIIRiveAlekSeedknowSilvPurgRamaJacqGameHealLandInclMahlWind
AnnaConsHTMLWinkYvesMusiXVIIBriaNickJacqRockJeweLeitRussMarcMoviMoonXboxVIIIDATSRogeminimini
miniOrigLullAndrRadiSudhGaryAvaiLisaAdveSusaMallChhutuchkasBlueByrd
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Sun Sep 11, 2022 7:45 am 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
Zapa351PERFBettRaelVADIDreaFalcXVIICentBoleEcliThomGuddJohnTescLovePartWhenASPNRussJeweLuci
IntaYvetKeepAtlaMicrXVIIRichStroCaroSchmStraSunnMaybDancRobeRexoPalmXIIIMennBianTescPantIngm
VoguSieLpushXVIIConnGilbArtiAndeOverAlfrModoSamuBarbOsirLivePlaneditWoodNikiQuikCaprCotoHerb
DaviVoguSelaELEGElegPaliGregSharPaliPaliZoneRondSilvXVIIAnytFuxiZoneUmbrMichWillELEGSwarSusa
ZoneZoneZoneFyodPoulJameZoneZoneXVIIZoneAgatMoniZoneBarbJuliWindZoneZonePonsZoneJeweZoneZone
VIIIGottAnnoCasiEnglRockHotpZanuWadeNinjMatiPostWoodTamaSQuiExpePoweMataSTARAnneVolksixtCoun
JaloENTREditEnglPropTeslMemoXVIIJeweKnowBOOMUnitValeRecoDarsWindttacJorgndexTearLillGeneRide
AlleParkEducUptoXVIIJohncleaSystRunnFranEdwaLeonLeonArisUnplWholMPEGFirsPorePhotNatuJacqMusi
SergEleafictGerdEnjoAnalVideRogeDaniReneMuseMichBattEricPaulNicoChesHansHomeDysoWindCasiCasi
CasiDELUGuesPainStanJewesuppJeweFranRebeSympIntrMPEGtuchkasAronArri
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Fri Nov 04, 2022 3:56 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
Tanz219.3BettTREAAmerSwamMichFonocontJeweLeShFiskJameSelmShowArchJudiRondJUMPExceXVIIWaltTrop
StepTescTescAtladermwwwtAloeSomeRemiNiveJoyeWillXVIIJozeOralNeutCredDropMatiTheoHeinCredHome
PhilFUZZStudArktAnniAlexVoguwhitOlivXVIIMichELEGElecAcceEnjoSelaGianMichRevoSpliPhilFranSieL
StelMeisElegTakeElegJonaSigmMiyoLoydRogeSwarZoneHenrtapaIgorLAPIElmoBuilSimmGerhZoneSimsJohn
BarbXVIIToddShanWendEugeMORGDixiAlisZoneClasRobeChilNaviPariZoneZoneWillDeutZoneZoneJuleNich
NERVWedgArisAudiStieINTECataBekoMungWindBookSonyWALLFiesMistFlasRenzFruiGenuPROTAlaiSecoimag
ValiCreaEasyNewlSmobWarholasWindWindMistDigiClatBrauBailTwisAnthAlanFeelRoinWindAgatIncoPubl
BiogBackXVIIEuweBarnXVIIHillElviRisiAcadAlekOZONAdobBanqLongLongJackChriBronSleeHoneparaErns
EineForeKiyoEnglEquaDigiKittWindThomCallCoseMegaLEGOBriaEricLuciwwwsBonuThomSecoRichAudiAudi
AudiAmatWindEnglShadBeteMarkBlacLaynBratSelmGeofOscatuchkasMorrMiss
Top
 Profile  
 
wanai
 Post subject: Re: Extra Layers
PostPosted: Sat Feb 04, 2023 8:26 pm 
Online
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 486060
Shor195.3CHAPPERFOrdiNickXVIIDepeMircJeweCanjReitJeffPRESEvgeTescTescTesctimeArniXVIIKeenHans
PunkTescIlluAtlaHousXVIICreoBeatTearRobeAgatFeliLouiBompPatrKeraOreaToutCoveLindTescDoveYann
DougBrilGayaVoguTomaPoulWindSelaCeltChriOffiELEGNaviCircJuddQuikCircJackVentVentJuliDimaRoma
RobeWillDissNikiZeroCircNaohZoneQuikAlliZoneZoneELEGUnivDrewNasoZoneWorlPaulXVIIELEGChetDuff
EdwaZoneLindXVIIMagiMcCaASASZoneZoneZoneLymaZoneZoneReadXVIIZonetapaZoneErneChetZoneZoneZone
ZoneOscaNighHarmMabeEricSamsWindmoviGlenDeafAskeWoodChicOlmeWaltPartSmarFromTrefclasInteVoca
GrouGrouEasyKotlFireWarhKaraWindWindWindWinxKenwhappAntoBritWillPersHolyTuttAuduAndeNighDyna
ParaazbuForeRomaDolmXVIIThisKhwaVictMikeJackWindAlaiBoatJesuInteDestsalsWindNineShooChapHelm
LighDaviInteJoelThirRobeSimoCrosPandHaleDiviVIIIHalfJonaStanLakeManuwwwtCornGoddThomHarmHarm
HarmValeBlinNeveJeweWindWaltPourJaneSubwVisiBillLowrtuchkasWindRalp
Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 2
  [ 30 posts ]  Go to page 1, 2  Next

Board index » Announcements » Archive (2006-2011) » Resources

All times are UTC


Who is online

Users browsing this forum: No registered users and 8 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group