[EE]Ranking Level

por St4rk Ter 29 Jun 2010, 16:31

Bom fiserão esse pedido a min a um bom tempo x.x mais eu esquesi de colocar kkk, esse ranking level é bem interessante [EE]Ranking Level 256397

ele mostra o top lvl sempre que digitamos "/toplvl" e atualiza sempre que alguem passa level :X e etc, vamos para oque interessa:

1º Abra a source do server e va para o "modTypes" e crie um novo type, sera esse:

Código:: Type TopLvL Nome As String LEVEL As Integer End Type

Agora va para o "modGlobals" e adicione o seguinte codigo:

Código:: Public TopLvL(1 To 5) As TopLvL

Terminando isso vamos para o modGameLogic, lá você vai adicionar alguns codigos [EE]Ranking Level 256397

Código:: Sub SalvarTop() Dim xs As Byte For xs = 1 To 5 WriteINI "LEVEL", STR$(xs), STR$(TopLvL(xs).LEVEL), App.Path & "\top.ini" WriteINI "LEVELNOME", STR$(xs), Trim$(TopLvL(xs).Nome), App.Path & "\top.ini" Next xs End Sub

Depois

Código:: Sub CarregarTop() Dim i As Byte For i = 1 To 5 TopLvL(i).Nome = Trim$(ReadINI("LEVELNOME", STR$(i), App.Path & "\top.ini")) TopLvL(i).LEVEL = ReadINI("LEVEL", STR$(i), App.Path & "\top.ini") Next i End Sub

Bom essas são as subs "Basicas" agora vamos pra parte mais complexa do "TopLevel" [EE]Ranking Level 535201

:

Código:: Sub AtualizarTop(ByVal Index As Long) Dim i As Byte If GetPlayerAccess(Index) > 1 Then Exit Sub i = TopLvL1(Index) If i > 1 And i < 6 Then If TopLvL(i - 1).LEVEL < GetPlayerLevel(Index) Then TopLvL(i).LEVEL = TopLvL(i - 1).LEVEL TopLvL(i).Nome = TopLvL(i - 1).Nome TopLvL(i - 1).LEVEL = GetPlayerLevel(Index) TopLvL(i - 1).Nome = GetPlayerName(Index) If i - 1 = 1 Then PlayerMsg Index, "Parabéns, você agora é top Level", 3 GlobalMsg GetPlayerName(Index) & " é o novo Top Level (Level: " & GetPlayerLevel(Index) & ")", BRIGHTGREEN Else PlayerMsg Index, "Parabéns!, Você agora é o " & i - 1 & "º com level mais alto" End If SalvarTop Else TopLvL(i).LEVEL = GetPlayerLevel(Index) TopLvL(i).Nome = GetPlayerName(Index) SalvarTop End If ElseIf i = 1 Then TopLvL(i).LEVEL = GetPlayerLevel(Index) GlobalMsg GetPlayerName(Index) & " continua sendo Top Level! (Level: " & GetPlayerLevel(Index) & ")", BRIGHTRED SalvarTop End If End Sub

Depois vá no modServerTCP e adiciona a seguinte Function:

Código:: Function TopLvL1(ByVal Index As Long) Dim i As Byte For i = 1 To 5 If Trim$(TopLvL(i).Nome) = GetPlayerName(Index) Then TopLvL1 = i DoEvents Next i End Function

Agora vá no "modHandleData" e crie uma nova case ^^ sera essa:

Código:: Case "tp" Dim zx As Integer Dim Texto As String For zx = 1 To 5 PlayerMsg Index, "Top Level 1: " & TopLvL(1).Nome & "Level: " & TopLvL(1).LEVEL, 3 PlayerMsg Index, "Top Level 2: " & TopLvL(2).Nome & "Level: " & TopLvL(2).LEVEL, 3 PlayerMsg Index, "Top Level 3: " & TopLvL(3).Nome & "Level: " & TopLvL(3).LEVEL, 3 PlayerMsg Index, "Top Level 4: " & TopLvL(4).Nome & "Level: " & TopLvL(4).LEVEL, 3 PlayerMsg Index, "Top Level 5: " & TopLvL(5).Nome & "Level: " & TopLvL(5).LEVEL, 3 DoEvents Next zx Exit Sub

Agora na "Sub CheckPlayerLevelUp(ByVal Index As Long)" coloque o codigo aque:

Código:: Call SendDataToMap(GetPlayerMap(Index), "levelup" & SEP_CHAR & Index & END_CHAR) AtualizarTop Index

Coloque o AtualizarTop index a baixo do "Envio de Packet" do levelup [EE]Ranking Level 256397

Agora no Sub InitServer() coloque os seguintes codigos lá em baixo:

Código:: Dim i As Byte For i = 1 To 20 TopLvL(i).LEVEL = Abs(i - 5) TopLvL(i).Nome = "Sem Top" Next i

Fuuu tinha esquesido da parte do Client x.x, bom no client se faz o seguinte:
Procure por:

Código:: ' Refresh Player If LCase$(Mid$(MyText, 1, 8)) = "/refresh" Then Call SendData("refresh" & END_CHAR) MyText = vbNullString Exit Sub End If

Código:: 'Top Level If LCase$(Mid$(MyText, 1, 8)) = "/toplvl" Then Call SendData("tp" & END_CHAR) MyText = vbNullString Exit Sub End If

e a baixo coloque o seguinte codigo(de um spaçozinho cláro x.x):

Bom aque fuciono normal, caso quando você "Desligar" o server e o toplevel desapareser, coloque um "Call CarregarTop" no initserver.

Bom perdão pelos erros de Português, ainda não testei x.x foi dificil raciocinando aque kkk acho que fuciona ahuahuahu [EE]Ranking Level 535201

(Aos noobs que só fais copiar e nem ver oque é, provavelmente não vai fucionar KKKK é bom agradecer(quero créditos *-*).

Nivel de Dificudade;
Expert 1/5
Medio 3/5
Iniciante 4/5
Noob 5/5

[EE]Ranking Level 535201

Obrigado e boa sorte, não vem me crusificando se não pegar ¬¬.

por Karlos Ter 29 Jun 2010, 16:47

+.+
+ 2 de credito pra vc meu brodi xD

por St4rk Ter 29 Jun 2010, 16:50

x.x bom eu fiz o possivel, desse sistema da pra criar muitos outros, só você usar a imaginação e logica x.x

por Lucas Lôpo Ter 29 Jun 2010, 16:57

Err maldito omega... ¬¬
Liberou o ranking que eu estava prendendo por tanto termpo '-'

por St4rk Ter 29 Jun 2010, 17:01

Predendo ? isso é facio de fazer, eu simplesmente raciocinei um tempo e postei, nem é o do IS, por que eu não sou drogado veio, isso é bem simples de fazer x.x

por lukasfkt Ter 29 Jun 2010, 17:14

Omega no meu deu esse erro:
https://2img.net/r/ihimizer/i/imagemqrv.png/

por St4rk Ter 29 Jun 2010, 17:17

--' que burrise veio, segue o tutorial por enteiro ¬¬, coloco os "Types?" coloc o Public?

por Lucas Lôpo Ter 29 Jun 2010, 17:39

OmegaZero escreveu:Predendo ? isso é facio de fazer, eu simplesmente raciocinei um tempo e postei, nem é o do IS, por que eu não sou drogado veio, isso é bem simples de fazer x.x

kkkkkkkkkkkkk

Eu tava zuando , é facil para uns e para outros não =D
se não ja teria esse tuto aqui =D

por lukasfkt Ter 29 Jun 2010, 17:45

Mal esqueci do restante '-'
Aonde fica isso ''Coloque o AtualizarTop index a baixo do "Envio de Packet" do levelup ''

por St4rk Ter 29 Jun 2010, 17:46

Bom cara, compra um oclos que ta tenso viu ^^

"
Sub AtualizarTop(ByVal Index As Long)"

por lukasfkt Ter 29 Jun 2010, 17:56

Omega to quase consguindo mais ainda do o erro do caramba aki q e quase igual a do level mais e nessa parte:
Dim i As Byte
For i = 1 To 20
TopLvL(i).LEVEL-Aki = Abs(i - 5)
TopLvL(i).Nome = "Sem Top"
Next i
Te dei 1 cred!
Se me ajudar te do outro Very Happy

por wallacewagner123456789 Ter 29 Jun 2010, 19:09

o.o da dando erro na case :

Case "tp"

Error : Invalid outside procedure lol

por St4rk Ter 29 Jun 2010, 20:51

Seguinte, nessa parte, ouve um erro:

Type TopLvL
Nome As String
lvl As Integer
End Type

troque por

Código:: Type TopLvL Nome As String LEVEL As Integer End Type

por Cris~ Qua 30 Jun 2010, 05:52

Muito Show +1de Cred '-'

~~funcionar em elysium?~~

por St4rk Qua 30 Jun 2010, 08:11

Bom Eclipse e Elysium é miraged base, então acho que pega '-'

Cara já to puto com isso, tem nego noob que eu conheso do meu msn, se amostando com o sistema, agradecendo a gente que nunca vi na minha vida, e ainda vem falar bosta "FIZ ATÉ LEVEL 20", cara eu to puto, to com vontade de postar mais nenhum tutorial...

por Cris~ Qua 30 Jun 2010, 12:02

Ok '.'

por lukasfkt Qui 01 Jul 2010, 10:56

Cara deu um novo erro aki:
https://2img.net/r/ihimizer/i/imagemlkg.png/
Se me ajudar do 2 cred Very Happy

por St4rk Qui 01 Jul 2010, 11:19

Verifica o ReadIni, pra ver se ele esta correto e etc, por que toda engine tem isso.

Se quiser deletar o carregar top, e testar sem ele '-' também pode.

por lukasfkt Qui 01 Jul 2010, 11:36

Deletei o carregar top e deu mas deu error nisso:
PlayerMsg Index, "Parabéns!, Você agora é o " & i - 1 & "º com level mais alto"
Tentei fazer de tudo mas nao deu
Me ajuda Sad

por St4rk Qui 01 Jul 2010, 11:49

'-' cara puta que paril, é foda ajudar assim, onde ta o erro em que linha onde o canto imagen nome do erro!

por lukasfkt Qui 01 Jul 2010, 11:58

Erro ajuda aki omegazero plis:
https://2img.net/r/ihimizer/i/imagemzbv.png/

por Blade Qui 01 Jul 2010, 14:45

To com o mesmo erro q o lukasfkt

por Blade Sex 02 Jul 2010, 13:47

Ajuda eu eu quero esse sistema de rank e eu estou com o mesmo problema q o lukasfkt

Desculpa pelo double post!E q ninguem tava respondendo Sad

por St4rk Sex 02 Jul 2010, 13:55

Porra veio, você coloco o Case depois do End Select é oque lasca, coloca no meio dos outros Case "" --'

por DshFox Sex 02 Jul 2010, 14:40

vo usa

nice omega :]

por Conteúdo patrocinado

[EE]Ranking Level

[EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level

Re: [EE]Ranking Level