Directional Blocking (My strange way)

Directional Blocking (My strange way) - Printable Version

+- Mirage Engine (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: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Directional Blocking (My strange way) (/showthread.php?tid=1085)

Directional Blocking (My strange way) - funkynut - 05-07-2007

Since this isn't up, I'll repost this aswell

Directional Blocking (My way)

Difficulty 3/5

Ok, this tutorial will allow each tile to have its own Blocking rules so thereÃ¢â‚¬â„¢s no need for TILE_TYPE_BLOCK (Although it will still be there if you want it). On Map Editor, a new option will be added to allow viewing tile Block pattern and will blt on each tile, the directions your able to walk in (If your unable to walk in a certain direction, a circle will be placed instead of an arrow) and in the center of every tile is a toggle circle that will Enable/Disable the ability to walk over the tile.

Btw, IÃ¢â‚¬â„¢m not sure, but I assume that this will muck up any maps you already have so you either have to redo the maps, or make a small app to convert all old maps to this new format

Ok, lets Begin, first off lets change the way Tiles are read and saved, so find TileRec on both Client and Server and add to the bottom of the type:

Code:
WalkUp As Boolean

    WalkDown As Boolean

    WalkLeft As Boolean

    WalkRight As Boolean

This will be used to record which directions are walkable, if a directions walkable, it will be set to true

Now, lets just add the controls weÃ¢â‚¬â„¢ll be using in Map Editor, Add a Checkbox called chkDirectionView and two command buttons called cmdFillDirections and cmdClearDirections

[Image: directionblockmapeditor9aw.th.png]

Ok, now weÃ¢â‚¬â„¢ve added the controls, we need the server to send us the new Tile Records to the client so find the sub SendMap, find:

Code:
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

and replace it with:

Code:
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 & .WalkUp & SEP_CHAR & .WalkDown & SEP_CHAR & .WalkLeft & SEP_CHAR & .WalkRight & SEP_CHAR

Now find SendMap in the Client and replace the same thing

Now, we need the client to interpret this new data when its received so find:

Code:
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

And after SaveMap.Tile(x, y).Data3 add:

Code:
SaveMap.Tile(x, y).WalkUp = Parse(n + 8)

                SaveMap.Tile(x, y).WalkDown = Parse(n + 9)

                SaveMap.Tile(x, y).WalkLeft = Parse(n + 10)

                SaveMap.Tile(x, y).WalkRight = Parse(n + 11)

And change:

Code:
n = n + 8

To:

Code:
n = n + 12

So we can keep track on what weÃ¢â‚¬â„¢ve received

Now weÃ¢â‚¬â„¢ve done all that, we need to make the server aware of all this malarkey that the clients sending so find:

Code:
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))

And add:

Code:
Map(MapNum).Tile(x, y).WalkUp = Parse(n + 8)

                Map(MapNum).Tile(x, y).WalkDown = Parse(n + 9)

                Map(MapNum).Tile(x, y).WalkLeft = Parse(n + 10)

                Map(MapNum).Tile(x, y).WalkRight = Parse(n + 11)

And again, change the n = n +8 to n = n + 12

Now the server can quite happily send and retrieve the new data, we need to allow the Client to edit this data, so letÃ¢â‚¬â„¢s first make the Client Blt the arrows onto each tile by adding a new surface containing the arrows. First, save this image to your Client Gfx Folder and call it Ã¢â‚¬ËœDirectionÃ¢â‚¬â„¢ and the extension you use. http://img363.imageshack.us/img363/4606 ... ion6rn.png

We want to do this neatly and as fully as possible so find

Code:
If FileExist(FileName & "sprites" & GFX_EXT, True) = False Or FileExist(FileName & "tiles" & GFX_EXT, True) = False Or FileExist(FileName & "items" & GFX_EXT, True) = False Then

And replace it with:

Code:
If FileExist(FileName & "sprites" & GFX_EXT, True) = False Or FileExist(FileName & "tiles" & GFX_EXT, True) = False Or FileExist(FileName & "items" & GFX_EXT, True) = False Or FileExist(FileName & "Direction" & GFX_EXT, True) = False Then

Now, we need to create the DirectDraw surface, so find

Code:
Public DDSD_Item As DDSURFACEDESC2

and underneath it add:

Code:
Public DDSD_Direction As DDSURFACEDESC2

Also find:

Code:
Public DD_ItemSurf As DirectDrawSurface7

and add underneath

Code:
Public DD_DirectionSurf As DirectDrawSurface7

