Pet com nome

Server~side
Procure por:

Código:

Type PetRec

Logo abaixo adicione:

Código:

PetName as String

Agora no ModServerTCP procure por:

Código:

Case ITEM_TYPE_PET

Logo abaixo adicione:

Código:

Player(Index).Pet.Name = Trim$(Item(GetPlayerInvItemNum(Index, InvNum)).Name)

Agora procure por:

Código:

Packet = Packet & Player(Index).Pet.Level * 5 & SEP_CHAR

Em todas, adicione abaixo:

Código:

Packet = Packet & Player(Index).Pet.Name & SEP_CHAR

Agora procure por:

Código:

Call PutVar(FileName, "CHAR" & i, "PetLevel", STR(Player(Index).Pet.Level))

Abaixo adicione:

Código:

Call PutVar(FileName, "CHAR" & i, "PetName", STR(Player(Index).Pet.Name))

Agora procure por:

Código:

Player(Index).Pet.Sprite = Val(GetVar(FileName, "CHAR" & i, "Pet"))

Abaixo adicione:

Código:

Player(Index).Pet.Name = GetVar(FileName, "CHAR" & i, "PetName")

Pronto, fim do Server~Side

Client~Side
Procure por:

Código:

Type PetRec

Abaixo adicione:

Código:

PetName as String

Procure por:

Código:

Player(I).Pet.MaxHP = Val(Parse(9))

Abaixo adicione:

Código:

Player(I).Pet.PetName = Parse(10)

Agora procure por:

Código:

' Draw name
    TextX = Player(Index).Pet.x * PIC_X + sx + Player(Index).Pet.XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index) & "'s Pet") / 2) * 8)
    TextY = Player(Index).Pet.y * PIC_Y + sx + Player(Index).Pet.YOffset - Int(PIC_Y / 2) - (SIZE_Y - PIC_Y)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index) & "'s Pet", Color)

Substitua por:

Código:

' Draw name
    TextX = Player(Index).Pet.x * PIC_X + sx + Player(Index).Pet.XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index) & "'s " & Player(Index).Pet.PetName & " (Lv. " & Int(Player(Index).Pet.MaxHP / 5) & ")") / 2) * 8)
    TextY = Player(Index).Pet.y * PIC_Y + sx + Player(Index).Pet.YOffset - Int(PIC_Y / 2) - (SIZE_Y - PIC_Y)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index) & "'s " & Player(Index).Pet.PetName & " (Lv. " & Int(Player(Index).Pet.MaxHP / 5) & ")", Color)

Fim do tutorial

Hyke™ escreveu:Muito bom boasfestas =)
+ 1 Crédito por colaborar com a comunidade !