//===== rAthena Script ======================================= 
//= 
//===== By: ================================================== 
//= SinSloth
//===== Current Version: ===================================== 
//= 1.3
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= Craft god items after the four seals are broken.
//===== Additional Comments: =================================
//= 1.0 First version. Thanks to SinSloth for scripting it. [MasterOfMuppets]
//= 1.1 Updated several aspects of the script. [L0ne_W0lf]
//= 1.2 Corrected several incorrect item IDs. [L0ne_W0lf]
//= 1.3 Renewal script update. [Euphy]
//=     Added GM management function.
//============================================================


gld_dun01,28,85,0	script	ִ֮#1::GodDwarf	826,{
	mes "[ ײ]";
	mes "?!";
	mes "Ƭض";
	mes "ʲô㴵?";
	next;
	mes "[ ײ]";
	mes "Ϊ  ѡжҪֵط";
	mes "סڵ¡ԶѾʹ࣬";
	mes "˵һĴӡ ";
	mes "û¾ͱ~";
	next;
	switch(select("ѯʰ˵:ʲô:ʲôϵ::ȡ")) {
	case 1:
		mes "[ ײ]";
		mes "˵?";
		mes "ǿκζӵĻ.";
		next;
		mes "[ ײ]";
		mes "һ˼άܷ";
		mes "Ĺж";
		next;
		mes "[ ײ]";
		mes "Ϊ֪ʶͼ";
		mes "ܿǰ˴.";
		next;
		mes "[ ײ]";
		mes "ڶ";
		mes "ĹߺҲ";
		mes "㶮?";
		next;
		mes "[ ײ]";
		mes "ӵḻ֪ʶͼ!!!";
		close;

	case 2:
		mes "[ ײ]";
		mes "ֻʲô ";
		mes "۹ ȴκ޴";
		mes "Ȼǵƨɣ";
		next;
		mes "[ ײ]";
		mes "Ŷõġ ";
		mes "ҲսԼ";
		mes "̫ˣȻִ";
		next;
		mes "[ ײ]";
		mes "Ϊ壬Ǿġ";
		mes "ͬһƬأ ";
		mes "ǣұѡ";
		next;
		mes "[ ײ]";
		mes "Ϊһǧǰսҵļʧ";
		mes "ҲҲؼҵ·...";
		close;

	case 3:
		mes "[ ײ]";
		mes "ĴĴ";
		mes "Ƭ½ʹȨ";
		next;
		mes "Ȼ";
		mes "֮аȫûϵ...";
		mes "?";
		mes "СӣаϢ?!!";
		mes "! Ҳ㳶Ϲϵ! ";

		hideoffnpc "֮";
		close;
		
	case 4:
		set .@GID,getcharid(2);
		if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
			if (($God1 >= $@god_check1) && ($God2 >= $@god_check1) && ($God3 >= $@god_check1) && ($God4 >= $@god_check1) && (strcharinfo(0) == getguildmaster(.@GID))) {
				mes "[ ײ]";
				mes "Hmm...";
				mes "ҪһЩΪ ׶ʲôȤ";
				next;
				switch(select("Ů::ʷ֮ѥ:֮")) {
				case 1:
					mes "[ ײ]";
					mes "ҪЩ";
					mes "[^FF0000Ů^000000]";
					mes "^0000FFǱʯ * 4";
					mes "Ʒ * 4";
					mes "ѩĽᾧ * 3";
					mes "ˮ * 3";
					mes " * 3";
					mes "ʯ * 2";
					mes " * 3";
					mes "ױʯ * 10";
					mes "챦ʯ * 5";
					mes "ƽ * 20";
					mes " * 1^000000";
					next;
					mes "[ ײ]";
					mes "ڻ Ů ʱ ȵӡ⿪ ۹";
					close;
				case 2:
					mes "[ ײ]";
					mes "ҪЩ";
					mes "[^FF0000^000000]";
					mes "^0000FFħ * 1";
					mes "ƽ * 20";
					mes "ʯ * 10";
					mes "֮ * 10";
					mes "Ƥ[1] * 1^000000";
					next;
					mes "[ ײ]";
					mes "ע ħ Ǻϳز";
					mes "Ҳܰ";
					mes "ȥ prt_castle,44,151";
					mes "ҵ ױղ";
					mes "";
					next;
					mes "[ ײ]";
					mes "ڻ  ʱ ȵӡ⿪ ۹";
					close;
				case 3:
					mes "[ ײ]";
					mes "ҪЩ";
					mes "[^FF0000ʷ֮ѥ^000000]";
					mes "^0000FFδ֪ľ * 3";
					mes "ʹë * 5";
					mes " * 3";
					mes "̫ * 4";
					mes "ĺ * 3";
					mes "ƽ * 20";
					mes " * 10";
					mes "սʿѥ[1] * 1^000000";
					next;
					mes "[ ײ]";
					mes "ڻ ʷ֮ѥ ʱ ȵӡ⿪ ۹";
					close;
				case 4:
					mes "[ ײ]";
					mes "ҪЩ";
					mes "[^FF0000֮^000000]";
					mes "^0000FFж * 2";
					mes " * 4";
					mes "ͻķŭ * 5";
					mes " * 5";
					mes "˵ * 5";
					mes "֮ * 20";
					mes " * 5";
					mes "ƽ * 40";
					mes "֮ * 1^000000";
					next;
					mes "[ ײ]";
					mes "ڻ ֮ ʱ ȵӡ⿪ ۹";
					close;
				}
			} 
			mes "[ ײ]";
			mes "We Dwarves have too much pride to demonstrate our skills in front of a lowly human!";
			next;
			mes "[ ײ]";
			mes "Stop bothering me and get out of here! Go play with some monsters, you simple minded fool!";
			close;
		}
		if (strcharinfo(0) != getguildmaster(.@GID)) {
			mes "[ ײ]";
			mes "ֻὫҵĸ߳";
			mes "չʾһλܸߵ";
			next;
			mes "[ ײ]";
			mes "";
			mes "ұѡ";
			mes "ֻѡ";
			mes "ȥҼ^0000FF᳤^000000!";
			close;
		}
		mes "[ ײ]";
		mes "չʾҵıǺܶ...";
		next;
		mes "[ ײ]";
		mes "ķӡͷˣ˵㱻ѡ";
		mes "㣬ұѡ";
		next;
		mes "[ ײ]";
		mes "ȣҽȷǷЯбҪĲ";
		mes "ǶҪľ򯣡";
		next;
		if ((countitem(7073) > 3) && (countitem(7077) > 3) && (countitem(7088) > 2) && (countitem(7090) > 2) && (countitem(7092) > 2) && (countitem(726) > 1) && (countitem(722) > 2) && (countitem(727) > 9) && (countitem(724) > 4) && (countitem(969) > 19) && (countitem(2603) > 0)) {
			mes "[ ײ]";
			mes "Hmm...";
			mes "Ҳ";
			mes "Ҫӵ";
			mes "^0000FFŮ^000000!";
			next;
		}
		else if ((countitem(7058) > 0) && (countitem(969) > 19) && (countitem(726) > 9) && (countitem(984) > 9) && (countitem(2627) > 0)){ //Gullraifnir Gold Blue_Jewel Oridecon Belt 
			mes "[ ײ]";
			mes "Hmm...";
			mes "Ҳ";
			mes "Ҫӵ";
			mes "^0000FF^000000!";
			next;
		}
		else if ((countitem(7076) > 2) && (countitem(7079) > 4) && (countitem(7083) > 2) && (countitem(7086) > 3) && (countitem(7087) > 2) && (countitem(969) > 19) && (countitem(985) > 9) && (countitem(2406) > 0)) {
			mes "[ ײ]";
			mes "Hmm...";
			mes "Ҳ";
			mes "Ҫӵ";
			mes "^0000FFʷ֮ѥ^000000!";
			next;
		}
		else if ((countitem(7074) > 1) && (countitem(7075) > 3) && (countitem(7078) > 4) && (countitem(7089) > 4) && (countitem(7091) > 4) && (countitem(984) > 19) && (countitem(985) > 4) && (countitem(969) > 39) && (countitem(1522) > 0)) {
			mes "[ ײ]";
			mes "Hmm...";
			mes "Ҳ";
			mes "Ҫӵ";
			mes "^0000FF֮^000000!";
			next;
		}
		else {
			mes "[ ײ]";
			mes "...";
			mes "......";
			next;
			mes "[ ײ]";
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "[ ײ]";
			mes "...";
			mes "......";
			mes ".........";
			mes ".............";
			next;
			mes "[ ײ]";
			mes "ôû׼ ˴ʲô ϸ";
			next;
			switch(select("Ů::ʷ֮ѥ:֮")) {
			case 1:
				mes "[ ײ]";
				mes "ҪЩ";
				mes "[^FF0000Ů^000000]";
				mes "^0000FFǱʯ * 4";
				mes "Ʒ * 4";
				mes "ѩĽᾧ * 3";
				mes "ˮ * 3";
				mes " * 3";
				mes "ʯ * 2";
				mes " * 3";
				mes "ױʯ * 10";
				mes "챦ʯ * 5";
				mes "ƽ * 20";
				mes " * 1^000000";
				next;
				mes "[ ײ]";
				mes "Hmmm, ڴ֮ǰ";
				mes "Ҫֶ";
				mes "Ϊһ";
				mes "һν...";
				next;
				mes "[ ײ]";
				mes "Hurry...!";
				mes "ܰɣɧ꣡";
				close;
			case 2:
				mes "[ ײ]";
				mes "ҪЩ";
				mes "[^FF0000^000000]";
				mes "^0000FFħ * 1";
				mes "ƽ * 20";
				mes "ʯ * 10";
				mes "֮ * 10";
				mes "Ƥ[1] * 1^000000";
				next;
				mes "[ ײ]";
				mes "ע ħ Ǻϳز";
				mes "Ҳܰ";
				mes "ȥ prt_castle,44,151";
				mes "ҵ ױղ";
				mes "";
				next;
				mes "[ ײ]";
				mes "Hmmm, ڴ֮ǰ";
				mes "Ҫֶ";
				mes "Ϊһ";
				mes "һν...";
				next;
				mes "[ ײ]";
				mes "Hurry...!";
				mes "ܰɣɧ꣡";
				close;
			case 3:
				mes "[ ײ]";
				mes "ҪЩ";
				mes "[^FF0000ʷ֮ѥ^000000]";
				mes "^0000FFδ֪ľ * 3";
				mes "ʹë * 5";
				mes " * 3";
				mes "̫ * 4";
				mes "ĺ * 3";
				mes "ƽ * 20";
				mes " * 10";
				mes "սʿѥ[1] * 1^000000";
				next;
				mes "[ ײ]";
				mes "Hmmm, ڴ֮ǰ";
				mes "Ҫֶ";
				mes "Ϊһ";
				mes "һν...";
				next;
				mes "[ ײ]";
				mes "Hurry...!";
				mes "ܰɣɧ꣡";
				close;
			case 4:
				mes "[ ײ]";
				mes "ҪЩ";
				mes "[^FF0000֮^000000]";
				mes "^0000FFж * 2";
				mes " * 4";
				mes "ͻķŭ * 5";
				mes " * 5";
				mes "˵ * 5";
				mes "֮ * 20";
				mes " * 5";
				mes "ƽ * 40";
				mes "֮ * 1^000000";
				next;
				mes "[ ײ]";
				mes "Hmmm, ڴ֮ǰ";
				mes "Ҫֶ";
				mes "Ϊһ";
				mes "һν...";
				next;
				mes "[ ײ]";
				mes "Hurry...!";
				mes "ܰɣɧ꣡";
				close;
			}
		}
		mes "[ ײ]";
		mes "Hmpf.";
		mes "޷κι";
		mes "һȥ ^0000FFʵ^000000";
		next;
		mes "[ ײ]";
		mes "! ^0000FFÿֻһ^000000 ᱻ͸";
		mes "^FF0000ɺѽ⿪ķӡ^000000!";
		close2;
		warp "que_god01",214,63;
		end;
	case 5:
		mes "[ ײ]";
		mes "Muhahahahahaha!";
		mes "뿪ҵߣ";
		mes "ǰ࣬࡭";
		close;
	}
}
gld_dun02,85,84,0	duplicate(GodDwarf)	Grunburti#2	826
gld_dun03,92,105,0	duplicate(GodDwarf)	Grunburti#3	826
gld_dun04,268,230,0	duplicate(GodDwarf)	Grunburti#4	826

