[ALL]Voar + Contagem

Código:


(Name) = cmdVoar
(Caption) = Voar


Código:


Dim Packet As String

    Packet = "Voar" & END_CHAR
    Call SendData(Packet)
tmrVoar.enabled = true


Código:


(Name) = tmrVoar
(Enabled) = False
(Interval) = 30000 // 30 seg de voo mas pode mudar pra quanto quiser


Código:


Dim Packet As String

    Packet = "NVoar" & END_CHAR
    Call SendData(Packet)
tmrVoar.enabled = false


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 "Voar"
If GetPlayerClass(index) = X Then
If GetPlayerLevel(Index) => YY Then
Call SetPlayerSprite(index, Q)
Call SendPlayerData(index)
Call PlayerMsg(index, "(VIP) Está voando", 4)
Else
Call PlayerMsg(Index, "Não tem o level requerido", 4)
End If
End If
Exit Sub

Case "NVoar"
Call SetPlayerSprite(index, W)
Call SendPlayerData(index)
Call PlayerMsg(index, "(VIP)Você parou de Voar", 4)
Exit Sub


sim como eu disse no outro tópico mas talvez depois eu ponha o baguio do block

Código:


Só um exemplo
If getplayersprite(index) = X then
Blocked = False (Não eh bem assim o comando eh soh pra demonstração)
else
Blocked = True
end if

X = Numero da Sprite


Cara Esse Tutorial Da Erro Ao Clicar Na Command Button "Invalid Packet (Voar))

Código:


Private Sub Voar()
Dim Packet As String

    Packet = "Voar" & END_CHAR
    Call SendData(Packet)
tmrVoar.enabled = true
End Sub


Código:


Call Voar


enquanto ainda não posto vaum tentado ae
vou demorar um pouco porque estou programando uma spell de voar então vai demora um poko

é facil procure no server por blocked e poem algo assim

Só um exemplo

Código:

If getplayersprite(index) = X then
Blocked = False (Não eh bem assim o comando eh soh pra demonstração)
else
Blocked = True
end if

X = Numero da Sprite

Código:

    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim d As Long
    Dim ScreenID As Long