-	script	Upgrade Orb	112,{
	disable_items;
	setarray .@eq[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
	for(.@i = 1; .@i <= getarraysize(.@eq);.@i++){
		if(getequipisequiped(.@eq[.@i])){
			.@menu$ = .@menu$+F_getpositionname(.@eq[.@i])+" ~ [ " + getequipname(.@eq[.@i]) + " ]";
			.@equipped = 1;
		}
		.@menu$ = .@menu$ + ":";
	}
	if (!.@equipped) {
		mes "You aren't wearing any headgear";
		close;
	}
	.@choice = select(.@menu$);
	.@part = .@eq[.@choice];
	.@hg_id = getequipid(.@part);
	if (countitem(.@hg_id) > 1) {
		mes "Kamu membawa lebih dari 1 "+getitemname(.@hg_id);
		mes "Bawalah hanya 1 untuk upgrade";
		close;
	}
	.@card0 = getequipcardid(.@part,0);
	.@card1 = getequipcardid(.@part,1);
	.@card2 = getequipcardid(.@part,2);
	.@card3 = getequipcardid(.@part,3);
	if (!.@card3) {
		mes "Gada orb nya headgearnya euuy";
		close;
	}
	.@rate = 50;
	.@upgrade = getd(".up"+.@card3);
	mes "[Debug]";
	mes "Card Slot 0 = "+ .@card0;
	mes "Card Slot 1 = "+ .@card1;
	mes "Card Slot 2 = "+ .@card2;
	mes "Card Slot 3 = "+ .@card3;
	mes " ";
	mes "Kalo sukses "+getitemname(.@card3)+" jadi "+getitemname(.@upgrade)
	next;
	if (select("Upgrade:Cancel")==2){
		mes callfunc("F_Bye");
		close;
	}
	mes "Pencet Enter atau click close";
	close2;
	delitem .@hg_id, 1;
	delitem .@req_item, 1;
	progressbar "ffff00", 3;
	if (rand(99) < .@rate) {
		getitem2 .@hg_id,1,1,0,0,.@card0,.@card1,.@card2,.@upgrade;
	} else {
		getitem2 .@hg_id,1,1,0,0,.@card0,0,0,0;
	}
	end;
	
OnInit:
	.up501 = 502;
	end;
		

}