MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Sistema de Motivo ao deletar a conta

+3
afonsobr
Frozen
RenanR
7 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

Sistema de Motivo ao deletar a conta Empty Sistema de Motivo ao deletar a conta

Mensagem por RenanR Sex 01 Mar 2013, 23:17

~~ Cliente Side
~~~~ frmDeleteAccount

Crie um textbox chamado txtWhy
Em cima uma label com caption "Motivo:"

Deixando assim:
Sistema de Motivo ao deletar a conta IMmCfBT

Agora mude a Private Sub picConnect_Click() para:
Código:
Private Sub picConnect_Click()
    If Trim(txtName.Text) <> vbNullString And Trim(txtPassword.Text) <> vbNullString And Trim(txtWhy.Text) <> vbNullString Then
        If Len(Trim(txtName.Text)) < 3 Or Len(Trim(txtPassword.Text)) < 3 Then
            MsgBox "Seu nome e senha precisam ter no mínimo três caracteres"
            Exit Sub
        End If
        Call MenuState(MENU_STATE_DELACCOUNT)
    End If
End Sub

Procure:
Código:
Case MENU_STATE_DELACCOUNT

Mude até o End if para:
Código:
Case MENU_STATE_DELACCOUNT
            frmDeleteAccount.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando pedido de remoção de conta...")
                Call SendDelAccount(frmDeleteAccount.txtName.Text, frmDeleteAccount.txtPassword.Text, frmDeleteAccount.txtWhy.Text)
            End If

Procure:
Código:
Sub SendDelAccount(ByVal Name As String, ByVal Password As String)

Troque a sub para:
Código:
Sub SendDelAccount(ByVal Name As String, ByVal Password As String, ByVal Why As String)
Dim Packet As String
   
    Packet = "delimaccounted" & SEP_CHAR & Trim(Name) & SEP_CHAR & Trim(Password) & SEP_CHAR & Trim(Why) & END_CHAR
    Call SendData(Packet)
End Sub

Cliente Side Finalizado
Abrindo Server Side
~~Procure:
Código:
Case "delimaccounted"

Mude até o Exit Sub para:
Código:
Case "delimaccounted"

                If Not IsLoggedIn(Index) Then
                    Name = Parse(1)
                    Password = Parse(2)
                    Why = Parse(3)

                    If Not AccountExist(Name) Then
                        Call PlainMsg(Index, "Essa conta não existe.", 2)
                        Exit Sub
                    End If

                    If Not PasswordOK(Name, Password) Then
                        Call PlainMsg(Index, "Senha incorreta.", 2)
                        Exit Sub
                    End If

                    Call LoadPlayer(Index, Name)

                    For i = 1 To MAX_CHARS

                        If Trim$(Player(Index).Char(i).Name) <> vbNullString Then
                            Call DeleteName(Player(Index).Char(i).Name)
                        End If

                    Next

                    Call ClearPlayer(Index)
                    Call Kill(App.Path & "\Contas\" & Trim$(Name) & ".ini")
                    Call AddLog("Conta " & Trim$(Name) & " foi deletada. Razão: " & Why & ".", PLAYER_LOG)
                    Call PutVar(App.Path & "\Contas\Deletes.ini", "CONTAS DELETADAS - MOTIVOS", Trim$(Name), Trim$(Why))
                    Call PlainMsg(Index, "Sua conta foi deletada.", 2)
                End If

                Exit Sub

Procure mais acima:
Código:
Sub HandleData(ByVal Index As Long, ByVal Data As String)

Em baixo de:
Código:
Dim o As Long

Adicione:
Código:
Dim Why As String

Finalizado.

Arrow Arquivo Deletes.ini será criado na pasta Contas assim que alguem deletar uma conta, lá conterá o nome da conta e os motivos de ter deletado as contas...
também mudará o log mas não é nada de mais.
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por Frozen Sex 01 Mar 2013, 23:33

Otimo tutorial +1 Credito
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por afonsobr Sáb 02 Mar 2013, 01:17

Muito bom velho! Obrigado por compartilhar.

@Katekyo, cade o +1 dele?
avatar
afonsobr
Membro Veterano
Membro Veterano

Mensagens : 1196

http://digimongames.forumeiros.com/

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por RenanR Sáb 02 Mar 2013, 16:16

// Obrigado...
Espero que tenham mesmo dado créd e.e''
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por Del Piero Sáb 02 Mar 2013, 18:57

KKK' boa ideia até ,assim irão saber qual o motivo para o cara deletar a conta, claro se ele quiser explicar e_e'

+1
Del Piero
Del Piero
Membro Vitalicio
Membro Vitalicio

Mensagens : 602

http://www.exodusgames.com.br/

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por LegendaryAngel Sáb 02 Mar 2013, 20:31

Belo Tutorial +1 Credito Por Contribuir com a MMORPG BR!
avatar
LegendaryAngel
Membro Veterano
Membro Veterano

Mensagens : 810

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por Fogomax Dom 03 Mar 2013, 11:09

HeuUHhue, todo mundo fala "+1 Crédito" mas ninguém dá -qnn
Ótimo sistema, agora saberemos porque o usuário apagou a conta e oq devemos fazer para não evitar que isso aconteça de novo.
+1 Crédito, de verdade -q
Fogomax
Fogomax
Membro Veterano
Membro Veterano

Mensagens : 1167

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por RenanR Dom 03 Mar 2013, 13:11

Esse éra o intuito, ver o motivo da conta deletada e assim o dono do jogo poderá ver mais coisas que tem que melhorar no jogo... '-'

Obrigado aos que realmente deram créditos kk.
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por Leonard Qua 19 Jun 2013, 18:44

Parabéns pela iniciativa - Obrigado por compartilhar com a comunidade.  Sistema de Motivo ao deletar a conta 40789310
avatar
Leonard
Membro
Membro

Mensagens : 146

Ir para o topo Ir para baixo

Sistema de Motivo ao deletar a conta Empty Re: Sistema de Motivo ao deletar a conta

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos