viewing paste Unknown #25134 | Athena

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
//function      script  unbind  {
 
-       script  unbinding_system        -1,{
 
       
 
OnStartBinding:
 
        set .id, 29990; // or any item id that would correspond to your item/scroll that you wish to use.
 
       
 
        setarray .itemid[0],0;
 
        setarray .name$[0],"";
 
        setarray .identify[0],0;
 
        setarray .attrib[0],0;
 
        setarray .refine[0],0;
 
        setarray .card1[0],0;
 
        setarray .card2[0],0;
 
        setarray .card3[0],0;
 
        setarray .card4[0],0;
 
       
 
        getinventorylist;
        // Item IDs that cannot be bound
        setarray .@blacklist[0], 1201, 1207, 2301;
 
        // Check blacklist
        for (.@i = 0; .@i < getarraysize(.@blacklist); .@i++) {
                if (@inventorylist_id[.@item] == .@blacklist[.@i]) {
                        mes "Sorry, but "+ getitemname(@inventorylist_id[.@item]) +" is blacklisted from being bound.";
                        close;
                }
        }
        set @count,0;
 
        for(set @i, 0; @i <@inventorylist_count; set @i, @i + 1)
 
        {
 
                if(@inventorylist_bound[@i] && @inventorylist_equip[@i]==0)
 
                {
 
                        set .itemid[@count], @inventorylist_id[@i];
 
                        set .name$[@count], getitemname(@inventorylist_id[@i]);
 
                        set .identify[@count], @inventorylist_identify[@i];
 
                        set .attrib[@count], @inventorylist_attribute[@i];
 
                        set .refine[@count], @inventorylist_refine[@i];
 
                        set .card1[@count], @inventorylist_card1[@i];
 
                        set .card2[@count], @inventorylist_card2[@i];
 
                        set .card3[@count], @inventorylist_card3[@i];
 
                        set .card4[@count], @inventorylist_card4[@i];
 
                        set @count,@count+1;
 
                }
 
        }
 
        if(getarraysize(.itemid)==0)
 
        {
 
                message strcharinfo(0), "No unbindable item found in the inventory.";
 
                end;
 
        }
 
        else
 
        {
 
                set @id, select(implode(.name$,":"));
 
                delitem2 .itemid[@id-1],1,.identify[@id-1],.refine[@id-1],.attrib[@id-1],.card1[@id-1],.card2[@id-1],.card3[@id-1],.card4[@id-1];
 
                getitem2 .itemid[@id-1],1,.identify[@id-1],.refine[@id-1],.attrib[@id-1],.card1[@id-1],.card2[@id-1],.card3[@id-1],.card4[@id-1];
 
                delitem .id,1;
 
                message strcharinfo(0), "Item has been unbinded.";
 
                end;
 
        }
 
}
Viewed 546 times, submitted by unknown.