Now we need to add the code that actually inits the surface, so find

Code:
' Init items ddsd type and load the bitmap

    With DDSD_Item

        .lFlags = DDSD_CAPS

        .ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_VIDEOMEMORY

    End With

    Set DD_ItemSurf = DD.CreateSurfaceFromFile(FileName & "items" & GFX_EXT, DDSD_Item)

    DD_ItemSurf.SetColorKey DDCKEY_SRCBLT, Key

And add under it

Code:
' Init Direction ddsd type and load the bitmap

    With DDSD_Direction

        .lFlags = DDSD_CAPS

        .ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_VIDEOMEMORY

    End With

    Set DD_DirectionSurf = DD.CreateSurfaceFromFile(FileName & "Direction" & GFX_EXT, DDSD_Direction)

    DD_DirectionSurf.SetColorKey DDCKEY_SRCBLT, Key

Lets go though this line by line, the .lFlags is telling Dx what properties to look at, so if we added, ddsd_Height, it will check the height property, in this case its checking the caps property. The .lCaps is describing how to load the surface, in this case its placed into the video memory. (Not 100% sure what the OffScreenPlain does, but you use it for any surface thatÃ¢â‚¬â„¢s in the background)

The next line tells it to load a picture from file onto the surface using the properties weÃ¢â‚¬â„¢ve just set, and the line after that just tells it what colours to make invisible.

We also have to unload the surface from memory when we exit so find

Code:
Set DD_ItemSurf = Nothing

and add

Code:
Set DD_DirectionSurf = Nothing

Now we need to display the directions on the map when we choose to so, find:

Code:
' Blit out attribs if in editor

        If InEditor Then

                For y = 0 To MAX_MAPY

                    For x = 0 To MAX_MAPX

                        With Map.Tile(x, y)

                            If .Type = TILE_TYPE_BLOCKED Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "B", QBColor(BrightRed))

                            If .Type = TILE_TYPE_WARP Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "W", QBColor(BrightBlue))

                            If .Type = TILE_TYPE_ITEM Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "I", QBColor(White))

                            If .Type = TILE_TYPE_NPCAVOID Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "N", QBColor(White))

                            If .Type = TILE_TYPE_KEY Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "K", QBColor(White))

                            If .Type = TILE_TYPE_KEYOPEN Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "O", QBColor(White))

                            If .Type = TILE_TYPE_NPCSPAWN Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "NS", QBColor(Yellow))

                        End With

                    Next x

                Next y

        End If

And replace it with

Code:
' Blit out attribs if in editor

        If InEditor Then

            If frmMirage.chkDirectionView.Value = 0 Then

                For y = 0 To MAX_MAPY

                    For x = 0 To MAX_MAPX

                        With Map.Tile(x, y)

                            If .Type = TILE_TYPE_BLOCKED Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "B", QBColor(BrightRed))

                            If .Type = TILE_TYPE_WARP Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "W", QBColor(BrightBlue))

                            If .Type = TILE_TYPE_ITEM Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "I", QBColor(White))

                            If .Type = TILE_TYPE_NPCAVOID Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "N", QBColor(White))

                            If .Type = TILE_TYPE_KEY Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "K", QBColor(White))

                            If .Type = TILE_TYPE_KEYOPEN Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "O", QBColor(White))

                            If .Type = TILE_TYPE_NPCSPAWN Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "NS", QBColor(Yellow))

                        End With

                    Next x

                Next y

            End If

        End If

All this does is disable viewing tile attribs when viewing Tile Directions

Now to main part that displays the arrows, we need this to be displayed above everything including all text, so we need to place this just after the backbuffer is released when blting text, so find:

Code:
Call DD_BackBuffer.ReleaseDC(TexthDC)

And add this

Code:
If InEditor Then

            If frmMirage.chkDirectionView.Value = 1 Then

                Call BltDirectionArrows

            End If

        End If

and then add the end of modGameLogic add this sub

Code:
Public Sub BltDirectionArrows()

Dim x As Long, y As Long

