[ALL]Comando Pvp

Código:

    picPVPRequest.Visible = False
    Call SendAcceptPVP

Código:

    picPVPRequest.Visible = False
    Call SendDeclinePVP


Código:

Private Sub picPlayerSpells_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Call MovePicture(frmMirage.picPlayerSpells, Button, Shift, x, y)
End Sub

Código:

Private Sub picPVPRequest_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    SOffsetX = x
    SOffsetY = y
    Call picPVPRequest.ZOrder(O)
End Sub

Private Sub picPVPRequest_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Call MovePicture(frmMirage.picPVPRequest, Button, Shift, x, y)
End Sub

Código:

        ' Leave party
        If LCase$(Mid(MyText, 1, 6)) = "/sair" Then
            Call SendLeaveParty
            MyText = vbNullString
            Exit Sub
        End If

Código:

        ' PVP request
        If LCase(Mid(MyText, 1, 6)) = "/lutar" Then
            If Len(MyText) > 7 Then
                ChatText = Mid(MyText, 8, Len(MyText) - 7)
                Call SendPVPRequest(ChatText)
            Else
                Call AddText("Use: /lutar <nome do jogador>", AlertColor)
            End If
            MyText = vbNullString
            Exit Sub
        End If

Código:

Sub SendLeaveParty()
Dim Packet As String

    Packet = "LEAVEPARTY" & END_CHAR
    Call SendData(Packet)
End Sub

Código:

Sub SendPVPRequest(ByVal Name As String)
Dim Packet As String

    Packet = "PVP" & SEP_CHAR & Name & END_CHAR
    Call SendData(Packet)
End Sub

Sub SendDeclinePVP()
Dim Packet As String

    Packet = "DPVP" & END_CHAR
    Call SendData(Packet)
End Sub

Sub SendAcceptPVP()
Dim Packet As String

    Packet = "APVP" & END_CHAR
    Call SendData(Packet)
End Sub

Código:

    ' ::::::::::::::::::::::::::
    ' :: Trade request window ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "tradewindow" Then
        frmMirage.lblTradePlayer.Caption = GetPlayerName(Val(Parse(1)))
        frmMirage.picTradeRequest.Visible = True
        Exit Sub
    End If

Código:

    ' ::::::::::::::::::::::::
    ' :: PVP request window ::
    ' ::::::::::::::::::::::::
    If Parse(0) = "pvpwindow" Then
        frmMirage.lblPVPplayer.Caption = GetPlayerName(Val(Parse(1)))
        frmMirage.picPVPRequest.Visible = True
        Exit Sub
    End If

Código:

ChatPlayer As Long

Código:

PVPPlayer As Long

Código:

        Case "dtrade"
            N = Player(Index).TradePlayer

            ' Check if anyone trade with player
            If N < 1 Then
                Call PlayerMsg(Index, "Ninguém pediu para negociar com você.", Pink)
                Exit Sub
            End If

            Call PlayerMsg(Index, "O pedido de negociação foi rejeitado.", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de negociação.", Pink)
            Player(Index).TradePlayer = 0
            Player(Index).InTrade = 0
            Player(N).TradePlayer = 0
            Player(N).InTrade = 0
            Exit Sub

Código:

        Case "pvp"
            N = FindPlayer(Parse(1))

            If N < 1 Then
                Call PlayerMsg(Index, Parse(1) & " não está online.", White)
                Exit Sub
            End If

            If N = Index Then
                Exit Sub
            End If

            Call PlayerMsg(Index, "O pedido de luta foi enviado para " & GetPlayerName(N) & ".", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " quer lutar com você.", Pink)
            Player(N).PVPPlayer = Index
            Player(Index).PVPPlayer = N
           
                Call PVPRequestWindow(N, Index)
            Exit Sub
           
        Case "apvp"
            N = Player(Index).PVPPlayer
           
            If N > 0 Then
                Call PlayerWarp(N, 1, 10, 10) ' Mapa da "arena"
                Call PlayerWarp(Index, 1, 11, 10) ' Mapa da "arena"
                Call SendDataTo(N, "sound" & SEP_CHAR & "Teleporte" & END_CHAR)
                Call SendDataTo(Index, "sound" & SEP_CHAR & "Teleporte" & END_CHAR)
                Call GlobalMsg(GetPlayerName(Index) & " e " & GetPlayerName(N) & " irão lutar, na arena. Boa sorte!", Pink)
            Else
                Call PlayerMsg(Index, "Jogador não está mais online.", White)
                Exit Sub
            End If
        Exit Sub
       
        Case "dpvp"
            N = Player(Index).PVPPlayer

            If N > 0 Then
            Call PlayerMsg(Index, "O pedido de luta foi rejeitado.", Pink)
            Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de luta.", Pink)
            End If
        Exit Sub

Código:

Sub ChatRequestWindow(ByVal Index As Long, ByVal Inviter As Long)
    Dim Packet As String

    Packet = "CHATWINDOW" & SEP_CHAR & Inviter & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Código:

Sub PVPRequestWindow(ByVal Index As Long, ByVal Inviter As Long)
    Dim Packet As String

    Packet = "PVPWINDOW" & SEP_CHAR & Inviter & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Código:

' Leave party

Código:

If LCase$(Mid(MyText, 1, 6)) = "/sair" Then

Código:

        frmMirage.lblPVPplayer.Caption = GetPlayerName(Val(Parse(1)))

Compile error: Method or data member not found.