Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


2 participantes

    Sistema de WarpPlayer

    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Sistema de WarpPlayer Left_bar_bleue0/0Sistema de WarpPlayer Empty_bar_bleue  (0/0)
    Vida:
    Sistema de WarpPlayer Left_bar_bleue30/30Sistema de WarpPlayer Empty_bar_bleue  (30/30)

    Sistema de WarpPlayer Empty Sistema de WarpPlayer

    Mensagem por thales12 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 !

    Sistema de WarpPlayer Thalesfan
    Sistema de WarpPlayer Mv0yg8

    Minha Sign:

    Sistema de WarpPlayer Zkqt5e
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Sistema de WarpPlayer ZgLkiRU
    Mensagens : 5345
    Créditos : 1164

    Sistema de WarpPlayer Empty Re: Sistema de WarpPlayer

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

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


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Sistema de WarpPlayer Left_bar_bleue0/0Sistema de WarpPlayer Empty_bar_bleue  (0/0)
    Vida:
    Sistema de WarpPlayer Left_bar_bleue30/30Sistema de WarpPlayer Empty_bar_bleue  (30/30)

    Sistema de WarpPlayer Empty Re: Sistema de WarpPlayer

    Mensagem por thales12 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 !

    Sistema de WarpPlayer Thalesfan
    Sistema de WarpPlayer Mv0yg8

    Minha Sign:

    Sistema de WarpPlayer Zkqt5e

    Conteúdo patrocinado


    Sistema de WarpPlayer Empty Re: Sistema de WarpPlayer

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qua Dez 04, 2024 10:36 pm