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!

Ranking de resets

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

Ranking de resets

Mensagem por mkldoido em Sab 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 [Você precisa estar registrado e conectado para ver 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
Programador
Programador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por spectrus em Sab Jul 02, 2011 2:12 pm

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


Divulgue nosso Forum!
[Você precisa estar registrado e conectado para ver este link.]
Código:
[url=http://makersbrasil.forumeiros.com/]
src="http://img841.imageshack.us/img841/9522/92324935.png"
border="0">[/url]



E meu fan? entao use:

Código:
[img]http://www.baixa.la/arquivos/3908525_imagem.gif[/img]

Sign:
Spoiler:




spectrus
Administrador
Administrador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por mkldoido em Sab Jul 02, 2011 2:18 pm

Thanks ^^

mkldoido
Programador
Programador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por thales12 em Sab Jul 02, 2011 2:26 pm

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

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

Re: Ranking de resets

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

eu fiz e deu erro na packet rank

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por mkldoido em 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
Programador
Programador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por Uchiha em Sab Jul 09, 2011 9:47 pm

testei e deu o mesmo erro...

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por teteu em 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

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

Aqyu tambem funcionou de boa!


Divulgue nosso Forum!
[Você precisa estar registrado e conectado para ver este link.]
Código:
[url=http://makersbrasil.forumeiros.com/]
src="http://img841.imageshack.us/img841/9522/92324935.png"
border="0">[/url]



E meu fan? entao use:

Código:
[img]http://www.baixa.la/arquivos/3908525_imagem.gif[/img]

Sign:
Spoiler:




spectrus
Administrador
Administrador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por teteu em 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

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

tem alguma coisa de errado nesse sistema ai :/ olha
[Você precisa estar registrado e conectado para ver este link.]

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

hardsfree
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

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

hardsfree escreveu:tem alguma coisa de errado nesse sistema ai :/ olha
[Você precisa estar registrado e conectado para ver 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
Moderador
Moderador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por hardsfree em 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por wilclefison em 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
Moderador
Moderador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por hardsfree em 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por wilclefison em 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
Moderador
Moderador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por thales12 em 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
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

Re: Ranking de resets

Mensagem por boasfesta em 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.lifeme.net/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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por thales12 em 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
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

Re: Ranking de resets

Mensagem por boasfesta em 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
Modelador
Modelador

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

Voltar ao Topo Ir em baixo

Re: Ranking de resets

Mensagem por thales12 em 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
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

Re: Ranking de resets

Mensagem por Conteúdo patrocinado Hoje à(s) 12:57 am


Conteúdo patrocinado


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