Fiz o tuto do level a frente do nome mas deu um pequeno erro

por pedrex Seg 07 maio 2012, 12:56

O problema e que sempre fica em Level 0 , Como concerto ?

por Eduardo Seg 07 maio 2012, 13:14

manda o codigo para podemos ver o erro e te ajudar

por Pablo Seg 07 maio 2012, 13:48

não é um codigo eduardo e um bug existente na engine.

fiz 1 tópico ensinando como resolver isso abaixo o link:

Arrumando a getplayerlevel

por pedrex Seg 07 maio 2012, 13:49

Tai cara substitui toda a sub Sub BltPlayerName(ByVal Index As Long) Por essa abaixo

Código:: Sub BltPlayerName(ByVal Index As Long) Dim TextX As Long Dim TextY As Long Dim Color As Long ' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Yellow) Case 1 Color = QBColor(BrightBlue) Case 2 Color = QBColor(Cyan) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If ' Draw name TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8) TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - (SIZE_Y - PIC_Y) Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index) & " (Level: " & GetPlayerLevel(Index) & ")", Color) End Sub

Edit~~~~

Vlw pablo deu certo + nem sei quantos Credito

Resolvido

por Pablo Seg 07 maio 2012, 14:13

sem Double post meu chapa ^^

Editei o seu tópico para ficar mais organizado.

Tópico Resolvidos e enviado para a área dos resolvidos!

Att: Pablo

por Conteúdo patrocinado

Re: Fiz o tuto do level a frente do nome mas deu um pequeno erro