Estoy haciendo un comando para buscar x npc

centauros

Aprendiz Lvl 1
Hola , muy buenas, me dio por intentar hacer un codigo y se trataria a la contra que el /nene es decir:
que al poner /comando numpc te diga en que mapas esta localizado ese npc

nose si voy bien pero no me anda el codigo :S



Código:
If UCase$(Left$(rdata, 6)) = "/DMPD " Then
rdata = Right$(rdata, Len(rdata) - 6)
If MapaValido(val(rdata)) Then
If Npclist(Tindex).numero >= 620 And Npclist(Tindex).numero >= 669 And Npclist(Tindex).numero >= 670 And Npclist(Tindex).numero >= 671 And Npclist(Tindex).numero >= 672 And Npclist(Tindex).numero >= 673 And Npclist(Tindex).numero >= 674 And Npclist(Tindex).numero >= 675 And Npclist(Tindex).numero >= 616 And Npclist(Tindex).numero >= 617 And Npclist(Tindex).numero >= 618 And Npclist(Tindex).numero <= 619 Then
Call SendData(ToIndex, UserIndex, 0, "||Ubicacion " & Npclist(Tindex).Name & ": " & Npclist(Tindex).Pos.Map & ", " & Npclist(Tindex).Pos.X & ", " & Npclist(Tindex).Pos.Y & "." & "´" & FontTypeNames.FONTTYPE_info)

End If
Exit Sub
End If
 
Última edición:

centauros

Aprendiz Lvl 1
itera sobre todos los npcs activos y busca aquellos que coincidan con el numero
no entiendo que quieres decir.

segun intento hacer , que busque los siguientes npcs hostiles : 620, 669, 670, 671, 672, 673, 674, 675, 616, 617 618 y 619 y me diga en que mapas del juego de localizan.
 

Kchamarita

Newbie Lvl 2
algo asi amigo(no tengo vb instalado)


dim i as long
for i = 1 to lastnpc
if npclist(i).index = Mi_ID then
aca pone lo que quiera hacer
end if
next i
 
Arriba