viewing paste Seed to Berry 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,{
 
mes "You have "+countitem( 608 )+" x "+getitemname( 608 );
if( countitem( 608 ) >= 2 ){
        mes "How many you want trade into "+getitemname( 607 )+" ?";
        input .@Input,0,countitem( 608 );
        set .@Amount,( .@Input / 2 );
        mes "Total of "+( .@Amount * 2 )+" "+getitemname( 608 )+" trade into "+.@Amount+" "+getitemname( 607 )+" ?";
        if( select("YES:NO") == 1 ){
                delitem 608,( .@Amount * 2 );
                getitem 607,.@Amount;
                mes "Done";
        }
}
}
Viewed 480 times, submitted by Emistry.