#include "hspext.as"
#include "url.as"
#include "inictl.as"

;「google-cache clip」ver1.40
;------------------------------------------------
;設定読み込み

	sdim clip,250				;バッファ確保
	sdim useurl,10				;バッファ確保
	sdim uselang,40				;バッファ確保
	sdim url,10,11				;配列変数の宣言
	uselang=""
	
	ini_file "google.ini"		;iniファイル名の指定
	ini_section "google"		;iniセクション名[google]
	ini_getint site,"site"		;site どこの国で検索するの？（）
	ini_getint lang,"lang"		;lang 何語で検索するのさ？（0:指定なし、1:日本語）
	ini_getint jump,"jump"		;I'm Feeling Lucky使う？（1:使用）

	url="co.jp","com","co.kr","de","fr","co.uk","it","ch","ca","com.mx","co.il"
	useurl=url.site				; useurlにgoogleのURLの末尾を代入

	if jump!=0 : uselang=uselang+"&btnI=I%27m+Feeling+Lucky"
	if lang!=0 : uselang=uselang+"&lr=lang_ja"

;------------------------------------------------
;メイン

	clipget clip,150			;クリップボードの内容を取得（150バイトまで）

	instr cache1,clip,"http://"	;http://を含む場合はキャッシュに変換
	instr cache2,clip,"www."	;www.を含む場合はキャッシュに変換

	if (cache1=0)|(cache2=0) {
		clip="http://www.google."+useurl+"/search?q=cache:"+clip	;キャッシュ変換
}	else {
		urlenc clip,clip		;URLエンコード
		clip="http://www.google."+useurl+"/search?q="+clip+uselang		;通常検索変換
}	

	exec clip,16				;ブラウザ起動
	end

;------------------------------------------------
;Copyright 2003 karia All rights reserved.
;Thanks to : USKさん・Ｋ−Ｋさん・ 堅田和之さん