[ALL]Criação de Evento

Código:

timer.Enabled = False
picEvento.Visible = False

Código:

Call AceitarEvento(GetPlayerName(MyIndex), lblAdmin.Caption)
picEvento.Visible = False

Código:

picEvento.Visible = False

Código:

        ' Checking fps
        If LCase(Mid(MyText, 1, 4)) = "/fps" Then
            Call AddText("FPS: " & GameFPS, Pink)
            MyText = vbNullString
            Exit Sub
        End If

Código:

        'Evento
        If LCase(Mid(MyText, 1, 12)) = "/fazerevento" Then
            If GetPlayerAccess(MyIndex) >= 1 Then
            Call FazerEvento(GetPlayerName(MyIndex))
            MyText = vbNullString
            Exit Sub
            Else
            Call AddText("Você não tem permissão para fazer Eventos!", Red)
            Exit Sub
            End If
        End If

Código:

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

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

Código:

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

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

Sub AceitarEvento(ByVal Name As String, ByVal Admin As String)
Dim Packet As String

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

Código:

    ' ::::::::::::::::::::::::::
    ' :: Party request window ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "partywindow" Then
        frmMirage.lblPlayer.Caption = GetPlayerName(Val(Parse(1)))
        frmMirage.picPartyRequest.Visible = True
        Exit Sub
    End If

Código:

    If Parse(0) = "evento" Then
        frmMirage.picEvento.Visible = True
        frmMirage.timer.Enabled = True
        frmMirage.lblAdmin.Caption = GetPlayerName(Val(Parse(1)))
        Exit Sub
    End If

Código:

Case "party"

Código:

        Case "accevento"
        N = FindPlayer(Parse(1))
        Dim A As String
        A = FindPlayer(Parse(2))
       
        Call PlayerWarp(N, GetPlayerMap(A), GetPlayerX(A), GetPlayerY(A), False)
        Call GlobalMsg(GetPlayerName(N) & " foi ao Evento!", Yellow)
       
        Exit Sub
       
        Case "evento"
       
        N = FindPlayer(Parse(1))
       
        For i = 1 To MAX_PLAYERS
   
        If IsPlaying(i) Then
        Packet = "Evento" & SEP_CHAR & N & END_CHAR
        Call SendDataTo(i, Packet)
        End If
        Next i
       
        Call GlobalMsg("[EVENTO] " & GetPlayerName(N) & " está fazendo um Evento, aperte Sim para ir até o Evento.", Magenta)
       
        Exit Sub

Código:

Se você é acesso 1 ou mais você digita /fazerevento
Em todos os jogadores online, apareceram aquela janela do evento,
perguntando se quer ir no evento, em 10 seg a janela se fecha.
Se o player apertar sim, ele vai até o admin que fez o evento!

Código:

[EVENTO]ADMIN esta fazendo um evento, aperte sim para ir até o evento

giovani18 escreveu:nao ta aparecendo a janela ajuda ae