//===========================================================================================
// The idea is to make the right spell to unfreeze the magician. When you select the 
// correct answers of the variable is assigned a qe_ma. Total 7 "issues." In the end if 
// the variable qe_ma is 7, the quest is made, and the magician through the loss of 
// frozen thawed NPCs and NPC appears defrosted. And so, in general.
// It is necessary to make the frozen NPCs, who was in the code that could talk
// simultaneously with only one person.
//============================================================================================
// Thank you for your help. =)
//============================================================================================

prt_fild08,54,59,4	script	Iced mage::ice_mage2	924,{
	if (evilmage == 1) goto L_1;
	if (smognah == 1) goto pristupim;
	set $@razgovor,1;
	set .name$,strcharinfo(0);
	mes "The magician is frozen. But still it seems that he is still alive."; // The quest is not yet available.
	close;
	pristupim:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "So that means you are. Now we'll unfreeze ..."; // The quest begins
	next;
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "We must remember the spell ..."; // Here we must recall correctly spell. The correct answers marked: set qe_ma, qe_ma +1;
	next;
	menu "Fulgura tollat. Fulgura fervet...",L_11,"Aqua non tollat. Aqua reddit...",L_12,"Luminum ascendit et materiam...",L_13;
	L_11:	goto qe2;
	L_12:	goto qe2;
	L_13:	set qe_ma,qe_ma+1;	goto qe2; // The correct answer.
	qe2:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Fulgura tollat. Fulgura fervet...",L_21,"Aqua non tollat. Aqua reddit...",L_22,"Luminum ascendit et materiam...",L_23;
	L_21:	set qe_ma,qe_ma+1;	goto qe3; // The correct answer.
	L_22:	goto qe3;
	L_23:	goto qe3;
	qe3:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Fulgura tollat. Fulgura fervet...",L_31,"Aqua non tollat. Aqua reddit...",L_32,"Luminum ascendit et materiam...",L_33;
	L_31:	goto qe4;
	L_32:	set qe_ma,qe_ma+1;	goto qe4; // The correct answer.
	L_33:	goto qe4;	
	qe4:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Aqua",L_41,"Ignis",L_42,"Fulgura",L_43;
	L_41:	set qe_ma,qe_ma+1;	goto qe5; // The correct answer.
	L_42:	goto qe5;
	L_43:	goto qe5;
	qe5:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Aqua",L_51,"Ignis",L_52,"Fulgura",L_53;
	L_51:	goto qe6;
	L_52:	set qe_ma,qe_ma+1;	goto qe6; // The correct answer.
	L_53:	goto qe6;
	qe6:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Aqua",L_61,"Ignis",L_62,"Fulgura",L_63;
	L_61:	goto qe7;
	L_62:	goto qe7;
	L_63:	set qe_ma,qe_ma+1;	goto qe7; // The correct answer.
	qe7:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "...";
	next;
	menu "Let the ice melt!",L_71,"Etiam scutum rumpet glaciem...",L_72,"Scutum glasiem rumpet Ignis...",L_73,"Ice, I want you broke...",L_74,"Das Eis taut auf!",L_75;
	L_71:	goto qe8;
	L_72:	set qe_ma,qe_ma+1;	goto qe8; // The correct answer.
	L_73:	goto qe8;
	L_74:	goto qe8;
	L_75:	goto qe8;
	qe8:
	if(qe_ma != 7) goto break_magic;
	hideonnpc "ice_mage2";
	hideoffnpc "norm_mage2";
	hideonnpc "ice_mage";
	hideoffnpc "norm_mage";
	set $rasmorozilsya,1;
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "Is it possible that I got ..."; // Frosted mage disappears in its place there is just a mage.
	set qe_ma,0;
	close2;
		sleep2 30000;
		set $@razgovor,0;
		hideonnpc "norm_mage2";
		hideoffnpc "ice_mage2";
		hideonnpc "norm_mage";
		hideoffnpc "ice_mage";
		end;
	break_magic:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "Oh, did not work. Need to try again ...";
	set qe_ma,0;
	close;
	L_1:
	mes "^00aa00["+strcharinfo(0)+"]^000000";
	mes "Strangely, I like it thawed.";
}