ZankuR
Director
Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013
 | Tema: comando /Dargema  Dom Ago 11, 2013 4:42 pm | |
| Vamos Con algo Facil lo extraje de Un ao pero supongo que esta posteado en otro foro pero bueno nose que fuente despues busco y edito, SERVIDOR:Por empezar Buscamos esto : - Código:
-
Private Sub HandleMeditate(byval userindex as integer) Arriba ponemos esto : - Código:
-
Private Sub HandleDargema(ByVal userindex As Integer)
If UserList(userindex).incomingData.length < 3 Then
Err.raise UserList(userindex).incomingData.NotEnoughDataErrCode
Exit Sub
End If
On Error GoTo Errhandler
With UserList(userindex)
'Este paquete contiene las cadenas, hacer una copia de los datos para evitar pérdidas en caso de que no es completa sin embargo ...
Dim buffer As New clsByteQueue
Call buffer.CopyBuffer(.incomingData)
'Remove packet ID
Call buffer.ReadByte
Dim UserName As String
Dim tUser As Integer
UserName = buffer.ReadASCIIString()
tUser = NameIndex(UserName)
If .flags.Privilegios And PlayerType.User Then 'comando para los game masters
Call WriteConsoleMsg(userindex, "Comando solo para Game Masters Pedaso de puto", FontTypeNames.FONTTYPE_INFOBOLD)
Exit Sub
End If
Dim gema As Obj
gema.amount = 1
gema.ObjIndex = 406
Call MeterItemEnInventario(tUser, gema)
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El administrador " & .name & " le ha entregado " & gema.amount & " Gema Lunar a " & UserList(tUser).name & " por haber atendido consultas para ser Game Master.", FontTypeNames.FONTTYPE_CONSEJO))
'acá aparece en el usuario
Call WriteConsoleMsg(tUser, "El administrador mas gay del mundo " & .name & " te ha entregado " & gema.amount & " Gema Lunar.", FontTypeNames.FONTTYPE_CENTINELA)
Call .incomingData.CopyBuffer(buffer)
End With
Errhandler:
Dim error As Long
error = Err.Number
On Error GoTo 0
'Destroy auxiliar buffer
Set buffer = Nothing
If error <> 0 Then _
Err.raise error
End Sub Buscamos esto : - Código:
-
Meditate '/MEDITAR Abajo ponemos esto : - Código:
-
Dargema '/Dargema Buscamos esto : - Código:
-
Case ClientPacketID.Meditate '/MEDITAR
Call HandleMeditate(userindex) Y por ultimo en el servidor abajo de /meditar ponemos esto : - Código:
-
Case ClientPacketID.Dargema '/Dargema
Call HandleDargema(userindex) Ahora Vamos al clienteBuscamos esto : - Código:
-
Meditate '/MEDITAR Abajo agregamos esto : - Código:
-
Dargema '/Dargema Buscamos esto : - Código:
-
Case "/PENAS"
If notNullArguments Then
Call WritePunishments(ArgumentosRaw)
Else
'avisar que falta parametros
Call ShowConsoleMsg("Faltan parámetros. Utilice /penas NICKNAME.")
End If Abajos le vamos a agregar esto : - Código:
-
Case "/DARGEMA"
If notNullArguments Then
Call WriteDargema(ArgumentosRaw)
Else
'Avisar que falta el parametro
Call ShowConsoleMsg("Faltan parámetros Mierda . pone esta garcha xd /DARGEMA nick.")
End If Buscamos lo siguiente : - Código:
-
Public Sub WritePunishments(ByVal UserName As String)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'Writes the "Punishments" message to the outgoing data buffer
'***************************************************
With outgoingData
Call .WriteByte(ClientPacketID.Punishments)
Call .WriteASCIIString(UserName)
End With
End Sub Y para terminar en el cliente y generar Ponemos esto : - Código:
-
Public Sub WriteDargema(ByVal UserName As String)
With outgoingData
Call .WriteByte(ClientPacketID.Dargema)
Call .WriteASCIIString(UserName)
End With
End Sub | |
|
