viewing paste Unknown #40787 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
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;
}
 
 
Viewed 515 times, submitted by unknown.