Trocar classe dentro do jogo

por RenanR Seg 23 Jul 2012, 12:30

A pedidos nesse tópico, fiz.

No tutorial só há para 2 classes. Vou explicar como adicionar mais depois.
Cliente~Side
FrmMirage
Crie um botao ou label, e dentro ponha:

Código:: frmChangeClass.Show

Crie uma nova form (Clique direito na pastinha forms la do vb do lado direito, e add>form>form.) Mude nas propriedades da form para o Name de frmChangeClass
Dentro da frm, crie dois botoes ou label ou picturebox que será usado pra mudar de classe
e outro botao adicional para fechar.
de dois cliques no botao que será usado para fechar e adicione:

Código:: frmChangeClass.Visible = False

Agora no primeiro botao, label ou picture que você criou pra trocar de classe ponha:

Código:: Call TrocardeClasse1

No segundo ponha>

Código:: Call TrocardeClasse2

No modClientTPC procure por:

Código:: Sub MapMsg(ByVal Text As String) Dim Packet As String Packet = "mapmsg" & SEP_CHAR & Text & END_CHAR Call SendData(Packet) End Sub

Abaixo ponha:

Código:: Public Sub TrocardeClasse1() Dim Packet As String Packet = "trocaclasse1" & SEP_CHAR & END_CHAR Call SendData(Packet) Call AddText("Agora você é classe 1", White) End Sub Public Sub TrocardeClasse2() Dim Packet As String Packet = "trocaclasse2" & SEP_CHAR & END_CHAR Call SendData(Packet) Call AddText("Agora você é classe 2", White) End Sub

Server~~side
no modServerTCP procure por:

Código:: Case "refresh" Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Call PlayerMsg(Index, "Mapa atualizado.", White) Exit Sub

Acima adicione:

Código:: Case "trocaclasse1" Call SetPlayerClass(Index, 1) Call SetPlayerSprite(Index, 91) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub Case "trocaclasse2" Call SetPlayerClass(Index, 2) Call SetPlayerSprite(Index, 0) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub

Explicando:
Como adicionar mais classes

Você vai criar mais botões(label ou picture se quiser) na frmChangeClass, e adicionar:

Código:: Call TrocardeClasse3

3, e assim vai
ai procure pela sub que você criou:

Código:: Public Sub TrocardeClasse2()

E adicionar uma abaixo igual (mudando algumas coisas) assim:

Código:: Public Sub TrocardeClasse3() ' nome da sub, mude para 3 e assim vai Dim Packet As String Packet = "trocaclasse3" & SEP_CHAR & END_CHAR ' packet a executar, mude para trocaclasse3 e assim vai Call SendData(Packet) ' nem mexa Call AddText("Agora você é classe 3", White) ' MENSAGEM A APARECER End Sub

Ai você vai ter que criar a packet, no serverside
procure pelo q você ja criou:

Código:: Case "trocaclasse2"

E crie uma igual(mudando algumas coisas) abaixo:

Código:: Case "trocaclasse3" ' nome da packet (so mude para trocaclasse3, e assim vai, tem q tar mesmo nome no cliente side ) Call SetPlayerClass(Index, 3) ' mude o 2 para a classe que irá ganhar, puis 3 Call SetPlayerSprite(Index, 0) ' mude o 0 para a sprite da classe Call SendPlayerData(Index) ' nem mexa Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) ' atualizar, nem mexa Exit Sub

E pronto, mude essas coisas das outras cases tmb ( Case "trocaclasse2" , Case "trocaclasse1" )