que_god01,215,127,0	script	#god_hopewarp1	111,{
	end;

OnInit:
	waitingroom "Laboratory Entrance",2,"#god_hopewarp1::OnStartArena",1;
	enablewaitingroomevent;
	end;

OnStartArena:
	warpwaitingpc "que_god01",155,63;
	donpcevent "Grunburti#god::OnEnable";
	disablewaitingroomevent;
	end;

OnReset:
	enablewaitingroomevent;
	end;
}

que_god01,214,128,0	script	 #que_godnpc1::GodEntrance	111,{
	mes "[Entrance Notice]";
	mes "Only the most";
	mes "worthy of humans";
	mes "will possess the";
	mes "power of the gods.";
	close;
}
que_god01,215,128,0	duplicate(GodEntrance)	 #que_godnpc2	111
que_god01,213,128,0	duplicate(GodEntrance)	 #que_godnpc3	111

que_god01,154,112,4	script	Grunburti#god	826,{
	if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
		mes "[ ײ]";
		mes "One of the godly";
		mes "items has been created,";
		mes "and the seals have been";
		mes "restored. You'll have to";
		mes "wait until they're all";
		mes "released again...!";
		next;
		mes "[ ײ]";
		mes "Bwahahahahahahaa!";
		mes "Even though you're";
		mes "just a human, I feel";
		mes "pity for you~";
		close;
	}
	set .@GID,getcharid(2);
	if (strcharinfo(0) != getguildmaster(.@GID)) {
		mes "[ ײ]";
		mes "How in the...";
		mes "Get out of here!";
		next;
		mes "[ ײ]";
		mes "How did one of you";
		mes "stupid humans get in";
		mes "here?! Only those who";
		mes "hold the Emperium can";
		mes "even think of entering";
		mes "this place...!";
		close;
	}
	mes "[ ײ]";
	mes "It's incredibly";
	mes "humiliating to do work for a human. But since destiny has chosen you as the bearer of an Emperium, I have no choice but to oblige your requests.";
	next;
	mes "[ ײ]";
	mes "We only have";
	mes "^FF000010 minutes^000000 to recreate one godly treasure. After that, the seals will restore themselves and I won't be able to create anything until they're released again...";
	next;
	mes "[ ײ]";
	mes "^FF0000Don't be too slow^000000,";
	mes "otherwise ^FF0000I will give";
	mes "the chance to another";
	mes "human^000000 right away!";
	next;
	mes "[ ײ]";
	mes "Now...!";
	mes "Choose the item";
	mes "you wish for me";
	mes "to create!";
	next;
	switch(select("Ů::ʷ֮ѥ:֮")) {
	case 1:
		mes "[ ײ]";
		mes "B-Brisingamen?!";
		mes "I've never expected";
		mes "such insolence...!";
		mes "This necklace will never have any meaning in my eyes unless it's worn by the goddess Freya.";
		next;
		mes "[ ײ]";
		mes "But who am I to judge your worthiness? These treasures";
		mes "select their owners with their own will. Let's see if Brisingamen will find you worthy!";
		next;
		mes "[ ײ]";
		mes "Once again, I need following materials in order to reproduce";
		mes "this godly treasure...";
		next;
		mes "[ ײ]";
		mes "ҪЩ";
		mes "[^FF0000Ů^000000]";
		mes "^0000FFǱʯ * 4";
		mes "Ʒ * 4";
		mes "ѩĽᾧ * 3";
		mes "ˮ * 3";
		mes " * 3";
		mes "ʯ * 2";
		mes " * 3";
		mes "ױʯ * 10";
		mes "챦ʯ * 5";
		mes "ƽ * 20";
		mes " * 1^000000";
		next;
		switch(select(" Ů:ȡ")) {
		case 1:
			if ((countitem(7073) > 3) && (countitem(7077) > 3) && (countitem(7088) > 2) && (countitem(7090) > 2) && (countitem(7092) > 2) && (countitem(726) > 1) && (countitem(722) > 2) && (countitem(727) > 9) && (countitem(724) > 4) && (countitem(969) > 19) && (countitem(2603) > 0)){ //Jewel_Of_Prayer Silver_Fancy Crystal_Of_Snow Slilince_Wave Air_Stream Blue_Jewel Scarlet_Jewel White_Jewel Cardinal_Jewel_ Gold Necklace 
				mes "[ ײ]";
				mes "Never in my wildest";
				mes "imaginings have I thought that I'd be crafting this masterpiece for a mere human. Give me a moment.";
				next;
				if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
					mes "[ ײ]";
					mes "But...";
					mes "The seals";
					mes "have just been";
					mes "restored. You'll have to";
					mes "wait until they're all";
					mes "released again...!";
					next;
					mes "[ ײ]";
					mes "Bwahahahahahahaa!";
					mes "Even though you're";
					mes "just a human, I feel";
					mes "pity for you~";
					close;
				}
				delitem 7073,4;  //Jewel_Of_Prayer
				delitem 7077,4;  //Silver_Fancy
				delitem 7088,3;  //Crystal_Of_Snow
				delitem 7090,3;  //Slilince_Wave
				delitem 7092,3;  //Air_Stream
				delitem 726,2;  //Blue_Jewel
				delitem 722,3;  //Scarlet_Jewel
				delitem 727,10;  //White_Jewel
				delitem 724,5;  //Cardinal_Jewel_
				delitem 969,20;  //Gold
				delitem 2603,1;  //Necklace
				getitem 2630,1; // Brysinggamen
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				announce "[Brisingamen] has come into the hands of [" + strcharinfo(0) + "], master of the [" + getguildname(.@GID) + "] guild.",bc_all;
				mes "[ ײ]";
				mes "Ah, just look at this dazzling beauty. No other piece of jewelry complemented Freya as well as Brisingamen.";
				close;
			}
			else {
				mes "[ ײ]";
				mes "Idiot human!";
				mes "You didn't bring";
				mes "everything I need to";
				mes "recreate Brisingamen!";
				mes "Hurry...!";
				close;
			}
		case 2:
			mes "[ ײ]";
			mes "Muhahahaha~";
			mes "Somehow, I figured";
			mes "you'd back out, human!";
			close;
		}
	case 2:
		mes "[ ײ]";
		mes "M- Megingjard?!";
		mes "The girdle of might?!";
		next;
		mes "[ ײ]";
		mes "This belt was worn long ago by Thor, the mightest warrior ever. But since these treasures select their owners, we'll see whether or not it recognizes you as worthy!";
		next;
		mes "[ ײ]";
		mes "Once again, I need following materials in order to reproduce";
		mes "this godly treasure...";
		next;
		mes "[ ײ]";
		mes "ҪЩ";
		mes "[^FF0000^000000]";
		mes "^0000FFħ * 1";
		mes "ƽ * 20";
		mes "ʯ * 10";
		mes "֮ * 10";
		mes "Ƥ[1] * 1^000000";
		next;
		switch(select(" :ȡ")) {
		case 1:
			if ((countitem(7058) > 0) && (countitem(969) > 19) && (countitem(726) > 9) && (countitem(984) > 9) && (countitem(2627) > 0)) {
				mes "[ ײ]";
				mes "Twenty years ago,";
				mes "I'd never believe that";
				mes "something so powerful and dangerous as Megingjard would end up in the hands of a human...";
				next;
				if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
					mes "[ ײ]";
					mes "But...";
					mes "The seals";
					mes "have just been";
					mes "restored. You'll have to";
					mes "wait until they're all";
					mes "released again...!";
					next;
					mes "[ ײ]";
					mes "Bwahahahahahahaa!";
					mes "Even though you're";
					mes "just a human, I feel";
					mes "pity for you~";
					close;
				}
				delitem 7058,1;  //Gullraifnir
				delitem 969,20;  //Gold
				delitem 726,10;  //Blue_Jewel
				delitem 984,10;  //Oridecon
				delitem 2627,1;  //Belt
				getitem 2629,1; // Magingiorde
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				announce "[Megingjard] the godly item has been given to [" + strcharinfo(0) + "], the master of the guild [" + getguildname(.@GID) + "].",bc_all;
				mes "[ ײ]";
				mes "Here...";
				mes "Be careful with how";
				mes "you use the strength";
				mes "of a god. Just a fair";
				mes "warning, human...";
				close;
			}
			else {
				mes "[ ײ]";
				mes "Idiot human!";
				mes "You didn't bring";
				mes "everything I need to";
				mes "recreate Megingjard!";
				mes "Hurry...!";
				close;
			}
		case 2:
			mes "[ ײ]";
			mes "Muhahahaha~";
			mes "Somehow, I figured";
			mes "you'd back out, human!";
			close;
		}
	case 3:
		mes "[ ײ]";
		mes "Sleipnir...";
		mes "Now, understand";
		mes "that I can't create";
		mes "the eight-legged stallion";
		mes "of legend. However...";
		next;
		mes "[ ײ]";
		mes "I can create a pair";
		mes "of shoes that will possess the power of Sleipnir. It's a strange, but feasible process...";
		next;
		mes "[ ײ]";
		mes "Once again, I need following materials in order to reproduce";
		mes "this godly treasure...";
		next;
		mes "[ ײ]";
		mes "ҪЩ";
		mes "[^FF0000ʷ֮ѥ^000000]";
		mes "^0000FFδ֪ľ * 3";
		mes "ʹë * 5";
		mes " * 3";
		mes "̫ * 4";
		mes "ĺ * 3";
		mes "ƽ * 20";
		mes " * 10";
		mes "սʿѥ[1] * 1^000000";
		next;
		switch(select(" ʷ֮ѥ:ȡ")) {
		case 1:
			if ((countitem(7076) > 2) && (countitem(7079) > 4) && (countitem(7083) > 2) && (countitem(7086) > 3) && (countitem(7087) > 2) && (countitem(969) > 19) && (countitem(985) > 9) && (countitem(2406) > 0)) {
				mes "[ ײ]";
				mes "I never believed";
				mes "that the speed of";
				mes "Sleipnir would be";
				mes "used by a human.";
				mes "Give me a moment...";
				next;
				if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
					mes "[ ײ]";
					mes "But...";
					mes "The seals";
					mes "have just been";
					mes "restored. You'll have to";
					mes "wait until they're all";
					mes "released again...!";
					next;
					mes "[ ײ]";
					mes "Bwahahahahahahaa!";
					mes "Even though you're";
					mes "just a human, I feel";
					mes "pity for you~";
					close;
				}
				delitem 7076,3;  //Mystery_Wheel
				delitem 7079,5;  //Feather_Of_Angel
				delitem 7083,3;  //Soul_Of_Fish
				delitem 7086,4;  //Symbol_Of_Sun
				delitem 7087,3;  //Breath_Of_Soul
				delitem 969,20;  //Gold
				delitem 985,10;  //Elunium
				delitem 2406,1;  //Boots_
				getitem 2410,1; // Sleipnir
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				announce "[Sleipnir] the godly item has been given to [" + strcharinfo(0) + "], the master of the guild [" + getguildname(.@GID) + "].",bc_all;
				mes "[ ײ]";
				mes "There...";
				mes "Wear these, and";
				mes "move with the speed of";
				mes "the legendary Sleipnir...";
				close;
			}
			else {
				mes "[ ײ]";
				mes "Idiot human!";
				mes "You didn't bring";
				mes "everything I need to";
				mes "recreate Sleipnir!";
				mes "Hurry...!";
				close;
			}
		case 2:
			mes "[ ײ]";
			mes "Muhahahaha~";
			mes "Somehow, I figured";
			mes "you'd back out, human!";
			close;
		}
	case 4:
		mes "[ ײ]";
		mes "M-M-Mjolnir!?";
		mes "Even though the";
		mes "moment is at hand,";
		mes "I can scarcely believe...";
		next;
		mes "[ ײ]";
		mes "^333333*Sigh...*^000000";
		mes "This is almost a disgrace to gods and the Dwarf race. But perhaps, wielding Mjolnir may be your destiny...";
		next;
		mes "[ ײ]";
		mes "Once again, I need following materials in order to reproduce";
		mes "this godly treasure...";
		next;
		mes "[ ײ]";
		mes "ҪЩ";
		mes "[^FF0000֮^000000]";
		mes "^0000FFж * 2";
		mes " * 4";
		mes "ͻķŭ * 5";
		mes " * 5";
		mes "˵ * 5";
		mes "֮ * 20";
		mes " * 5";
		mes "ƽ * 40";
		mes "֮ * 1^000000";
		next;
		switch(select(" ֮:ȡ")) {
		case 1:
			if ((countitem(7074) > 1) && (countitem(7075) > 3) && (countitem(7078) > 4) && (countitem(7089) > 4) && (countitem(7091) > 4) && (countitem(984) > 19) && (countitem(985) > 4) && (countitem(969) > 39) && (countitem(1522) > 0)) {
				mes "[ ײ]";
				mes "Do not disgrace";
				mes "Thor, lord of Thunder,";
				mes "or you will regret it.";
				mes "Mark my words...";
				next;
				if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){
					mes "[ ײ]";
					mes "But...";
					mes "The seals";
					mes "have just been";
					mes "restored. You'll have to";
					mes "wait until they're all";
					mes "released again...!";
					next;
					mes "[ ײ]";
					mes "Bwahahahahahahaa!";
					mes "Even though you're";
					mes "just a human, I feel";
					mes "pity for you~";
					close;
				}
				delitem 7074,2;  //Iron_Glove
				delitem 7075,4;  //Iron_Maiden
				delitem 7078,5;  //Anger_Of_Valkurye
				delitem 7089,5;  //Indication_Of_Tempest
				delitem 7091,5;  //Rough_Billows
				delitem 984,20;  //Oridecon
				delitem 985,5;  //Elunium
				delitem 969,40;  //Gold
				delitem 1522,1;  //Stunner
				getitem 1530,1; // Mjolnir
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				announce "[Mjolnir] has been bestowed to [" + strcharinfo(0) + "], the master of the [" + getguildname(.@GID) + "] guild.",bc_all;
				mes "[ ײ]";
				mes "It's done.";
				mes "Take it. How does";
				mes "it feel to hold the world's most powerful weapon in your grasp?";
				close;
			}
			else {
				mes "[ ײ]";
				mes "Idiot human!";
				mes "You didn't bring";
				mes "everything I need";
				mes "to recreate Mjolnir!";
				mes "Hurry...!";
				close;
			}
		case 2:
			mes "[ ײ]";
			mes "Muhahahaha~";
			mes "Somehow, I figured";
			mes "you'd back out, human!";
			close;
		}
	}
	end;

