viewing paste Berry to Box Changer | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
prontera,155,181,5      script  Sample  757,{
set .@ItemID,607;
set .@BoxID,13517;
 
mes "Exhchange 100 "+getitemname( .@ItemID )+" into "+getitemname( .@BoxID );
if( countitem( .@ItemID ) >= 100 ){
        mes "How many will be traded into "+getitemname( .@BoxID )+"?";
        input .@Count,0,countitem( .@ItemID );
        if( .@Count < 100 ) close;
        set .@Amount,( .@Count / 100 );
        delitem .@ItemID,( .@Amount * 100 );
        getitem .@BoxID,.@Amount;
        mes "Done.";
}
}
Viewed 1728 times, submitted by Emistry.