[Aporte]Usuario más poderoso ONLINE y duda sobre TDN
+3
GaBiiToX
Nanshe
maTih.-
7 participantes
- maTih.-Nivel 0
- Aportes : 1
Mensajes : 25
[Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Lun 05 Abr 2010, 23:22
12.1 buscamos
CheckSlot '/SLOT
y abajo ponemos
Poderoso
buscamos
Case ClientPacketID.CheckSlot '/SLOT
Call HandleCheckSlot(UserIndex)
abajo ponemos
Case ClientPacketID.Poderoso
Call HandlePoderoso(UserIndex)
Buscamos Sub HandleCheckSlot y abajo del end sub le ponemos
Public Sub HandlePoderoso(ByVal UserIndex As Integer)
'Remove packet ID
Call UserList(UserIndex).incomingData.ReadByte
Dim i As Long
Dim PoderIndex As Long
'Chequeamos quien tiene más matados
PoderIndex = 1
For i = 1 To LastUser
If UserList(i).Stats.UsuariosMatados > UserList(PoderIndex).Stats.UsuariosMatados Then
PoderIndex = i
End If
Next i
'Le decimos al usuario quien es el más "PODEROSO"
Call WriteConsoleMsg(UserIndex, "El personaje más poderoso del servidor es: " & UserList(PoderIndex).name, FontTypeNames.FONTTYPE_INFO)
Call WriteConsoleMsg(UserIndex, "Que tiene asesinados : " & UserList(PoderIndex).Stats.UsuariosMatados, FontTypeNames.FONTTYPE_INFO)
End Sub
CLIENTE
Buscamos CASE "/DENUNCIAR" y arriba ponemos
Case "/PODEROSO"
Call WritePoderoso
buscamos el Sub WriteMeditate y arriba ponemos
Public Sub WritePoderoso()
'Paquete del cliente
Call outgoingData.WriteByte(ClientPacketID.Poderoso)
End Sub
abajo de CheckSlot '/SLOT ponemos Poderoso
ahora mi dudita.. Tierras del Norte AO , es 12.1 ó 11.5?
CheckSlot '/SLOT
y abajo ponemos
Poderoso
buscamos
Case ClientPacketID.CheckSlot '/SLOT
Call HandleCheckSlot(UserIndex)
abajo ponemos
Case ClientPacketID.Poderoso
Call HandlePoderoso(UserIndex)
Buscamos Sub HandleCheckSlot y abajo del end sub le ponemos
Public Sub HandlePoderoso(ByVal UserIndex As Integer)
'Remove packet ID
Call UserList(UserIndex).incomingData.ReadByte
Dim i As Long
Dim PoderIndex As Long
'Chequeamos quien tiene más matados
PoderIndex = 1
For i = 1 To LastUser
If UserList(i).Stats.UsuariosMatados > UserList(PoderIndex).Stats.UsuariosMatados Then
PoderIndex = i
End If
Next i
'Le decimos al usuario quien es el más "PODEROSO"
Call WriteConsoleMsg(UserIndex, "El personaje más poderoso del servidor es: " & UserList(PoderIndex).name, FontTypeNames.FONTTYPE_INFO)
Call WriteConsoleMsg(UserIndex, "Que tiene asesinados : " & UserList(PoderIndex).Stats.UsuariosMatados, FontTypeNames.FONTTYPE_INFO)
End Sub
CLIENTE
Buscamos CASE "/DENUNCIAR" y arriba ponemos
Case "/PODEROSO"
Call WritePoderoso
buscamos el Sub WriteMeditate y arriba ponemos
Public Sub WritePoderoso()
'Paquete del cliente
Call outgoingData.WriteByte(ClientPacketID.Poderoso)
End Sub
abajo de CheckSlot '/SLOT ponemos Poderoso
ahora mi dudita.. Tierras del Norte AO , es 12.1 ó 11.5?
- NansheNivel Máximo
- Aportes : 20
Mensajes : 3811
País :
Edad : 28
Localización : Argentina
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Mar 06 Abr 2010, 00:47
El numero de version no se puede divulgar Vermell.
Buen aporte, traeme una fotix aplicado a un AO y deja fuente -.-
Saludos
NANSHE
Buen aporte, traeme una fotix aplicado a un AO y deja fuente -.-
Saludos
NANSHE
- GaBiiToXNivel 0
- Mensajes : 19
País :
Localización : LiNiErS
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Sáb 14 Ago 2010, 04:41
Nanshe, no vi que en tus post dejes fotos aplicando los codigos a algun server y en muchos casos no dejas las fuente :S
- TzSHADoWNivel 0
- Mensajes : 20
País :
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Sáb 14 Ago 2010, 16:34
Bueno (Y)
- GODNivel 17
- Mensajes : 1149
País :
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Mar 17 Ago 2010, 18:16
GaBiiToX escribió:Nanshe, no vi que en tus post dejes fotos aplicando los codigos a algun server y en muchos casos no dejas las fuente :S
Si no deja fuente es porque él lo creo, y lo de la foto seguramente fué porque como el código supuestamente no era de TzSHADoW quería "atraparlo".
Slds!
- Vermell (Inti)Nivel 16
- Aportes : 1
Mensajes : 952
País :
Edad : 28
Localización : Capital federal.
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Mar 17 Ago 2010, 19:02
Está bueno a mi me sirvió.
Gracias
Atte...
IntisiN:
PD:
Gracias
Atte...
IntisiN:
PD:
Che, todo bien pero te recomiendo dejar de desvirtuar.Si no deja fuente es porque él lo creo, y lo de la foto seguramente fué porque como el código supuestamente no era de TzSHADoW quería "atraparlo".
Slds!
- JuancitOh.-Nivel 9
- Mensajes : 523
Edad : 49
Localización : Moreno!
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Jue 19 Ago 2010, 22:10
Esta bueno..
- Vermell (Inti)Nivel 16
- Aportes : 1
Mensajes : 952
País :
Edad : 28
Localización : Capital federal.
Re: [Aporte]Usuario más poderoso ONLINE y duda sobre TDN
Dom 22 Ago 2010, 04:21
Che lo había testeado en un 11.5, y andubo obviamente no sirve en 12.x, pero no habrá alguna forma de adaptarlo?
Atte...
IntisiN!
Atte...
IntisiN!
Permisos de este foro:
No puedes responder a temas en este foro.