map,x,y,z	script	Cash Point Exchanger	100,{

	set .@n$, "[Cashpoint Exchanger]";
	set .@TCG, 7227;
	
	mes .@n$;
	mes "How can I help you?";
	set .@menu$, "Cash Points > TCG:TCG > Cash Points";
	set .@j, select ( .@menu$ ) - 1;
	explode(.@menu$,.@menu$,":");
	next;
	mes .@n$;
	mes .@menu$[.@j];
	mes " ";
	mes "^FF0000Input " +((!.@j)?"Cash Points":"TCG")+ " amount to be exchanged.^000000";
	input .@amt;
	next;
	mes .@n$;
	mes "Are you sure you want to trade away " +.@amt+ " " +((!.@j)?"Cash Points":"TCG")+ "?";
	if ( select ( "Yes:No" ) == 2 ) close;
	switch (.@j)
	{
		Case 0:
			if ( #CASHPOINTS >= .@amt )
			{
				close2;
				set #CASHPOINTS, #CASHPOINTS - .@amt;
				getitem .@TCG, .@amt;	
				dispbottom "You have gained " +.@amt+ " x " +getitemname(.@TCG)+ ".";	
				end;
			}
			break;
			
		Case 1:
			if ( countitem(.@TCG) >= .@amt )
			{
				close2;
				set #CASHPOINT, #CASHPOINTS + .@amt;
				delitem .@TCG, .@amt;	
				dispbottom "You have gained " +.@amt+ " Cash Points.";
				end;
			}
			break;
	}
	next;
	mes .@n$;
	mes "Invalid amount...";
	close;

}