Item Exchanger HELP

[awesomazingxed]

Halo rathena. Can someone please fix this script for me. This is a simple item exchanger I just want to have a menu of:

 

1. Skulls to PODS

2. PODS to SKULL

 

Thanks in advance. 

turbo_room,106,117,4	script	Currency Exchanger	860,{

	mes callfunc("F_Hi");
	mes "Yo! I am the Currency Exchanger!";
	mes "Do you want to change your Skulls to PODS?";
	mes "or I rather say your PODS to Skulls?";
	next;
switch(select("Skulls to PODS:PODS to Skulls")) {

case 1:
if( countitem(7420) < 1000 )
	mes "You didnt have 1000 "+getitemname( 7420 );
else{
	set .@Amount,( countitem(7420) / 1000 );
	delitem 7420,( .@Amount * 1000 );
	getitem 7179,.@Amount;
	mes "Done...you gained "+.@Amount+" "+getitemname(7179);
}
close;
}

case 2:
if( countitem(7179) < 1 )
	mes "You didnt have 1 "+getitemname( 7179 );
else{
	set .@Amount,( countitem(7179) / 1 );
	delitem 7179,( .@Amount * 1 );
	getitem 7420,( .@Amount * 1000 );;
	mes "Done...you gained "+.@Amount+" "+getitemname(7420);
}
close;
}

Anyone?