Créditos: RenanR~ ( eu, rs' ).

por Ayan13 Ter 24 Jul 2012, 14:55

u.u Gostei bom de mais +1 cred vc mereçe fez td certim

por Kooringa Ter 24 Jul 2012, 19:22

RenanR, Obrigado cara! +1

Trocar classe dentro do jogo 35iub2d

É meu Fan? Gosta de Min? Então use:
Trocar classe dentro do jogo Bhhod5

por pedr513dc Qui 26 Jul 2012, 20:17

Ótimo Tutorial, +1Cred

EDIT: Só agora que percebi, ele muda de classe o os status do cara fica, se o cara ficar se trans e usando isso ele vai ficar fortão, não recomendo usarem isso ae não pelomenos até que ele ageite ou alguem faça outro.

por montevechi Sex 27 Jul 2012, 14:45

+1 cred !

por -Kira Sex 27 Jul 2012, 14:54

Hey pessoal, vamos ler as regras né? Vocês tem que ter cuidado com o flood, da próxima vez não será apenas um aviso!

por alexandre Qui 02 Ago 2012, 07:43

Vc pode-me dizer como fasso só pra vips poderem usar.

aguardo respostas.

já agora como se faz um sistema de auto-update no "elsium br 2.6 perfect engine"

por RenanR Qui 02 Ago 2012, 11:09

Simples, mude o codigo do botão da frmMirage pra abrir a form frmChangeClass pra:

Código:: If GetPlayerAccess(MyIndex) => 1 Then frmChangeClass.Show Exit Sub Else Call AddText("Você não tem permissão para usar esta função!", Red) Exit Sub End If

por Ayan13 Ter 07 Ago 2012, 13:42

mais renan como muda exwmplo eu quero pra trasforma pra goku mais ta indo pra piguin como muda ?

por RenanR Ter 07 Ago 2012, 17:12

Nessa parte do server~side:

Código:: Case "trocaclasse1" Call SetPlayerClass(Index, 1) Call SetPlayerSprite(Index, 91) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub

Call SetPlayerClass(index, 1) - Em vez do 1, ponha o numero da classe do Goku
Call SetPlayerSprite(Index, 91) - Mude o 91 para a sprite da classe do goku!

Entendeu?

Ai tipo, o outro:

Código:: Case "trocaclasse2" Call SetPlayerClass(Index, 2) Call SetPlayerSprite(Index, 0) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub

Esse Você muda tmb:
Call SetPlayerClass(Index, 2) - 2 Numero da classe do Vegeta(exemplo).
Call SetPlayerSprite(Index, 0) - Numero da Sprite da classe do vegeta.

O resto não mexa.

por alexandre Qua 08 Ago 2012, 09:30

renan como fasso pra tipo se o player está transformado e tens os pontos duplicados

e quando ele muda pra outro char ele continua com os ponntos duplicados e eu
quero que volte aos pontos normal .

por RenanR Qua 08 Ago 2012, 11:40

Em vez de

Código:: Case "trocaclasse1" Call SetPlayerClass(Index, 1) Call SetPlayerSprite(Index, 91) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) Exit Sub

use assim

Código:: Case "trocaclasse1" select case getplayersprite(index) case 1 ' numero da sprite normal da classe 2 ou outra sem ser a 1 Call SetPlayerClass(Index, 1) Call SetPlayerSprite(Index, 91) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) case 2 ' numero da sprite normal da classe 1 ou outra sem ser a 2 Call SetPlayerClass(Index, 1) Call SetPlayerSprite(Index, 20) Call SendPlayerData(Index) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False) ' aki seria outra classe end select Exit Sub

entenda o codigo para editar !
eu fiz de cabeça pq to sem vb e o teclado ta ruim to usando o virtual;
ve se pega..

por Ayan13 Dom 12 Ago 2012, 16:23

Renan Assim Exemplo Eu posso Cria pircturebox pra trasforma exemplo sem se o nome goku vegeta eu vo coloca uma imegem pode fazer com um picture nao tem nada nao se eu fazer

por RenanR Dom 12 Ago 2012, 23:33

Huhum, pode fazer com pictureBox sim !

por Storm™ Seg 13 Ago 2012, 06:04

oO muito bom sem palavras levou meu credito .. Very Happy

por Kooringa Seg 13 Ago 2012, 07:36

RenanR, pode ajudar veio, tá dando error nessa linha quando compilo:

Call TrocardeClasse11

no meu jogo tem 14 classes, mais da erro nessa linha sendo q tá tudo igual... alguem ajuda!?!?

aaaaa pode deixar ja resolvi ^^

por Ayan13 Seg 13 Ago 2012, 13:57

renan e verdade o cara ali disse seu eu nao colocase o frame bugava Sim Ou nao

por Ayan13 Seg 13 Ago 2012, 14:01

e tbm la no vb tem picturebox e imagem pode fazer pela imagem tbm ?????

por Ryo Ter 14 Ago 2012, 12:40

Kooringa me mande MSN via MP eu te ajudo fiz o meu de 25 classes.

att: Lim master

por shaimon45 Sex 11 Jan 2013, 16:17

[/b]Eii pow Faz o sistema ae de troca de classe no jogo mais só trocar de Classe Normal[b]

por Conteúdo patrocinado

Trocar classe dentro do jogo

Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo

Re: Trocar classe dentro do jogo