Titulo encima do nome

por Kooringa Sáb 04 Ago 2012, 08:03

Tipo, eu quero que esse codigo:

Código:: Sub SetarTitulo(index, numtitulo) Dim Titulos Dim Loc Titulos = "[Iniciante] [Saiyajin] [Lendário SSJ] []" 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

Fique o nome encima do cara naão do lado. se alguem poder me ajudar agradeço!

Titulo encima do nome 35iub2d

É meu Fan? Gosta de Min? Então use:
Titulo encima do nome Bhhod5

OBS:

por Ryukaza Sáb 04 Ago 2012, 09:18

Cara,pelo que eu vi nesse código,ele tá mandando o vb desenhar o seguinte :

Titulo - Nome.

Eu não conheço muito de EEB,mas se ao menos o código dele for um pouco parecido com o do E.O,tente usar um sistema de Titulo do Kurogane se não me engano,como base para pegar o code que desenha o Titulo em cima do nome pelo DX7...Enfim só faça isso se tiver certeza que o EEB tem alguma semelhança com o code do E.O,se não tiver nem tente
cara por que comprometerá sua source.

Att

por Kooringa Dom 05 Ago 2012, 12:03

Ryukaza escreveu:Cara,pelo que eu vi nesse código,ele tá mandando o vb desenhar o seguinte :

Titulo - Nome.

Eu não conheço muito de EEB,mas se ao menos o código dele for um pouco parecido com o do E.O,tente usar um sistema de Titulo do Kurogane se não me engano,como base para pegar o code que desenha o Titulo em cima do nome pelo DX7...Enfim só faça isso se tiver certeza que o EEB tem alguma semelhança com o code do E.O,se não tiver nem tente
cara por que comprometerá sua source.

Att

esse codigo e de titulos(naruto) so mudei esses nomes:

Código:: Titulos = "[Normal] [Saiyajin] [Lendário SSJ] [Super SSJ Lendário]"

e pega 100% sem bug's.

obs:

Spoiler:

para quem quiser usar o sistema:

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...

É meu Fan? Gosta de Min? Então use:
Titulo encima do nome Bhhod5

OBS:

por SkyZero Dom 05 Ago 2012, 12:22

Ryukaza escreveu:Cara,pelo que eu vi nesse código,ele tá mandando o vb desenhar o seguinte :

Titulo - Nome.

Eu não conheço muito de EEB,mas se ao menos o código dele for um pouco parecido com o do E.O,tente usar um sistema de Titulo do Kurogane se não me engano,como base para pegar o code que desenha o Titulo em cima do nome pelo DX7...Enfim só faça isso se tiver certeza que o EEB tem alguma semelhança com o code do E.O,se não tiver nem tente
cara por que comprometerá sua source.

Att

Sim , é quase o mesmo sentido , provavelmente funcione com os mesmo codigos , nunca testei .

por Del Piero Dom 05 Ago 2012, 13:18

Pelo visto tão usando bem meus códigos rs'

por Kooringa Dom 05 Ago 2012, 18:11

Del Piero escreveu:Pelo visto tão usando bem meus códigos rs'

del piero, se o codigo e seu poderia me ajudar porfavor! aaaaaaaaaaaaaa!

quero q o nome fica encima do nome ex:

[Lendário SSJ]
KooRinga

É meu Fan? Gosta de Min? Então use:
Titulo encima do nome Bhhod5

OBS:

por GuiinhoLP Qua 08 Ago 2012, 16:41

Ta Nao passando O titulo depois que Atinge outro lv EX: Ele ta lv 50 Chunnin lv 100 era para ir Jounnin nao muda !

por Kooringa Qua 08 Ago 2012, 20:11

guiinholp, nada a ver isso, ele muda automaticamente ao passar de lvl, vc fez algo errado...

quando ele chega no level certo, faz um som "tipo um Warp ou teleport e da pra perceber"

É meu Fan? Gosta de Min? Então use:
Titulo encima do nome Bhhod5

OBS:

por Rufus Lenhador Qui 09 Ago 2012, 05:47

Porque você não "ripa" o sistema de guild e só muda o que você quiser? É bem, mas beem simples mesmo fazer isso Smile

por Conteúdo patrocinado

Titulo encima do nome

Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome

Re: Titulo encima do nome