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;
}