Question Again.

[BugSICK]

how can i unblocked NPC, because when i passes an NPC/Monster it blocked like a stone. how can i unblocked it.? thanks  :cheesy:

[AdrianC]

So you want to pass through it? Its a source edit. Pretty easy to do actually, there's a tutorial in the programming section, but you need vb6.

[BugSICK]

yah i know its in the source edit and need a Vb6\. but as you said its in the programming section. well i will find now. hope so. thanks

[Baron]

its jsut a matter of deleting a small section of code. very simple.

[BugSICK]

@Baron:

> its jsut a matter of deleting a small section of code. very simple.

which part?

[Baron]

@BugSICK:

> which part?

in the client search for "playermove" and somewhere in the initial checks it will have a check against NPC positions.

[BugSICK]

```
' ::::::::::::::::::::::::::::
    ' :: Player movement packet ::
    ' ::::::::::::::::::::::::::::
    If (casestring = "playermove") Then
        i = Val(parse(1))
        X = Val(parse(2))
        y = Val(parse(3))
        Dir = Val(parse(4))
        n = Val(parse(5))

        If Dir < DIR_UP Or Dir > DIR_RIGHT Then
            Exit Sub
        End If

        Call SetPlayerX(i, X)
        Call SetPlayerY(i, y)
        Call SetPlayerDir(i, Dir)

        Player(i).xOffset = 0
        Player(i).yOffset = 0
        Player(i).Moving = n
```
??  :lipsrsealed:

[vrage]

no, not the packet

[BugSICK]

@V-Rage:

> no, not the packet

could you help me in pack? i mean help in 100% not installment :X

[BugSICK]

