viewing paste Unknown #10586 | Athena

Posted on the | Last edited on
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
/*callfunc      "Refine_Scrolls",refineamount,itemid,0;
*/
 
function        script  Refine_Scrolls  {
        set .@name$,"^0000ff[Refine Scroll]^000000";
       
        mes .@name$;
        mes "Este Refine Scroll refinará lo que sea";
        mes "con una probabilidad del 100%";
        next;
        mes .@name$;
        mes "Quieres usarlo?";
        next;
        switch(select("Si:No:")){
        case 1:
                setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
                set .@menu$,"";
        for(set .@i,1; .@i<=10; set .@i,.@i+1) {
                if(getequipisequiped(.@i)) {
                        set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
                        set .@equipped,1;
                }
                set .@menu$, .@menu$ + ":";
        }
                if (.@equipped == 0) {
                mes "[" + getarg(0) + "]";
                mes "I don't think I can refine any items you have...";
                close;
        }
        set .@part, select(.@menu$);
       
        if(!getequipisequiped(.@part)) { //custom check
                mes .@name$;
                mes "You're not wearing";
                mes "anything there that";
                mes "I can refine.";
                emotion e_an;
                close;
        }
        set .@refineitemid, getequipid(.@part); // save id of the item
        set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
        //Check if the item is refinable...
        if(!getequipisenableref(.@part)) {
                mes .@name$;
                mes "I don't think I can";
                mes "refine this item at all...";
                close;
        }
        //Check to see if the items is already +20
        if(getequiprefinerycnt(.@part) >= 20) {
                mes .@name$;
                mes "I can't refine this";
                mes "any more. This is as";
                mes "refined as it gets!";
                close;
        }
        //custom checks
        if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
                mes .@name$;
                mes "Look here... you don't have any Items on...";
                close;
                }
        if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
                mes .@name$;
                emotion e_an;
                mes "Wait a second...";
                mes "Do you think I'm stupid?!";
                mes "You switched the item while I wasn't looking! Get out of here!";
                close;
                }
 
                mes .@name$;
                mes "En estos momentos sera refinado su ^ff0000"+getitemname(.@refineitemid)+"^000000 + "+getarg(0)+".";
                specialeffect2 96;
                progressbar "ffff00",5;
                //successrefitem .@refineitemid,getarg(1);
                delitem getarg(1),1;
                next;
                mes .@name$;
                mes "Refine Exitoso.";
                close;
       
case 2:
        mes .@name$;
        mes "Usalo cuando te sientas " + (Sex?"seguro":"segura") + "";
        close;
        }
}
Viewed 579 times, submitted by Dynasty.