//===== eAthena Script ======================================= 
//= ګԮc AȤH (Ƚվ)
//===== By: ================================================== 
//= MasterOfMuppets
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= eAthena
//===== Description: ========================================= 
//= ϥγoNPCӽվ㯫ȪH
//===== Additional Comments: =================================
//= 1.0 l [MasterOfMuppets]
//= 1.1 sgk [L0ne_W0lf]
//= +(c) c餤 [¦B]
//============================================================

sec_in02,15,170,0	script	ȽվAȤH	817,{
	//mes "[ګԮc AȤH]";
	//mes "пJKX";
	//next;
	//set .@check,pG}ұKXO@AбNrאּ۩wqKXAuϥμƦr;
	//dlgwrite 0 10000000
	//if (check == input){
	if (getgmlevel() > 98) {
		mes "[ګԮc AȤH]";
		mes "wϥίLQȤHƽվt";
		mes "пܨϥΪA";
		next;
		switch(select("{bȤH:vpu:pya:kV:p:mȤH")) {
		case 1:
			mes "^0000FF$God1(vpu)^000000 = ^FF0000" + $God1 + "^000000 H";
			mes "^0000FF$God2(pya)@@@^000000 = ^FF0000" + $God2 + "^000000 H";
			mes "^0000FF$God3(kV)@@@^000000 = ^FF0000" + $God3 + "^000000 H";
			mes "^0000FF$God4(p)@@@^000000 = ^FF0000" + $God4 + "^000000 H";
			close;
		case 2:
			input .@input,0,100;
			mes "[ګԮc AȤH]";
			mes "AQվ "+.@input+"?";
			next;
			if (select("O:_") == 1) {
				mes "[ګԮc AȤH]";
				mes "wgվHƦ "+.@input;
				next;
				set $God1,.@input;
				mes "$God1(vpu) = "+.@input+" H";
				close;
			}
			else {
				mes "[ګԮc AȤH]";
				mes "wg";
				close;
			}
		case 3:
			input .@input,0,100;
			mes "[ګԮc AȤH]";
			mes "AQվ "+.@input+"?";
			next;
			if (select("O:_") == 1) {
				mes "[ګԮc AȤH]";
				mes "wgվHƦ "+.@input;
				next;
				set $God2,.@input;
				mes "$God2(pya) = "+.@input+" H";
				close;
			}
			else {
				mes "[ګԮc AȤH]";
				mes "wg";
				close;
			}
		case 4:
			input .@input,0,100;
			mes "[ګԮc AȤH]";
			mes "AQվ "+.@input+"?";
			next;
			if (select("O:_") == 1) {
				mes "[ګԮc AȤH]";
				mes "wgվHƦ "+.@input;
				next;
				set $God3,.@input;
				mes "$God3(kV) = "+.@input+" H";
				close;
			}
			else {
				mes "[ګԮc AȤH]";
				mes "wg";
				close;
			}
		case 5:
			input .@input,0,100;
			mes "[ګԮc AȤH]";
			mes "AQվ "+.@input+"?";
			next;
			if (select("O:_") == 1) {
				mes "[ګԮc AȤH]";
				mes "wgվHƦ "+.@input;
				next;
				set $God4,.@input;
				mes "$God4(p) = "+.@input+" H";
				close;
			}
			else {
				mes "[ګԮc AȤH]";
				mes "wg";
				close;
			}
		case 6:
			mes "[ګԮc AȤH]";
			mes "ATwnNҦȤHƭm?";
			mes "i椧ᯫȪHƳ|ks";
			next;
			if (select("O:_") == 1) {
				mes "[ګԮc AȤH]";
				mes "{bAȤHƤwgm";
				next;
				set $God1,0;
				set $God2,0;
				set $God3,0;
				set $God4,0;
				mes "^0000FF$God1(vpu)^000000 = ^FF0000" + $God1 + "^000000 H";
				mes "^0000FF$God2(pya)@@@^000000 = ^FF0000" + $God2 + "^000000 H";
				mes "^0000FF$God3(kV)@@@^000000 = ^FF0000" + $God3 + "^000000 H";
				mes "^0000FF$God4(p)@@@^000000 = ^FF0000" + $God4 + "^000000 H";
				close;
			}
			else {
				mes "[ګԮc AȤH]";
				mes "wg";
				close;
			}
		}
	}
	else {
		mes "[ګԮc AȤH]";
		//mes "KX~";
		mes "ASviHϥ";
		close;
	}
}