sorry for the post again. but i really need this. any could help me shall be credited here [http://www.touchofdeathforums.com/smf/index.php?board=284.0](http://www.touchofdeathforums.com/smf/index.php?board=284.0)

hayz. thanks

[Hippoman789]

ok ill see what i can do.
PM your client or whatever so i can edit.

[BugSICK]

:sad: you dont have to edit my client just tell me where to change it so i can edit it my self.

[Hippoman789]

oooh, well i can do that too!
i thought you didnt have vb6…lol

well ill start looking and ill tell you.

[BugSICK]

@Hippoman:

> oooh, well i can do that too!
> i thought you didnt have vb6…lol
>
> well ill start looking and ill tell you.

thanks man, ive been looking all over the forums, and yet cant find thanks

[Hippoman789]

My first job!

ima so happy!
ill pm you once i find it!

[BugSICK]

@Hippoman:

> My first job!
>
> ima so happy!
> ill pm you once i find it!

lol hahaha, thanks. ^_^

[Hippoman789]

Ok im looking right now.

where should i look? forms or modules?
server or client?

[zade_o]

change this:
```
Function CanMove() As Boolean
    Dim i As Long
    Dim X As Long
    Dim y As Long

    CanMove = True

    If Player(MyIndex).Moving <> 0 Then
        CanMove = False
        Exit Function
    End If

    ' Make sure they haven't just casted a spell
    If Player(MyIndex).CastedSpell = YES Then
        If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
            Player(MyIndex).CastedSpell = NO
        Else
            CanMove = False
            Exit Function
        End If
    End If

    X = GetPlayerX(MyIndex)
    y = GetPlayerY(MyIndex)

    If DirUp Then
        Call SetPlayerDir(MyIndex, DIR_UP)
        y = y - 1
    ElseIf DirDown Then
        Call SetPlayerDir(MyIndex, DIR_DOWN)
        y = y + 1
    ElseIf DirLeft Then
        Call SetPlayerDir(MyIndex, DIR_LEFT)
        X = X - 1
    Else
        Call SetPlayerDir(MyIndex, DIR_RIGHT)
        X = X + 1
    End If

    If y < 0 Then
        If Map(GetPlayerMap(MyIndex)).Up > 0 Then
            Call SendPlayerRequestNewMap(DIR_UP)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf y > MAX_MAPY Then
        If Map(GetPlayerMap(MyIndex)).Down > 0 Then
            Call SendPlayerRequestNewMap(DIR_DOWN)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf X < 0 Then
        If Map(GetPlayerMap(MyIndex)).Left > 0 Then
            Call SendPlayerRequestNewMap(DIR_LEFT)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf X > MAX_MAPX Then
        If Map(GetPlayerMap(MyIndex)).Right > 0 Then
            Call SendPlayerRequestNewMap(DIR_RIGHT)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    End If

    If Not GetPlayerDir(MyIndex) = LAST_DIR Then
        LAST_DIR = GetPlayerDir(MyIndex)
        Call SendPlayerDir
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_BLOCKED Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_SIGN Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_ROOFBLOCK Then
        CanMove = False
        Exit Function
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_CBLOCK Then
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data1 = Player(MyIndex).Class Then
            Exit Function
        End If
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data2 = Player(MyIndex).Class Then
            Exit Function
        End If
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data3 = Player(MyIndex).Class Then
            Exit Function
        End If
        CanMove = False
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_GUILDBLOCK And Map(GetPlayerMap(MyIndex)).Tile(X, y).String1 <> GetPlayerGuild(MyIndex) Then
        CanMove = False
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_KEY Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_DOOR Then
        If TempTile(X, y).DoorOpen = NO Then
            CanMove = False
            Exit Function
        End If
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_WALKTHRU Then
        Exit Function
    Else
        For i = 1 To MAX_PLAYERS
            If IsPlaying(i) Then
                If GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
                    If GetPlayerX(i) = X Then
                        If GetPlayerY(i) = y Then
                            CanMove = False
                            Exit Function
                        End If
                    End If
                End If
            End If
        Next i
    End If

    For i = 1 To MAX_MAP_NPCS
        If MapNpc(i).num > 0 Then
            If MapNpc(i).X = X Then
                If MapNpc(i).y = y Then
                    CanMove = False
                    Exit Function
                End If
            End If
        End If
    Next i
End Function
```
to this:

```
Function CanMove() As Boolean
    Dim i As Long
    Dim X As Long
    Dim y As Long

    CanMove = True

    If Player(MyIndex).Moving <> 0 Then
        CanMove = False
        Exit Function
    End If

    ' Make sure they haven't just casted a spell
    If Player(MyIndex).CastedSpell = YES Then
        If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
            Player(MyIndex).CastedSpell = NO
        Else
            CanMove = False
            Exit Function
        End If
    End If

    X = GetPlayerX(MyIndex)
    y = GetPlayerY(MyIndex)

    If DirUp Then
        Call SetPlayerDir(MyIndex, DIR_UP)
        y = y - 1
    ElseIf DirDown Then
        Call SetPlayerDir(MyIndex, DIR_DOWN)
        y = y + 1
    ElseIf DirLeft Then
        Call SetPlayerDir(MyIndex, DIR_LEFT)
        X = X - 1
    Else
        Call SetPlayerDir(MyIndex, DIR_RIGHT)
        X = X + 1
    End If

    If y < 0 Then
        If Map(GetPlayerMap(MyIndex)).Up > 0 Then
            Call SendPlayerRequestNewMap(DIR_UP)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf y > MAX_MAPY Then
        If Map(GetPlayerMap(MyIndex)).Down > 0 Then
            Call SendPlayerRequestNewMap(DIR_DOWN)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf X < 0 Then
        If Map(GetPlayerMap(MyIndex)).Left > 0 Then
            Call SendPlayerRequestNewMap(DIR_LEFT)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    ElseIf X > MAX_MAPX Then
        If Map(GetPlayerMap(MyIndex)).Right > 0 Then
            Call SendPlayerRequestNewMap(DIR_RIGHT)
            GettingMap = True
        End If
        CanMove = False
        Exit Function
    End If

    If Not GetPlayerDir(MyIndex) = LAST_DIR Then
        LAST_DIR = GetPlayerDir(MyIndex)
        Call SendPlayerDir
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_BLOCKED Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_SIGN Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_ROOFBLOCK Then
        CanMove = False
        Exit Function
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_CBLOCK Then
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data1 = Player(MyIndex).Class Then
            Exit Function
        End If
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data2 = Player(MyIndex).Class Then
            Exit Function
        End If
        If Map(GetPlayerMap(MyIndex)).Tile(X, y).Data3 = Player(MyIndex).Class Then
            Exit Function
        End If
        CanMove = False
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_GUILDBLOCK And Map(GetPlayerMap(MyIndex)).Tile(X, y).String1 <> GetPlayerGuild(MyIndex) Then
        CanMove = False
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_KEY Or Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_DOOR Then
        If TempTile(X, y).DoorOpen = NO Then
            CanMove = False
            Exit Function
        End If
    End If

    If Map(GetPlayerMap(MyIndex)).Tile(X, y).Type = TILE_TYPE_WALKTHRU Then
        Exit Function
    Else
        For i = 1 To MAX_PLAYERS
            If IsPlaying(i) Then
                If GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
                    If GetPlayerX(i) = X Then
                        If GetPlayerY(i) = y Then
                            CanMove = False
                            Exit Function
                        End If
                    End If
                End If
            End If
        Next i
    End If

End Function

```
problem should be solved.

[BugSICK]

thanks, ama try it now.

[Hippoman789]

dammit i hate you ghost…

[zade_o]

I expected a damnit but the rest was kinda hurtful…. love you too man... love you too.

[BugSICK]

thanks Ghost it really work but its like  glitch. but i will use this. thanks.  ;)


[Hippoman789]

why did you want it anyway?

[BugSICK]

in here.


so that if many people enter/buy in this store. they will not blocked the way.

by the way, is this applicable to character to character?

[zade_o]

You mean will a player be able to walk through a player?