//===== rAthena Script ======================================= 
//= Niflheim Script 
//===== By: ================================================== 
//= Fyrien, Dizzy, PKGINGO
//= Official NPCs translated and re-edited by Celest
//===== Current Version: ===================================== 
//= 1.5
//===== Compatible With: ===================================== 
//= [Official Conversion]
//= rAthena SVN; Niflheim Required
//===== Description: ========================================= 
//= Official NPC's for Niflheim
//= 1.01 Splitted file(guides, shops). Fixed rand() bugs,
//=      missing labels bugs, optimization [Lupus]
//= 1.03 fixed end; -> close;
//= 1.04-1.05 fixed several bugs with missing CLOSE button, wrong var name
//=     in Piano Keys quest
//=     fixed zeny/item, exploit in Sairin, some optimizations [Lupus]
//= 1.06 some typos in some variables fixed (thx 2 Dr.Evil) [Lupus]
//= 1.07 Fixed typos [Nexon]
//= 1.08 Commented "Traveler" out as it is not official & we have correct Bungee quest in. 
//=     Also removed TODO, as they are already done. [Vicious_Pucca]
//= 1.1 Replaced nif_q_done with MISC_QUEST & 32. nif_t -> @nif_t [Lupus]
//= 1.2 Removed Duplicates [Silent]
//= 1.3 Moved Book of Devil and Piano quest to quests/quests_niflheim.txt [Evera]
//= 1.4 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//=     Removed Cursed Spirits as they were custom.
//= 1.5 Added dummy "OnMyMobDead" event to Cursed Spirit. [L0ne_W0lf]
//============================================================ 

niflheim,52,147,3	script	#nif	796,{
	mes "[]";
	mes "ŵ˲׼";
	mes " -! ";
	mes "ŵͨ-!";
	close;
}

niflheim,195,211,6	script	ᰢ#nif	796,3,3,{
	if (isequipped(5038) || isequipped(2257) || isequipped(2256)) {
		mes "[" + strcharinfo(0) + "]";
		mes "What's up?";
		next;
		mes "[ᰢ]";
		mes "Just...";
		mes "Come over here.";
		mes "I have something";
		mes "I must do for you.";
		next;
		mes "[ᰢ]";
		mes "Your horn is crooked.";
		mes "Always make sure your horn";
		mes "is worn straight and neat.";
		mes "The Lord of Death is always";
		mes "looking at you.";
		close;
	}
	mes "[ᰢ]";
	mes "ʿǿһ";
	close;

OnTouch:
	if (isequipped(5038) || isequipped(2257) || isequipped(2256)) {
		mes "[ᰢ]";
		mes "Hey, wait!";
		close;
	}
	end;
}

nif_in,16,27,1	script	#nif	800,{
	mes "[Ϲۼ]";
	mes "ŵʱǳԵˣ";
	mes "ڻˣ";
	mes "û뵽˺󻹻磬";
	percentheal -5,0;
	close;
}

nif_in,16,30,4	script	 Ѫ#nif	799,{
	mes "[]";
	mes "ܻŻˣѪ";
	mes "Ǻܺúȣ";
	mes "ʲô? ҲҪ";
	mes "Ѫ?";
	percentheal -5,0;
	close;
}

nif_in,156,93,5	script	С#nif	793,{
	mes "[ ]";
	mes "...? ˯һ";
	mes "... 裬";
	mes "ûп? ...? ...";
	mes "Ҫؼ...";
	next;
	switch(select("ħŮ...:...:ֹͣԻ")){
	case 1:
		mes "[ ]";
		mes "ħŮ...? Ҳ֪νħŮ...";
		mes "Ȼͯж";
		mes "֪ûˣ";
		mes "еĻһܿ°...";
		next;
		mes "[ ]";
		mes "Ϊʲôô...?";
		if (sex == 1) 
			mes "㲻? ... ";
		else
			mes "㲻? ... ";
		mes "صůļң";
		mes "æ... ...? ...?";
		close;
	case 2:
		mes "[ ]";
		mes "... ";
		mes "˵Ļ˵ַ";
		mes "Զ޷ף";
		mes "⿪ĺݶ";
		next;
		mes "[ ]";
		mes "ͼ(Klaatu)...";
		mes "(Verata).....";
		mes "... ʲô... ʲô...? ʲô?";
		mes "ǲ";
		next;
		mes "[ ]";
		mes "˵˳3ĵĻ";
		mes "Դӱӹ";
		mes "Ѳ̫ǵҪ";
		mes "ʲô... Ҳ";
		close;
	case 3:
		mes "[ ]";
		mes "... ... Ҫص";
		mes "... Ļһ..";
		mes "̫.....";
		mes "æ... Ⱦ...";
		close;
	}
}

