//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ------------------------------------------
// -   ű -
// ------------------------------------------
// 汾 1.1
//===========================================

// North --------------------------------------------------------
alberta,23,238,4	script	#alberta	105,{
	mes "[]";
	mes "ӭ ۿ֮.";
	mes "Ϊÿ ˵Ϊǽ ʱ ʱѯ.";
	mes "һÿ Ȱѡ ѡע ˽ע.";
	while(1) {
		next;
		switch (select("ʼɵ˵:ɾ΢͵ͼȫļǺ:ȡע:ȡ")) {
		case 1:
			if(@compass&0x20 == 0) {
				mes "[]";
				mes "Ҫ΢͵ͼ¼Ǻ?";
				next;
				if(select("Ҫ:Ҫ")==1)
					set @compass,@compass|0x20;
			}
			mes "[]";
			mes "ѡ";
			while(1) {
				next;
				switch (select("^FF0000Э^000000","̵:̵:ù:ȡ")) {
				case 1:
					mes "[]";
					mes "רŰתְҵЭ.";
					if(@compass&0x20)
						viewpoint 1,33,41,1,0xFF0000;
					continue;
				case 2:
					mes "[]";
					mes "̵λ΢͵ͼĵϱ.";
					if(@compass&0x20)
						viewpoint 1,117,37,2,0xFF00FF;
					continue;
				case 3:
					mes "[]";
					mes "̵λ΢͵ͼϵĴ.";
					if(@compass&0x20)
						viewpoint 1,98,154,3,0xFF00FF;
					continue;
				case 4:
					mes "[]";
					mes "ùλ΢͵ͼĵı.";
					if(@compass&0x20)
						viewpoint 1,65,233,4,0xFF00FF;
					continue;
				case 5:
					mes "[]";
					mes "ҪɾǺѡȡ 'ɾ΢͵ͼȫļǺ' .";
				}
				break;
			}
			continue;
		case 2:
			mes "[]";
			mes "ɾ";
			viewpoint 2,33,41,1,0xFF0000;
			viewpoint 2,117,37,2,0xFF00FF;
			viewpoint 2,98,154,3,0xFF00FF;
			viewpoint 2,65,233,4,0xFF00FF;
			set @compass,@compass&~0x20;
			continue;
		case 3:
			mes "[]";
			mes "ǷϳԭϲָʽִġﶼԽ΢͵ͼ֪λ.";
			mes "ǿֱȷ¬׵¼ӶħͿѧϺĹλϵͳĹ.";
			next;
			mes "[]";
			mes "֮ǰȲοϷ΢͵ͼ.";
			mes "΢͵ͼĻ 밴'ctrl+tab'ѡȡ鱨Ӵ ڵ'map'.";
			mes "΢͵ͼ֮, ڵͼϰ  '-' ¿Կг.";
			continue;
		case 4:
			mes "[]";
			mes "ټ";
			close;
		}
	}
}

alberta,120,60,3	duplicate(#alberta)		105