[PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

por Felipee Sex 08 Nov 2013, 13:32

E então galera, como dito no nome do Titulo, eu fiz um sistema de mudar a sprite e multiplicar a Força e Defesa(tipo sistema de trans por foto, mas ao invés de foto eu botei button)... Mas dá um erro de Packet

Spoiler:

Sistema que eu coloquei no button

Código:: Private Sub Command1_Click() If GetPlayerSprite(MyIndex) = 49 Then Call SetPlayerSprite(MyIndex, 140) Call SetPlayerSTR(MyIndex, GetPlayerSTR(MyIndex) * 2) Call SetPlayerDEF(MyIndex, GetPlayerDEF(MyIndex) * 2) Call SendData(MyIndex) End If End Sub

...
Queria saber se alguém sabe por que dá esse erro... E se alguém souber, se puder corrigir esse erro para mim, será de grande ajuda
Valeu.

por RenanR Sex 08 Nov 2013, 13:37

Call SendData(MyIndex) ???
Rsrsrs. Isso ta errado. Mesmo tirando isso, não funcionaria..
Você tem que mandar essas informações pro servidor.

Ou seja, você colocaria isso no botão (exemplo):

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

E no servidor você criaria uma case de packet na parte de packets estando online com o seu código, assim;

Código:: Case "trans1" If GetPlayerSprite(Index) = 49 Then Call SetPlayerSprite(Index, 140) Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) End If Exit Sub

por Felipee Sex 08 Nov 2013, 13:59

ahhhh tá, agora eu acho q entendi .__.
Mas tipo, vc poderia explicar um pouco melhor sobre essa parte de "case de packet"? É que eu sou novo ainda, fiz isso ai me baseando no Script de mudar sprite por item usado no "ScriptedItem" do SasScript .--.

por RenanR Sex 08 Nov 2013, 15:02

Simplificando, na parte do servidor faz o seguinte:
procura:

Código:: ' Online e Jogando If IsPlaying(Index) = False Then Exit Sub If IsConnected(Index) = False Then Exit Sub Select Case LCase$(Parse(0))

Abaixo disso você coloca o código..

Código:: Case "trans1" If GetPlayerSprite(Index) = 49 Then Call SetPlayerSprite(Index, 140) Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) End If Exit Sub

por Felipee Sex 08 Nov 2013, 15:48

O que posso dizer... RenanR você é foda cara >.<
Consegui certinho, só fiz colocar Call SendPlayerData e Call SendStats pra ele salvar e atualizar o Stats..
Mesmo assim, valeu cara
++CRED

por RenanR Sex 08 Nov 2013, 15:58

De nada cara, que bom que conseguiu.
Valeu pelo crédito, *-*.
Boa sorte!

Aguarde(ando) um moderador trancar & mover o tópico

por Conteúdo patrocinado

[PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

[PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro

Re: [PEDIDO]Fiz um sistema de mudar sprite por commandbutton mas dá erro