Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Sistema de WarpPlayer
2 participantes
Página 1 de 1
Sistema de WarpPlayer
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:
em baixo adicione:
dps procure por:
em baixo adicione:
no final da modHandleData adicione:
Server~Side terminado agora no Client~Side procure por:
no final da modClientTCP adicione:
dps procure por:
em baixo adicione:
para usa-lo basta usar o seguinte codigo :
Créditos: ao titio thaless
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:
Minha Sign:
Re: Sistema de WarpPlayer
Marlos Gama escreveu:Legal, vai ajudar pra quem quer fazer sistema de salas
+ 1 crédito
sim
fiz esse sistema basiado nisso ! :)
para salas..
botões de teletransportes, essas coisas ! :)
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
Tópicos semelhantes
» Sistema de WarpPlayer
» Sistema de Loja+Sistema de Passar de Classe por Level
» Sistema VIP
» [PEDIDO] [Sistema] Sistema de Tiro Cristianoforce 1.6
» Sistema de Pulo+Sistema de Correr
» Sistema de Loja+Sistema de Passar de Classe por Level
» Sistema VIP
» [PEDIDO] [Sistema] Sistema de Tiro Cristianoforce 1.6
» Sistema de Pulo+Sistema de Correr
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos