Exchanger script plz :D

[Santafe]

Can any 1 provide me a exchange script which gives Cashpoints for emblem of sungod? Thx in advance

[Yoona]

Here Credits goes to Emistry  

prontera,155,181,5	script	Sample	757,{
setarray .@ItemID[0],<ItemID>,<ItemID2>;

for( set .@i,0; .@i < getarraysize( .@ItemID ); set .@i,.@i + 1 )
	set .@Menu$,.@Menu$ + getitemname( .@ItemID[.@i] )+":";
mes "Each 2 Cash Points.";
set .@i,( select( .@Menu$ ) - 1 );
if( #CASHPOINTS < 2 ){
	mes "Sorry but you didnt have 2 Cash Points.";
}else{
	mes "How many you want ?";
	mes "Amount : 1 ~ "+( #CASHPOINTS / 2 );
	input .@Amount,0,( #CASHPOINTS / 2 );
	if( .@Amount ){
		set #CASHPOINTS,#CASHPOINTS - ( .@Amount * 2 );
		getitem .@ItemID[.@i],.@Amount;
		mes "Done";
	}
}
close;
}

[Santafe]

Wow +1 thxx emistry and yoona