prontera,155,181,5  script  Stats Mistress  757,{
    
    mes "[ Stats Mistress ]";
    .@i = select( .stat_menu$ ) - 1;
    input .@amount,0,( .max_stats - readparam( 13+.@i ) );
    if ( .@amount > 0 )
        callsub( __OnBuyStat,.@i,.@amount );
    close;
    
    
    __OnBuyStat:
        .@index= getarg(0);
        .@amount = getarg(1);
        .@cost = ( .cost_per_stat * .@amount );
        
        mes "Stats : "+.stat$[.@index]+" +"+F_InsertComma( .@amount );
        mes "Price : "F_InsertComma( .@cost )+"z";
        mes "Do you wish to continue ?";
        
        if ( Zeny >= .@cost )
            if ( select( "Buy "+F_InsertComma( .@amount )+" "+.stat$[.@index] ) ) {
                Zeny -= .@cost;
                statusup2 ( 13 + .@index ),.@amount;
            }
        return;
 
    OnInit:
        .max_stats = 100;
        
        .cost_per_stat = 400000;
        
        setarray .stat$,"STR","AGI","VIT","INT","DEX","LUK";
        .@stat_size = getarraysize( .stat$ );
        while ( .@i < .@stat_size ) {
            .stat_menu$ = .stat_menu$ + .stat$[.@i] + ":";
            .@i++;
        }
        end;
}