Em vez de sair, voltar a seleção de chars

por RenanR Ter 18 Jun 2013, 20:14

Eu vi que o SkyZero postou, testei e bom, não funcionou, então aqui está;

Cliente-Side
Procure por:

Abaixo ponha:

Código:: Sub GoToCharSelect() Call SendData("gotocharselect" & END_CHAR) frmMirage.Visible = False frmChars.Show End Sub

Agora procure:

Mude oq há dentro desta sub para:

Código:: If MsgBox("Tem certeza de que quer sair!?", vbYesNo) = vbYes Then Call GoToCharSelect

Server-Side
Procure:

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 ponha:

Código:: ' Voltando para a seleção de chars Case "gotocharselect" Player(Index).InGame = False Call SendChars(Index) Exit Sub

E pronto está funcionando.
Créditos: Renanr

por LuizOtávio Ter 18 Jun 2013, 20:19

Muito bom ae +1 !
Continue postando!

por Storm™ Ter 18 Jun 2013, 20:24

Nuss irei testa mais antes de tudo Obrigado e continue postando tutorial para nossa alegria.

+1 Credito.

por Leonard Qua 19 Jun 2013, 10:18

Parabéns pela iniciativa - Obrigado por compartilhar com a comunidade. (E Esta funcionando) Em vez de sair, voltar a seleção de chars 40789310

por Eduardo Marwell Qua 19 Jun 2013, 15:40

Testado e aprovado! +1!

por Conteúdo patrocinado

Re: Em vez de sair, voltar a seleção de chars