Ezhek
Admin
Mensajes : 121
Fecha de inscripción : 14/05/2011
Edad : 26
 | | Tema: Comandos /Ulla /Bander ECT Para Viajar Mar Mayo 24, 2011 7:54 am | |
| Aclaración es para 13.0... Cliente: Buscan: - Código:
-
Ping '/PING Abajo ponemos - Código:
-
Ulla '/Ulla by shak
Banderbill '/Banderbill by shak
Arghal '/Arghal by shak
Lindos '/Lindos by shak Buscar: - Código:
-
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 abajo - Código:
-
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 Buscar - Código:
-
Case "/PING"
Call WritePing Abajo - Código:
-
Case "/ULLA"
Call WriteUlla
Case "/BANDERBILL"
Call WriteBanderbill
Case "/ARGHAL"
Call WriteArghal
Case "/LINDOS"
Call WriteLindos •SERVER• Buscar: - Código:
-
Ping '/PING ABAJO - Código:
-
Ulla '/Ulla
Banderbill '/Banderbill
Arghal '/Arghal
Lindos '/Lindos BUSCAR - Código:
-
Case ClientPacketID.Ping '/PING
Call HandlePing(UserIndex) ABAJO - Código:
-
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) Buscar - Código:
-
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 Abajo - Código:
-
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
| |
|
Índice 