MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Rank, ou Prefixos para nomes

+6
Lendário
DshFox
Cris~
Ramonxxd
Karlos
golpedemestre
10 participantes

Ir para baixo

Rank, ou Prefixos para nomes Empty Rank, ou Prefixos para nomes

Mensagem por golpedemestre Dom 11 Jul 2010, 13:01

Introdução

Este código é quando o personagem tem um certo nível vai passando de novato para adaptado ou o que você quiser.

No seu Main.txt dentro da pasta scripts do server procure por : "joingame(Index) sub" e mude para esse:

=============================Código======================================
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) & " Entrou no " & GameName & "!", 7)
    Else
        Call GlobalMsg(realrank & " " & GetPlayerName(index) & " Entrou no " & GameName & "!", 15)
    End If

    ' Send them welcome
    Call PlayerMsg(index, "Bem vindo ao " & GameName & "!", 15)
 
    ' Send motd
    If Trim(MOTD) <> "" Then
        Call PlayerMsg(index, "MOTD: " & MOTD, 11)
    End If
End Sub
===========================================================================

e em baixo do main.txt, lá em baixo mesmo, você põe isso:


=============================Código======================================

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", " o Novato ")
End if

If Getplayerlevel(index) > 15 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", " o Adaptado ")
End if

If Getplayerlevel(index) > 30 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Aventureiro ")
End if

If Getplayerlevel(index) > 45 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Lorde ")
End if

If Getplayerlevel(index) > 60 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Mestre ")
End if

If Getplayerlevel(index) > 75 Then
Call Putvar("accounts" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Rank", "o Lendário ")
End if

End If

End Sub

============================================================================

Para mudar o Level de cada classe, ou nome, basta mudar os números VERMELHOS

Para mudar o nome de cada classe, basta mudar os nomes ROXOS

Arrow Créditos: Baron


Curtão! Idea
golpedemestre
golpedemestre
Novato
Novato

Mensagens : 31

http://www.goldlife.comfypage.com

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Karlos Dom 11 Jul 2010, 14:13

você pois o nome do lendario, eu queria o meu nome ali tbm Sad

+ 1 de credito pra vc aew
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Ramonxxd Dom 11 Jul 2010, 14:16

Funciona Em Em Elysium ?
Ramonxxd
Ramonxxd
Membro Sênior
Membro Sênior

Mensagens : 334

http://dbzfirewave.webnode.com.br

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Cris~ Dom 11 Jul 2010, 14:21

+1 de Cred...Bom Tutorial ;D
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por golpedemestre Dom 11 Jul 2010, 14:27

P- escreveu:você pois o nome do lendario, eu queria o meu nome ali tbm Sad

+ 1 de credito pra vc aew

Valeu, mais é que aquilo não é o nome dele, é tipo (no jogo: O Lendário CaçadorxD) xD affraid

Ramonxxd escreveu:Funciona Em Em Elysium ?

não testei, pois eu não uso elysium affraid
golpedemestre
golpedemestre
Novato
Novato

Mensagens : 31

http://www.goldlife.comfypage.com

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por DshFox Dom 11 Jul 2010, 16:42




Arrow Créditos: golpedemestre


tua bunda

http://www.touchofdeathforums.com/smf/index.php/topic,1325.html

creditos do Baron

ele q faz o script e tu leva o credito?Acha certo?_I_


DshFox
DshFox
Membro Vitalicio
Membro Vitalicio

Mensagens : 614

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Karlos Seg 12 Jul 2010, 07:33

Hum doeu Suspect
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Lendário Seg 12 Jul 2010, 12:26

E realmente os créditos são do Baron
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Rio Absolut Ter 21 Set 2010, 11:37

Aqui Não Funciona Simplesmente Não Aparece nada , Não Buga nenhum outro comando só n aparece nada
Rio Absolut
Rio Absolut
Membro Vitalicio
Membro Vitalicio

Mensagens : 655

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por jeansales Sáb 18 Dez 2010, 09:07

o meu nao aparese o nome tipo novato nao aparese nada como fais para apareser eu uso o elysium engine
jeansales
jeansales
Membro Junior
Membro Junior

Mensagens : 50

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Flips03 Qua 22 Dez 2010, 08:51

Gente... Esse código tem um pequeno erro!
A ini que ele coloca o rank do cara, não existe...
Esse código é pra Elysium!

Fiz uma correção e vou passar pra vcs...

Novo Tuto:

Procure por Sub JoinGame(Index). Após achar essa sup procure pela linha:
Código:
MOTD = GetVar("motd.ini", "MOTD", "Msg")

Abaixo dessa linha adicione:
Código:
    ' Send a global message that he/she joined
Call rnkchecka(index)
realrank = GetVar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank")

    Call GlobalMsg("O" & realrank & " " & GetPlayerName(index) & ", entrou no " & GameName & "!", 7)

A Sub ficará assim:
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) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank")

    Call GlobalMsg("O" & realrank & " " & GetPlayerName(index) & ", entrou no " & GameName & "!", 7)


    ' Send them welcome
    Call PlayerMsg(index, "Bem vindo ao " & GameName & "!", 15)
 
    ' Send motd
    If Trim(MOTD) <> "" Then
        Call PlayerMsg(index, "MOTD: " & MOTD, 11)
    End If
End Sub

Agora, no fundo do seu main.txt adicione essa sub:
Código:
Sub rnkchecka(index)
On error resume next

If Getplayerlevel(index) <= 15 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Novato")
End if

If Getplayerlevel(index) > 15 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Adaptado")
End if

If Getplayerlevel(index) > 30 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Aventureiro")
End if

If Getplayerlevel(index) > 45 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Lorde")
End if

If Getplayerlevel(index) > 60 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Mestre")
End if

If Getplayerlevel(index) > 75 Then
Call Putvar("accounts" & GetPlayerLogin(index) & "_info.ini", "CHAR" & GetPlayerCharNum(index), "Rank", "Lendário")
End if

End If

End Sub

PS: Aqui eu coloquei esse rank para todas as classes!
Pronto! Agora e só testar...

Lembrando que o tuto não é meu... Eu só arrumei ele.
Não testei ainda, mas eu acho que funciona. Se alguem testar me fala o resultado!

Gostou?? Me da créditos...


Última edição por Flips03 em Qua 22 Dez 2010, 10:13, editado 1 vez(es)
Flips03
Flips03
Membro
Membro

Mensagens : 150

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Dr.Manhattan Qua 22 Dez 2010, 09:58

Mto bom +1 cred... pro Baron, vo usa minha acc la no Touch of death forums


OFF;
EUAHSIUEHIAUEHIAEUHAEIUHAEIUAEHIUAEHIUAEHIAEUHAEIUHAEIUHEIUAHEUIAEHIUAEHIAUEHEIUHAEIUHE
AEGAEUIEH

DhsFox WINS

Karlos, karlos.. toma cuidado na hora de dizer as coisas ai, você falando que doeu pega mal...
Dr.Manhattan
Dr.Manhattan
Membro Veterano
Membro Veterano

Mensagens : 863

Ir para o topo Ir para baixo

Rank, ou Prefixos para nomes Empty Re: Rank, ou Prefixos para nomes

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos