Lucas Roberto
Administrador
Mensagens : 711
![[EO] Show level Empty](https://2img.net/i/empty.gif) | Assunto: [EO] Show level ![[EO] Show level Empty](https://2img.net/i/fa/empty.gif) Sex 20 maio 2011, 14:03 | |
| Este tutorial é uma edição de Jogador Crista de Nível Ela mostra o nível do seu personagem como este. [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]Tudo isto acontece no cliente modtext abrir e encontrar Sub DrawPlayerName em que devem ser: - Spoiler:
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Substituir por: - Spoiler:
Dim TextA As Long
Dim TextB As Long
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Agora desça até encontrar: - Spoiler:
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
Else
' Determine location for text
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16
End If
' Draw name
Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), color)
End Sub
Substitua isso com: - Spoiler:
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
Else
' Determine location for text
TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 5
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index))))
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 16
End If
' Draw name
Call DrawText(TexthDC, TextA, TextB, "Level " & GetPlayerLevel(Index), color)
Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), color)
End Sub
Créditos: FreeMMORPGMAKER - MEW! - E a mim por disponibilizar aqui. | |
|
![[EO] Show level Logo1110](https://i.servimg.com/u/f48/15/58/60/97/logo1110.png){kind=logo}
Eventos
Publicações