Sistema de WarpPlayer Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

Sistema de WarpPlayer

2 participantes

Ir para baixo

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
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)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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
Valentine
Valentine
Administrador
Administrador

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

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

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
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)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Sistema de WarpPlayer Empty Re: Sistema de WarpPlayer

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos