Re: [EE]Ranking Level

por St4rk Sex 02 Jul 2010, 15:58

De nada Dsh, por se tu quiser, pode modificar fazer com esse que nem o do IS, só pensar um pouco =D.

por Ramonxxd Sáb 03 Jul 2010, 04:38

Posta 1 Pra Elysium Se Podér Plase 8.8

por St4rk Sáb 03 Jul 2010, 08:10

acho que fuciona em elysium, já tento ?

Ps: vou parar de postar sistemas novos, por que os caras só ficão midando "- créditos", por que eu postei o sistema ¬¬...

por Cris~ Sáb 03 Jul 2010, 08:16

naum funciona naum tem Mod Globals no elysium e modHandleData

por St4rk Sáb 03 Jul 2010, 08:38

Sei, eu vou viajar, quando eu voltar baixo a engine do Elysium e do uma olhada Wink

por Cris~ Sáb 03 Jul 2010, 09:22

Ok .-.

por wesl sikeira Sáb 03 Jul 2010, 12:07

Ae Cara era o que eu queria +2 de cred ae...

por Ramonxxd Seg 05 Jul 2010, 17:35

e em elysium alguem sabe como fazer ?

por Blade Sex 09 Jul 2010, 16:06

Omega aonde adiciono isso:

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

por Ramonxxd Dom 11 Jul 2010, 03:29

Olha o Tutorial Mano
>.<

por lukasfkt Dom 11 Jul 2010, 14:59

eu olhei mas n consegui ¬¬'

por Cris~ Dom 11 Jul 2010, 15:15

vá na modGameLogic e adiciona o codigo la em baixo das subs Facil^^

por Blade Dom 11 Jul 2010, 17:25

Brigado!
Outra duvida da erro no ReadINI no Sub CarregarTop()
Desculpe-me so iniciante

por Cris~ Dom 11 Jul 2010, 17:53

Tente Exclui A CarregarTop() Sei Laaaa...

por Blade Dom 11 Jul 2010, 17:59

Mais se exclui nao da erro?
Supremo KaKaRoTo-Eu exclui e deu erro nessa hora mas n sei se e porcausa q aeu exclui o carregar top:

PlayerMsg Index, "Parabéns!, Você agora é o " & i - 1 & "º com level mais alto"

por Cris~ Dom 11 Jul 2010, 18:10

eu fiz aki deu erro nessa parte

PlayerMsg Index, "Parabéns!, Você agora é o " & i - 1 & "º com level mais alto"

ai eu exclui isso ae Deu Certo... Tenta Se N De Pessa Ajuda Ao OmegaZero^^

por Blade Dom 11 Jul 2010, 18:54

Supremo kakaroto Vlwww!
+3 de cred
So uma pergunta como q funciona isso?Tem q criar pasta?

por Silver!e.e Dom 11 Jul 2010, 19:15

Showw gostei +1 de credito! Idea

por Blade Dom 11 Jul 2010, 19:27

Nao precisa cria nenhum arquivo e so escrever /toplvl e pronto?

por Cris~ Dom 11 Jul 2010, 20:14

Sim so Dar /toplvl e Tanks ^^

por St4rk Dom 11 Jul 2010, 21:03

Aee conseguirão se virar sem min ahauahua Very Happy

, bom breve irei por outro sistema pra vocês Smile

por Blade Dom 11 Jul 2010, 21:17

So mesmo mas eu Escrevo /toplvl e aparece o top 1 top 2 ate o top 5.Mas tudo com lv 0 '-'
Me ajuda porfavor =(

por St4rk Dom 11 Jul 2010, 22:04

fez tudo correto ?, o toplevel salva quando você mata os bixos e etc(passando de level), tenque fazer tudo cérto.

por Blade Dom 11 Jul 2010, 22:47

Malz omega!
Omega zero aonde eu coloco esse codigo:
Dim i As Byte
For i = 1 To 20
TopLvL(i).LEVEL = Abs(i - 5)
TopLvL(i).Nome = "Sem Top"
Next i
eu Puis no sub init server mais dai da erro ...

por Cris~ Seg 12 Jul 2010, 11:14

U.u coloca na Sub InitServer() la em baixo um poco Sakas?

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

por Conteúdo patrocinado