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.";
}
close;
}
Viewed 2722 times, submitted by Emistry.