/BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Ir abajo

/BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Hykarius AOS el 19/1/2017, 5:51 pm

Bueno les traigo el comando buscar que no es mio , es para 13.0 y los demás que vi no funcionaban.
ACLARO NO ES MiO es de Nigtiio Creditos para él un genio el único /BUSCAR que andubo.

EN MOD GENERAL BUSCAN:

Código:
public Function Intemperie(ByVal UserIndex As Integer) As Boolean

PONEN ABAJO:

Código:
Public Function Tilde(Data As String) As String
   
   Tilde = Replace(Replace(Replace(Replace(Replace(UCase$(Data), "Á", "A"), "É", "E"), "Í", "I"), "Ó", "O"), "Ú", "U")
   
   End Function

BUSCAN:

Código:
Meditate                '/MEDITAR

ABAJO PONEN:

Código:
SearchObj               '/BUSCAR [OBJETO]

EN EL SUB HandleIncomingData BUSCAN

Código:
Case ClientPacketID.Meditate                '/MEDITAR
           Call HandleMeditate(UserIndex)

ABAJO PONEN:

Código:
Case ClientPacketID.SearchObj               '/BUSCAR [OBJETO]
               Call HandleSearchObj(UserIndex)

EN EL MODULO PROTOCOL.BAS BUSCAN:

Código:
Private Sub HandleServerMessage(ByVal UserIndex As Integer)

Y ARRIBA DE:

Código:
''
' Handles the "ServerMessage" message.
'
' @param    userIndex The index of the user sending the message.

PONEMOS ESTO:

Código:
Public Sub HandleSearchObj(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)
           'This packet contains strings, make a copy of the data to prevent losses if it's not complete yet...
           Dim buffer As New clsByteQueue
           Call buffer.CopyBuffer(.incomingData)
         
           'Remove packet ID
           Call buffer.ReadByte
         
           Dim UserObj As String
           Dim tUser As Integer
           Dim rank As Integer
           Dim N As Integer
           Dim I As Integer
         
           rank = PlayerType.Admin Or PlayerType.Dios Or PlayerType.SemiDios Or PlayerType.Consejero
         
           UserObj = buffer.ReadASCIIString()
         
           If (.flags.Privilegios And (PlayerType.Admin Or PlayerType.Dios Or PlayerType.SemiDios)) Then
             
               For I = 1 To UBound(ObjData)
                   If InStr(1, Tilde(ObjData(I).name), Tilde(UserObj)) Then
                       Call WriteConsoleMsg(UserIndex, I & " " & ObjData(I).name & ".", FontTypeNames.FONTTYPE_CENTINELA)
                       N = N + 1
                   End If
               Next
               If N = 0 Then
                   Call WriteConsoleMsg(UserIndex, "No hubo resultados de la busqueda: " & UserObj, FontTypeNames.FONTTYPE_INFO)
               Else
                   Call WriteConsoleMsg(UserIndex, "Hubo " & N & " resultados de la busqueda: " & UserObj, FontTypeNames.FONTTYPE_INFO)
               End If
             
           End If
         
           'If we got here then packet is complete, copy data back to original queue
           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

@@@@@@@@@LISTO EL SERVIDOR TODO FUNCiONAL@@@@@@@

PASAMOS AL CLIENTE:

BUSCAN:

Código:
Meditate                '/MEDITAR

ABAJO PONEN:

Código:
SearchObj               '/BUSCAR [OBJETO]

BUSCAN:

Código:
Case "/GUARDAMAPA"
                   Call WriteSaveMap

DEBAJO PONEN:

Código:
Case "/BUSCAR"
                   If ArgumentosAll(0) <> "" Then
                       Call WriteSearchObj(ArgumentosAll(0))
                   End If

Y POR ÚLTIMO BUSCAN:

Código:
Public Sub WriteServerMessage(ByVal Message As String

Y ARRIBA DE ESTO:

Código:
''
' Writes the "ServerMessage" message to the outgoing data buffer.
'
' @param    message The message to be sent to players.
' @remarks  The data is not actually sent until the buffer is properly flushed.

PONEN:

 
Código:
Public Sub WriteSearchObj(ByVal restrict As String)
   '***************************************************
   'Author: Leandro (Mannakia)
   'Last Modification: 10/07/2009
   '***************************************************
       With outgoingData
           Call .WriteByte(ClientPacketID.SearchObj)
         
           Call .WriteASCIIString(restrict)
       End With
   End Sub

@@@@@@@@@@@@@@@@@@@@LISTO EL CLIENTE TESTEADO Y FUNCIONAL@@@@@@@@@@@

Saludos!


Última edición por Hykarius AOS el 20/1/2017, 1:54 am, editado 10 veces

Hykarius AOS
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 4
Localización : Maza 1521
Fecha de inscripción : 03/09/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: /BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Toyz el 19/1/2017, 11:52 pm

Gracias por el aporte, por favor editá el thread y etiquetá el código con
[....code][..../code] (sin el ....)

Ejemplo:

[code=vb]
Dim Arrays() as Long

ReDim Arrays(1 to ServersArgentums.Usuarios) as long
[/code]


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: /BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Hykarius AOS el 20/1/2017, 1:56 am

Listo , Gracias Saludos!

Hykarius AOS
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 4
Localización : Maza 1521
Fecha de inscripción : 03/09/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: /BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Toyz el 20/1/2017, 6:21 am

¡Ahí quedó genial!, gracias por aportar!


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: /BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Firestorm el 10/2/2017, 8:29 pm

Gracias!, lo venia buscando.
avatar
Firestorm
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 24
Localización : Indonesia
Fecha de inscripción : 10/02/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: /BUSCAR [13.0] FUNCIONAL Y TESTEADO.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.