//===== eAthena Script ======================================= 
//= Quests NPCs located in Niflheim
//===== By: ================================================== 
//= eAthena Dev Team
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= eAthena 7.15 +
//===== Description: ========================================= 
//= Book of Devil and Piano Key quest
//===== Additional Comments: ================================= 
//= 1.0 Initial release, moved Book of Devil and Piano quest from npc/cities/niflheim.txt
//============================================================ 

//=============================================================
//Quest for Book of Devil
//=============================================================
niflheim,184,199,5	script	pk#02	793,{
	mes "[]";
	if(MISC_QUEST & 256){
		mes "§AUڭ!";
		close;
	}
	if(@niflheimlost == 2){
		mes "A차ߴF?";
		mes "! uOӷP§AF!";
		mes "o̦IpFOڵA§.";
		getitem 642,1;//Items: Book of Devil,
		set MISC_QUEST,MISC_QUEST | 256;
		set @niflheimlost,0;
		close;
	}
	if(@niflheimlost == 1){
M_YES:
		set @niflheimlost,1;
		mes "ЧAڧLåBiLڦbo! ڳ̫@LOb~쳥AĤ@ӭ쳥...";
		close;
	}
	mes "!AiHڤ@Ӧ?";
	if(BaseJob==Job_Novice){
		mes "@... A]gF...";
		close;
	}
	next;
	menu "SD!",-, "Aa...",M_NO;

	mes "[]";
	mes "ڪB͸ڤ@_ӰOboӭͪaF.";
	next;
	mes "[]";
	mes "MAڵo{@ӫAڧLߤF_ӡAGܦF@ӫջ!";
	next;
	mes "[]";
	mes "ڦys۰k}Aɧکүaֶ]CڰUӪɭԡAڵo{ڨBboӭͪ..";
	next;
	mes "[]";
	mes "ǫSH@NDڡAӥBǫBOF! AiHڧڪBͶ?";
	next;
	menu "SD!",M_YES, "AB͸Ӥ|]Oջa...",M_NO;
M_NO:
	close;
}

nif_fild01,213,268,5	script	pk	797,{
	if(MISC_QUEST & 256){
L_DONE:
		set @niflheimlost,2;
		mes "[ߴ]";
		mes "§AUڭ!";
		close;
	}
	if(@niflheimlost == 2) goto L_PART2;
	if(@niflheimlost == 1){
		mes "AO?";
		mes "...";
		mes "AD¦b?";
		mes "L]i̥hF?";
		next;
L_PART2:
		mes "[ߴ]";
		mes "AiHiLڥߨʨho?";
		mes "ڨICAOаȥoDڤwgWFAoܭn.";
		next;
		menu "SD!",L_DONE, "ANCCa!",-;
		close;	
	}
	mes "[ߴ]";
	mes "...Ab?";
	close;
}

//=============================================================
//Piano Quest
//=============================================================
//-----------------]k--------------//
niflheim,224,243,3	script	p	795,{
	mes "[p]";
	mes "ڳw ⫢A";
	mes "Aݰ_...nnY";
	next;
	mes "[p]";
	mes "ڭnYA";
	next;
	mes "-   -";
	if(nif_piano&1 || (MISC_QUEST & 32)) goto L_end;
	percentheal -60,0;
	next;
	mes "[p]";
	mes "n[SYonYפF...";
	mes "O覡N׮vŵšAwסA";
	mes "ۦAȵ̤OƩwɡA";
	mes "eaXӪܡA";
	mes "ӷ|ܦnY... ";
	next;
	mes "[p]";
	mes "γoӨӷ§AO[e";
	mes "baWߨ쪺Aг";
	getitem 7184,1;//Items: Piano Key,
	set nif_piano, nif_piano|1;
	close;
L_end:
	percentheal -30,0;
 	close;
}

