//===== eAthena Script ======================================= 
//= ͹ Ա ()
//===== By: ================================================== 
//= MasterOfMuppets
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= eAthena
//===== Description: ========================================= 
//= ʹNPC
//===== Additional Comments: =================================
//= 1.0 ʼ汾 [MasterOfMuppets]
//= 1.1 д [L0ne_W0lf]
//= +(c) Ļ []
//============================================================

sec_in02,15,170,0	script	Ա	817,{
	//mes "[͹ Ա]";
	//mes "";
	//next;
	//set .@check,뱣뽫ִΪԶ룬ֻʹ;
	//dlgwrite 0 10000000
	//if (check == input){
	if (getgmlevel() > 98) {
		mes "[͹ Ա]";
		mes "ӭʹϵͳ";
		mes "ѡʹ÷";
		next;
		switch(select(":ʷ֮ѥ::Ů:֮:")) {
		case 1:
			mes "^0000FF$God1(ʷ֮ѥ)^000000 = ^FF0000" + $God1 + "^000000 ";
			mes "^0000FF$God2()^000000 = ^FF0000" + $God2 + "^000000 ";
			mes "^0000FF$God3(Ů)^000000 = ^FF0000" + $God3 + "^000000 ";
			mes "^0000FF$God4(֮)^000000 = ^FF0000" + $God4 + "^000000 ";
			close;
		case 2:
			input .@input,0,100;
			mes "[͹ Ա]";
			mes " "+.@input+"?";
			next;
			if (select(":") == 1) {
				mes "[͹ Ա]";
				mes "Ѿ "+.@input;
				next;
				set $God1,.@input;
				mes "$God1(ʷ֮ѥ) = "+.@input+" ";
				close;
			}
			else {
				mes "[͹ Ա]";
				mes "Ѿȡ";
				close;
			}
		case 3:
			input .@input,0,100;
			mes "[͹ Ա]";
			mes " "+.@input+"?";
			next;
			if (select(":") == 1) {
				mes "[͹ Ա]";
				mes "Ѿ "+.@input;
				next;
				set $God2,.@input;
				mes "$God2() = "+.@input+" ";
				close;
			}
			else {
				mes "[͹ Ա]";
				mes "Ѿȡ";
				close;
			}
		case 4:
			input .@input,0,100;
			mes "[͹ Ա]";
			mes " "+.@input+"?";
			next;
			if (select(":") == 1) {
				mes "[͹ Ա]";
				mes "Ѿ "+.@input;
				next;
				set $God3,.@input;
				mes "$God3(Ů) = "+.@input+" ";
				close;
			}
			else {
				mes "[͹ Ա]";
				mes "Ѿȡ";
				close;
			}
		case 5:
			input .@input,0,100;
			mes "[͹ Ա]";
			mes " "+.@input+"?";
			next;
			if (select(":") == 1) {
				mes "[͹ Ա]";
				mes "Ѿ "+.@input;
				next;
				set $God4,.@input;
				mes "$God4(֮) = "+.@input+" ";
				close;
			}
			else {
				mes "[͹ Ա]";
				mes "Ѿȡ";
				close;
			}
		case 6:
			mes "[͹ Ա]";
			mes "ȷҪе?";
			mes "֮";
			next;
			if (select(":") == 1) {
				mes "[͹ Ա]";
				mes "ڣѾ";
				next;
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				mes "^0000FF$God1(ʷ֮ѥ)^000000 = ^FF0000" + $God1 + "^000000 ";
				mes "^0000FF$God2()^000000 = ^FF0000" + $God2 + "^000000 ";
				mes "^0000FF$God3(Ů)^000000 = ^FF0000" + $God3 + "^000000 ";
				mes "^0000FF$God4(֮)^000000 = ^FF0000" + $God4 + "^000000 ";
				close;
			}
			else {
				mes "[͹ Ա]";
				mes "Ѿȡ";
				close;
			}
		}
	}
	else {
		mes "[͹ Ա]";
		//mes "";
		mes "û㹻Ȩ޿ʹ";
		close;
	}
}