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