Muchas gracias.
- If UCase$(Left$(rData, 8)) = "/BUSCAR " Then
- rData = Right$(rData, Len(rData) - 8)
- For i = 1 To UBound(ObjData)
- If InStr(1, Tilde(ObjData(i).name), Tilde(rData)) Then
- Call SendData(ToIndex, UserIndex, 0, "||" & i & " " & ObjData(i).name & "." & FONTTYPE_INFO)
- N = N + 1
- End If
- Next
- If N = 0 Then
- Call SendData(ToIndex, UserIndex, 0, "||No hubo resultados de la búsqueda: " & rData & "." & FONTTYPE_INFO)
- Else
- Call SendData(ToIndex, UserIndex, 0, "||Hubo " & N & " resultados de la busqueda: " & rData & "." & FONTTYPE_INFO)
- End If
- Exit Sub
- End If





17![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)

![Oraculo [4] Oraculo [4]](./images/ranks/Rango28.gif)

![Legendario Inmortal [1] Legendario Inmortal [1]](./images/ranks/Rango36.gif)

