/**
 * This file is part of Hercules.
 * http://herc.ws - http://github.com/HerculesWS/Hercules
 *
 * Copyright (C) 2013-2015  Hercules Dev Team
 *
 * Hercules is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
/// Sample Hercules Plugin
 
#include "common/hercules.h" /* Should always be the first Hercules file included! (if you don't make it first, you won't be able to use interfaces) */
#include "common/mmo.h"
#include "common/db.h"
#include "common/utils.h"
#include "common/timer.h"
#include "common/nullpo.h"
#include "map/channel.h"
#include "map/irc-bot.h"
#include "map/pc.h"
#include "map/itemdb.h"
#include "map/clif.h"
#include "map/script.h"
#include "map/status.h"
 
#include "plugins/HPMHooking.h"
#include "common/HPMDataCheck.h" /* should always be the last Hercules file included! (if you don't make it last, it'll intentionally break compile time) */
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
HPExport struct hplugin_info pinfo = {
    "Channel Paid Messages",    // Plugin name
    SERVER_TYPE_MAP,// Which server types this plugin works with?
    "0.1",       // Plugin version
    HPM_VERSION, // HPM Version (don't change, macro is automatically updated)
};
 
 
enum {
    CF_NONE = 0,
    CF_ZENY = 1,
    CF_ITEM = 2
};
 
/**
 * Sends a message to a channel.
 *
 * @param chan The destination channel.
 * @param sd   The source character.
 * @param msg  The message to send.
 *
 * If no source character is specified, it'll send an anonymous message.
 */
void channel_send_fee (struct channel_data *chan, struct map_session_data *sd, const char *msg)
{
    char message[150];
    int i, zeny = 0;
    struct item it;
    int fee = CF_NONE;
    int idx;
    char alert[150];
 
 
    it.nameid = 0;
    it.amount = 0;
    nullpo_retv(chan);
    nullpo_retv(msg);
 
    // FIXME: make a better way to add fee on channels (directly on channels.conf)
    const struct {
        char name[HCS_NAME_LENGTH];
        int zeny;
        int nameid;
        int amount;
    } channels_fee[] = {
        // -- Add channels with fee like the example: {"name", zeny, {item id, item count}};
        {"main"    , 1000, 0  , 0}, // #main - 1000z and no item
    };
 
    if (sd && chan->msg_delay != 0
     && DIFF_TICK(sd->hchsysch_tick + chan->msg_delay*1000, timer->gettick()) > 0
     && !pc_has_permission(sd, PC_PERM_HCHSYS_ADMIN)) {
        clif->messagecolor_self(sd->fd, COLOR_RED, msg_sd(sd,1455));
        return;
    } else if (sd) {
 
        // -- Check for fees and pay them if exists
        for ( i = 0; i < ARRAYLENGTH(channels_fee); i++ ) {
            if ( strcmpi(channels_fee[i].name, chan->name) == 0 ) {
                if ( channels_fee[i].zeny > 0 ) {
                    fee |= CF_ZENY;
                    zeny = channels_fee[i].zeny;    
                }
                if ( itemdb->exists(channels_fee[i].nameid) ) {
                    fee |= CF_ITEM;
                    it.nameid = channels_fee[i].nameid;
                    it.amount = channels_fee[i].amount;
                }
                break;
            }
        }
 
        do {
            if ( fee ) {
                bool fee_ok = false;
                if ( fee&CF_ZENY ) {
                    // -- Zeny
                    if ( zeny > sd->status.zeny ) {
                        safesnprintf(alert, 150, "You need at least %d zeny to send messages on #%s channel.", zeny, chan->name);
                        clif->messagecolor_self(sd->fd, COLOR_RED, alert);
                        break;
                    } else {
                        fee_ok = true;
                    }
                }
                if ( fee&CF_ITEM ) {
                    // -- Item
                    idx = pc->search_inventory(sd, it.nameid);
                    if ( idx == INDEX_NOT_FOUND || sd->status.inventory[idx].amount < it.amount ) {
                        struct item_data *id = itemdb->search(it.nameid);
                        safesnprintf(alert, 150, "You need at least [%d x %s] to send messages on #%s channel.", it.amount, id->jname, chan->name);
                        clif->messagecolor_self(sd->fd, COLOR_RED, alert);
                        break;
                    } else {
                        fee_ok = true;
                    }
                }
 
                if ( fee_ok ) {
                    if ( fee&CF_ITEM )
                        if ( pc->delitem(sd, idx, it.amount, 0, DELITEM_NORMAL, LOG_TYPE_SCRIPT) ) // Returns 0 uppon success and 1 uppon failure (It's strange)
                            break;
                    if ( fee&CF_ZENY )
                        pc->payzeny(sd, zeny, LOG_TYPE_NPC, NULL);
                }
            }
            safesnprintf(message, 150, "[ #%s ] %s : %s", chan->name, sd->status.name, msg);
            clif->channel_msg(chan, sd, message);
            if (chan->type == HCS_TYPE_IRC)
                ircbot->relay(sd->status.name,msg);
            if (chan->msg_delay != 0)
                sd->hchsysch_tick = timer->gettick();
        } while(0);
 
    } else {
        safesnprintf(message, 150, "[ #%s ] %s", chan->name, msg);
        clif->channel_msg2(chan, message);
        if (chan->type == HCS_TYPE_IRC)
            ircbot->relay(NULL, msg);
    }
}
 
HPExport void server_online (void) {
    ShowInfo ("'%s' Plugin by Bio/Hercules. Version '%s'\n", pinfo.name, pinfo.version);
    channel->send = channel_send_fee;
}