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

;「google-cache clip」ver1.20
;------------------------------------------------

	sdim clip,150				;バッファ確保
	sdim useurl,10				;バッファ確保
	sdim uselang,10				;バッファ確保

	ini_file "google.ini"			;iniファイル名の指定
	ini_section "google"			;iniセクション名[google]
	ini_getint site,"site"		;site どこの国で検索するの？
	ini_getint lang,"lang"		;lang 何語で検索するのさ？

	if site=0 : useurl="co.jp"
	if site=1 : useurl="com"
	if lang=0 : uselang="&lr=lang_ja"
	if lang=1 : uselang=""

	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 2001 karia All rights reserved.
;Thanks to : USKさん・Ｋ−Ｋさん