Sistema de login igual do EO
4 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
Sistema de login igual do EO
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:
mude tudo para:
dps procure por:
e mude tudo para:
dps na FrmNewChar procure por:
e mude tudo para:
Client~Side terminado agora va no Server~Side e procure por:
e mude tudo para:
Fim .. Testado e aprovado funfando perfeitamente !
Créditos: FelipeBN por fazer o sistema por 90%
Créditos: Thales12 por fazer 10% do sistema, o tutorial, concertar os bugs e postar
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 .. Testado e aprovado funfando perfeitamente !
Créditos: FelipeBN por fazer o sistema por 90%
Créditos: Thales12 por fazer 10% do sistema, o tutorial, concertar os bugs e postar
Re: Sistema de login igual do EO
Créditos pablo por ter te passado msn ;D
Atenciosamente,
Pablo
Atenciosamente,
Pablo
Pablo- Moderador Global
- Mensagens : 1371
Re: Sistema de login igual do EO
Pablo por ter me enviado o meu tutorial q eu nao salvei na antiga mmo
+1 para todos ! o/
+1 para todos ! o/
Re: Sistema de login igual do EO
nossa cara gostei, te amo, +1cred
maqn39- Membro Vitalicio
- Mensagens : 705
Tópicos semelhantes
» [PEDIDO] Sistema de PDL igual ao do forces
» sistema de poder de luta igual do dbz forces
» Sistema de verificação no login e registro
» [DELPHI][TUTORIAL]Criando Easy Sistema De Login e Senha
» [ALL]Comando /convite Igual DBZ Forces
» sistema de poder de luta igual do dbz forces
» Sistema de verificação no login e registro
» [DELPHI][TUTORIAL]Criando Easy Sistema De Login e Senha
» [ALL]Comando /convite Igual DBZ Forces
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Dom 08 Abr 2018, 18:40 por JorgeZinhoo002
» Ojkjeeeee
Seg 10 Out 2016, 23:19 por Frozen
» Naruto Great Ninja Batle
Dom 09 Out 2016, 14:29 por GuiinhoLP
» Recrutamento de um Designer para jogo de CDZ.
Sex 23 Set 2016, 18:37 por newbie123
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:11 por Eduardo
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:11 por Eduardo
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:09 por Eduardo
» Projeto Dbz
Qua 31 Ago 2016, 23:46 por 157
» Avaliação - Sprites Naruto
Qua 31 Ago 2016, 17:09 por 157
» [Sprites] DBZ (Plix)
Qua 31 Ago 2016, 14:13 por 157
» Super Pack - Bleach V.2
Qua 31 Ago 2016, 13:02 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:04 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:03 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:02 por 157
» [Pedido] Contador de resets na FrmMain
Sáb 13 Ago 2016, 17:45 por killers97
» [Recrutamento]
Qua 10 Ago 2016, 23:09 por Monsters
» Ajuda erro no Cliente e Servidor do EEB 2.6!
Qua 20 Jul 2016, 19:53 por Binholx
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
Qua 29 Jun 2016, 19:46 por Sir Aaron
» Recursos Pokemons
Qua 29 Jun 2016, 19:34 por Sir Aaron
» erro frm flash
Qua 25 maio 2016, 13:51 por vava123
» Pedido - Pack de star wars
Qui 19 maio 2016, 05:06 por edsonpet
» [Ajuda] Sobre como por o servidor on por ip fixo
Ter 17 maio 2016, 16:14 por vava123
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
Sex 06 maio 2016, 20:02 por LksFlorencio
» [NSME] Naruto Shinobi Maker Engine
Qua 23 Mar 2016, 15:11 por luana1457
» Script /base,/casa Igual DBZ Forces
Dom 21 Fev 2016, 07:34 por JorgeZinhoo002
» [Pedido]Colar Tsunade item sprite eclipse origin
Qui 21 Jan 2016, 07:38 por lawllietbr
» [Pedido] Elysium
Sáb 19 Dez 2015, 11:31 por luana1457
» Naruto - Recruta
Ter 15 Dez 2015, 18:40 por Uchiha ~
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
Qua 25 Nov 2015, 13:43 por Thanakii
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
Qua 25 Nov 2015, 12:55 por Thanakii
» Demonstração de Sprites (Á VENDA!)
Qua 25 Nov 2015, 12:40 por Thanakii
» [Sistema de Reset]Para Eclipse .
Ter 24 Nov 2015, 16:51 por VithorUchi
» Cada Guild Nascer em Certo Mapa
Qui 12 Nov 2015, 06:13 por fabiofeijó_HIT
» Dragon Ball z Fusion A Grande Volta
Qui 29 Out 2015, 15:17 por fabiofeijó_HIT
» Ajuda com Ip fixo
Seg 26 Out 2015, 16:07 por GalaxyHells15
» Como Fazer um GUI no Eclipse Origins
Dom 18 Out 2015, 22:10 por Jeanleee
» Shisui Susanoo
Dom 18 Out 2015, 20:23 por Jeanleee
» Fantasy Art Online
Dom 18 Out 2015, 16:41 por daviih123
» Ajuda !!
Seg 05 Out 2015, 12:13 por andersonzika
» como passar o usuário e senha para o MainMenu?
Seg 28 Set 2015, 22:03 por Bëzerk
» Ru time ero 13 Type mismatch
Seg 28 Set 2015, 09:08 por andredarle
» Jarvis 1.3 Download
Qua 23 Set 2015, 18:42 por soares125
» [Avaliação/Disponibilização]Árvore 64x64
Qua 23 Set 2015, 15:15 por Over~
» Mlk's Zikas Signatures
Ter 22 Set 2015, 21:15 por Aikawa Reborn'
» Pedido de Sistemas
Dom 20 Set 2015, 18:05 por cleyton_05
» [AjudaEEB]Gerador de EXP
Qua 16 Set 2015, 14:04 por Over~
» [Avaliar] Base, Humano e Goblin.
Seg 14 Set 2015, 22:51 por .iBlaz3.
» Fabrica do Tio Cronos!
Dom 13 Set 2015, 21:31 por [ADM]Cronos
» [PixelArt] Minion - Meu malvado favorito
Dom 13 Set 2015, 12:51 por [ADM]Cronos
» [Avaliar] Goku Dragon Ball Z
Qua 05 Ago 2015, 21:36 por Setrux