Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!


Participe do fórum, é rápido e fácil

Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!
Makers Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Teletransporte por VBkeyF6

3 participantes

Ir para baixo

Teletransporte por VBkeyF6 Empty Teletransporte por VBkeyF6

Mensagem por thales12 Qua Jun 29, 2011 8:11 am

Cliente~Side:

Procure por:

Código:
' The Guild Creator
    If KeyCode = vbKeyF4 Then
        If Player(MyIndex).Access > 0 Then
            frmGuild.Show vbModeless, frmMirage
        End If
    End If
Abaixo Adicione:

Código:
' Teletransporte por key
    If KeyCode = vbKeyF6 Then
    Call SendData("cidade" & END_CHAR)
    End If
Server~Side:

Procure por:

Código:
Case "guildtrainee"

            ' Requerimentos
            If FindPlayer(Parse(1)) = 0 Then
                Call PlayerMsg(Index, "O jogador está offline.", White)
                Exit Sub
            End If

            If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then
                Call PlayerMsg(Index, "O jogador já está em sua guild.", Red)
                Exit Sub
            End If

            ' Se tudo okay, setar acesso dele da Guild para 0
            Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index))
            Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 0)
            Call SendPlayerData(FindPlayer(Parse(1)))
            Exit Sub
Abaixo Adicione:

Código:
Case "cidade"
Call PlayerWarp(Index, Mapa, X, Y)
Exit Sub
Mapa = Número do Mapa
X= Eixo do Mapa
Y = Eixo do Mapa

Caso queira por para teletransportar para cidade por outra vbkey basta mudar a seguinte linha:

Código:
 If KeyCode = vbKeyF6 Then

so mudar o
vbKeyF6

para:

vbKeyF5 ou vbKeyF4 ou vbKeyF3 etc..

Pronto,Testado por mim e funcionando.
thales12
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 29
Localização : Rio de Janeiro

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

Mensagem por spectrus Qua Jun 29, 2011 9:13 am

Muito bem explicado e otima organização!!
UP!
spectrus
spectrus
Administrador
Administrador

Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

Mensagem por RenanR Sáb Out 01, 2011 4:41 pm

Créditos: Teteu.


Última edição por RenanR em Qua Out 05, 2011 10:17 am, editado 1 vez(es)
RenanR
RenanR
Modelador
Modelador

Mensagens : 26
Estrelas Makers : 61
Creditos : 3
Data de inscrição : 19/07/2011

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

Mensagem por thales12 Ter Out 04, 2011 6:48 am

RenanR escreveu:Créditos: Teteu.

Não diga o que é seu o que não é.

me amostra o lugar q eu to falando q e meu ! '-'
thales12
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 29
Localização : Rio de Janeiro

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

Mensagem por RenanR Qua Out 05, 2011 10:17 am

Você não disse que é seu, mas também não disse que é do Teteu
RenanR
RenanR
Modelador
Modelador

Mensagens : 26
Estrelas Makers : 61
Creditos : 3
Data de inscrição : 19/07/2011

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

Mensagem por thales12 Qui Out 06, 2011 8:36 pm

RenanR escreveu:Você não disse que é seu, mas também não disse que é do Teteu

vc disse " nao diga oq e seu oq nao é " eu nao disse q e meu ! Smile
fim do off-topic, proximo off-topic irei punir, vc e a mim..
thales12
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 29
Localização : Rio de Janeiro

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Teletransporte por VBkeyF6 Empty Re: Teletransporte por VBkeyF6

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