-- EXECUTE FROM MENU
on run
	tell application "Finder"
		set theList to selection
	end tell
	methods(theList)
end run

-- EXECUTE WITH DROPPED FILES
on open theList
	methods(theList)
end open

--MAIN
on methods(theList)
	repeat with x in theList
		copy x as alias to nowFile
		tell application "Finder"
			copy file type of nowFile to nowType
			copy creator type of nowFile to nowCreator
		end tell
		--CONVERT ONLY ANARCHIE BOOKMARK FILE	
		if nowType is "AURL" and nowCreator is "Arch" then
			tell application "Finder"
				set creator type of nowFile to "FTCh"
				--UPDATE??
				update nowFile
			end tell
		end if
	end repeat
end methods