[ APORTE ] Nivel Máximo Recompensa
Página 1 de 1.
[ APORTE ] Nivel Máximo Recompensa
Buenas Foro, este [COMANDO] Lo que hace es :
[CLIENTE] :
[SERVIDOR] :
Listo, cualquier cosa avisen. El comando funciona de esta manera /ADQUIRIR Si queremos cambiar el nombre del comando buscamos esto :
PD : El comando se puede usar muchas vecez es el unico problema que tiene, si alguien tiene idea como hacerlo de 1 uso. Que me avise y edito :s Saludos.
- Spoiler:
- Si esta [Muerto] No lo deja usar y le dice un mensaje.
*
Si no es [Nivel Máximo] no lo deja usar y le dice un mensaje.
*
Si esta en [Insegura] No lo deja usar y le dice un mensaje.
*
Y sí es [Nivel Máximo] y esta en [Segura]. Le da un Objeto, y le dice que objeto le dio en este caso un [Laurel].
[CLIENTE] :
- CLIENTE:
- Abajo de :
- Código:
Consulta
- Código:
Adquirir '/Adquirir
- Código:
Abajo de : Case "/CONSULTA"
Call WriteConsulta
- Código:
Case "/ADQUIRIR"
Call WriteAdquirir
- Código:
Public Sub WriteConsulta()
- Código:
' Writes the "Adquirir" message to the outgoing data buffer.
Public Sub WriteAdquirir()
'***************************************************
'Author: Los Aldeanos
'Last Modification: 23-2013-Septiembre
'***************************************************
Call outgoingData.WriteByte(ClientPacketID.Adquirir)
End Sub
[SERVIDOR] :
- SERVIDOR:
- Abajo de :
- Código:
Consultation
- Código:
Adquirir '/Adquirir
- Código:
Case ClientPacketID.Consultation
Call HandleConsultation(UserIndex)
- Código:
Case ClientPacketID.Adquirir
Call HandleAdquirir(UserIndex)
- Código:
Private Sub HandleConsultation(ByVal UserIndex As String)
- Código:
' Handles the "Adquirir" message.
Private Sub HandleAdquirir(ByVal UserIndex As Integer)
'***************************************************
'Author: Los Aldeanos
'Last Modification: 23/2013/Septiembre
'***************************************************
With UserList(UserIndex)
'Remove packet ID
Call .incomingData.ReadByte
If .flags.Muerto = 1 Then Call WriteConsoleMsg(UserIndex, "¡Estás Muerto!, no puedes usar el Comando en ese [Estado]. Porfavor revivasé y intentelo de nuevo.", FontTypeNames.FONTTYPE_TALK): Exit Sub
If .Stats.ELV >= STAT_MAXELV = 0 Then Call WriteConsoleMsg(UserIndex, "No eres Nivel Máximo.", FontTypeNames.FONTTYPE_TALK): Exit Sub
If MapInfo(.Pos.Map).Pk = True Then Call WriteConsoleMsg(UserIndex, "Debes estar en una Zona Segura.", FontTypeNames.FONTTYPE_TALK): Exit Sub
If .Stats.ELV >= STAT_MAXELV Then Call WriteConsoleMsg(UserIndex, "¡Felicidades!, por haber usado el Comando, siendo Nivel Máximo obtienes un hermozo [Laurel].", FontTypeNames.FONTTYPE_TALK)
Dim Obj As Obj
Obj.Amount = 1
Obj.ObjIndex = 851
Call MeterItemEnInventario(UserIndex, Obj)
End With
End Sub
Listo, cualquier cosa avisen. El comando funciona de esta manera /ADQUIRIR Si queremos cambiar el nombre del comando buscamos esto :
- Código:
Case "/ADQUIRIR" 'aca ponemos como queremos que se use.
Call WriteAdquirir 'no tocar
PD : El comando se puede usar muchas vecez es el unico problema que tiene, si alguien tiene idea como hacerlo de 1 uso. Que me avise y edito :s Saludos.
Los Aldeanos- Aportes : 4
Mensajes : 6
Puntos : 14
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|