OnEnable:
	initnpctimer;
	end;

OnTimer10000:
	mapannounce "que_god01","Remember that you only have 10 minutes for this! Hurry up!",bc_map;
	end;

OnTimer610000:
	mapannounce "que_god01","You're too slow! I'm going to give another human a chance! Next!",bc_map;
	end;

OnTimer612000:
	donpcevent "god_wep_warpmaster::OnEnable";
	end;

OnTimer615000:
	donpcevent "god_wep_warpmaster::OnDisable";
	donpcevent "#god_hopewarp1::OnReset";
	stopnpctimer;
	end;
}

que_god01,169,82,0	script	god_wep_warpmaster	-1,{
OnEnable:
	for(set .@i,1; .@i<=6; set .@i,.@i+1)
		enablenpc "god_failwarp#"+.@i;
	end;
OnDisable:
	for(set .@i,1; .@i<=6; set .@i,.@i+1)
		disablenpc "god_failwarp#"+.@i;
	end;
}

que_god01,154,67,0	script	god_failwarp#1	-1,4,7,{
OnInit:
	disablenpc strnpcinfo(0);
	end;
OnTouch:
	warp "prontera",156,324;
	end;
}
que_god01,154,82,0	duplicate(god_failwarp#1)	god_failwarp#2	-1,4,7
que_god01,145,99,0	duplicate(god_failwarp#1)	god_failwarp#3	-1,9,9
que_god01,164,99,0	duplicate(god_failwarp#1)	god_failwarp#4	-1,9,9
que_god01,145,118,0	duplicate(god_failwarp#1)	god_failwarp#5	-1,9,9
que_god01,164,118,0	duplicate(god_failwarp#1)	god_failwarp#6	-1,9,9

// Original name: "Godly Item Quests Related#god"
que_god01,293,3,0	script	Godly Item Quests#god	90,{
	callfunc "F_GM_NPC";
	mes "[Use in case of emergency]";
	mes "Please enter password.";
	mes "If you wish to cancel, please enter 0.";
	next;
	set .@i, callfunc("F_GM_NPC",1854,0,0,4000);
	if (.@i == -2) {
		mes "[Use in case of emergency]";
		mes "Password is incorrect.";
		close;
	} else if (.@i == -1) {
		mes "[Use in case of emergency]";
		mes "You have canceled your request.";
		close;
	} else if (.@i == 0) {
		close;
	} else {
		mes "[Use in case of emergency]";
		mes "What services would you like to use?";
		next;
		switch(select("Turn off Warps.:Reset Timer.:Reset chat room.")) {
		case 1:
			mes "[Use in case of emergency]";
			mes "Press the 'Next' button to turn off warps.";
			next;
			donpcevent "god_wep_warpmaster::OnDisable";
			mes "[Use in case of emergency]";
			mes "You have successfully turned off warps.";
			close;
		case 2:
			mes "[Use in case of emergency]";
			mes "Press the 'Next' button to reset timer.";
			next;
			donpcevent "Grunburti#god::OnEnable";
			mes "[Use in case of emergency]";
			mes "You have successfully reset timer.";
			close;
		case 3:
			mes "[Use in case of emergency]";
			mes "Please press the 'Next' button to reset the arena chat room in que_god01.";
			next;
			donpcevent "#god_hopewarp1::OnReset";
			mes "[Use in case of emergency]";
			mes "You have successfully reset the arena chat room (Laboratory Entrance 1/2).";
			close;
		}
	}
}



gld_dun01,20,99,5	script	֮	811,{

	mes "[ ]";
	mes "~ Ǹ";
	mes "Ȼ˵һ";
	mes "Ҫұ...!!";
	next;

	mes "[ ]";
	mes "Թ~ ̰ĵ";
	mes "";
	mes "ӵиɣ";
	next;

	if(select("˭?:Ȼ, i bo ô") == 1) {

		mes "[ ]";
		mes "Ҳͬ";
		mes "Ȼͻ";
		mes "ǻʵ";
		mes "^FF0000^000000 !!!";
		next;

		mes "[ ]";
		mes "Ϊ";
		mes "ÿ 1 ";
		mes "ҪƬ 4 ν?";
		next;

		mes "[ ]";
		mes "׳";
		mes "ǳ 4 Լ";
		mes "ûԼܷ";
		next;

		mes "[ ]";
		mes "ֱ";
		mes "㲻Ҫ  Լ";
		mes "˵㲻Ҫν";
		mes "";
		next;

		mes "[ ]";
		mes "^FF0000ͷ: Ů";
		mes ": ";
		mes "Ь: ʷ֮ѥ";
		mes ": ֮^000000";
		mes "Ҷ 100% ͶӰ";
		next;

		mes "[ ]";
		mes "ʹͶӰҪԼ֮";
		mes "ܷͶӰ";
		mes "ȫƾ־";
		mes "ֻҪ־㹻ǿ";
		mes "ͶӰԳԽƷ";
		next;

		mes "[ ]";
		mes "ٸһ";
		mes "Զ֮";
		mes "";
		mes "ϵ";
		mes "Զκһ";
		next;

		mes "[ ]";
		mes "Ϊʲô֪?";
		mes "Ϊһ屣ܵ";
		mes "һᱻ";
		mes "ΪĿ־壡";
		next;

		mes "[ ]";
		mes "Ϊ";
		mes "^FF0000: ϣ";
		mes ": ˹^000000";
		mes "ֻҪԸ⸶ӦĴ";
		mes "ͬʱŵΪҾķ";
		mes "԰ͶӰ";
		next;

		mes "[ ]";
		mes "𣡣?!";
		next;

	} else {
		mes "[ ]";
		mes "ܺã";
		mes "û, i bo, ǿʼ~";
		next;
	}

	if(select(":ͶӰɣ") == 2) {

		mes "[ ]";
		mes "ǵľ";
		mes "ô, ͶӰļ?";
		next;
		switch(select("Ů::ʷ֮ѥ:֮:ϣ:˹:ҪǿͶӰ!!!:ȡ")) {
			default:
				break;

			case 1:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000Ů^000000]";
				mes "^0000FFZeny * 1E";
				mes "Ǳʯ * 4";
				mes "Ʒ * 4";
				mes "ѩĽᾧ * 3";
				mes "ˮ * 3";
				mes " * 3";
				mes "ʯ * 2";
				mes " * 3";
				mes "ױʯ * 10";
				mes "챦ʯ * 5";
				mes "ƽ * 20";
				mes " * 1^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(7073) > 3) && (countitem(7077) > 3) && (countitem(7088) > 2) && (countitem(7090) > 2) && (countitem(7092) > 2) && (countitem(726) > 1) && (countitem(722) > 2) && (countitem(727) > 9) && (countitem(724) > 4) && (countitem(969) > 19) && (countitem(2603) > 0)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
					delitem 7073,4;  // Ǳʯ
					delitem 7077,4;  // Ʒ
					delitem 7088,3;  // ѩĽᾧ
					delitem 7090,3;  // ˮ
					delitem 7092,3;  // 
					delitem 726,2;   // ʯ
					delitem 722,3;   // 
					delitem 727,10;  // ױʯ
					delitem 724,5;   // 챦ʯ
					delitem 969,20;  // ƽ
					delitem 2603,1;  // 
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 2630,1;  // Ů

				} else {
					mes "չ~";
				}
				break;

			case 2:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000^000000]";
				mes "^0000FFZeny * 1E";
//				mes "ħ * 1";
				mes "èŲ * 4";
				mes "Ů˵ĺ * 5";
				mes "ʯͷĸ * 4";
				mes "Ŀˮ * 3";
				mes "ܵĽ * 3";
				mes "ƽ * 20";
				mes "ʯ * 10";
				mes "֮ * 10";
				mes "۾ * 1";
				mes " * 1";
				mes "⻬ֽ * 2";
				mes "ֽ * 1";
				mes "ī֭ * 3";
				mes "ë * 3";
				mes "ɫħʯ * 20";
				mes " * 1";
				mes "ɫҩ * 1";
				mes "ƾ * 7";
				mes "Ƥ[1] * 1^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(7080) > 3) && (countitem(7081) > 4) && (countitem(7082) > 3) && (countitem(7084) > 2) && (countitem(7085) > 2) && (countitem(969) > 19) && (countitem(726) > 9) && (countitem(984) > 9) && (countitem(2203) > 0) && (countitem(1041) > 0) && (countitem(7111) > 1) && (countitem(7151) > 0) && (countitem(1024) > 2) && (countitem(916) > 2) && (countitem(717) > 19) && (countitem(7212) > 0) && (countitem(511) > 0) && (countitem(970) > 6) && (countitem(2627) > 0)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
//					delitem 7058,1;  // ħ
					delitem 7080,4;	 // èŲ
					delitem 7081,5;	 // Ů˵ĺ
					delitem 7082,4;	 // ʯͷĸ
					delitem 7084,3;	 // Ŀˮ
					delitem 7085,3;	 // ܵĽ
					delitem 969,20;  // ƽ
					delitem 726,10;  // ʯ
					delitem 984,10;  // ֮
					delitem 2203,1;  // ۾
					delitem 1041,1;  // 
					delitem 7111,2;  // ⻬ֽ
					delitem 7151,1;  // ֽ
					delitem 1024,3;  // ī֭
					delitem 916,3;   // ë
					delitem 717,20;  // ɫħʯ
					delitem 7212,1;  // 
					delitem 511,1;   // ɫҩ
					delitem 970,7;   // ƾ
					delitem 2627,1;  // Ƥ[1]
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 2629,1;  // 

				} else {
					mes "չ~";
				}
				break;

			case 3:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000ʷ֮ѥ^000000]";
				mes "^0000FFZeny * 1E";
				mes "δ֪ľ * 3";
				mes "ʹë * 5";
				mes " * 3";
				mes "̫ * 4";
				mes "ĺ * 3";
				mes "ƽ * 20";
				mes " * 10";
				mes "ճ * 9";
				mes "֮ * 9";
				mes " * 9";
				mes " * 9";
				mes "Ƭ * 9";
				mes "ǯ * 9";
				mes " * 9";
				mes " * 9";
				mes "Ƭ * 9";
				mes "з * 9";
				mes " * 9";
				mes " * 9";
				mes "β * 9";
				mes "ī֭ * 9";
				mes "Ѫ * 9";
				mes "Թ * 9";
				mes "ϸ * 9";
				mes "֮ * 9";
				mes " * 9";
				mes "ɺ * 9";
				mes "սʿѥ[1] * 1^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(7076) > 2) && (countitem(7079) > 4) && (countitem(7083) > 2) && (countitem(7086) > 3) && (countitem(7087) > 2) && (countitem(969) > 19) && (countitem(985) > 9) && (countitem(918) > 8) && (countitem(950) > 8) && (countitem(951) > 8) && (countitem(956) > 8) && (countitem(959) > 8) && (countitem(960) > 8) && (countitem(961) > 8) && (countitem(962) > 8) && (countitem(963) > 8) && (countitem(964) > 8) && (countitem(965) > 8) && (countitem(966) > 8) && (countitem(1023) > 8) && (countitem(1024) > 8) && (countitem(1050) > 8) && (countitem(1051) > 8) && (countitem(1052) > 8) && (countitem(1053) > 8) && (countitem(1054) > 8) && (countitem(7013) > 8) && (countitem(2406) > 0)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
					delitem 7076,3;  // δ֪ľ
					delitem 7079,5;  // ʹë
					delitem 7083,3;  // 
					delitem 7086,4;  // ̫
					delitem 7087,3;  // ĺ
					delitem 969,20;  // ƽ
					delitem 985,10;  // 
					delitem 918,9;   // ճ
					delitem 950,9;   // ֮
					delitem 951,9;   // 
					delitem 956,9;   // 
					delitem 959,9;   // Ƭ
					delitem 960,9;   // ǯ
					delitem 961,9;   // 
					delitem 962,9;   // 
					delitem 963,9;   // Ƭ
					delitem 964,9;   // з
					delitem 965,9;   // 
					delitem 966,9;   // 
					delitem 1023,9;  // β
					delitem 1024,9;  // ī֭
					delitem 1050,9;  // Ѫ
					delitem 1051,9;  // Թ
					delitem 1052,9;  // ϸ
					delitem 1053,9;  // ֮
					delitem 1054,9;  // 
					delitem 7013,9;  // ɺ
					delitem 2406,1;  // սʿѥ[1]
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 2410,1;  // ʷ֮ѥ

				} else {
					mes "չ~";
				}
				break;
			
			case 4:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000֮^000000]";
				mes "^0000FFZeny * 1E";
				mes "ж * 2";
				mes " * 4";
				mes "ͻķŭ * 5";
				mes " * 5";
				mes "˵ * 5";
				mes "֮ * 21";
				mes " * 5";
				mes "ƽ * 40";
				mes "֮ԭʯ * 50";
				mes "ԭʯ * 50";
				mes "߼ * 1";
				mes "ɫҩˮ * 1";
				mes "֮ * 1^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(7074) > 1) && (countitem(7075) > 3) && (countitem(7078) > 4) && (countitem(7089) > 4) && (countitem(7091) > 4) && (countitem(984) > 20) && (countitem(985) > 4) && (countitem(969) > 39) && (countitem(756) > 49) && (countitem(757) > 49) && (countitem(1005) > 0) && (countitem(501) > 0) && (countitem(1522) > 0)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
					delitem 7074,2;  // ж
					delitem 7075,4;  // 
					delitem 7078,5;  // ͻķŭ
					delitem 7089,5;  // 
					delitem 7091,5;  // ˵
					delitem 984,21;  // ֮
					delitem 985,5;   // 
					delitem 969,40;  // ƽ
					delitem 756,50;  // ֮ԭʯ
					delitem 757,50;  // ԭʯ
					delitem 1005,1;  // ߼
					delitem 501,1;   // ɫҩˮ
					delitem 1522,1;  // ֮
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 1530,1;  // ֮

				} else {
					mes "չ~";
				}
				break;

			case 5:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000ϣ^000000]";
				mes "^0000FFZeny * 1E";
				mes "ͻĿ * 1";
				mes "͹Ļ * 100";
				mes "Ů * 1";
				mes "ͻ * 1";
				mes "ϣµƬ * 1";
				mes "Ӣ۵ź * 1";
				mes "°Ľָ * 1";
				mes " * 20";
				mes "ƽ * 10";
				mes " * 30^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(2357) > 0) && (countitem(7510) > 99) && (countitem(7830) > 0) && (countitem(7831) > 0) && (countitem(7832) > 0) && (countitem(7833) > 0) && (countitem(7834) > 0) && (countitem(985) > 19) && (countitem(969) > 9) && (countitem(714) > 29)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
					delitem 2357,1;    // ͻĿ
					delitem 7510,100;  // ͹Ļ
					delitem 7830,1;    // Ů
					delitem 7831,1;    // ͻ
					delitem 7832,1;    // ϣµƬ
					delitem 7833,1;    // Ӣ۵ź
					delitem 7834,1;    // °Ľָ
					delitem 985,20;    // 
					delitem 969,10;    // ƽ
					delitem 714,30;    // 
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 2383,1;    // ϣ

				} else {
					mes "չ~";
				}
				break;

			case 6:
				mes "[ ]";
				mes "ҪЩͶӰ";
				mes "[^FF0000˹^000000]";
				mes "^0000FFZeny * 1E";
				mes "ɴΧ * 1";
				mes "ë * 100";
				mes " * 10";
				mes "õʯӢ * 10";
				mes "ƻĹâ * 1";
				mes "¶ * 1";
				mes "¹ * 1";
				mes "ǹ * 1";
				mes " * 20";
				mes " * 50^000000";
				next;

				mes "[ ]";

				if ((zeny >= 100000000) && (countitem(2513) > 0) && (countitem(7063) > 99) && (countitem(7291) > 9) && (countitem(7293) > 9) && (countitem(7835) > 0) && (countitem(7836) > 0) && (countitem(7837) > 0) && (countitem(7838) > 0) && (countitem(985) > 19) && (countitem(714) > 29)) { 

					mes "ܺ, ";
					mes "ھͰͶӰ!!!";
					next;

					set zeny,zeny - 100000000;
					delitem 2513,1;    // ɴΧ
					delitem 7063,100;  // ë
					delitem 7291,10;   // 
					delitem 7293,10;   // õʯӢ
					delitem 7835,1;    // ƻĹâ
					delitem 7836,1;    // ¶
					delitem 7837,1;    // ¹
					delitem 7838,1;    // ǹ
					delitem 985,20;    // 
					delitem 714,50;    // 
					
					skilleffect "AL_ANGELUS",0;
					mes "! Ű~";
					getitem 2541,1;    // ˹

				} else {
					mes "չ~";
				}
				break;

			case 7:
				mes "[ ]";
				mes "ع";
				mes "ȷʵҿͶӰǿ";
				mes "ҿ";
				mes "⿪^FF0000һؿ^000000";
				mes "ѾǼ";
				mes "ٶĿۻΪȶ";
				mes "ʹͶӰ𣡣";
				next;

				mes "[ ]";
				mes "^FF0000ͶӰ^000000";
				mes " ^FF0000Zeny 1E^000000 ʾĳ";
				mes "ҾͿ԰ޣ";
				mes "ѡ~";
				mes "-------------";
				mes "ע⣺ԭоֵʧ";
				next;

				switch(select("Ů 1S: 1S:ʷ֮ѥ 1S:֮ 1S:ϣ 1S:˹ 1S:[ǿ]̫ͷ 1S:ȡ")) {
					default:
						break;

					case 1:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(2630) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 2630,1;    // Ů
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 52630,1;   // Ů 1S

						} else {
							mes "չ~";
						}
						break;

					case 2:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(2629) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 2629,1;    // 
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 52629,1;   //  1S

						} else {
							mes "չ~";
						}
						break;

					case 3:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(2410) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 2410,1;    // ʷ֮ѥ
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 2462,1;   // ʷ֮ѥ 1S

						} else {
							mes "չ~";
						}
						break;

					case 4:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(1530) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 1530,1;    // ֮
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 51530,1;  // ֮ 1S

						} else {
							mes "չ~";
						}
						break;

					case 5:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(2383) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 2383,1;    // ϣ
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 52383,1;   // ϣ 1S

						} else {
							mes "չ~";
						}
						break;

					case 6:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(2541) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 2541,1;    // ˹
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							mes "ע⿨ص";
							mes "Ϊ˱ͶӰ֮ӿй";
							mes "ҪѡʵĿƬȱ";
							getitem 52541,1;   // ˹ 1S

						} else {
							mes "չ~";
						}
						break;

					case 7:
						mes "[ ]";
						if ((zeny >= 100000000) && (countitem(5022) > 0)) { 

							mes "ܺ, ";
							mes "ھͰǿͶӰ!!!";
							next;

							set zeny,zeny - 100000000;
							delitem 5022,1;    // ̫ͷ
							
							skilleffect "AL_ANGELUS",0;
							mes "! Ű~";
							getitem 18767,1;   // [ǿ]̫ͷ

						} else {
							mes "չ~";
						}
						break;
				}
				break;
		}

	} else {
		next;
		mes "[ ]";
		mes "ɣų򣡣";

		hideonnpc "֮";
		close;
	}

	next;
	mes "[ ]";
	mes "ˣ뿪";
	mes "ʱԻٻ";
	mes "߹";

	hideonnpc "֮";
	close;


OnInit:
	hideonnpc "֮";
	end;
}

