prontera,155,175,5	script	Mail NPC	4_F_KAFRA9,{

	.@sql$ = "SELECT `id`, `send_name`, `message`, `time`, `zeny`, `nameid`, `amount`, `refine`, `attribute`, `identify`, `card0`, `card1`, `card2`, `card3` "
			+ "FROM `mail` "
			+ "WHERE `dest_name` = '"+escape_sql( strcharinfo(0) )+"' "
			+ "LIMIT 50";
			
	query_sql( .@sql$, .@id, .@send_name$, .@title$, .@message$, .@zeny, .@nameid, .@amount, .@refine, .@attribute, .@identify, .@card0, .@card1, .@card2, .@card3 );
	.@size = getarraysize( .@id );
	
	for ( .@i = 0; .@i < .@size; .@i++ )
		.@menu$ = .@menu$ + replacestr( .@title$, ":", " " ) + ":";
	
	mes "Mail NPC";
	
	if ( !.@size ) {
		mes "No mail.";
	}
	else {
		.@i = select( .@menu$ ) - 1;
		
		mes "Sender: "+.@send_name$[.@i];
		mes "Title: "+.@title$[.@i];
		mes "Message: "+.@message$[.@i];
		if ( .@zeny[.@i] ) 
			mes "Zeny: "+.@zeny[.@i];
		if ( .@nameid && .@amount[.@i] )
			mes "Item: "+.@amount[.@i]+"x "+getitemname( .@nameid[.@i] );
		
		if ( select( "Remove Mail","Cancel" ) == 1 ) {
			if ( !checkweight( .@nameid[.@i], .@amount[.@i] ) ) {
				mes "overweight.";
			}
			else {
				query_sql( "DELETE FROM `mail` WHERE `id` = '"+.@id[.@i]+"' LIMIT 1" );
				if ( .@zeny[.@i] )
					Zeny += .@zeny[.@i];
				if ( .@nameid && .@amount[.@i] )
					getitem2 .@nameid[.@i], .@amount[.@i], .@identify[.@i], .@refine[.@i], .@attribute[.@i], .@card0[.@i], .@card1[.@i], .@card2[.@i], .@card3[.@i];
				mes "Done, mail removed.";
			}
		}
	}
	close;
}