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!

Teletransporte por VBkeyF6

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Teletransporte por VBkeyF6

Mensagem por thales12 em 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
Moderador
Moderador

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

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

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

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


Divulgue nosso Forum!
[Você precisa estar registrado e conectado para ver este link.]
Código:
[url=http://makersbrasil.forumeiros.com/]
src="http://img841.imageshack.us/img841/9522/92324935.png"
border="0">[/url]



E meu fan? entao use:

Código:
[img]http://www.baixa.la/arquivos/3908525_imagem.gif[/img]

Sign:
Spoiler:




spectrus
Administrador
Administrador

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

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

Mensagem por RenanR em Sab 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

Mensagem por thales12 em 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
Moderador
Moderador

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

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

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

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

RenanR
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

Mensagem por thales12 em 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
Moderador
Moderador

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

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Teletransporte por VBkeyF6

Mensagem por Conteúdo patrocinado Hoje à(s) 4:40 pm


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum