@prog findplayer.muf
1 999 d
1 i
: main
	tolower
	0 db_top 1 - 1 for
		dbref
		dup player? if
			dup name tolower 3 pick instr if
				me @ over over unparse_object notify
			then
		then
		pop
	loop
	pop
	me @ "(Done.)" notify
;
.
c
q