Suporte ao desenvolvimento de jogos!


    Sistema de WarpPlayer

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 314
    Créditos : 108

    Sistema de WarpPlayer

    Mensagem por thales12 em Seg Fev 06, 2012 11:28 pm

    No eo so tem o warpto q e para adm, então ta ai o warp para players ! :)
    para usar em botão, label ou outra coisa do tipo...

    Abra o Server~Side e procure por:

    Código:
    CWarpTo

    em baixo adicione:

    Código:
    CWarpPlayer

    dps procure por:

    Código:
    HandleDataSub(CWarpTo) = GetAddress(AddressOf HandleWarpTo)

    em baixo adicione:

    Código:
     HandleDataSub(CWarpPlayer) = GetAddress(AddressOf HandleWarpPlayer)

    no final da modHandleData adicione:

    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 Buffer As clsBuffer
        Set Buffer = New clsBuffer
        Buffer.WriteBytes Data()

        ' The map
        n = Buffer.ReadLong 'CLng(Parse(1))
        Set Buffer = Nothing

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

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

    Server~Side terminado agora no Client~Side procure por:

    no final da modClientTCP adicione:

    Código:
    Public Sub WarpPlayer(ByVal MapNum As Long)
    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
        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

    dps procure por:

    Código:
    CWarpTo

    em baixo adicione:

    Código:
    CWarpPlayer

    para usa-lo basta usar o seguinte codigo :

    Código:
    Call WarpPlayer(numero do mapa)

    Créditos: ao titio thaless


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4988
    Créditos : 1060

    Re: Sistema de WarpPlayer

    Mensagem por Valentine em Ter Fev 07, 2012 12:17 pm

    Legal, vai ajudar pra quem quer fazer sistema de salas Successful
    + 1 crédito


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 314
    Créditos : 108

    Re: Sistema de WarpPlayer

    Mensagem por thales12 em Ter Fev 07, 2012 5:18 pm

    Marlos Gama escreveu:Legal, vai ajudar pra quem quer fazer sistema de salas Successful
    + 1 crédito

    sim Very Happy
    fiz esse sistema basiado nisso ! :)
    para salas..
    botões de teletransportes, essas coisas ! :)


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:


    Conteúdo patrocinado

    Re: Sistema de WarpPlayer

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Nov 16, 2018 5:20 pm