////////////////////////////////////////////////////////////////////
//  This is weather template for Spb Weather application.
//
//  Version 2.0
//  Author: nextEDGE Technology K.K. T.Sakamoto
//  
//  Description: This template uses Yahoo! Japan weather information
//
//  2007 Copyrights nextEDGE Technology K.K. all rights reserved.
//  History:
//  v2.0 2007.02.23
//  - Updates:
//  Added areaMap support for user who want to set CityCode by name. (i.e. tokyo)
//
//  v1.2 2007.02.06
//  - Updates:
//  Enhanced to provide detail information for 2nd day. 
//  Compatible with version 1.7 of Spb Weather.
//
//  v1.1.1 2007.02.02
//  - Updates:
//  Updated to fix problem with it does not detect winddir information.
//
//  v1.1 2007.02.01
//  - Updates:
//  Updated to fully support wind direction information
//  NOTE: There is bug with Spb Weather ( Transaltion issue ).
//        It causes incorrect wind direction in Japanese
//
//  v1.0 2007.01.31
//  - Updates:
//  Updated SkyMap.  Now it has all sky information
//  Added WindDirection Map
//     Due to encoding issue, we do not handle "NNE","NE","ENE", "E", "ESE", "SE","SSE", "S"
//
//  - BUG Fix:
//  Issue fix that it does not get 1st days wind speed information.
////////////////////////////////////////////////////////////////////

