Precisando com urgência !!

por mmorpgelysium Sáb 02 Jun 2012, 12:41

Galera , como perceberam eu to aqui de novo ¬¬' , mais dessa vez preciso do seguinte sistema :

Exemplo : (Gennin) MMORPG
como perceberam quero que fique a classificação dele antes do nome dele , como no Naruto Forces Very Happy

se poderem me ajudar serei grato Very Happy

por Del Piero Sáb 02 Jun 2012, 13:00

BEM ACHO QUE E ISSO QUE TA FALANDO:

Esse sistema eu peguei exemplos de títulos de naruto: [Aprendiz] [Genin] [Chunnin]

Vá no final de sua Principal.txt e adicione a seguinte sub:

Código:: Sub SetarTitulo(index, numtitulo) Dim Titulos Dim Loc Titulos = "[Aprendiz] [Genin] [Chunnin]" 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

Adicionando mais Títulos:
Na linha: Titulos = "[Aprendiz] [Genin] [Chunnin]" adicione mais títulos como no exemplo:
Titulos = "[Aprendiz] [Genin] [Chunnin] [Jounin]"
Os títulos não podem conter espaços (pois os espaços que separam um título de outro)

Utilizando:
Na Sub PlayerLevelUp(index) adicione em baixo da linha Call SetPlayerLevel(index, GetPlayerLevel(index) + 1):

Código:: If GetPlayerLevel(index) = 10 then Call SetarTitulo(index, 0) End if If GetPlayerLevel(index) = 50 then Call SetarTitulo(index, 1) End if If GetPlayerLevel(index) = 100 then Call SetarTitulo(index, 2) End if If GetPlayerLevel(index) = 150 then Call SetarTitulo(index, 3) End if

Os números 0, 1, 2 e 3 são os títulos que são configurados na linha:
Titulos = " [Aprendiz] [Genin] [Chunnin] [Jounin]"
0 1 2 3
E assim vai...