[APORTE] Comandos /ulla /nix Ect para viajar !

Fecha de inscripción : 09/05/2011

Aclaración es para 13.0...

Cliente:

Buscan:

Abajo ponemos

Código:: [color=green]Ulla '/Ulla by shak
Banderbill '/Banderbill by shak
Arghal '/Arghal by shak
Lindos '/Lindos by shak
[/color]

Buscar:

Código:: [color=green][color=green]Public Sub WritePing()[/color][/color]

[color=green]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[/color]

abajo

Código:: [color=green]Public Sub WriteUlla()
Call outgoingData.WriteByte(ClientPacketID.Ulla)
End Sub

Public Sub WriteBanderbill()
Call outgoingData.WriteByte(ClientPacketID.Banderbill)
End Sub

Public Sub WriteArghal()
Call outgoingData.WriteByte(ClientPacketID.Arghal)
End Sub

Public Sub WriteLindos()
Call outgoingData.WriteByte(ClientPacketID.Lindos)
End Sub
[/color]

Buscar

Abajo

Código:: [color=green]Case "/ULLA"
Call WriteUlla

Case "/BANDERBILL"
Call WriteBanderbill

Case "/ARGHAL"
Call WriteArghal

Case "/LINDOS"
Call WriteLindos[/color]

•SERVER•

Buscar:

ABAJO

Código:: [color=green]Ulla '/Ulla
Banderbill '/Banderbill
Arghal '/Arghal
Lindos '/Lindos
[/color]

BUSCAR

Código:: [color=green]Case ClientPacketID.Ping '/PING
Call HandlePing(UserIndex)
[/color]

ABAJO

Código:: [color=green]Case ClientPacketID.Ulla '/ULLA
Call HanDleUlla(UserIndex)

Case ClientPacketID.Banderbill '/BANDERBILL
Call HanDleBanderbill(UserIndex)

Case ClientPacketID.Arghal '/ARGHAL
Call HanDleArghal(UserIndex)

Case ClientPacketID.Lindos '/LINDOS
Call HanDleLindos(UserIndex)
[/color]

BUSCAR

Código:: [color=green]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
[/color]

ABAJO

Código:: [color=green]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[/color]