Ping                    '/PING

Ulla              '/Ulla by shak

 Public Sub WritePing()
   
        If pingTime <> 0 Then Exit Sub
     
        Call outgoingData.WriteByte(ClientPacketID.Ping)
     
        ' Avoid computing errors due to frame rate
        Call FlushBuffer
        DoEvents
     
        pingTime = GetTickCount
    End Sub

  Public Sub WriteUlla()
    Call outgoingData.WriteByte(ClientPacketID.Ulla)
    End Sub

  Case "/PING"
                    Call WritePing

    Case "/ULLA"
                    Call WriteUlla

Ping                    '/PING

Ulla                    '/Ulla

 Case ClientPacketID.Ping                    '/PING
                Call HandlePing(UserIndex)

Case ClientPacketID.Ulla            '/ULLA
                Call HanDleUlla(UserIndex)

    Public Sub HandlePing(ByVal UserIndex As Integer)
    '***************************************************
    'Author: Lucas Tavolaro Ortiz (Tavo)
    'Last Modification: 12/24/06
    'Show guilds messages
    '***************************************************
        With UserList(UserIndex)
            'Remove Packet ID
            Call .incomingData.ReadByte
         
            Call WritePong(UserIndex)
        End With
    End Sub

    Private Sub HanDleULLA(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WriteConsoleMsg(UserIndex, "Haz viajado a ullathorpe", FontTypeNames.FONTTYPE_CONSEJO)
    Call WarpUserChar(UserIndex, 1, 45, 45, True)
    Exit Sub
    End With
    End Sub
   
    Private Sub HanDleBANDERBILL(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WriteConsoleMsg(UserIndex, "Haz viajado a Banderbill", FontTypeNames.FONTTYPE_CONSEJO)
    Call WarpUserChar(UserIndex, 59, 42, 88, True)
    Exit Sub
    End With
    End Sub
   
    Private Sub HanDleARGHAL(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WriteConsoleMsg(UserIndex, "Haz viajado a Arghal", FontTypeNames.FONTTYPE_CONSEJO)
    Call WarpUserChar(UserIndex, 196, 52, 75, True) 'Centro arghal
    Exit Sub
    End With
    End Sub
   
    Private Sub HanDleLINDOS(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WriteConsoleMsg(UserIndex, "Haz viajado a Lindos", FontTypeNames.FONTTYPE_CONSEJO)
    Call WarpUserChar(UserIndex, 64, 27, 80, True) 'Lindos cerca boveda
    Exit Sub
    End With
    End Sub