[RO] Exchange NPC - Items to Box

prontera,155,181,5	script	Sample#box_exchange	4_F_KAFRA1,{
	function func_AddBox;

	mes "What items you want to pack into boxes?";
	next;
	.@i = select( .box_menu$ ) - 1;
	mes "Item Box - "+getitemname( .box_nameid[.@i] );
	mes "Required Item - "+.amount[.@i]+"x "+getitemname( .nameid[.@i] );
	if ( .zeny[.@i] )
		mes "Required Zeny - "+F_InsertComma( .zeny[.@i] );
	if ( ( .zeny[.@i] > 0 && Zeny < .zeny[.@i] ) || ( countitem( .nameid[.@i] ) < .amount[.@i] ) )
		.@fail++;
	if ( !.@fail )
		if ( select( "Exchange","Cancel" ) == 1 ) {
			if ( .zeny[.@i] > 0 )
				Zeny -= .zeny[.@i];
			delitem .nameid[.@i],.amount[.@i];
			getitem .box_nameid[.@i],1;
			mes "Done.";
		}
	close;

	function	func_AddBox	{
		.@box_nameid = getarg(0,0);
		.@zeny = getarg(1,0);
		.@nameid = getarg(2,0);
		.@amount = getarg(3,0);

		if ( .@box_nameid && .@nameid && .@amount > 0 && .@zeny >= 0 ) {
			.box_nameid[.box_nameid_size] = .@box_nameid;
			.zeny[.box_nameid_size] = .@zeny;
			.nameid[.box_nameid_size] = .@nameid;
			.amount[.box_nameid_size] = .@amount;
			.box_nameid_size++;

			.box_menu$ = .box_menu$ + getitemname( .@box_nameid ) + ":";
			debugmes "Added "+getitemname( .@box_nameid );
		}

		return;
	}

	OnInit:
		// AddBox( <box_nameid>,<zeny_cost>,<item_id>,<amount> );
		func_AddBox( 512,1000000,511,1 );
		end;
}