[EEB] Clique e Veja informações

Descrição:
Neste tutorial, vou ensinar-lhes a criar um sistema no qual ao clicar no player
apareça uma janelinha com informações sobre o player selecionado!

Código:

picInfoPlayer

Código:

lblFechar
lblNomeP
lblLevelP
lblGuildP
lblVipP
lblPdlP

Código:

picInfoPlayer.Visible = False

Código:

If Parse(0) = "levelup" Then
        Player(Val(Parse(1))).LevelUpT = GetTickCount
        Player(Val(Parse(1))).LevelUp = 1
        Exit Sub
    End If

Código:

' ::::::::::::::::::::::::::::::::::
    ' ::      Info PLayer Packet      ::
    ' ::::::::::::::::::::::::::::::::::
    If Parse(0) = "alvo" Then
        frmMirage.lblNomeP.Caption = Trim(Parse(1))
        frmMirage.lblPdlP.Caption = Val(Parse(2))
        frmMirage.lblLevelP.Caption = Val(Parse(3))
        If Trim(Parse(4)) <> vbNullString Then
        frmMirage.lblGuildP.Caption = Trim(Parse(4))
        Else
        frmMirage.lblGuildP.Caption = "Não tem"
        End If
        If Val(Parse(7)) = 0 Then
        frmMirage.lblVipP.Caption = "Não"
        ElseIf Val(Parse(6)) = 1 Then
        frmMirage.lblVipP.Caption = "Sim"
        End If
        frmMirage.picInfoPlayer.Visible = True
    Exit Sub
    End If

Código:

' Change target
                    Player(Index).Target = i
                    Player(Index).TargetType = TARGET_TYPE_PLAYER

Código:

Dim PDL As Long
PDL = GetPlayerstr(i) + GetPlayerDEF(i) + GetPlayerSPEED(i) + GetPlayerMAGI(i)
                        Packet = "ALVO" & SEP_CHAR & GetPlayerName(i) & SEP_CHAR & PDL & SEP_CHAR & GetPlayerLevel(i) & SEP_CHAR & GetPlayerGuild(i) & SEP_CHAR & GetPlayerAccess(i) & END_CHAR
                    Call SendDataTo(Index, Packet)

• Mkl Doido ' Fez o sistema
  
• Cesar ' Auxiliou Mkl Doido nos erros e problemas.. e olha que foram muitos hehehe..
  
• PRODEV
  

Darkpeople196 escreveu:beló tutorial maykel ganho meu cred+ se acha que este tutorial podera funcionar no eclipse origins?

off-topic

maykel: 1
SkyNetWork: 1-

shauhsua ria memo hein!,sorry ali viu é que o tiu sky nao tinha tomado o remedio dele VIAGRA,Brink's viu tio SKy

Rai Tavares escreveu:Sim, qualquer sistema do elysium funciona no eclipse, só adaptar...
as subs
GetPlayerSTR(i)
GetPlayerDEF(i)
GetPlayerSPEED(i)
GetPlayerMAGI(i)
GetPlayerName(i)
GetPlayerLevel(i)
GetPlayerGuild(i)
GetPlayerAccess(i)
Call SendDataTo(Index, Packet)
existem no Eclipse Evolution, mas para passar para o origins, vc vai ter que converter o packet
"SendDatato" para o socket utilizado no origins,

Em resposta ao Sky, mas uma vez eu repito:

Esse fórum, tem mais adms do que usuários...

esmilofay escreveu:Axei agora mano Vlw !

esmilofay escreveu:Mano voce pode me adicionar no msn ? fiz tudo certinho mais da erro 9

esmilofay escreveu:mesmo assim no server nao tem esse codigo !
' Change target
Player(Index).Target = i
Player(Index).TargetType = TARGET_TYPE_PLAYER

eu uso Elysium Diamond 2.6 BR

esmilofay escreveu:Axei agora mano Vlw !

esmilofay escreveu:Mano voce pode me adicionar no msn ? fiz tudo certinho mais da erro 9

Sim, qualquer sistema do elysium funciona no eclipse, só adaptar...
as subs
GetPlayerSTR(i)
GetPlayerDEF(i)
GetPlayerSPEED(i)
GetPlayerMAGI(i)
GetPlayerName(i)
GetPlayerLevel(i)
GetPlayerGuild(i)
GetPlayerAccess(i)
Call SendDataTo(Index, Packet)
existem no Eclipse Evolution, mas para passar para o origins, vc vai ter que converter o packet