splendide,181,172,5	script	Athena	640,{

while(1) {
	mes "[ Athena ]";
	mes callfunc("F_Hi")+" "+(Sex?"Mr.":"Mrs.")+" "+ strcharinfo(0);
	mes "How can i help you ?";
	next;
	set .@menu$, "- Explanation:- Awakening";
	switch( select( .@menu$ ) ) {
		case 1:
			mes "[ Athena ]";
			mes "Awakening process will cost you ^0000FF"+.cost_amt+"x "+getitemname(.cost_ids)+"^000000 and now you can chose your desired effect.";
			next;
			mes "[ Athena ]";
			mes "^FF0000WARNING!!^000000.";
			mes "Refine Level & Card Exist,";
			mes "In awakened item will be lost.";
			next;
			mes "[ Athena ]";
			mes "Effect List";
			mes "~ Shield: Reduce Damage from Demi Human";
			mes "~ Blade: Increase Physical Damage";
			mes "~ Energy: Increase MaxHP Rate";
			mes "~ Fierce: Increase Long Range Damage";
			mes "~ Mystical: Increase MATK";
			next;
			mes "[ Athena ]"; 
			mes "Upper Headgear Effect";
			mes "~ Single Stats +3";
			mes "~ Reduce Damage from Demi Human by 10%";
			mes "~ Increase Damage to Demi Human by 15%";
			mes "~ Increase Max Hp by 10%";
			mes "~ Increase Long Range Damage by 15%";
			mes "~ Increase Magic Attack by 15%";
			next;
			mes "[ Athena ]";
			mes "Midle Headgear Effect";
			mes "~ Single Stats +3";
			mes "~ Reduce Damage from Demi Human by 7%";
			mes "~ Increase Damage to Demi Human by 10%";
			mes "~ Increase Max Hp by 7%";
			mes "~ Increase Long Range Damage by 10%";
			mes "~ Increase Magic Attack by 10%";
			next;
			mes "[ Athena ]";
			mes "Lower Headgear Effect";
			mes "~ Single Stats +3";
			mes "~ Reduce Damage from Demi Human by 3%";
			mes "~ Increase Damage to Demi Human by 5%";
			mes "~ Increase Max Hp by 3%";
			mes "~ Increase Long Range Damage by 5%";
			mes "~ Increase Magic Attack by 5%";
			next;
			break;
		case 2:
			mes "[ Athena ]";
			if ( getgroupid() < .gm_pass ) {
				if ( countitem(.cost_ids) < .cost_amt ) {
					mes "At least you should have";
					mes "^0000FF"+.cost_amt+"x "+getitemname(.cost_ids)+"^000000";
					mes "to begin awakening process.";
					close;
				}
			}
			mes "Select headgear category";
			next;
			.@s = select ("Top Headgear:Mid Headgear:Low Headgear");
			set .@menu$,"";
			for(.@i = 0; .@i < getarraysize( getd( ".pos_"+ .@s ) );.@i++)
				set .@menu$, .@menu$+"~ "+getitemname( getd( ".pos_"+ .@s +"["+ .@i +"]" ) )+":";
			.@j = select(.@menu$) - 1;
			.@item_id = getd( ".pos_"+ .@s +"["+ .@j +"]" );
			
			mes "[ Athena ]";
			mes "Select stats type of awakening";
			next;
			.@k = select ("~ STR:~ INT:~ DEX:~ AGI:~ VIT:~ LUK");
			.@stats = getd( ".stats_"+ .@s +"["+ .@k +"]" );
			
			mes "[ Athena ]";
			mes "Select effect type of awakening";
			next;
			.@l = select ("~ Shield:~ Blade:~ Energy:~ Fierce:~ Mystical");
			.@effect = getd( ".effect_"+ .@s +"["+ .@l +"]" );
			
			mes "[ Athena ]";
			mes "Are you sure you want to awaken "+ getitemname( .@item_id ) +" with "+ getitemname(.@stats) +" and "+ getitemname(.@effect) +", Success Chance: "+.rate[ .@s ]+"% ?";
			next;
			if ( select( "Yes", "No" ) == 2 ) {
				mes "[ Athena ]";
				mes "Too bad then, but you were wise save it for any time you see favor you.";
				close;
			}
			close2;
			
			if ( getgroupid() >= .gm_pass ) {
				getitem2 .@item_id, 1, 1, 0, 0, 0, 0, .@stats, .@effect;
				end;
			}
			
			if ( !countitem(.@item_id) ) {
				mes "[ Athena ]";
				mes "Hmm? There's nothing to be awaken!";
				mes "Please bring item you wanna awaken";
				close;
			}
			delitem .cost_ids, .cost_amt;
			message strcharinfo(0), "Awakening in process...";
			progressbar "ffff00",3;
			if ( rand(100) < .rate[ .@s ] ) {
				specialeffect2 EF_REFINEOK;
				specialeffect2 EF_LORD;
				specialeffect2 EF_SANCTUARY;
				delitem .@item_id, 1;
				getitem2 .@item_id, 1, 1, 0, 0, 0, 0, .@stats, .@effect;
			} else
				specialeffect2 EF_REFINEFAIL;
				specialeffect2 EF_SUI_EXPLOSION;
			end;
	}
}
	
OnInit:
	set .gm_pass, 99;
	set .cost_ids, 32001;
	set .cost_amt, 10;
	
	setarray .rate[1], 15, 45, 30;
	
	setarray .pos_1,29943;
	setarray .pos_2,29953;
	setarray .pos_3,29102;
	
	setarray .stats_1[1],4702,4712,4722,4732,4742,4752;
	setarray .stats_2[1],4702,4712,4722,4732,4742,4752;
	setarray .stats_3[1],4702,4712,4722,4732,4742,4752;
	
	setarray .effect_1[1],31951,31952,31953,31954,31955;
	setarray .effect_2[1],31956,31957,31958,31959,31960;
	setarray .effect_3[1],31961,31962,31963,31964,31965;
	end;
}