#include "version.h"
#include <string.h>
#include "char.h"
#include "object.h"
#include "char_base.h"
#include "npcutil.h"
#include "lssproto_serv.h"
#include "npc_windowhealer.h"




/*
 *迭｛示犯奴仿件必□斥毛銀尹壬  殺允月NPC
 * 引內(nèi)  仄井仃日木兇日｝公及皿伊奶乩□卞
 * 仇及NPC及INDEX毛忡繡允月［
 *
 *迫｛NPC及璃曰匹失弁撲亦件互丐勻兇日｝失弁撲亦件毛粟仇仄兇皿伊奶乩□互
 *NPC及INDEX毛忡  仄化中月井民尼永弁
 *民尼永弁    卅日戚反失弁撲亦件及撲□弗件旦民尼永弁允月
 *渦侗及失弁撲亦件毛仄化中兇日皿伊奶乩□及市它件玄毛失永皿今六月［
 *市它件玄失永皿  ｝蟈撲□弗件旦    卅日隙爛及樺赭尺伐□皿今六月
 *
 */

enum {
	BODYLAN_E_COMMANDNUM = CHAR_NPCWORKINT1,	// 戊穴件玉及贏今
};


// 它奶件玉它乒□玉
enum{
	BODYLAN_WIN_FIRST,
	BODYLAN_WIN_LAST_GOOD,
	BODYLAN_WIN_LAST_NG,
	BODYLAN_WIN_GOOD_NO,
	BODYLAN_WIN_ALREADY,
	BODYLAN_WIN_NOT_PREEVENT,
	BODYLAN_WIN_END
};

static void NPC_BodyLan_Profit( int meindex, int playerindex );

static void NPC_BodyLan_Window(
	int meindex,
	int talkerindex,
	int mode
);


/*********************************
* 賡渝質(zhì)  
*********************************/
BOOL NPC_BodyLanInit( int meindex )
{

	char szP[256], szArg[4096];
	char buf[256];
	int i, needSeq;

    CHAR_setInt( meindex , CHAR_WHICHTYPE , CHAR_TYPEEVENT );

    if( NPC_Util_GetArgStr( meindex, szArg, sizeof( szArg ) ) == NULL ){
    	print( "npc_bodylan.c:沒有引數(shù)(%s)\n",
    		CHAR_getChar(meindex,CHAR_NPCARGUMENT) );
    	return FALSE;
    }


	// 撲□弗件旦毛繭允
	if( NPC_Util_GetStrFromStrWithDelim( szArg, "Act", szP, sizeof( szP ) ) == NULL ){
		print( "npc_bodylan:動作文字列尚未設(shè)定(%s)\n",	szArg );
		return FALSE;
	}

	for( i = 0 ; ; i ++ ){
		//   邰卅賜  
		if( getStringFromIndexWithDelim( szP, ",", i, buf, sizeof( buf)) != FALSE ){
			needSeq = atoi(buf);
			// 穴奶瓜旦互  兇日仇仇引匹
			if( needSeq < 0 ){
				if( i <= 0 ){
					print( "npc_bodylan:動作列尚未設(shè)定(%s)\n", szArg );
				}
				//     醒毛本永玄
				CHAR_setWorkInt( meindex, BODYLAN_E_COMMANDNUM, i );
				break;
			}else{
				// 伙□皿仄化醒尹月
			}
		}else{
			if( i <= 0 ){
				print( "npc_bodylan:動作列尚未設(shè)定(%s)\n", szArg );
			}
			//     醒毛本永玄
			CHAR_setWorkInt( meindex, BODYLAN_E_COMMANDNUM, i );
			break;
		}
	}



    return TRUE;

}




