getinventorylist;
		next;
		set .@menu2$,"";
		for(set .@i,0; .@i<getarraysize(@inventorylist_id); set .@i,.@i+1){
			if((@inventorylist_id[.@i] => 4700) && (@inventorylist_id[.@i] <= 4824)){
				set .@menu2$,.@menu2$+getitemname(@inventorylist_id[.@i])+":";
			}
		}
		set .@Stone,@inventorylist_id[select(.@menu2$)-1];