[EE][ES]Sistema de Rank

por Zeus Dom 13 Set 2009, 11:34

Bem, estava andando pelo fórum internacional do Eclipse e achei esse tópico. Crédito a eles.

Tutorial:

Este script TODOS E DERIVADOS DE OBRAS SÃO COPYRIGHT Redentor JOGO STUDIOS a menos que esteja usando ECLIPSE MOTORES. Seu uso é abertas a todos os utilizadores de eclipse MOTORES juntamente com o direito de editá-lo livremente. OUTROS MOTORES / GAMES necessitam de aprovação para uso. Isto pode não ser afixada em OUTROS BOARDS

Este código grita a posição de um jogador com base em seu nível, quando participar do seu jogo.

Mude sua joingame (índice) sub para olhar como este :

Código:: Sub JoinGame(index) Dim GameName Dim MOTD dim realrank GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Send a global message that he/she joined Call rnkchecka(index) realrank = GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "rank") If GetPlayerAccess(index) <= ADMIN_MONITER Then Call GlobalMsg(realrank & " " & GetPlayerName(index) & " has joined " & GameName & "!", 7) Else Call GlobalMsg(realrank & " " & GetPlayerName(index) & " has joined " & GameName & "!", 15) End If ' Send them welcome Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If End Sub

e adicionar este à parte inferior de main.txt :

Código:: '---------------------------------- 'at the bottom put this bit 'Barony, edited Feb 16 2006 'http://www.barony.deviantart.com '---------------------------------- Sub rnkchecka(index) On error resume next 'If Getplayerclass(index) = 0 Then If Getplayerlevel(index) <= 15 Then Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Novice ") End if If Getplayerlevel(index) > 15 Then Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Adept ") End if If Getplayerlevel(index) > 30 Then Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Adventurer ") End if If Getplayerlevel(index) > 45 Then Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Overlord ") End if If Getplayerlevel(index) > 60 Then Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Grand Master ") End if 'If Getplayerlevel(index) > 75 Then 'Call Putvar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & 'GetPlayerCharNum(index), "Rank", "The Mighty ") 'End if 'End If End Sub

Para atribuir patentes baseado em classe, bem, remova o 'de laranja na frente do código.

Para alterar as classificações atribuídas, renomeie o roxo palavras.

Para alterar os níveis jogadores recebem novas fileiras em, altere a números vermelhos.

Para adicionar entradas no extra, basta copiar e colar a uma anterior, aumentando o nível necessário e mudar o nome, tal como demonstrado pela entrada amarela

Espero que todos consigam e gostem. Até.

por **Lendário** Dom 13 Set 2009, 12:44

Obrigado pelo post

por Zeus Dom 13 Set 2009, 13:22

De nada cara é nóis xD

por Rio Absolut Qui 17 Set 2009, 15:56

ele funciona no elysium egine ??

presiso de rank asism

por Zeus Qui 17 Set 2009, 16:12

Não, esse funciona apenas no Eclipse. Você já olhou na sessão do Elysium ? Lá tem um sitema de Rank =]

por **Lendário** Sex 18 Set 2009, 11:23

Vou ver se acho para ouras engines.

por Rio Absolut Sáb 03 Out 2009, 19:30

ele funciona em todas as Verções do eclipse ?

e aonde fica guardado os arkivos pra min saber quem paso de lv etc

por Zeus Dom 04 Out 2009, 09:32

Fica tudo na DB ele atualiza sóznho.

por Rio Absolut Dom 04 Out 2009, 10:01

mais tenho que criar 1 Pasta nova ?

tem como vc postar por foto ta dificil de eu entender ^^

por **Lendário** Dom 04 Out 2009, 10:29

é pra ser adicionado no main
aqui pegou sertinho

por Lucas Lôpo Dom 04 Out 2009, 10:29

Tbm nao entendi achei estranho ^^ se poder fazer como foto eu agradeco xD

por Infinit Online Sex 09 Out 2009, 09:04

Alguem me ajuda, no ta dando certo, se a alguem para me ajudar passa o MSN, por favor. Crying or Very sad

:lol!:

por **Lendário** Sex 09 Out 2009, 10:42

esse sistema de ranking é muito facil e por favor ñ pessa msn de pessoas vc será atendido pelo forum Exclamation

por Infinit Online Sex 09 Out 2009, 17:46

Desculpa ae, foi malz msm Crying or Very sad

, mas tipo tenho duvida pois fiz assim:

Copiei e colei no editor script , ai ele fla ''Run erro 75''
bom vc nao tem imagens de como fazer sei la me ajuda por favor bounce

por **Lendário** Sex 09 Out 2009, 17:52

No main procure pelo esse cofigo (para procurar basta apertar Ctrl + F)

Código:: Sub JoinGame(index) Dim GameName Dim MOTD dim realrank GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Send a global message that he/she joined Call rnkchecka(index) realrank = GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "rank") If GetPlayerAccess(index) <= ADMIN_MONITER Then Call GlobalMsg(realrank & " " & GetPlayerName(index) & " has joined " & GameName & "!", 7) Else Call GlobalMsg(realrank & " " & GetPlayerName(index) & " has joined " & GameName & "!", 15) End If ' Send them welcome Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If End Sub

Quando achar subistitua todo esse coédigo acima pelo o primeiro codigo do tutorial.
Depois bais adicionar o segundo codigo do tutorial no final do main.

por Infinit Online Sex 09 Out 2009, 18:06

Bom apertei Ctrl+F5 e procurei por Sub JoinGame(Index).

Awe apareceu isso

Sub JoinGame(Index)
If GetPlayerAccess(Index) = 0 Then
Call GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", GREY)
Else
Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", YELLOW)
End If

Call PlayerMsg(Index, "Welcome to " & GameName & "!", WHITE)

If LenB(MOTD) <> 0 Then
Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN)
End If

Call SendWhosOnline(Index)
End Sub

awe devo subistituir isso pelo Tuto la primeiro né e como entro para ver o Ranking ?????

por **Lendário** Sex 09 Out 2009, 18:32

isso msm assim que vc entra no jogo mostra

por Infinit Online Sex 09 Out 2009, 20:04

Meu DEUS

Bom eu fiz td isso e ai entro no jogo pah né. study

Awe ele nao mostra nada quando eu entro.
Bom vc nao poderia me passar o Main porque ta foda.
POR FAVOR I love you

OBS: Entro logado com conta de ADM a e entrei com uma conta normal e tbm nao apareceu :lol!:

por **Lendário** Seg 12 Out 2009, 18:05

vou passar mais espera um pouco
ME LEMBRE !!!

por Infinit Online Seg 12 Out 2009, 19:16

Faria isso para mim *-*
estou prescisando mt
por favor I love you

por Zeus Ter 13 Out 2009, 19:10

Exatamente o que o Lendário falou na pasta server/Scripts tem lá MAIN.

por Sagittarius Sáb 03 Jul 2010, 11:44

não consegui add o codigo de rank da um erro eu uso Eclipse Stable nele as subs ficam divididas em outra pasta eu tenho que criar uma alguma coisa? pasta arquivo etc...

por wesl sikeira Seg 05 Jul 2010, 16:27

Onde vai aparecer o Ranking?

OBS:aonde eu tenho que colocar o segundo script?

por Conteúdo patrocinado

[EE][ES]Sistema de Rank

[EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank

Re: [EE][ES]Sistema de Rank