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!


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

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!
Makers Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Ranking de resets

+4
Uchiha
thales12
spectrus
mkldoido
8 participantes

Ir para baixo

Ranking de resets Empty Ranking de resets

Mensagem por mkldoido Sáb Jul 02, 2011 1:53 pm

Olá pessoal, tudo bom?
vamos ao trabalho!

primeiro baixe esses arquivos:
Download frmRank e Resets.ini
Download ModINI

depois coloque o Resets.ini na sua pasta servidor, tanto no Código fonte como na binários.
Agora a frmRank, e coloque em na sua pasta CÓDIGO FONTE>CLIENTE>CÓDIGO,
em seguida, la em cima na aba "PROJECT", clique em add form, va em "existing" e selecione a frmRank.

Server - Side

Se você tiver o sistema de reset automatico faça o seguinte,
na sub ChackPlayerLevelUp abaixo de:


Código:
If GetPlayerLevel(index) = MAX_LEVEL Then
            Call SetPlayerExp(index, Experience(MAX_LEVEL))
        End If
    End If

Coloque isto aqui:

Código:
If GetPlayerResets(index) > Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("1", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("1", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", Val(ReadINI("1", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", GetPlayerLevel(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    End If


Se você não tiver o Sistema de Resets Automatico, então [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora na Sub HandleData, em algum coloque isto:


Código:
Case "rank"
                Call SendDataTo(index, "ranklist" & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "1", "Nome") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "1", "Resets") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "2", "Nome") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "2", "Resets") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "3", "Nome") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "3", "Resets") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "4", "Nome") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "4", "Resets") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "5", "Nome") & SEP_CHAR & GetVar(App.Path & "\Resets.ini", "5", "Resets") & SEP_CHAR & END_CHAR)
            Exit Sub



CLIENT - SIDE


Agora crie um CommandButton na sua FrmMirage,
clique duaz vezes neste botão, e adicione isto:


Código:
frmRank.Show

agora no modGameLogic, la em baixo coloque isto:

Código:
Public Sub GerarRank()
Call SendData("RANK" & END_CHAR)
End Sub

No modClientTCP, na sub HandleData, em algum lugar coloque:

Código:
'::::::::::::::
    ':::::RANK:::::
    '::::::::::::::
    If Parse(0) = "ranklist" Then
    frmRank.lst1.AddItem (Trim(Parse(1)) & " - Resets: " & Trim(Parse(2)))
    frmRank.lst1.AddItem (Trim(Parse(3)) & " - Resets: " & Trim(Parse(4)))
    frmRank.lst1.AddItem (Trim(Parse(5)) & " - Resets: " & Trim(Parse(6)))
    frmRank.lst1.AddItem (Trim(Parse(7)) & " - Resets: " & Trim(Parse(8)))
    frmRank.lst1.AddItem (Trim(Parse(9)) & " - Resets: " & Trim(Parse(10)))
    Exit Sub
    End If


Bom acho que é isso pessoal, se faltar alguma coisa me avisem.
e se gostarem deiem créditos a mim e ao thales12 ^^


ATENÇÃO - PROIBIDA A EXIBIÇÃO DESTE CONTEÚDO EM QUALQUER OUTRO FORUM QUE NÃO SEJA A MAKERSBRASIL!


Última edição por mkldoido em Sex Jul 08, 2011 6:32 pm, editado 2 vez(es)
mkldoido
mkldoido
Programador
Programador

Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por spectrus Sáb Jul 02, 2011 2:12 pm

Muito bom MklDoido e thales12!! estiy impressionado!
+ CRED
spectrus
spectrus
Administrador
Administrador

Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por mkldoido Sáb Jul 02, 2011 2:18 pm

Thanks ^^
mkldoido
mkldoido
Programador
Programador

Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por thales12 Sáb Jul 02, 2011 2:26 pm

MklDoido NÃO FLOODD !
LEia as regras --'
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por Uchiha Ter Jul 05, 2011 7:49 pm

eu fiz e deu erro na packet rank
Uchiha
Uchiha
Estagiário
Estagiário

Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por mkldoido Sex Jul 08, 2011 6:33 pm

desculpe pessoal, tinha faltando o modINI, pra funcionar o WriteINI e ReadINI
mas ja coloquei pra baixar.

mas não é pra dar nenhum erro na packet.
mkldoido
mkldoido
Programador
Programador

Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por Uchiha Sáb Jul 09, 2011 9:47 pm

testei e deu o mesmo erro...
Uchiha
Uchiha
Estagiário
Estagiário

Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por teteu Sex Jul 15, 2011 5:59 am

Aqui funcioonou perfeitamente mais 1 credito.
E vocês ai não é pra da erro na packet nao aqui funfo certinho entao tenta de novo ai ate consegui.
teteu
teteu
Modelador
Modelador