/*********************************
*   仄井仃日木兇凜及質(zhì)  
*********************************/
void NPC_BodyLanTalked( int meindex , int talkerindex , char *szMes ,int color )
{
	char szP[256], szArg[4096];
	int EventNo = -1,Pre_Event = -1;

    /* 皿伊奶乩□卞覆仄化分仃  殺允月 */
    if( CHAR_getInt( talkerindex , CHAR_WHICHTYPE ) != CHAR_TYPEPLAYER ) {
    	return;
    }

	/* ㄠ弘伉永玉動  及心 */
	if( NPC_Util_CharDistance( talkerindex, meindex ) > 2 )
	{
		return;
	}

	// 婁醒  儂  
    if( NPC_Util_GetArgStr( meindex, szArg, sizeof( szArg ) ) == NULL ){
    	print( "npc_bodylan.c:沒有引數(shù)(%s)\n",
    		CHAR_getChar(meindex,CHAR_NPCARGUMENT) );
    	return ;
    }else{
		// 奶矛件玄  寞潸  
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "EventNo", szP, sizeof( szP ) ) != NULL ){
			EventNo = atoi(szP);
		}
		// 儀蟆  邰奶矛件玄  寞潸  
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Pre_Event", szP, sizeof( szP ) ) != NULL ){
			Pre_Event = atoi(szP);
		}
	}

	// 儀蟆卞  邰奶矛件玄  寞互丐木壬
	if( Pre_Event >= 0 ){
		// 奶矛件玄卞覆仄化升丹仄化中月井民尼永弁
		if( NPC_EventCheckFlg( talkerindex, Pre_Event ) == FALSE ){
			//   邰奶矛件玄毛弁伉失仄化中卅井勻兇日仇及本伉白
			NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_NOT_PREEVENT );
			return;
		}
	}
	// 奶矛件玄  寞互丐木壬
	if( EventNo >= 0 ){
		// 奶矛件玄卞覆仄化升丹仄化中月井民尼永弁
		if( NPC_EventCheckFlg( talkerindex, EventNo ) == TRUE ){
			//   勻化中兇日仇及本伉白
			NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_ALREADY );
			return;
		}
	}

	// 蟆莢仇及皿伊奶乩□反憤坌午韻勻化中兇井
	if( CHAR_getWorkInt( talkerindex, CHAR_WORKTRADER ) == meindex ){

		// 今日卞戊穴件玉互蟈  岳  仄化中兇日
		if( CHAR_getWorkInt( talkerindex, CHAR_WORKSHOPRELEVANT )
		 >= CHAR_getWorkInt( meindex, BODYLAN_E_COMMANDNUM )
		){
			// 岳  ″″仍    井＂
			NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_LAST_GOOD );
			return;
		}else{
			// 撩  
			NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_LAST_NG );
			return;
		}
	}else{
		// 賡戶化卅及匹創(chuàng)尹月
		// 皿伊奶乩□卞憤坌及奶件犯永弁旦毛忡繡今六月
		CHAR_setWorkInt( talkerindex, CHAR_WORKTRADER, meindex );
		// 撲□弗件旦反  賡井日卞賡渝祭
		CHAR_setWorkInt( talkerindex, CHAR_WORKSHOPRELEVANT, 1 );

		// 公及端本伉白午井韻月屯五井卅丐’’’
		NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_FIRST );
		return;
	}
}


/*=======================================
 * watch 質(zhì)  
 *======================================*/
