Blocked Npc Warp

por Pablo Sex 29 Mar 2013, 09:19

A pedido do meu primo Dragon Akira, trago esse pequeno tutorial.

Descrição ~ Nesse tutorial será impossível a passagem de npcs acima dos warps impossibilitando a passagem dos players.

Serve~Side

Procure por:

Código:: Function CanNpcMove(ByVal MapNum As Long, ByVal MapNpcNum As Long, ByVal Dir) As Boolean

Mude tudo para:

Código:: Function CanNpcMove(ByVal MapNum As Long, ByVal MapNpcNum As Long, ByVal Dir) As Boolean Dim I As Long Dim TileType As Long Dim X As Long Dim Y As Long ' Check for sub-script out of range. If MapNum < 1 Or MapNum > MAX_MAPS Then Exit Function End If ' Check for sub-script out of range. If MapNpcNum < 1 Or MapNpcNum > MAX_MAP_NPCS Then Exit Function End If ' Check for sub-script out of range. If Dir < DIR_UP Or Dir > DIR_RIGHT Then Exit Function End If X = MapNPC(MapNum, MapNpcNum).X Y = MapNPC(MapNum, MapNpcNum).Y CanNpcMove = True Select Case Dir Case DIR_UP If Y > 0 Then ' Get the attribute on the tile. TileType = Map(MapNum).Tile(X, Y - 1).Type ' Check to make sure that the tile is walkable. If TileType = TILE_TYPE_BLOCKED Or TileType = TILE_TYPE_NPCAVOID Or TileType = TILE_TYPE_WARP Then CanNpcMove = False Exit Function End If ' Check to make sure that there is not a player in the way. For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerMap(I) = MapNum Then If GetPlayerX(I) = MapNPC(MapNum, MapNpcNum).X Then If GetPlayerY(I) = (MapNPC(MapNum, MapNpcNum).Y - 1) Then CanNpcMove = False Exit Function End If End If End If End If Next I ' Check to make sure that there is not another npc in the way. For I = 1 To MAX_MAP_NPCS If I <> MapNpcNum Then If MapNPC(MapNum, I).num > 0 Then If MapNPC(MapNum, I).X = MapNPC(MapNum, MapNpcNum).X Then If MapNPC(MapNum, I).Y = (MapNPC(MapNum, MapNpcNum).Y - 1) Then CanNpcMove = False Exit Function End If End If End If End If Next I Else CanNpcMove = False End If Case DIR_DOWN If Y < MAX_MAPY Then ' Get the attribute on the tile. TileType = Map(MapNum).Tile(X, Y + 1).Type ' Check to make sure that the tile is walkable. If TileType = TILE_TYPE_BLOCKED Or TileType = TILE_TYPE_NPCAVOID Or TileType = TILE_TYPE_WARP Then CanNpcMove = False Exit Function End If ' Check to make sure that there is not a player in the way. For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerMap(I) = MapNum Then If GetPlayerX(I) = MapNPC(MapNum, MapNpcNum).X Then If GetPlayerY(I) = (MapNPC(MapNum, MapNpcNum).Y + 1) Then CanNpcMove = False Exit Function End If End If End If End If Next I ' Check to make sure that there is not another npc in the way. For I = 1 To MAX_MAP_NPCS If I <> MapNpcNum Then If MapNPC(MapNum, I).num > 0 Then If MapNPC(MapNum, I).X = MapNPC(MapNum, MapNpcNum).X Then If MapNPC(MapNum, I).Y = (MapNPC(MapNum, MapNpcNum).Y + 1) Then CanNpcMove = False Exit Function End If End If End If End If Next I Else CanNpcMove = False End If Case DIR_LEFT If X > 0 Then ' Get the attribute on the tile. TileType = Map(MapNum).Tile(X - 1, Y).Type ' Check to make sure that the tile is walkable. If TileType = TILE_TYPE_BLOCKED Or TileType = TILE_TYPE_NPCAVOID Or TileType = TILE_TYPE_WARP Then CanNpcMove = False Exit Function End If ' Check to make sure that there is not a player in the way. For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerMap(I) = MapNum Then If GetPlayerX(I) = (MapNPC(MapNum, MapNpcNum).X - 1) Then If GetPlayerY(I) = MapNPC(MapNum, MapNpcNum).Y Then CanNpcMove = False Exit Function End If End If End If End If Next I ' Check to make sure that there is not another npc in the way. For I = 1 To MAX_MAP_NPCS If I <> MapNpcNum Then If MapNPC(MapNum, I).num > 0 Then If MapNPC(MapNum, I).X = (MapNPC(MapNum, MapNpcNum).X - 1) Then If MapNPC(MapNum, I).Y = MapNPC(MapNum, MapNpcNum).Y Then CanNpcMove = False Exit Function End If End If End If End If Next I Else CanNpcMove = False End If Case DIR_RIGHT If X < MAX_MAPX Then ' Get the attribute on the tile. TileType = Map(MapNum).Tile(X + 1, Y).Type ' Check to make sure that the tile is walkable. If TileType = TILE_TYPE_BLOCKED Or TileType = TILE_TYPE_NPCAVOID Or TileType = TILE_TYPE_WARP Then CanNpcMove = False Exit Function End If ' Check to make sure that there is not a player in the way. For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerMap(I) = MapNum Then If GetPlayerX(I) = (MapNPC(MapNum, MapNpcNum).X + 1) Then If GetPlayerY(I) = MapNPC(MapNum, MapNpcNum).Y Then CanNpcMove = False Exit Function End If End If End If End If Next I ' Check to make sure that there is not another npc in the way. For I = 1 To MAX_MAP_NPCS If I <> MapNpcNum Then If MapNPC(MapNum, I).num > 0 Then If MapNPC(MapNum, I).X = (MapNPC(MapNum, MapNpcNum).X + 1) Then If MapNPC(MapNum, I).Y = MapNPC(MapNum, MapNpcNum).Y Then CanNpcMove = False Exit Function End If End If End If End If Next I Else CanNpcMove = False End If End Select End Function