// src/map/script.c

BUILDIN_FUNC(getmemolist){

	int i,count = 0;
	TBL_PC *sd=script_rid2sd(st);

	if( sd ){
		for( i = 0; i < MAX_MEMOPOINTS; i++)
			if( sd->status.memo_point[i].map ){
				pc_setregstr( sd,reference_uid( add_str("@memo_map$"), count ),mapindex_id2name(sd->status.memo_point[i].map) );
				pc_setreg( sd,reference_uid( add_str("@memo_x"), count ),sd->status.memo_point[i].x );
				pc_setreg( sd,reference_uid( add_str("@memo_y"), count ),sd->status.memo_point[i].y );
				count++;
			}
		pc_setreg(sd, add_str("@memo_count"), count);
	}
	
	return 0;
}


BUILDIN_DEF(getmemolist,""),






// NPC Scripts...

prontera,155,181,5	script	Sample#memo	757,{

getmemolist;
if( @memo_count ){
	mes "Memo Count : "+@memo_count;
	for( .@i = 0; .@i < @memo_count; .@i++ )
		mes "Memo "+( .@i+1 )+" : "+@memo_map$[.@i]+","+@memo_x[.@i]+","+@memo_y[.@i];
	.@i = select( implode( @memo_map$,":" ) ) - 1;
	warp @memo_map$[.@i],@memo_x[.@i],@memo_y[.@i];
}else{
	mes "You dont have any Memo Points.";
}
close;
}