Ranking de resets
+4
Uchiha
thales12
spectrus
mkldoido
8 participantes
Página 1 de 1
Ranking de resets
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:
Coloque isto aqui:
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:
CLIENT - SIDE
Agora crie um CommandButton na sua FrmMirage,
clique duaz vezes neste botão, e adicione isto:
agora no modGameLogic, la em baixo coloque isto:
No modClientTCP, na sub HandleData, em algum lugar coloque:
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!
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- Programador
- Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28
Re: Ranking de resets
Muito bom MklDoido e thales12!! estiy impressionado!
+ CRED
+ CRED
spectrus- Administrador
- Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia
Re: Ranking de resets
Thanks ^^
mkldoido- Programador
- Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28
Re: Ranking de resets
eu fiz e deu erro na packet rank
Uchiha- Estagiário
- Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba
Re: Ranking de resets
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.
mas ja coloquei pra baixar.
mas não é pra dar nenhum erro na packet.
mkldoido- Programador
- Mensagens : 13
Estrelas Makers : 32
Creditos : 9
Data de inscrição : 02/07/2011
Idade : 28
Re: Ranking de resets
testei e deu o mesmo erro...
Uchiha- Estagiário
- Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba
Re: Ranking de resets
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.
E vocês ai não é pra da erro na packet nao aqui funfo certinho entao tenta de novo ai ate consegui.
teteu- Modelador
- Mensagens : 4
Estrelas Makers : 8
Creditos : 2
Data de inscrição : 03/07/2011
Re: Ranking de resets
Aqyu tambem funcionou de boa!
spectrus- Administrador
- Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia
Re: Ranking de resets
Atenção para esse sistema funcionar precisa de sistema de resets pelo VB!caso contrario nao funcionara.
teteu- Modelador
- Mensagens : 4
Estrelas Makers : 8
Creditos : 2
Data de inscrição : 03/07/2011
Re: Ranking de resets
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
[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- Modelador
- Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011
Re: Ranking de resets
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- Moderador
- Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28
Re: Ranking de resets
axei um erro nessa parte
- Código:
ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
hardsfree- Modelador
- Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011
Re: Ranking de resets
hardsfree escreveu:axei um erro nessa parteta "Resetsl" em vez de "Reset" mais ja mudei e continua só que agora aparece 3 nomes no ranking
- Código:
ElseIf GetPlayerResets(index) > Val(ReadINI("3", "Resetsl", App.Path & "\Resets.ini")) Then
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
- Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28
Re: Ranking de resets
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
hardsfree- Modelador
- Mensagens : 9
Estrelas Makers : 9
Creditos : 0
Data de inscrição : 17/07/2011
Re: Ranking de resets
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
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
- Mensagens : 18
Estrelas Makers : 111
Creditos : 16
Data de inscrição : 15/01/2011
Idade : 28
Re: Ranking de resets
cade a write.ini e a Read.ini ? '-'
se vc atacar 1 npc da erro no servidor na linha:
no
COMPILE ERROR:
Sub or Function not defined
@edit: Ja concertei !
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 !
Re: Ranking de resets
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.
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
- Mensagens : 2
Estrelas Makers : 2
Creditos : 0
Data de inscrição : 20/12/2011
Re: Ranking de resets
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 ! nao vai arranjar nada, pos nao tem nenhum plagio no sistema do mkl
o teu e level e o dele reset, sem mais delongas
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 ! nao vai arranjar nada, pos nao tem nenhum plagio no sistema do mkl
o teu e level e o dele reset, sem mais delongas
Re: Ranking de resets
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
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
- Mensagens : 2
Estrelas Makers : 2
Creditos : 0
Data de inscrição : 20/12/2011
Re: Ranking de resets
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.. "
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sex Dez 05, 2014 10:00 am por Fabio-3dgames
» Lost In Dreams chapter 01
Seg Nov 24, 2014 7:22 pm por slipknot
» A Makers Brasil ressuscitara em breve!!
Sáb Nov 01, 2014 2:26 pm por Francisco Souza
» Elysium Diamond 3.3.2
Sáb Nov 01, 2014 2:17 pm por Francisco Souza
» personagens e objetos 3d game builder
Seg Jul 28, 2014 2:33 pm por Reginaldo Aparecido Zanus
» fala galera \o obs auhsaush digita galera asygasyga
Dom Jul 06, 2014 1:40 am por anastiel
» tutorial headshot fps creator
Seg Jun 09, 2014 6:08 pm por EspinhosoGamer
» SnakeMod fps creator
Seg Jun 09, 2014 5:55 pm por EspinhosoGamer
» serial fps creator
Seg maio 26, 2014 7:35 pm por slipknot