main
{
	string firstDay_dayOfMonth;
	string firstDay_sky0;
	string firstDay_sky3;
	string firstDay_sky6;
	string firstDay_sky9;
	string firstDay_sky12;
	string firstDay_sky15;
	string firstDay_sky18;
	string firstDay_sky21;
	string secondDay_dayOfMonth;
	string secondDay_sky0;
	string secondDay_sky3;
	string secondDay_sky6;
	string secondDay_sky9;
	string secondDay_sky12;
	string secondDay_sky15;
	string secondDay_sky18;
	string secondDay_sky21;
	string thirdDay_dayOfMonth;
	string thirdDay_sky;
	string fourthDay_dayOfMonth;
	string fourthDay_sky;
	string fifthDay_dayOfMonth;
	string fifthDay_sky;
	string sixthDay_dayOfMonth;
	string sixthDay_sky;
	string seventhDay_dayOfMonth;
	string seventhDay_sky;
	string eigthDay_dayOfMonth;
	string eigthDay_sky;

	string firstDay_tmpr0;
	string firstDay_tmpr3;
	string firstDay_tmpr6;
	string firstDay_tmpr9;
	string firstDay_tmpr12;
	string firstDay_tmpr15;
	string firstDay_tmpr18;
	string firstDay_tmpr21;
	string secondDay_tmpr0;
	string secondDay_tmpr3;
	string secondDay_tmpr6;
	string secondDay_tmpr9;
	string secondDay_tmpr12;
	string secondDay_tmpr15;
	string secondDay_tmpr18;
	string secondDay_tmpr21;
	string thirdDay_tmprHi;
	string thirdDay_tmprLo;
	string fourthDay_tmprHi;
	string fourthDay_tmprLo;
	string fifthDay_tmprHi;
	string fifthDay_tmprLo;
	string sixthDay_tmprHi;
	string sixthDay_tmprLo;
	string seventhDay_tmprHi;
	string seventhDay_tmprLo;
	string eigthDay_tmprHi;
	string eigthDay_tmprLo;

	string firstDay_humidity0;
	string firstDay_humidity3;
	string firstDay_humidity6;
	string firstDay_humidity9;
	string firstDay_humidity12;
	string firstDay_humidity15;
	string firstDay_humidity18;
	string firstDay_humidity21;
	string secondDay_humidity0;
	string secondDay_humidity3;
	string secondDay_humidity6;
	string secondDay_humidity9;
	string secondDay_humidity12;
	string secondDay_humidity15;
	string secondDay_humidity18;
	string secondDay_humidity21;
	string thirdDay_humidity;
	string fourthDay_humidity;
	string fifthDay_humidity;
	string sixthDay_humidity;
	string seventhDay_humidity;
	string eigthDay_humidity;

	string firstDay_windSpeed0;
	string firstDay_windSpeed3;
	string firstDay_windSpeed6;
	string firstDay_windSpeed9;
	string firstDay_windSpeed12;
	string firstDay_windSpeed15;
	string firstDay_windSpeed18;
	string firstDay_windSpeed21;
	string secondDay_windSpeed0;
	string secondDay_windSpeed3;
	string secondDay_windSpeed6;
	string secondDay_windSpeed9;
	string secondDay_windSpeed12;
	string secondDay_windSpeed15;
	string secondDay_windSpeed18;
	string secondDay_windSpeed21;
	string thirdDay_windSpeed;
	string fourthDay_windSpeed;
	string fifthDay_windSpeed;
	string sixthDay_windSpeed;
	string seventhDay_windSpeed;
	string eigthDay_windSpeed;

	string firstDay_windDirection0;
	string firstDay_windDirection3;
	string firstDay_windDirection6;
	string firstDay_windDirection9;
	string firstDay_windDirection12;
	string firstDay_windDirection15;
	string firstDay_windDirection18;
	string firstDay_windDirection21;
	string secondDay_windDirection0;
	string secondDay_windDirection3;
	string secondDay_windDirection6;
	string secondDay_windDirection9;
	string secondDay_windDirection12;
	string secondDay_windDirection15;
	string secondDay_windDirection18;
	string secondDay_windDirection21;
	string thirdDay_windDirection;
	string fourthDay_windDirection;
	string fifthDay_windDirection;
	string sixthDay_windDirection;
	string seventhDay_windDirection;
	string eigthDay_windDirection;

   pointer weatherStart
   {
      go_start;
      //skip_to_text("<!---pinpoint--->", true); ε���к�del
      skip_to_text("<b>�ԥ�ݥ����ŷ��</b>", false); //ε���к�ins
   };

   pointer weatherEnd
   {
      //skip_to_text("<!---/pinpoint--->", true); ε���к�del
      skip_to_text("<b>�쥸�㡼����</b>", false); //ε���к�ins
   };

	map areaMap
	{
		//�̳�ƻ
		key_value("sapporo", "1b/1400/1102");
		key_value("hakodate", "1d/2300/1202");
		key_value("otaru", "1b/1600/1203");
		key_value("asahikawa", "1a/1200/1204");
		key_value("muroran", "1d/2100/1205");
		key_value("kushiro", "1c/1900/1206");
		key_value("obihiro", "1c/2000/1207");
		key_value("kitami", "1c/1720/1208");
		key_value("iwamizawa", "1b/1500/1210");
		key_value("yubari", "1b/1500/1209");
		key_value("abashiri", "1c/1710/1211");
		key_value("rumoi", "1a/1300/1212");
		key_value("tomakomai", "1d/2100/1213");
		key_value("wakkanai", "1a/1100/1214");
		key_value("bibai", "1b/1500/1215");
		key_value("ashibetsu", "1b/1500/1216");
		key_value("ebetsu", "1b/1400/1217");
		key_value("akabira", "1b/1500/1218");
		key_value("monbetsu", "1c/1730/1219");
		key_value("shibetsu", "1a/1200/1220");
		key_value("nayoro", "1a/1200/1221");
		key_value("mikasa", "1b/1500/1222");
		key_value("nemuro", "1c/1800/1223");
		key_value("chitose", "1b/1400/1224");
		key_value("takikawa", "1b/1500/1225");
		key_value("sunagawa", "1b/1500/1226");
		key_value("utashinai", "1b/1500/1227");
		key_value("fukagawa", "1b/1500/1228");
		key_value("furano", "1a/1200/1229");
		key_value("noboribetsu", "1d/2100/1230");
		key_value("eniwa", "1b/1400/1231");
		key_value("date", "1d/2100/1233");
		key_value("ishikari", "1b/1400/1235");
		key_value("kitahiroshima", "1b/1400/1234");
		key_value("hokuto", "1d/2300/1236");

		//�Ŀ�
		key_value("hirosaki", "2/3110/2202");
		key_value("aomori", "2/3110/2201");
		key_value("hachinohe", "2/3130/2203");
		key_value("kuroishi", "2/3110/2204");
		key_value("goshogawara", "2/3110/2205");
		key_value("towada", "2/3130/2206");
		key_value("misawa", "2/3130/2207");
		key_value("mutsu", "2/3120/2208");
		key_value("tsugaru", "2/3110/2209");
		key_value("hirakawa", "2/3110/2210");
		
		//����
		key_value("akita", "5/3210/5201");
		key_value("noshiro", "5/3210/5202");
		key_value("odate", "5/3220/5204");
		key_value("yokote", "5/3220/5203");
		key_value("yurihonjo", "5/3210/5210");
		key_value("oga", "5/3210/5206");
		key_value("yuzawa", "5/3220/5207");
		key_value("daisen", "5/3220/5212");
		key_value("kazuno", "5/3220/5209");
		key_value("katagami", "5/3210/5211");
		key_value("kitaakita", "5/3220/5213");
		key_value("semboku", "5/3220/5215");
		key_value("nikaho", "5/3210/5214");
		
		//���
		key_value("morioka", "3/3310/3201");
		key_value("kamaishi", "3/3330/3211");
		key_value("miyako", "3/3320/3202");
		key_value("ichinoseki", "3/3310/3209");
		key_value("ofunato", "3/3330/3203");
		key_value("oshu", "3/3310/3215");
		key_value("hanamaki", "3/3310/3205");
		key_value("kitakami", "3/3310/3206");
		key_value("kuji", "3/3320/3207");
		key_value("tono", "3/3310/3208");
		key_value("rikuzentakata", "3/3330/3210");
		key_value("ninohe", "3/3310/3213");
		key_value("hachimantai", "3/3310/3214");
		
		//����
		key_value("yyamagata", "6/3510/6201");
		key_value("yonezawa", "6/3520/6202");
		key_value("tsuruoka", "6/3530/6203");
		key_value("sakata", "6/3530/6204");
		key_value("shinjo", "6/3540/6205");
		key_value("sagae", "6/3510/6206");
		key_value("kaminoyama", "6/3510/6207");
		key_value("murayama", "6/3510/6208");
		key_value("nagai", "6/3520/6209");
		key_value("tendo", "6/3510/6210");
		key_value("higashine", "6/3510/6211");
		key_value("obanazawa", "6/3510/6212");
		key_value("nanyo", "6/3520/6213");
		
		//�ܾ�
		key_value("sendai", "4/3420/4101");
		key_value("ishinomaki", "4/3410/4202");
		key_value("shiogama", "4/3410/4203");
		key_value("osaki", "4/3410/4215");
		key_value("kesennuma", "4/3410/4205");
		key_value("shiroishi", "4/3420/4206");
		key_value("natori", "4/3410/4207");
		key_value("kakuda", "4/3410/4208");
		key_value("tagajo", "4/3410/4209");
		key_value("iwanuma", "4/3410/4211");
		key_value("tome", "4/3410/4212");
		key_value("kurihara", "4/3410/4213");
		key_value("higashimatsushima", "4/3410/4214");
		
		//ʡ��
		key_value("aizuwakamatsu", "7/3630/7202");
		key_value("fukushima", "7/3610/7201");
		key_value("koriyama", "7/3610/7203");
		key_value("iwaki", "7/3620/7204");
		key_value("shirakawa", "7/3610/7205");
		key_value("minamisoma", "7/3620/7212");
		key_value("sukagawa", "7/3610/7207");
		key_value("kitakata", "7/3630/7208");
		key_value("soma", "7/3620/7209");
		key_value("nihonmatsu", "7/3610/7210");
		key_value("tamura", "7/3610/7211");
		key_value("date", "7/3610/7213");
		key_value("motomiya", "7/3610/7214");
		
		//����
		key_value("niigata", "15/5410/15201");
		key_value("nagaoka", "15/5420/15202");
		key_value("joetsu", "15/5430/15222");
		key_value("sanjo", "15/5420/15204");
		key_value("kashiwazaki", "15/5420/15205");
		key_value("shibata", "15/5410/15206");
		key_value("ojiya", "15/5420/15208");
		key_value("kamo", "15/5420/15209");
		key_value("tokamachi", "15/5420/15210");
		key_value("mitsuke", "15/5420/15211");
		key_value("tsubame", "15/5410/15213");
		key_value("murakami", "15/5410/15212");
		key_value("itoigawa", "15/5430/15216");
		key_value("myoko", "15/5430/15217");
		key_value("gosen", "15/5410/15218");
		key_value("sado", "15/5440/15224");
		key_value("agano", "15/5410/15223");
		key_value("uonuma", "15/5420/15225");
		key_value("minamiuonuma", "15/5420/15461");
		key_value("tainai", "15/5410/15227");
		
		//�ٻ�
		key_value("toyama", "16/5510/16201");
		key_value("takaoka", "16/5520/16202");
		key_value("imizu", "16/5520/16211");
		key_value("uozu", "16/5510/16204");
		key_value("himi", "16/5520/16205");
		key_value("namegawa", "16/5510/16206");
		key_value("kurobe", "16/5510/16207");
		key_value("tonami", "16/5520/16208");
		key_value("oyabe", "16/5520/16209");
		key_value("nanto", "16/5520/16210");
		
		//����
		key_value("kanazawa", "17/5610/17201");
		key_value("nanao", "17/5620/17202");
		key_value("komatsu", "17/5610/17203");
		key_value("wajima", "17/5620/17204");
		key_value("suzu", "17/5620/17205");
		key_value("kaga", "17/5610/17206");
		key_value("hakui", "17/5620/17207");
		key_value("hakusan", "17/5610/17210");
		key_value("kahoku", "17/5610/17209");
		key_value("nomi", "17/5610/17211");
		
		//ʡ��
		key_value("fukui", "18/5710/18201");
		key_value("tsuruga", "18/5720/18202");
		key_value("echizen", "18/5710/18209");
		key_value("obama", "18/5720/18204");
		key_value("ono", "18/5710/18205");
		key_value("katsuyama", "18/5710/18206");
		key_value("sabae", "18/5710/18207");
		key_value("awara", "18/5710/18208");
		key_value("sakai", "18/5710/18210");
		
		//��
		key_value("nagano", "20/4810/20201");
		key_value("matsumoto", "20/4820/20202");
		key_value("ueda", "20/4820/20203");
		key_value("okaya", "20/4820/20204");
		key_value("iida", "20/4830/20205");
		key_value("suwa", "20/4820/20206");
		key_value("suzaka", "20/4810/20207");
		key_value("komoro", "20/4820/20208");
		key_value("ina", "20/4830/20209");
		key_value("nnakano", "20/4810/20211");
		key_value("omachi", "20/4810/20212");
		key_value("komagane", "20/4830/20210");
		key_value("iiyama", "20/4810/20213");
		key_value("chino", "20/4820/20214");
		key_value("shiojiri", "20/4820/20215");
		key_value("chikuma", "20/4810/20218");
		key_value("saku", "20/4820/20217");
		key_value("tomi", "20/4820/20219");
		key_value("azumino", "20/4820/20220");
		
		//���
		key_value("hachioji", "13/4410/13201");
		key_value("tachikawa", "13/4410/13202");
		key_value("musashino", "13/4410/13203");
		key_value("mitaka", "13/4410/13204");
		key_value("ome", "13/4410/13205");
		key_value("tfuchu", "13/4410/13206");
		key_value("akishima", "13/4410/13207");
		key_value("chofu", "13/4410/13208");
		key_value("machida", "13/4410/13209");
		key_value("koganei", "13/4410/13210");
		key_value("kodaira", "13/4410/13211");
		key_value("hino", "13/4410/13212");
		key_value("higashimurayama", "13/4410/13213");
		key_value("kokubunji", "13/4410/13214");
		key_value("kunitachi", "13/4410/13215");
		key_value("nishitokyo", "13/4410/13229");
		key_value("fussa", "13/4410/13218");
		key_value("komae", "13/4410/13219");
		key_value("higashiyamato", "13/4410/13220");
		key_value("kiyose", "13/4410/13221");
		key_value("higashikurume", "13/4410/13222");
		key_value("musashimurayama", "13/4410/13223");
		key_value("tama", "13/4410/13224");
		key_value("inagi", "13/4410/13225");
		key_value("akiruno", "13/4410/13228");
		key_value("hamura", "13/4410/13227");
		key_value("chiyoda", "13/4410/13101");
		key_value("chuo", "13/4410/13102");
		key_value("minato", "13/4410/13103");
		key_value("shinjuku", "13/4410/13104");
		key_value("bunkyo", "13/4410/13105");
		key_value("taito", "13/4410/13106");
		key_value("sumida", "13/4410/13107");
		key_value("koto", "13/4410/13108");
		key_value("shinagawa", "13/4410/13109");
		key_value("meguro", "13/4410/13110");
		key_value("tota", "13/4410/13111");
		key_value("setagaya", "13/4410/13112");
		key_value("shibuya", "13/4410/13113");
		key_value("tnakano", "13/4410/13114");
		key_value("suginami", "13/4410/13115");
		key_value("toshima", "13/4410/13116");
		key_value("kita", "13/4410/13117");
		key_value("arakawa", "13/4410/13118");
		key_value("itabashi", "13/4410/13119");
		key_value("nerima", "13/4410/13120");
		key_value("adachi", "13/4410/13121");
		key_value("katsushika", "13/4410/13122");
		key_value("edogawa", "13/4410/13123");
		
		//������
		key_value("yokohama", "14/4610/14103");
		key_value("kawasaki", "14/4610/14131");
		key_value("yokosuka", "14/4610/14201");
		key_value("hiratsuka", "14/4610/14203");
		key_value("kamakura", "14/4610/14204");
		key_value("fujisawa", "14/4610/14205");
		key_value("odawara", "14/4620/14206");
		key_value("chigasaki", "14/4610/14207");
		key_value("zushi", "14/4610/14208");
		key_value("sagamihara", "14/4620/14209");
		key_value("miura", "14/4620/14210");
		key_value("hadano", "14/4620/14211");
		key_value("atsugi", "14/4620/14212");
		key_value("yamato", "14/4610/14213");
		key_value("isehara", "14/4620/14214");
		key_value("ebina", "14/4610/14215");
		key_value("zama", "14/4610/14216");
		key_value("minamiashigara", "14/4620/14217");
		key_value("ayase", "14/4610/14218");
		
		//���
		key_value("mito", "8/4010/8201");
		key_value("hitachi", "8/4010/8202");
		key_value("tsuchiura", "8/4020/8203");
		key_value("koga", "8/4020/8204");
		key_value("ishioka", "8/4020/8205");
		key_value("chikusei", "8/4020/8227");
		key_value("yuki", "8/4020/8207");
		key_value("ryugasaki", "8/4020/8208");
		key_value("hitachinaka", "8/4010/8221");
		key_value("shimotsuma", "8/4020/8210");
		key_value("takahagi", "8/4010/8214");
		key_value("kitaibaraki", "8/4010/8215");
		key_value("kasama", "8/4010/8216");
		key_value("toride", "8/4020/8217");
		key_value("bando", "8/4020/8228");
		key_value("ushiku", "8/4020/8219");
		key_value("tsukuba", "8/4020/8220");
		key_value("ikashima", "8/4020/8222");
		key_value("itako", "8/4020/8223");
		key_value("moriya", "8/4020/8224");
		key_value("hitachiomiya", "8/4010/8225");
		key_value("joso", "8/4020/8211");
		key_value("hitachiota", "8/4010/8212");
		key_value("naka", "8/4010/8226");
		key_value("inashiki", "8/4020/8443");
		key_value("kasumigaura", "8/4020/8230");
		key_value("kamisu", "8/4020/8232");
		key_value("namegata", "8/4020/8233");
		key_value("sakuragawa", "8/4020/8231");
		key_value("hokota", "8/4020/8234");
		key_value("tsukubamirai", "8/4020/8235");
		key_value("omitama", "8/4020/8236");
		
		//����
		key_value("utsunomiya", "9/4110/9201");
		key_value("ashikaga", "9/4110/9202");
		key_value("tochigi", "9/4110/9203");
		key_value("sano", "9/4110/9204");
		key_value("kanuma", "9/4110/9205");
		key_value("nikko", "9/4120/9206");
		key_value("oyama", "9/4110/9208");
		key_value("moka", "9/4110/9209");
		key_value("ohtawara", "9/4120/9210");
		key_value("yaita", "9/4120/9211");
		key_value("nasushiobara", "9/4120/9213");
		key_value("tsakura", "9/4110/9214");		
		key_value("nasukarasuyama", "9/4110/9215");
		key_value("shimotsuke", "9/4110/9216");
		
		//����
		key_value("maebashi", "10/4210/10201");
		key_value("takasaki", "10/4210/10202");
		key_value("kiryu", "10/4210/10203");
		key_value("isesaki", "10/4210/10204");
		key_value("gota", "10/4210/10205");
		key_value("numata", "10/4220/10206");
		key_value("tatebayashi", "10/4210/10207");
		key_value("shibukawa", "10/4210/10208");
		key_value("fujioka", "10/4210/10209");
		key_value("tomioka", "10/4210/10210");
		key_value("annaka", "10/4210/10211");
		key_value("midori", "10/4210/10212");
		
		//���
		key_value("kawagoe", "11/4310/11201");
		key_value("kumagaya", "11/4320/11202");
		key_value("kawaguchi", "11/4310/11203");
		key_value("saitama", "11/4310/11107");
		key_value("gyoda", "11/4320/11206");
		key_value("chichibu", "11/4330/11207");
		key_value("tokorozawa", "11/4310/11208");
		key_value("hanno", "11/4310/11209");
		key_value("kazo", "11/4320/11210");
		key_value("honjo", "11/4320/11211");
		key_value("higashimatsuyama", "11/4320/11212");
		key_value("kasukabe", "11/4310/11214");
		key_value("sayama", "11/4310/11215");
		key_value("hanyu", "11/4320/11216");
		key_value("kounosu", "11/4320/11217");
		key_value("fukaya", "11/4320/11218");
		key_value("ageo", "11/4310/11219");
		key_value("soka", "11/4310/11221");
		key_value("koshigaya", "11/4310/11222");
		key_value("warabi", "11/4310/11223");
		key_value("toda", "11/4310/11224");
		key_value("iruma", "11/4310/11225");
		key_value("hatogaya", "11/4310/11226");
		key_value("asaka", "11/4310/11227");
		key_value("shiki", "11/4310/11223");
		key_value("wako", "11/4310/11229");
		key_value("niiza", "11/4310/11230");
		key_value("okegawa", "11/4310/11231");
		key_value("kuki", "11/4320/11232");
		key_value("kitamoto", "11/4310/11233");
		key_value("yashio", "11/4310/11234");
		key_value("fujimi", "11/4310/11235");
		key_value("fujimino", "11/4310/11245");
		key_value("misato", "11/4310/11237");
		key_value("hasuda", "11/4310/11238");
		key_value("sakado", "11/4310/11239");
		key_value("satte", "11/4310/11240");
		key_value("tsurugashima", "11/4310/11241");
		key_value("hidaka", "11/4310/11242");
		key_value("yoshikawa", "11/4310/11243");

		//����
		key_value("chiba", "12/4510/12101");
		key_value("choshi", "12/4520/12202");
		key_value("ichikawa", "12/4510/12203");
		key_value("funabashi", "12/4510/12204");
		key_value("tateyama", "12/4530/12205");
		key_value("kisarazu", "12/4530/12206");
		key_value("matsudo", "12/4510/12207");
		key_value("noda", "12/4510/12208");
		key_value("katori", "12/4520/12236");
		key_value("mobara", "12/4520/12210");
		key_value("narita", "12/4510/12211");
		key_value("csakura", "12/4510/12212");
		key_value("togane", "12/4520/12213");
		key_value("asahi", "12/4520/12215");
		key_value("narashino", "12/4510/12216");
		key_value("kashiwa", "12/4510/12217");
		key_value("katsuura", "12/4530/12218");
		key_value("ichihara", "12/4510/12219");
		key_value("nagareyama", "12/4510/12220");
		key_value("yachiyo", "12/4510/12221");
		key_value("abiko", "12/4510/12222");
		key_value("kamogawa", "12/4530/12223");
		key_value("kamagaya", "12/4510/12224");
		key_value("kimitsu", "12/4530/12225");
		key_value("futtsu", "12/4530/12226");
		key_value("urayasu", "12/4510/12227");
		key_value("yotsukaido", "12/4510/12228");
		key_value("sodegaura", "12/4530/12229");
		key_value("yachimata", "12/4510/12230");
		key_value("inzai", "12/4510/12231");
		key_value("shiroi", "12/4510/12232");
		key_value("tomisato", "12/4510/12233");
		key_value("minamiboso", "12/4530/12234");
		key_value("sosa", "12/4520/12235");
		key_value("sammu", "12/4520/12237");
		key_value("isumi", "12/4530/12238");
		
		//����
		key_value("kofu", "19/4910/19201");
		key_value("fujiyoshida", "19/4920/19202");
		key_value("koshu", "19/4910/19213");
		key_value("tsuru", "19/4920/19204");
		key_value("yamanashi", "19/4910/19205");
		key_value("otsuki", "19/4920/19206");
		key_value("nirasaki", "19/4910/19207");
		key_value("minami-alps", "19/4910/19208");
		key_value("kai", "19/4910/19210");
		key_value("fuefuki", "19/4910/19211");
		key_value("hokuto", "19/4910/19209");
		key_value("uenohara", "19/4920/19212");
		key_value("chuo", "19/4910/19214");
		
		//�Ų�
		key_value("shizuoka", "22/5010/22101");
		key_value("hamamatsu", "22/5040/22202");
		key_value("numazu", "22/5030/22203");
		key_value("atami", "22/5020/22205");
		key_value("mishima", "22/5030/22206");
		key_value("fujinomiya", "22/5030/22207");
		key_value("ito", "22/5020/22208");
		key_value("shimada", "22/5010/22209");
		key_value("fuji", "22/5030/22210");
		key_value("iwata", "22/5040/22211");
		key_value("yaizu", "22/5010/22212");
		key_value("kakegawa", "22/5040/22213");
		key_value("fujieda", "22/5010/22214");
		key_value("gotemba", "22/5030/22215");
		key_value("fukuroi", "22/5040/22216");
		key_value("shimoda", "22/5020/22219");
		key_value("susono", "22/5030/22220");
		key_value("kosai", "22/5040/22221");
		key_value("izu", "22/5020/22222");
		key_value("omaezaki", "22/5040/22223");
		key_value("kikugawa", "22/5040/22224");
		key_value("izunokuni", "22/5020/22225");
		key_value("makinohara", "22/5010/22226");

		//����
		key_value("nagoya", "23/5110/23105");
		key_value("toyohashi", "23/5120/23201");
		key_value("okazaki", "23/5110/23202");
		key_value("ichinomiya", "23/5110/23203");
		key_value("seto", "23/5110/23204");
		key_value("handa", "23/5110/23205");
		key_value("kasugai", "23/5110/23206");
		key_value("toyokawa", "23/5120/23207");
		key_value("tsushima", "23/5110/23208");
		key_value("hekinan", "23/5110/23209");
		key_value("kariya", "23/5110/23210");
		key_value("toyota", "23/5110/23211");
		key_value("anjo", "23/5110/23212");
		key_value("nishio", "23/5110/23213");
		key_value("gamagori", "23/5120/23214");
		key_value("inuyama", "23/5110/23215");
		key_value("tokoname", "23/5110/23216");
		key_value("akounan", "23/5110/23217");
		key_value("komaki", "23/5110/23219");
		key_value("inazawa", "23/5110/23220");
		key_value("shinshiro", "23/5120/23221");
		key_value("tokai", "23/5110/23222");
		key_value("obu", "23/5110/23223");
		key_value("chita", "23/5110/23224");
		key_value("chiryu", "23/5110/23225");
		key_value("owariasahi", "23/5110/23226");
		key_value("takahama", "23/5110/23227");
		key_value("iwakura", "23/5110/23228");
		key_value("toyoake", "23/5110/23229");
		key_value("nisshin", "23/5110/23230");
		key_value("tahara", "23/5120/23231");
		key_value("aisai", "23/5110/23232");
		key_value("kiyosu", "23/5110/23233");
		key_value("kitanagoya", "23/5110/23234");
		key_value("yatomi", "23/5110/23235");

		//����
		key_value("gifu", "21/5210/21201");
		key_value("ogaki", "21/5210/21202");
		key_value("takayama", "21/5220/21203");
		key_value("tajimi", "21/5210/21204");
		key_value("nakatsugawa", "21/5210/21206");
		key_value("mizunami", "21/5210/21208");
		key_value("ena", "21/5210/21210");
		key_value("minokamo", "21/5210/21211");
		key_value("kakamigahara", "21/5210/21213");
		key_value("kani", "21/5210/21214");
		key_value("seki", "21/5210/21205");
		key_value("hashima", "21/5210/21209");
		key_value("mino", "21/5210/21207");
		key_value("toki", "21/5210/21212");
		key_value("gyamagata", "21/5210/21215");
		key_value("mizuho", "21/5210/21216");
		key_value("hida", "21/5220/21217");
		key_value("motosu", "21/5210/21218");
		key_value("gujo", "21/5210/21219");
		key_value("gero", "21/5220/21220");
		key_value("kaizu", "21/5210/21221");

		//����
		key_value("tsu", "24/5310/24201");
		key_value("yokkaichi", "24/5310/24202");
		key_value("ise", "24/5320/24203");
		key_value("matsusaka", "24/5310/24204");
		key_value("kuwana", "24/5310/24205");
		key_value("iga", "24/5310/24216");
		key_value("suzuka", "24/5310/24207");
		key_value("nabari", "24/5310/24208");
		key_value("owase", "24/5320/24209");
		key_value("kameyama", "24/5310/24210");
		key_value("toba", "24/5320/24211");
		key_value("kumano", "24/5320/24212");
		key_value("inabe", "24/5310/24214");
		key_value("shima", "24/5320/24215");

		//����
		key_value("otsu", "25/6010/25201");
		key_value("hikone", "25/6020/25202");
		key_value("nagahama", "25/6020/25203");
		key_value("omihachiman", "25/6010/25204");
		key_value("higashiomi", "25/6010/25213");
		key_value("kusatsu", "25/6010/25206");
		key_value("moriyama", "25/6010/25207");
		key_value("ritto", "25/6010/25208");
		key_value("koka", "25/6010/25209");
		key_value("yasu", "25/6010/25210");
		key_value("konan", "25/6010/25211");
		key_value("takashima", "25/6020/25212");
		key_value("maibara", "25/6020/25214");

		//����
		key_value("kyoto", "26/6100/26103");
		key_value("ayabe", "26/400/26203");
		key_value("nagaokakyo", "26/6100/26209");
		key_value("kyotanabe", "26/6100/26211");
		key_value("fukuchiyama", "26/400/26201");
		key_value("maizuru", "26/400/26202");
		key_value("uji", "26/6100/26204");
		key_value("miyazu", "26/400/26205");
		key_value("kameoka", "26/6100/26206");
		key_value("joyo", "26/6100/26207");
		key_value("muko", "26/6100/26208");
		key_value("yawata", "26/6100/26210");
		key_value("kyotango", "26/400/26212");
		key_value("nantan", "26/6100/26213");

		//���
		key_value("osaka", "27/6200/27127");
		key_value("sakai", "27/6200/27147");
		key_value("kishiwada", "27/6200/27202");
		key_value("toyonaka", "27/6200/27203");
		key_value("higashiosaka", "27/6200/27227");
		key_value("ikeda", "27/6200/27204");
		key_value("suita", "27/6200/27205");
		key_value("izumiotsu", "27/6200/27206");
		key_value("takatsuki", "27/6200/27207");
		key_value("kaizuka", "27/6200/27208");
		key_value("moriguchi", "27/6200/27209");
		key_value("hirakata", "27/6200/27210");
		key_value("ibaraki", "27/6200/27211");
		key_value("yao", "27/6200/27212");
		key_value("izumisano", "27/6200/27213");
		key_value("tondabayashi", "27/6200/27214");
		key_value("neyagawa", "27/6200/27215");
		key_value("kawachinagano", "27/6200/27216");
		key_value("matsubara", "27/6200/27217");
		key_value("daito", "27/6200/27218");
		key_value("oizumi", "27/6200/27219");
		key_value("minoh", "27/6200/27220");
		key_value("kashiwara", "27/6200/27221");
		key_value("habikino", "27/6200/27222");
		key_value("kadoma", "27/6200/27223");
		key_value("settsu", "27/6200/27224");
		key_value("takaishi", "27/6200/27225");
		key_value("fujiidera", "27/6200/27226");
		key_value("sennan", "27/6200/27228");
		key_value("osakasayama", "27/6200/27231");
		key_value("shijonawate", "27/6200/27229");
		key_value("katano", "27/6200/27230");
		key_value("hannan", "27/6200/27232");

		//����
		key_value("nara", "29/6410/29201");
		key_value("yamatotakada", "29/6410/29202");
		key_value("yamatokoriyama", "29/6410/29203");
		key_value("tenri", "29/6410/29204");
		key_value("kashihara", "29/6410/29205");
		key_value("sakurai", "29/6410/29206");
		key_value("gojo", "29/6410/29207");
		key_value("gose", "29/6410/29208");
		key_value("ikoma", "29/6410/29209");
		key_value("kashiba", "29/6410/29210");
		key_value("katsuragi", "29/6410/29211");
		key_value("uda", "29/6410/29212");

		//�²λ�
		key_value("wakayama", "30/6510/30201");
		key_value("kainan", "30/6510/30202");
		key_value("hashimoto", "30/6510/30203");
		key_value("shingu", "30/6520/30207");
		key_value("tanabe", "30/6520/30206");
		key_value("gobo", "30/6510/30205");
		key_value("arida", "30/6510/30204");
		key_value("kinokawa", "30/6510/30208");
		key_value("iwade", "30/6510/30209");

		//ʼ��
		key_value("kobe", "28/6310/28110");
		key_value("himeji", "28/6310/28201");
		key_value("amagasaki", "28/6310/28202");
		key_value("akashi", "28/6310/28203");
		key_value("nishinomiya", "28/6310/28204");
		key_value("sumoto", "28/6310/28205");
		key_value("ashiya", "28/6310/28206");
		key_value("itami", "28/6310/28207");
		key_value("aioi", "28/6310/28208");
		key_value("toyooka", "28/6320/28209");
		key_value("kakogawa", "28/6310/28210");
		key_value("tatsuno", "28/6310/28229");
		key_value("ako", "28/6310/28212");
		key_value("nishiwaki", "28/6310/28213");
		key_value("takarazuka", "28/6310/28214");
		key_value("miki", "28/6310/28215");
		key_value("takasago", "28/6310/28216");
		key_value("kawanishi", "28/6310/28217");
		key_value("ono", "28/6310/28218");
		key_value("sanda", "28/6310/28219");
		key_value("kasai", "28/6310/28220");
		key_value("sasayama", "28/6310/28221");
		key_value("yabu", "28/6320/28222");
		key_value("tanba", "28/6310/28223");
		key_value("minamiawaji", "28/6310/28224");
		key_value("asago", "28/6320/28225");
		key_value("awaji", "28/6310/28226");
		key_value("shiso", "28/6310/28227");
		key_value("kato", "28/6310/28228");

		//����
		key_value("okayama", "33/6610/33201");
		key_value("kurashiki", "33/6610/33202");
		key_value("tsuyama", "33/6620/33203");
		key_value("tamano", "33/6610/33204");
		key_value("kasaoka", "33/6610/33205");
		key_value("ibara", "33/6610/33207");
		key_value("soja", "33/6610/33208");
		key_value("takahashi", "33/6610/33209");
		key_value("niimi", "33/6620/33210");
		key_value("bizen", "33/6610/33211");
		key_value("setouchi", "33/6610/33212");
		key_value("akaiwa", "33/6610/33213");
		key_value("maniwa", "33/6620/33214");
		key_value("mimasaka", "33/6620/33215");
		key_value("asakuchi", "33/6610/33216");

		//����
		key_value("hiroshima", "34/6710/34101");
		key_value("kure", "34/6710/34202");
		key_value("takehara", "34/6710/34203");
		key_value("onomichi", "34/6710/34205");
		key_value("fukuyama", "34/6710/34207");
		key_value("hmiyoshi", "34/6720/34209");
		key_value("shobara", "34/6720/34210");
		key_value("higashihiroshima", "34/6710/34212");
		key_value("hatsukaichi", "34/6710/34213");
		key_value("mihara", "34/6710/34204");
		key_value("hfuchu", "34/6710/34208");
		key_value("otake", "34/6710/34211");
		key_value("akitakata", "34/6720/34214");
		key_value("etajima", "34/6710/34215");

		//����
		key_value("shimonoseki", "35/8110/35201");
		key_value("ube", "35/8110/35202");
		key_value("yamaguchi", "35/8120/35203");
		key_value("hagi", "35/8140/35204");
		key_value("shunan", "35/8120/35215");
		key_value("hofu", "35/8120/35206");
		key_value("kudamatsu", "35/8120/35207");
		key_value("iwakuni", "35/8130/35208");
		key_value("sanyoonoda", "35/8110/35216");
		key_value("hikari", "35/8130/35210");
		key_value("nagato", "35/8140/35211");
		key_value("yanai", "35/8130/35212");
		key_value("mine", "35/8140/35213");

		//Ļ��
		key_value("tottori", "31/6910/31201");
		key_value("yonago", "31/6920/31202");
		key_value("kurayoshi", "31/6920/31203");
		key_value("sakaiminato", "31/6920/31204");

		//�纬
		key_value("matsue", "32/6810/32201");
		key_value("hamada", "32/6820/32202");
		key_value("izumo", "32/6810/32203");
		key_value("masuda", "32/6820/32204");
		key_value("ohda", "32/6820/32205");
		key_value("yasugi", "32/6810/32206");
		key_value("gotsu", "32/6820/32207");
		key_value("unnan", "32/6810/32209");

		//����
		key_value("tokushima", "36/7110/36201");
		key_value("naruto", "36/7110/36202");
		key_value("komatsushima", "36/7110/36203");
		key_value("anan", "36/7120/36204");
		key_value("yoshinogawa", "36/7110/36205");
		key_value("mima", "36/7110/36207");
		key_value("awa", "36/7110/36206");
		key_value("tmiyoshi", "36/7110/36208");

		//����
		key_value("takamatsu", "37/7200/37201");
		key_value("marugame", "37/7200/37202");
		key_value("sakaide", "37/7200/37203");
		key_value("zentsuji", "37/7200/37204");
		key_value("kanonji", "37/7200/37205");
		key_value("sanuki", "37/7200/37206");
		key_value("higashikagawa", "37/7200/37207");
		key_value("mitoyo", "37/7200/37208");

		//��ɲ
		key_value("matsuyama", "38/7310/38201");
		key_value("imabari", "38/7320/38202");
		key_value("uwajima", "38/7330/38203");
		key_value("yawatahama", "38/7330/38204");
		key_value("niihama", "38/7320/38205");
		key_value("saijo", "38/7320/38206");
		key_value("ozu", "38/7330/38207");
		key_value("shikokuchuo", "38/7320/38213");
		key_value("iyo", "38/7310/38210");
		key_value("seiyo", "38/7330/38214");
		key_value("toon", "38/7310/38215");

		//����
		key_value("kochi", "39/7410/39201");
		key_value("muroto", "39/7420/39202");
		key_value("aki", "39/7420/39203");
		key_value("nankoku", "39/7410/39204");
		key_value("tosa", "39/7410/39205");
		key_value("susaki", "39/7410/39206");
		key_value("sukumo", "39/7430/39208");
		key_value("tosashimizu", "39/7430/39209");
		key_value("shimanto", "39/7430/39210");
		key_value("kkounan", "39/7410/39211");
		key_value("kami", "39/7410/39212");

		//ʡ��
		key_value("kitakyushu", "40/8220/40101");
		key_value("fukuoka", "40/8210/40133");
		key_value("kurume", "40/8240/40203");
		key_value("omuta", "40/8240/40202");
		key_value("nogata", "40/8230/40204");
		key_value("iizuka", "40/8230/40205");
		key_value("tagawa", "40/8230/40206");
		key_value("yanagawa", "40/8240/40207");
		key_value("asakura", "40/8240/40228");
		key_value("chikugo", "40/8240/40211");
		key_value("kama", "40/8220/40215");
		key_value("yame", "40/8240/40210");
		key_value("okawa", "40/8240/40212");
		key_value("yukuhashi", "40/8220/40213");
		key_value("buzen", "40/8220/40214");
		key_value("nakama", "40/8220/40215");
		key_value("ogoori", "40/8240/40216");
		key_value("chikushino", "40/8210/40217");
		key_value("kasuga", "40/8210/40218");
		key_value("onojo", "40/8210/40219");
		key_value("munakata", "40/8210/40220");
		key_value("dazaifu", "40/8210/40221");
		key_value("maebaru", "40/8210/40222");
		key_value("koga", "40/8210/40223");
		key_value("fukutsu", "40/8210/40224");
		key_value("ukiha", "40/8240/40225");
		key_value("miyawaka", "40/8230/40226");
		key_value("miyama", "40/8240/40229");

		//����
		key_value("saga", "41/8510/41201");
		key_value("karatsu", "41/8520/41202");
		key_value("taku", "41/8510/41204");
		key_value("imari", "41/8520/41205");
		key_value("takeo", "41/8510/41206");
		key_value("skashima", "41/8510/41207");
		key_value("tosu", "41/8510/41203");
		key_value("ogi", "41/8510/41208");
		key_value("ureshino", "41/8510/41209");
		key_value("kanzaki", "41/8510/41210");

		//��
		key_value("nagasaki", "42/8410/42201");
		key_value("sasebo", "42/8420/42202");
		key_value("shimabara", "42/8410/42203");
		key_value("isahaya", "42/8410/42204");
		key_value("omura", "42/8410/42205");
		key_value("goto", "42/800/42211");
		key_value("hirado", "42/8420/42207");
		key_value("matsuura", "42/8420/42208");
		key_value("tsushima", "42/700/42209");
		key_value("iki", "42/700/42210");
		key_value("saikai", "42/8410/42212");
		key_value("unzen", "42/8410/42213");
		key_value("minamishimabara", "42/8410/42214");

		//��ʬ
		key_value("oita", "44/8310/44201");
		key_value("beppu", "44/8310/44202");
		key_value("nakatsu", "44/8320/44203");
		key_value("hita", "44/8330/44204");
		key_value("saiki", "44/8340/44205");
		key_value("usuki", "44/8310/44206");
		key_value("tsukumi", "44/8340/44207");
		key_value("taketa", "44/8330/44208");
		key_value("bungotakada", "44/8320/44209");
		key_value("kitsuki", "44/8310/44210");
		key_value("usa", "44/8320/44211");
		key_value("bungoohno", "44/8340/44212");
		key_value("yufu", "44/8330/44213");
		key_value("kunisaki", "44/8320/44214");

		//����
		key_value("kumamoto", "43/8610/43201");
		key_value("yatsushiro", "43/8610/43202");
		key_value("hitoyoshi", "43/8640/43203");
		key_value("arao", "43/8610/43204");
		key_value("minamata", "43/8630/43205");
		key_value("tamana", "43/8610/43206");
		key_value("yamaga", "43/8610/43208");
		key_value("amakusa", "43/8630/43215");
		key_value("kikuchi", "43/8610/43210");
		key_value("uto", "43/8610/43211");
		key_value("kamiamakusa", "43/8630/43212");
		key_value("uki", "43/8610/43213");
		key_value("aso", "43/8620/43214");
		key_value("koshi", "43/8610/43216");

		//�ܺ�
		key_value("miyazaki", "45/8710/45201");
		key_value("miyakonojo", "45/8730/45202");
		key_value("nobeoka", "45/8720/45203");
		key_value("nichinan", "45/8710/45204");
		key_value("kushima", "45/8710/45207");
		key_value("kobayashi", "45/8730/45205");
		key_value("hyuga", "45/8720/45206");
		key_value("saito", "45/8720/45208");
		key_value("ebino", "45/8730/45209");

		//������
		key_value("kagoshima", "46/8810/46201");
		key_value("satsumasendai", "46/8810/46215");
		key_value("kanoya", "46/8820/46203");
		key_value("makurazaki", "46/8810/46204");
		key_value("ichikikushikino", "46/8810/46219");
		key_value("akune", "46/8810/46206");
		key_value("kizumi", "46/8810/46208");
		key_value("okuchi", "46/8810/46209");
		key_value("minamisatsuma", "46/8810/46220");
		key_value("kirishima", "46/8810/46218");
		key_value("nishinoomote", "46/8830/46213");
		key_value("tarumizu", "46/8820/46214");
		key_value("hioki", "46/8810/46216");
		key_value("soo", "46/8820/46217");
		key_value("shibushi", "46/8820/46221");
		key_value("ibusuki", "46/8810/46210");
		key_value("amami", "46/1000/46222");

		//����
		key_value("naha", "47/9110/47201");
		key_value("ishigaki", "47/9400/47207");
		key_value("urasoe", "47/9110/47208");
		key_value("okinawa", "47/9110/47211");
		key_value("uruma", "47/9110/47213");
		key_value("miyakojima", "47/9300/47214");
		key_value("nago", "47/9120/47209");
		key_value("itoman", "47/9110/47210");
		key_value("ginowan", "47/9110/47205");
		key_value("tomigusuku", "47/9110/47212");
		key_value("nanjo", "47/9110/47215");

	};

   map skyMap
   {
	// ver1.1 20070131
	// Ƭʸ��p �Ϻ�������ŷ���ѥ�������
	// _g �ղäϲ���ŷ���ѤΥ��졼�Υ�������
	
	key_value("psun", "2"); //���
	key_value("psun_g", "2"); 
	key_value("pmoon", "17"); //��/��
	key_value("pmoon_g", "17");
	key_value("pclouds", "4"); //����
	key_value("pclouds_g", "4");
	key_value("prain_light", "7"); //��J
	key_value("prain_light_g", "7");
	key_value("prain_gusty", "8"); //��(J
	key_value("prain_gusty_g", "8");
	key_value("psleet", "9"); //��!����
	key_value("psleet_g", "9"); 
	key_value("psnow_wet", "10"); //����,
	key_value("psnow_wet_g", "10");
	key_value("psnow_dry", "10"); //��/�
	key_value("psnow_dry_g", "10");
	key_value("punknown", "0"); //�����
	key_value("punknown_g", "0");
		
	key_value("sun", "2"); //���
	key_value("clouds", "4"); //����
	key_value("rain", "7"); //��
	key_value("snow", "10"); //��,
	key_value("moon", "17"); //��/��
	key_value("rainstorm", "8"); //˽���� 
	key_value("blizzard", "11"); //˽����,
	key_value("thunder", "13"); //��
	key_value("unknown", "0"); //�����
	key_value("sun_rain_af", "14"); //���(J
	key_value("sun_rain_st", "14"); //�������
	key_value("rain_sun_af", "14"); //����/��
	key_value("rain_sun_st", "14"); //����X���
	key_value("sun_clouds_st", "3"); //���������
	key_value("clouds_sun_st", "3"); //���������
	key_value("sun_clouds_af", "3"); //���2��
	key_value("clouds_sun_af", "3"); //����/��
	key_value("clouds_rain_st", "4"); //��������
	key_value("rain_clouds_st", "4"); //����X����
	key_value("rain_clouds_af", "7"); //����2��
	key_value("clouds_rain_af", "7"); //����(J
	key_value("clouds_snow_st", "10"); //��������,
	key_value("clouds_snow_af", "10"); //����/�
	key_value("snow_clouds_st", "10"); //��-��X����
	key_value("snow_clouds_af", "10"); //��+���
	key_value("sun_snow_af", "10"); //���/�
	key_value("sun_snow_st", "10"); //�������,
	key_value("snow_sun_af", "10"); //��+㐯�
	key_value("snow_sun_st", "10"); //��-��X���
	key_value("rain_snow_af", "9"); //����/�
	key_value("rain_snow_st", "9"); //����X��,
	key_value("snow_rain_af", "9"); //��+�J
	key_value("snow_rain_st", "9"); //��-��X��
   };
   map winddirMap // Messages are in EUC
   {
	key_value("��<", "n");
	key_value("������<", "nne");
	key_value("����<", "ne");
	key_value("������<", "ene");
	key_value("��<", "e");
	key_value("������<", "ese");
	key_value("����<", "se");
	key_value("������<", "sse");
	key_value("��<", "s");
	key_value("������<", "ssw");

	key_value("����<", "sw");

	key_value("������<", "wsw");

	key_value("��<", "w");

	key_value("������<", "wnw");

	key_value("����<", "nw");
	key_value("������<", "nnw");
   };

  string sCityCode="";
  sCityCode  = areaMap[CityCode];
  if (!sCityCode)
	 sCityCode= CityCode;

//   open_url("http://weather.yahoo.co.jp/weather/jp/8/4020/8220/" + CityCode +".html", "GET");
   open_url("http://weather.yahoo.co.jp/weather/jp/" + sCityCode +".html", "GET");

   select_area(weatherStart, weatherEnd);

  string sDayLoop = "";
  while(sDayLoop $ "..")
  {
//   debug_log;
// Move cursol to today's block and obtain two day forcast
	//skip_to_text("<!---Point--->", false); ε���к�del
	//skip_to_text("<table", false); ε���к�del
// obtain day of Month
	{
		//skip_to_text("<small>", false); ε���к�del
		skip_to_text("����ŷ��</b>", false); //ε���к�ins
		skip_to_chars("0-9");
		begin_var;
		skip_chars("0-9");
		string strMonth = end_var;  
		skip_to_chars("0-9");
		begin_var;
		skip_chars("0-9");
		string strDay = end_var;  
		if(sDayLoop ~ "") 
			firstDay_dayOfMonth = strDay;
		if(sDayLoop ~ ".") 
			secondDay_dayOfMonth = strDay;
	}
      skip_to_text("<table", false);   
      skip_to_text("<table", false);   
      skip_to_text("<tr", false);   
      skip_to_text("<tr", false);   

// Obtain sky
	string sLoop = "";
	while(sLoop $ "........")
	{
		skip_to_text("<img src=\"",false);
		begin_var;
		skip_chars("^\"");
		string url = end_var;  
		string sky = get_file_name(url);
		if (sky)
		{
	        	sky = skyMap[sky];
		        if (!sky)
	        	    sky = "0";
		}
		if(sDayLoop ~ "") 
		{
			if(sLoop ~ "") firstDay_sky0 = sky;
			if(sLoop ~ ".") firstDay_sky3 = sky;
			if(sLoop ~ "..") firstDay_sky6 = sky;
			if(sLoop ~ "...") firstDay_sky9 = sky;
			if(sLoop ~ "....") firstDay_sky12 = sky;
			if(sLoop ~ ".....") firstDay_sky15 = sky;
			if(sLoop ~ "......") firstDay_sky18 = sky;
			if(sLoop ~ ".......") firstDay_sky21 = sky;
		}
		if(sDayLoop ~ ".") 
		{
			if(sLoop ~ "") secondDay_sky0 = sky;
			if(sLoop ~ ".") secondDay_sky3 = sky;
			if(sLoop ~ "..") secondDay_sky6 = sky;
			if(sLoop ~ "...") secondDay_sky9 = sky;
			if(sLoop ~ "....") secondDay_sky12 = sky;
			if(sLoop ~ ".....") secondDay_sky15 = sky;
			if(sLoop ~ "......") secondDay_sky18 = sky;
			if(sLoop ~ ".......") secondDay_sky21 = sky;
		}
		sLoop = sLoop + ".";
	}

      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
// Obtain temperature
	sLoop = "";
	while(sLoop $ "........")
	{
		skip_to_text("<small",false);
		skip_to_text("<font",false);
		skip_to_text(">",false);
		skip_to_chars("\-0-9");
		begin_var;
		skip_chars("\-0-9");
		string tmpr = end_var;  
		if(sDayLoop ~ "") 
		{
			if(sLoop ~ "") firstDay_tmpr0 = tmpr;
			if(sLoop ~ ".") firstDay_tmpr3 = tmpr;
			if(sLoop ~ "..") firstDay_tmpr6 = tmpr;
			if(sLoop ~ "...") firstDay_tmpr9 = tmpr;
			if(sLoop ~ "....") firstDay_tmpr12 = tmpr;
			if(sLoop ~ ".....") firstDay_tmpr15 = tmpr;
			if(sLoop ~ "......") firstDay_tmpr18 = tmpr;
			if(sLoop ~ ".......") firstDay_tmpr21 = tmpr;
		}
		if(sDayLoop ~ ".") 
		{
			if(sLoop ~ "") secondDay_tmpr0 = tmpr;
			if(sLoop ~ ".") secondDay_tmpr3 = tmpr;
			if(sLoop ~ "..") secondDay_tmpr6 = tmpr;
			if(sLoop ~ "...") secondDay_tmpr9 = tmpr;
			if(sLoop ~ "....") secondDay_tmpr12 = tmpr;
			if(sLoop ~ ".....") secondDay_tmpr15 = tmpr;
			if(sLoop ~ "......") secondDay_tmpr18 = tmpr;
			if(sLoop ~ ".......") secondDay_tmpr21 = tmpr;
		}
		sLoop = sLoop + ".";
	}

      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
// Obtain humidity
	sLoop = "";
	while(sLoop $ "........")
	{
		skip_to_text("<small",false);
		skip_to_text("<font",false);
		skip_to_text(">",false);
		skip_to_chars("\-0-9");
		begin_var;
		skip_chars("\-0-9");
		string humidity = end_var;  
		if(humidity ~ "---") humidity="";
		if(sDayLoop ~ "") 
		{
			if(sLoop ~ "") firstDay_humidity0 = humidity;
			if(sLoop ~ ".") firstDay_humidity3 = humidity;
			if(sLoop ~ "..") firstDay_humidity6 = humidity;
			if(sLoop ~ "...") firstDay_humidity9 = humidity;
			if(sLoop ~ "....") firstDay_humidity12 = humidity;	
			if(sLoop ~ ".....") firstDay_humidity15 = humidity;
			if(sLoop ~ "......") firstDay_humidity18 = humidity;
			if(sLoop ~ ".......") firstDay_humidity21 = humidity;
		}
		if(sDayLoop ~ ".") 
		{
			if(sLoop ~ "") secondDay_humidity0 = humidity;
			if(sLoop ~ ".") secondDay_humidity3 = humidity;
			if(sLoop ~ "..") secondDay_humidity6 = humidity;
			if(sLoop ~ "...") secondDay_humidity9 = humidity;
			if(sLoop ~ "....") secondDay_humidity12 = humidity;	
			if(sLoop ~ ".....") secondDay_humidity15 = humidity;
			if(sLoop ~ "......") secondDay_humidity18 = humidity;
			if(sLoop ~ ".......") secondDay_humidity21 = humidity;
		}
		sLoop = sLoop + ".";
	}

      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
// Obtain rainchange
	sLoop = "";
	while(sLoop $ "........")
	{
		skip_to_text("<small>",false);
		skip_tags;
		skip_to_chars("0-9");
		begin_var;
		skip_chars("0-9");
		string rainchance = end_var;  

		sLoop = sLoop + ".";
	}

      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
// Obtain windspeed
	sLoop = "";
	while(sLoop $ "........")
	{
		skip_to_text("<small>",false);
		begin_var;
		skip_chars("^<");
		string winddir = end_var;
		if( winddir ~ "") 
  		{
			skip_to_text("<font",false);
			skip_to_text(">",false);
			begin_var;
			skip_chars("^<");
		}
		skip_chars("<");
		winddir = end_var;  
        	winddir = winddirMap[winddir];
		if(sDayLoop ~ "") 
		{
			if(sLoop ~ "") firstDay_windDirection0 = winddir;
			if(sLoop ~ ".") firstDay_windDirection3 = winddir;
			if(sLoop ~ "..") firstDay_windDirection6 = winddir;
			if(sLoop ~ "...") firstDay_windDirection9 = winddir;
			if(sLoop ~ "....") firstDay_windDirection12 = winddir;
			if(sLoop ~ ".....") firstDay_windDirection15 = winddir;
			if(sLoop ~ "......") firstDay_windDirection18 = winddir;
			if(sLoop ~ ".......") firstDay_windDirection21 = winddir;
		}
		if(sDayLoop ~ ".") 
		{
			if(sLoop ~ "") secondDay_windDirection0 = winddir;
			if(sLoop ~ ".") secondDay_windDirection3 = winddir;
			if(sLoop ~ "..") secondDay_windDirection6 = winddir;
			if(sLoop ~ "...") secondDay_windDirection9 = winddir;
			if(sLoop ~ "....") secondDay_windDirection12 = winddir;
			if(sLoop ~ ".....") secondDay_windDirection15 = winddir;
			if(sLoop ~ "......") secondDay_windDirection18 = winddir;
			if(sLoop ~ ".......") secondDay_windDirection21 = winddir;
		}

		skip_to_text("br>",false);
		begin_var;
		skip_chars("^<");
		string windSpeed = end_var;
		if( windSpeed ~ "") 
	  	{
			skip_to_text("<font",false);
			skip_to_text(">",false);
			skip_to_chars("\-0-9");
			begin_var;
			skip_chars("\-0-9");
			windSpeed = end_var;
		}  
		if(sDayLoop ~ "") 
		{
			if(sLoop ~ "") firstDay_windSpeed0 = windSpeed;
			if(sLoop ~ ".") firstDay_windSpeed3 = windSpeed;
			if(sLoop ~ "..") firstDay_windSpeed6 = windSpeed;
			if(sLoop ~ "...") firstDay_windSpeed9 = windSpeed;
			if(sLoop ~ "....") firstDay_windSpeed12 = windSpeed;
			if(sLoop ~ ".....") firstDay_windSpeed15 = windSpeed;
			if(sLoop ~ "......") firstDay_windSpeed18 = windSpeed;
			if(sLoop ~ ".......") firstDay_windSpeed21 = windSpeed;
		}
		if(sDayLoop ~ ".") 
		{
			if(sLoop ~ "") secondDay_windSpeed0 = windSpeed;
			if(sLoop ~ ".") secondDay_windSpeed3 = windSpeed;
			if(sLoop ~ "..") secondDay_windSpeed6 = windSpeed;
			if(sLoop ~ "...") secondDay_windSpeed9 = windSpeed;
			if(sLoop ~ "....") secondDay_windSpeed12 = windSpeed;
			if(sLoop ~ ".....") secondDay_windSpeed15 = windSpeed;
			if(sLoop ~ "......") secondDay_windSpeed18 = windSpeed;
			if(sLoop ~ ".......") secondDay_windSpeed21 = windSpeed;
		}

		sLoop = sLoop + ".";
	}
	sDayLoop = sDayLoop + ".";

  }

// Move to weekly forcast 
  //skip_to_text("<!---/Point--->", false); //ε���к�del
  //skip_to_text("<!---���֤�ŷ��--->", false);    // <!---�������V��---> in EUC //ε���к�del

  //skip_to_text("<table", false); //ε���к�del
  skip_to_text("<b>���֤�ŷ��</b>", false); //ε���к�ins
  {
      skip_to_text("<table", false);   
      skip_to_text("<table", false);   
      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
// obtain day of Month
	string sLoop = "";
	while(sLoop $ "......")
	{
		skip_to_text("<small>", false);   
		skip_to_chars("0-9");
		begin_var;
		skip_chars("0-9");
		string strMonth = end_var;  
		skip_to_chars("0-9");
		begin_var;
		skip_chars("0-9");
		string strDay = end_var;  
		if(sLoop ~ "") thirdDay_dayOfMonth = strDay;
		if(sLoop ~ ".") fourthDay_dayOfMonth = strDay;
		if(sLoop ~ "..") fifthDay_dayOfMonth = strDay;
		if(sLoop ~ "...") sixthDay_dayOfMonth = strDay;
		if(sLoop ~ "....") seventhDay_dayOfMonth = strDay;
		if(sLoop ~ ".....") eigthDay_dayOfMonth = strDay;
		sLoop = sLoop + ".";
	}
// sky
      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
      skip_to_text("<td", false);   
	sLoop = "";
	while(sLoop $ "......")
	{
		skip_to_text("<img src=\"",false);
		begin_var;
		skip_chars("^\"");
		string url = end_var;  
		string sky = get_file_name(url);
		if (sky)
		{
	        	sky = skyMap[sky];
		        if (!sky)
	        	    sky = "0";
		}
		if(sLoop ~ "") thirdDay_sky = sky;
		if(sLoop ~ ".") fourthDay_sky = sky;
		if(sLoop ~ "..") fifthDay_sky = sky;
		if(sLoop ~ "...") sixthDay_sky = sky;
		if(sLoop ~ "....") seventhDay_sky = sky;
		if(sLoop ~ ".....") eigthDay_sky = sky;
		sLoop = sLoop + ".";
	}

// Obtain temperature
      skip_to_text("<tr", false);   
      skip_to_text("<td", false);   
	sLoop = "";
	while(sLoop $ "......")
	{
		skip_to_text("<td", false);   
		skip_to_text("<small>",false);
		skip_to_text("<font",false);
		skip_to_text(">",false);
		skip_to_chars("\-0-9");
		begin_var;
		skip_chars("\-0-9");
		string tmprHi = end_var;  
		skip_to_text("<font",false);
		skip_to_text(">",false);
		skip_to_chars("\-0-9");
		begin_var;
		skip_chars("\-0-9");
		string tmprLo = end_var;  
		if(sLoop ~ "") thirdDay_tmprHi = tmprHi;
		if(sLoop ~ ".") fourthDay_tmprHi = tmprHi;
		if(sLoop ~ "..") fifthDay_tmprHi = tmprHi;
		if(sLoop ~ "...") sixthDay_tmprHi = tmprHi;
		if(sLoop ~ "....") seventhDay_tmprHi = tmprHi;
		if(sLoop ~ ".....") eigthDay_tmprHi = tmprHi;
		if(sLoop ~ "") thirdDay_tmprLo = tmprLo;
		if(sLoop ~ ".") fourthDay_tmprLo = tmprLo;
		if(sLoop ~ "..") fifthDay_tmprLo = tmprLo;
		if(sLoop ~ "...") sixthDay_tmprLo = tmprLo;
		if(sLoop ~ "....") seventhDay_tmprLo = tmprLo;
		if(sLoop ~ ".....") eigthDay_tmprLo = tmprLo;
		sLoop = sLoop + ".";
	}
  }

// set sky for two day forcast
// 
  sDayLoop = "";
//
// NOTE: Spb Weather does not handle 2nd day's detail weather information.
//       so that we should ignore 2nd day 
//
  while(sDayLoop $ "..")
  {
  	string sLoop = "";
  	while(sLoop $ "........")
  	{
//  debug_log;
		string tmprLo = "";
		string tmprHi = "";
		string pressure="";
		string tmprUnits="C";
		string pressureUnit="hPa";
		string windGustSpeed ="";
		string windSpeedUnits="mps";
		string dayOfMonth = "";
		if(sDayLoop ~ "") dayOfMonth= firstDay_dayOfMonth;
		if(sDayLoop ~ ".") dayOfMonth = secondDay_dayOfMonth;
		string hour ="";
		{
			if(sLoop ~ "") hour = "0";
			if(sLoop ~ ".") hour = "3";
			if(sLoop ~ "..") hour = "6";
			if(sLoop ~ "...") hour = "9";
			if(sLoop ~ "....") hour = "12";	
			if(sLoop ~ ".....") hour = "15";
			if(sLoop ~ "......") hour = "18";
			if(sLoop ~ ".......") hour = "21";
		}

		string sky = "";
		if(sDayLoop ~ "")
		{
			if(sLoop ~ "") sky = firstDay_sky0;
			if(sLoop ~ ".") sky = firstDay_sky3;
			if(sLoop ~ "..") sky = firstDay_sky6;
			if(sLoop ~ "...") sky = firstDay_sky9;
			if(sLoop ~ "....") sky = firstDay_sky12;	
			if(sLoop ~ ".....") sky = firstDay_sky15;
			if(sLoop ~ "......") sky = firstDay_sky18;
			if(sLoop ~ ".......") sky = firstDay_sky21;
		}
		if(sDayLoop ~ ".")
		{
			if(sLoop ~ "") sky = secondDay_sky0;
			if(sLoop ~ ".") sky = secondDay_sky3;
			if(sLoop ~ "..") sky = secondDay_sky6;
			if(sLoop ~ "...") sky = secondDay_sky9;
			if(sLoop ~ "....") sky = secondDay_sky12;	
			if(sLoop ~ ".....") sky = secondDay_sky15;
			if(sLoop ~ "......") sky = secondDay_sky18;
			if(sLoop ~ ".......") sky = secondDay_sky21;
		}

		string humidity = "";
		if(sDayLoop ~ "")
		{
			if(sLoop ~ "") humidity = firstDay_humidity0;
			if(sLoop ~ ".") humidity = firstDay_humidity3;
			if(sLoop ~ "..") humidity = firstDay_humidity6;
			if(sLoop ~ "...") humidity = firstDay_humidity9;
			if(sLoop ~ "....") humidity = firstDay_humidity12;	
			if(sLoop ~ ".....") humidity = firstDay_humidity15;
			if(sLoop ~ "......") humidity = firstDay_humidity18;
			if(sLoop ~ ".......") humidity = firstDay_humidity21;
		}
		if(sDayLoop ~ ".")
		{
			if(sLoop ~ "") humidity = secondDay_humidity0;
			if(sLoop ~ ".") humidity = secondDay_humidity3;
			if(sLoop ~ "..") humidity = secondDay_humidity6;
			if(sLoop ~ "...") humidity = secondDay_humidity9;
			if(sLoop ~ "....") humidity = secondDay_humidity12;	
			if(sLoop ~ ".....") humidity = secondDay_humidity15;
			if(sLoop ~ "......") humidity = secondDay_humidity18;
			if(sLoop ~ ".......") humidity = secondDay_humidity21;
		}

		string tmpr = "";
		if(sDayLoop ~ "")
		{
			if(sLoop ~ "") tmpr = firstDay_tmpr0;
			if(sLoop ~ ".") tmpr = firstDay_tmpr3;
			if(sLoop ~ "..") tmpr = firstDay_tmpr6;
			if(sLoop ~ "...") tmpr = firstDay_tmpr9;
			if(sLoop ~ "....") tmpr = firstDay_tmpr12;	
			if(sLoop ~ ".....") tmpr = firstDay_tmpr15;
			if(sLoop ~ "......") tmpr = firstDay_tmpr18;
			if(sLoop ~ ".......") tmpr = firstDay_tmpr21;
		}
		if(sDayLoop ~ ".")
		{
			if(sLoop ~ "") tmpr = secondDay_tmpr0;
			if(sLoop ~ ".") tmpr = secondDay_tmpr3;
			if(sLoop ~ "..") tmpr = secondDay_tmpr6;
			if(sLoop ~ "...") tmpr = secondDay_tmpr9;
			if(sLoop ~ "....") tmpr = secondDay_tmpr12;	
			if(sLoop ~ ".....") tmpr = secondDay_tmpr15;
			if(sLoop ~ "......") tmpr = secondDay_tmpr18;
			if(sLoop ~ ".......") tmpr = secondDay_tmpr21;
		}
		string windDirection="";
		if(sDayLoop ~ "")
		{
			if(sLoop ~ "") windDirection = firstDay_windDirection0;
			if(sLoop ~ ".") windDirection = firstDay_windDirection3;
			if(sLoop ~ "..") windDirection = firstDay_windDirection6;
			if(sLoop ~ "...") windDirection = firstDay_windDirection9;
			if(sLoop ~ "....") windDirection = firstDay_windDirection12;	
			if(sLoop ~ ".....") windDirection = firstDay_windDirection15;
			if(sLoop ~ "......") windDirection = firstDay_windDirection18;
			if(sLoop ~ ".......") windDirection = firstDay_windDirection21;
		}
		if(sDayLoop ~ ".")
		{
			if(sLoop ~ "") windDirection = secondDay_windDirection0;
			if(sLoop ~ ".") windDirection = secondDay_windDirection3;
			if(sLoop ~ "..") windDirection = secondDay_windDirection6;
			if(sLoop ~ "...") windDirection = secondDay_windDirection9;
			if(sLoop ~ "....") windDirection = secondDay_windDirection12;	
			if(sLoop ~ ".....") windDirection = secondDay_windDirection15;
			if(sLoop ~ "......") windDirection = secondDay_windDirection18;
			if(sLoop ~ ".......") windDirection = secondDay_windDirection21;
		}

		string windSpeed = "";
		if(sDayLoop ~ "")
		{
			if(sLoop ~ "") windSpeed = firstDay_windSpeed0;
			if(sLoop ~ ".") windSpeed = firstDay_windSpeed3;
			if(sLoop ~ "..") windSpeed = firstDay_windSpeed6;
			if(sLoop ~ "...") windSpeed = firstDay_windSpeed9;
			if(sLoop ~ "....") windSpeed = firstDay_windSpeed12;	
			if(sLoop ~ ".....") windSpeed = firstDay_windSpeed15;
			if(sLoop ~ "......") windSpeed = firstDay_windSpeed18;
			if(sLoop ~ ".......") windSpeed = firstDay_windSpeed21;
		}
		if(sDayLoop ~ ".")
		{
			if(sLoop ~ "") windSpeed = secondDay_windSpeed0;
			if(sLoop ~ ".") windSpeed = secondDay_windSpeed3;
			if(sLoop ~ "..") windSpeed = secondDay_windSpeed6;
			if(sLoop ~ "...") windSpeed = secondDay_windSpeed9;
			if(sLoop ~ "....") windSpeed = secondDay_windSpeed12;	
			if(sLoop ~ ".....") windSpeed = secondDay_windSpeed15;
			if(sLoop ~ "......") windSpeed = secondDay_windSpeed18;
			if(sLoop ~ ".......") windSpeed = secondDay_windSpeed21;
		}

		if ( sky )
			add_day;
		sLoop = sLoop + ".";
  	}
	sDayLoop = sDayLoop + ".";
   }
   {
	string sLoop = ".";
	while(sLoop $ ".......")
	{
		string sky ="";
		string tmprLo = "";
		string tmprHi = "";
		string pressure="";
		string tmprUnits="C";
		string pressureUnit="hPa";
		string tmpr ="";
		string windSpeedUnits="";
		string windDirection="";
		string hour="";
		string dayOfMonth = "";
		if(sLoop ~ "") dayOfMonth = secondDay_dayOfMonth;
		if(sLoop ~ ".") dayOfMonth = thirdDay_dayOfMonth;
		if(sLoop ~ "..") dayOfMonth = fourthDay_dayOfMonth;
		if(sLoop ~ "...") dayOfMonth = fifthDay_dayOfMonth;
		if(sLoop ~ "....") dayOfMonth = sixthDay_dayOfMonth;
		if(sLoop ~ ".....") dayOfMonth = seventhDay_dayOfMonth;
		if(sLoop ~ "......") dayOfMonth = eigthDay_dayOfMonth;
		if(sLoop ~ "") sky = secondDay_sky12;
		if(sLoop ~ ".") sky = thirdDay_sky;
		if(sLoop ~ "..") sky = fourthDay_sky;
		if(sLoop ~ "...") sky = fifthDay_sky;
		if(sLoop ~ "....") sky = sixthDay_sky;
		if(sLoop ~ ".....") sky = seventhDay_sky;
		if(sLoop ~ "......") sky = eigthDay_sky;
		if(sLoop ~ "") tmprHi = secondDay_tmpr15; 	// It is assumed that tmpr gets high at 15:00
		if(sLoop ~ ".") tmprHi = thirdDay_tmprHi;
		if(sLoop ~ "..") tmprHi = fourthDay_tmprHi;
		if(sLoop ~ "...") tmprHi = fifthDay_tmprHi;
		if(sLoop ~ "....") tmprHi = sixthDay_tmprHi;
		if(sLoop ~ ".....") tmprHi = seventhDay_tmprHi;
		if(sLoop ~ "......") tmprHi = eigthDay_tmprHi;
		if(sLoop ~ "") tmprLo = secondDay_tmpr6;	// It is assumed that tmpr gets low at 6:00 
		if(sLoop ~ ".") tmprLo = thirdDay_tmprLo;
		if(sLoop ~ "..") tmprLo = fourthDay_tmprLo;
		if(sLoop ~ "...") tmprLo = fifthDay_tmprLo;
		if(sLoop ~ "....") tmprLo = sixthDay_tmprLo;
		if(sLoop ~ ".....") tmprLo = seventhDay_tmprLo;
		if(sLoop ~ "......") tmprLo = eigthDay_tmprLo;

		if ( sky )
			add_day;

		sLoop = sLoop + ".";
	}
    }
}