niflheim,350,258,1	script	 #nif	802,{
	killmonster "niflheim"," #nif::OnMyMobDead";
	mes "[ ·˹]";
	mes "ϸܵǿҵ䰡";
	mes "ҾܾĴڰ";
	mes "˻ȥ";
	mes "׼ҵ鰡";
	next;
	switch(select("һ:ڶ::ԹԵ˻ȥ")) {
	case 1:
		monster "niflheim",349,259,"Rideword",1478,1,"ħ#nif::OnMyMobDead";
		mes "[ ·˹]";
		mes "Ҫ㶯ҵ鰡!!";
		mes "! 㱻ҧ˺ץ!!";
		mes "Զ!!";
		close;
	case 2:
		mes "[ ·˹]";
		mes "˵׼ҵ鰡...";
		mes "ҹԶһ..";
		mes "ҪϢ!";
		close2;
		warp "niflheim",34,162;
		end;
	case 3:
		mes "[ ·˹]";
		mes ".... ൱е";
		mes "ļһﰡ...!! ...";
		mes "ʼİɰ...!!";
		emotion e_gg;
		next;
		if(select("ް(Clover):ͼ(Klaatu):˼(Kleitos)")==2)
			set .@spell,.@spell+1;
		if(select("(Verit):˾(Veritas): (Verata)")==3)
			set .@spell,.@spell+1;
		if(select("(Necktie):ڿ˾(Necklace):(Nero):^FFFFFFͼ(Nictu)^000000")==4)
			set .@spell,.@spell+1;
		if (.@spell == 3) {
			switch(rand(1,5)) {
			case 1:
				if (morison_meat < 15) {
					set MISC_QUEST,MISC_QUEST | 1;
					mes "[ ·˹]";
					mes "You... You broke the curse!";
					mes "How did you know that spell?!";
					next;
					mes "[ ·˹]";
					mes "I suppose you expect for me to";
					mes "melt in agony about now, don't";
					mes "you? Well... Sorry to disappoint";
					mes "you, mortal, but I can never die!";
					close;
				}
				mes "[ ·˹]";
				mes "...! You cast the correct spell?!";
				mes "...!...";
				mes "But...You're still cursed...";
				mes "Umhaaaaaaaaaaaaaaaaa.....!";
				close;
			case 2:
				if (thai_head == 1) {
					set thai_head,2;
					mes "[ ·˹]";
					mes "What's...";
					mes "this feeling?";
					next;
					mes "[ ·˹]";
					mes "No...!";
					mes "NOOOOOOOOOOOOOOOO!";
					next;
					mes "[ ·˹]";
					mes "Why did your spell have to work?!";
					close;
				}
				mes "[ ·˹]";
				mes "You...";
				mes "cast the correct spell?!";
				next;
				mes "[ ·˹]";
				mes "Hoho~";
				mes "But you're still cursed...";
				close;
			case 3:
				if (thai_head == 8) {
					set thai_head,7;
					mes "[ ·˹]";
					mes "You... You broke the curse!";
					mes "Who taught you that spell?!";
					next;
					mes "[ ·˹]";
					mes "I suppose you expect for me to";
					mes "melt in agony about now, don't";
					mes "you? Well... Sorry to disappoint";
					mes "you, mortal, but I can never die!";
					next;
					mes "[ ·˹]";
					mes "So long as I'm...";
					mes "still...";
					mes "cursed.";
					next;
					mes "[ ·˹]";
					mes "NOOOOOOOOOO!";
					close;
				}
				mes "[ ·˹]";
				mes "...! You cast the correct spell?!";
				mes "...!...";
				mes "But...You're still cursed...";
				mes "Umhaaaaaaaaaaaaaaaaa.....!";
				close;
			case 4:
				mes "[ ·˹]";
				mes "...! You cast the correct spell?!";
				mes "...!...";
				mes "But...You're still cursed...";
				mes "Mwahahahaaaa.....!";
				close;
			}
		}
		monster "niflheim",345,259,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",347,261,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",344,253,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",346,251,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",349,249,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",350,260,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		monster "niflheim",353,256,"Orc Skeleton",1462,1," #nif::OnMyMobDead";
		mes "[ ·˹]";
		mes "!!! Ĵ!";
		mes "㼴Ҫร";
		mes "ԸһӶܵɰ...!!";
		close;
	case 4:
		mes "[ ·˹]";
		mes "! Ĳ...";
		mes "һŻȥ....";
		close;
	}

OnMyMobDead:
	end;
}
