Suporte ao desenvolvimento de jogos!


    Player menu "Botão direito"

    Compartilhe
    avatar
    Kies
    Membro de Honra
    Membro de Honra

    Mensagens : 1044
    Créditos : 113

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Player menu "Botão direito"

    Mensagem por Kies em 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


    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.


    _________________
    Visite Vofawus Online no IndieDB


    Vofawus Online
    avatar
    joaopaulo98
    Experiente
    Experiente

    Mensagens : 622
    Créditos : 42

    Re: Player menu "Botão direito"

    Mensagem por joaopaulo98 em Sab Jul 02, 2016 12:00 pm

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


    _________________
    Dancinha:
    Código:
    http://ultracurioso.tk  - Um Mundo de Curiosidades , Ta esperando oque mate a sua , acesse não perca tempo.
    http://ligadosthemes.tk - já pensou em criar um site de filmes ou etc acesse e encontre scripts feitos para
    facilitar sua vida.
    http://linkfree.ml - encurte seus links e ainda ganhe dinheiro com isso , fácil e pratico.
    https://aprendendonline.ml  - nunca é perca de tempo aprender online.
    avatar
    XWlash
    Semi-Experiente
    Semi-Experiente

    Mensagens : 88
    Créditos : 23

    Re: Player menu "Botão direito"

    Mensagem por XWlash em 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!


    _________________

    Tente novamente.

    Conteúdo patrocinado

    Re: Player menu "Botão direito"

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Jul 22, 2018 4:14 am