AMSSpecialist

function ObjectFunctionPrefix(sObjectType)

	local nObjType = Page.GetObjectType(sObjectType)

	if nObjType == OBJECT_BUTTON then
		return Button
	elseif nObjType == OBJECT_LABEL then
		return Label
	elseif nObjType == OBJECT_PARAGRAPH then
		return Paragraph
	elseif nObjType == OBJECT_IMAGE then
		return Image
	elseif nObjType == OBJECT_FLASH then
		return Flash
	elseif nObjType == OBJECT_VIDEO then
		return Video 
	elseif nObjType == OBJECT_WEB then
		return Web
	elseif nObjType == OBJECT_INPUT then
		return Input
	elseif nObjType == OBJECT_HOTSPOT then
		return Hotspot
	elseif nObjType == OBJECT_LISTBOX then
		return Listbox
	elseif nObjType == OBJECT_COMBOBOX then
		return Combobox
	elseif nObjType == OBJECT_PROGRESS then
		return Progress
	elseif nObjType == OBJECT_TREE then
		return Tree
	elseif nObjType == OBJECT_RADIOBUTTON then
		return RadioButton
	elseif nObjType == OBJECT_RICHTEXT then
		return RichText
	elseif nObjType == OBJECT_CHECKBOX then
		return CheckBox
	elseif nObjType == OBJECT_SLIDESHOW then
		return Slideshow
	elseif nObjType == OBJECT_GRID then
		return Grid
	elseif nObjType == OBJECT_PDF then
		return PDF
	elseif nObjType == OBJECT_QUICKTIME then
		return QuickTime
	elseif nObjType == OBJECT_XBUTTON then
		return xButton
	elseif nObjType == OBJECT_PLUGIN then
		return Plugin
	else 
		return nil
	end
end

function IsInRect(strObject)

	local bReturn = false;
	local tObj= ObjectFunctionPrefix(strObject)
	if tObj then
	
		local tPos = tObj.GetPos(strObject)	
		local tSize = tObj.GetSize(strObject)
		
		local tMouse=System.GetMousePosition(true);
		local nX=tMouse.X
		local nY=tMouse.Y
		
		
		if (nX >= tPos.X) and (nX <= tPos.X + tSize.Width) then
			if (nY >= tPos.Y) and (nY <=tPos.Y + tSize.Height) then
				bReturn = true;
			end
		end
		
	end
	return bReturn;	
end

if IsInRect(this) and System.IsKeyDown(1) then
	Audio.Seek(CHANNEL_BACKGROUND, SEEK_SPECIFIC, e_Pos);
end

function ObjectFunctionPrefix(sObjectType)
	local nObjType = Page.GetObjectType(sObjectType)
	if nObjType == OBJECT_BUTTON then
		return Button
	elseif nObjType == OBJECT_LABEL then
		return Label
	elseif nObjType == OBJECT_PARAGRAPH then
		return Paragraph
	elseif nObjType == OBJECT_IMAGE then
		return Image
	elseif nObjType == OBJECT_FLASH then
		return Flash
	elseif nObjType == OBJECT_VIDEO then
		return Video 
	elseif nObjType == OBJECT_WEB then
		return Web
	elseif nObjType == OBJECT_INPUT then
		return Input
	elseif nObjType == OBJECT_HOTSPOT then
		return Hotspot
	elseif nObjType == OBJECT_LISTBOX then
		return Listbox
	elseif nObjType == OBJECT_COMBOBOX then
		return Combobox
	elseif nObjType == OBJECT_PROGRESS then
		return Progress
	elseif nObjType == OBJECT_TREE then
		return Tree
	elseif nObjType == OBJECT_RADIOBUTTON then
		return RadioButton
	elseif nObjType == OBJECT_RICHTEXT then
		return RichText
	elseif nObjType == OBJECT_CHECKBOX then
		return CheckBox
	elseif nObjType == OBJECT_SLIDESHOW then
		return Slideshow
	elseif nObjType == OBJECT_GRID then
		return Grid
	elseif nObjType == OBJECT_PDF then
		return PDF
	elseif nObjType == OBJECT_QUICKTIME then
		return QuickTime
	elseif nObjType == OBJECT_XBUTTON then
		return xButton
	elseif nObjType == OBJECT_PLUGIN then
		return Plugin
	else 
		return nil
	end
end

function GetSec(strObject, strBackgroundChannel)
	local Sec = nil;
	local tObj = ObjectFunctionPrefix(strObject);
	if tObj then
		if Audio.GetLength(strBackgroundChannel) ~= -1 then
			local tPos = tObj.GetPos(strObject);
			local tSize = tObj.GetSize(strObject);
			local tMouse = System.GetMousePosition(true);	
			local tAudio = Audio.GetLength(strBackgroundChannel);
			Sec = (tMouse.X-tPos.X)*(tAudio/tSize.Width);
		end
	end
	return Sec;
end

e_Pos = GetSec(this, CHANNEL_BACKGROUND);
if e_Pos ~= nil then
	Audio.Seek(CHANNEL_BACKGROUND, SEEK_SPECIFIC, e_Pos);
end