Dim Walkable As Boolean ' If tile has at least one dir, change center to circle

    For y = 0 To MAX_MAPY

        For x = 0 To MAX_MAPX

            With Map.Tile(x, y)

                Walkable = False ' Reset for a new tile

                ' Lets check what to Blt for the Up arrow

                If .WalkUp Then

                    With rec

                        .top = 0

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 3

                        .Right = .Left + PIC_Y

                    End With

                    Walkable = True

                Else

                    With rec

                        .top = PIC_X

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 3

                        .Right = .Left + PIC_Y

                    End With

                End If

                Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_DirectionSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

                ' Now lets check For Down Arrow

                If .WalkDown Then

                    With rec

                        .top = 0

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 2

                        .Right = .Left + PIC_Y

                    End With

                    Walkable = True

                Else

                    With rec

                        .top = PIC_X

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 2

                        .Right = .Left + PIC_Y

                    End With

                End If

                Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_DirectionSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

                ' Now lets check For Left Arrow

                If .WalkLeft Then

                    With rec

                        .top = 0

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 0

                        .Right = .Left + PIC_Y

                    End With

                    Walkable = True

                Else

                    With rec

                        .top = PIC_X

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 0

                        .Right = .Left + PIC_Y

                    End With

                End If

                Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_DirectionSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

                ' Now lets check For Right Arrow

                If .WalkRight Then

                    With rec

                        .top = 0

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 1

                        .Right = .Left + PIC_Y

                    End With

                    Walkable = True

                Else

                    With rec

                        .top = PIC_X

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 1

                        .Right = .Left + PIC_Y

                    End With

                End If

                Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_DirectionSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

                ' If tile is totally blocked, place cross in center

                If Walkable Then

                    With rec

                        .top = 0

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 4

                        .Right = .Left + PIC_Y

                    End With

                Else

                    With rec

                        .top = PIC_X

                        .Bottom = .top + PIC_X

                        .Left = PIC_Y * 4

                        .Right = .Left + PIC_Y

                    End With

                End If

                Call DD_BackBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_DirectionSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

                ' We need to draw a grid so we can tell which tiles which (First set pen width to 1)

                DD_BackBuffer.DrawLine x * PIC_X, y * PIC_Y, x * PIC_X, y * PIC_Y + (PIC_Y * MAX_MAPY) + 1

                DD_BackBuffer.DrawLine x * PIC_X, y * PIC_Y, x * PIC_X + (PIC_X * MAX_MAPX) + 1, y * PIC_Y

                            End With

        Next x

    Next y

End Sub

All this sub does is, go though each tile, checks its walkable properties and blts the correct image, once itÃ¢â‚¬â„¢s done that it blts 2 lines which will eventually create a grid. The only other thing to explain about this sub is that it blts the center shape by checking if the tile is totally blocked, and if it is, it will blt a cross, if not, it blts a circle.

We still need to make use of them buttons we added earlier, so double click on cmdFillDirections and add:

Code:
Dim X As Long, Y As Long

    ' Go through each tile and set each direction to walkable

    For X = 0 To MAX_MAPX

        For Y = 0 To MAX_MAPY

            With Map.Tile(X, Y)

                .WalkUp = True

                .WalkDown = True

                .WalkLeft = True

                .WalkRight = True

            End With

        Next Y

    Next X

All this does is scan each tile and make each direction walkable

Now double click cmdClearDirections and add:

Code:
Dim X As Long, Y As Long

    ' Go through each tile and set each direction to walkable

    For X = 0 To MAX_MAPX

        For Y = 0 To MAX_MAPY

            With Map.Tile(X, Y)

                .WalkUp = False

                .WalkDown = False

                .WalkLeft = False

                .WalkRight = False

            End With

        Next Y

    Next X

This also scans each tile, but this time, it cuts off all directions.

Direction Blocking Part 2

Finally gotten round to starting the second half Smile

I better explain first what IÃ¢â‚¬â„¢m going to do next for detecting which tile and where on the tile youÃ¢â‚¬â„¢ve clicked, so far, i've split the tile into sections like this...

Each section is a different clickable area, for example, the green area is for Blocking/Unblocking walking up and if the user clicks in this area then it will toggle it, the only problem now, is the corners at each side of the green section. The easiest way to solve this is to divide the whole tile into nine sections, like thisÃ¢â‚¬Â¦

What we need the client to do now when the mouse is clicked, is to scan which section was clicked. So, open up your client, find the sub EditorMouseDown.

Now at the top with the variables declaration, add these variables:

Code:
Dim x2 As Long, y2 As Long ' Used to record where on the tile was clicked

Dim CenterTolerence As RECT ' Controls how easy it is to press center

Now, to make it look neat, indent this

