Scouter para players e NPCs

por -=(Ð£$TRØY£R$)=- Qui 24 Jan 2013, 06:11

Antes de mais nada eu coloquei para constar apenas o STR e DEF

Abra Serve~side no modServerTCP procure:

Código:: Call PlayerMsg(index, "Seu alvo agora é " & GetPlayerName(i) & ".", Yellow)

Abaixo disso ponha:

Código:: Call SendDataTo(index, "poderadd" & SEP_CHAR & GetPlayerstr(i) + GetPlayerDEF(i) & SEP_CHAR & END_CHAR)

Agora procure:

Código:: Call PlayerMsg(index, "Seu alvo agora é " & Trim$(Npc(MapNpc(GetPlayerMap(index), i).num).Name) & ".", Yellow)

Abaixo coloque:

Código:: Call SendDataTo(index, "poderadd" & SEP_CHAR & Trim$(Npc(MapNpc(GetPlayerMap(index), i).num).STR) + (Npc(MapNpc(GetPlayerMap(index), i).num).DEF) & SEP_CHAR & END_CHAR)

Agora no Client~side procure:

Código:: If Parse(0) = "playerpoints" Then

Abaixo do end if ponha isso

Código:: ' ::::::::::::::::::::::::: ' :: Ver PDL :: ' ::::::::::::::::::::::::: If Parse(0) = "poderadd" Then frmMirage.lblPoderAdd.Caption = Parse(1) frmMirage.PicPDL.Visible = True Exit Sub End If

Agora no frmMirage crie uma pictureBox com nome PicPDL deixen visible = false e dentro da PicPDL crie uma label com nome lblPoderAdd crie outra label dentro do picPDL e dentro dessa label ponha PicPDL.Visible = False