Mensagens : 4
Estrelas Makers : 8
Creditos : 2
Data de inscrição : 03/07/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por spectrus Sex Jul 15, 2011 3:07 pm

Aqyu tambem funcionou de boa!
spectrus
spectrus
Administrador
Administrador

Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por teteu Dom Jul 17, 2011 11:27 am

Atenção para esse sistema funcionar precisa de sistema de resets pelo VB!caso contrario nao funcionara.
teteu
teteu
Modelador
Modelador

Mensagens : 4
Estrelas Makers : 8
Creditos : 2
Data de inscrição : 03/07/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por hardsfree Seg Jul 18, 2011 8:40 am

tem alguma coisa de errado nesse sistema ai :/ olha
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

aparece 2 nomes meu...
mais mt bom tavo precisando de um ranking assim +1 de cred pela colaboração
hardsfree
hardsfree
Modelador
Modelador

Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por wilclefison Seg Jul 18, 2011 9:09 am

hardsfree escreveu:tem alguma coisa de errado nesse sistema ai :/ olha
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

aparece 2 nomes meu...
mais mt bom tavo precisando de um ranking assim +1 de cred pela colaboração


Olha Pra arumar isso Olha bem no codigo



Código:
If GetPlayerResets(index) > Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("1", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("1", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", Val(ReadINI("1", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", GetPlayerLevel(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    End If

Vc pode achar o problema aki pq ele manda duas vezes achar um nome
wilclefison
wilclefison
Moderador
Moderador

Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por hardsfree Seg Jul 18, 2011 9:54 am

axei um erro nessa parte
Código:
ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
ta "Resetsl" em vez de "Reset" mais ja mudei e continua só que agora aparece 3 nomes no ranking Crying or Very sad
hardsfree
hardsfree
Modelador
Modelador

Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por wilclefison Seg Jul 18, 2011 10:11 am

hardsfree escreveu:axei um erro nessa parte
Código:
ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
ta "Resetsl" em vez de "Reset" mais ja mudei e continua só que agora aparece 3 nomes no ranking Crying or Very sad

Olha tenta usar assim

mas Faz um bekap antes ta xD


Código:
If GetPlayerResets(index) > Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("1", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("1", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Nome", Val(ReadINI("5", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("5", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("5", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("5", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", GetPlayerLevel(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("5", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("5", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", Val(ReadINI("5", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("5", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    ElseIf GetPlayerResets(index) > Val(ReadINI("5", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("5", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
    End If
wilclefison
wilclefison
Moderador
Moderador

Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por hardsfree Seg Jul 18, 2011 10:23 am

acho que esse sistema ai ta incompleto eu tentei faze desse geito que tu falo agora apareceu meu nome em todos no rank 1º no 2º no 3º etc... e os resets pra 82 sendo que eu tinha 2 Crying or Very sad
hardsfree
hardsfree
Modelador
Modelador

Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por wilclefison Seg Jul 18, 2011 10:31 am

hardsfree escreveu:acho que esse sistema ai ta incompleto eu tentei faze desse geito que tu falo agora apareceu meu nome em todos no rank 1º no 2º no 3º etc... e os resets pra 82 sendo que eu tinha 2 Crying or Very sad


Então não sei acho que esta completo mas e o seguinte tenta assim não esta imcompleto

Código:
If GetPlayerResets(index) > Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")) Then
        Call WriteINI("1", "Nome", GetPlayerName(index), App.Path & "\Resets.ini")
        Call WriteINI("1", "Resets", GetPlayerResets(index), App.Path & "\Resets.ini")
        Call WriteINI("5", "Nome", Val(ReadINI("4", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("5", "Resets", Val(ReadINI("4", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Nome", Val(ReadINI("3", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("4", "Resets", Val(ReadINI("3", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Nome", Val(ReadINI("2", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("3", "Resets", Val(ReadINI("2", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Nome", Val(ReadINI("1", "Nome", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
        Call WriteINI("2", "Resets", Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")), App.Path & "\Resets.ini")
    End If
wilclefison
wilclefison
Moderador
Moderador

Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por thales12 Ter Ago 02, 2011 7:56 am

cade a write.ini e a Read.ini ? '-'

se vc atacar 1 npc da erro no servidor na linha:

Código:
If GetPlayerResets(Index) > Val(ReadINI("1", "Resets", App.Path & "\Resets.ini")) Then

no
ReadINI
,

COMPILE ERROR:
Sub or Function not defined

@edit: Ja concertei ! Smile
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por boasfesta Ter Dez 20, 2011 6:52 pm

Olha aqui, meu nome é Lucas e eu tenho o nick de boasfesta, eu fui o verdadeiro autor deste tutorial e ELE É DIREITO DA MMORPG BR, e tenho como comprovar com o link mmorpgbr.forumotion.com/t453-ranking-de-level-ate-3-no-ranking?highlight=Ranking e depois foi modificado para reset na qual que havia apagado a muito tempo. COMO PODEM PERCEBER, O TUTORIAL FOI POSTADO A MUITO TEMPO ANTES QUE ESTE, OU SEJA, NAO ESTOU MENTINDO!

Eu quero que este tutorial seja apagado deste fórum, eu até aceitaria se tivesse me dado meus devidos créditos, mas como foram tão cara de pau a este ponto, como autor do tutorial eu estou proibindo ele de estar aqui. QUERO ELE APAGADO ATÉ O DIA 31/12/2011 OU TOMAREI PROVIDENCIAS E IRÃO CONVERSAR NÃO COMIGO MAS COM O PRÓPRIO DONO DA MMORPG BR, QUE TEM O VERDADEIRO DIREITO DESTE TUTORIAL.
boasfesta
boasfesta
Modelador
Modelador

Mensagens : 2
Estrelas Makers : 2
Creditos : 0
Data de inscrição : 20/12/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por thales12 Qua Dez 21, 2011 8:20 am

BoasFestas, sua menssagem sera ignorada, pos ele nao fez tuto do sistema de level e posto creditos dele..
ele pode ate ter usado teu tuto .. mais como base..
ele mudo 1 monte de codigos
adiciono mais codigos
fez mais coisas.. o seu e de level o dele de reset...
quer chamar o lendario para converssar ? blz, chame ! Smile nao vai arranjar nada, pos nao tem nenhum plagio no sistema do mkl

o teu e level e o dele reset, sem mais delongas Smile
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por boasfesta Qua Dez 21, 2011 2:06 pm

O meu é de level mas como eu disse tinha um de reset praticamente identico, alem do mais, outro membro da mmorpgbr pegou o meu tutorial e atualizou ele para 5 jogadores no ranking.

E como que voce disse mesmo? ah é, pode ter pegado meu tuto como base, EU TENHO TODA CERTEZA. O problema nao foi ele ter pegado ele como base, eu adoro isso, estão fazendo meus tutoriais ficarem melhores e melhorando os jogos que serão projetados futuramente, eu nem coloquei que é só da mmorpg br pra que mais pessoas encontrem o sistema e mais pessoas usem ele, meu intuito não é trazer fama a um fórum igual a alguns ignorantes. O verdadeiro problema é que ele não mencionou meu nome nos créditos nem mesmo a mmorpg br que foi o fórum no qual eu postei.

Estou defendendo a mmorpg br? não, eu faria isso com qualquer fórum, odeio playboyzin que quer se passar de fodão.

Eu não posso fazer nada, o código foi liberado e eu nao mencionei que era só da MMORPG BR, mas quer saber? pode ficar com ele, que ótimo voces tem um tutorial de ranking, parabéns. Chupa essa > mmorpgbr.net/smf/index.php?topic=3964.0
boasfesta
boasfesta
Modelador
Modelador

Mensagens : 2
Estrelas Makers : 2
Creditos : 0
Data de inscrição : 20/12/2011

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por thales12 Qui Dez 22, 2011 8:23 pm

boasfesta escreveu:O meu é de level mas como eu disse tinha um de reset praticamente identico, alem do mais, outro membro da mmorpgbr pegou o meu tutorial e atualizou ele para 5 jogadores no ranking.

E como que voce disse mesmo? ah é, pode ter pegado meu tuto como base, EU TENHO TODA CERTEZA. O problema nao foi ele ter pegado ele como base, eu adoro isso, estão fazendo meus tutoriais ficarem melhores e melhorando os jogos que serão projetados futuramente, eu nem coloquei que é só da mmorpg br pra que mais pessoas encontrem o sistema e mais pessoas usem ele, meu intuito não é trazer fama a um fórum igual a alguns ignorantes. O verdadeiro problema é que ele não mencionou meu nome nos créditos nem mesmo a mmorpg br que foi o fórum no qual eu postei.

Estou defendendo a mmorpg br? não, eu faria isso com qualquer fórum, odeio playboyzin que quer se passar de fodão.

Eu não posso fazer nada, o código foi liberado e eu nao mencionei que era só da MMORPG BR, mas quer saber? pode ficar com ele, que ótimo voces tem um tutorial de ranking, parabéns. Chupa essa > mmorpgbr.net/smf/index.php?topic=3964.0

quando eu fasso um sistema ate q eu uso em meu proprio jogo a maioria eu posto e quando eu posto eu posto em todos os forums para todo mundo, sendo q o mkl posto esse e falo para naopostar em mais nenhum lugar, eu nao podia fazer nada a naos er respeitar pos o tutorial neen sistema e meu..
eu nao disse nada sobre vc ta defendendo a mmorpg..
e boasfestas por favor nao seja ignorante ^^
"chupa essa.. "
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ranking de resets Empty Re: Ranking de resets

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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