Code:
If (Button = 1) And (x1 >= 0) And (x1 = 0) And (y1 = 0) And (x1 = 0) And (y1  .Right Then ' Right side

                        If y2 > .Bottom Then ' Right Bottom

                            ' Now check which side of that small section was clicked

                            If x2 > y2 Then

                                Map.Tile(x1, y1).WalkRight = True

                            Else

                                Map.Tile(x1, y1).WalkDown = True

                            End If

                        ElseIf y2 > .Left Then ' Right Middle

                            Map.Tile(x1, y1).WalkRight = True

                        Else ' Right Top

                            ' Check which side was clicked, remember, minus from x because

                            ' its not starting from 0

                            If x2 - .Right > y2 Then

                                Map.Tile(x1, y1).WalkUp = True

                            Else

                                Map.Tile(x1, y1).WalkRight = True

                            End If

                        End If

                    ElseIf x2 > .Left Then ' Middle side

                        If y2 > .Bottom Then 'Bottom

                            Map.Tile(x1, y1).WalkDown = True

                        ElseIf y2 > .Left Then ' Middle

                            Map.Tile(x1, y1).WalkUp = True

                            Map.Tile(x1, y1).WalkDown = True

                            Map.Tile(x1, y1).WalkLeft = True

                            Map.Tile(x1, y1).WalkRight = True

                        Else ' Top

                            Map.Tile(x1, y1).WalkUp = True

                        End If

                    Else

                        If y2 > .Bottom Then 'Left Bottom

                            If x2 > y2 - .Bottom Then

                                Map.Tile(x1, y1).WalkDown = True

                            Else

                                Map.Tile(x1, y1).WalkLeft = True

                            End If

                        ElseIf y2 > .Left Then ' Left Middle

                            Map.Tile(x1, y1).WalkLeft = True

                        Else ' Left Top

                            If x2 > y2 Then

                                Map.Tile(x1, y1).WalkUp = True

                            Else

                                Map.Tile(x1, y1).WalkLeft = True

                            End If

                        End If

                    End If

                 ElseIf Button = 2 And (x1 >= 0) And (x1 = 0) And (y1  .Bottom Then ' Right Bottom

                            ' Now check which side of that small section was clicked

                            If x2 > y2 Then

                                Map.Tile(x1, y1).WalkRight = False

                            Else

                                Map.Tile(x1, y1).WalkDown = False

                            End If

                        ElseIf y2 > .Left Then ' Right Middle

                            Map.Tile(x1, y1).WalkRight = False

                        Else ' Right Top

                            ' Check which side was clicked, remember, minus from x because

                            ' its not starting from 0

                            If x2 - .Right > y2 Then

                                Map.Tile(x1, y1).WalkUp = False

                            Else

                                Map.Tile(x1, y1).WalkRight = False

                            End If

                        End If

                    ElseIf x2 > .Left Then ' Middle side

                        If y2 > .Bottom Then 'Bottom

                            Map.Tile(x1, y1).WalkDown = False

                        ElseIf y2 > .Left Then ' Middle

                            Map.Tile(x1, y1).WalkUp = False

                            Map.Tile(x1, y1).WalkDown = False

                            Map.Tile(x1, y1).WalkLeft = False

                            Map.Tile(x1, y1).WalkRight = False

                        Else ' Top

                            Map.Tile(x1, y1).WalkUp = False

                        End If

                    Else

                        If y2 > .Bottom Then 'Left Bottom

                            If x2 > y2 - .Bottom Then

                                Map.Tile(x1, y1).WalkDown = False

                            Else

                                Map.Tile(x1, y1).WalkLeft = False

                            End If

                        ElseIf y2 > .Left Then ' Left Middle

                            Map.Tile(x1, y1).WalkLeft = False

                        Else ' Left Top

                            If x2 > y2 Then

                                Map.Tile(x1, y1).WalkUp = False

                            Else

                                Map.Tile(x1, y1).WalkLeft = False

                            End If

                        End If

                    End If

            End With

        Else

All this section does is scan for which of the nine parts of the tile we clicked, and changes the settings respectively. If itÃ¢â‚¬â„¢s a corner, it will compare x and y to tell which side of the square its on, for, if X = Y, it will create a line from one corner to the other, if X > Y, it will make a point on one side of the line, if Y > X, it will create a point on the other side of the line.

Ok, right now, we have to actually restrict player movement if the tile their standing on needs to so, in the client, find sub CanMove, find:

Code:
' Check to see if a npc is already on that tile

            For i = 1 To MAX_MAP_NPCS

                If MapNpc(i).Num > 0 Then

                    If (MapNpc(i).x = GetPlayerX(MyIndex)) And (MapNpc(i).y = GetPlayerY(MyIndex) - 1) Then

                        CanMove = False

                        ' Set the new direction if they weren't facing that direction

                        If d  DIR_UP Then

                            Call SendPlayerDir

                        End If

                        Exit Function

                    End If

                End If

            Next i

And after it, add:

Code:
' Check if the tile will let us walk onto it

            If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).WalkUp = False Then

                CanMove = False

                ' Set the new direction if they weren't facing that direction

                If d  DIR_UP Then

                    Call SendPlayerDir

                End If

                Exit Function

            End If

Now, find this, which is a bit below it (This ones the walking down version)

Code:
' Check to see if a npc is already on that tile

            For i = 1 To MAX_MAP_NPCS

                If MapNpc(i).Num > 0 Then

                    If (MapNpc(i).x = GetPlayerX(MyIndex)) And (MapNpc(i).y = GetPlayerY(MyIndex) + 1) Then

                        CanMove = False

                        ' Set the new direction if they weren't facing that direction

                        If d  DIR_DOWN Then

                            Call SendPlayerDir

                        End If

                        Exit Function

                    End If

                End If

            Next i

and add below it

Code:
' Check if the tile will let us walk onto it

            If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).WalkDown = False Then

                CanMove = False

                ' Set the new direction if they weren't facing that direction

                If d  DIR_DOWN Then

                    Call SendPlayerDir

                End If

                Exit Function

            End If