nif_in,105,81,3	script	Jp	794,{
	mes "[Jp]";
	mes "b@WH..";
	mes "qɡAqӤH}l..";
	mes "򳣤D֡A";
	mes "NoˬyǤU";
	next;
	mes "[Jp]";
	mes "^FF0000鸨bsɡA^000000";
	mes "^FF0000ҫaA^000000";
	mes "^FF0000}G۫¶bWɡA^000000";
	mes "^FF0000O׶}FMh_^000000";
	next;
	mes "[Jp]";
	if(nif_piano&2 || (MISC_QUEST & 32)){
		mes "ONqO... AJӬݪܡA";
		mes "SD``A";
		mes "T깳OtA";
		mes "򯵱K";
		close;
	}
	set @nif_random,rand(1,4);
	switch(@nif_random){
	case 1:
		set @str1$,"鸨bsɡA";
		set @str2$,"Ĥ@A";
		break;
	case 2:
		set @str1$,"ҫaA";
		set @str2$,"ĤGA";
		break;
	case 3:
		set @str1$,"}G۫¶bWɡA";
		set @str2$,"ĤTA";
		break;
	case 4:
		set @str1$,"O׶}FMh_";
		set @str2$,"ĥ|A";
		break;
	}
	mes "b@U! Чť";
	mes "֪" + @str2$ + "A";
	mes "㪺g@M!";
	next;
	input @inputstr1$;
	mes "[Jp]";
	if(@inputstr1$ == @str1$){
		mes "...`Nť!";
		mes "ڧJpAuC֤HA";
		mes "AǪw諸ťA";
		mes "oOeAy";
		getitem 7184,1;//Items: Piano Key,
		set nif_piano, nif_piano|2;
		next;
		mes "[Jp]";
		mes "ƱLuC֤HA";
		mes "]O@˭n§";
		close;
	}
	mes "... pGMťܡA";
	mes "@w|諸!";
	mes "nnQQA";
	mes "AӬDԧa!";
	close;
}

nif_in,31,20,3	script	w@Ư	794,{
	mes "[w@Ư]";
	mes "ثeͷNuOܮt...";
	mes "Wlڪ]O";
	mes "ͷNܮtO~!";
	if(nif_piano&4 || (MISC_QUEST & 32)) close;
	next;
	mes "[w@Ư]";
	mes " ! XhڡA";
	mes "oӥᱼA";
	getitem 7184,1;//Items: Piano Key,
	set nif_piano, nif_piano|4;
	next;
	mes "[w@Ư]";
	mes "쩳ͷN|";
	mes "otO... BBBB";
	close;
}

niflheim,169,71,5	script	#1	111,2,2,{
	if(MISC_QUEST & 32 || nif_piano&8) end;

	mes "- Ao{bXӪ -";
	mes "- ӪF -";
	mes "- QISF@b -";
	mes "- O򪺸H? -";
	mes "- O׾Lˤl -";
	next;
	mes "- n߰_Ӷ? -";
	menu "O",-,"O",L_end;
	getitem 7184,1;//Items: Piano Key,
	set nif_piano, nif_piano|8;
L_end:
	close;
}

niflheim,208,103,5	script	#2	111,2,2,{
	if(MISC_QUEST & 32 || nif_piano&32) end;
	if(nif_piano&16){
		mes "- AbXӪa -";
		mes "- o{g٦F -";
		mes "- QI_ӤF -";
		mes "- GMOӭ׾ -";
		mes "- LH -";
		next;
		mes "- n߰_Ӷ? -";
		menu "O",-,"O",L_end;
		getitem 7184,1;//Items: Piano Key,
		set nif_piano, nif_piano|32;
	L_end:
		close;
	}
	mes "- Ao{bXӪ -";
	mes "- ӪF -";
	mes "- QISF@b -";
	mes "- O򪺸H? -";
	mes "- O׾Lˤl -";
	next;
	mes "- n߰_Ӷ? -";
	menu "O",-,"O",L_end;
	getitem 7184,1;//Items: Piano Key,
	set nif_piano, nif_piano|16;
	close;
}

nif_in,115,181,5	script	#4	111,3,3,{
	mes "- Ab^渨 -";
	if((MISC_QUEST & 32)==0) mes "- with a few keys missing  -";
	if(MISC_QUEST & 32) mes "- with one key missing -";
	if(MISC_QUEST & 32 || countitem(7184) < 6) close;

	delitem 7184,countitem(7184);//Items: Piano Key,
	set MISC_QUEST,MISC_QUEST | 32;
	set nif_piano, 0;
	mes "- L@Ӥ@ -";
	mes "- ihFAiO -";
	mes "- o{̥ -";
	mes "- ʤ֤@ -";
	mes "- L -";
	close;
}


nif_in,118,151,5	script	#5	111,3,3,{
	if((MISC_QUEST & 32)==0) end;
	mes "- A驵vl -";
	mes "- nb渨 -";
	mes "- ^LW -";
	mes "- @ -";
	next;
	soundeffect "complete.wav",0;
	mes "- 馳ܻPıA -";
	mes "- P򪺵] -";
	mes "- }lҽkMF-";
	next;
	warp "nif_in",179,163;
	close;
}

nif_in,188,168,3	script	]k	792,{
	mes "[_ֳͮR]";
	mes "?... AOHܡA";
	mes "Өo̡A";
	mes "Ӥe...";
	mes "޲zѬOAo̤O۪H";
	mes "iHӪa";
	next;
	mes "[_ֳͮR]";
	mes "QΧڪOqAǨ";
	mes "~hAH̦nO";
	mes "nAӤF";
	close2;
	warp "umbala",138,208;
	end;
}