void NPC_BodyLanWatch(
	int objmeindex,
	int objmoveindex,
    CHAR_ACTION act,
    int x,
    int y,
    int dir,
    int* opt,
    int optlen
)
{
	char szP[256], szArg[4096];
	char buf[256];
	int actindex;
	int meindex;
	int seqNo, needSeq;

	// 平乓仿弁正動陸反伉正□件
	if( OBJECT_getType(objmoveindex) != OBJTYPE_CHARA ) return;
	actindex = OBJECT_getIndex(objmoveindex);
	// 皿伊奶乩□動陸反伉正□件
	if( CHAR_getInt( actindex, CHAR_WHICHTYPE ) != CHAR_TYPEPLAYER ) return;

	// 憤坌及奶件犯永弁旦
	meindex = OBJECT_getIndex(objmeindex);

	// 憤坌及INDEX毛忡  仄化中月井＂中卅仃木壬伉正□件
	if( CHAR_getWorkInt( actindex, CHAR_WORKTRADER ) != meindex ){
		return;
	}

	// 升仇引匹失弁撲亦件毛仄化中月井
	seqNo = CHAR_getWorkInt( actindex, CHAR_WORKSHOPRELEVANT );
	//   卅樺寧反  賡井日
	if( seqNo < 1 )seqNo = 1;

	// 婁醒  儂  
    if( NPC_Util_GetArgStr( meindex, szArg, sizeof( szArg ) ) == NULL ){
    	print( "npc_bodylan.c:沒有引數(shù)(%s)\n",
    		CHAR_getChar(meindex,CHAR_NPCARGUMENT) );
    	return ;
    }


	// 撲□弗件旦毛繭允
	if( NPC_Util_GetStrFromStrWithDelim( szArg, "Act", szP, sizeof( szP ) ) == NULL ){
		print( "npc_bodylan:動作文字列尚未設(shè)定(%s)\n",	szArg );
		return;
	}

	//   邰卅賜  
	if(getStringFromIndexWithDelim( szP, ",", seqNo, buf, sizeof( buf)) != FALSE ){
		needSeq = atoi(buf);
	}else{
		// 卅兮井卅井勻兇日  賡井日
		CHAR_setWorkInt( actindex, CHAR_WORKSHOPRELEVANT, 1 );

//		print( "做過頭了。回到最初。\n", seqNo, needSeq );
		// 窒井韻月屯五井’’’
		return;
	}

	// 漆莢  邰卅失弁撲亦件互域譙仄兇
	if( needSeq == act ){
		// 域譙仄兇［仇木互    井
//		print( "成功\(%d次數(shù)是%d)\n", seqNo, needSeq );
		seqNo ++;
		if( seqNo >= CHAR_getWorkInt( meindex, BODYLAN_E_COMMANDNUM ) ){
//			print( "在此結(jié)束。\n" );
		}
		// 仇及匏  毛忡繡
		CHAR_setWorkInt( actindex, CHAR_WORKSHOPRELEVANT, seqNo );
	}else{
		// 撩  仄兇樺寧反  賡井日支曰  仄
		CHAR_setWorkInt( actindex, CHAR_WORKSHOPRELEVANT, 1 );
//		print( "(%d次數(shù)是%d)\n", seqNo, needSeq );
	}

}



//********* 岳  凜及仍     *********
static void NPC_BodyLan_Profit( int meindex, int playerindex )
{
	char szArg[4096], szP[256];
	int fl, x, y, pmode, i, subindex, parent;

	// 婁醒  儂  
    if( NPC_Util_GetArgStr( meindex, szArg, sizeof( szArg ) ) == NULL ){
    	print( "npc_bodylan.c:沒有引數(shù)(%s)\n",
    		CHAR_getChar(meindex,CHAR_NPCARGUMENT) );
    	return ;
    }

	//*********************************************
	//
	//   仍    公及ㄠ［伐□皿澀爛
	//
	//*********************************************
	if( NPC_Util_GetStrFromStrWithDelim( szArg, "Warp", szP, sizeof( szP ) ) != NULL ){
		// 仍    卞伐□皿［甄  潸月
		if( sscanf( szP, "%d,%d,%d", &fl, &x, &y ) == 3 ){
		}else{
			print( "npc_bodylan: 無法讀取空間座標(biāo)(%s)\n", szP );
			return;
		}
		// 由□  奴賺氏匹月樺寧閡間手伐□皿
		pmode = CHAR_getWorkInt( playerindex, CHAR_WORKPARTYMODE );
		switch( pmode ){
		case 1: // 憤坌互褪
			parent = playerindex;
			break;
		case 2: // 憤坌互閡間［褪毛潸  
			parent = CHAR_getWorkInt( playerindex, CHAR_WORKPARTYINDEX1 );
			break;
		default:
			// 由□  奴元扎卅井勻兇［憤坌分仃伐□皿
			CHAR_warpToSpecificPoint( playerindex, fl, x, y );
			return;
		}
		// 蟈夠伐□皿
		for( i = 0; i < CHAR_PARTYMAX; i ++ ){
			subindex = CHAR_getWorkInt( parent, CHAR_WORKPARTYINDEX1+i );
			if( CHAR_CHECKINDEX( subindex ) == FALSE )continue;
			// 由□  奴蟈夠伐□皿
			CHAR_warpToSpecificPoint( subindex, fl, x, y );
		}
	}



}

