[RO] Item Collector with Rank 1.4

/*
CREATE TABLE IF NOT EXISTS `ero_npc_trade_item` (
  `cid` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  `name` VARCHAR(30) NOT NULL DEFAULT '',
  `nameid` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  `amount` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  PRIMARY KEY (`cid`,`nameid`,`amount`)
) ENGINE=MyISAM;
*/

prontera,155,175,5  script  Item Collector::item_collector_npc  4_F_KAFRA9,{
    doevent "trade_item_main::OnTalk";
}


-   script  trade_item_main -1,{

    OnInit:
        // Top Rank
        .top_rank = 10;

        // NPC take what item ID (empty = all items)
        setarray .itemid, 512;

        // list of not allowed items
        setarray .blacklist_itemid, 501, 502, 4001;

        .itemid_size = getarraysize(.itemid);
        for (.@i = 0; .@i < .itemid_size; .@i++) {
            .itemid$ = (.@i > 0 ? "," : "") + .itemid$ + .itemid[.@i];
            .is_allow[.itemid[.@i]] = 1;
        }
        .allow_all_item = !.itemid_size;
        .blacklist_itemid_size = getarraysize(.blacklist_itemid);
        for (.@i = 0; .@i < .blacklist_itemid_size; .@i++)
            .is_blacklist[.blacklist_itemid[.@i]] = 1;
        end;

    OnTalk:
        .@is_gm = (getgmlevel() >= 99);

        mes "^0055FF[ Item Collector ]^000000";
        mes "Do you have any used items? You may give it to me.";
        if (!.allow_all_item) {
            for (.@i = 0; .@i < .itemid_size; .@i++)
                mes "\n~ " + mesitemlink(.itemid[.@i], false);
        }
        mes " ";
        mes "I'll always remember who giveaway his items to me.";
        switch(select(
            "View Top "+.top_rank+" Rank",
            "Give Item to NPC",
            (.@is_gm) ? "^FF0000[GM]^000000 Reset Ranking" : ""
        )) {
            default:
            case 1:
                do {
                    clear;
                    mes "[ View Top "+.top_rank+" Rank ]";
                    switch(select(
                        "Any",
                        "Filter by Character Name",
                        (.allow_all_item) ? "":"Filter by ItemID"
                    )) {
                        default:
                            break;
                        case 2:
                            .@filter_by = 1;
                            mes "Enter Character Name";
                            break;
                        case 3:
                            .@filter_by = 2;
                            mes "Enter ItemID";
                            break;
                    }

                    if (.@filter_by && .@filter_by != 3)
                        input .@input$;

                    .@sql$ = "SELECT `name`, `nameid`, SUM(`amount`) AS `total` "
                            + "FROM `ero_npc_trade_item` "
                            + "WHERE 1 = 1 "
                            + (.allow_all_item ? "" : "AND `nameid` IN ("+escape_sql(.itemid$)+") ")
                            + ((.@filter_by == 1) ? "AND `name` IN ("+escape_sql(.@input$)+") " : "")
                            + ((.@filter_by == 2) ? "AND `nameid` IN ("+escape_sql(.@input$)+") " : "")
                            + "GROUP BY `cid`, `nameid`, `name`"
                            + "ORDER BY `total` DESC LIMIT "+.top_rank;
                    query_sql(.@sql$, .@name$, .@nameid, .@total);
                    .@size = getarraysize(.@name$);

                    if (!.@size) {
                        mes "no record found.";
                        break;
                    }
                    for (.@i = 0; .@i < .@size; .@i++)
                        mes "["+(.@i+1)+".] "+mesitemlink(.@nameid[.@i], false, .@name$[.@i])+" ("+F_InsertComma(.@total[.@i])+")";
                    next;
                } while (true);
                break;
            case 2:
                clear;
                mes "[ Give Item to NPC ]";
                if (!.allow_all_item) {
                    mes "I accept the following items:";
                    for (.@i = 0; .@i < .itemid_size; .@i++)
                        mes "\n~ " + mesitemlink(.itemid[.@i], false);
                }
                getinventorylist;
                for (.@i = 0; .@i < @inventorylist_count; .@i++) {
                    if (@inventorylist_bound[.@i] <= 0
                        && @inventorylist_expire[.@i] <= 0
                        && @inventorylist_equip[.@i] <= 0
                        && @inventorylist_tradable[.@i]
                        && .is_blacklist[@inventorylist_id[.@i]] == 0
                        && (.allow_all_item || .is_allow[@inventorylist_id[.@i]])
                    ) {
                        .@menu$ = .@menu$ + replacestr(getitemname(@inventorylist_id[.@i]), ":", " ") + " ("+F_InsertComma(@inventorylist_amount[.@i])+" left)";
                        .@count++;
                    }
                    .@menu$ = .@menu$ + ":";
                }
                if (.@count)
                    .@i = select(.@menu$) - 1;

                if (!@inventorylist_id[.@i]) {
                    mes "Unfortunately, you dont have any item available to give to NPC.";
                    close;
                }
                clear;
                mes "[ Give Item to NPC ]";
                mes "How many "+mesitemlink(@inventorylist_id[.@i], false)+" will be given to me?";
                mes "(You have "+F_InsertComma(@inventorylist_amount[.@i])+" left)";
                input .@amount, 0, @inventorylist_amount[.@i];
                clear;
                mes "[ Give Item to NPC ]";
                if (.@amount) {
                    delitemidx @inventorylist_idx[.@i], .@amount;
                    clear;
                    mes "[ Give Item to NPC ]";
                    mes "Thank you, you donated "+.@amount+"x "+mesitemlink(@inventorylist_id[.@i], false)+" to me.";
                    npctalk "<Item Collector> Thank you, '"+strcharinfo(0)+"' donated "+.@amount+"x "+itemlink(@inventorylist_id[.@i], @inventorylist_refine[.@i], @inventorylist_card1[.@i], @inventorylist_card2[.@i], @inventorylist_card3[.@i], @inventorylist_card4[.@i], @inventorylist_enchantgrade[.@i])+" to me.", "item_collector_npc";
                    query_sql("INSERT INTO `e_npc_trade_item` (`cid`,`name`,`nameid`,`amount`) VALUES ("+getcharid(0)+",'"+escape_sql(strcharinfo(0))+"',"+@inventorylist_id[.@i]+","+.@amount+") ON DUPLICATE KEY UPDATE `amount` = `amount` + "+.@amount);
                }
                mes "Thank for your kindness.";
                break;
            case 3:
                clear;
                mes "[ Reset Ranking ]";
                mes "This action cant be undo, confirm your action?";
                if (select("Yes, confirm.","Cancel") == 1) {
                    query_sql("TRUNCATE `e_npc_trade_item`");
                    clear;
                    mes "[ Reset Ranking ]";
                    mes "All record has been deleted.";
                }
                break;
        }
        close;
}