on (press) {
// script by waldemar.it liberamente utilizzabile
// t1, t2, t.. simula il tiro delle monete: 0 yin mobile (6), 1 yang fissa (7), 2 yin fissa (8), 3 yang mobile (9)
// le variabili l(1,2, ..) attribuiscono una lettera alle linee dell'esagramma del responso, m (1,2, ..) le linee del mutamento
// a=yin e b=yang
	t1 = random(4);

	if (t1 == "0"){
		l1 = "a"
		m1 = "b";
	}
	
	if (t1 == "1"){
		l1 = "b"
		m1 = "b";
	}
	if (t1 == "2"){
		l1 = "a"
		m1 = "a";
	}
	if (t1 == "3") {
		l1 = "b"
		m1 = "a"
	}
// secondo tiro	
	t2 = random(4);

	if (t2 == "0"){
		l2 = "a"
		m2 = "b";
	}
	
	if (t2 == "1"){
		l2 = "b"
		m2 = "b";
	}
	if (t2 == "2"){
		l2 = "a"
		m2 = "a";
	}
	if (t2 == "3"){
		l2 = "b"
		m2 = "a";
	}					
// terzo tiro
	t3 = random(4);

	if (t3 == "0"){
		l3 = "a"
		m3 = "b";
	}
	
	if (t3 == "1"){
		l3 = "b"
		m3 = "b";
	}
	if (t3 == "2"){
		l3 = "a"
		m3 = "a";
	}
	if (t3 == "3") {
		l3 = "b"
		m3 = "a"
	}
// quarto tiro	
	t4 = random(4);

	if (t4 == "0"){
		l4 = "a"
		m4 = "b";
	}
	
	if (t4 == "1"){
		l4 = "b"
		m4 = "b";
	}
	if (t4 == "2"){
		l4 = "a"
		m4 = "a";
	}
	if (t4 == "3"){
		l4 = "b"
		m4 = "a";
	}		
//quinto tiro
	t5 = random(4);

	if (t5 == "0"){
		l5 = "a"
		m5 = "b";
	}
	
	if (t5 == "1"){
		l5 = "b"
		m5 = "b";
	}
	if (t5 == "2"){
		l5 = "a"
		m5 = "a";
	}
	if (t5 == "3") {
		l5 = "b"
		m5 = "a"
	}
// sesto tiro	
	t6 = random(4);

	if (t6 == "0"){
		l6 = "a"
		m6 = "b";
	}
	
	if (t6 == "1"){
		l6 = "b"
		m6 = "b";
	}
	if (t6 == "2"){
		l6 = "a"
		m6 = "a";
	}
	if (t6 == "3"){
		l6 = "b"
		m6 = "a";
	}			
// vengono composte le due variabili degli esagrammi: resp e muta con le lettere dei diversi tiri	
		resp = l6+l5+l4+l3+l2+l1;
		muta = m6+m5+m4+m3+m2+m1;
//vengono confrontate le due serie con i rispettivi esagrammi e indirizzate le uscite 
//sul fotogramma corrispondente del clip ching. viene anche attribuito il testo della descrizione
	 if (resp == "bbbbbb"){
	ching.gotoAndStop (2)
	 tr = "1.Ch'ienn";
	 }
	 if (muta == "bbbbbb"){
	ching2.gotoAndStop (2);
	trm = "1.Ch'ienn"
	}
	 if (resp == "aaaaaa"){
	 ching.gotoAndStop (3)
	 tr = "2.K'un";
	}
	 if (muta == "aaaaaa"){
	ching2.gotoAndStop (3);
	trm = "2.K'un"
	}	
	 if (resp == "abaaab"){
	ching.gotoAndStop (4);
	tr = "3.Chun"
	}
	 if (muta == "abaaab"){
	ching2.gotoAndStop (4);
	trm = "3.Chun"
	}	
	 if (resp == "baaaba"){
	ching.gotoAndStop (5);
	tr = "4.Mêng"
	}
	 if (muta == "baaaba"){
	ching2.gotoAndStop (5);
	trm = "4.Mêng"
	}		
	 if (resp == "ababbb"){
	ching.gotoAndStop (6);
	tr = "5.Hsü"
	}
	 if (muta == "ababbb"){
	ching2.gotoAndStop (6);
	trm = "5.Hsü"
	}			
	 if (resp == "bbbaba"){
	ching.gotoAndStop (7);
	tr = "6.Sung"
	}
	 if (muta == "bbbaba"){
	ching2.gotoAndStop (7);
	trm = "6.Sung"
	}			
	 if (resp == "aaaaba"){
	ching.gotoAndStop (8);
	tr = "7.Shih"
	}
	 if (muta == "aaaaba"){
	ching2.gotoAndStop (8);
	trm = "7.Shih"
	}			
 	if (resp == "abaaaa"){
	ching.gotoAndStop (9);
	tr = "8.Pi"
	}
	 if (muta == "abaaaa"){
	ching2.gotoAndStop (9);
	trm = "8.Pi"
	}				
	if (resp == "bbabbb"){
	ching.gotoAndStop (10);
	tr = "9.Hsiao Chu"
	}
	 if (muta == "bbabbb"){
	ching2.gotoAndStop (10);
	trm = "9.Hsiao Chu"
	}				
	if (resp == "bbbabb"){
	ching.gotoAndStop (11);
	tr = "10.Lü"
	}
	 if (muta == "bbbabb"){
	ching2.gotoAndStop (11);
	trm = "10.Lü"
	}				
	if (resp == "aaabbb"){
	ching.gotoAndStop (12);
	tr = "11.T'ai"
	}
	 if (muta == "aaabbb"){
	ching2.gotoAndStop (12);
	trm = "11.T'ai"
	}					
	if (resp == "bbbaaa"){
	ching.gotoAndStop (13);
	tr = "12.P'i"
	}
	 if (muta == "bbabbb"){
	ching2.gotoAndStop (13);
	trm = "12.P'i"
	}					
	if (resp == "bbbbab"){
	ching.gotoAndStop (14);
	tr = "13.T'ung Jên"
	}
	 if (muta == "bbbbab"){
	ching2.gotoAndStop (14);
	trm = "13.T'ung Jên"
	}						
	if (resp == "babbbb"){
	ching.gotoAndStop (15);
	tr = "14.Ta Yu"
	}
	 if (muta == "babbbb"){
	ching2.gotoAndStop (15);
	trm = "14.Ta Yu"
	}							
	if (resp == "aabaaa"){
	ching.gotoAndStop (16);
	tr = "15.Ch'ien"
	}
	 if (muta == "aabaaa"){
	ching2.gotoAndStop (16);
	trm = "15.Ch'ien"
	}							
	if (resp == "aaabaa"){
	ching.gotoAndStop (17);
	tr = "16.Yü"
	}
	 if (muta == "aaabaa"){
	ching2.gotoAndStop (17);
	trm = "16.Yü"
	}							
	if (resp == "baabba"){
	ching.gotoAndStop (18);
	tr = "17.Sui"
	}
	 if (muta == "baabba"){
	ching2.gotoAndStop (18);
	trm = "17.Sui"
	}							
	if (resp == "abbaab"){
	ching.gotoAndStop (19);
	tr = "18.Ku"
	}
	 if (muta == "abbaab"){
	ching2.gotoAndStop (19);
	trm = "18.Ku"
	}
	if (resp == "bbaaaa"){
	ching.gotoAndStop (20);
	tr = "19.Lin"
	}
	 if (muta == "bbaaaa"){
	ching2.gotoAndStop (20);
	trm = "19.Lin"
	}							
	if (resp == "aaaabb"){
	ching.gotoAndStop (21);
	tr = "20.Kuan"
	}
	 if (muta == "aaaabb"){
	ching2.gotoAndStop (21);
	trm = "20.Kuan"
	}							
	if (resp == "baabab"){
	ching.gotoAndStop (22);
	tr = "21.Shih Ho"
	}
	 if (muta == "baabab"){
	ching2.gotoAndStop (22);
	trm = "21.Shih Ho"
	}							
	if (resp == "babaab"){
	ching.gotoAndStop (23);
	tr = "22.Pi"
	}
	 if (muta == "babaab"){
	ching2.gotoAndStop (23);
	trm = "22.Pi"
	}							
	if (resp == "aaaaab"){
	ching.gotoAndStop (24);
	tr = "23.Po"
	}
	 if (muta == "aaaaab"){
	ching2.gotoAndStop (24);
	trm = "23.Po"
	}							
	if (resp == "baaaaa"){
	ching.gotoAndStop (25);
	tr = "24.Fu"
	}
	 if (muta == "baaaaa"){
	ching2.gotoAndStop (25);
	trm = "24.Fu"
	}							
	if (resp == "baabbb"){
	ching.gotoAndStop (26);
	tr = "25.Wu Wang"
	}
	 if (muta == "baabbb"){
	ching2.gotoAndStop (26);
	trm = "25.Wu Wang"
	}							
	if (resp == "bbbaab"){
	ching.gotoAndStop (27);
	tr = "26.Ta Ch'u"
	}
	 if (muta == "bbbaab"){
	ching2.gotoAndStop (27);
	trm = "26.Ta Ch'u"
	}							
	if (resp == "baaaab"){
	ching.gotoAndStop (28);
	tr = "27.I"
	}
	 if (muta == "baaaab"){
	ching2.gotoAndStop (28);
	trm = "27.I"
	}							
	if (resp == "abbbba"){
	ching.gotoAndStop (29);
	tr = "28.Ta Kuo"
	}
	 if (muta == "abbbba"){
	ching2.gotoAndStop (29);
	trm = "28.Ta Kuo"
	}							
	if (resp == "abaaba"){
	ching.gotoAndStop (30);
	tr = "29.K'an"
	}
	 if (muta == "abaaba"){
	ching2.gotoAndStop (30);
	trm = "29.K'an"
	}							
	if (resp == "babbab"){
	ching.gotoAndStop (31);
	tr = "30.Li"
	}
	 if (muta == "babbab"){
	ching2.gotoAndStop (31);
	trm = "30.Li"
	}							
	if (resp == "aabbba"){
	ching.gotoAndStop (32);
	tr = "31.Hsien"
	}
	 if (muta == "aabbba"){
	ching2.gotoAndStop (32);
	trm = "31.Hsien"
	}							
	if (resp == "abbbaa"){
	ching.gotoAndStop (33);
	tr = "32.Hêng"
	}
	 if (muta == "abbbaa"){
	ching2.gotoAndStop (33);
	trm = "32.Hêng"
	}							
	if (resp == "aabbbb"){
	ching.gotoAndStop (34);
	tr = "33.Tun"
	}
	 if (muta == "aabbbb"){
	ching2.gotoAndStop (34);
	trm = "33.Tun"
	}		
	if (resp == "bbbbaa"){
	ching.gotoAndStop (35);
	tr = "34.Ta Chuang"
	}
	 if (muta == "bbbbaa"){
	ching2.gotoAndStop (35);
	trm = "34.Ta Chuang"
	}	
	if (resp == "aaabab"){
	ching.gotoAndStop (36);
	tr = "35.Chin"
	}
	 if (muta == "aaabab"){
	ching2.gotoAndStop (36);
	trm = "35.Chin"
	}
	if (resp == "babaaa"){
	ching.gotoAndStop (37);
	tr = "36.Ming"
	}
	 if (muta == "babaaa"){
	ching2.gotoAndStop (37);
	trm = "36.Ming"
	}	
	if (resp == "bababb"){
	ching.gotoAndStop (38);
	tr = "37.Chia Jên"
	}
	 if (muta == "bababb"){
	ching2.gotoAndStop (38);
	trm = "37.Chia Jên"
	}	
	if (resp == "bbabab"){
	ching.gotoAndStop (39);
	tr = "38.K'uei"
	}
	 if (muta == "bbabab"){
	ching2.gotoAndStop (39);
	trm = "38.K'uei"
	}
	if (resp == "aababa"){
	ching.gotoAndStop (40);
	tr = "39.Chien"
	}
	 if (muta == "aababa"){
	ching2.gotoAndStop (40);
	trm = "39.Chien"
	}	
	if (resp == "ababaa"){
	ching.gotoAndStop (41);
	tr = "40.Hsieh"
	}
	 if (muta == "ababaa"){
	ching2.gotoAndStop (41);
	trm = "40.Hsieh"
	}		
	if (resp == "bbaaab"){
	ching.gotoAndStop (42);
	tr = "41.Sun"
	}
	 if (muta == "bbaaab"){
	ching2.gotoAndStop (42);
	trm = "41.Sun"
	}			
	if (resp == "baaabb"){
	ching.gotoAndStop (43);
	tr = "42.I"
	}
	 if (muta == "baaabb"){
	ching2.gotoAndStop (43);
	trm = "42.I"
	}			
	if (resp == "bbbbba"){
	ching.gotoAndStop (44);
	tr = "43.Kuai"
	}
	 if (muta == "bbbbba"){
	ching2.gotoAndStop (44);
	trm = "43.Kuai"
	}		
	if (resp == "abbbbb"){
	ching.gotoAndStop (45);
	tr = "44.Kou"
	}
	 if (muta == "abbbbb"){
	ching2.gotoAndStop (45);
	trm = "44.Kou"
	}			
	if (resp == "aaabba"){
	ching.gotoAndStop (46);
	tr = "45.Ts'ui"
	}
	 if (muta == "aaabba"){
	ching2.gotoAndStop (46);
	trm = "45.Ts'ui"
	}			
	if (resp == "abbaaa"){
	ching.gotoAndStop (47);
	tr = "46.Shêng"
	}
	 if (muta == "abbaaa"){
	ching2.gotoAndStop (47);
	trm = "46.Shêng"
	}		
	if (resp == "ababba"){
	ching.gotoAndStop (48);
	tr = "47.K'un"
	}
	 if (muta == "ababba"){
	ching2.gotoAndStop (48);
	trm = "47.K'un"
	}		
	if (resp == "abbaba"){
	ching.gotoAndStop (49);
	tr = "48.Ching"
	}
	 if (muta == "abbaba"){
	ching2.gotoAndStop (49);
	trm = "48.Ching"
	}		
	if (resp == "babbba"){
	ching.gotoAndStop (50);
	tr = "49.Ko"
	}
	 if (muta == "babbba"){
	ching2.gotoAndStop (50);
	trm = "49.Ko"
	}		
	if (resp == "abbbab"){
	ching.gotoAndStop (51);
	tr = "50.Ting"
	}
	 if (muta == "abbbab"){
	ching2.gotoAndStop (51);
	trm = "50.Ting"
	}		
	if (resp == "baabaa"){
	ching.gotoAndStop (52);
	tr = "51.Chên"
	}
	 if (muta == "baabaa"){
	ching2.gotoAndStop (52);
	trm = "51.Chên"
	}	
	if (resp == "aabaab"){
	ching.gotoAndStop (53);
	tr = "52.Kên"
	}
	 if (muta == "aabaab"){
	ching2.gotoAndStop (53);
	trm = "52.Kên"
	}	
	if (resp == "aababb"){
	ching.gotoAndStop (54);
	tr = "53.Chien"
	}
	 if (muta == "aababb"){
	ching2.gotoAndStop (54);
	trm = "53.Chien"
	}
	if (resp == "bbabaa"){
	ching.gotoAndStop (55);
	tr = "54.Kuei Mei"
	}
	 if (muta == "bbabaa"){
	ching2.gotoAndStop (55);
	trm = "54.Kuai Mei"
	}
	if (resp == "babbaa"){
	ching.gotoAndStop (56);
	tr = "55.Fêng"
	}
	 if (muta == "babbba"){
	ching2.gotoAndStop (56);
	trm = "55.Fêng"
	}
	if (resp == "aabbab"){
	ching.gotoAndStop (57);
	tr = "56.Lü"
	}
	 if (muta == "aabbab"){
	ching2.gotoAndStop (57);
	trm = "56.Lü"
	}	
	if (resp == "abbabb"){
	ching.gotoAndStop (58);
	tr = "57.Sun"
	}
	 if (muta == "abbabb"){
	ching2.gotoAndStop (58);
	trm = "57.Sun"
	}
	if (resp == "bbabba"){
	ching.gotoAndStop (59);
	tr = "58.Tui"
	}
	 if (muta == "bbabba"){
	ching2.gotoAndStop (59);
	trm = "58.Tui"
	}	
	if (resp == "abaabb"){
	ching.gotoAndStop (60);
	tr = "59.Huan"
	}
	 if (muta == "abaabb"){
	ching2.gotoAndStop (60);
	trm = "59.Huan"
	}
	if (resp == "bbaaba"){
	ching.gotoAndStop (61);
	tr = "60.Chieh"
	}
	 if (muta == "bbaaba"){
	ching2.gotoAndStop (61);
	trm = "60.Chieh"
	}
	if (resp == "bbaabb"){
	ching.gotoAndStop (62);
	tr = "61.Chung Fu"
	}
	 if (muta == "bbaabb"){
	ching2.gotoAndStop (62);
	trm = "61.Chung Fu"
	}	
	if (resp == "aabbaa"){
	ching.gotoAndStop (63);
	tr = "62.Hsiao Kuo"
	}
	 if (muta == "aabbaa"){
	ching2.gotoAndStop (63);
	trm = "62.Hsiao Kuo"
	}	
	if (resp == "bababa"){
	ching.gotoAndStop (64);
	tr = "63.Chi Chi"
	}
	 if (muta == "bababa"){
	ching2.gotoAndStop (64);
	trm = "63.Chi Chi"
	}	
	if (resp == "ababab"){
	ching.gotoAndStop (65);
	tr = "64.Wei Chi"
	}
	 if (muta == "ababab"){
	ching2.gotoAndStop (65);
	trm = "64.Wei Chi"
	}	

// se l'esagramma del responso è uguale al mutamento 
// l'uscita veine indirizzata al fotogramma iniziale e il testo riporta l'assenza di mutamento
	
	if (l1 == m1) {
		testo = "non muta"
	 ching2.gotoAndStop (1);
	 trm = "Nessuna mutazione"
	}
}