[EEB] Algueem teria um sistema de Rank para naruto

por GuiinhoLP Ter 14 Ago 2012, 09:18

Eu procurei nao achei nada .. entao resolvir pedir.

um rank de patente. EX: Lv 50 Gennin , lv 150 Chunnin 250 Jounnin ETC.. Alguem poderia me ajudar.. Eu jah tentei fazer um mais deu merda Cool

por Ryo Ter 14 Ago 2012, 13:31

Lol nun vi esseno forum e acho ue ainda nao tem isso ae de lvl 50 vira otro tipo ex: ou lv 50 gennin upo ate level 100 viro chunnin acho que ´evoluir automaticamente nao é?

por GuiinhoLP Sex 17 Ago 2012, 09:35

Siim mais nao achei isso para EEB =/

por Kooringa Sex 17 Ago 2012, 09:39

principal.txt ou main.txt

adicione isso no fim do main.txt ou principal.txt

Código:: Sub SetarTitulo(index, numtitulo) Dim Titulos Dim Loc Titulos = "[Normal] [Saiyajin] [Lendário SSJ] [Super SSJ Lendário]" ( nome aqui)OBS: VAI FICAR ATRAS DO NOME EX: [Saiyajin] (nome aqui) Titulos = Split(Titulos) For Loc = 0 to UBound(Titulos) If Titulos(Loc) = Split(GetPlayerName(Index))(0) then Call SetPlayerName(Index, Mid(GetPlayerName(Index), Len(Split(GetPlayerName(Index))(0)) + 1)) Exit For End if Next Call SetPlayerName(index, Titulos(numtitulo) & " " & GetPlayerName(index)) Call PlayerWarp(index, getplayermap(index), getplayerx(index), getplayery(index)) End Sub

agora procure por:

Código:: Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)

enter e adicione:

Código:: If GetPlayerLevel(index) = 2 then Call SetarTitulo(index, 0) End if If GetPlayerLevel(index) = 300 then Call SetarTitulo(index, 1) End if If GetPlayerLevel(index) = 700 then Call SetarTitulo(index, 2) End if If GetPlayerLevel(index) = 1000 then Call SetarTitulo(index, 3) End if

explicando:

If GetPlayerLevel(index) = 2 then deixe lvl 2 pq quando entrar nao vai aparecer
Call SetarTitulo(index, 0) deixe assim
End if
If GetPlayerLevel(index) = 300 then Level requerido
Call SetarTitulo(index, 1) dexe assim
End if
If GetPlayerLevel(index) = 700 then Level requerido
Call SetarTitulo(index, 2) deixe assim
End if
If GetPlayerLevel(index) = 1000 then Level Requerido
Call SetarTitulo(index, 3) deixe assim
End if

explicando o outro:

Sub SetarTitulo(index, numtitulo)
Dim Titulos
Dim Loc
Titulos = "[Normal] [Saiyajin] [Lendário SSJ] [Super SSJ Lendário]" - ex: [normal] koor
Titulos = Split(Titulos)
For Loc = 0 to UBound(Titulos)
If Titulos(Loc) = Split(GetPlayerName(Index))(0) then
Call SetPlayerName(Index, Mid(GetPlayerName(Index), Len(Split(GetPlayerName(Index))(0)) + 1))
Exit For
End if
Next
Call SetPlayerName(index, Titulos(numtitulo) & " " & GetPlayerName(index))
Call PlayerWarp(index, getplayermap(index), getplayerx(index), getplayery(index))
End Sub

bem e isso...