// $Id: chat.c,v 1.7 2003/06/29 05:52:56 lemit Exp $
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "db.h"
#include "map.h"
#include "clif.h"
#include "pc.h"
#include "chat.h"
#include "npc.h"

#ifdef MEMWATCH
#include "memwatch.h"
#endif

int chat_triggerevent(struct chat_data *cd);


/*==========================================
 * 僠儍僢僩儖乕儉嶌惉
 *------------------------------------------
 */
int chat_createchat(struct map_session_data *sd,int limit,int pub,char* pass,char* title,int titlelen)
{
	struct chat_data *cd;

	cd = calloc(sizeof(*cd), 1);
	if(cd==NULL){
		printf("out of memory : chat_createchat\n");
		exit(1);
	}

	cd->limit = limit;
	cd->pub = pub;
	cd->users = 1;
	memcpy(cd->pass,pass,8);
	if(titlelen>=sizeof(cd->title)-1) titlelen=sizeof(cd->title)-1;
	memcpy(cd->title,title,titlelen);
	cd->title[titlelen]=0;

	cd->owner = (struct block_list **)(&cd->usersd[0]);
	cd->usersd[0] = sd;
	cd->bl.m = sd->bl.m;
	cd->bl.x = sd->bl.x;
	cd->bl.y = sd->bl.y;
	cd->bl.type = BL_CHAT;

	cd->bl.id = map_addobject(&cd->bl);	
	if(cd->bl.id==0){
		clif_createchat(sd,1);
		free(cd);
		return 0;
	}
	pc_setchatid(sd,cd->bl.id);

	clif_createchat(sd,0);
	clif_dispchat(cd,0);

	return 0;
}

/*==========================================
 * 婛懚僠儍僢僩儖乕儉偵嶲壛
 *------------------------------------------
 */
int chat_joinchat(struct map_session_data *sd,int chatid,char* pass)
{
	struct chat_data *cd;

	cd=(struct chat_data*)map_id2bl(chatid);
	if(cd==NULL)
		return 1;

	if(cd->bl.m != sd->bl.m || cd->limit <= cd->users){
		clif_joinchatfail(sd,0);
		return 0;
	}
	if(cd->pub==0 && strncmp(pass,cd->pass,8)){
		clif_joinchatfail(sd,1);
		return 0;
	}

	cd->usersd[cd->users] = sd;
	cd->users++;

	pc_setchatid(sd,cd->bl.id);

	
	clif_joinchatok(sd,cd);	// 怴偨偵嶲壛偟偨恖偵偼慡堳偺儕僗僩
	clif_addchat(cd,sd);	// 婛偵拞偵嫃偨恖偵偼捛壛偟偨恖偺曬崘
	clif_dispchat(cd,0);	// 廃埻偺恖偵偼恖悢曄壔曬崘

	chat_triggerevent(cd); // 僀儀儞僩
	
	return 0;
}

/*==========================================
 * 僠儍僢僩儖乕儉偐傜敳偗傞
 *------------------------------------------
 */
int chat_leavechat(struct map_session_data *sd)
{
	struct chat_data *cd;
	int i,leavechar;

	cd=(struct chat_data*)map_id2bl(sd->chatID);
	if(cd==NULL)
		return 1;

	for(i = 0,leavechar=-1;i < cd->users;i++){
		if(cd->usersd[i] == sd){
			leavechar=i;
			break;
		}
	}
	if(leavechar<0)	// 偦偺chat偵強懏偟偰偄側偄傜偟偄 (僶僌帪偺傒)
		return -1;

	if(leavechar==0 && cd->users>1 && (*cd->owner)->type==BL_PC){
		// 強桳幰偩偭偨&懠偵恖偑嫃傞&PC偺僠儍僢僩
		clif_changechatowner(cd,cd->usersd[1]);
		clif_clearchat(cd,0);
	}

	// 敳偗傞PC偵傕憲傞偺偱users傪尭傜偡慜偵幚峴
	clif_leavechat(cd,sd);

	cd->users--;
	pc_setchatid(sd,0);

	if(cd->users == 0 && (*cd->owner)->type==BL_PC){
			// 慡堳嫃側偔側偭偨&PC偺僠儍僢僩側偺偱徚偡
		clif_clearchat(cd,0);
		map_delobject(cd->bl.id);	// free傑偱偟偰偔傟傞
	} else {
		for(i=leavechar;i < cd->users;i++)
			cd->usersd[i] = cd->usersd[i+1];
		if(leavechar==0 && (*cd->owner)->type==BL_PC){
			// PC偺僠儍僢僩側偺偱強桳幰偑敳偗偨偺偱埵抲曄峏
			cd->bl.x=cd->usersd[0]->bl.x;
			cd->bl.y=cd->usersd[0]->bl.y;
		}
		clif_dispchat(cd,0);
	}

	return 0;
}

/*==========================================
 * 僠儍僢僩儖乕儉偺帩偪庡傪忳傞
 *------------------------------------------
 */
