//Skorm 12-9-2016 v1.1
//Script is the reverse of a ticket refiner and converts refined items into tickets.
prontera,184,177,5  script  Ticket Trader   851,{
    disable_items;
    mes "[^FF0000Ticket Trader^000000]";
    mes "I trade weapons and armours with specific refines for ^0000FFRefine Tickets^000000.";
    next;
    mes "[^FF0000Ticket Trader^000000]";
    mes "Which equipment would you like me to convert into a ^0000FFRefine Ticket^000000?";
    while(set(.@a,.@a+1)<=.e_len) {
        if( getequipid(.@a)>-1 && compare(.allow_list$,","+getequipid(.@a)+",") )
            set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.@a))+"^000000]:";
        else {
            set .@menu$, .@menu$+":";
            .@len++;
        }
    }
    
    next;
    
    if( .@len >= .e_len ) {
        mes "[^FF0000Ticket Trader^000000]";
        mes "It doesn't look like anything you have equipped can be converted sorry.";
        close;
    }
    
    select(.@menu$);
    set .@eq_loc, @menu;
    set .@eq_itm, getequipid(.@eq_loc);
    set .@eg_rfn, getequiprefinerycnt(.@eq_loc);
    if( .@eq_itm < 0 ) {
        mes "[^FF0000Ticket Trader^000000]";
        mes "Hmm, I don't think you have anything equipped there.";
        close;
    }
    if( .@eg_rfn < .uprange || .@eg_rfn > .uprange[1] ) {
        mes "[^FF0000Ticket Trader^000000]";
        mes "Sorry but I only convert items refined between +"+.uprange+" and +"+.uprange[1]+".";
        close;
    }
    
    .@ticket = getiteminfo(.@eq_itm,2) == 5 ? .weap_t_list[.@eg_rfn] : .armo_t_list[.@eg_rfn];
    
    mes "[^FF0000Ticket Trader^000000]";
    mes "^adb4be"+getitemname(.@eq_itm)+" will be changed into ^0000FF"+getitemname(.@ticket)+"^000000.";
    mes "Are you sure?";
    next;
    if( select("No:Yes") == 1 ) {
        mes "[^FF0000Ticket Trader^000000]";
        mes "Oh!- Well that was a close one then.";
        close;
    }
    
    if( getequipid(.@eq_loc) != .@eq_itm || .@eg_rfn != getequiprefinerycnt(.@eq_loc) ) {
        mes "[^FF0000Ticket Trader^000000]";
        mes "Nobody likes a cheater!";
        close;
    }
    
    delequip(.@eq_loc);
    getitem(.@ticket,1);
    enable_items;
    
    mes "[^FF0000Ticket Trader^000000]";
    mes "Have a nice day!";
    close;
    
    OnInit:
        setarray .eqp$  ,   "Upper Headgear", "Armor", "Left Hand", "Right Hand", "Garment",
                            "Shoes", "Accessory1", "Accessory2", "Mid Headgear", "Low Headgear";
        setarray .uprange, 6, 11;
        setarray .armo_t_list[.uprange],6235,6234,6233,6232,6239;
        setarray .weap_t_list[.uprange],6231,6230,6229,6228,6238;
        .allow_list$ = ",1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,2302,2304,2306,2308,2310,2311,2313,2315,2317,2318,2319,";
        .e_len = getarraysize(.eqp$);
}