Player menu "Botão direito"

por **Kies** Sex Jul 01, 2016 10:37 pm

Procure:

Código:: Private Sub picScreen_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Nessa sub encontre:

Código:: If Options.Debug = 1 Then On Error GoTo errorhandler

Adicione em baixo:

Código:: If myTargetType = TARGET_TYPE_PLAYER Then If Button = vbRightButton Then picMenu.Top = y picMenu.Left = x frmMain.picMenu.Visible = True End If End If

No final do frmMain adicione:

Código:: Private Sub lblMClose_Click() picMenu.Visible = False End Sub Private Sub lblMInvite_Click() If myTarget <> MyIndex Then SendPartyRequest picMenu.Visible = False Else AddText "Invalid invitation target.", BrightRed picMenu.Visible = False End If End Sub Private Sub lblMTrade_Click() If myTarget <> MyIndex Then SendTradeRequest picMenu.Visible = False Else AddText "You cant Trade yourself.", BrightRed picMenu.Visible = False End If[ End Sub

Agora baixe isso e coloque na PicScreen

"abra o Form.fmr clique na pic que foi aberta aperte CTRL+C e vá no seu projeto clique na PicScreen e aperte CTRL+V."

Download

Player menu "Botão direito" Vxdui2k3n9ys

Clique no botão de guilda caso teja no seu game e coloque esse cód:

Código:: If myTarget <> MyIndex Then Call GuildCommand(2, Player(myTarget).Name) picMenu.Visible = False Else AddText "Cant invite yourself", BrightRed picMenu.Visible = False End If

Mandar MsgP clique em Whisper e coloque esse cód:

Código:: If myTarget <> MyIndex Then txtMyChat.text = "!" & Trim(Player(myTarget).name) & " " picMenu.Visible = False Else AddText "You cant Whisper yourself.", BrightRed picMenu.Visible = False End If

´

É isso espero que gostem e usem em rararara.

por joaopaulo98 Sáb Jul 02, 2016 12:00 pm

muito útil , poderia incrementar e colocar para ver os status do [target]status do jogador

por XWlash Dom Jul 03, 2016 9:17 pm

Um sistema bastante prático e variável. A extensão do código é a imaginação do programador. É algo que todos já imaginaram algum dia quando entraram em um MMORPG e encontraram outros players. Obrigado por compartilhar com a comunidade!

por Conteúdo patrocinado

Hitskin.com

Player menu "Botão direito"

Player menu "Botão direito"

Re: Player menu "Botão direito"

METAS 2020.

Re: Player menu "Botão direito"

Re: Player menu "Botão direito"