Comando /buscar

Buscamos


If UCase$(Left$(rData, 6)) = "/RMSG " Then
rData = Right$(rData, Len(rData) - 6)
Call LogGM(UserList(UserIndex).name, "Mensaje Broadcast:" & rData, False)
If rData <> "" Then
Call SendData(SendTarget.ToAll, 0, 0, "||" & rData & FONTTYPE_TALK & ENDC)
End If
Exit Sub
End If



Y debajo colocamos:



If UCase$(Left$(rData, ) = "/BUSCAR " Then
rData = Right$(rData, Len(rData) -
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



Ahora buscamos


Function MapaValido(ByVal Map As Integer) As Boolean



Y arriba colocamos


Public Function Tilde(Data As String) As String

Tilde = Replace(Replace(Replace(Replace(Replace(UCase$(Data), "Á", "A"), "É", "E"), "Í", "I"), "Ó", "O"), "Ú", "U")

End Function



Bueno la funcion es poner /buscar xxxx y te va a aparecer el numero de item y nombre

Ejemplo:
/buscar arco