And now for the left movement, find

Code:
' Check to see if a npc is already on that tile

            For i = 1 To MAX_MAP_NPCS

                If MapNpc(i).Num > 0 Then

                    If (MapNpc(i).x = GetPlayerX(MyIndex) - 1) And (MapNpc(i).y = GetPlayerY(MyIndex)) Then

                        CanMove = False

                        ' Set the new direction if they weren't facing that direction

                        If d  DIR_LEFT Then

                            Call SendPlayerDir

                        End If

                        Exit Function

                    End If

                End If

            Next I

And add:

Code:
' Check if the tile will let us walk onto it

            If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).WalkLeft = False Then

                CanMove = False

                ' Set the new direction if they weren't facing that direction

                If d  DIR_LEFT Then

                    Call SendPlayerDir

                End If

                Exit Function

            End If

Now the right side, find

Code:
' Check to see if a npc is already on that tile

            For i = 1 To MAX_MAP_NPCS

                If MapNpc(i).Num > 0 Then

                    If (MapNpc(i).x = GetPlayerX(MyIndex) + 1) And (MapNpc(i).y = GetPlayerY(MyIndex)) Then

                        CanMove = False

                        ' Set the new direction if they weren't facing that direction

                        If d  DIR_RIGHT Then

                            Call SendPlayerDir

                        End If

                        Exit Function

                    End If

                End If

            Next I

Then add:

Code:
' Check if the tile will let us walk onto it

            If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).WalkRight = False Then

                CanMove = False

                ' Set the new direction if they weren't facing that direction

                If d  DIR_RIGHT Then

                    Call SendPlayerDir

                End If

                Exit Function

            End If

Now, this alone would work, but if a player is using a hacked client, or has hacked the map somehow, this could be bypassed easily, so we need to change the Player movement in the server, so find in the server, sub PlayerMove, and we basically have to do something similar here so locate:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Type  TILE_TYPE_BLOCKED Then

And Change it to:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) - 1).Type  TILE_TYPE_BLOCKED And Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).WalkUp Then

Now do the same with:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) + 1).Type  TILE_TYPE_BLOCKED Then

And change to:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index) + 1).Type  TILE_TYPE_BLOCKED And Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).WalkDown Then

Now do the same with:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index)-1, GetPlayerY(Index) ).Type  TILE_TYPE_BLOCKED Then

And change to:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index)-1, GetPlayerY(Index) + 1).Type  TILE_TYPE_BLOCKED And Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).WalkLeft Then

Now do the same with:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index)+1, GetPlayerY(Index) + 1).Type  TILE_TYPE_BLOCKED Then

And change to:

Code:
If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index)+1, GetPlayerY(Index) + 1).Type  TILE_TYPE_BLOCKED And Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).WalkRight Then

That should be everything, find any problems with this let me know. Btw, I wont be surprised if you dont understand it, I found it a kinda hard to explain some of the things..

Re: Directional Blocking (My strange way) - Robin - 25-07-2007

Well, no one else has bothered posting so here you go:

Very nice, awesome, orgasmic. Delicious.

Re: Directional Blocking (My strange way) - William - 25-07-2007

I think its because its reposted, very good tut.