prontera,155,179,5  script  kjdhfkjshf  100,{
    mes "this is an exchanger NPC";
    .@s = select (
        .exchange_list$[0] +" -> "+ .exchange_list$[1],
        .exchange_list$[1] +" -> "+ .exchange_list$[0] ) -1;
    mes "selected :-";
    mes .exchange_list$[ .@s ];
    mes " -> ";
    mes .exchange_list$[ !.@s ];
    while ( countitem( getd(".exchange_list"+ .@s +"["+ .@i +"]") ) >= getd(".exchange_list"+ .@s +"["+( .@i +1 )+"]" ) && .@i < .size[ .@s ] ) .@i += 2;
    if ( .@i < .size[.@s] ) {
        mes "not enough "+ getitemname( getd(".exchange_list"+ .@s +"["+ .@i +"]") );
        close;
    }
    mes "input the amount that you can change";
    for ( .@i = 0; .@i < .size[ .@s ]; .@i += 2 ) {
        .@tmp[.@c] = countitem( getd(".exchange_list"+ .@s +"["+ .@i +"]") ) / getd(".exchange_list"+ .@s +"["+( .@i +1 )+"]");
        if ( !.@max || .@max > .@tmp[.@c] )
            .@max = .@tmp[.@c];
        .@c++;
    }
    mes "max = "+ .@max;
    next;
    if ( input( .@input, 1, .@max ) ) {
        mes "invalid amount";
        close;
    }
    for ( .@i = 0; .@i < .size[ .@s ]; .@i += 2 )
        delitem getd(".exchange_list"+ .@s +"["+ .@i +"]"), getd(".exchange_list"+ .@s +"["+( .@i +1 )+"]");
    for ( .@i = 0; .@i < .size[ !.@s ]; .@i += 2 )
        getitem getd(".exchange_list"+ !.@s +"["+ .@i +"]"), getd(".exchange_list"+ !.@s +"["+( .@i +1 )+"]");
    close;
OnInit:
    setarray .exchange_list0, 501,1 , 502,2 , 503,3 ;
    setarray .exchange_list1, 504,1 ;
 
    while ( .@j <= 1 ) {
        .@i = 0;
        .size[.@j] = getarraysize( getd(".exchange_list"+ .@j ) );
        while ( .@i < .size[.@j] ) {
            .exchange_list$[.@j] = .exchange_list$[.@j] + getd(".exchange_list"+ .@j +"["+( .@i +1 )+"]" ) +"x "+ getitemname( getd(".exchange_list"+ .@j +"["+ .@i +"]" ) ) +( ( .@i == .size[.@j] -2 )? "":" + " );
            .@i += 2;
        }
        .@j++;
    }
    end;
}