//===== rAthena Script ======================================= 
//= God Item Quest - Seal Status
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.3
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= God Item Seal Status.
//===== Additional Comments: ================================= 
//= 1.0 Translated from the official. [L0ne_W0lf]
//= 1.1 Now checks proper char vars. [L0ne_W0lf]
//= 1.2 Cleaning. [Euphy]
//= 1.3 Renewal script update. [Euphy]
//============================================================ 

//prontera,113,294,3	script	Ĭʾ¼#god	837,{
prontera,156,305,3	script	Ĭʾ¼#god	837,{
	
	mes "======== ӡ״̬ ========";
//	setarray .@seal$[1], "Sleipnir","Megingjard","Brisingamen","Mjolnir";
	setarray .@seal$[1], "ʷ֮ѥ","","Ů","֮";
	for(set .@i,1; .@i<=4; set .@i,.@i+1) {
		set .@val, getd("$God"+.@i);
		if (.@val <= 0) {
			set .@status$,"δ";

//		} else if (.@val < $@god_check1) {
//			set .@status$,"";

		} else if (.@val < $@god_check2) {
			set .@status$,"";

		} else if (.@val >= $@god_check2) {
			set .@status$,"";

		} else {
			set .@status$,"";
		}
		mes .@seal$[.@i]+" Seal: "+.@status$;
	}


	set .@cnt,0;
	mes " ";
	mes "====  ====";
	if (god_sl_1 < 51) {
		mes "^ff0000ʷ֮ѥ: δ^000000 (" + god_sl_1 + "/51)";
	} else {
		mes "^00ff00ʷ֮ѥ: ^000000";
		set .@cnt,.@cnt+1;
	}

	if (god_eremes < 28) {
		mes "^ff0000: δ^000000 (" + god_eremes + "/28)";
	} else {
		mes "^00ff00: ^000000";
		set .@cnt,.@cnt+1;
	}

	if (god_brising < 50) {
		mes "^ff0000Ů: δ^000000 (" + god_brising + "/50)";
	} else {
		mes "^00ff00Ů: ^000000";
		set .@cnt,.@cnt+1;
	}

	if (god_mjo_0 < 11) {
		mes "^ff0000֮: δ^000000 (" + god_mjo_0 + "/11):" + god_mjo_1 + ":" + god_mjo_2 + ":" + god_mjo_3 + ":" + god_mjo_4;
	} else {
		mes "^00ff00֮: ^000000";
		set .@cnt,.@cnt+1;
	}

	next;
	mes "=====================";
	mes "ÿֻ 1 ֽ";
	mes "Ѿ 1 ";
	mes "ֻܵȴٴν";
	mes "п 2 ";
	mes "ǿʳԶ~";
	mes "...";
	mes "...";
	mes "...";
	mes "...";
	mes "ð,, ʵ,,, "; 
	mes "ͬһ˺ŵÿɫ";
	mes "ɷֱ 1 ֽ";



	set .@plv,callfunc("F_PLAYER_GMLV");
	if (.@plv >= 99) {
		next;
		mes ", GM ";
		mes "ǷƼ?";

		if (select("ȻҪŪ:ˣЩ") == 1) {
			close2;
			warp "sec_in02",20,172;
			end;
		}
	}

	if (.@cnt >= 4) {
		next;
		mes "Ƿ?";

		if (select("Ȼ,ҪưԷ:Ҳϲ") == 1) {
			close2;
			warp "gld_dun01",26,88;
			end;
		}
	}

	close;

}