GS-Zone

¡Pregunta! CODE BUSCAR ITEM Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

9

Nota » 30 Jul 2009 14:12

Una preg.. como puedo adaptar este code de 0.11.5 a 0.11.2 ?
Muchas gracias.



  1. If UCase$(Left$(rData, 8)) = "/BUSCAR " Then
  2.     rData = Right$(rData, Len(rData) - 8)
  3.     For i = 1 To UBound(ObjData)
  4.         If InStr(1, Tilde(ObjData(i).name), Tilde(rData)) Then
  5.             Call SendData(ToIndex, UserIndex, 0, "||" & i & " " & ObjData(i).name & "." & FONTTYPE_INFO)
  6.             N = N + 1
  7.         End If
  8.     Next
  9.     If N = 0 Then
  10.         Call SendData(ToIndex, UserIndex, 0, "||No hubo resultados de la búsqueda: " & rData & "." & FONTTYPE_INFO)
  11.     Else
  12.         Call SendData(ToIndex, UserIndex, 0, "||Hubo " & N & " resultados de la busqueda: " & rData & "." & FONTTYPE_INFO)
  13.     End If
  14.     Exit Sub
  15. End If

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5

Nota » 01 Ago 2009 20:31

Hoka,Igual te recomiendo un Fenix y/o 11.5 Pero usa el ke te puso naaan me gano de mano
Última edición por Sonter el 02 Ago 2009 00:47, editado 1 vez en total

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18

Nota » 01 Ago 2009 20:45

Sonter escribió:Amigo,Como vas a tener un sv si no sabes programar

Aca te lo dejo

  1. If UCase$(Left$(rData, 8)) = "/BUSCAR " Then
  2.     rData = Right$(rData, Len(rData) - 8)
  3.     For i = 1 To UBound(ObjData)'Aca direccion del archivo
  4.         If InStr(1, Tilde(ObjData(i).name), Tilde(rData)) Then
  5.             Call SendData(ToIndex, UserIndex, 0, "||" & i & " " & ObjData(i).name & "." & FONTTYPE_INFO)
  6.             N = N + 1
  7.         End If
  8.     Next
  9.     If N = 0 Then
  10.         Call SendData(ToIndex, UserIndex, 0, "||No hubo resultados de la búsqueda: " & rData & "." & FONTTYPE_INFO)
  11.     Else
  12.         Call SendData(ToIndex, UserIndex, 0, "||Hubo " & N & " resultados de la busqueda: " & rData & "." & FONTTYPE_INFO)
  13.     End If
  14.     Exit Sub
  15. End If


LO MISMO TE PREGUNTO!, porque no sabes y tenes un servidor?

Le dejaste EXACTAMENTE lo mismo, lee lo que pones :/, solo le agregaste 1 comentario, y no edites tu post dsp, porque el mio ya te quotee =P

Saludos, y adaptalo solamente poniednole en los Call senddatas, antes del (TOINDEX, un Sendtarget. osea, call senddata(sendtarget.toindex, bla bla bla.y lesto!.

Imagen
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)

Nota » 01 Ago 2009 21:36

Jajaja flasheo re mal ese sonter


Ya lo dijo Naan: agregale lo del Sendtarget a los senddata

"Dios, sospecho que eres un intelectual de izquierda."

-Grafiti del Mayo Francés
La venganza es un placer
733
Moderador Global
Registrado: 5 Años de membresía!Años de membresía
Mensajes: 8605
Aportes: 26
Premios: 1
Campeón de Truco (1)

Nota » 04 Ago 2009 19:12

Porque nunca lei un manual hombre, no se la diferencia de variables de versiones
Aprendi tocando, no leyendo, no tengo tiempo para leerme un manual de pc de 93 páginas captas?
no se hagan los langas porque saben de variables, y no roben post

Muchos tubieron servidores aprendiendo de 0.
Yo soy uno, no hablen al pedo, tamos ?


Encima se equibocan, porque no hace falta poner SendTarget antes del ToIndex ¬¬

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5

Nota » 04 Ago 2009 22:02

Flaco, le dije que para 11.5 le ponga los sendtarget, ahora que veo, es de 11.5 a 11.2 dice, pero 11.5 lleva SENDTARGET, asique ese codigo NO ES DE 11.5, que diga mejor.

Y si no tenes tiempo, te aconsejo leerte uno, ademas de los call senddatas de 11.5 asi vez como se escriben

Imagen
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)

Nota » 05 Ago 2009 17:49

Ese código lo sacaste de Fénix, ¿no?

Fénix es 9.99z


...

"Dios, sospecho que eres un intelectual de izquierda."

-Grafiti del Mayo Francés
La venganza es un placer
733
Moderador Global
Registrado: 5 Años de membresía!Años de membresía
Mensajes: 8605
Aportes: 26
Premios: 1
Campeón de Truco (1)

Nota » 05 Ago 2009 18:35

ArzenaTh escribió:Ese código lo sacaste de Fénix, ¿no?

Fénix es 9.99z


...



:?:
no robes post man :S

Ya tiene solucion
pueden cerrar el thread

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5

Nota » 09 Ago 2009 13:31

Beledrian escribió:
ArzenaTh escribió:Ese código lo sacaste de Fénix, ¿no?

Fénix es 9.99z


...



:?:
no robes post man :S

Ya tiene solucion
pueden cerrar el thread

No estaba robando post, estaba diciendo eso, porque, por lo visto, el código ese no es de 11.5
...

"Dios, sospecho que eres un intelectual de izquierda."

-Grafiti del Mayo Francés
La venganza es un placer
733
Moderador Global
Registrado: 5 Años de membresía!Años de membresía
Mensajes: 8605
Aportes: 26
Premios: 1
Campeón de Truco (1)


Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados