#include "version.h"
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "readmap.h"
#include "object.h"
#include "char.h"
#include "char_base.h"
#include "chatmagic.h"
#include "battle.h"
#include "log.h"
#include "configfile.h"
#include "lssproto_serv.h"
#include "saacproto_cli.h"
#include "family.h"
#include "chatroom.h"
#include "net.h"
#include "util.h"
#ifdef _CHATROOMPROTOCOL			// (不可開) Syu ADD 聊天室頻道



#ifdef _UNIVERSE_CHATROOM

UniChatRoomlist ChatRoom[MAX_CHATROOM];
BOOL ChatCheck_BeMaster( int myindex, int chatnum)
{
	if( !CHAR_CHECKINDEX ( myindex ) ) 
		return FALSE;

	if( CHAR_getWorkInt ( myindex , CHAR_WORKCHATROOMNUM ) == 0 ) return FALSE;

	if( chatnum != -1 ){
		if( CHAR_getWorkInt ( myindex , CHAR_WORKCHATROOMNUM ) != chatnum )
			return FALSE;
	}
	if( CHAR_getWorkInt ( myindex , CHAR_WORKCHATROOMTYPE ) == 1 ) return TRUE;

	return FALSE;
}

BOOL ChatCheck_Free( int myindex)
{
	int old_gold;
	if ( !CHAR_CHECKINDEX ( myindex ) ) 
		return FALSE;
	old_gold = CHAR_getInt( myindex, CHAR_GOLD );
	if( old_gold < 200 ){
		CHAR_talkToCli ( myindex , -1 , "成立聊天室需花費２００石幣" , CHAR_COLORYELLOW ); 
		return FALSE;
	}
	if ( CHAR_getInt ( myindex , CHAR_LV ) < 30 &&
		CHAR_getInt ( myindex , CHAR_TRANSMIGRATION ) < 1 ) {
		CHAR_talkToCli ( myindex , -1 , "成立聊天室需０轉３０級以上！" , CHAR_COLORYELLOW );
		return FALSE;
	}
	if ( CHAR_getWorkInt ( myindex , CHAR_WORKCHATROOMTYPE ) != 0 ) {
		CHAR_talkToCli ( myindex , -1 , "你已經在其他聊天室中！" , CHAR_COLORYELLOW );
		return FALSE;
	}
	return TRUE;
}

void resetChat_users( int chat, int ti)
{
	if( chat<0 || chat >= MAX_CHATROOM ) return;
	if( ti<0 || ti >= MAX_PPLINROOM ) return;
	memset( ChatRoom[chat].charalist[ti].cdkey, 0, sizeof(ChatRoom[chat].charalist[ti].cdkey));
	memset( ChatRoom[chat].charalist[ti].name, 0, sizeof(ChatRoom[chat].charalist[ti].name));
	memset( ChatRoom[chat].charalist[ti].own, 0, sizeof(ChatRoom[chat].charalist[ti].own));
}

void InitChatRoom( void )
{
	int i, j;
	for ( i = 0 ; i < MAX_CHATROOM ; i ++ ) {
		ChatRoom[ i ].use=0; 
		ChatRoom[ i ].masindex= -1; 
		ChatRoom[ i ].charanum= 0; 
 		for ( j = 0 ; j < MAX_PPLINROOM ; j ++ )
			resetChat_users( i, j);
	}
}

int ChatRoom_getfree( void)
{
	int i;
	for ( i=0; i<MAX_CHATROOM; i++) {
		if( ChatRoom[ i ].use !=0 ) continue;
		return i;
	}
	return -1;
}

void ChatRoom_Refresh ( int Num )
{
	int fd , i, j; 
	char token[4096];
	char token2[4096];
	char buf[64];
	int playernum = CHAR_getPlayerMaxNum();
	if( ChatRoom[ Num ].use == FALSE ) return;
	if( ChatRoom[Num].masindex<0 || ChatRoom[Num].masindex>MAX_PPLINROOM ) return;

	sprintf ( token , "R|r%d|%s|%d|%s|p%d|" , 
		Num, ChatRoom[ Num ].chatname, ChatRoom[ Num ].masindex,
		ChatRoom[Num].charalist[ChatRoom[Num].masindex].name, ChatRoom[ Num ].charanum  );

	for ( i = 0 ; i < MAX_PPLINROOM ; i ++ ) {
		if ( ChatRoom[ Num ].charalist[i].use == 0 ) continue;
		sprintf( buf , "I%d|%s|%s|" , 
			i, ChatRoom[Num].charalist[i].name, ChatRoom[Num].charalist[i].own	);
		strncat ( token , buf , sizeof ( buf ) ) ; 
	}

	for ( j=0; j<playernum; j++) {
		if( !CHAR_getCharUse( j) ||
			CHAR_getInt( j, CHAR_WHICHTYPE)  != CHAR_TYPEPLAYER ) continue;
		if( CHAR_getWorkInt ( j, CHAR_WORKCHATROOMNUM) != Num ) continue;
		if( CHAR_getWorkInt( j, CHAR_WORKCHATROOMTYPE) == 0 ) continue;
//		if( !strcmp( ChatRoom[Num].charalist[ChatRoom[Num].masindex].cdkey, CHAR_getChar( j, CHAR_CDKEY)) &&
//			!strcmp( ChatRoom[Num].charalist[ChatRoom[Num].masindex].name, CHAR_getChar( j, CHAR_NAME)) ){
			fd=getfdFromCharaIndex ( j);
			sprintf ( token2, "%s%d|", token, CHAR_getWorkInt( j, CHAR_WORKCHATROOMTYPE));
			lssproto_CHATROOM_send ( fd , token2 ) ; 
//			break;
//		}
	}
}

void ChatRoom_List ( int fd )
{
	int i; 
	char buf[256];
	char token[2048] = "B|";
	for( i=0; i<MAX_CHATROOM; i++) {
		if( ChatRoom[ i ].use == 0 ) continue;
		sprintf( buf, "r%d|%s|%d|%s|p%d|", 
			i , ChatRoom[ i ].chatname, 
			ChatRoom[ i ].masindex , 
			ChatRoom[ i ].charalist[ChatRoom[ i ].masindex].name,
			ChatRoom[ i ].charanum );
		strncat ( token , buf , sizeof ( buf ) ) ; 

	}
	lssproto_CHATROOM_send( fd, token); 
}

void ChatRoom_Leave( int charaindex)
{
	int i, ti=-1, chat, fd;
	char token[1024];
	fd = getfdFromCharaIndex( charaindex);

	if( (chat = CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMNUM)) < 0 ) return;
	CHAR_setWorkInt( charaindex, CHAR_WORKCHATROOMNUM, -1);
	if( CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMTYPE) == 0 ) return;
	CHAR_setWorkInt( charaindex, CHAR_WORKCHATROOMTYPE, 0);

	for( i=0; i<MAX_PPLINROOM; i++){
		if( ChatRoom[chat].charalist[i].use == 0 ) continue;
		if( !strcmp( ChatRoom[chat].charalist[i].cdkey, CHAR_getChar(charaindex, CHAR_CDKEY)) &&
			!strcmp( ChatRoom[chat].charalist[i].name, CHAR_getChar(charaindex, CHAR_NAME)) ){
			ti = i;
			break;
		}
	}
	if( ti == -1 ) return;
	snprintf( token, sizeof( token),"L|%d|%d|", chat, ti );
	fd = getfdFromCharaIndex( charaindex);
	saacproto_ACUniChatroom_send( acfd, charaindex, CONNECT_getFdid(fd),
			   CHAR_getChar( charaindex, CHAR_CDKEY), token);

}

void ChatRoom_Destroy ( char *data)
{
	char buf[256];
	int chat, j, fd;
	int playernum = CHAR_getPlayerMaxNum();
	if( getStringFromIndexWithDelim( data , "|", 2, buf, sizeof( buf)) == FALSE ) return;
	chat = atoi( buf);
	if( chat < 0 || chat >= MAX_CHATROOM ) return;

	sprintf ( buf , "D|%d", chat);
	for ( j=0; j<playernum; j++) {
		if( !CHAR_getCharUse( j) ||
			CHAR_getInt( j, CHAR_WHICHTYPE)  != CHAR_TYPEPLAYER ) continue;
		if( CHAR_getWorkInt ( j, CHAR_WORKCHATROOMNUM) != chat ) continue;
		fd = getfdFromCharaIndex( j);
		lssproto_CHATROOM_send ( fd, buf);
		CHAR_setWorkInt ( j, CHAR_WORKCHATROOMTYPE, 0) ; 
		CHAR_setWorkInt ( j, CHAR_WORKCHATROOMNUM, -1) ; 
	}
	ChatRoom[ chat].use=0;
	ChatRoom[ chat].masindex= -1; 
	ChatRoom[ chat].charanum= 0; 
 	for ( j = 0 ; j < MAX_PPLINROOM ; j ++ )
		resetChat_users( chat, j);

}

