function SetShop {
	set .@menu$,"";
	set .@p,getargcount();
	function	bool	{
		if(getarg(1))
			return "( ^FF0000"+.Shops$[getarg(0)]+"^000000 )";
		else
			return "( ^0000FF"+.Shops$[getarg(0)]+"^000000 )";
	}
	for(set .@i,0;.@i<.@p;set .@i,.@i+1)
	{
		set .@c,getarg(.@i);
		if( .@menu$ != "" )
			set .@menu$,bool(.@c,1)+":"+.@menu$;
		else
			set .@menu$,bool(.@c,1);
		set .@j[.@p-.@i-1],.@c;
	}
	for(set .@i,0;.@i<=13;set .@i,.@i+1)
	{
		if( .@menu$ != "" )
			set .@menu$,.@menu$+":"+bool(.@i,0);
		else
			set .@menu$,bool(.@i,0);
		set .@j[.@p+.@i],.@i;
	}
	mes "[ ^0000FFWeapon Shop^000000 ]";
	mes "Please choose your desired shop.";
	callshop .Shops$[.@j[select(.@menu$)-1]],1;
	close;
}