/*
VC\XNvgiACRŁj

ver 1.2.1

ftHgn͋łB
shiftL[ȂXNvgs{^Ɛݒʂo܂B
yahooVCURL𒼐ړ͂ĂB
JԂ 3600 b炢ɁB

ȓssURL ɂCӂœ͂ł܂B

Sapporo,
http://weather.yahoo.co.jp/weather/jp/1b/1400.html
Sendai,
http://weather.yahoo.co.jp/weather/jp/4/3410.html
Tokyo,
http://weather.yahoo.co.jp/weather/jp/13/4410.html
Nagoya,
http://weather.yahoo.co.jp/weather/jp/23/5110.html
Niigata,
http://weather.yahoo.co.jp/weather/jp/15/5410.html
Kanazawa,
http://weather.yahoo.co.jp/weather/jp/17/5610.html
Osaka,
http://weather.yahoo.co.jp/weather/jp/27/6200.html
Hiroshima,
http://weather.yahoo.co.jp/weather/jp/34/6710.html
Kochi,
http://weather.yahoo.co.jp/weather/jp/39/7410.html
Kagoshima,
http://weather.yahoo.co.jp/weather/jp/46/8810.html

*/


//TԓVC\(1)E\(0)
var showafter=0;



function getweather(URL){


	http = new HTTP;
	http.timeout=20;


	var weathers = new Array('no','no');
	var area = '---';
	
	try{
	  s=http.get(URL);
	  s=s.toSJIS();
	}finally{
	 http.disconnect();
	}

		
	if(s.match(/<title>(.*?)\s.*?<\/title>/igm)){
		area=RegExp.$1;
	}
		
		

	s=s.substring(s.indexOf('<!---Today--->'),s.length);

//http://i.yimg.jp/images/weather/general/forcast/sun_snow_st.gif
	//list=s.match(/http:\/\/ca.c.yimg.jp\/weather\/weather\/i.yimg.jp\/images\/weather\/general\/forcast\/.*?.gif/igm);		
	list=s.match(/http:\/\/i.yimg.jp\/images\/weather\/general\/forcast\/.*?.gif/igm);
	for (i=0;i<list.length;i++){
	  	list[i]=list[i].replace(/moon/ig,'sun');
		list[i].match(/http:\/\/i.yimg.jp\/images\/weather\/general\/forcast\/(.*?).gif/ig);
		weathers[i] = RegExp.$1;

	}
	
	
	weathers.unshift(area);
	return weathers;
}



/*
main

*/


ini=new Ini(Memo.id+'.ini');
var AreaUrl=ini.read('setting','url','http://weather.yahoo.co.jp/weather/jp/17/5610.html');


if( Keyboard.shift){  //shift key ꂽݒ
	//setting

	s=prompt('Enter URL',AreaUrl);
  	if( s  ){
  		AreaUrl=s;
  		ini.write('setting','url',s);  ini.update();
  	}
  	
}




var sl=new Strings;

sl.add("<html><head>\n<meta http-equiv='Content-Type' content='text/html; charset=shift_jis'>\n</head>");
sl.add('<body link="#4C617C" text="#555555"><font size=2 face="MS UI Gothic">');



var wout=getweather(AreaUrl);


sl.add('<img src="img/weather.gif" border=0 align=middle> <b>weather</b> [' + wout[0] + ']<br>');

sl.add('Today: <img src="img/' + wout[1] + '.gif" border=0 align=middle> / ');
sl.add('Tomorrow: <img src="img/' + wout[2] + '.gif" border=0 align=middle><br>');


	if(wout.length>3 && showafter){
		sl.add('Day after Tomorrow: ');
		for (i=3;i<wout.length;i++){
			sl.add('<img src="img/' + wout[i] + '.gif" border=0 align=middle>');
			if(i<8){sl.add(' / ');}else{ break;}
		}
	}

sl.add('</body>');


sl.saveToFile('~temp.html');

Memo.ShowAsHtml('~temp.html');



d= new Date;
yobi=new Array('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
Memo.title='Yahoo! Weather  '+ yobi[d.getDay()]+' '+   format("%.2d",d.getHours())   +':'+ sprintf('%.2d',d.getMinutes());
Memo.text='weather script';