//saacproto_ACUniChatroom_recv
void ChatRoom_recvall ( int fd , char *data )
{ 
	char Head[4];
	char token[1024];
	char buf[256];
	int charaindex;

	charaindex = CONNECT_getCharaindex(fd);
	if ( !CHAR_CHECKINDEX ( charaindex ) )return ;

	getStringFromIndexWithDelim( data , "|", 1, Head, sizeof(Head));

	//andy_log
	print( "CR:%s.\n", data);
	if ( strcmp ( Head , "C" ) == 0 ) { // 成立頻道
		char chatname[256];
		if( ChatCheck_Free( charaindex) == FALSE ) return;
		if( getStringFromIndexWithDelim( data , "|", 2, chatname, sizeof(chatname)) == FALSE ) return;
		if( strlen( chatname) >= 32 ) return;
		snprintf( token, sizeof( token),"C|%s|%s|%s|%s|",
			chatname, CHAR_getChar( charaindex, CHAR_CDKEY),
			CHAR_getChar( charaindex, CHAR_NAME),
			CHAR_getChar( charaindex, CHAR_OWNTITLE)
		);
	}else if ( strcmp ( Head , "D" ) == 0 ) { // 刪除頻道
		int chat;

		if( CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMTYPE) != 1 ) return;
		if( (chat = CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMNUM)) < 0 ) return;
		if( chat >= MAX_CHATROOM ) return;
		snprintf( token, sizeof( token),"D|%d|%s|%s|",
			chat, CHAR_getChar( charaindex, CHAR_CDKEY),
			CHAR_getChar( charaindex, CHAR_NAME)
		);
		//ChatRoom_Destroy( myindex);
/*
	}else if ( strcmp ( Head, "A") == 0 ) {// 同意加入頻道
		getStringFromIndexWithDelim( data , "|", 2, message, sizeof(message));
		getStringFromIndexWithDelim( data , "|", 3, buf, sizeof(buf));
		ChatRoom_Agree ( myindex , atoi( message ) , atoi( buf ) ) ;
*/
	}else if ( strcmp( Head , "J") == 0 ) {//加入頻道
		int chat;
		if( getStringFromIndexWithDelim( data , "|", 2, buf, sizeof(buf)) == FALSE ) return;
		chat = atoi( buf);
		if( chat < 0 || chat >= MAX_CHATROOM ) return;
		snprintf( token, sizeof( token),"J|%d|%s|%s|%s|",
			chat, CHAR_getChar( charaindex, CHAR_CDKEY),
			CHAR_getChar( charaindex, CHAR_NAME),
			CHAR_getChar( charaindex, CHAR_OWNTITLE)
		);
//		ChatRoom_Join ( myindex , atoi( message ) ) ;
	}else if ( strcmp( Head , "L") == 0 ) {// 離開頻道
		ChatRoom_Leave( charaindex);
		return;
	}else if ( strcmp ( Head , "K" ) == 0 ) {//踢出頻道
		int ti, chat;
		if( getStringFromIndexWithDelim( data , "|", 2, buf, sizeof( buf)) == FALSE ) return;
		ti = atoi( buf);
		if( ti<0 || ti>=MAX_PPLINROOM ) return;
		if( CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMTYPE) != 1 ) return;
		if( (chat = CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMNUM)) < 0 ) return;

		if( chat >= MAX_CHATROOM ) return;
		snprintf( token, sizeof( token),"K|%d|%s|%s|%d|",
			chat,
			CHAR_getChar( charaindex, CHAR_CDKEY),
			CHAR_getChar( charaindex, CHAR_NAME),
			ti );

//		ChatRoom_Kick ( myindex , atoi( message ) ); 
	}else if ( strcmp ( Head , "M" ) == 0 ) { // 更換室長
		int ti, chat;
		if( getStringFromIndexWithDelim( data , "|", 2, buf, sizeof(buf)) == FALSE ) return;
		ti = atoi( buf);
		if( CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMTYPE) != 1 ) return;
		if( (chat = CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMNUM)) < 0 ) return;
		if( chat >= MAX_CHATROOM ) return;
		if( ChatRoom[chat].charalist[ti].use == 0 ) return;
		snprintf( token, sizeof( token),"M|%d|%s|%s|%d|",
			chat,
			CHAR_getChar( charaindex, CHAR_CDKEY),
			CHAR_getChar( charaindex, CHAR_NAME),
			ti );
//		ChatRoom_Make ( myindex , atoi( message ) ); 
	}else if ( strcmp ( Head , "T" ) == 0 ) {// 頻道訊息
		int chat;
		if( getStringFromIndexWithDelim( data , "|", 2, buf, sizeof(buf)) == FALSE ) return;
		if( CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMTYPE) == 0 ) return;
		if( (chat = CHAR_getWorkInt( charaindex, CHAR_WORKCHATROOMNUM)) < 0 ) return;
		if( chat >= MAX_CHATROOM ) return;
		snprintf( token, sizeof( token),"T|%d|%s|",	chat, buf);
		
//		ChatRoom_Message ( myindex , message ) ; 
	}else if ( strcmp ( Head , "B" ) == 0 ) {// 聊天室清單
		ChatRoom_List ( fd );
		return;
	}