int chat_changechatowner(struct map_session_data *sd,char *nextownername)
{
	struct chat_data *cd;
	struct map_session_data *tmp_sd;
	int i,nextowner;

	cd=(struct chat_data*)map_id2bl(sd->chatID);
	if(cd==NULL || (struct block_list *)sd!=(*cd->owner))
		return 1;

	for(i = 1,nextowner=-1;i < cd->users;i++){
		if(strcmp(cd->usersd[i]->status.name,nextownername)==0){
			nextowner=i;
			break;
		}
	}
	if(nextowner<0) // 偦傫側恖偼嫃側偄
		return -1;

	clif_changechatowner(cd,cd->usersd[nextowner]);
	// 堦扷徚偡
	clif_clearchat(cd,0);

	// userlist偺弴斣曄峏 (0偑強桳幰側偺偱)
	tmp_sd = cd->usersd[0];
	cd->usersd[0] = cd->usersd[nextowner];
	cd->usersd[nextowner] = tmp_sd;

	// 怴偟偄強桳幰偺埵抲傊曄峏
	cd->bl.x=cd->usersd[0]->bl.x;
	cd->bl.y=cd->usersd[0]->bl.y;

	// 嵞搙昞帵
	clif_dispchat(cd,0);

	return 0;
}

/*==========================================
 * 僠儍僢僩偺忬懺(僞僀僩儖摍)傪曄峏
 *------------------------------------------
 */
int chat_changechatstatus(struct map_session_data *sd,int limit,int pub,char* pass,char* title,int titlelen)
{
	struct chat_data *cd;

	cd=(struct chat_data*)map_id2bl(sd->chatID);
	if(cd==NULL || (struct block_list *)sd!=(*cd->owner))
		return 1;

	cd->limit = limit;
	cd->pub = pub;
	memcpy(cd->pass,pass,8);
	if(titlelen>=sizeof(cd->title)-1) titlelen=sizeof(cd->title)-1;
	memcpy(cd->title,title,titlelen);
	cd->title[titlelen]=0;

	clif_changechatstatus(cd);
	clif_dispchat(cd,0);

	return 0;
}

/*==========================================
 * 僠儍僢僩儖乕儉偐傜廟傝弌偡
 *------------------------------------------
 */
int chat_kickchat(struct map_session_data *sd,char *kickusername)
{
	struct chat_data *cd;
	int i,kickuser;

	cd=(struct chat_data*)map_id2bl(sd->chatID);
	if(cd==NULL || (struct block_list *)sd!=(*cd->owner))
		return 1;

	for(i = 0,kickuser=-1;i < cd->users;i++){
		if(strcmp(cd->usersd[i]->status.name,kickusername)==0){
			kickuser=i;
			break;
		}
	}
	if(kickuser<0) // 偦傫側恖偼嫃側偄
		return -1;

	chat_leavechat(cd->usersd[kickuser]);

	return 0;
}

/*==========================================
 * npc僠儍僢僩儖乕儉嶌惉
 *------------------------------------------
 */
int chat_createnpcchat(struct npc_data *nd,int limit,int trigger,char* title,int titlelen,const char *ev)
{
	struct chat_data *cd;

	cd = calloc(sizeof(*cd), 1);
	if(cd==NULL){
		printf("out of memory : chat_createchat\n");
		exit(1);
	}

	cd->limit = cd->trigger = limit;
	if(trigger>0)
		cd->trigger = trigger;
	cd->pub = 1;
	cd->users = 0;
	memcpy(cd->pass,"",8);
	if(titlelen>=sizeof(cd->title)-1) titlelen=sizeof(cd->title)-1;
	memcpy(cd->title,title,titlelen);
	cd->title[titlelen]=0;

	cd->bl.m = nd->bl.m;
	cd->bl.x = nd->bl.x;
	cd->bl.y = nd->bl.y;
	cd->bl.type = BL_CHAT;
	cd->owner_ = (struct block_list *)nd;
	cd->owner = &cd->owner_;
	memcpy(cd->npc_event,ev,sizeof(cd->npc_event));

	cd->bl.id = map_addobject(&cd->bl);	
	if(cd->bl.id==0){
		free(cd);
		return 0;
	}
	nd->chat_id=cd->bl.id;

	clif_dispchat(cd,0);

	return 0;
}
/*==========================================
 * npc僠儍僢僩儖乕儉嶍彍
 *------------------------------------------
 */
int chat_deletenpcchat(struct npc_data *nd)
{
	struct chat_data *cd=(struct chat_data*)map_id2bl(nd->chat_id);
	
	chat_npckickall(cd);
	clif_clearchat(cd,0);
	map_delobject(cd->bl.id);	// free傑偱偟偰偔傟傞
	nd->chat_id=0;
	
	return 0;
}

/*==========================================
 * 婯掕恖悢埲忋偱僀儀儞僩偑掕媊偝傟偰傞側傜幚峴
 *------------------------------------------
 */
int chat_triggerevent(struct chat_data *cd)
{
	if(cd->users>=cd->trigger && cd->npc_event[0])
		npc_event_do(cd->npc_event);
	return 0;
}

/*==========================================
 * 僀儀儞僩偺桳岠壔
 *------------------------------------------
 */
int chat_enableevent(struct chat_data *cd)
{
	cd->trigger&=0x7f;
	chat_triggerevent(cd);
	return 0;
}
/*==========================================
 * 僀儀儞僩偺柍岠壔
 *------------------------------------------
 */
int chat_disableevent(struct chat_data *cd)
{
	cd->trigger|=0x80;
	return 0;
}
/*==========================================
 * 僠儍僢僩儖乕儉偐傜慡堳廟傝弌偡
 *------------------------------------------
 */
int chat_npckickall(struct chat_data *cd)
{
	while(cd->users>0){
		chat_leavechat(cd->usersd[cd->users-1]);
	}
	return 0;
}