[TUTORIAL] Sistema de Lobby

Código:

picSalas.Visible = False 'Deixa a picSalas invisivel
WarpTo (1) 'substitua o 1 pelo numero do mapa que você fez para ser tal sala.
AddText
 "Você acaba de entrar na sala 1", BrightRed 'substitua a mensagem pelo
que preferir, é o que ira aparecer quando o membro entrar na sala

WarpTo (1) por um outro numero pra um mapa diferente do mapa que usamos na primeira sala.

Código:

Public Sub WarpPlayer(ByVal MapNum As Long, ByVal X As Byte, ByVal Y As Byte)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Set Buffer = New clsBuffer
    Buffer.WriteLong CWarpPlayer
    Buffer.WriteLong MapNum
    Buffer.WriteByte X
    Buffer.WriteByte Y
    SendData Buffer.ToArray()
    Set Buffer = Nothing
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "WarpPlayer", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Código:

Sub HandleWarpPlayer(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim x as byte, y as byte
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()

    ' The map
    n = Buffer.ReadLong 'CLng(Parse(1))
    x = buffer.readbyte
    y = buffer.readbyte
    Set Buffer = Nothing

    ' Prevent hacking
    If n < 0 Or n > MAX_MAPS Then
        Exit Sub
    End If

    If X < 0 Or X > Map(GetPlayerMap(Index)).MaxX Then Exit Sub
    If Y < 0 Or Y > Map(GetPlayerMap(Index)).MaxY Then Exit Sub

    Call PlayerWarp(index, n, X, Y)
    Call PlayerMsg(index, "Você está no mapa:" & n, BrightBlue)
    Call AddLog(GetPlayerName(index) & " Você foi para o mapa:" & n & ".", ADMIN_LOG)
End Sub

Código:

WarpTo (1) 'substitua o 1 pelo numero do mapa que você fez para ser tal sala.

Código:

Call WarpPlayer(numero do mapa, X, Y)

Correçao de um bug:

bug: ao fechar somente a frmMain, a frmMenu ainda esta aberta, se vocÊ
logar pela frmMenu a frmMain ira abrir no mapa que você estava, para
fazer com que va direto para a lista de escolhas ao fechar só a frmMain
então siga o tutorial abaixo:
va na modClientTCP e procure por:
Código:

Código:

frmMain.Socket.Close

Abaixo coloque:

Código:

frmMain.picSalas.Visible = True

newbie123 escreveu:hm... e mesmo tem pra por quando um player logar, olha vou procurar ai amanha eu posto mas agora tenho que sair, vou fazer atividade da escola agora, ai posta abaixo aqui que eu posto e te mando MP.