Codefetch is a searchable database of scripts from online books, incudes several applescript books.