viewing paste exhange all misc item to apple | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
 
prontera,155,181,5  script  Sample  757,{
getinventorylist;
while( .@i < @inventorylist_count ){
    if( getiteminfo( @inventorylist_id[.@i],2 ) == 3 ){
        delitem @inventorylist_id[.@i],@inventorylist_amount[.@i];
        .@total_misc_count += @inventorylist_amount[.@i];
    }
    .@i++;
}
if( .@total_misc_count ){
    message strcharinfo(0),"Exchanged "+.@total_misc_count+" misc items into "+.@total_misc_count+" "+getitemname( 512 );
    getitem 512,.@total_misc_count;
}else{
    message strcharinfo(0),"Exchanged nothing...";
}
end;
}
Viewed 1392 times, submitted by Emistry.