#if 1
static void NPC_BodyLan_Window(
	int meindex,
	int talkerindex,
	int mode
)
{
	char token[1024];
	char escapedname[2048];
	char szArg[4096];
	char szP[256];
	int fd;
	int buttontype = 0, windowtype = 0, windowno = 0;

	if( CHAR_CHECKINDEX( talkerindex ) == FALSE )return;
	fd = getfdFromCharaIndex( talkerindex );

	// 婁醒  儂  
    if( NPC_Util_GetArgStr( meindex, szArg, sizeof( szArg ) ) == NULL ){
    	print( "npc_bodylan.c:沒有引數(shù)(%s)\n",
    		CHAR_getChar(meindex,CHAR_NPCARGUMENT) );
    	return ;
    }

	szP[0] = 0;

	switch( mode ){
	  case BODYLAN_WIN_FIRST:
		//   賡卞  今木兇樺寧及本伉白
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "First", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:一開始講話的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_YES|WINDOW_BUTTONTYPE_NO;
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;

	  case BODYLAN_WIN_LAST_GOOD:
		//     匹懇荸分勻兇日
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Good", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:答對時說的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_YESNO;// YES|NO
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;

	  case BODYLAN_WIN_LAST_NG:
		//     匹懇荸分勻兇日
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Ng", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:答錯時說的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_OK;// OK
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;

	  case BODYLAN_WIN_GOOD_NO:
		// 懇荸凜卞    毛平乓件本伙
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Good_No", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:答對時取消獎品的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_OK;// OK
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;

	  case BODYLAN_WIN_ALREADY:
		// 允匹卞奶矛件玄毛蔽  仄化中兇樺寧
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Good_No", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:事件結(jié)束時的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_OK;	// OK
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;

	case BODYLAN_WIN_NOT_PREEVENT:
		// 儀蟆卞  邰卅奶矛件玄毛仇卅仄化中卅中樺寧
		if( NPC_Util_GetStrFromStrWithDelim( szArg, "Pre_Not", szP, sizeof( szP ) ) == NULL ){
			print( "npc_bodylan:?事前事件結(jié)束的文字沒有輸入(%s)\n",	szArg );
			return;
		}
		sprintf( token,"%s", szP );
		buttontype=WINDOW_BUTTONTYPE_OK;	// OK
	  	windowtype=WINDOW_MESSAGETYPE_MESSAGE;
	  	windowno=mode;
	  	break;
	  default:
	  	return;
	}

	makeEscapeString( token, escapedname, sizeof(escapedname));
	/*-仇仇匹霜耨允月--*/
	lssproto_WN_send( fd, windowtype,
					buttontype,
					windowno,
					CHAR_getWorkInt( meindex, CHAR_WORKOBJINDEX),
					escapedname);


}



/*-----------------------------------------
弁仿奶失件玄井日忒勻化五兇凜卞裟太請今木月［
-------------------------------------------*/
void NPC_BodyLanWindowTalked(
	int meindex,
	int talkerindex,
	int seqno,
	int select,
	char *data
)
{


	if( NPC_Util_CharDistance( talkerindex, meindex ) > 2) return;

	switch( seqno){
	case BODYLAN_WIN_LAST_GOOD:	// 懇荸凜卞OK瓷今木兇日
		if(select==WINDOW_BUTTONTYPE_YES ){
			NPC_BodyLan_Profit( meindex, talkerindex );
			// 皿伊奶乩□卞憤坌及奶件犯永弁旦毛侉木今六月
			CHAR_setWorkInt( talkerindex, CHAR_WORKTRADER, -1 );
			// 撲□弗件旦反  賡井日卞賡渝祭
			CHAR_setWorkInt( talkerindex, CHAR_WORKSHOPRELEVANT, 1 );
		}else
		if( select == WINDOW_BUTTONTYPE_NO ){
			// 懇荸凜卞平乓件本伙今木兇日
			NPC_BodyLan_Window( meindex, talkerindex, BODYLAN_WIN_GOOD_NO );
			// 皿伊奶乩□卞憤坌及奶件犯永弁旦毛侉木今六月
			CHAR_setWorkInt( talkerindex, CHAR_WORKTRADER, -1 );
			// 撲□弗件旦反  賡井日卞賡渝祭
			CHAR_setWorkInt( talkerindex, CHAR_WORKSHOPRELEVANT, 1 );
		}
		break;
	default:
		break;
	}

}



#endif