Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Sistema de Login igual do [EO]

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Sistema de Login igual do [EO]

Mensagem por thales12 em Seg Jul 11, 2011 4:51 pm

Bom Quando vc Logar vai direto para o Criar Char, quando criar o char ja vai direto para o game, e se vc ja tiver o char criado quando vc logar ja vai direto para o game.

Abra o Client~Side

e procure por:

Código:
' :::::::::::::::::::::::::::
    ' :: All characters packet ::
    ' :::::::::::::::::::::::::::
    If Parse(0) = "allchars" Then
        n = 1
       
        frmSendGetData.Hide
        frmChars.Show , frmMainMenu
       
        frmChars.lstChars.Clear
       
        For I = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
           
            If Trim(Name) = vbNullString Then
                frmChars.lstChars.AddItem "Lugar Livre"
            Else
                frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
            End If
           
            n = n + 3
        Next I
       
        frmChars.lstChars.ListIndex = 0
        Exit Sub
    End If

mude tudo para:

Código:
 ' :::::::::::::::::::::::::::
    ' :: All characters packet ::
    ' :::::::::::::::::::::::::::
    If Parse(0) = "allchars" Then
        n = 1
        frmSendGetData.Hide
       
        frmChars.lstChars.Clear
       
        For I = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
           
            If Trim(Name) = vbNullString Then
                frmChars.lstChars.AddItem "Lugar Livre"
            Else
                frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
            End If
           
            n = n + 3
        Next I
       
        frmChars.lstChars.ListIndex = 0

        If frmChars.lstChars.List(frmChars.lstChars.ListIndex) = "Lugar Livre" Then
            Call MenuState(MENU_STATE_NEWCHAR)
        Else
            Call MenuState(MENU_STATE_USECHAR)
        End If
       
        Exit Sub
    End If

dps procure por:

Código:
' ::::::::::::::::::::::::::
    ' :: Plain message packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "plainmsg" Then
        frmSendGetData.Visible = False
        n = Val(Parse(2))
       
        If n = 1 Then frmNewAccount.Show , frmMainMenu
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 3 Then frmLogin.Show , frmMainMenu
        If n = 4 Then frmNewChar.Show , frmMainMenu
        If n = 5 Then frmChars.Show , frmMainMenu
       
        Msg = Parse(1)
        Call MsgBox(Msg, vbOKOnly, GAME_NAME)
        Exit Sub
    End If

e mude tudo para:

Código:
' ::::::::::::::::::::::::::
    ' :: Plain message packet ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "plainmsg" Then
        frmSendGetData.Visible = False
        n = Val(Parse(2))
     
        If n = 1 Then
            frmLogin.Show , frmMainMenu
            'frmLogin.txtName = frmNewAccount.txtName
            'frmLogin.txtPassword = frmNewAccount.txtPassword
            Unload frmNewAccount
        End If
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 3 Then frmLogin.Show , frmMainMenu
        If n = 4 Then
            Unload frmNewChar
            Exit Sub
        End If
        If n = 5 Then
            If frmChars.lstChars.List(0) = "Lugar Livre" Then
                Call MenuState(MENU_STATE_NEWCHAR)
            Else
                Call MenuState(MENU_STATE_USECHAR)
            End If
        End If
       
        Msg = Parse(1)
        Call MsgBox(Msg, vbOKOnly, GAME_NAME)
        Exit Sub
        End If

dps na FrmNewChar procure por:

Código:
Private Sub picCancel_Click()
    Me.Hide
    frmChars.Show , frmMainMenu
End Sub

e mude tudo para:

Código:
Call TcpDestroy
    Me.Hide
    frmChars.Hide
    frmLogin.Show , frmMainMenu

Client~Side terminado agora va no Server~Side e procure por:

Código:
Case "addachara"
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))

                For i = 1 To Len(Name)
                    N = Asc(Mid$(Name, i, 1))

                    If (N >= 65 And N <= 90) Or (N >= 97 And N <= 122) Or (N = 95) Or (N = 32) Or (N >= 48 And N <= 57) Then
                    Else
                        Call PlainMsg(Index, "Nome Inválido! Use apenas letras, números e espaços.", 4)
                        Exit Sub
                    End If

                Next

                If CharNum < 1 Or CharNum > MAX_CHARS Then
                    Call HackingAttempt(Index, "CharNum Inválido")
                    Exit Sub
                End If

                If (Sex < SEX_MALE) Or (Sex > SEX_FEMALE) Then
                    Call HackingAttempt(Index, "Sexo Inválido")
                    Exit Sub
                End If

                If Class < 1 Or Class > Max_Classes Then
                    Call HackingAttempt(Index, "Classe Inválida")
                    Exit Sub
                End If

                If CharExist(Index, CharNum) Then
                    Call PlainMsg(Index, "O personagem já existe!", 4)
                    Exit Sub
                End If

                If FindChar(Name) Then
                    Call PlainMsg(Index, "Desculpe, mas este nome já está em uso!", 4)
                    Exit Sub
                End If

                Call AddChar(Index, Name, Sex, Class, CharNum)
                Call SavePlayer(Index)
                Call AddLog("O personagem " & Name & " foi adicionado na conta de " & GetPlayerLogin(Index) & ".", PLAYER_LOG)
                Call SendChars(Index)
                Call PlainMsg(Index, "O personagem foi criado!", 5)
                Exit Sub

e mude tudo para:

Código:
Case "addachara"
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))

                For i = 1 To Len(Name)
                    N = Asc(Mid$(Name, i, 1))

                    If (N >= 65 And N <= 90) Or (N >= 97 And N <= 122) Or (N = 95) Or (N = 32) Or (N >= 48 And N <= 57) Then
                    Else
                        Call PlainMsg(Index, "Nome Inválido! Use apenas letras, números e espaços.", 4)
                        Exit Sub
                    End If

                Next

                If CharNum < 1 Or CharNum > MAX_CHARS Then
                    Call HackingAttempt(Index, "CharNum Inválido")
                    Exit Sub
                End If

                If (Sex < SEX_MALE) Or (Sex > SEX_FEMALE) Then
                    Call HackingAttempt(Index, "Sexo Inválido")
                    Exit Sub
                End If

                If Class < 1 Or Class > Max_Classes Then
                    Call HackingAttempt(Index, "Classe Inválida")
                    Exit Sub
                End If

                If CharExist(Index, CharNum) Then
                    Call PlainMsg(Index, "O personagem já existe!", 4)
                    Exit Sub
                End If

                If FindChar(Name) Then
                    Call PlainMsg(Index, "Desculpe, mas este nome já está em uso!", 4)
                    Exit Sub
                End If

                Call AddChar(Index, Name, Sex, Class, CharNum)
                Call SavePlayer(Index)
                Call AddLog("O personagem " & Name & " foi adicionado na conta de " & GetPlayerLogin(Index) & ".", PLAYER_LOG)
                Call SendChars(Index)
              ' Call PlainMsg(Index, "O personagem foi criado!", 5)
                Exit Sub


Fim .. Smile Testado e aprovado funfando perfeitamente ! Smile

Créditos: FelipeBN por fazer o sistema por 90%
Créditos: Thales12 por fazer 10% do sistema, o tutorial, concertar os bugs e postar
avatar
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum