{
	deletearray .@aid[0],128;
	deletearray @aid[0],128;
	set @j,0;
	set @select$,"";
	query_sql "SELECT `friend_account` FROM `friends` WHERE `char_id` = "+getcharid(0)+"",.@aid;
	set .@num,getarraysize(.@aid);
	for(set .@i,0;.@i<.@num;set .@i,.@i+1)
		if(isloggedin(.@aid[.@i]))
		{
			set @aid[@j],.@aid[.@i];
			set @j,@j+1;
			set @select$,@select$+":"+rid2name(.@aid[.@i]);
		}
	set @menu,select(@select$)-1;
	if(attachrid(@aid[@menu]))
	{
		getmapxy(@m$,@x,@y,0);
		warp @m$,@x,@y;
		set @m$,"";
		set @x,0;
		set @y,0;
		set @j,0;
		set @select$,"";
		deletearray @aid[0],128;
	}
	close;
}