// Oxxy (C) 2015, HPM plugin.
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#include "../common/HPMi.h"
#include "../common/malloc.h"
#include "../common/mmo.h"
#include "../common/socket.h"
#include "../common/strlib.h"
#include "../map/clif.h"
#include "../map/script.h"
#include "../map/pc.h"
 
#include "../common/HPMDataCheck.h" /* should always be the last file included! (if you don't make it last, it'll intentionally break compile time) */
 
HPExport struct hplugin_info pinfo = {
    "Chat Color",    // 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)
};
 
ACMD(color) {
    if(!message || !*message) {
        clif->message(fd, "Usage: @color <color>");
        clif->message(fd, "<color> must be in hex format. Starting with 0x");
        clif->message(fd, "Example: @color 0x00FF00");
        if(pc_readglobalreg_str(sd,script->add_str("CHAT_COLOR$")) = "") {
            clif->message(fd, "Defaulting your color to green.");
            pc_setglobalreg_str(sd, script->add_str("CHAT_COLOR$"), "0x000000");
            return 1;
        }
        return -1;
    } else {
        pc_setglobalreg_str(sd, script->add_str("CHAT_COLOR$"), message);
        clif->message(fd, "Color has been set.");
    }
 
    return 1;
}
 
int messageSending(int *fd, struct map_session_data* sd) {
 
    // validate packet and retrieve name and message
    if( !clif->process_message(sd, 0, &name, &namelen, &message, &messagelen) )
        return;
 
    if( atcommand->exec(fd, sd, message, true)  )
        return;
 
    if( !pc->can_talk(sd) )
        return;
 
    if( battle_config.min_chat_delay ) { //[Skotlex]
        if (DIFF_TICK(sd->cantalk_tick, timer->gettick()) > 0)
            return;
        sd->cantalk_tick = timer->gettick() + battle_config.min_chat_delay;
    }
 
    if( (sd->class_&MAPID_UPPERMASK) == MAPID_SUPER_NOVICE ) {
        unsigned int next = pc->nextbaseexp(sd);
        if( next == 0 ) next = pc->thisbaseexp(sd);
        if( next ) { // 0%, 10%, 20%, ...
            int percent = (int)( ( (float)sd->status.base_exp/(float)next )*1000. );
            if( (battle_config.snovice_call_type || percent) && ( percent%100 ) == 0 ) {// 10.0%, 20.0%, ..., 90.0%
                switch (sd->state.snovice_call_flag) {
                    case 0:
                        if( strstr(message, msg_txt(1479)) ) // "Dear angel, can you hear my voice?"
                            sd->state.snovice_call_flag = 1;
                        break;
                    case 1: {
                        char buf[256];
                        snprintf(buf, 256, msg_txt(1480), sd->status.name);
                        if( strstr(message, buf) ) // "I am %s Super Novice~"
                            sd->state.snovice_call_flag = 2;
                    }
                        break;
                    case 2:
                        if( strstr(message, msg_txt(1481)) ) // "Help me out~ Please~ T_T"
                            sd->state.snovice_call_flag = 3;
                        break;
                    case 3:
                        sc_start(NULL,&sd->bl, status->skill2sc(MO_EXPLOSIONSPIRITS), 100, 17, skill->get_time(MO_EXPLOSIONSPIRITS, 5)); //Lv17-> +50 critical (noted by Poki) [Skotlex]
                        clif->skill_nodamage(&sd->bl, &sd->bl, MO_EXPLOSIONSPIRITS, 5, 1);  // prayer always shows successful Lv5 cast and disregards noskill restrictions
                        sd->state.snovice_call_flag = 0;
                        break;
                }
            }
        }
    }
 
    if( battle_config.idletime_criteria & BCIDLE_CHAT )
        sd->idletime = sockt->last_tick;
 
    if( sd->gcbind ) {
        channel->send(sd->gcbind,sd,message);
        return;
    } else if ( sd->fontcolor && !sd->chatID ) {
        char mout[200];
        unsigned char mylen = 1;
 
        if( sd->disguise == -1 ) {
            sd->fontcolor_tid = timer->add(timer->gettick()+5000, clif->undisguise_timer, sd->bl.id, 0);
            pc->disguise(sd,sd->status.class_);
            if( pc_isdead(sd) )
                clif->clearunit_single(-sd->bl.id, CLR_DEAD, sd->fd);
            if( unit->is_walking(&sd->bl) )
                clif->move(&sd->ud);
        } else if ( sd->disguise == sd->status.class_ && sd->fontcolor_tid != INVALID_TIMER ) {
            const struct TimerData *td;
            if( (td = timer->get(sd->fontcolor_tid)) ) {
                timer->settick(sd->fontcolor_tid, td->tick+5000);
            }
        }
 
    const char* text = (char*)RFIFOP(fd,4);
    char mout[200];
    unsigned char mylen = 1;
    char *name, *message, *fakename = NULL;
    size_t namelen, messagelen;
 
    unsigned long *color1, color2;
    char *tmp = pc_readglobalreg_str(sd, script->add_str("CHAT_COLOR$"));
    if(tmp != NULL)
        color2 = strtoul(tmp, NULL, 0);
 
    mylen += snprintf(mout, 200, "%s : %s",sd->fakename[0]?sd->fakename:sd->status.name,message);
    
    if(color2 1= "") // if CHAT_COLOR$ != ""
        WFIFOL(*fd,8) = (color2&0x0000FF) << 16 | (color2&0x00FF00) | (color2&0xFF0000) >> 16; // RGB -> BGR
    else // if CHAT_COLOR == ""
        WFIFOL(*fd,8) = (color1&0x0000FF) << 16 | (color1&0x00FF00) | (color1&0xFF0000) >> 16; // RGB -> BGR
    safestrncpy((char*)WFIFOP(*fd,12), *mout, *mylen);
    clif->send(WFIFOP(fd,0), WFIFOW(fd,2), &sd->bl, AREA_WOS);
}
 
HPExport void plugin_init (void) {
    char *server_type;
    char *server_name;
 
    /* core vars */
    iMalloc = GET_SYMBOL("iMalloc");
    script = GET_SYMBOL("script");
    clif = GET_SYMBOL("clif");
    pc = GET_SYMBOL("pc");
 
    addAtcommand("color", color);
    //addScriptCommand("color","is",color)
    addHookPre("clif->pGlobalMessage", messageSending);
}
 
HPExport void server_online (void) {
    ShowInfo ("'%s' Plugin by Oxxy. Version '%s'\n",pinfo.name,pinfo.version);
}