[EEB]Warp por Command Button(detalhado)+Localização

por lucas100vzs Sex 16 Mar 2012, 20:52

Bem eu queria saber somente quem poderia me dizer como eu uso um Teleport por Command Button, só que detalhado, pois eu vi pelo tutorial do Lendário assim o código:

Código:: If GetPlayerLevel(MyIndex) > 10 Then Call WarpTo(Val(2)) Call AddText("Você está em Satan City", Blue) Else: Call AddText("Você não tem o level Nescessário para Teletransportar.", Red) End If

Só que eu quero um código que na parte:

Código:: Call WarpTo(Val(2))

não tenha só o mapa, mas também as coordenadas(X=? , Y=?).

E também queria saber como que eu uso este código, por exemplo, digamos que eu use pra ir pra Satan City no mapa 2....Mas se eu já estiver no mapa 2 e se eu clicar eu queria que viesse uma mensagem dizendo que eu estava no mapa, e então finalizava a Sub. Poderia alguém por gentileza me dizer como eu faria isso? Obrigado. Very Happy

por Gu1lh3rm3 Sáb 17 Mar 2012, 00:44

Explicação: Esse tutorial faz com que,ao invés de ter um mapa de Teleport ou comandos "/cidade",seja um Painel,onde voce escolhe o mapa que deseja ir,simplesmente clicando na imagem do mapa.

::Download::
Click Aquie!!!

Coloque na pasta Código do Client
CLIENT~SIDE

Agora crie um CommandButton na frmMirage com Caption:Mundo
dê 2 cliques e add

Código:: frmMundo.Visible = True

Agora no frmMundo
Crie uma SSTab na frm,para selecionar os mapas

Então para mudar a imagem Clique na picturebox e nas propiedades mude a "Picture" para a foto do seu mapa

De dois cliques na Na imagem e estará assim:

Código:: Call SendData("cidade" & END_CHAR)

Do mesmo geito estao as outras imagems

Código:: Call SendData("deserto" & END_CHAR)

Código:: Call SendData("cidade2" & END_CHAR)

Modifique o "cidade" por exemplo,para o nome do warp que voce quer

Server~Side

No modServerTCP,procure por:

Código:: ' 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

Em baixo adicione:

Código:: Case "cidade" 'Aqui voce poe o nome do Warp que voce colocou nas imagens Call PlayerWarp(Index, 7, 13, 9) 'Aqui você sao as coordenadas do mapa onde vai aparecer "(Index,Mapa,X,Y) Call PlayerMsg(Index, "Você Teleportou para West City.", Yellow) ' A mensagem quando se teleportar Exit Sub

Fassa isso com todas as Imagens que voce Adicionou

Compile e seja feliz

::Fim::

::Créditos::
Guilherme (por ajudar, pois nao tem mais na mmo, alguem deleto D:)
Krawnser-Eu (por criar o tutorial)

por lucas100vzs Dom 18 Mar 2012, 20:50

Gu1lh3rm3,

Muito Obrigado mesmo pelo turorial...entendi aqui direitinho, muito bom, só mais um pergunta, com a migração do novo fórum para este novamente, como dá créditos mesmo? no sinal de '+' ainda? Very Happy

por Conteúdo patrocinado

[EEB]Warp por Command Button(detalhado)+Localização

[EEB]Warp por Command Button(detalhado)+Localização

Re: [EEB]Warp por Command Button(detalhado)+Localização

Re: [EEB]Warp por Command Button(detalhado)+Localização

Re: [EEB]Warp por Command Button(detalhado)+Localização