PageRenderTime 73ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 1ms

/SERVER/GameServer/AppServer/script/Script.cpp

https://bitbucket.org/ichenq/stardust
C++ | 3774 lines | 3132 code | 381 blank | 261 comment | 777 complexity | 4545a9738346a6151df3656808f991f8 MD5 | raw file
    

  1. #include "StdAfx.h"

    2. 

  2. #include "script.h"

    3. 

  3. #include "variablelist.h"

    4. 

  4. #include "..\player.h"

    5. 

  5. #include "..\ServerRegion.h"

    6. 

  6. #include "../goods/cgoods.h"

    7. 

  7. #include "../monster.h"

    8. 

  8. #include "../moveshape.h"

    9. 

  9. #include "../public/StrType.h"

    10. 

  10. #include "../public/StrUnifyInput.h"

    11. 

  11. 

    12. 

  12. #include <vector>

    13. 

  13. #include <string>

    14. 

  14. 

    15. 

  15. 

    16. 

  16. 

    17. 

  17. 

    18. 

  18. 

    19. 

  19. 

    20. 

  20. CScript::tagStrValueInfo::tagStrValueInfo(void)

    21. 

  21. :pStrValue(NULL),lStrValueLen(0)

    22. 

  22. {

    23. 

  23. 

    24. 

  24. }

    25. 

  25. CScript::tagStrValueInfo::~tagStrValueInfo(void)

    26. 

  26. {

    27. 

  27. 

    28. 

  28. }

    29. 

  29. 

    30. 

  30. 

    31. 

  31. /************************************************

    32. 

  32. *	运行一个脚本文件 RunScript(...);			*

    33. 

  33. ************************************************/

    34. 

  34. 

    35. 

  35. listScript g_Scripts;				// 脚本链表表头

    36. 

  36. FreeScript g_FreeScriptList;     // 预分配的空闲脚本内存

    37. 

  37. map<CScript*,string> g_UsingScript;     // 正在使用的Script

    38. 

  38. 

    39. 

  39. CVariableList* CScript::g_StackVarList = NULL;

    40. 

  40. list<CGUID>	CScript::m_DelScripts;

    41. 

  41. 

    42. 

  42. CVariableList* CScript::GetStackVarListInst(void)

    43. 

  43. {

    44. 

  44.     if(NULL == g_StackVarList)

    45. 

  45.         g_StackVarList = MP_NEW CVariableList;

    46. 

  46.     return g_StackVarList;

    47. 

  47. }

    48. 

  48. void CScript::ReleaseStackVarListInst(void)

    49. 

  49. {

    50. 

  50. 	MP_DELETE(g_StackVarList);

    51. 

  51. }

    52. 

  52. ///////////////////

    53. 

  53. CScript* PopFreeScript(const char* pszName)

    54. 

  54. {

    55. 

  55.     CScript* tempScript = NULL;

    56. 

  56.     if( g_FreeScriptList.size() > 0 ) //有空闲Script内存块

    57. 

  57.     {

    58. 

  58.         tempScript = g_FreeScriptList.front();

    59. 

  59.         g_FreeScriptList.pop_front();	

    60. 

  60.     }

    61. 

  61.     else

    62. 

  62.     {

    63. 

  63.         tempScript = MP_NEW CScript;

    64. 

  64.     }

    65. 

  65.     tempScript->ResetVariableList();

    66. 

  66.     tempScript->ResetChildScriptInfo();

    67. 

  67. 	tempScript->SetSrcShape(NULL);

    68. 

  68. 	tempScript->SetDesShape(NULL);

    69. 

  69. 	tempScript->SetRegion(NULL);

    70. 

  70. 

    71. 

  71. 	if(pszName)

    72. 

  72. 		g_UsingScript[tempScript]=pszName;

    73. 

  73. 	else

    74. 

  74. 		g_UsingScript[tempScript]="";

    75. 

  75.     return tempScript;

    76. 

  76. }

    77. 

  77. void	 PushFreeScript(CScript* freeScript)

    78. 

  78. {

    79. 

  79.     if(NULL == freeScript)	return;

    80. 

  80. 

    81. 

  81. 	g_UsingScript.erase(freeScript);

    82. 

  82.     // 如果空闲队列没有达到最大数量

    83. 

  83.     if(g_FreeScriptList.size() <= CGlobeSetup::GetSetup()->lMaxPreAllocedScriptNum)

    84. 

  84.     {

    85. 

  85.         freeScript->GetSelfVariableList()->Release();

    86. 

  86.         g_FreeScriptList.push_back(freeScript);

    87. 

  87.     }

    88. 

  88.     else //清除多余空闲内存

    89. 

  89.     {

    90. 

  90.         MP_DELETE(freeScript);

    91. 

  91.     }

    92. 

  92. }

    93. 

  93. 

    94. 

  94. //输出脚本信息

    95. 

  95. void	OutputScriptInfo()

    96. 

  96. {

    97. 

  97. 	char pszInfo[1024]="";

    98. 

  98. 	_snprintf(pszInfo,1024,"g_UsingScript:%d,g_Scripts:%d",g_UsingScript.size(),g_Scripts.size());

    99. 

  99. 	PutStringToFile("ScriptInfo",pszInfo);

    100. 

  100. 	map<CScript*,string>::iterator it = g_UsingScript.begin();

    101. 

  101. 	for(;it != g_UsingScript.end();it++)

    102. 

  102. 	{

    103. 

  103. 		bool bFlag = false;

    104. 

  104. 		char pszSrcGuid[50]="";

    105. 

  105. 		const CGUID& guid = (*it).first->GetID();

    106. 

  106. 		(*it).first->GetSrcID().tostring(pszSrcGuid);

    107. 

  107. 		if(guid != NULL_GUID)

    108. 

  108. 			bFlag = ( g_Scripts.find(guid )  != g_Scripts.end() );

    109. 

  109. 		_snprintf(pszInfo,1024,"(SrcType:%d,SrcGuid:%s)flag:%d,IsHang:%d,HangFun:%d,fileame:%s",(*it).first->GetSrcType(),pszSrcGuid,bFlag,(*it).first->IsHang(),(*it).first->GetHangFunc(),(*it).second.c_str());

    110. 

  110. 		PutStringToFile("ScriptInfo",pszInfo);

    111. 

  111. 	}

    112. 

  112. }

    113. 

  113. // 客户端选择有效性判断

    114. 

  114. bool ClientOptIsValid(const CGUID& scriptid, const char* szClientOpt)

    115. 

  115. {

    116. 

  116. 	if(scriptid == NULL_GUID) return true;

    117. 

  117. 

    118. 

  118. 	listScript::iterator itr = g_Scripts.find(scriptid);

    119. 

  119. 	if(itr != g_Scripts.end())

    120. 

  120. 	{

    121. 

  121. 		if( !itr->second->GetClientOptInfo()

    122. 

  122. 			|| itr->second->GetClientOptInfo()[0] == '\0') return true;

    123. 

  123. 

    124. 

  124. 		if(strstr(itr->second->GetClientOptInfo(), szClientOpt))

    125. 

  125. 			return true;

    126. 

  126. 		else

    127. 

  127. 			return false;

    128. 

  128. 	}

    129. 

  129. 	return false;

    130. 

  130. }

    131. 

  131. // 清除脚本的客户端选择检查数据

    132. 

  132. void ClearClientOptData(const CGUID& scriptid)

    133. 

  133. {

    134. 

  134. 	listScript::iterator itr = g_Scripts.find(scriptid);

    135. 

  135. 	if(itr != g_Scripts.end())

    136. 

  136. 	{

    137. 

  137. 		if(itr->second)

    138. 

  138. 			itr->second->SetClientOptInfo("");

    139. 

  139. 	}

    140. 

  140. }

    141. 

  141. // 外部调用脚本

    142. 

  142. double RunScript(stRunScript *p, char* pData, int paramA, int paramB)

    143. 

  143. {

    144. 

  144.     if(p==NULL || pData==NULL)

    145. 

  145.         return false;

    146. 

  146. 

    147. 

  147. #ifdef _RUNSTACKINFO_

    148. 

  148.     char pszStatckInfo[10240]="";

    149. 

  149.     _snprintf(pszStatckInfo,10240,"RunScript(FileName:%s) Start",p->pszFileName?p->pszFileName:"");

    150. 

  150. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    151. 

  151. #endif

    152. 

  152. 

    153. 

  153. 

    154. 

  154.     CScript* tempScript = NULL;

    155. 

  155.     double lIndexID = 0; //全局的唯一脚本ID

    156. 

  156. 

    157. 

  157.     tempScript = PopFreeScript(p->pszFileName);

    158. 

  158. #ifdef _SCRIPT_INFO_

    159. 

  159. 	DWORD BeginTime = timeGetTime();

    160. 

  160. 	tempScript->m_RunTime = 0;

    161. 

  161. #endif

    162. 

  162.     // 初始化script对象

    163. 

  163.     tempScript->m_dwLastTime=0;

    164. 

  164.     if(p->srcShape && (OBJECT_TYPE)p->srcShape->GetType() == TYPE_PLAYER)

    165. 

  165.         tempScript->SetPlayerID(p->srcShape->GetExID());

    166. 

  166.     else

    167. 

  167.         tempScript->SetPlayerID(NULL_GUID);

    168. 

  168.     tempScript->SetRegion(p->pRegion);

    169. 

  169.     tempScript->SetSrcShape(p->srcShape);

    170. 

  170.     tempScript->SetDesShape(p->desShape);

    171. 

  171.     tempScript->SetUsedItemID(p->guUsedItemID);

    172. 

  172.     POINT pointXY;

    173. 

  173.     pointXY.x = -1;

    174. 

  174.     pointXY.y = -1;

    175. 

  175.     tempScript->SetDropGoodsPoint(pointXY);

    176. 

  176.     CGUID guid;

    177. 

  177.     CGUID::CreateGUID(guid);

    178. 

  178.     tempScript->SetID(guid);

    179. 

  179.     // 加载脚本内容

    180. 

  180.     double ret = 0; // 返回值

    181. 

  181.     if( tempScript->LoadScript(p->pszFileName, pData) )

    182. 

  182.     {

    183. 

  183.         tempScript->GetVariableList()->AddVar("$ParamA", paramA);

    184. 

  184.         tempScript->GetVariableList()->AddVar("$ParamB", paramB);

    185. 

  185.         tempScript->GetVariableList()->AddVar("$Ret", 0.0f);

    186. 

  186.         // 执行脚本

    187. 

  187.         if( tempScript->RunStep() == CScript::SR_HANG )

    188. 

  188.         {

    189. 

  189.             g_Scripts[guid] = tempScript;

    190. 

  190. #ifdef _RUNSTACKINFO_

    191. 

  191.             _snprintf(pszStatckInfo,10240,"RunScript(FileName:%s) Hang",p->pszFileName?p->pszFileName:"");

    192. 

  192. 			CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    193. 

  193. #endif

    194. 

  194. #ifdef _SCRIPT_INFO_

    195. 

  195. 			tempScript->m_RunTime += timeGetTime() - BeginTime;

    196. 

  196. #endif

    197. 

  197.             return 0;

    198. 

  198.         }

    199. 

  199.         else

    200. 

  200.         {

    201. 

  201.             ret = tempScript->GetVariableList()->GetVarValue("$Ret", 0);

    202. 

  202.         } 

    203. 

  203.     }

    204. 

  204.     

    205. 

  205. #ifdef _SCRIPT_INFO_

    206. 

  206. 	GetGame()->AddScriptInfo((p->pszFileName?p->pszFileName:""), timeGetTime() - BeginTime);

    207. 

  207. 	tempScript->m_RunTime = 0;

    208. 

  208. #endif

    209. 

  209. 

    210. 

  210. 	PushFreeScript(tempScript);

    211. 

  211. 

    212. 

  212. #ifdef _RUNSTACKINFO_

    213. 

  213. 	_snprintf(pszStatckInfo,10240,"RunScript(FileName:%s) End",p->pszFileName?p->pszFileName:"");

    214. 

  214. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    215. 

  215. #endif

    216. 

  216. 

    217. 

  217.     return ret;

    218. 

  218. }

    219. 

  219. 

    220. 

  220. // 往脚本里添加参数

    221. 

  221. static void _AddParamList( CScript *pScript, const VarPairListType &var_list )

    222. 

  222. {

    223. 

  223. 	CVariableList *pVarList = pScript->GetVariableList();

    224. 

  224. 	for( VarPairListType::const_iterator it = var_list.begin(); it != var_list.end(); ++ it )

    225. 

  225. 	{

    226. 

  226. 		const stVarPair &vp = *it;

    227. 

  227. 		switch( vp.ValueType )

    228. 

  228. 		{

    229. 

  229. 		case stVarPair::VT_NUMBER:

    230. 

  230. 			pVarList->AddVar( vp.Name.c_str(), vp.NumValue );

    231. 

  231. 			break;

    232. 

  232. 

    233. 

  233. 		case stVarPair::VT_STRING:

    234. 

  234. 			pVarList->AddVar( vp.Name.c_str(), vp.StrValue.c_str() );

    235. 

  235. 			break;

    236. 

  236. 

    237. 

  237. 		case stVarPair::VT_GUID:

    238. 

  238. 			pVarList->AddGuid( vp.Name.c_str(), vp.GuidValue );

    239. 

  239. 			break;

    240. 

  240. 

    241. 

  241. 		default:

    242. 

  242. 			// error

    243. 

  243. 			break;

    244. 

  244. 		}

    245. 

  245. 	}

    246. 

  246. 

    247. 

  247. 	// add ret

    248. 

  248. 	pVarList->AddVar( "$Ret", (double)0 );

    249. 

  249. }

    250. 

  250. 

    251. 

  251. double RunScript( stRunScript *p, char *pData, const VarPairListType &var_list )

    252. 

  252. {

    253. 

  253.     if( p == NULL || pData == NULL )

    254. 

  254. 	{

    255. 

  255.         return false;

    256. 

  256. 	}

    257. 

  257.     CScript* tempScript = NULL;

    258. 

  258.     double lIndexID = 0; //全局的唯一脚本ID

    259. 

  259. 

    260. 

  260.     tempScript = PopFreeScript(p->pszFileName);

    261. 

  261.     tempScript->m_dwLastTime=0;

    262. 

  262.     if(p->srcShape && (OBJECT_TYPE)p->srcShape->GetType() == TYPE_PLAYER)

    263. 

  263.         tempScript->SetPlayerID(p->srcShape->GetExID());

    264. 

  264.     else

    265. 

  265.         tempScript->SetPlayerID(NULL_GUID);

    266. 

  266.     tempScript->SetRegion(p->pRegion);

    267. 

  267.     tempScript->SetSrcShape(p->srcShape);

    268. 

  268.     tempScript->SetDesShape(p->desShape);

    269. 

  269.     tempScript->SetUsedItemID(p->guUsedItemID);

    270. 

  270.     POINT pointXY;

    271. 

  271.     pointXY.x = -1;

    272. 

  272.     pointXY.y = -1;

    273. 

  273.     tempScript->SetDropGoodsPoint(pointXY);

    274. 

  274.     CGUID guid;

    275. 

  275.     CGUID::CreateGUID(guid);

    276. 

  276.     tempScript->SetID(guid);

    277. 

  277.     // 加载脚本内容

    278. 

  278.     double ret = 0; // 返回值

    279. 

  279.     if( tempScript->LoadScript(p->pszFileName, pData) )

    280. 

  280.     {

    281. 

  281. 		_AddParamList( tempScript, var_list );

    282. 

  282.         // 执行脚本

    283. 

  283.         if( tempScript->RunStep() == CScript::SR_HANG )

    284. 

  284.         {

    285. 

  285.             g_Scripts[guid] = tempScript;

    286. 

  286.             return 0;

    287. 

  287.         }

    288. 

  288.         else

    289. 

  289.         {

    290. 

  290.             ret = tempScript->GetVariableList()->GetVarValue("$Ret", 0);

    291. 

  291.         } 

    292. 

  292.     }

    293. 

  293.     PushFreeScript(tempScript);

    294. 

  294. 

    295. 

  295.     return ret;

    296. 

  296. }

    297. 

  297. 

    298. 

  298. long DelectAllScripByShape(const CGUID& PlayerGuid)

    299. 

  299. {

    300. 

  300.     for(itScript it=g_Scripts.begin(); it!=g_Scripts.end(); it++)

    301. 

  301.     {

    302. 

  302.         CScript* p = (CScript*)(*it).second;

    303. 

  303.         if( p && p->GetSrcID() == PlayerGuid )

    304. 

  304.         {

    305. 

  305. 			CScript::PushDelScript((*it).first);

    306. 

  306.         }

    307. 

  307.     }

    308. 

  308.     return true;

    309. 

  309. }

    310. 

  310. 

    311. 

  311. //删除玩家的Talkbox脚本

    312. 

  312. long DelPlayerTalkBoxScript(const CGUID& PlayerGuid, SCRIPT_FUNC_DEF funcDef)

    313. 

  313. {

    314. 

  314. 

    315. 

  315.     for(itScript it=g_Scripts.begin(); it!=g_Scripts.end(); it++)

    316. 

  316.     {

    317. 

  317.         CScript* p = (CScript*)(*it).second;

    318. 

  318.         if( p && p->GetSrcID() == PlayerGuid &&

    319. 

  319.             p->IsHang() &&

    320. 

  320.             (p->GetHangFunc() == funcDef) )

    321. 

  321.         {

    322. 

  322. 			CScript::PushDelScript((*it).first);

    323. 

  323.         }

    324. 

  324.     }

    325. 

  325. 

    326. 

  326.     return true;

    327. 

  327. }

    328. 

  328. 

    329. 

  329. 

    330. 

  330. //删除某个ID对应的脚本

    331. 

  331. long DelectPlayerScript(const CGUID &ScriptID,const CGUID& PlayerGuid)

    332. 

  332. {

    333. 

  333.     itScript it = g_Scripts.find(ScriptID);

    334. 

  334. 

    335. 

  335.     if(it != g_Scripts.end())

    336. 

  336.     {

    337. 

  337.         CScript* p = (CScript*)(*it).second;

    338. 

  338.         if(p && p->GetSrcID() == PlayerGuid)

    339. 

  339.         {

    340. 

  340. 			CScript::PushDelScript(ScriptID);

    341. 

  341.         }

    342. 

  342.     }

    343. 

  343.     return true;

    344. 

  344. }

    345. 

  345. 

    346. 

  346. //在脚本链表中清除PLAYER对应的脚本

    347. 

  347. long DelectPlayerScript(CPlayer* pPlayer,char* strFile)

    348. 

  348. {

    349. 

  349.     if(pPlayer==NULL || strFile == NULL)

    350. 

  350.         return false;

    351. 

  351. 

    352. 

  352.     for(itScript it=g_Scripts.begin(); it!=g_Scripts.end(); it++)

    353. 

  353.     {

    354. 

  354.         CScript* p = (CScript*)(*it).second;

    355. 

  355.         if( p && p->GetSrcID() == pPlayer->GetExID() && p->GetFileName() &&

    356. 

  356.             strcmp(strFile,p->GetFileName()) == 0 )

    357. 

  357.         {

    358. 

  358. 			CScript::PushDelScript((*it).first);

    359. 

  359.         }

    360. 

  360.     }

    361. 

  361.     return true;

    362. 

  362. }

    363. 

  363. 

    364. 

  364. //判断某个万家的脚本是否正在执行

    365. 

  365. bool ScriptIfExit(CPlayer* pPlayer,char* strFile)

    366. 

  366. {

    367. 

  367.     if(pPlayer==NULL || strFile == NULL)

    368. 

  368.         return false;

    369. 

  369. 

    370. 

  370.     for(itScript it=g_Scripts.begin(); it!=g_Scripts.end();it++)

    371. 

  371.     {

    372. 

  372.         CScript* p = (CScript*)(*it).second;

    373. 

  373.         if( p && p->GetPlayerID() == pPlayer->GetExID() && p->GetFileName() &&

    374. 

  374.             strcmp(strFile,p->GetFileName()) == 0 )

    375. 

  375.         {

    376. 

  376.             return true;

    377. 

  377.         }

    378. 

  378.     }

    379. 

  379. 

    380. 

  380.     return false;

    381. 

  381. }

    382. 

  382. 

    383. 

  383. //继续执行一个脚本

    384. 

  384. long ContinueRunScript(const CGUID& ScriptID, CVariableList* stackVarList)

    385. 

  385. {

    386. 

  386.     itScript it = g_Scripts.find(ScriptID);

    387. 

  387.     if(it != g_Scripts.end())

    388. 

  388.     {

    389. 

  389.         CScript* pScript = (*it).second;

    390. 

  390.         if(pScript)

    391. 

  391.         {

    392. 

  392.             pScript->ResetShape();

    393. 

  393.             if( pScript->ContinueRun(stackVarList) != CScript::SR_HANG )

    394. 

  394.             {

    395. 

  395.                 CScript::PushDelScript(ScriptID);

    396. 

  396.                 return 1;

    397. 

  397.             }

    398. 

  398.             else

    399. 

  399.             {

    400. 

  400.                 return 0;

    401. 

  401.             }

    402. 

  402.         }

    403. 

  403.         return 1;

    404. 

  404.     }

    405. 

  405.     return 0;

    406. 

  406. }

    407. 

  407. //得到一个脚本的全局ID

    408. 

  408. long GetScriptIndex()

    409. 

  409. {

    410. 

  410.     static double lID = 0;

    411. 

  411.     return ++lID;

    412. 

  412. }

    413. 

  413. /************************************************

    414. 

  414. *	-= 脚本类 =-								*

    415. 

  415. *	读入并执行脚本文件							*

    416. 

  416. *	（１）用以控制NPC的行为						*

    417. 

  417. *	（２）编写特定的情节						*

    418. 

  418. *	（３）制作任务								*

    419. 

  419. *	（４）动态改变游戏中的各种数据［巫师］		*

    420. 

  420. ************************************************/

    421. 

  421. 

    422. 

  422. ////////////////

    423. 

  423. // 函数列表

    424. 

  424. 

    425. 

  425. double CScript::m_LoadFunctionNum=0;

    426. 

  426. 

    427. 

  427. CScript::STRING2PFUNC* CScript::s_FunctionList2=0;

    428. 

  428. 

    429. 

  429. double CScript::m_MaxFunction=0;

    430. 

  430. 

    431. 

  431. ////////////////

    432. 

  432. // 全局变量

    433. 

  433. CVariableList* CScript::m_GeneralVariableList=NULL;

    434. 

  434. CVariableList* CScript::m_BuffSkillVariableList=NULL;

    435. 

  435. 

    436. 

  436. //////////////////////////////////////

    437. 

  437. // 操作符列表 (数值越大，优先级越大)

    438. 

  438. CScript::stOperation CScript::m_OperationList[MAX_OPERATION]=

    439. 

  439. {

    440. 

  440.     "", 0,

    441. 

  441.     ";",1,

    442. 

  442.     "||",2,

    443. 

  443.     "&&",3,

    444. 

  444.     "==",4, "!=",4, ">",4,  "<",4,  ">=",4, "<=",4,

    445. 

  445.     "=",5,  "+=",5, "-=",5, "*=",5, "/=",5, "%=",5,

    446. 

  446.     "&",6,  "|",6,

    447. 

  447.     "+",7,  "-",7,

    448. 

  448.     "*",8,  "/",8,  "%",8

    449. 

  449. };

    450. 

  450. 

    451. 

  451. ///////////////

    452. 

  452. // 构建

    453. 

  453. CScript::CScript(CShape* srcShape, CRegion *Region, CShape *desShape, CGUID& guUsedItemID, DWORD dwDiedMonsterIndex)

    454. 

  454. :m_strRunScriptName("")

    455. 

  455. {

    456. 

  456.     m_FileName[0] = 0;

    457. 

  457.     m_Data=NULL;

    458. 

  458.     m_DataLen=0;

    459. 

  459.     m_Block=0;

    460. 

  460. 

    461. 

  461. 	m_szClientUpdateVarName[0] = '\0';

    462. 

  462. 	m_szClientOptInfo = NULL;

    463. 

  463. 	m_lClientOptInfoLen = 0;

    464. 

  464. 

    465. 

  465. 	m_VarNum = 0;

    466. 

  466. 

    467. 

  467.     m_dwLastTime=0;

    468. 

  468.     m_guIndexID = NULL_GUID;

    469. 

  469.     if(srcShape && (OBJECT_TYPE)srcShape->GetType() == TYPE_PLAYER)

    470. 

  470.         m_PlayerGuid=srcShape->GetExID();

    471. 

  471.     else

    472. 

  472.         m_PlayerGuid=NULL_GUID;

    473. 

  473. 

    474. 

  474.     m_pRegion = Region;

    475. 

  475.     p_SrcShape = srcShape;

    476. 

  476.     p_DesShape = desShape;

    477. 

  477. 

    478. 

  478.     m_guUsedItemID = guUsedItemID;

    479. 

  479.     m_ptDropGoods.x = -1;

    480. 

  480.     m_ptDropGoods.y = -1;

    481. 

  481.     m_pChildScriptInfo = NULL;

    482. 

  482. 

    483. 

  483.     m_pSelfVariableList = MP_NEW CVariableList;

    484. 

  484.     m_pVariableList = NULL;

    485. 

  485. }

    486. 

  486. 

    487. 

  487. /////////////////////

    488. 

  488. // 释放

    489. 

  489. CScript::~CScript()

    490. 

  490. {

    491. 

  491. 	M_FREE(m_szClientOptInfo, sizeof(char)*MAX_VAR_LEN);

    492. 

  492. 

    493. 

  493.     M_FREE(m_Data, sizeof(char)*(m_DataLen+1));		//释放

    494. 

  494.     m_DataLen=0;

    495. 

  495. 

    496. 

  496.     for (int i=0;i<MAX_VAR;i++)

    497. 

  497. 	{

    498. 

  498. 		M_FREE(m_strValueInfo[i].pStrValue, m_strValueInfo[i].lStrValueLen);

    499. 

  499. 		m_strValueInfo[i].pStrValue = NULL;

    500. 

  500. 		m_strValueInfo[i].lStrValueLen = 0;

    501. 

  501. 	}

    502. 

  502. 

    503. 

  503.     MP_DELETE(m_pSelfVariableList);

    504. 

  504. 

    505. 

  505.     if(m_pChildScriptInfo)

    506. 

  506.     {

    507. 

  507.         MP_DELETE(m_pChildScriptInfo->pChildScript);

    508. 

  508.         MP_DELETE(m_pChildScriptInfo);

    509. 

  509.     }

    510. 

  510. }

    511. 

  511. void CScript::SetClientOptInfo(const char* szInfo) 

    512. 

  512. { 

    513. 

  513. 	if(szInfo)

    514. 

  514. 	{

    515. 

  515. 		M_FREE(m_szClientOptInfo, m_lClientOptInfoLen);

    516. 

  516. 		long lLen = strlen(szInfo);

    517. 

  517. 		m_szClientOptInfo = (char*)M_ALLOC(sizeof(char)*(lLen+1));

    518. 

  518. 		strcpy_s(m_szClientOptInfo, m_lClientOptInfoLen, szInfo);

    519. 

  519. 		m_lClientOptInfoLen = lLen+1;

    520. 

  520. 	}

    521. 

  521. }

    522. 

  522. //释放子脚本

    523. 

  523. void CScript::ReleaseChildScript()

    524. 

  524. {

    525. 

  525.     if(m_pChildScriptInfo)

    526. 

  526.     {

    527. 

  527.         if(m_pChildScriptInfo->pChildScript)

    528. 

  528.             m_pChildScriptInfo->pChildScript->ReleaseChildScript();

    529. 

  529.         PushFreeScript(m_pChildScriptInfo->pChildScript);

    530. 

  530.         MP_DELETE(m_pChildScriptInfo);

    531. 

  531.     }

    532. 

  532. }

    533. 

  533. 

    534. 

  534. void CScript::PushDelScript(const CGUID& guid)

    535. 

  535. {

    536. 

  536. 	m_DelScripts.push_back(guid);

    537. 

  537. 	return;

    538. 

  538. }

    539. 

  539. //删除标记的脚本

    540. 

  540. void CScript::DelScript()

    541. 

  541. {

    542. 

  542. 	list<CGUID>::iterator it = m_DelScripts.begin();

    543. 

  543. 	for(;it != m_DelScripts.end();it++)

    544. 

  544. 	{

    545. 

  545. 		itScript itScript = g_Scripts.find((*it));

    546. 

  546. 		if(itScript != g_Scripts.end())

    547. 

  547. 		{

    548. 

  548. 			CScript* pScript = (*itScript).second;

    549. 

  549. 			if(pScript)

    550. 

  550. 			{

    551. 

  551. 				pScript->ReleaseChildScript();

    552. 

  552. 				PushFreeScript((*itScript).second);

    553. 

  553. 			}

    554. 

  554. 			g_Scripts.erase(itScript);

    555. 

  555. 		}

    556. 

  556. 	}

    557. 

  557. 	m_DelScripts.clear();

    558. 

  558. 	return;

    559. 

  559. }

    560. 

  560. 

    561. 

  561. 

    562. 

  562. // ------------------------------ 初始化 ------------------------------

    563. 

  563. 

    564. 

  564. ///////////////////////

    565. 

  565. // 读取函数列表

    566. 

  566. 

    567. 

  567. void CScript::LoadFunction(const char *filename, char* pData)

    568. 

  568. {

    569. 

  569. 	SAFE_DELETE(s_FunctionList2);

    570. 

  570.     s_FunctionList2 = new STRING2PFUNC;

    571. 

  571. 

    572. 

  572. 

    573. 

  573.     //-----------------------------------------------------

    574. 

  574. 	//基本语法函数

    575. 

  575.     (*s_FunctionList2)["goto"] = &CScript::Goto;

    576. 

  576.     (*s_FunctionList2)["if"] = &CScript::If;	

    577. 

  577. 	(*s_FunctionList2)["wait"] = &CScript::wait;

    578. 

  578. 	(*s_FunctionList2)["random"] = &CScript::random;

    579. 

  579. 	(*s_FunctionList2)["Int"] = &CScript::Int;

    580. 

  580. 	(*s_FunctionList2)["Round"] = &CScript::RoundNum;

    581. 

  581.     (*s_FunctionList2)["RGB"] = &CScript::Rgb;

    582. 

  582.     (*s_FunctionList2)["localvar"] = &CScript::LocalVar;    

    583. 

  583.     (*s_FunctionList2)["define"] = &CScript::define;

    584. 

  584.     (*s_FunctionList2)["undefine"] = &CScript::undefine;

    585. 

  585.     (*s_FunctionList2)["ifdef"] = &CScript::Ifdef;

    586. 

  586. 	 (*s_FunctionList2)["destdefine"] = &CScript::DestDefine;

    587. 

  587.     (*s_FunctionList2)["destundefine"] = &CScript::DestUndefine;

    588. 

  588.     (*s_FunctionList2)["ifdestdef"] = &CScript::IfDestDef;

    589. 

  589.     (*s_FunctionList2)["Time"] = &CScript::Time;

    590. 

  590.     (*s_FunctionList2)["Year"] = &CScript::Year;

    591. 

  591.     (*s_FunctionList2)["Month"] = &CScript::Month;

    592. 

  592.     (*s_FunctionList2)["Day"] = &CScript::Day;

    593. 

  593.     (*s_FunctionList2)["Hour"] = &CScript::Hour;

    594. 

  594.     (*s_FunctionList2)["Minute"] = &CScript::Minute;

    595. 

  595.     (*s_FunctionList2)["DayOfWeek"] = &CScript::DayOfWeek;

    596. 

  596.     (*s_FunctionList2)["HourDiff"] = &CScript::HourDiff;

    597. 

  597.     (*s_FunctionList2)["MinuteDiff"] = &CScript::MinuteDiff;

    598. 

  598.     (*s_FunctionList2)["Second"] = &CScript::Second;

    599. 

  599. 	(*s_FunctionList2)["CheckGuidIsNull"] = &CScript::CheckGuidIsNull;

    600. 

  600. 	(*s_FunctionList2)["GetCurTick"] = &CScript::GetCurTick;

    601. 

  601. 	(*s_FunctionList2)["GetPow"] = &CScript::GetPow;

    602. 

  602. 	(*s_FunctionList2)["GetSubString"] = &CScript::GetSubString;

    603. 

  603. 

    604. 

  604. 	//-----------------------------------------------------

    605. 

  605. 	//系统全局函数

    606. 

  606. 	(*s_FunctionList2)["FormatGUID"] = &CScript::FormatGUID;

    607. 

  607.     (*s_FunctionList2)["ListOnlineGM"] = &CScript::ListOnlineGM;

    608. 

  608.     (*s_FunctionList2)["ListSilencePlayer"] = &CScript::ListSilencePlayer;

    609. 

  609.     (*s_FunctionList2)["ListBanedPlayer"] = &CScript::ListBanedPlayer;

    610. 

  610.     (*s_FunctionList2)["GetOnlinePlayers"] = &CScript::GetOnlinePlayers;

    611. 

  611.     (*s_FunctionList2)["PostRegionInfo"] = &CScript::PostRegionInfo;

    612. 

  612.     (*s_FunctionList2)["PostRegionInfoByIndex"] = &CScript::PostRegionInfoByIndex;

    613. 

  613.     (*s_FunctionList2)["PostWorldInfo"] = &CScript::PostWorldInfo;

    614. 

  614.     (*s_FunctionList2)["PostWorldInfoByIndex"] = &CScript::PostWorldInfoByIndex;

    615. 

  615.     (*s_FunctionList2)["PostCountryInfo"] = &CScript::PostCountryInfo;

    616. 

  616.     (*s_FunctionList2)["KickAllPlayer"] = &CScript::KickAllPlayer;

    617. 

  617.     (*s_FunctionList2)["KickRegionPlayer"] = &CScript::KickRegionPlayer;

    618. 

  618. 	(*s_FunctionList2)["RegisterGlobalTimer"] = &CScript::RegisterGlobalTimer;

    619. 

  619.     (*s_FunctionList2)["UnRegisterGlobalTimer"] = &CScript::UnRegisterGlobalTimer;

    620. 

  620. 	(*s_FunctionList2)["KickPlayer"] = &CScript::KickPlayer;

    621. 

  621. 	(*s_FunctionList2)["KickAround"] = &CScript::KickAround;

    622. 

  622.     (*s_FunctionList2)["BanPlayer"] = &CScript::BanPlayer;

    623. 

  623.     (*s_FunctionList2)["SilencePlayer"] = &CScript::SilencePlayer;

    624. 

  624. 	(*s_FunctionList2)["GetTextRes"] = &CScript::GetTextRes;

    625. 

  625. 	(*s_FunctionList2)["SetPlayerRegion"] = &CScript::SetPlayerRegion;

    626. 

  626. 	(*s_FunctionList2)["SetPlayerRegionEx"] = &CScript::SetPlayerRegionEx;

    627. 

  627. 	(*s_FunctionList2)["RollRegionInfo"] = &CScript::RollRegionInfo;

    628. 

  628. 	(*s_FunctionList2)["RollWorldInfo"] = &CScript::RollWorldInfo;

    629. 

  629. 	(*s_FunctionList2)["GetPlayerRegion"] = &CScript::GetPlayerRegion;

    630. 

  630. 	(*s_FunctionList2)["ChangePlayerRegion"] = &CScript::ChangePlayerRegion;

    631. 

  631. 	(*s_FunctionList2)["ChangePlayerName"] = &CScript::ChangePlayerName;

    632. 

  632. 

    633. 

  633. 

    634. 

  634. 	//-----------------------------------------------------

    635. 

  635. 	//所有对象(怪物、采集物、角色)基本使用函数

    636. 

  636. 	(*s_FunctionList2)["SetAttrInt"] = &CScript::SetAttrInt;

    637. 

  637. 	(*s_FunctionList2)["SetAttrStr"] = &CScript::SetAttrStr;

    638. 

  638. 	(*s_FunctionList2)["SetAttrGuid"] = &CScript::SetAttrGuid;

    639. 

  639.     (*s_FunctionList2)["GetAttr"] = &CScript::GetAttr;

    640. 

  640. 	(*s_FunctionList2)["GetScriptAttr"] = &CScript::GetScriptAttr;

    641. 

  641.     (*s_FunctionList2)["ChangeAttr"] = &CScript::ChangeAttr;

    642. 

  642. 	(*s_FunctionList2)["RegisterTimer"] = &CScript::RegisterTimer;

    643. 

  643.     (*s_FunctionList2)["UnRegisterTimer"] = &CScript::UnRegisterTimer;

    644. 

  644. 	(*s_FunctionList2)["PlayMotion"] = &CScript::PlayMotion;

    645. 

  645. 	(*s_FunctionList2)["DesRunScript"] = &CScript::DesRunScript;

    646. 

  646. 	(*s_FunctionList2)["GetPlayerNumByAround"] = &CScript::GetPlayerNumByAround;

    647. 

  647.     (*s_FunctionList2)["GetMonsterNumByAround"] = &CScript::GetMonsterNumByAround;

    648. 

  648.     (*s_FunctionList2)["GetSameMonsterNumByAround"] = &CScript::GetSameMonsterNumByAround;

    649. 

  649. 	(*s_FunctionList2)["SetDelTime"] = &CScript::SetDelTime;

    650. 

  650. 	(*s_FunctionList2)["SetDelTimeByGuid"] = &CScript::SetDelTimeByGuid;

    651. 

  651. 	(*s_FunctionList2)["GetSrcShapeGUID"] = &CScript::GetSrcShapeGUID;

    652. 

  652. 	(*s_FunctionList2)["GetDesShapeGUID"] = &CScript::GetDesShapeGUID;

    653. 

  653. 	(*s_FunctionList2)["ChangeMoveSpeed"] = &CScript::ChangeMoveSpeed;

    654. 

  654.     (*s_FunctionList2)["SetMoveSpeed"] = &CScript::SetMoveSpeed;

    655. 

  655. 	(*s_FunctionList2)["ChangeBaseSpeed"] = &CScript::ChangeBaseSpeed;

    656. 

  656. 	(*s_FunctionList2)["GetCurrentSpeed"] = &CScript::GetCurrentSpeed;

    657. 

  657. 

    658. 

  658. 	(*s_FunctionList2)["GetDestIntVar"] = &CScript::GetDestIntVar;

    659. 

  659. 	(*s_FunctionList2)["SetDestIntVar"] = &CScript::SetDestIntVar;

    660. 

  660. 	(*s_FunctionList2)["GetDestStrVar"] = &CScript::GetDestStrVar;

    661. 

  661. 	(*s_FunctionList2)["SetDestStrVar"] = &CScript::SetDestStrVar;

    662. 

  662. 	(*s_FunctionList2)["GetDestGuidVar"] = &CScript::GetDestGuidVar;

    663. 

  663. 	(*s_FunctionList2)["SetDestGuidVar"] = &CScript::SetDestGuidVar;

    664. 

  664. 	(*s_FunctionList2)["IsShapeValid"] = &CScript::IsShapeValid;

    665. 

  665. 

    666. 

  666. 	//-----------------------------------------------------

    667. 

  667. 	//怪物相关函数

    668. 

  668. 	//1、基本函数

    669. 

  669. 	(*s_FunctionList2)["SetMonsterAttr"] = &CScript::SetMonsterAttr;

    670. 

  670.     (*s_FunctionList2)["GetMonsterAttr"] = &CScript::GetMonsterAttr;

    671. 

  671.     (*s_FunctionList2)["ChangeMonsterAttr"] = &CScript::ChangeMonsterAttr;

    672. 

  672. 	(*s_FunctionList2)["AddHpBar"] = &CScript::AddHpBar;

    673. 

  673.     (*s_FunctionList2)["GetHpLevel"] = &CScript::GetHpLevel;

    674. 

  674. 	(*s_FunctionList2)["GetKillerID"] = &CScript::GetKillerID;

    675. 

  675.     (*s_FunctionList2)["GetKillerType"] = &CScript::GetKillerType;

    676. 

  676. 	(*s_FunctionList2)["SetBeneficiary"] = &CScript::SetBeneficiary;

    677. 

  677.     (*s_FunctionList2)["GetBeneficiaryID"] = &CScript::GetBeneficiaryID;

    678. 

  678.     (*s_FunctionList2)["GetBeneficiaryType"] = &CScript::GetBeneficiaryType;

    679. 

  679. 	(*s_FunctionList2)["GetBeneTeamGuid"] = &CScript::GetBeneTeamGuid;

    680. 

  680. 	(*s_FunctionList2)["DelRegionMonsterByName"] = &CScript::DelRegionMonsterByName;

    681. 

  681. 	//2、怪物AI相关函数

    682. 

  682. 	(*s_FunctionList2)["MonsterTalk"] = &CScript::MonsterTalk;

    683. 

  683.     (*s_FunctionList2)["MonsterTalkByIndex"] = &CScript::MonsterTalkByIndex;

    684. 

  684.     (*s_FunctionList2)["MonsterTalkByGUID"] = &CScript::MonsterTalkByGUID;

    685. 

  685.     (*s_FunctionList2)["MonsterTalkByGuidByIndex"] = &CScript::MonsterTalkByGuidByIndex;

    686. 

  686. 	(*s_FunctionList2)["UseSkillByID"] = &CScript::UseSkillByID;

    687. 

  687. 	(*s_FunctionList2)["UseSkillByIDOnCell"] = &CScript::UseSkillByIDOnCell;

    688. 

  688. 	(*s_FunctionList2)["UseSkillSync"] = &CScript::UseSkillSync;

    689. 

  689. 	(*s_FunctionList2)["UseSkillSyncWithTrace"] = &CScript::UseSkillSyncWithTrace;

    690. 

  690. 	(*s_FunctionList2)["UseSkillOnCellSync"] = &CScript::UseSkillOnCellSync;

    691. 

  691.     (*s_FunctionList2)["MoveToCellOnPeace"] = &CScript::MoveToCellOnPeace;

    692. 

  692.     (*s_FunctionList2)["MoveToCellOnFight"] = &CScript::MoveToCellOnFight;

    693. 

  693.     (*s_FunctionList2)["MoveToCellAround"] = &CScript::MoveToCellAround;

    694. 

  694.     (*s_FunctionList2)["MoveByStepOnPeace"] = &CScript::MoveByStepOnPeace;

    695. 

  695.     (*s_FunctionList2)["MoveByStepOnFight"] = &CScript::MoveByStepOnFight;

    696. 

  696.     (*s_FunctionList2)["SendExpActOnPeace"] = &CScript::SendExpActOnPeace;

    697. 

  697.     (*s_FunctionList2)["SendExpActOnFight"] = &CScript::SendExpActOnFight;

    698. 

  698.     (*s_FunctionList2)["MoveByTimeOnPeace"] = &CScript::MoveByTimeOnPeace;

    699. 

  699.     (*s_FunctionList2)["MovebyTimeOnFight"] = &CScript::MovebyTimeOnFight;

    700. 

  700.     (*s_FunctionList2)["CallFriendAround"] = &CScript::CallFriendAround;

    701. 

  701.     (*s_FunctionList2)["CallMonsterAround"] = &CScript::CallMonsterAround;

    702. 

  702.     (*s_FunctionList2)["Stand"] = &CScript::Stand;

    703. 

  703. 	(*s_FunctionList2)["StandOnce"] = &CScript::StandOnce;

    704. 

  704.     (*s_FunctionList2)["ChangeAI"] = &CScript::ChangeAI;

    705. 

  705.     (*s_FunctionList2)["StartCycle"] = &CScript::StartCycle;

    706. 

  706.     (*s_FunctionList2)["EndCycle"] = &CScript::EndCycle;

    707. 

  707.     (*s_FunctionList2)["EscapeByTimeOnFight"] = &CScript::EscapeByTimeOnFight;

    708. 

  708.     (*s_FunctionList2)["DeleteSpring"] = &CScript::DeleteSpring;

    709. 

  709.     (*s_FunctionList2)["EndEscape"] = &CScript::EndEscape;

    710. 

  710.     (*s_FunctionList2)["EndEscapeByGUID"] = &CScript::EndEscapeByGUID;

    711. 

  711.     (*s_FunctionList2)["SetBefoolID"] = &CScript::SetBefoolID;

    712. 

  712.     (*s_FunctionList2)["CleanBefoolID"] = &CScript::CleanBefoolID;

    713. 

  713.     (*s_FunctionList2)["SetForceTarget"] = &CScript::SetForceTarget;

    714. 

  714.     (*s_FunctionList2)["CleanForceTatget"] = &CScript::CleanForceTatget;

    715. 

  715. 	(*s_FunctionList2)["ChangeWeaknessState"] = &CScript::ChangeWeaknessState;

    716. 

  716. 	(*s_FunctionList2)["EscapeByAround"] = &CScript::EscapeByAround;

    717. 

  717.     (*s_FunctionList2)["MonsterRunScriptsAround"] = &CScript::MonsterRunScriptsAround;

    718. 

  718.     (*s_FunctionList2)["MonsterIsFight"] = &CScript::MonsterIsFight;

    719. 

  719.     (*s_FunctionList2)["SetMonsterFight"] = &CScript::SetMonsterFight;

    720. 

  720.     (*s_FunctionList2)["CallFriendAttack"] = &CScript::CallFriendAttack;

    721. 

  721.     (*s_FunctionList2)["CallMonsterAttack"] = &CScript::CallMonsterAttack;

    722. 

  722.     (*s_FunctionList2)["MonsterAttackObjectByAround"] = &CScript::MonsterAttackObjectByAround;

    723. 

  723.     (*s_FunctionList2)["MonsterAttackObject"] = &CScript::MonsterAttackObject;

    724. 

  724.     (*s_FunctionList2)["SetMonsterDir"] = &CScript::SetMonsterDir;

    725. 

  725.     (*s_FunctionList2)["ReLiveMonster"] = &CScript::ReLiveMonster;

    726. 

  726.     (*s_FunctionList2)["GetMonsterTarget"] = &CScript::GetMonsterTarget;

    727. 

  727.     (*s_FunctionList2)["SetMonsterTarget"] = &CScript::SetMonsterTarget;

    728. 

  728. 	(*s_FunctionList2)["GetMonsterPos"] = &CScript::GetMonsterPos;

    729. 

  729. 	(*s_FunctionList2)["CreateMonster"] = &CScript::CreateMonster;

    730. 

  730.     (*s_FunctionList2)["CreateMonsterEx"] = &CScript::CreateMonsterEx;

    731. 

  731.     (*s_FunctionList2)["DelMonster"] = &CScript::DelMonster;

    732. 

  732.     (*s_FunctionList2)["DelMonsterEx"] = &CScript::DelMonsterEx;

    733. 

  733. 	(*s_FunctionList2)["DelMonsterRect"] = &CScript::DelMonsterRect;

    734. 

  734. 	(*s_FunctionList2)["KillMonster"] = &CScript::KillMonster;

    735. 

  735. 	(*s_FunctionList2)["GetMonsterRefeashTime"] = &CScript::GetMonsterRefeashTime;

    736. 

  736. 	(*s_FunctionList2)["GetPlayerByDistance"] = &CScript::GetPlayerByDistance;

    737. 

  737. 	(*s_FunctionList2)["GetDistanceFromPlayer"] = &CScript::GetDistanceFromPlayer;

    738. 

  738. 	(*s_FunctionList2)["GetAttackablePlayer"] = &CScript::GetAttackablePlayer;

    739. 

  739. 	(*s_FunctionList2)["ChooseTargetByOccu"] = &CScript::ChooseTargetByOccu;

    740. 

  740. 

    741. 

  741. 	//-----------------------------------------------------

    742. 

  742. 	//采集物相关函数

    743. 

  743. 	(*s_FunctionList2)["CreateCollection"] = &CScript::CreateCollection;

    744. 

  744.     (*s_FunctionList2)["CreateCollectionEx"] = &CScript::CreateCollectionEx;

    745. 

  745.     (*s_FunctionList2)["DelCollection"] = &CScript::DelCollection;

    746. 

  746. 	

    747. 

  747. 	//-----------------------------------------------------

    748. 

  748. 	//建物相关函数

    749. 

  749. 	//对门的操作

    750. 

  750. 	(*s_FunctionList2)["SetDoor"] = &CScript::SetDoor;

    751. 

  751. 	(*s_FunctionList2)["GetDoor"] = &CScript::GetDoor;

    752. 

  752. 	//-----------------------------------------------------

    753. 

  753. 	//角色相关函数

    754. 

  754. 	//1.基本函数

    755. 

  755. 	(*s_FunctionList2)["ChangeMe"] = &CScript::ChangeMe;

    756. 

  756.     (*s_FunctionList2)["GetMe"] = &CScript::GetMe;

    757. 

  757.     (*s_FunctionList2)["SetMe"] = &CScript::SetMe;

    758. 

  758. 	(*s_FunctionList2)["ChangeDest"] = &CScript::ChangeDest;

    759. 

  759.     (*s_FunctionList2)["GetDest"] = &CScript::GetDest;

    760. 

  760.     (*s_FunctionList2)["SetDest"] = &CScript::SetDest;

    761. 

  761. 	(*s_FunctionList2)["SetPlayerPos"] = &CScript::SetPlayerPos;

    762. 

  762.     (*s_FunctionList2)["SetPlayerDir"] = &CScript::SetPlayerDir;

    763. 

  763. 	(*s_FunctionList2)["AddAreaCreditByAreaId"] = &CScript::AddAreaCreditByAreaId;

    764. 

  764.     (*s_FunctionList2)["AddAreaCredit"] = &CScript::AddAreaCredit;

    765. 

  765.     (*s_FunctionList2)["SetAreaCredit"] = &CScript::SetAreaCredit;

    766. 

  766.     (*s_FunctionList2)["SetAreaCreditByAreaId"] = &CScript::SetAreaCreditByAreaId;

    767. 

  767.     (*s_FunctionList2)["GetAreaCredit"] = &CScript::GetAreaCredit;

    768. 

  768. 	(*s_FunctionList2)["GetAreaCreditLevel"] = &CScript::GetAreaCreditLevel;

    769. 

  769. 	(*s_FunctionList2)["GetOrganCreditLevel"] = & CScript::GetOrganCreditLevel;

    770. 

  770. 	(*s_FunctionList2)["AddOrganCredit"] = & CScript::AddOrganCredit;

    771. 

  771. 	(*s_FunctionList2)["SetOrganCredit"] = & CScript::SetOrganCredit;

    772. 

  772. 	(*s_FunctionList2)["GetCountry"] = &CScript::GetCountry;

    773. 

  773.     (*s_FunctionList2)["ChangeCountry"] = &CScript::ChangeCountry;

    774. 

  774.     (*s_FunctionList2)["GetContribute"] = &CScript::GetContribute;

    775. 

  775.     (*s_FunctionList2)["SetContribute"] = &CScript::SetContribute;

    776. 

  776.     (*s_FunctionList2)["IsCharged"] = &CScript::IsCharged;

    777. 

  777.     (*s_FunctionList2)["SetCharged"] = &CScript::SetCharged;

    778. 

  778. 	(*s_FunctionList2)["GetName"] = &CScript::GetName;

    779. 

  779. 	(*s_FunctionList2)["ChangePlayer"] = &CScript::ChangePlayer;

    780. 

  780.     (*s_FunctionList2)["SetPlayer"] = &CScript::SetPlayer;

    781. 

  781.     (*s_FunctionList2)["GetPlayer"] = &CScript::GetPlayer;

    782. 

  782.     (*s_FunctionList2)["SetPlayerLevel"] = &CScript::SetPlayerLevel;

    783. 

  783.     (*s_FunctionList2)["IsPlayerOnline"] = &CScript::IsPlayerOnline; 

    784. 

  784. 	(*s_FunctionList2)["ChangeMoneyByName"] = &CScript::ChangeMoneyByName;

    785. 

  785.     (*s_FunctionList2)["GetMoneyByName"] = &CScript::GetMoneyByName;

    786. 

  786.     (*s_FunctionList2)["SetMoneyByName"] = &CScript::SetMoneyByName;

    787. 

  787.     (*s_FunctionList2)["ChangeSilverByName"] = &CScript::ChangeSilverByName;

    788. 

  788.     (*s_FunctionList2)["GetSilverByName"] = &CScript::GetSilverByName;

    789. 

  789.     (*s_FunctionList2)["SetSilverByName"] = &CScript::SetSilverByName;

    790. 

  790. 	(*s_FunctionList2)["AddTicketByName"] = &CScript::AddTicketByName;

    791. 

  791. 	(*s_FunctionList2)["GetTicketByName"] = &CScript::GetTicketByName;

    792. 

  792. 	(*s_FunctionList2)["SetPlayerExp"] = &CScript::SetPlayerExp;

    793. 

  793. 	(*s_FunctionList2)["ChangePlayerExp"] = &CScript::ChangePlayerExp;

    794. 

  794. 	(*s_FunctionList2)["SetPlayerOccuExp"] = &CScript::SetPlayerOccuExp;

    795. 

  795. 	(*s_FunctionList2)["ChangePlayerOccuExp"] = &CScript::ChangePlayerOccuExp;

    796. 

  796. 	(*s_FunctionList2)["GetPlayerOccuExp"] = &CScript::GetPlayerOccuExp;

    797. 

  797. 	(*s_FunctionList2)["SetPlayerOccuLvl"] = &CScript::SetPlayerOccuLvl;

    798. 

  798. 	(*s_FunctionList2)["GetPlayerOccuLvl"] = &CScript::GetPlayerOccuLvl;

    799. 

  799. 	(*s_FunctionList2)["SetPlayerOccuSp"] = &CScript::SetPlayerOccuSp;

    800. 

  800. 	(*s_FunctionList2)["ChangePlayerOccuSp"] = &CScript::ChangePlayerOccuSp;

    801. 

  801. 	(*s_FunctionList2)["GetPlayerOccuSp"] = &CScript::GetPlayerOccuSp;

    802. 

  802. 	(*s_FunctionList2)["ChangePlayerOccuExpSp"] = &CScript::ChangePlayerOccuExpSp;

    803. 

  803. 	(*s_FunctionList2)["IsGM"] = &CScript::IsGM;

    804. 

  804.     (*s_FunctionList2)["ShowPlayerInfo"] = &CScript::ShowPlayerInfo;

    805. 

  805.     (*s_FunctionList2)["ShowPlayerGoods"] = &CScript::ShowPlayerGoods;

    806. 

  806.     (*s_FunctionList2)["ShowGeneralVariable"] = &CScript::ShowGeneralVariable;

    807. 

  807.     (*s_FunctionList2)["DurancePlayer"] = &CScript::DurancePlayer;

    808. 

  808. 	(*s_FunctionList2)["CheckReliveByOrigin"] = &CScript::CheckReliveByOrigin;

    809. 

  809. 	(*s_FunctionList2)["CheckReliveGoods"] = &CScript::CheckReliveGoods;

    810. 

  810.     (*s_FunctionList2)["Onstate"] = &CScript::Onstate;

    811. 

  811. 	(*s_FunctionList2)["GetActive"] = &CScript::GetActive;

    812. 

  812. 	(*s_FunctionList2)["AddActive"] = &CScript::AddActive;

    813. 

  813. 	(*s_FunctionList2)["TakeActive"] = &CScript::TakeActive;

    814. 

  814. 	(*s_FunctionList2)["ResetActive"] = &CScript::ResetActive;

    815. 

  815. 	(*s_FunctionList2)["GetServer"] = &CScript::GetServer;

    816. 

  816. 	(*s_FunctionList2)["GetOtherOneInMarriageTeam"] = &CScript::GetOtherOneInMarriageTeam;

    817. 

  817. 	(*s_FunctionList2)["GetPlayerMarriageStep"] = &CScript::GetPlayerMarriageStep;

    818. 

  818. 	(*s_FunctionList2)["SetPlayerMarriageStep"] = &CScript::SetPlayerMarriageStep;

    819. 

  819. 	(*s_FunctionList2)["SetPlayerSpouse"] = &CScript::SetPlayerSpouse;

    820. 

  820. 	(*s_FunctionList2)["DelPlayerSpouse"] = &CScript::DelPlayerSpouse;

    821. 

  821. 	(*s_FunctionList2)["GetPlayerSpouse"] = &CScript::GetPlayerSpouse;

    822. 

  822. 	(*s_FunctionList2)["GetPlayerSpouseName"] = &CScript::GetPlayerSpouseName;

    823. 

  823. 	(*s_FunctionList2)["GetElementProperty"] = &CScript::GetElementProperty;

    824. 

  824. 	(*s_FunctionList2)["SetElementProperty"] = &CScript::SetElementProperty;

    825. 

  825. 	(*s_FunctionList2)["SetActiveRatio"] = &CScript::SetActiveRatio;

    826. 

  826. 	(*s_FunctionList2)["GetActiveRatio"] = &CScript::GetActiveRatio;

    827. 

  827. 	(*s_FunctionList2)["GetCostYuanBao"] = &CScript::GetCostYuanBao;

    828. 

  828.     //稳定挂机时间

    829. 

  829.     (*s_FunctionList2)["SetStableHookTime"] = &CScript::SetStableHookTime;

    830. 

  830.     (*s_FunctionList2)["AddStableHookTime"] = &CScript::AddStableHookTime;

    831. 

  831.     (*s_FunctionList2)["GetStableHookTime"] = &CScript::GetStableHookTime;

    832. 

  832. 

    833. 

  833. 	

    834. 

  834. 	

    835. 

  835. 

    836. 

  836. 	

    837. 

  837. 

    838. 

  838. 	//2.扩展函数

    839. 

  839. 	(*s_FunctionList2)["GetOccuValueRatio"] = &CScript::GetOccuValueRatio;

    840. 

  840.     (*s_FunctionList2)["GetOccuLvlCoe"] = &CScript::GetOccuLvlCoe;

    841. 

  841. 	(*s_FunctionList2)["ChangeOccu"] = &CScript::ChangeOccu;

    842. 

  842. 	(*s_FunctionList2)["CheckLevel"] = &CScript::CheckLevel;

    843. 

  843. 	(*s_FunctionList2)["CheckOccuLvl"] = &CScript::CheckOccuLvl;

    844. 

  844. 	(*s_FunctionList2)["ReLive"] = &CScript::ReLive;

    845. 

  845. 	(*s_FunctionList2)["ScriptIsRun"] = &CScript::ScriptIsRun;

    846. 

  846.     (*s_FunctionList2)["RemoveScript"] = &CScript::RemoveScript;

    847. 

  847. 	(*s_FunctionList2)["AutoMove"] = &CScript::AutoMove;

    848. 

  848. 	(*s_FunctionList2)["MovePlayer"] = &CScript::MovePlayer;

    849. 

  849. 	(*s_FunctionList2)["GodMode"] = &CScript::GodMode;

    850. 

  850. 	(*s_FunctionList2)["ResidentMode"] = &CScript::ResidentMode;

    851. 

  851. 

    852. 

  852. 	//-----------------------------------------------------

    853. 

  853. 	//物品相关函数

    854. 

  854. 	(*s_FunctionList2)["AddGoods"] = &CScript::AddGoods;

    855. 

  855. 	(*s_FunctionList2)["AddArmament"] = &CScript::AddArmament;

    856. 

  856. 	(*s_FunctionList2)["AddArmamentForGM"] = &CScript::AddArmamentForGM;

    857. 

  857. 	(*s_FunctionList2)["DelGoods"] = &CScript::DelGoods;

    858. 

  858. 	(*s_FunctionList2)["AddGoodsToRgn"] = &CScript::AddGoodsToRgn;

    859. 

  859. 	(*s_FunctionList2)["CheckGoods"] = &CScript::CheckGoods;

    860. 

  860. 	(*s_FunctionList2)["CheckGoodsInBank"] = &CScript::CheckGoodsInBank;

    861. 

  861. 	(*s_FunctionList2)["OpenGoodsExWindow"] = &CScript::OpenGoodsExWindow;

    862. 

  862. 	(*s_FunctionList2)["BindGoods"] = &CScript::BindGoods;

    863. 

  863.     (*s_FunctionList2)["FrostGoods"] = &CScript::FrostGoods;

    864. 

  864. 	(*s_FunctionList2)["CheckSpace"] = &CScript::CheckSpace;

    865. 

  865.     (*s_FunctionList2)["GetGoodsNum"] = &CScript::GetGoodsNum;

    866. 

  866.     (*s_FunctionList2)["GetGoodsFree"] = &CScript::GetGoodsFree;

    867. 

  867.     (*s_FunctionList2)["GetEquipIDByPos"] = &CScript::GetEquipIDByPos;

    868. 

  868.     (*s_FunctionList2)["GetEquipNameByPos"] = &CScript::GetEquipNameByPos;

    869. 

  869. 	(*s_FunctionList2)["GetPlayerGoodsAddonProperty"] = &CScript::GetPlayerGoodsAddonProperty;

    870. 

  870. 	(*s_FunctionList2)["SetPlayerGoodsAddonProperty"] = &CScript::SetPlayerGoodsAddonProperty;

    871. 

  871. 	(*s_FunctionList2)["GetGoodsBaseType"] = &CScript::GetGoodsBaseType;

    872. 

  872.     (*s_FunctionList2)["OpenGoodsEnchase"] = &CScript::OpenGoodsEnchase;

    873. 

  873.     (*s_FunctionList2)["DelPlayerGoods"] = &CScript::DelPlayerGoods;

    874. 

  874.     (*s_FunctionList2)["DelUsedGoods"] = &CScript::DelUsedGoods;

    875. 

  875.     (*s_FunctionList2)["CheckUsedGoods"] = &CScript::CheckUsedGoods;

    876. 

  876.     (*s_FunctionList2)["GetUsedGoodsPropertiy1"] = &CScript::GetUsedGoodsPropertiy1;

    877. 

  877.     (*s_FunctionList2)["GetUsedGoodsPropertiy2"] = &CScript::GetUsedGoodsPropertiy2;

    878. 

  878.     (*s_FunctionList2)["SetUsedGoodsPropertiy1"] = &CScript::SetUsedGoodsPropertiy1;

    879. 

  879.     (*s_FunctionList2)["SetUsedGoodsPropertiy2"] = &CScript::SetUsedGoodsPropertiy2;

    880. 

  880.     (*s_FunctionList2)["BuyGoods"] = &CScript::BuyGoods;

    881. 

  881. 	(*s_FunctionList2)["GetGoodsAddonProperty"] = &CScript::GetGoodsAddonProperty;

    882. 

  882. 	(*s_FunctionList2)["FullRefine"] = &CScript::FullRefine;

    883. 

  883. 	(*s_FunctionList2)["GetWeaponStr"] = &CScript::GetWeaponStr;

    884. 

  884. 	(*s_FunctionList2)["AddMedal"] = &CScript::AddMedal;

    885. 

  885.     (*s_FunctionList2)["DelMedal"] = &CScript::DelMedal;

    886. 

  886.     (*s_FunctionList2)["GetMedal"] = &CScript::GetMedal;

    887. 

  887.     (*s_FunctionList2)["GetMedalNum"] = &CScript::GetMedalNum;

    888. 

  888. 	(*s_FunctionList2)["GetShowMedalName"] = &CScript::GetShowMedalName;

    889. 

  889. 	(*s_FunctionList2)["IsEquipEnchased"] = &CScript::IsEquipEnchased;

    890. 

  890. 	(*s_FunctionList2)["GetGoodsDisplayName"] = &CScript::GetGoodsDisplayName;

    891. 

  891. 	(*s_FunctionList2)["BeginMake"] = &CScript::BeginMake;

    892. 

  892. 	(*s_FunctionList2)["FinishMake"] = &CScript::FinishMake;

    893. 

  893. 	(*s_FunctionList2)["BackToCity"] = &CScript::BackToCity;

    894. 

  894. 

    895. 

  895. 	(*s_FunctionList2)["BeginContainerGoodsOpt"] = &CScript::BeginContainerGoodsOpt;

    896. 

  896. 	(*s_FunctionList2)["GetOptGoodsInContainer"] = &CScript::GetOptGoodsInContainer;

    897. 

  897. 	(*s_FunctionList2)["PutOptGoodsInContainer"] = &CScript::PutOptGoodsInContainer;

    898. 

  898. 	(*s_FunctionList2)["RemoveOptGoodsInContainer"] = &CScript::RemoveOptGoodsInContainer;

    899. 

  899. 	(*s_FunctionList2)["RefreshContainerTxt"] = &CScript::RefreshContainerTxt;

    900. 

  900. 	(*s_FunctionList2)["RefreshContainerGold"] = &CScript::RefreshContainerGold;

    901. 

  901. 	(*s_FunctionList2)["EndContainerGoodsOpt"] = &CScript::EndContainerGoodsOpt;

    902. 

  902. 

    903. 

  903. 	(*s_FunctionList2)["GetGoodsOriginalName"] = &CScript::GetGoodsOriginalName;

    904. 

  904. 	(*s_FunctionList2)["GetGoodsAddonPropertyValues"] = &CScript::GetGoodsAddonPropertyValues;

    905. 

  905. 	(*s_FunctionList2)["SetGoodsAddonPropertyValues"] = &CScript::SetGoodsAddonPropertyValues;

    906. 

  906. 	(*s_FunctionList2)["ResetGoodsStochastic"] = &CScript::ResetGoodsStochastic;

    907. 

  907. 	(*s_FunctionList2)["DelGoodsByGuid"] = &CScript::DelGoodsByGuid;

    908. 

  908. 	(*s_FunctionList2)["AddGoodsReturnGuid"] = &CScript::AddGoodsReturnGuid;

    909. 

  909. 	(*s_FunctionList2)["IsFrostGoods"] = &CScript::IsFrostGoods;

    910. 

  910. 	(*s_FunctionList2)["GetUsedGoodsOriginalName"] = &CScript::GetUsedGoodsOriginalName;

    911. 

  911. 	(*s_FunctionList2)["GetUsedGoodsGuid"] = &CScript::GetUsedGoodsGuid;

    912. 

  912.     (*s_FunctionList2)["UploadGoods"] = &CScript::UploadGoods;

    913. 

  913. 	(*s_FunctionList2)["SetAddonDesc"] = &CScript::SetAddonDesc;

    914. 

  914. 	(*s_FunctionList2)["GetAddonDesc"] = &CScript::GetAddonDesc;

    915. 

  915. 	(*s_FunctionList2)["AddGoodsToServer"] = &CScript::AddGoodsToServer;

    916. 

  916. 	(*s_FunctionList2)["AddGoodsToClient"] = &CScript::AddGoodsToClient;

    917. 

  917. 	

    918. 

  918. 

    919. 

  919. 	//-----------------------------------------------------

    920. 

  920. 	//任务相关函数

    921. 

  921. 	(*s_FunctionList2)["AddQuest"] = &CScript::AddQuest;

    922. 

  922. 	(*s_FunctionList2)["GetCurrentMasterRoleID"] = &CScript::GetCurrentMasterRoleID;

    923. 

  923.     (*s_FunctionList2)["CompleteQuest"] = &CScript::CompleteQuest;

    924. 

  924.     (*s_FunctionList2)["DisbandQuest"] = &CScript::DisbandQuest;

    925. 

  925.     (*s_FunctionList2)["GetQuestState"] = &CScript::GetQuestState;

    926. 

  926. 	(*s_FunctionList2)["GetValidQuestNum"] = &CScript::GetValidQuestNum;

    927. 

  927.     (*s_FunctionList2)["UpdateQuestStep"] = &CScript::UpdateQuestStep;

    928. 

  928.     (*s_FunctionList2)["UpdateQuestParamData"] = &CScript::UpdateQuestParamData;

    929. 

  929.     (*s_FunctionList2)["UpdateQuestData"] = &CScript::UpdateQuestData;

    930. 

  930. 	(*s_FunctionList2)["GetMercQuest"] = &CScript::GetMercQuest;

    931. 

  931.     (*s_FunctionList2)["SetMercQuest"] = &CScript::SetMercQuest;

    932. 

  932.     (*s_FunctionList2)["GetRoleStepNum"] = &CScript::GetRoleStepNum;

    933. 

  933.     (*s_FunctionList2)["GetParam"] = &CScript::GetParam;

    934. 

  934.     (*s_FunctionList2)["GetRoleAccParam"] = &CScript::GetRoleAccParam;

    935. 

  935.     (*s_FunctionList2)["SetRoleAccParam"] = &CScript::SetRoleAccParam;

    936. 

  936.     (*s_FunctionList2)["AddRoleAccParam"] = &CScript::AddRoleAccParam;

    937. 

  937.     (*s_FunctionList2)["GetRoleRegionID"] = &CScript::GetRoleRegionID;

    938. 

  938.     (*s_FunctionList2)["SetRoleRegionID"] = &CScript::SetRoleRegionID;

    939. 

  939.     (*s_FunctionList2)["GetRoleRegionX"] = &CScript::GetRoleRegionX;

    940. 

  940.     (*s_FunctionList2)["SetRoleRegionX"] = &CScript::SetRoleRegionX;

    941. 

  941.     (*s_FunctionList2)["GetRoleRegionY"] = &CScript::GetRoleRegionY;

    942. 

  942.     (*s_FunctionList2)["SetRoleRegionY"] = &CScript::SetRoleRegionY;

    943. 

  943.     (*s_FunctionList2)["GetRoleSum"] = &CScript::GetRoleSum;

    944. 

  944.     (*s_FunctionList2)["GetChapter"] = &CScript::GetChapter;

    945. 

  945.     (*s_FunctionList2)["SetChapter"] = &CScript::SetChapter;

    946. 

  946.     (*s_FunctionList2)["AddFinishedRoleRecord"] = &CScript::AddFinishedRoleRecord;

    947. 

  947.     (*s_FunctionList2)["DelFinishedRoleRecord"] = &CScript::DelFinishedRoleRecord;

    948. 

  948.     (*s_FunctionList2)["GetRoleFinishedRecord"] = &CScript::GetRoleFinishedRecord;

    949. 

  949.     (*s_FunctionList2)["GetStepText"] = &CScript::GetStepText;

    950. 

  950.     (*s_FunctionList2)["GetText"] = &CScript::GetText;

    951. 

  951.     (*s_FunctionList2)["GetTextType"] = &CScript::GetTextType;

    952. 

  952.     (*s_FunctionList2)["GetAttributeRoleName"] = &CScript::GetAttributeRoleName;

    953. 

  953.     (*s_FunctionList2)["GetAttributeBeRecord"] = &CScript::GetAttributeBeRecord;

    954. 

  954.     (*s_FunctionList2)["GetAttributeRoleType"] = &CScript::GetAttributeRoleType;

    955. 

  955.     (*s_FunctionList2)["GetAttributeEmbracerNPCID"] = &CScript::GetAttributeEmbracerNPCID;

    956. 

  956.     (*s_FunctionList2)["GetAttributeShowAble"] = &CScript::GetAttributeShowAble;

    957. 

  957. 	(*s_FunctionList2)["GetAttributeExpRatio"] = &CScript::GetAttributeExpRatio;

    958. 

  958.     (*s_FunctionList2)["GetAttributeRepeated"] = &CScript::GetAttributeRepeated;

    959. 

  959.     (*s_FunctionList2)["GetAttributeDeadLost"] = &CScript::GetAttributeDeadLost;

    960. 

  960.     (*s_FunctionList2)["GetAttributeLostRepeated"] = &CScript::GetAttributeLostRepeated;

    961. 

  961.     (*s_FunctionList2)["GetAttributeMinGrade"] = &CScript::GetAttributeMinGrade;

    962. 

  962. 	(*s_FunctionList2)["GetAttributeMaxGrade"] = &CScript::GetAttributeMaxGrade;

    963. 

  963.     (*s_FunctionList2)["GetAttributeOccupationRestrict"] = &CScript::GetAttributeOccupationRestrict;

    964. 

  964.     (*s_FunctionList2)["GetAttributeEngageArmsRepute"] = &CScript::GetAttributeEngageArmsRepute;

    965. 

  965.     (*s_FunctionList2)["GetAttributeChapterNum"] = &CScript::GetAttributeChapterNum;

    966. 

  966. 	(*s_FunctionList2)["GetAttributeNextRoleID"] = &CScript::GetAttributeNextRoleID;

    967. 

  967.     (*s_FunctionList2)["GetLabelPrefix"] = &CScript::GetLabelPrefix;

    968. 

  968.     (*s_FunctionList2)["GetLabelSum"] = &CScript::GetLabelSum;

    969. 

  969.     (*s_FunctionList2)["GetAimAMTType"] = &CScript::GetAimAMTType;

    970. 

  970.     (*s_FunctionList2)["GetAimType"] = &CScript::GetAimType;

    971. 

  971.     (*s_FunctionList2)["GetAimId"] = &CScript::GetAimId;

    972. 

  972.     (*s_FunctionList2)["GetAimNum"] = &CScript::GetAimNum;

    973. 

  973.     (*s_FunctionList2)["GetAimParameIndex"] = &CScript::GetAimParameIndex;

    974. 

  974.     (*s_FunctionList2)["GetDropFrom"] = &CScript::GetDropFrom;

    975. 

  975.     (*s_FunctionList2)["GetDropOdds"] = &CScript::GetDropOdds;

    976. 

  976.     (*s_FunctionList2)["GetAimName"] = &CScript::GetAimName;

    977. 

  977.     (*s_FunctionList2)["GetPrepareParam"] = &CScript::GetPrepareParam;

    978. 

  978.     (*s_FunctionList2)["GetStepEncouragementSum"] = &CScript::GetStepEncouragementSum;

    979. 

  979.     (*s_FunctionList2)["GetQuestEncouragementSum"] = &CScript::GetQuestEncouragementSum;

    980. 

  980.     (*s_FunctionList2)["GetSetpEncouragementName"] = &CScript::GetSetpEncouragementName;

    981. 

  981.     (*s_FunctionList2)["GetQuestEncouragementName"] = &CScript::GetQuestEncouragementName;

    982. 

  982.     (*s_FunctionList2)["GetSetpEncouragementType"] = &CScript::GetSetpEncouragementType;

    983. 

  983.     (*s_FunctionList2)["GetQuestEncouragementType"] = &CScript::GetQuestEncouragementType;

    984. 

  984.     (*s_FunctionList2)["GetSetpEncouragementID"] = &CScript::GetSetpEncouragementID;

    985. 

  985.     (*s_FunctionList2)["GetQuestEncouragementID"] = &CScript::GetQuestEncouragementID;

    986. 

  986.     (*s_FunctionList2)["GetSetpEncouragementNum"] = &CScript::GetSetpEncouragementNum;

    987. 

  987.     (*s_FunctionList2)["GetQuestEncouragementNum"] = &CScript::GetQuestEncouragementNum;

    988. 

  988.     (*s_FunctionList2)["GetStepEncouragementCell"] = &CScript::GetStepEncouragementCell;

    989. 

  989.     (*s_FunctionList2)["GetQuestEncouragementCell"] = &CScript::GetQuestEncouragementCell;

    990. 

  990.     (*s_FunctionList2)["GetStepSum"] = &CScript::GetStepSum;

    991. 

  991.     (*s_FunctionList2)["GetStepAimNum"] = &CScript::GetStepAimNum;

    992. 

  992.     (*s_FunctionList2)["FindRoleIsInSystem"] = &CScript::FindRoleIsInSystem;

    993. 

  993.     (*s_FunctionList2)["FindRoleStepIsInSystem"] = &CScript::FindRoleStepIsInSystem;

    994. 

  994.     (*s_FunctionList2)["ResetMercQuestUpdateTime"] = &CScript::ResetMercQuestUpdateTime;

    995. 

  995.     (*s_FunctionList2)["AcquireMercQuest"] = &CScript::AcquireMercQuest;

    996. 

  996.     (*s_FunctionList2)["SendMercQuestToClient"] = &CScript::SendMercQuestToClient;

    997. 

  997.     (*s_FunctionList2)["OpenMercQuestInterface"] = &CScript::OpenMercQuestInterface;

    998. 

  998.     (*s_FunctionList2)["GetMercQuestData"] = &CScript::GetMercQuestData;

    999. 

  999.     (*s_FunctionList2)["SetMercQuestData"] = &CScript::SetMercQuestData;

    1000. 

  1000.     (*s_FunctionList2)["GetQuestMassPoint"] = &CScript::GetQuestMassPoint;

    1001. 

  1001.     (*s_FunctionList2)["UpdateAllMercQuestList"] = &CScript::ResetAllMercQuestData;

    1002. 

  1002.     (*s_FunctionList2)["IsInMercQuestList"] = &CScript::IsInMercQuestList;

    1003. 

  1003. 	(*s_FunctionList2)["SetMasterQuest"] = &CScript::SetMasterQuest;

    1004. 

  1004. 	(*s_FunctionList2)["SetRoleProtect"] = &CScript::SetRoleProtect;

    1005. 

  1005. 	(*s_FunctionList2)["OpenShareQuestInterface"] = &CScript::OpenShareQuestInterface;

    1006. 

  1006. 	(*s_FunctionList2)["GetTeamCurrQuest"] = &CScript::GetTeamCurrQuest;

    1007. 

  1007. 	(*s_FunctionList2)["SetTeamCurrQuest"] = &CScript::SetTeamCurrQuest;

    1008. 

  1008. 	(*s_FunctionList2)["DelTeamShareQuest"] = &CScript::DelTeamShareQuest;

    1009. 

  1009. 	(*s_FunctionList2)["IsCompleteQuest"] = &CScript::IsCompleteQuest;

    1010. 

  1010. 	(*s_FunctionList2)["GetQuestOdds"] = &CScript::GetQuestOdds;

    1011. 

  1011. 	(*s_FunctionList2)["CanAcceptMercQuest"] = &CScript::CanAcceptMercQuest;

    1012. 

  1012. 	(*s_FunctionList2)["OpenIndexQuestInterface"] = &CScript::OpenIndexQuestInterface;

    1013. 

  1013. 	(*s_FunctionList2)["SetIndexQuestParamNum"] = &CScript::SetIndexQuestParamNum;

    1014. 

  1014. 	(*s_FunctionList2)["SetIndexQuestState"] = &CScript::SetIndexQuestState;

    1015. 

  1015. 	(*s_FunctionList2)["ResetIndexQuest"] = &CScript::ResetIndexQuest;

    1016. 

  1016. 

    1017. 

  1017. 	//-----------------------------------------------------

    1018. 

  1018. 	//副职业相关函数  

    1019. 

  1019. 	(*s_FunctionList2)["CanCollect"] = &CScript::CanCollect;

    1020. 

  1020.     (*s_FunctionList2)["CanCheckCollect"] = &CScript::CanCheckCollect;

    1021. 

  1021.     (*s_FunctionList2)["CheckCollect"] = &CScript::CheckCollect;

    1022. 

  1022. 	(*s_FunctionList2)["LockCollection"] = &CScript::LockCollection;

    1023. 

  1023.     (*s_FunctionList2)["OutlockCollection"] = &CScript::OutlockCollection;

    1024. 

  1024.     (*s_FunctionList2)["CanFacture"] = &CScript::CanFacture;

    1025. 

  1025.     (*s_FunctionList2)["Facture"] = &CScript::Facture;

    1026. 

  1026.     (*s_FunctionList2)["FactureSkillStudyBegin"] = &CScript::FactureSkillStudyBegin;

    1027. 

  1027.     (*s_FunctionList2)["ClearFactureList"] = &CScript::ClearFactureList;

    1028. 

  1028. 	(*s_FunctionList2)["AddFacture"] = &CScript::AddFacture;

    1029. 

  1029. 	(*s_FunctionList2)["DelFacture"] = &CScript::DelFacture;

    1030. 

  1030. 	(*s_FunctionList2)["FindFacture"] = &CScript::FindFacture;

    1031. 

  1031. 	(*s_FunctionList2)["GetFactureNeedsLevel"] = &CScript::GetFactureNeedsLevel;

    1032. 

  1032. 	(*s_FunctionList2)["GetFactureNeedsDOccu"] = &CScript::GetFactureNeedsDOccu;

    1033. 

  1033. 	(*s_FunctionList2)["UpdateEffect"] = &CScript::UpdateEffect;

    1034. 

  1034. 	(*s_FunctionList2)["AddFactureExp"] = &CScript::AddFactureExp;

    1035. 

  1035. 	(*s_FunctionList2)["AddCollectionExp"] = &CScript::AddCollectionExp;

    1036. 

  1036. 	//-----------------------------------------------------

    1037. 

  1037. 	//技能状态相关函数

    1038. 

  1038. 	//1、基本技能相关的函数

    1039. 

  1039. 	(*s_FunctionList2)["AddState"] = &CScript::AddState;       

    1040. 

  1040. 	(*s_FunctionList2)["AddSkill"] = &CScript::AddSkill;

    1041. 

  1041.     (*s_FunctionList2)["DelSkill"] = &CScript::DelSkill;

    1042. 

  1042.     (*s_FunctionList2)["SetSkillLevel"] = &CScript::SetSkillLevel;

    1043. 

  1043.     (*s_FunctionList2)["GetSkillLevel"] = &CScript::GetSkillLevel;

    1044. 

  1044. 	(*s_FunctionList2)["CheckStudySkill"] = &CScript::CheckStudySkill;	

    1045. 

  1045. 	(*s_FunctionList2)["GetAllStateNum"] = &CScript::GetAllStateNum;

    1046. 

  1046. 	(*s_FunctionList2)["DelNewState"] = &CScript::DelNewState;

    1047. 

  1047. 	(*s_FunctionList2)["DelDeBuff"] = &CScript::DelDeBuff;

    1048. 

  1048. 	(*s_FunctionList2)["AddStateToShape"] = &CScript::AddStateToShape;

    1049. 

  1049. 	(*s_FunctionList2)["DelAllBuff"] = &CScript::DelAllBuff;

    1050. 

  1050. 	(*s_FunctionList2)["Modulus"] = &CScript::Modulus;

    1051. 

  1051. 	

    1052. 

  1052. 	//2、技能脚本中用到的函数

    1053. 

  1053. 	

    1054. 

  1054. 	(*s_FunctionList2)["AddNewState"] = &CScript::AddNewState;

    1055. 

  1055. 	(*s_FunctionList2)["RemoverNewState"] = &CScript::RemoverNewState;	

    1056. 

  1056. 	(*s_FunctionList2)["SetMoveShapeAttrEx"] = &CScript::SetMoveShapeAttrEx;

    1057. 

  1057.     (*s_FunctionList2)["GetMoveShapeAttrEx"] = &CScript::GetMoveShapeAttrEx;

    1058. 

  1058.     (*s_FunctionList2)["ChangeMoveShapeAttrEx"] = &CScript::ChangeMoveShapeAttrEx;

    1059. 

  1059. 	(*s_FunctionList2)["AddDeBuffToObj"] = &CScript::AddDeBuffToObj;

    1060. 

  1060.     (*s_FunctionList2)["ReLiveSkill"] = &CScript::ReLiveSkill;

    1061. 

  1061.     (*s_FunctionList2)["SetEventDestObj"] = &CScript::SetEventDestObj;

    1062. 

  1062.     (*s_FunctionList2)["GetBaseModuleLv"] = &CScript::GetBaseModuleLv;

    1063. 

  1063. 	(*s_FunctionList2)["GetDistance"] = &CScript::GetDistance;

    1064. 

  1064.     (*s_FunctionList2)["GetPkResult"] = &CScript::GetPkResult;

    1065. 

  1065. 	(*s_FunctionList2)["GetObjectType"] = &CScript::GetObjectType;    

    1066. 

  1066.     (*s_FunctionList2)["GetShieldNO"] = &CScript::GetShieldNO;

    1067. 

  1067.     (*s_FunctionList2)["SendSkillList"] = &CScript::SendSkillList;

    1068. 

  1068. 	(*s_FunctionList2)["SetTarget"] = &CScript::SetTarget;

    1069. 

  1069. 	(*s_FunctionList2)["GetDesEnergyRatio"] = &CScript::GetDesEnergyRatio;

    1070. 

  1070. 	(*s_FunctionList2)["GetEnergyRatio"] = &CScript::GetEnergyRatio;

    1071. 

  1071.     (*s_FunctionList2)["DeductEnergy"] = &CScript::DeductEnergy;

    1072. 

  1072.     (*s_FunctionList2)["GetSkillParam"] = &CScript::GetSkillParam;

    1073. 

  1073. 	(*s_FunctionList2)["GetSkillElement"] = &CScript::GetSkillElement;

    1074. 

  1074. 	(*s_FunctionList2)["GetSkillUseType"] = &CScript::GetSkillUseType;

    1075. 

  1075.     (*s_FunctionList2)["GetStateParamByID"] = &CScript::GetStateParamByID;

    1076. 

  1076.     (*s_FunctionList2)["GetStateParamByIndex"] = &CScript::GetStateParamByIndex;

    1077. 

  1077. 	(*s_FunctionList2)["CheckStateFirer"] = &CScript::CheckStateFirer;

    1078. 

  1078.     (*s_FunctionList2)["BeedAttackEvent"] = &CScript::BeedAttackEvent;

    1079. 

  1079.     (*s_FunctionList2)["GetSkillLv"] = &CScript::GetSkillLv;

    1080. 

  1080.     (*s_FunctionList2)["ReLiveInScript"] = &CScript::ReLiveInScript;

    1081. 

  1081.     (*s_FunctionList2)["BeginUseSkill"] = &CScript::BeginUseSkill;

    1082. 

  1082. 	(*s_FunctionList2)["GetGuidByParam"] = &CScript::GetGuidByParam;

    1083. 

  1083.     (*s_FunctionList2)["RunScriptByDest"] = &CScript::RunScriptByDest;

    1084. 

  1084. 	(*s_FunctionList2)["GetGoodsAddProperty"] = &CScript::GetGoodsAddProperty;	

    1085. 

  1085. 	(*s_FunctionList2)["GetGoodsPlacePos"] = &CScript::GetGoodsPlacePos;	

    1086. 

  1086. 	(*s_FunctionList2)["DelGoodsByPlacePos"] = &CScript::DelGoodsByPlacePos;	

    1087. 

  1087. 	(*s_FunctionList2)["SucceedUseItem"] = &CScript::SucceedUseItem;

    1088. 

  1088. 	(*s_FunctionList2)["GetActModify"] = &CScript::GetActModify;

    1089. 

  1089. 	(*s_FunctionList2)["SendUnLockGoodsMsg"] = &CScript::SendUnLockGoodsMsg;	

    1090. 

  1090. 	(*s_FunctionList2)["GetBeneficiaryInfo"] = &CScript::GetBeneficiaryInfo;		

    1091. 

  1091. 	(*s_FunctionList2)["GetKillerInfo"] = &CScript::GetKillerInfo;	

    1092. 

  1092. 	(*s_FunctionList2)["GetModType"] = &CScript::GetModType;	

    1093. 

  1093. 	(*s_FunctionList2)["GetAttackerType"] = &CScript::GetAttackerType;

    1094. 

  1094. 	(*s_FunctionList2)["GetFunMoHua"] = &CScript::GetFunMoHua;

    1095. 

  1095. 	(*s_FunctionList2)["GetBModifier"] = &CScript::GetBModifier;

    1096. 

  1096. 	(*s_FunctionList2)["GetPrevent"] = &CScript::GetPrevent;

    1097. 

  1097. 	(*s_FunctionList2)["GetPartDamageOut"] = &CScript::GetPartDamageOut;

    1098. 

  1098. 	(*s_FunctionList2)["OnCostYuanBao"] = &CScript::OnCostYuanBao;

    1099. 

  1099. 	

    1100. 

  1100. 	

    1101. 

  1101. 	//-----------------------------------------------------

    1102. 

  1102. 	//定义了和客户端交互，客户端可视相关的脚本函数

    1103. 

  1103. 	(*s_FunctionList2)["AddInfo"] = &CScript::AddInfo;

    1104. 

  1104. 	(*s_FunctionList2)["AddDestInfo"] = &CScript::AddDestInfo;

    1105. 

  1105.     (*s_FunctionList2)["AddInfoByIndex"] = &CScript::AddInfoByIndex;

    1106. 

  1106.     (*s_FunctionList2)["GameMessage"] = &CScript::GameMessage;

    1107. 

  1107.     (*s_FunctionList2)["TalkBox"] = &CScript::TalkBox;

    1108. 

  1108.     (*s_FunctionList2)["PicTalkBox"] = &CScript::PicTalkBox;

    1109. 

  1109. 	(*s_FunctionList2)["EndTalkBox"] = &CScript::EndTalkBox;

    1110. 

  1110. 	(*s_FunctionList2)["EndPixyTalkBox"] = &CScript::EndPixyTalkBox;

    1111. 

  1111.     (*s_FunctionList2)["TalkBoxByIndex"] = &CScript::TalkBoxByIndex;

    1112. 

  1112.     (*s_FunctionList2)["StoryTalkBox"] = &CScript::StoryTalkBox;

    1113. 

  1113.     (*s_FunctionList2)["StoryTalkBoxByIndex"] = &CScript::StoryTalkBoxByIndex;

    1114. 

  1114. 	(*s_FunctionList2)["PixyTalkBox"] = &CScript::PixyTalkBox;

    1115. 

  1115. 	(*s_FunctionList2)["PixyTalkBoxByIndex"] = &CScript::PixyTalkBoxByIndex;

    1116. 

  1116.     (*s_FunctionList2)["PlayEffectByIndex"] = &CScript::PlayEffectByIndex;

    1117. 

  1117.     (*s_FunctionList2)["PlayerTalk"] = &CScript::PlayerTalk;

    1118. 

  1118.     (*s_FunctionList2)["PlayerTalkByIndex"] = &CScript::PlayerTalkByIndex;

    1119. 

  1119.     (*s_FunctionList2)["PackGlint"] = &CScript::PackGlint;

    1120. 

  1120. 	(*s_FunctionList2)["PostPlayerInfo"] = &CScript::PostPlayerInfo;

    1121. 

  1121. 	(*s_FunctionList2)["PostDestPlayerInfo"] = &CScript::PostDestPlayerInfo;

    1122. 

  1122.     (*s_FunctionList2)["PostPlayerInfoByIndex"] = &CScript::PostPlayerInfoByIndex;

    1123. 

  1123. 	(*s_FunctionList2)["PostDestPlayerInfoByIndex"] = &CScript::PostDestPlayerInfoByIndex;

    1124. 

  1124.     (*s_FunctionList2)["ShowString"] = &CScript::ShowString;

    1125. 

  1125. 	(*s_FunctionList2)["Weather"] = &CScript::Weather;

    1126. 

  1126.     (*s_FunctionList2)["PlayEffect"] = &CScript::PlayEffect;

    1127. 

  1127.     (*s_FunctionList2)["PlayAction"] = &CScript::PlayAction;

    1128. 

  1128. 	(*s_FunctionList2)["PlaySound"] = &CScript::PlaySound;

    1129. 

  1129. 	(*s_FunctionList2)["Play3DSound"] = &CScript::Play3DSound;

    1130. 

  1130. 	(*s_FunctionList2)["PlayBkMusic"] = &CScript::PlayBkMusic;

    1131. 

  1131. 	(*s_FunctionList2)["StopBkMusic"] = &CScript::StopBkMusic;

    1132. 

  1132.     (*s_FunctionList2)["AddGoodToShortCutBar"] = &CScript::AddGoodToShortCutBar;

    1133. 

  1133.     (*s_FunctionList2)["AddSkillToShortCutBar"] = &CScript::AddSkillToShortCutBar;

    1134. 

  1134.     (*s_FunctionList2)["TransforCamera"] = &CScript::TransforCamera;

    1135. 

  1135.     (*s_FunctionList2)["OperaInterface"] = &CScript::OperaInterface;

    1136. 

  1136.     (*s_FunctionList2)["HelpHint"] = &CScript::HelpHint;

    1137. 

  1137.     (*s_FunctionList2)["InterfaceHint"] = &CScript::InterfaceHint;

    1138. 

  1138. 	(*s_FunctionList2)["PlayVideo"] = &CScript::PlayVideo;

    1139. 

  1139.     (*s_FunctionList2)["StopVideo"] = &CScript::StopVideo;

    1140. 

  1140. 	(*s_FunctionList2)["UpdateScriptVarValue"] = &CScript::UpdateScriptVarValue;

    1141. 

  1141. 	(*s_FunctionList2)["SendExpAction"] = &CScript::SendExpAction;

    1142. 

  1142. 	(*s_FunctionList2)["GetPlayerAllProperties"] = &CScript::GetPlayerAllProperties;

    1143. 

  1143.     (*s_FunctionList2)["GetPlayerAllVariables"] = &CScript::GetPlayerAllVariables;

    1144. 

  1144. 	(*s_FunctionList2)["ViewPlayerAllVariableList"] = &CScript::ViewPlayerAllVariableList;

    1145. 

  1145. 	(*s_FunctionList2)["OpenReliveWindow"] = &CScript::OpenReliveWindow;

    1146. 

  1146. 	(*s_FunctionList2)["OpenReLiveByGoodsWindow"] = &CScript::OpenReLiveByGoodsWindow;

    1147. 

  1147. 

    1148. 

  1148. 

    1149. 

  1149. 

    1150. 

  1150. 

    1151. 

  1151. 	//-----------------------------------------------------

    1152. 

  1152. 	//队伍帮会组织相关函数

    1153. 

  1153. 	//1、队伍函数

    1154. 

  1154. 	(*s_FunctionList2)["GetTeamNum"] = &CScript::GetTeamNum;

    1155. 

  1155. 	(*s_FunctionList2)["GetTeamNumInRgn"] = &CScript::GetTeamNumInRgn;

    1156. 

  1156.     (*s_FunctionList2)["GetTeamerName"] = &CScript::GetTeamerName;

    1157. 

  1157.     (*s_FunctionList2)["GetTeamGUID"] = &CScript::GetTeamGUID;

    1158. 

  1158.     (*s_FunctionList2)["GetPlayerTeamGUID"] = &CScript::GetPlayerTeamGUID;

    1159. 

  1159.     (*s_FunctionList2)["IsTeamCaptain"] = &CScript::IsTeamCaptain;

    1160. 

  1160.     (*s_FunctionList2)["CheckRgnOnlyTeam"] = &CScript::CheckRgnOnlyTeam;

    1161. 

  1161.     (*s_FunctionList2)["GetTeamCaptainPos"] = &CScript::GetTeamCaptainPos;   

    1162. 

  1162.     (*s_FunctionList2)["SetRegionForTeam"] = &CScript::SetRegionForTeam;

    1163. 

  1163.     (*s_FunctionList2)["SetTeamRegion"] = &CScript::SetTeamRegion;

    1164. 

  1164.     (*s_FunctionList2)["IsTeammatesAroundMe"] = &CScript::IsTeammatesAroundMe;

    1165. 

  1165.     (*s_FunctionList2)["InLvlDifference"] = &CScript::InLvlDifference;

    1166. 

  1166.     (*s_FunctionList2)["InLvlSpace"] = &CScript::InLvlSpace;

    1167. 

  1167. 	(*s_FunctionList2)["RunScriptForTeam"] = &CScript::RunScriptForTeam;

    1168. 

  1168. 	//2.帮会组织

    1169. 

  1169. 	(*s_FunctionList2)["CreateFaction"] = &CScript::CreateFaction;

    1170. 

  1170. 	(*s_FunctionList2)["CreateUnion"] = &CScript::CreateUnion;

    1171. 

  1171.     (*s_FunctionList2)["OpenApplyBoard"] = &CScript::OpenApplyBoard;

    1172. 

  1172.     (*s_FunctionList2)["OpenFacIconBoard"] = &CScript::OpenFacIconBoard;

    1173. 

  1173.     (*s_FunctionList2)["SetFactionRecruitState"] = &CScript::SetFactionRecruitState;

    1174. 

  1174.     (*s_FunctionList2)["GetFactionLevel"] = &CScript::GetFactionLevel;

    1175. 

  1175.     (*s_FunctionList2)["GetFactionIDByPlayerName"] = &CScript::GetFactionIDByPlayerName;

    1176. 

  1176.     (*s_FunctionList2)["GetUinionIDByPlayerName"] = &CScript::GetUinionIDByPlayerName;

    1177. 

  1177. 	(*s_FunctionList2)["AddFacRes"] = &CScript::AddFacRes;

    1178. 

  1178. 	(*s_FunctionList2)["AddFacExp"] = &CScript::AddFacExp;

    1179. 

  1179. 	(*s_FunctionList2)["AddFacMemberContribute"] = &CScript::AddFacMemberContribute;

    1180. 

  1180. 	(*s_FunctionList2)["GetMemContribute"]=&CScript::GetMemContribute;

    1181. 

  1181. 	(*s_FunctionList2)["GetFacRes"]=&CScript::GetFacRes;

    1182. 

  1182. 	(*s_FunctionList2)["GetFacExp"]=&CScript::GetFacExp;

    1183. 

  1183.     (*s_FunctionList2)["IsFacMaster"] = &CScript::IsFacMaster;

    1184. 

  1184. 	(*s_FunctionList2)["AddFacTickets"]=&CScript::AddFacTickets;

    1185. 

  1185. 	(*s_FunctionList2)["AddFacBaseBattle"]=&CScript::AddFacBaseBattle;

    1186. 

  1186. 	(*s_FunctionList2)["ChangeBaseInfo"]=&CScript::ChangeBaseInfo;

    1187. 

  1187. 	(*s_FunctionList2)["AddBattleVal"]=&CScript::AddBattleVal;

    1188. 

  1188. 	(*s_FunctionList2)["AddArmyInvest"]=&CScript::AddArmyInvest;

    1189. 

  1189. 	(*s_FunctionList2)["GetFacTickets"]=&CScript::GetFacTickets;

    1190. 

  1190. 	(*s_FunctionList2)["GetBattleVal"]=&CScript::GetBattleVal;

    1191. 

  1191. 	(*s_FunctionList2)["GetArmyInvest"]=&CScript::GetArmyInvest;

    1192. 

  1192. 	(*s_FunctionList2)["GetJoinBattle"]=&CScript::GetJoinBattle;

    1193. 

  1193. 	(*s_FunctionList2)["AddTech"]=&CScript::AddTech;

    1194. 

  1194. 	(*s_FunctionList2)["GetTechLv"]=&CScript::GetTechLv;

    1195. 

  1195. 	(*s_FunctionList2)["GetFactionName"]=&CScript::GetFactionName;

    1196. 

  1196. 	(*s_FunctionList2)["ChangeEnemy"]=&CScript::ChangeEnemy;

    1197. 

  1197. 	(*s_FunctionList2)["GetFacBaseBattle"]=&CScript::GetFacBaseBattle;

    1198. 

  1198. 	(*s_FunctionList2)["SendBaseInfo"]=&CScript::SendBaseInfo;

    1199. 

  1199. 	(*s_FunctionList2)["GetFacLevel"]=&CScript::GetFacLevel;

    1200. 

  1200. 	(*s_FunctionList2)["FacDisplay"]=&CScript::FacDisplay;

    1201. 

  1201. 	//队伍帮会组织相关函数

    1202. 

  1202. 	//1、场景相关函数

    1203. 

  1203. 	(*s_FunctionList2)["GetRgnAttr"] = &CScript::GetRgnAttr; 

    1204. 

  1204. 	(*s_FunctionList2)["SetRgnAttr"] = &CScript::SetRgnAttr; 

    1205. 

  1205. 	(*s_FunctionList2)["GetCellType"] = &CScript::GetCellType; 

    1206. 

  1206. 	(*s_FunctionList2)["RegionIsExit"] = &CScript::RegionIsExit; 

    1207. 

  1207. 	(*s_FunctionList2)["GetRegionID"] = &CScript::GetRegionID;         

    1208. 

  1208.     (*s_FunctionList2)["GetMapInfo"] = &CScript::GetMapInfo;

    1209. 

  1209.     (*s_FunctionList2)["GetCountryOwningRegion"] = &CScript::GetCountryOwningRegion;

    1210. 

  1210.     (*s_FunctionList2)["SetBlock"] = &CScript::SetBlock;

    1211. 

  1211.     (*s_FunctionList2)["GetRegionRandomPos"] = &CScript::GetRegionRandomPos;

    1212. 

  1212.     (*s_FunctionList2)["GetRandomPosInRange"] = &CScript::GetRandomPosInRange;

    1213. 

  1213. 	(*s_FunctionList2)["GetLineDir"] = &CScript::GetLineDir;

    1214. 

  1214. 	(*s_FunctionList2)["GetNextPosByDir"] = &CScript::GetNextPosByDir;

    1215. 

  1215.     (*s_FunctionList2)["GetRegionPlayerNum"] = &CScript::GetRegionPlayerNum;

    1216. 

  1216.     (*s_FunctionList2)["RunScriptForAllPlayerInRgn"] = &CScript::RunScriptForAllPlayerInRgn;

    1217. 

  1217. 	//1、副本相关函数

    1218. 

  1218. 	(*s_FunctionList2)["CreatePRgn"] = &CScript::CreatePRgn;

    1219. 

  1219.     (*s_FunctionList2)["CreatePHRgn"] = &CScript::CreatePHRgn;

    1220. 

  1220.     (*s_FunctionList2)["CreateTRgn"] = &CScript::CreateTRgn;

    1221. 

  1221.     (*s_FunctionList2)["GetPlayerPDupRgnID"] = &CScript::GetPlayerPDupRgnID;

    1222. 

  1222.     (*s_FunctionList2)["GetPlayerPHDupRgnID"] = &CScript::GetPlayerPHDupRgnID;

    1223. 

  1223.     (*s_FunctionList2)["GetTeamDupRgnID"] = &CScript::GetTeamDupRgnID;

    1224. 

  1224.     (*s_FunctionList2)["GetNormalDupRgnID"] = &CScript::GetNormalDupRgnID;

    1225. 

  1225.     (*s_FunctionList2)["ChangeRgn"] = &CScript::ChangeRgnByTemplateID;

    1226. 

  1226.     (*s_FunctionList2)["ChangeDupRgn"] = &CScript::ChangeDupRgn;

    1227. 

  1227.     (*s_FunctionList2)["AddRgnVar"] = &CScript::AddRgnVar;

    1228. 

  1228.     (*s_FunctionList2)["SetRgnVar"] = &CScript::SetRgnVar;

    1229. 

  1229.     (*s_FunctionList2)["DelRgnVar"] = &CScript::DelRgnVar;

    1230. 

  1230.     (*s_FunctionList2)["GetRgnVar"] = &CScript::GetRgnVar;

    1231. 

  1231.     (*s_FunctionList2)["DeleteRgn"] = &CScript::DeleteRgn;

    1232. 

  1232.     (*s_FunctionList2)["GetTemplateIDByGUID"] = &CScript::GetTemplateIDByGUID;

    1233. 

  1233.     (*s_FunctionList2)["GetCurRgnGUID"] = &CScript::GetCurRgnGUID;

    1234. 

  1234.     (*s_FunctionList2)["GetDupTypeByGUID"] = &CScript::GetDupTypeByGUID;

    1235. 

  1235.     (*s_FunctionList2)["GetDupRgnOnwerGUID"] = &CScript::GetDupRgnOnwerGUID;

    1236. 

  1236.     (*s_FunctionList2)["CreatePHGoods"] = &CScript::CreatePHGoods;

    1237. 

  1237.     (*s_FunctionList2)["DeletePHGoods"] = &CScript::DeletePHGoods;

    1238. 

  1238.     (*s_FunctionList2)["GetDupRgnMaxNum"] = &CScript::GetDupRgnMaxNum;

    1239. 

  1239.     (*s_FunctionList2)["GetDupRgnGUIDByOnwerGUID"] = &CScript::GetPHRgnGUIDByOnwerName;

    1240. 

  1240.     (*s_FunctionList2)["DeleteMonster"] = &CScript::DeleteMonster;

    1241. 

  1241.     (*s_FunctionList2)["CreateDupRgnEntity"] = &CScript::CreateDupRgnEntity;

    1242. 

  1242.     (*s_FunctionList2)["RunDupRgnScript"] = &CScript::RunDupRgnScript;

    1243. 

  1243.     (*s_FunctionList2)["GetDupRgnNum"] = &CScript::GetDupRgnNum;

    1244. 

  1244.     (*s_FunctionList2)["GetDupRgnMaxNum"] = &CScript::GetDupRgnMaxNum;

    1245. 

  1245.     (*s_FunctionList2)["SetDupRgnOperFlag"] = &CScript::SetDupRgnOperFlag;

    1246. 

  1246.     (*s_FunctionList2)["GetTeamMaterIDByPos"] = &CScript::GetTeamMaterIDByPos;

    1247. 

  1247.     (*s_FunctionList2)["EditDupRgnName"] = &CScript::EditDupRgnName;

    1248. 

  1248.     (*s_FunctionList2)["GetPlayerGUID"] = &CScript::GetPlayerGUID;

    1249. 

  1249. 	(*s_FunctionList2)["GetDestGUID"] = &CScript::GetDestGUID;

    1250. 

  1250.     (*s_FunctionList2)["GetCurPlayerPDupRgnID"] = &CScript::GetCurPlayerPDupRgnID;

    1251. 

  1251.     (*s_FunctionList2)["GetCurPlayerPHDupRgnID"] = &CScript::GetCurPlayerPHDupRgnID;

    1252. 

  1252. 

    1253. 

  1253.     (*s_FunctionList2)["GetLocalGSID"] = &CScript::GetLocalGSID;

    1254. 

  1254.     (*s_FunctionList2)["GetGUIDByPlayerName"] = &CScript::GetGUIDByPlayerName;

    1255. 

  1255.     (*s_FunctionList2)["GetPGUIDByPlayerName"] = &CScript::GetPGUIDByPlayerName;

    1256. 

  1256.     (*s_FunctionList2)["GetPHGUIDByPlayerName"] = &CScript::GetPHGUIDByPlayerName;

    1257. 

  1257.     (*s_FunctionList2)["GetTGUIDByPlayerName"] = &CScript::GetTGUIDByPlayerName;

    1258. 

  1258.     (*s_FunctionList2)["ChangeDupRgnByRgnID"] = &CScript::ChangeDupRgnByRgnID;

    1259. 

  1259.     (*s_FunctionList2)["SetPlayerPDupRgnID"] = &CScript::SetPlayerPDupRgnID;

    1260. 

  1260.     (*s_FunctionList2)["SetPlayerPHDupRgnID"] = &CScript::SetPlayerPHDupRgnID;

    1261. 

  1261.     (*s_FunctionList2)["AddTeamRgnID"] = &CScript::AddTeamRgnID;

    1262. 

  1262. 	(*s_FunctionList2)["DelTeamRgnID"] = &CScript::DelTeamRgnID;

    1263. 

  1263. 	(*s_FunctionList2)["ClearTeamRgnID"] = &CScript::ClearTeamRgnID;

    1264. 

  1264. 	(*s_FunctionList2)["SwapTeamRgnID"] = &CScript::SwapTeamRgnID;

    1265. 

  1265. 	(*s_FunctionList2)["GetTeamRgnIDNum"] = &CScript::GetTeamRgnIDNum;

    1266. 

  1266. 	(*s_FunctionList2)["GetTeamRgnIDByIndex"] = &CScript::GetTeamRgnIDByIndex;

    1267. 

  1267. 	(*s_FunctionList2)["GetTeamRgnTemplatIDByIndex"] = &CScript::GetTeamRgnTemplatIDByIndex;

    1268. 

  1268.     (*s_FunctionList2)["ViewRgnVar"] = &CScript::ViewRgnVar;

    1269. 

  1269.     (*s_FunctionList2)["EvaluateGUID"] = &CScript::EvaluateGUID;

    1270. 

  1270.     (*s_FunctionList2)["ViewRgnValidByGUID"] = &CScript::ViewRgnValidByGUID;

    1271. 

  1271.     (*s_FunctionList2)["GetDupRgnPlayerMaxNum"] = &CScript::GetDupRgnPlayerMaxNum;

    1272. 

  1272.     (*s_FunctionList2)["GetDupRgnOperFlag"] = &CScript::GetDupRgnOperFlag; 

    1273. 

  1273.     (*s_FunctionList2)["GetCallerGUID"] = &CScript::GetCallerGUID;

    1274. 

  1274. 	(*s_FunctionList2)["ViewDupRgnData"] = &CScript::ViewDupRgnData;

    1275. 

  1275. 	(*s_FunctionList2)["CallScriptByGUID"] = &CScript::CallScriptByGUID;    

    1276. 

  1276.     (*s_FunctionList2)["ClearCurGSDupRgn"] = &CScript::ClearCurGSDupRgn;

    1277. 

  1277. 	(*s_FunctionList2)["ReFreshPlayerDupRgnList"] = &CScript::ReFreshPlayerDupRgnList;

    1278. 

  1278. 	(*s_FunctionList2)["SetRgnStrongPointState"] = &CScript::SetRgnStrongPointState;

    1279. 

  1279. 	(*s_FunctionList2)["GetRgnStrongPointState"] = &CScript::GetRgnStrongPointState;

    1280. 

  1280. 	(*s_FunctionList2)["GetRegionCampPlayerNum"] = &CScript::GetRegionCampPlayerNum;

    1281. 

  1281. 

    1282. 

  1282. 	//其他的脚本相关函数

    1283. 

  1283. 	//1、国家相关函数

    1284. 

  1284. 	//............................................

    1285. 

  1285. 	//2.战斗系统相关函数

    1286. 

  1286. 	(*s_FunctionList2)["SentaiQueue"] = &CScript::SentaiQueue;

    1287. 

  1287. 	(*s_FunctionList2)["GetPlayerSentaiPoints"] = &CScript::GetPlayerSentaiPoints;

    1288. 

  1288. 	(*s_FunctionList2)["ChangePlayerSentaiPoints"] = &CScript::ChangePlayerSentaiPoints;

    1289. 

  1289. 	(*s_FunctionList2)["GetTeamSentaiPoints"] = &CScript::GetTeamSentaiPoints;

    1290. 

  1290. 	(*s_FunctionList2)["EndMatch"] = &CScript::EndMatch;

    1291. 

  1291. 	(*s_FunctionList2)["EndTeamMatch"] = &CScript::EndTeamMatch;

    1292. 

  1292. 	(*s_FunctionList2)["IsSentaiSys"] = &CScript::IsSentaiSys;

    1293. 

  1293. 

    1294. 

  1294. 	//............................................

    1295. 

  1295. 	//3.跑商系统相关函数    

    1296. 

  1296. 	(*s_FunctionList2)["OpenBusiness"] = &CScript::OpenBusiness;

    1297. 

  1297. 	(*s_FunctionList2)["IsBusinessState"] = &CScript::IsBusinessState;

    1298. 

  1298. 	(*s_FunctionList2)["UseHiggleSkill"] = &CScript::UseHiggleSkill;

    1299. 

  1299. 	(*s_FunctionList2)["UseCheckingSkill"] = &CScript::UseCheckingSkill;

    1300. 

  1300.     (*s_FunctionList2)["UseChafferSkill"] = &CScript::UseChafferSkill;

    1301. 

  1301.     (*s_FunctionList2)["OpenInvest"] = &CScript::OpenInvest;

    1302. 

  1302. 	(*s_FunctionList2)["RemoveBusinessState"] = &CScript::RemoveBusinessState;

    1303. 

  1303. 	(*s_FunctionList2)["OpenFBusiness"] = &CScript::OpenFBusiness;

    1304. 

  1304. 

    1305. 

  1305. 	//4.邮件系统函数

    1306. 

  1306. 	(*s_FunctionList2)["SendSysMail"] = &CScript::SendSysMail;

    1307. 

  1307. 	(*s_FunctionList2)["ReceiveSysMail"] = &CScript::ReceiveSysMail;

    1308. 

  1308. 	(*s_FunctionList2)["ReceiveMail"] = &CScript::ReceiveMail;

    1309. 

  1309. 	//5.奖励相关

    1310. 

  1310. 	(*s_FunctionList2)["OpenBouns"] = &CScript::OpenBouns;

    1311. 

  1311. 	

    1312. 

  1312. 

    1313. 

  1313. 	// Fox@20090104 宠物

    1314. 

  1314. 	(*s_FunctionList2)["CreatePet"] = &CScript::CreatePet;

    1315. 

  1315. 	(*s_FunctionList2)["DelPet"] = &CScript::DelPet;

    1316. 

  1316. 	(*s_FunctionList2)["RelivePet"] = &CScript::RelivePet;

    1317. 

  1317. 	(*s_FunctionList2)["AddPetSkill"] = &CScript::AddPetSkill;

    1318. 

  1318. 	(*s_FunctionList2)["GetFocusPet"] = &CScript::GetFocusPet;

    1319. 

  1319. 

    1320. 

  1320. 	// 反外挂相关函数

    1321. 

  1321. 	(*s_FunctionList2)["ChangeActivity"] = &CScript::ChangeActivity;

    1322. 

  1322. 	(*s_FunctionList2)["ACKickPlayer"] = &CScript::ACKickPlayer;

    1323. 

  1323. 	(*s_FunctionList2)["StopCheckAC"] = &CScript::StopCheckAC;

    1324. 

  1324. 	(*s_FunctionList2)["GetACAttr"] = &CScript::GetACAttr;

    1325. 

  1325. 	(*s_FunctionList2)["StartCheackAC"] =&CScript::StartCheackAC;

    1326. 

  1326. 

    1327. 

  1327. 	// 隐匿功能相关函数

    1328. 

  1328. 	(*s_FunctionList2)["GetRegionHideFlagById"] = &CScript::GetRegionHideFlagById;

    1329. 

  1329. 	(*s_FunctionList2)["GetPlayerCanHideByGuid"] = &CScript::GetPlayerCanHideByGuid;

    1330. 

  1330. 	(*s_FunctionList2)["SetPlayerCanHideByGuid"] = &CScript::SetPlayerCanHideByGuid;

    1331. 

  1331. 	(*s_FunctionList2)["GetPlayerHideFlagByGuid"] = &CScript::GetPlayerHideFlagByGuid;

    1332. 

  1332. 	(*s_FunctionList2)["SetPlayerHideFlagByGuid"] = &CScript::SetPlayerHideFlagByGuid;

    1333. 

  1333. 	(*s_FunctionList2)["GetHideName"] = &CScript::GetHideName;

    1334. 

  1334. 	(*s_FunctionList2)["GMViewHideNameAround"] = &CScript::GMViewHideNameAround;

    1335. 

  1335. 	//GM脚本接口

    1336. 

  1336. 	(*s_FunctionList2)["GMAddSkill"] = &CScript::GMAddSkill;

    1337. 

  1337. 	(*s_FunctionList2)["GMDelSkill"] = &CScript::GMDelSkill;

    1338. 

  1338. 	// 定时器功能相关函数

    1339. 

  1339. 	(*s_FunctionList2)["SetTimer"] = &CScript::SetTimer;

    1340. 

  1340. 	(*s_FunctionList2)["CloseTimer"] = &CScript::CloseTimer;

    1341. 

  1341. 	(*s_FunctionList2)["GetPlayerTimer"] = &CScript::GetPlayerTimer;

    1342. 

  1342. 	(*s_FunctionList2)["GetTimer"] = &CScript::GetTimer;

    1343. 

  1343. 	//彩票系统

    1344. 

  1344. 	(*s_FunctionList2)["OpenLotteryPage"] = &CScript::OpenLotteryPage;

    1345. 

  1345. 	(*s_FunctionList2)["DoLottery"] = &CScript::DoLottery;

    1346. 

  1346. 	(*s_FunctionList2)["SetWorldCredit"] = &CScript::SetWorldCredit;

    1347. 

  1347. 	(*s_FunctionList2)["GetPersonalCredit"] = &CScript::GetPersonalCredit;

    1348. 

  1348. 	(*s_FunctionList2)["SetCurHighestCredit"] = &CScript::SetCurHighestCredit;

    1349. 

  1349. 	(*s_FunctionList2)["GetPersonalCreditTotal"] = &CScript::GetPersonalCreditTotal;

    1350. 

  1350. 	(*s_FunctionList2)["SetWorldCreditVelue"] = &CScript::SetWorldCreditVelue;

    1351. 

  1351. 	(*s_FunctionList2)["GetWorldCreditMax"] = &CScript::GetWorldCreditMax;

    1352. 

  1352. 	(*s_FunctionList2)["SendWorldCredit"] = &CScript::SendWorldCredit;

    1353. 

  1353. 	(*s_FunctionList2)["SendLotteryChat"] = &CScript::SendLotteryChat;

    1354. 

  1354. 	(*s_FunctionList2)["GetLotteryRe"] = &CScript::GetLotteryRe;

    1355. 

  1355. 	//获得玩家的升级经验

    1356. 

  1356. 	(*s_FunctionList2)["GetNextTotalExp"] = &CScript::GetNextTotalExp;

    1357. 

  1357. 

    1358. 

  1358.     // 结婚日志

    1359. 

  1359.     (*s_FunctionList2)["MarriageLog"] = &CScript::MarriageLog;

    1360. 

  1360. }

    1361. 

  1361. 

    1362. 

  1362. ////////////////////////

    1363. 

  1363. // 释放函数列表

    1364. 

  1364. 

    1365. 

  1365. void CScript::ReleaseFunction()

    1366. 

  1366. {

    1367. 

  1367.     if(s_FunctionList2)

    1368. 

  1368.         s_FunctionList2->clear();

    1369. 

  1369. 

    1370. 

  1370.     SAFE_DELETE(s_FunctionList2);

    1371. 

  1371. }

    1372. 

  1372. 

    1373. 

  1373. ///////////////////////

    1374. 

  1374. // 读入全局变量列表

    1375. 

  1375. void CScript::LoadGeneralVariable(BYTE* pByte,long lPos)

    1376. 

  1376. {

    1377. 

  1377.     ReleaseGeneralVariable();

    1378. 

  1378.     m_GeneralVariableList = MP_NEW CVariableList;

    1379. 

  1379.     GetGeneralVariableList()->DecordFromByteArray(pByte,lPos, false/*非玩家脚本*/);

    1380. 

  1380. }

    1381. 

  1381. 

    1382. 

  1382. void CScript::IniBuffSkillVariableList()

    1383. 

  1383. {

    1384. 

  1384.     m_BuffSkillVariableList = MP_NEW CVariableList;

    1385. 

  1385. }

    1386. 

  1386. 

    1387. 

  1387. ////////////////////////

    1388. 

  1388. // 释放全局变量列表

    1389. 

  1389. void CScript::ReleaseGeneralVariable()

    1390. 

  1390. {

    1391. 

  1391.     MP_DELETE(m_GeneralVariableList);

    1392. 

  1392. }

    1393. 

  1393. 

    1394. 

  1394. // ------------------------------ 工具 ------------------------------

    1395. 

  1395. 

    1396. 

  1396. /////////////////////

    1397. 

  1397. // 转到下一行

    1398. 

  1398. int CScript::GotoNextLine()

    1399. 

  1399. {

    1400. 

  1400.     char tmp=m_Data[m_Point];

    1401. 

  1401.     while( 1 ) 

    1402. 

  1402.     {

    1403. 

  1403.         m_Point++;

    1404. 

  1404.         tmp=m_Data[m_Point];

    1405. 

  1405. 

    1406. 

  1406.         if (tmp == '\n' || tmp == '\r')

    1407. 

  1407.         {

    1408. 

  1408.             m_Point++;

    1409. 

  1409.             break;

    1410. 

  1410.         }

    1411. 

  1411.         if( tmp == EOF || tmp == '\0') break;

    1412. 

  1412.     }

    1413. 

  1413. 

    1414. 

  1414.     m_Line++;

    1415. 

  1415.     m_Word=0;

    1416. 

  1416.     return m_Point;

    1417. 

  1417. }

    1418. 

  1418. 

    1419. 

  1419. ///////////////////////

    1420. 

  1420. // 跳到指定位置

    1421. 

  1421. int CScript::JumpTo(const char *Prompt)

    1422. 

  1422. {

    1423. 

  1423.     int lp=m_Point;	//保存现场

    1424. 

  1424.     m_Point=0;

    1425. 

  1425.     char CmdStr[MAX_VAR_LEN];

    1426. 

  1426.     while(1)

    1427. 

  1427.     {

    1428. 

  1428.         ReadCmd( CmdStr );	//读一行指令

    1429. 

  1429. 

    1430. 

  1430.         if( CmdStr[strlen(CmdStr)-2] == ':' )	//返回

    1431. 

  1431.         {

    1432. 

  1432.             int p=(int)strlen(CmdStr);

    1433. 

  1433.             CmdStr[p-1] = 0;

    1434. 

  1434.             CmdStr[p-2] = 0;

    1435. 

  1435.             if( strcmp( CmdStr, Prompt ) == 0 )

    1436. 

  1436.             {

    1437. 

  1437.                 return m_Point;

    1438. 

  1438.             }

    1439. 

  1439.         }

    1440. 

  1440. 

    1441. 

  1441.         if( m_Point >= m_DataLen-1 )

    1442. 

  1442.         {

    1443. 

  1443.             char str[10240];

    1444. 

  1444.             _snprintf(str, 10240, "Prompt <%s> in file %s is not found!", Prompt, m_FileName);

    1445. 

  1445.             PutDebugString(str);

    1446. 

  1446. 

    1447. 

  1447.             m_Point=lp;

    1448. 

  1448.             return 0;

    1449. 

  1449.         }

    1450. 

  1450.     }

    1451. 

  1451. }

    1452. 

  1452. 

    1453. 

  1453. ///////////////////////

    1454. 

  1454. // 跳到下一块 { }

    1455. 

  1455. int CScript::JumpToNextBlock()

    1456. 

  1456. {

    1457. 

  1457.     int lp=m_Point;	//保存现场

    1458. 

  1458.     char CmdStr[MAX_VAR_LEN]="";

    1459. 

  1459.     int tmp=0;

    1460. 

  1460. 

    1461. 

  1461.     ReadCmd( CmdStr );

    1462. 

  1462.     if( CmdStr[0] != '{' )

    1463. 

  1463.     {

    1464. 

  1464.         return m_Point;

    1465. 

  1465.     }

    1466. 

  1466. 

    1467. 

  1467.     m_Point=lp;

    1468. 

  1468.     while(1)

    1469. 

  1469.     {

    1470. 

  1470.         ReadCmd( CmdStr );	//读一行指令

    1471. 

  1471. 

    1472. 

  1472. 

    1473. 

  1473.         if( CmdStr[0] == '{' )	//

    1474. 

  1474.         {

    1475. 

  1475.             tmp++;

    1476. 

  1476.         }

    1477. 

  1477. 

    1478. 

  1478.         if( CmdStr[0] == '}' )	//

    1479. 

  1479.         {

    1480. 

  1480.             tmp--;

    1481. 

  1481. 

    1482. 

  1482.             // 块结束

    1483. 

  1483. 

    1484. 

  1484.             if( tmp == 0 )

    1485. 

  1485.             {

    1486. 

  1486.                 lp=m_Point;

    1487. 

  1487.                 ReadCmd( CmdStr );

    1488. 

  1488.                 if( stricmp( CmdStr, "else;" ) != 0 )

    1489. 

  1489.                     m_Point = lp;

    1490. 

  1490.                 return m_Point;

    1491. 

  1491.             }

    1492. 

  1492.         }

    1493. 

  1493. 

    1494. 

  1494.         if( m_Point >= m_DataLen-1 )

    1495. 

  1495.         {

    1496. 

  1496.             m_Point = m_DataLen-1;

    1497. 

  1497.             return 0;

    1498. 

  1498.         }

    1499. 

  1499.     }

    1500. 

  1500. }

    1501. 

  1501. 

    1502. 

  1502. // ----------------------------------------------------------------------------

    1503. 

  1503. // 语句处理

    1504. 

  1504. 

    1505. 

  1505. //-----------------------------------------------------------------------------

    1506. 

  1506. 

    1507. 

  1507. ////////////////////////

    1508. 

  1508. // 读入一个脚本

    1509. 

  1509. bool CScript::LoadScript(const char *filename, char* pData)

    1510. 

  1510. {

    1511. 

  1511.     // 非文件读入和文件读入

    1512. 

  1512.     if( pData )

    1513. 

  1513.     {

    1514. 

  1514.         M_FREE( m_Data, sizeof(char)*(m_DataLen+1) );

    1515. 

  1515. 

    1516. 

  1516.         m_DataLen=(int)strlen(pData);

    1517. 

  1517.         m_Data=(char*)M_ALLOC(sizeof(char)*(m_DataLen+1));

    1518. 

  1518.         memcpy(m_Data, pData, m_DataLen);

    1519. 

  1519.         m_Data[m_DataLen] = 0;

    1520. 

  1520.         //初始化指针

    1521. 

  1521.         m_Point=0;				//当前指针

    1522. 

  1522.         m_Line=m_Word=0;		//当前行列

    1523. 

  1523.         m_bHang = false;

    1524. 

  1524. 		if(filename)

    1525. 

  1525. 			strcpy_s(m_FileName, MAX_PATH, filename);

    1526. 

  1526.         return true;

    1527. 

  1527.     }

    1528. 

  1528. 

    1529. 

  1529.     //文件读入

    1530. 

  1530.     else if(filename != NULL)

    1531. 

  1531.     {

    1532. 

  1532.         strcpy_s(m_FileName, MAX_PATH, filename);

    1533. 

  1533.         strlwr(m_FileName);

    1534. 

  1534.          M_FREE( m_Data, sizeof(char)*(m_DataLen+1) );

    1535. 

  1535. 

    1536. 

  1536.         //复制内存

    1537. 

  1537.         {

    1538. 

  1538.             FILE *fp;

    1539. 

  1539.             if( (fp=fopen(m_FileName, "rb")) == NULL )

    1540. 

  1540.             {

    1541. 

  1541.                 return false;

    1542. 

  1542.             }

    1543. 

  1543. 

    1544. 

  1544.             m_DataLen=GetFileLength(m_FileName);	//文件长度

    1545. 

  1545.             m_Data=(char*)M_ALLOC(sizeof(char)*(m_DataLen+1));

    1546. 

  1546.             fread(m_Data, m_DataLen, 1, fp);

    1547. 

  1547.             m_Data[m_DataLen] = 0;

    1548. 

  1548.             fclose(fp);

    1549. 

  1549.         }

    1550. 

  1550. 

    1551. 

  1551.         //初始化指针

    1552. 

  1552.         m_Point=0;				//当前指针

    1553. 

  1553.         m_Line=m_Word=0;		//当前行列

    1554. 

  1554.         m_bHang=false;

    1555. 

  1555. 

    1556. 

  1556.         return true;

    1557. 

  1557.     }

    1558. 

  1558. 

    1559. 

  1559.     return false;

    1560. 

  1560. }

    1561. 

  1561. bool CScript::ReadForCmd(long& beginPos, long& endPos)	//读入for循环体内的全部脚本

    1562. 

  1562. {

    1563. 

  1563.     //临时变量

    1564. 

  1564.     char chr;

    1565. 

  1565.     beginPos = -1;

    1566. 

  1566.     long blockNum = 0;

    1567. 

  1567.     for(int i=m_Point; i<m_DataLen; i++)

    1568. 

  1568.     {

    1569. 

  1569.         chr=m_Data[i];

    1570. 

  1570. 

    1571. 

  1571.         //注释 "//... && /*....*/"

    1572. 

  1572.         if( m_Data[i] == '/' && m_Data[i+1] == '/' )

    1573. 

  1573.         {

    1574. 

  1574.             m_Point++;

    1575. 

  1575.             i=GotoNextLine()-1;

    1576. 

  1576.             continue;

    1577. 

  1577.         }

    1578. 

  1578. 

    1579. 

  1579.         if( m_Data[i] == '/' && m_Data[i+1] == '*' )

    1580. 

  1580.         {

    1581. 

  1581.             i++;

    1582. 

  1582.             while( 1 )

    1583. 

  1583.             {

    1584. 

  1584.                 i++;

    1585. 

  1585.                 if( m_Data[i] == '*' && m_Data[i+1] == '/' )

    1586. 

  1586.                 {

    1587. 

  1587.                     i+=2;

    1588. 

  1588.                     chr=m_Data[i];

    1589. 

  1589.                     break;

    1590. 

  1590.                 }

    1591. 

  1591.                 if( i>=m_DataLen-1 ) 

    1592. 

  1592.                 {

    1593. 

  1593.                     m_Point=m_DataLen-1;				

    1594. 

  1594.                     return false;

    1595. 

  1595.                 }

    1596. 

  1596.             }

    1597. 

  1597.         }

    1598. 

  1598. 

    1599. 

  1599.         //程序块 { ... }

    1600. 

  1600.         //指令开始

    1601. 

  1601.         if( chr == '{' )

    1602. 

  1602.         {

    1603. 

  1603.             for(int j=i; j<m_DataLen; j++)

    1604. 

  1604.             {

    1605. 

  1605.                 chr=m_Data[j];

    1606. 

  1606. 

    1607. 

  1607.                 //注释 "//... && /*....*/"

    1608. 

  1608.                 if( m_Data[j] == '/' && m_Data[j+1] == '/' )

    1609. 

  1609.                 {

    1610. 

  1610.                     m_Point++;

    1611. 

  1611.                     j=GotoNextLine()-1;

    1612. 

  1612.                     continue;

    1613. 

  1613.                 }

    1614. 

  1614.                 if( m_Data[j] == '/' && m_Data[j+1] == '*' )

    1615. 

  1615.                 {

    1616. 

  1616.                     j++;

    1617. 

  1617.                     while( 1 )

    1618. 

  1618.                     {

    1619. 

  1619.                         j++;

    1620. 

  1620.                         if( m_Data[j] == '*' && m_Data[j+1] == '/' )

    1621. 

  1621.                         {

    1622. 

  1622.                             j+=2;

    1623. 

  1623.                             chr=m_Data[j];

    1624. 

  1624.                             break;

    1625. 

  1625.                         }

    1626. 

  1626.                         if( j>=m_DataLen-1 ) 

    1627. 

  1627.                         {

    1628. 

  1628.                             m_Point=m_DataLen-1;				

    1629. 

  1629.                             return false;

    1630. 

  1630.                         }

    1631. 

  1631.                     }

    1632. 

  1632.                 }

    1633. 

  1633. 

    1634. 

  1634.                 if(chr == '{')

    1635. 

  1635.                 {

    1636. 

  1636.                     if(beginPos == -1) beginPos = j;

    1637. 

  1637.                     blockNum++;

    1638. 

  1638.                 }

    1639. 

  1639. 

    1640. 

  1640.                 if( chr == '}' )	//指令结束

    1641. 

  1641.                 {

    1642. 

  1642.                     m_Point=j;

    1643. 

  1643.                     endPos = m_Point;

    1644. 

  1644.                     blockNum--;

    1645. 

  1645.                     if(blockNum == 0)

    1646. 

  1646.                         return true;	//返回

    1647. 

  1647.                     else

    1648. 

  1648.                     {

    1649. 

  1649.                         m_Point++;

    1650. 

  1650.                         continue;

    1651. 

  1651.                     }

    1652. 

  1652.                 }

    1653. 

  1653.                 m_Point++;

    1654. 

  1654.             }

    1655. 

  1655. 

    1656. 

  1656.             m_Point=m_DataLen-1;			

    1657. 

  1657.         }

    1658. 

  1658.     }

    1659. 

  1659. 

    1660. 

  1660.     m_Point=m_DataLen-1;

    1661. 

  1661.     return false;

    1662. 

  1662. }

    1663. 

  1663. /////////////////////

    1664. 

  1664. // 读取一行指令

    1665. 

  1665. 

    1666. 

  1666. bool CScript::ReadCmd(char *Ret, int MaxLen)

    1667. 

  1667. {

    1668. 

  1668.     //临时变量

    1669. 

  1669.     register char chr;

    1670. 

  1670. 

    1671. 

  1671.     for(int i=m_Point; i<m_DataLen; i++)

    1672. 

  1672.     {

    1673. 

  1673.         chr=m_Data[i];

    1674. 

  1674. 

    1675. 

  1675.         //注释 "//... && /*....*/"

    1676. 

  1676.         if( m_Data[i] == '/' && m_Data[i+1] == '/' )

    1677. 

  1677.         {

    1678. 

  1678.             m_Point++;

    1679. 

  1679.             i=GotoNextLine()-1;

    1680. 

  1680.             continue;

    1681. 

  1681.         }

    1682. 

  1682.         if( m_Data[i] == '/' && m_Data[i+1] == '*' )

    1683. 

  1683.         {

    1684. 

  1684.             i++;

    1685. 

  1685.             while( 1 )

    1686. 

  1686.             {

    1687. 

  1687.                 i++;

    1688. 

  1688.                 if( m_Data[i] == '*' && m_Data[i+1] == '/' )

    1689. 

  1689.                 {

    1690. 

  1690.                     i+=2;

    1691. 

  1691.                     chr=m_Data[i];

    1692. 

  1692.                     break;

    1693. 

  1693.                 }

    1694. 

  1694.                 if( i>=m_DataLen-1 ) 

    1695. 

  1695.                 {

    1696. 

  1696.                     m_Point=m_DataLen-1;					

    1697. 

  1697.                     strcpy_s(Ret, MAX_VAR_LEN, "");					

    1698. 

  1698.                     return false;

    1699. 

  1699.                 }

    1700. 

  1700.             }

    1701. 

  1701.         }

    1702. 

  1702. 

    1703. 

  1703.         //程序块 { ... }

    1704. 

  1704.         //if( chr == '{' ) m_Block++;

    1705. 

  1705.         //if( chr == '}' ) m_Block--;

    1706. 

  1706. 

    1707. 

  1707.         //指令开始

    1708. 

  1708.         if( chr == '{' || chr == '}' || chr == '<' || chr == '>' || chr == '#' || chr == '$' || chr == '@' || chr >= 'a' && chr <= 'z' || chr >= 'A' && chr <= 'Z' )

    1709. 

  1709.         {

    1710. 

  1710.             int m=0;

    1711. 

  1711.             bool bInString = false;

    1712. 

  1712.             for(int j=i; j<m_DataLen; j++)

    1713. 

  1713.             {

    1714. 

  1714.                 chr=m_Data[j];

    1715. 

  1715. 

    1716. 

  1716.                 if ( chr == '\"' ) bInString=!bInString;

    1717. 

  1717. 

    1718. 

  1718.                 if( bInString == false && 

    1719. 

  1719.                     (chr == ';' || chr == '\t' || chr == '\n' || chr == '\r' ))	//指令结束

    1720. 

  1720.                 {

    1721. 

  1721.                     m_Point=j;

    1722. 

  1722.                     Ret[m]=';';

    1723. 

  1723.                     Ret[m+1]=0;

    1724. 

  1724.                     return true;	//返回

    1725. 

  1725.                 }

    1726. 

  1726. 

    1727. 

  1727.                 // 跳过字符串提行后的制表符

    1728. 

  1728.                 if (bInString && (chr == '\n' || chr == '\r'))

    1729. 

  1729.                 {

    1730. 

  1730.                     int n = j+1;

    1731. 

  1731.                     while(m_Data[n] == '\t')

    1732. 

  1732.                     {

    1733. 

  1733.                         n++;

    1734. 

  1734.                     }

    1735. 

  1735.                     j = n-1;

    1736. 

  1736.                 }

    1737. 

  1737. 

    1738. 

  1738.                 Ret[m]=chr;

    1739. 

  1739.                 m++;

    1740. 

  1740. 

    1741. 

  1741.                 if( m >= MaxLen )	//指令超过长度

    1742. 

  1742.                 {

    1743. 

  1743.                     m_Point=j;

    1744. 

  1744.                     Ret[m]=';';

    1745. 

  1745.                     Ret[m+1]=0;

    1746. 

  1746. 

    1747. 

  1747.                     char str[10240];

    1748. 

  1748.                     _snprintf(str, 10240, "Script Script Command '%s' is too long", Ret);

    1749. 

  1749.                     PutDebugString(str);

    1750. 

  1750.                     return true;

    1751. 

  1751.                 }

    1752. 

  1752.             }

    1753. 

  1753. 

    1754. 

  1754.             m_Point=m_DataLen-1;			

    1755. 

  1755.             strcpy_s(Ret, MAX_VAR_LEN, "");		

    1756. 

  1756.         }

    1757. 

  1757.     }

    1758. 

  1758. 

    1759. 

  1759.     m_Point=m_DataLen-1;

    1760. 

  1760.     strcpy_s(Ret, MAX_VAR_LEN, "");

    1761. 

  1761.     return false;

    1762. 

  1762. }

    1763. 

  1763. 

    1764. 

  1764. ///////////////////////

    1765. 

  1765. // 运行一行脚本

    1766. 

  1766. void CScript::RunLine(const char *cmdline)

    1767. 

  1767. {

    1768. 

  1768. 

    1769. 

  1769.     memset(m_Operation, 0, MAX_VAR * sizeof(int));

    1770. 

  1770.     memset(m_Value, 0, MAX_VAR * sizeof(double));

    1771. 

  1771.     for (int i=0;i<MAX_VAR;i++)

    1772. 

  1772. 	{

    1773. 

  1773. 		M_FREE(m_strValueInfo[i].pStrValue, m_strValueInfo[i].lStrValueLen);

    1774. 

  1774. 		m_strValueInfo[i].pStrValue = NULL;

    1775. 

  1775. 		m_strValueInfo[i].lStrValueLen = 0;

    1776. 

  1776. 	}

    1777. 

  1777. 

    1778. 

  1778.     m_VarNum = 0;

    1779. 

  1779.     Check(cmdline);			//分解

    1780. 

  1780. 

    1781. 

  1781.     //求出所有变量的值

    1782. 

  1782.     for(int i=0; i<m_VarNum; i++)

    1783. 

  1783.     {

    1784. 

  1784.         ComputeVar(i);

    1785. 

  1785. 

    1786. 

  1786.         //如果是IF语句

    1787. 

  1787. 

    1788. 

  1788.         if( m_Var[i].length() > 1 && m_Var[i][0]=='i' && m_Var[i][1]=='f' && m_Value[i]==(int)false )

    1789. 

  1789.         {

    1790. 

  1790.             if( m_VarNum == 1 )

    1791. 

  1791.             {

    1792. 

  1792.                 JumpToNextBlock();	// 跳到下一块{ } 

    1793. 

  1793.                 break;

    1794. 

  1794.             }

    1795. 

  1795.             else

    1796. 

  1796.                 break;

    1797. 

  1797.         }

    1798. 

  1798. 

    1799. 

  1799.         //如果是Next语句直接跳过程序块

    1800. 

  1800. 

    1801. 

  1801.         if( m_Var[i] == "else" )

    1802. 

  1802.         {

    1803. 

  1803.             JumpToNextBlock();	// 跳到下一块{ } 

    1804. 

  1804.             break;

    1805. 

  1805.         }

    1806. 

  1806. 

    1807. 

  1807.     }

    1808. 

  1808. 

    1809. 

  1809.     //计算

    1810. 

  1810. 

    1811. 

  1811.     Count();

    1812. 

  1812. }

    1813. 

  1813. 

    1814. 

  1814. /////////////////////

    1815. 

  1815. // 分解

    1816. 

  1816. 

    1817. 

  1817. void CScript::Check(const char *cmdline)

    1818. 

  1818. {

    1819. 

  1819. 

    1820. 

  1820.     int oper_num=0, str_num=0, now=0;	//(0=变量 1=操作符);

    1821. 

  1821.     int nBracket=0, nFountion=0;		//括号匹配

    1822. 

  1822. 

    1823. 

  1823.     register char tmp;

    1824. 

  1824. 	const long lVarLen = 3072;

    1825. 

  1825.     char strVar[lVarLen]="";

    1826. 

  1826.     bool bArray=false;	//是否在数组型变量中

    1827. 

  1827.     bool bInString=false;	//是否在字符串中

    1828. 

  1828.     int arrayNum = 0; // 数组括号个数'['

    1829. 

  1829. 

    1830. 

  1830.     int j=0;

    1831. 

  1831.     while( cmdline[j]==' ' || cmdline[j] == '\t' )	{j++;}

    1832. 

  1832. 

    1833. 

  1833. 	long lCmdLineLen = strlen(cmdline);  

    1834. 

  1834.     for(unsigned int i=j; i<lCmdLineLen; i++)

    1835. 

  1835.     {

    1836. 

  1836. 		if(str_num>= lVarLen)

    1837. 

  1837. 		{

    1838. 

  1838. 			char pszInfo[2048]="";

    1839. 

  1839. 			_snprintf(pszInfo,2048,"脚本变量名长度超过%d(cmdline:%s)",lVarLen,cmdline);

    1840. 

  1840. 			AddLogText(pszInfo);

    1841. 

  1841. 			break;

    1842. 

  1842. 		}

    1843. 

  1843. 

    1844. 

  1844.         tmp=cmdline[i];

    1845. 

  1845. 

    1846. 

  1846.         if (tmp=='\"')

    1847. 

  1847.             bInString=!bInString;

    1848. 

  1848.         if( bInString ){

    1849. 

  1849.             strVar[str_num++]=tmp;

    1850. 

  1850.             continue;

    1851. 

  1851.         }

    1852. 

  1852. 

    1853. 

  1853. 

    1854. 

  1854.         if( now==0 )	//变量

    1855. 

  1855.         {

    1856. 

  1856.             if( tmp == ';' )	//完成

    1857. 

  1857.             {

    1858. 

  1858. 				strVar[str_num]='\0';

    1859. 

  1859.                 m_Var[oper_num] = strVar;

    1860. 

  1860.                 if( strVar[0] == '$' )	m_VarClass[oper_num]=VC_VAR;	//变量

    1861. 

  1861.                 else if( strVar[0] == '#' )	m_VarClass[oper_num]=VC_STRING;	//字符串

    1862. 

  1862.                 else if( strVar[0] == '\"' )

    1863. 

  1863.                 {

    1864. 

  1864.                     m_VarClass[oper_num]=VC_CONST;	//字符串常量

    1865. 

  1865.                     m_Var[oper_num] = strVar;

    1866. 

  1866.                 }

    1867. 

  1867.                 else if(strVar[0] == '@')   //GUID变量

    1868. 

  1868.                     m_VarClass[oper_num]=VC_GUID;

    1869. 

  1869.                 else m_VarClass[oper_num]=VC_CONST;					//常量

    1870. 

  1870. 

    1871. 

  1871.                 m_Operation[oper_num]=1;

    1872. 

  1872.                 m_VarNum=oper_num+1;

    1873. 

  1873.                 return;

    1874. 

  1874.             }

    1875. 

  1875. 

    1876. 

  1876.             //小括号

    1877. 

  1877.             if( nBracket == 0 && tmp == '(' && str_num == 0 )

    1878. 

  1878.             {

    1879. 

  1879.                 nBracket++;

    1880. 

  1880.             }

    1881. 

  1881.             else if( nBracket > 0 )

    1882. 

  1882.             {

    1883. 

  1883.                 if( tmp == '(' ) nBracket++;

    1884. 

  1884.                 if( tmp == ')' ) nBracket--;

    1885. 

  1885. 

    1886. 

  1886.                 if( nBracket == 0 )

    1887. 

  1887.                 {

    1888. 

  1888.                     strVar[str_num++]=tmp;

    1889. 

  1889.                     now=1;

    1890. 

  1890. 					strVar[str_num]='\0';

    1891. 

  1891.                     m_Var[oper_num] = strVar;

    1892. 

  1892.                     m_VarClass[oper_num]=VC_BRACKET;

    1893. 

  1893.                     str_num=0;

    1894. 

  1894.                     i++;

    1895. 

  1895.                     while( cmdline[i]==' ' || cmdline[i] == '\t' )	{i++;}

    1896. 

  1896.                     i--;

    1897. 

  1897.                     continue;

    1898. 

  1898.                 }

    1899. 

  1899.                 else

    1900. 

  1900.                 {

    1901. 

  1901.                     strVar[str_num++]=tmp;

    1902. 

  1902.                     continue;

    1903. 

  1903.                 }

    1904. 

  1904.             }

    1905. 

  1905. 

    1906. 

  1906.             //函数型变量

    1907. 

  1907.             if( nFountion == 0 && tmp == '(' && str_num > 0 && !bArray )

    1908. 

  1908.             {

    1909. 

  1909.                 nFountion++;

    1910. 

  1910.             }

    1911. 

  1911.             else if( nFountion > 0 )

    1912. 

  1912.             {

    1913. 

  1913.                 if( tmp == '(' ) nFountion++;

    1914. 

  1914.                 else if( tmp == ')' ) nFountion--;

    1915. 

  1915.                 if( nFountion ==0 )

    1916. 

  1916.                 {

    1917. 

  1917.                     strVar[str_num++]=tmp;

    1918. 

  1918. 					strVar[str_num]='\0';

    1919. 

  1919.                     now=1;

    1920. 

  1920.                     m_Var[oper_num] = strVar;

    1921. 

  1921.                     m_VarClass[oper_num]=VC_FUNCTION;

    1922. 

  1922.                     str_num=0;

    1923. 

  1923.                     i++;

    1924. 

  1924.                     while( cmdline[i]==' ' || cmdline[i] == '\t' )	{i++;}

    1925. 

  1925.                     i--;

    1926. 

  1926.                     continue;

    1927. 

  1927.                 }

    1928. 

  1928.                 else

    1929. 

  1929.                 {

    1930. 

  1930.                     strVar[str_num++]=tmp;

    1931. 

  1931.                     continue;

    1932. 

  1932.                 }

    1933. 

  1933.             }

    1934. 

  1934. 

    1935. 

  1935.             if( tmp == '[' )

    1936. 

  1936.             {

    1937. 

  1937.                 bArray=true;

    1938. 

  1938.                 arrayNum++;

    1939. 

  1939.             }

    1940. 

  1940.             else if( tmp == ']' )

    1941. 

  1941.             {

    1942. 

  1942.                 arrayNum--;

    1943. 

  1943.                 strVar[str_num++]=tmp;	

    1944. 

  1944.             }

    1945. 

  1945. 

    1946. 

  1946.             if( arrayNum == 0 && bArray == true) // 到了最后一个匹配的']'

    1947. 

  1947.             {

    1948. 

  1948.                 now=1;

    1949. 

  1949.                 bArray=false;

    1950. 

  1950. 

    1951. 

  1951. 				strVar[str_num]='\0';

    1952. 

  1952.                 m_Var[oper_num] = strVar;

    1953. 

  1953.                 m_VarClass[oper_num]=VC_ARRAY;

    1954. 

  1954.                 str_num=0;

    1955. 

  1955.                 i++;

    1956. 

  1956.                 while( cmdline[i]==' ' || cmdline[i] == '\t' )	{i++;}

    1957. 

  1957.                 i--;

    1958. 

  1958.                 continue;

    1959. 

  1959.             }

    1960. 

  1960. 

    1961. 

  1961. 

    1962. 

  1962.             //普通变量和常量

    1963. 

  1963.             if( !bArray && ((IsOperation(tmp) && str_num >0 )|| tmp==' ' || tmp == '\t' ) )

    1964. 

  1964.             {

    1965. 

  1965.                 now=1;

    1966. 

  1966. 				strVar[str_num]='\0';

    1967. 

  1967.                 m_Var[oper_num] = strVar;

    1968. 

  1968.                 if( strVar[0] == '$' )	m_VarClass[oper_num]=VC_VAR;	//变量

    1969. 

  1969.                 else if( strVar[0] == '#' )	m_VarClass[oper_num]=VC_STRING;	//字符串

    1970. 

  1970.                 else if( strVar[0] == '\"' )

    1971. 

  1971.                 {

    1972. 

  1972.                     m_VarClass[oper_num]=VC_CONST;	//字符串常量

    1973. 

  1973.                     m_Var[oper_num] = strVar;

    1974. 

  1974.                 }

    1975. 

  1975.                 else if(strVar[0] == '@')   //GUID变量

    1976. 

  1976.                     m_VarClass[oper_num]=VC_GUID;

    1977. 

  1977.                 else	

    1978. 

  1978.                     m_VarClass[oper_num]=VC_CONST;					//常量

    1979. 

  1979.                 str_num=0;

    1980. 

  1980.                 while( cmdline[i]==' ' || cmdline[i] == '\t' )	{i++;}

    1981. 

  1981.                 i--;

    1982. 

  1982.             }

    1983. 

  1983.             else

    1984. 

  1984.             {

    1985. 

  1985.                 strVar[str_num++]=tmp;

    1986. 

  1986.             }

    1987. 

  1987.         }

    1988. 

  1988.         else if( now==1 )	//操作符

    1989. 

  1989.         {

    1990. 

  1990.             if( tmp == ';' )	//完成

    1991. 

  1991.             {

    1992. 

  1992.                 m_Operation[oper_num]=1;

    1993. 

  1993.                 m_VarNum=oper_num+1;

    1994. 

  1994.                 return;

    1995. 

  1995.             }

    1996. 

  1996. 

    1997. 

  1997.             if( IsChar(tmp) || tmp=='\"' || tmp==' ' || tmp == '\t' || tmp == '(' || ( tmp=='-' && str_num > 0 ))

    1998. 

  1998.             {

    1999. 

  1999. 				strVar[str_num]='\0';

    2000. 

  2000.                 now=0;

    2001. 

  2001.                 str_num=0;

    2002. 

  2002.                 m_Operation[oper_num] = OperationNum(strVar);

    2003. 

  2003. 

    2004. 

  2004.                 if( m_Operation[oper_num] == -1 )

    2005. 

  2005.                 {

    2006. 

  2006.                     char str[10240];

    2007. 

  2007.                     _snprintf(str, 10240, "\r\n脚本语法错误: %s", cmdline);

    2008. 

  2008.                     PutDebugString(str);

    2009. 

  2009. 

    2010. 

  2010.                     m_Operation[oper_num] = 1;	// 付值为 ';'

    2011. 

  2011.                 }

    2012. 

  2012.                 while( cmdline[i]==' ' || tmp == '\t' )	{i++;}

    2013. 

  2013.                 oper_num++;

    2014. 

  2014.                 i--;

    2015. 

  2015.             }

    2016. 

  2016.             else

    2017. 

  2017.             {

    2018. 

  2018.                 strVar[str_num++]=tmp;

    2019. 

  2019.             }

    2020. 

  2020.         }

    2021. 

  2021.     }

    2022. 

  2022. }

    2023. 

  2023. 

    2024. 

  2024. /////////////////////////

    2025. 

  2025. // 计算一个变量的值

    2026. 

  2026. bool CScript::ComputeVar(int num)

    2027. 

  2027. {

    2028. 

  2028.     if( num > m_VarNum )

    2029. 

  2029.     {

    2030. 

  2030.         AddLogText("欲求的变量超出范围");

    2031. 

  2031.         return false;

    2032. 

  2032.     }

    2033. 

  2033. 

    2034. 

  2034.     if( m_Operation[num] == 10 )	//如果该变量后面是 '=' (赋值)就直接返回，后面再进行操作

    2035. 

  2035.     {

    2036. 

  2036.         return true;

    2037. 

  2037.     }

    2038. 

  2038. 

    2039. 

  2039.     switch( m_VarClass[num] )

    2040. 

  2040.     {

    2041. 

  2041.     case VC_CONST:		//常量（直接转换）

    2042. 

  2042.         if (VC_STRING==GetValueType(m_Var[num].c_str()))

    2043. 

  2043.         {

    2044. 

  2044.             int pos=DumpString(m_strValueInfo[num].pStrValue, m_strValueInfo[num].lStrValueLen, &m_Var[num][1]);

    2045. 

  2045. 			m_strValueInfo[num].lStrValueLen = pos+1;

    2046. 

  2046.             (m_strValueInfo[num].pStrValue)[pos-1]=0;

    2047. 

  2047.         }

    2048. 

  2048.         else

    2049. 

  2049.         {

    2050. 

  2050.             m_Value[num]=atof(m_Var[num].c_str());

    2051. 

  2051.         }

    2052. 

  2052.         break;

    2053. 

  2053. 

    2054. 

  2054.     case VC_VAR:		//变量（查表求值）

    2055. 

  2055.         {

    2056. 

  2056.             m_Value[num] = GetScriptVarValue((CMoveShape*)p_SrcShape, m_Var[num].c_str(),0);

    2057. 

  2057.         }

    2058. 

  2058.         break;

    2059. 

  2059. 

    2060. 

  2060.     case VC_ARRAY:		//数组（查表求值）

    2061. 

  2061. 		{

    2062. 

  2062. 			// 数组下标值

    2063. 

  2063. 			int lArray = CVariableList::VAR_NOT_FOUND;

    2064. 

  2064. 			char MainVarName[256];

    2065. 

  2065. 			char InnVarName[256];

    2066. 

  2066. 

    2067. 

  2067. 			char* MainVarNamePtr = MainVarName;

    2068. 

  2068. 			char* InnVarNamePtr = InnVarName;

    2069. 

  2069. 			char* varTypeFlag = (char*)m_Var[num].c_str();

    2070. 

  2070. 			long tempPos = 0;

    2071. 

  2071. 

    2072. 

  2072. 			double ret = CheckParamStringForArray(varTypeFlag, strlen(varTypeFlag), &MainVarNamePtr, 256, &InnVarNamePtr, 256, tempPos);

    2073. 

  2073. 			if(ret == 1.0f) // 是数组

    2074. 

  2074. 			{

    2075. 

  2075. 				if(InnVarNamePtr[0] == '$') // 下标是变量

    2076. 

  2076. 					lArray = GetScriptVarValue((CMoveShape*)p_SrcShape, InnVarName, 0);

    2077. 

  2077. 				else

    2078. 

  2078. 					lArray = atoi(InnVarName);

    2079. 

  2079. 				if(varTypeFlag[0] == '$') // 整数数组

    2080. 

  2080. 				{

    2081. 

  2081. 					if(lArray != CVariableList::VAR_NOT_FOUND)

    2082. 

  2082. 						m_Value[num]=GetScriptVarValue( (CMoveShape*)p_SrcShape, MainVarName, lArray );

    2083. 

  2083. 				}

    2084. 

  2084. 				else if(varTypeFlag[0] == '#') // 字符串数组

    2085. 

  2085. 				{

    2086. 

  2086. 					if(lArray != CVariableList::VAR_NOT_FOUND)

    2087. 

  2087. 					{

    2088. 

  2088. 						// 找到对应字符串

    2089. 

  2089. 						char arrayStr[256];

    2090. 

  2090. 						_snprintf(arrayStr, 256, "%s%d", MainVarName, lArray);

    2091. 

  2091. 						const char* strPtr = GetScriptVarValue((CMoveShape*)p_SrcShape, arrayStr);

    2092. 

  2092. 						long lLen = DumpString(m_strValueInfo[num].pStrValue, m_strValueInfo[num].lStrValueLen, strPtr);

    2093. 

  2093. 						m_strValueInfo[num].lStrValueLen = lLen+1;

    2094. 

  2094. 					}

    2095. 

  2095. 				}

    2096. 

  2096. 				else if(varTypeFlag[0] == '@')

    2097. 

  2097. 				{

    2098. 

  2098. 					if(lArray != CVariableList::VAR_NOT_FOUND)

    2099. 

  2099. 					{

    2100. 

  2100. 						// 找到对应字符串

    2101. 

  2101. 						char arrayStr[256];

    2102. 

  2102. 						_snprintf(arrayStr, 256, "%s%d", MainVarName, lArray);

    2103. 

  2103. 						m_guidValue[num] = GetScriptGuidValue((CMoveShape*)p_SrcShape, arrayStr);

    2104. 

  2104. 					}

    2105. 

  2105. 				}

    2106. 

  2106. 			}

    2107. 

  2107. 			else

    2108. 

  2108. 			{

    2109. 

  2109. 				char outStr[1024];

    2110. 

  2110. 				_snprintf(outStr, 1024, "computvar() array oper Err, var[%s]!", m_Var[num].c_str());

    2111. 

  2111. 				AddLogText(outStr);

    2112. 

  2112. 			}

    2113. 

  2113. 		}

    2114. 

  2114.         break;

    2115. 

  2115.     case VC_STRING:		//字符串

    2116. 

  2116.         {

    2117. 

  2117.                 const char* strPtr = GetScriptVarValue((CMoveShape*)p_SrcShape, m_Var[num].c_str());

    2118. 

  2118.                 long lLen = DumpString(m_strValueInfo[num].pStrValue, m_strValueInfo[num].lStrValueLen, strPtr);

    2119. 

  2119. 				m_strValueInfo[num].lStrValueLen = lLen+1;

    2120. 

  2120.             }

    2121. 

  2121.         break;

    2122. 

  2122. 

    2123. 

  2123. 

    2124. 

  2124.     case VC_FUNCTION:	//函数（运行该语句并返回值）

    2125. 

  2125.         {

    2126. 

  2126.                 // 返回字符串

    2127. 

  2127.                 if (num>0 && m_Operation[num-1]==10 && m_VarClass[num-1]==VC_STRING)

    2128. 

  2128.                 {

    2129. 

  2129.                     char* pstr = NULL;

    2130. 

  2130. 					long lLen = 0;

    2131. 

  2131.                     RunFunction(m_Var[num].c_str(), pstr);

    2132. 

  2132.                     if (!pstr)

    2133. 

  2133.                         lLen = DumpString(m_strValueInfo[num].pStrValue, m_strValueInfo[num].lStrValueLen, "");

    2134. 

  2134.                     else

    2135. 

  2135.                         lLen = DumpString(m_strValueInfo[num].pStrValue, m_strValueInfo[num].lStrValueLen, pstr);

    2136. 

  2136. 					m_strValueInfo[num].lStrValueLen = lLen+1;

    2137. 

  2137.                     break;

    2138. 

  2138.                 }

    2139. 

  2139. 

    2140. 

  2140.                 m_Value[num]=RunFunction( m_Var[num].c_str() );

    2141. 

  2141.             

    2142. 

  2142.         }

    2143. 

  2143.         break;

    2144. 

  2144. 

    2145. 

  2145.     case VC_BRACKET:	//小括号（递归）

    2146. 

  2146.         {

    2147. 

  2147.             m_Var[num][0]=' ';

    2148. 

  2148.             m_Var[num][m_Var[num].length()-1]=';';

    2149. 

  2149. 

    2150. 

  2150.             CScript *pTemptScript = PopFreeScript(m_Var[num].c_str());

    2151. 

  2151.             InitChildScriptData(pTemptScript);

    2152. 

  2152. 

    2153. 

  2153.             //设置变量	

    2154. 

  2154.             pTemptScript->SetVariableList(m_pVariableList);

    2155. 

  2155.             pTemptScript->RunLine(m_Var[num].c_str());	

    2156. 

  2156.             m_Value[num] = pTemptScript->m_Value[0];

    2157. 

  2157.             PushFreeScript(pTemptScript);

    2158. 

  2158.         }  

    2159. 

  2159.         break;

    2160. 

  2160.     case VC_GUID:

    2161. 

  2161.         {

    2162. 

  2162.                 m_guidValue[num] = GetScriptGuidValue((CMoveShape*)p_SrcShape, m_Var[num].c_str());

    2163. 

  2163.             }

    2164. 

  2164.         break;

    2165. 

  2165.     }

    2166. 

  2166. 

    2167. 

  2167.     return true;

    2168. 

  2168. }

    2169. 

  2169. 

    2170. 

  2170. /////////////////////

    2171. 

  2171. // 是否是操作符

    2172. 

  2172. 

    2173. 

  2173. bool CScript::IsOperation(char chr)

    2174. 

  2174. {

    2175. 

  2175.     for(int i=0; i<MAX_OPERATION; i++)

    2176. 

  2176.     {

    2177. 

  2177.         if( chr == m_OperationList[i].Name[0] )

    2178. 

  2178.             return true;

    2179. 

  2179.     }

    2180. 

  2180.     return false;

    2181. 

  2181. }

    2182. 

  2182. 

    2183. 

  2183. ///////////////////////

    2184. 

  2184. // 获取操作符编号

    2185. 

  2185. int CScript::OperationNum(const char *string)

    2186. 

  2186. {

    2187. 

  2187.     for(int i=0; i<MAX_OPERATION; i++)

    2188. 

  2188.     {

    2189. 

  2189.         if( strcmp( string,  m_OperationList[i].Name ) == 0 )

    2190. 

  2190.             return i;

    2191. 

  2191.     }

    2192. 

  2192.     return -1;

    2193. 

  2193. }

    2194. 

  2194. 

    2195. 

  2195. /////////////////////

    2196. 

  2196. // 是否是变量

    2197. 

  2197. bool CScript::IsChar(char chr)

    2198. 

  2198. {

    2199. 

  2199.     if( chr == '$' || chr == '#' || chr >= 'a' && chr <= 'z' || chr >='A' && chr <= 'Z' || chr >='0' && chr <= '9' )

    2200. 

  2200.         return true;

    2201. 

  2201. 

    2202. 

  2202.     return false;

    2203. 

  2203. }

    2204. 

  2204. 

    2205. 

  2205. //////////////////////

    2206. 

  2206. // 找出最高优先级

    2207. 

  2207. int CScript::FindHighest()

    2208. 

  2208. {

    2209. 

  2209.     int level=-1, ret=0;

    2210. 

  2210.     for(int i=0; i<m_VarNum; i++)

    2211. 

  2211.     {

    2212. 

  2212.         if( level < m_OperationList[ m_Operation[i] ].Level )

    2213. 

  2213.         {

    2214. 

  2214.             level=m_OperationList[ m_Operation[i] ].Level;

    2215. 

  2215.             ret=i;

    2216. 

  2216.         }

    2217. 

  2217.     }

    2218. 

  2218.     return ret;

    2219. 

  2219. }

    2220. 

  2220. 

    2221. 

  2221. ////////////////////////

    2222. 

  2222. // 前一个可用的变量

    2223. 

  2223. int CScript::Prew(int num)

    2224. 

  2224. {

    2225. 

  2225.     for(int i=num; i>=0; i--)

    2226. 

  2226.     {

    2227. 

  2227.         if( m_Value[i] != ERROR_CODE )

    2228. 

  2228.         {

    2229. 

  2229.             return i;

    2230. 

  2230.         }

    2231. 

  2231.     }

    2232. 

  2232.     return 0;

    2233. 

  2233. }

    2234. 

  2234. 

    2235. 

  2235. //前一个可用的字符串变量

    2236. 

  2236. int CScript::PrewString(int num)

    2237. 

  2237. {

    2238. 

  2238.     for(int i=num; i>=0; i--)

    2239. 

  2239.     {

    2240. 

  2240.         if( m_strValueInfo[i].pStrValue != 0 )

    2241. 

  2241.         {

    2242. 

  2242.             return i;

    2243. 

  2243.         }

    2244. 

  2244.     }

    2245. 

  2245.     return -1;

    2246. 

  2246. }

    2247. 

  2247. 

    2248. 

  2248. //////////////////

    2249. 

  2249. // 计算出结果

    2250. 

  2250. 

    2251. 

  2251. int CScript::Count()

    2252. 

  2252. {

    2253. 

  2253.     int n, p;

    2254. 

  2254.     if( m_VarNum <=0 ) return 0;

    2255. 

  2255. 

    2256. 

  2256. 

    2257. 

  2257. 

    2258. 

  2258. 

    2259. 

  2259. 

    2260. 

  2260. 

    2261. 

  2261. 

    2262. 

  2262.     /*

    2263. 

  2263.     0	"", 0,

    2264. 

  2264.     1	";",1,

    2265. 

  2265.     2	"||",2,

    2266. 

  2266.     3	"&&",3,

    2267. 

  2267.     4	"==",4, "!=",4, ">",4,  "<",4,  ">=",4, "<=",4,

    2268. 

  2268.     10	"=",5,  "+=",5, "-=",5, "*=",5, "/=",5, "%=",5,

    2269. 

  2269.     16	"+",6,  "-",6,

    2270. 

  2270.     18	"*",7,  "/",7,  "%",7

    2271. 

  2271.     */

    2272. 

  2272. 

    2273. 

  2273.     while(1)

    2274. 

  2274.     {

    2275. 

  2275.         n=FindHighest();

    2276. 

  2276.         switch( m_Operation[n] )

    2277. 

  2277.         {

    2278. 

  2278.         case 0:

    2279. 

  2279.         case 1:		// ';'	结束

    2280. 

  2280. 

    2281. 

  2281.             return m_Value[0];

    2282. 

  2282. 

    2283. 

  2283.         case 2:		// '||'

    2284. 

  2284.             p=Prew(n);

    2285. 

  2285.             m_Value[p] = m_Value[p] || m_Value[n+1];

    2286. 

  2286.             m_Value[n+1]=ERROR_CODE;

    2287. 

  2287.             m_Operation[n]=0;

    2288. 

  2288.             break;

    2289. 

  2289. 

    2290. 

  2290.         case 3:		// '&&'

    2291. 

  2291.             p=Prew(n);

    2292. 

  2292.             m_Value[p] = m_Value[p] && m_Value[n+1];

    2293. 

  2293.             m_Value[n+1]=ERROR_CODE;

    2294. 

  2294.             m_Operation[n]=0;

    2295. 

  2295.             break;

    2296. 

  2296. 

    2297. 

  2297.         case 4:	// '=='

    2298. 

  2298.             p=Prew(n);

    2299. 

  2299.             if ( m_VarClass[p]==VC_STRING || (m_Var[p][0] == '#' && m_VarClass[p] == VC_ARRAY) )

    2300. 

  2300.             {

    2301. 

  2301. 				if(m_strValueInfo[p].pStrValue && m_strValueInfo[n+1].pStrValue)

    2302. 

  2302.                 m_Value[p] = ( strcmp(m_strValueInfo[p].pStrValue, m_strValueInfo[n+1].pStrValue)==0)?true:false;

    2303. 

  2303. 				else

    2304. 

  2304. 					m_Value[p] = false;

    2305. 

  2305.             }

    2306. 

  2306.             else if(m_VarClass[p] == VC_GUID || (m_Var[n][0] == '@' && m_VarClass[n] == VC_ARRAY))

    2307. 

  2307.             {

    2308. 

  2308.                     m_Value[p] = ( m_guidValue[p] == m_guidValue[n+1] )?true:false;

    2309. 

  2309.                 }

    2310. 

  2310.             else // 其它类型

    2311. 

  2311.             {

    2312. 

  2312.                 if(VC_STRING == GetValueType(m_Var[p].c_str()))

    2313. 

  2313.                 {

    2314. 

  2314. 					if(m_strValueInfo[p].pStrValue && m_strValueInfo[n+1].pStrValue)

    2315. 

  2315.                     m_Value[p] = ( strcmp(m_strValueInfo[p].pStrValue,m_strValueInfo[n+1].pStrValue)==0)?true:false;

    2316. 

  2316. 					else

    2317. 

  2317. 						m_Value[p] = false;

    2318. 

  2318.                 }

    2319. 

  2319.                 else

    2320. 

  2320.                 {

    2321. 

  2321.                     if( (m_Value[p] - m_Value[n+1]) >= -0.0001f && (m_Value[p] - m_Value[n+1]) <= 0.0001f )

    2322. 

  2322.                         m_Value[p] = true;

    2323. 

  2323.                     else

    2324. 

  2324.                         m_Value[p] = false;

    2325. 

  2325.                 }

    2326. 

  2326.             }

    2327. 

  2327. 

    2328. 

  2328.             m_Value[n+1]=ERROR_CODE;

    2329. 

  2329.             m_Operation[n]=0;

    2330. 

  2330.             break;

    2331. 

  2331. 

    2332. 

  2332.         case 5:	// '!='

    2333. 

  2333.             p=Prew(n);

    2334. 

  2334.             if ( m_VarClass[p]==VC_STRING || (m_Var[p][0] == '#' && m_VarClass[p] == VC_ARRAY) )

    2335. 

  2335.             {

    2336. 

  2336.                 if(m_strValueInfo[p].pStrValue && m_strValueInfo[n+1].pStrValue)

    2337. 

  2337.                 m_Value[p] = ( strcmp(m_strValueInfo[p].pStrValue, m_strValueInfo[n+1].pStrValue)==0)?false:true;

    2338. 

  2338. 				else

    2339. 

  2339. 					m_Value[p] = false;

    2340. 

  2340.             }

    2341. 

  2341.             else if(m_VarClass[p] == VC_GUID || (m_Var[n][0] == '@' && m_VarClass[n] == VC_ARRAY))

    2342. 

  2342.             {

    2343. 

  2343.                     m_Value[p] = ( m_guidValue[p] == m_guidValue[n+1] )?false:true;

    2344. 

  2344.                 }

    2345. 

  2345.             else

    2346. 

  2346.             {

    2347. 

  2347.                 if(VC_STRING == GetValueType(m_Var[p].c_str()))

    2348. 

  2348.                 {

    2349. 

  2349. 					if(m_strValueInfo[p].pStrValue && m_strValueInfo[n+1].pStrValue)

    2350. 

  2350.                     m_Value[p] = ( strcmp(m_strValueInfo[p].pStrValue, m_strValueInfo[n+1].pStrValue)==0)?false:true;

    2351. 

  2351. 					else

    2352. 

  2352. 						m_Value[p] = false;

    2353. 

  2353.                 }

    2354. 

  2354.                 else

    2355. 

  2355.                 {

    2356. 

  2356.                     if( fabs(m_Value[p] - m_Value[n+1]) >= 0.00001f )

    2357. 

  2357.                         m_Value[p] = true;

    2358. 

  2358.                     else

    2359. 

  2359.                         m_Value[p] = false;

    2360. 

  2360.                 }

    2361. 

  2361.             }

    2362. 

  2362. 

    2363. 

  2363.             m_Value[n+1]=ERROR_CODE;

    2364. 

  2364.             m_Operation[n]=0;

    2365. 

  2365.             break;

    2366. 

  2366. 

    2367. 

  2367.         case 6:	// '>'

    2368. 

  2368.             p=Prew(n);

    2369. 

  2369.             if(m_VarClass[p] == VC_GUID)

    2370. 

  2370.             {

    2371. 

  2371.                 TestLog(CStringReading::LoadString(IDS_GS_SCRIPT,STR_GS_SCRIPT_CANTOPERWITHGUIDVAR), ">");

    2372. 

  2372.                 break;

    2373. 

  2373.             }

    2374. 

  2374.             if( (m_Value[p] - m_Value[n+1]) > 0 )

    2375. 

  2375.                 m_Value[p] = true;

    2376. 

  2376.             else

    2377. 

  2377.                 m_Value[p] = false;

    2378. 

  2378. 

    2379. 

  2379.             m_Value[n+1]=ERROR_CODE;

    2380. 

  2380.             m_Operation[n]=0;

    2381. 

  2381.             break;

    2382. 

  2382. 

    2383. 

  2383.         case 7:	// '<'

    2384. 

  2384.             p=Prew(n);

    2385. 

  2385.             if(m_VarClass[p] == VC_GUID)

    2386. 

  2386.             {

    2387. 

  2387.                 TestLog(CStringReading::LoadString(IDS_GS_SCRIPT,STR_GS_SCRIPT_CANTOPERWITHGUIDVAR), "<");

    2388. 

  2388.                 break;

    2389. 

  2389.             }

    2390. 

  2390.             

    2391. 

  2391.             if( (m_Value[p] - m_Value[n+1]) < 0 )

    2392. 

  2392.                 m_Value[p] = true;

    2393. 

  2393.             else

    2394. 

  2394.                 m_Value[p] = false;

    2395. 

  2395. 

    2396. 

  2396.             m_Value[n+1]=ERROR_CODE;

    2397. 

  2397.             m_Operation[n]=0;

    2398. 

  2398.             break;

    2399. 

  2399. 

    2400. 

  2400.         case 8:	// '>='

    2401. 

  2401.             p=Prew(n);

    2402. 

  2402.             if(m_VarClass[p] == VC_GUID)

    2403. 

  2403.             {

    2404. 

  2404.                 TestLog(CStringReading::LoadString(IDS_GS_SCRIPT,STR_GS_SCRIPT_CANTOPERWITHGUIDVAR), ">=");

    2405. 

  2405.                 break;

    2406. 

  2406.             }

    2407. 

  2407.             

    2408. 

  2408.             if( ((m_Value[p] - m_Value[n+1]) > 0) || (fabs(m_Value[p] - m_Value[n+1]) < 0.0001f) )

    2409. 

  2409.                 m_Value[p] = true;

    2410. 

  2410.             else

    2411. 

  2411.                 m_Value[p] = false;

    2412. 

  2412. 

    2413. 

  2413.             m_Value[n+1]=ERROR_CODE;

    2414. 

  2414.             m_Operation[n]=0;

    2415. 

  2415.             break;

    2416. 

  2416. 

    2417. 

  2417.         case 9:	// '<='

    2418. 

  2418.             p=Prew(n);

    2419. 

  2419.             if(m_VarClass[p] == VC_GUID)

    2420. 

  2420.             {

    2421. 

  2421.                 TestLog(CStringReading::LoadString(IDS_GS_SCRIPT,STR_GS_SCRIPT_CANTOPERWITHGUIDVAR), "<=");

    2422. 

  2422.                 break;

    2423. 

  2423.             }

    2424. 

  2424.            

    2425. 

  2425.             if( ((m_Value[p] - m_Value[n+1]) < 0) || (fabs(m_Value[p] - m_Value[n+1]) < 0.0001f) )

    2426. 

  2426.                 m_Value[p] = true;

    2427. 

  2427.             else

    2428. 

  2428.                 m_Value[p] = false;

    2429. 

  2429. 

    2430. 

  2430.             m_Value[n+1]=ERROR_CODE;

    2431. 

  2431.             m_Operation[n]=0;

    2432. 

  2432.             break;

    2433. 

  2433. 

    2434. 

  2434.         case 10:		// '='

    2435. 

  2435. 

    2436. 

  2436.             if ( m_VarClass[n]==VC_STRING || (m_Var[n][0] == '#' && m_VarClass[n] == VC_ARRAY) )

    2437. 

  2437.             {

    2438. 

  2438.                 long lLen = DumpString(m_strValueInfo[n].pStrValue, m_strValueInfo[n].lStrValueLen, m_strValueInfo[n+1].pStrValue);

    2439. 

  2439. 				m_strValueInfo[n].lStrValueLen = lLen+1;

    2440. 

  2440.                 M_FREE(m_strValueInfo[n+1].pStrValue, sizeof(char)*m_strValueInfo[n+1].lStrValueLen);

    2441. 

  2441. 				m_strValueInfo[n+1].pStrValue = NULL;

    2442. 

  2442. 				m_strValueInfo[n+1].lStrValueLen = 0;

    2443. 

  2443.                 m_Value[n+1]=ERROR_CODE;

    2444. 

  2444.                 m_Operation[n]=0;

    2445. 

  2445.                 goto _SetVar;

    2446. 

  2446.             }

    2447. 

  2447.             else if( m_VarClass[n]==VC_GUID || (m_Var[n][0] == '@' && m_VarClass[n] == VC_ARRAY) )

    2448. 

  2448.             {

    2449. 

  2449.                 m_guidValue[n]=m_guidValue[n+1];

    2450. 

  2450.                 m_guidValue[n+1]=NULL_GUID;

    2451. 

  2451.                 m_Operation[n]=0;

    2452. 

  2452.                 goto _SetVar;

    2453. 

  2453.             }

    2454. 

  2454.             else

    2455. 

  2455.             {

    2456. 

  2456.                 m_Value[n]=m_Value[n+1];

    2457. 

  2457.                 m_Value[n+1]=ERROR_CODE;

    2458. 

  2458.                 m_Operation[n]=0;

    2459. 

  2459.                 goto _SetVar;

    2460. 

  2460.             }

    2461. 

  2461. 

    2462. 

  2462.         case 11:		// '+='

    2463. 

  2463.             m_Value[n]+=m_Value[n+1];

    2464. 

  2464.             m_Value[n+1]=ERROR_CODE;

    2465. 

  2465.             m_Operation[n]=0;

    2466. 

  2466.             goto _SetVar;

    2467. 

  2467. 

    2468. 

  2468.         case 12:		// '-='

    2469. 

  2469.             m_Value[n]-=m_Value[n+1];

    2470. 

  2470.             m_Value[n+1]=ERROR_CODE;

    2471. 

  2471.             m_Operation[n]=0;

    2472. 

  2472.             goto _SetVar;

    2473. 

  2473. 

    2474. 

  2474.         case 13:		// '*='

    2475. 

  2475.             m_Value[n]*=m_Value[n+1];

    2476. 

  2476.             m_Value[n+1]=ERROR_CODE;

    2477. 

  2477.             m_Operation[n]=0;

    2478. 

  2478.             goto _SetVar;

    2479. 

  2479. 

    2480. 

  2480.         case 14:		// '/='

    2481. 

  2481.             m_Value[n]/=m_Value[n+1];

    2482. 

  2482.             m_Value[n+1]=ERROR_CODE;

    2483. 

  2483.             m_Operation[n]=0;

    2484. 

  2484.             goto _SetVar;

    2485. 

  2485. 

    2486. 

  2486.         case 15:		// '%='

    2487. 

  2487.             m_Value[n] = ((long)m_Value[n] % (long)m_Value[n+1]);

    2488. 

  2488.             m_Value[n+1]=ERROR_CODE;

    2489. 

  2489.             m_Operation[n]=0;

    2490. 

  2490.             goto _SetVar;

    2491. 

  2491. 

    2492. 

  2492.         case 16:		// '&'

    2493. 

  2493.             p=Prew(n);

    2494. 

  2494.             m_Value[p] = ((long)m_Value[p] & (long)m_Value[n+1]);

    2495. 

  2495.             m_Value[n+1]=ERROR_CODE;

    2496. 

  2496.             m_Operation[n]=0;

    2497. 

  2497.             break;

    2498. 

  2498. 

    2499. 

  2499.         case 17:		// '|'

    2500. 

  2500.             p=Prew(n);

    2501. 

  2501.             m_Value[p] = ((long)m_Value[p] | (long)m_Value[n+1]);

    2502. 

  2502.             m_Value[n+1]=ERROR_CODE;

    2503. 

  2503.             m_Operation[n]=0;

    2504. 

  2504.             break;

    2505. 

  2505. 

    2506. 

  2506.         case 18:	// '+'

    2507. 

  2507.             {

    2508. 

  2508.                 int nPrewNum = Prew(n);

    2509. 

  2509.                 int nPrewStr = PrewString(n);

    2510. 

  2510. 

    2511. 

  2511.                 // 字符串连接

    2512. 

  2512.                 if ((nPrewStr >=0 && nPrewNum<=nPrewStr) || m_strValueInfo[n+1].pStrValue!=0)

    2513. 

  2513.                 {

    2514. 

  2514.                     if (nPrewNum<=nPrewStr)

    2515. 

  2515.                         p = nPrewStr;

    2516. 

  2516.                     else

    2517. 

  2517.                         p = nPrewNum;

    2518. 

  2518. 

    2519. 

  2519.                    

    2520. 

  2520.                     size_t len=1;

    2521. 

  2521.                     if(m_strValueInfo[p].pStrValue!=0)

    2522. 

  2522.                         len+=strlen(m_strValueInfo[p].pStrValue);

    2523. 

  2523.                     else

    2524. 

  2524.                         len+=32;

    2525. 

  2525. 

    2526. 

  2526.                     if (m_strValueInfo[n+1].pStrValue!=0)

    2527. 

  2527.                         len+=strlen(m_strValueInfo[n+1].pStrValue);

    2528. 

  2528.                     else

    2529. 

  2529.                         len+=32;

    2530. 

  2530. 

    2531. 

  2531.                     char* temp=(char*)M_ALLOC(sizeof(char)*len);

    2532. 

  2532.                     //char* str1;

    2533. 

  2533.                     //char* str2;

    2534. 

  2534.                     //int len1,len2;

    2535. 

  2535.                     //处理第一个参数

    2536. 

  2536. 

    2537. 

  2537.                     if (m_strValueInfo[p].pStrValue!=0){

    2538. 

  2538.                         strcpy_s(temp, len, m_strValueInfo[p].pStrValue);

    2539. 

  2539.                     }

    2540. 

  2540.                     else

    2541. 

  2541. 						itoa(m_Value[p],temp,10);

    2542. 

  2542. 

    2543. 

  2543.                     if (m_strValueInfo[n+1].pStrValue!=0)

    2544. 

  2544.                         strcat_s(temp, len, m_strValueInfo[n+1].pStrValue);

    2545. 

  2545.                     else

    2546. 

  2546. 						itoa(m_Value[n+1],&temp[strlen(temp)],10);

    2547. 

  2547. 

    2548. 

  2548. 					

    2549. 

  2549.                     M_FREE(m_strValueInfo[p].pStrValue, sizeof(char)*m_strValueInfo[p].lStrValueLen);

    2550. 

  2550. 					m_strValueInfo[p].pStrValue = NULL;

    2551. 

  2551. 					m_strValueInfo[p].lStrValueLen = 0;

    2552. 

  2552. 

    2553. 

  2553.                     m_strValueInfo[p].pStrValue=temp;

    2554. 

  2554. 					m_strValueInfo[p].lStrValueLen = (long)(sizeof(char)*len);

    2555. 

  2555. 

    2556. 

  2556.                     M_FREE(m_strValueInfo[n+1].pStrValue, sizeof(char)*m_strValueInfo[n+1].lStrValueLen);

    2557. 

  2557. 					m_strValueInfo[n+1].pStrValue = NULL;

    2558. 

  2558. 					m_strValueInfo[n+1].lStrValueLen = 0;

    2559. 

  2559. 

    2560. 

  2560.                     m_Value[n+1]=ERROR_CODE;

    2561. 

  2561.                     m_Operation[n]=0;

    2562. 

  2562.                 }

    2563. 

  2563.                 else{

    2564. 

  2564.                     p = nPrewNum;

    2565. 

  2565. 

    2566. 

  2566.                     m_Value[p]=m_Value[p] + m_Value[n+1];

    2567. 

  2567.                     m_Value[n+1]=ERROR_CODE;

    2568. 

  2568.                     m_Operation[n]=0;

    2569. 

  2569.                 }

    2570. 

  2570.             }

    2571. 

  2571.             break;

    2572. 

  2572. 

    2573. 

  2573.         case 19:		// '-'

    2574. 

  2574.             p=Prew(n);

    2575. 

  2575.             m_Value[p]=m_Value[p] - m_Value[n+1];

    2576. 

  2576.             m_Value[n+1]=ERROR_CODE;

    2577. 

  2577.             m_Operation[n]=0;

    2578. 

  2578.             break;

    2579. 

  2579. 

    2580. 

  2580.         case 20:		// '*'

    2581. 

  2581.             p=Prew(n);

    2582. 

  2582.             m_Value[p]=m_Value[p] * m_Value[n+1];

    2583. 

  2583.             m_Value[n+1]=ERROR_CODE;

    2584. 

  2584.             m_Operation[n]=0;

    2585. 

  2585.             break;

    2586. 

  2586. 

    2587. 

  2587.         case 21:		// '/'

    2588. 

  2588.             p=Prew(n);

    2589. 

  2589. 

    2590. 

  2590.             if (m_Value[n+1]!=0)

    2591. 

  2591.                 m_Value[p]=m_Value[p] / m_Value[n+1];

    2592. 

  2592. 

    2593. 

  2593.             m_Value[n+1]=ERROR_CODE;

    2594. 

  2594.             m_Operation[n]=0;

    2595. 

  2595.             break;

    2596. 

  2596. 

    2597. 

  2597.         case 22:		// '%'

    2598. 

  2598.             p=Prew(n);

    2599. 

  2599.             m_Value[p]=((long)m_Value[p] % (long)m_Value[n+1]);

    2600. 

  2600.             m_Value[n+1]=ERROR_CODE;

    2601. 

  2601.             m_Operation[n]=0;

    2602. 

  2602.             break;

    2603. 

  2603.         }

    2604. 

  2604.     }

    2605. 

  2605. 

    2606. 

  2606. _SetVar:

    2607. 

  2607.     //给变量付值

    2608. 

  2608.     if( m_VarClass[n] == VC_VAR )

    2609. 

  2609.     {

    2610. 

  2610.         double result = (double)SetScriptVarValue((CMoveShape*)p_SrcShape, m_Var[n].c_str(), 0, m_Value[n]);

    2611. 

  2611.     }

    2612. 

  2612.     else if( m_VarClass[n] == VC_STRING ) // 字符串

    2613. 

  2613.     {

    2614. 

  2614.         double result = (double)SetScriptVarValue((CMoveShape*)p_SrcShape, m_Var[n].c_str(), m_strValueInfo[n].pStrValue);

    2615. 

  2615.     }

    2616. 

  2616.     else if(m_VarClass[n] == VC_ARRAY ) // 数组(字符串和整数)

    2617. 

  2617. 	{

    2618. 

  2618. 		// 数组下标值

    2619. 

  2619. 		int lArray = CVariableList::VAR_NOT_FOUND;

    2620. 

  2620. 		char MainVarName[256];

    2621. 

  2621. 		char InnVarName[256];

    2622. 

  2622. 

    2623. 

  2623. 		char* MainVarNamePtr = MainVarName;

    2624. 

  2624. 		char* InnVarNamePtr = InnVarName;

    2625. 

  2625. 		char* varTypeFlag = (char*)m_Var[n].c_str();

    2626. 

  2626. 		long tempPos = 0;

    2627. 

  2627. 

    2628. 

  2628. 		double ret = CheckParamStringForArray(varTypeFlag, strlen(varTypeFlag), &MainVarNamePtr, 256, &InnVarNamePtr, 256, tempPos);

    2629. 

  2629. 		if(ret == 1.0f)

    2630. 

  2630. 		{

    2631. 

  2631. 			if(InnVarNamePtr[0] == '$') // 下标是变量

    2632. 

  2632. 				lArray = GetScriptVarValue((CMoveShape*)p_SrcShape, InnVarName, 0);

    2633. 

  2633. 			else

    2634. 

  2634. 				lArray = atoi(InnVarName);

    2635. 

  2635. 

    2636. 

  2636. 			if(varTypeFlag[0] == '$') // 整数数组

    2637. 

  2637. 			{

    2638. 

  2638. 				if(lArray != CVariableList::VAR_NOT_FOUND)

    2639. 

  2639. 					SetScriptVarValue( (CMoveShape*)p_SrcShape, MainVarName, lArray, m_Value[n] );

    2640. 

  2640. 			}

    2641. 

  2641. 			else if(varTypeFlag[0] == '#') // 字符串数组

    2642. 

  2642. 			{

    2643. 

  2643. 				if(lArray != CVariableList::VAR_NOT_FOUND)

    2644. 

  2644. 				{

    2645. 

  2645. 					// 找到对应字符串

    2646. 

  2646. 					char arrayStr[256];

    2647. 

  2647. 					_snprintf(arrayStr, 256, "%s%d", MainVarName, lArray);

    2648. 

  2648. 					SetScriptVarValue((CMoveShape*)p_SrcShape, arrayStr, m_strValueInfo[n].pStrValue);

    2649. 

  2649. 				}

    2650. 

  2650. 			}

    2651. 

  2651. 			else if(varTypeFlag[0] == '@') // GUID数组

    2652. 

  2652. 			{

    2653. 

  2653. 				if(lArray != CVariableList::VAR_NOT_FOUND)

    2654. 

  2654. 				{

    2655. 

  2655. 					// 找到对应字符串

    2656. 

  2656. 					char arrayStr[256];

    2657. 

  2657. 					_snprintf(arrayStr, 256, "%s%d", MainVarName, lArray);

    2658. 

  2658. 					SetScriptGuidValue((CMoveShape*)p_SrcShape, arrayStr, m_guidValue[n]);

    2659. 

  2659. 				}

    2660. 

  2660. 			}

    2661. 

  2661. 		}

    2662. 

  2662. 		else

    2663. 

  2663. 		{

    2664. 

  2664. 			char outStr[1024];

    2665. 

  2665. 			_snprintf(outStr, 1024, "count() array oper Err, var[%s]!", m_Var[n].c_str());

    2666. 

  2666. 			AddLogText(outStr);

    2667. 

  2667. 		}

    2668. 

  2668. 	}

    2669. 

  2669.     else if( m_VarClass[n] == VC_GUID )

    2670. 

  2670.     {

    2671. 

  2671.         double result = (double)CVariableList::VAR_NOT_FOUND;

    2672. 

  2672.             SetScriptGuidValue((CMoveShape*)p_SrcShape, m_Var[n].c_str(), m_guidValue[n]);

    2673. 

  2673.         }

    2674. 

  2674.     return 0;

    2675. 

  2675. }

    2676. 

  2676. 

    2677. 

  2677. // -------------------------------------------------------

    2678. 

  2678. // 函数

    2679. 

  2679. // -------------------------------------------------------

    2680. 

  2680. 

    2681. 

  2681. //////////////////////////

    2682. 

  2682. // 获取函数名称

    2683. 

  2683. char *CScript::GetFunctionName(const char *CmdStr, long& lLen)

    2684. 

  2684. {

    2685. 

  2685.     int Len=(int)strlen(CmdStr);

    2686. 

  2686.     int n=0;

    2687. 

  2687.     char chr, *Ret;

    2688. 

  2688. 

    2689. 

  2689.     Ret=(char*)M_ALLOC(sizeof(char)*(Len+1));

    2690. 

  2690. 	Ret[0] = '\0';

    2691. 

  2691. 	lLen = Len+1;

    2692. 

  2692.     //memset(Ret, 0, Len+1);

    2693. 

  2693. 

    2694. 

  2694.     for(int i=0; i<Len; i++)

    2695. 

  2695.     {

    2696. 

  2696.         chr=CmdStr[i];

    2697. 

  2697.         if( chr == '(' || chr == ' ' || chr == '\t' || chr == '\n' || chr == '\r' || chr == ';' )

    2698. 

  2698.         {

    2699. 

  2699. 			Ret[n] = '\0';

    2700. 

  2700.             return Ret;

    2701. 

  2701.         }

    2702. 

  2702.         Ret[n]=chr;

    2703. 

  2703.         n++;

    2704. 

  2704.     }

    2705. 

  2705. 

    2706. 

  2706.     return Ret;

    2707. 

  2707. }

    2708. 

  2708. 

    2709. 

  2709. /////////////////////////

    2710. 

  2710. // 取得整形参数（如果没有该参数，那么返回ERROR_CODE）

    2711. 

  2711. double CScript::GetIntParam(const char *CmdStr, int num)

    2712. 

  2712. {

    2713. 

  2713.     int Len=(int)strlen(CmdStr), j, ParamNum=0, nBracket=0;

    2714. 

  2714.     char chr, *Ret;

    2715. 

  2715.     bool bInString=false;

    2716. 

  2716. 

    2717. 

  2717.     Ret=(char*)M_ALLOC(sizeof(char)*(Len+1));

    2718. 

  2718. 	Ret[0] = '\0';

    2719. 

  2719. 

    2720. 

  2720.     //查找参数头

    2721. 

  2721.     int i=0;

    2722. 

  2722.     for(; i<Len; i++)

    2723. 

  2723.     {

    2724. 

  2724.         if( CmdStr[i] == '(' ) goto _Next;

    2725. 

  2725.     }

    2726. 

  2726. 

    2727. 

  2727.     goto _Error;

    2728. 

  2728. 

    2729. 

  2729. _Next:

    2730. 

  2730.     for(j=i+1; j<Len; j++)

    2731. 

  2731.     {

    2732. 

  2732.         chr=CmdStr[j];

    2733. 

  2733. 

    2734. 

  2734.         // 判断是否进入字符串

    2735. 

  2735.         if( chr == '\"' ) bInString=!bInString;

    2736. 

  2736. 

    2737. 

  2737.         // 如果不在字符串内部

    2738. 

  2738.         if( !bInString )

    2739. 

  2739.         {

    2740. 

  2740.             if( chr == '(' )

    2741. 

  2741.             {

    2742. 

  2742.                 nBracket++;								// 进入一层括号

    2743. 

  2743.             }

    2744. 

  2744.             else if( chr == ')' )

    2745. 

  2745.             {

    2746. 

  2746.                 if( nBracket > 0 )			// 退出一层括号

    2747. 

  2747.                 {

    2748. 

  2748.                     nBracket--;

    2749. 

  2749.                 }

    2750. 

  2750.                 else if( nBracket == 0 )	// 完成-没有找到指定的参数

    2751. 

  2751.                 {

    2752. 

  2752.                     goto _Error;

    2753. 

  2753.                 }

    2754. 

  2754.             }

    2755. 

  2755.             else if( nBracket==0 && IsCompart(chr) )	// 参数加一

    2756. 

  2756.             {

    2757. 

  2757.                 while( !IsCompart(CmdStr[j]) ) { j++;}	// 去掉逗号前面的空格

    2758. 

  2758.                 chr=CmdStr[j];

    2759. 

  2759.                 ParamNum++;

    2760. 

  2760.             }

    2761. 

  2761.         }

    2762. 

  2762. 

    2763. 

  2763.         //对应的参数

    2764. 

  2764.         if( ParamNum==num )

    2765. 

  2765.         {

    2766. 

  2766.             while( IsCompart(CmdStr[j]) ) { j++;}	// 去掉逗号

    2767. 

  2767. 

    2768. 

  2768.             int n = 0;

    2769. 

  2769.             bInString=false;

    2770. 

  2770.             nBracket=0;

    2771. 

  2771.             for(int k=j; k<Len; k++)

    2772. 

  2772.             {

    2773. 

  2773.                 chr=CmdStr[k];

    2774. 

  2774.                 if( chr == '\"' ) bInString=!bInString;

    2775. 

  2775.                 if( !bInString )

    2776. 

  2776.                 {

    2777. 

  2777.                     if( chr == '(' ) nBracket++;

    2778. 

  2778.                     else if( chr == ')' && nBracket>0 ) nBracket--;

    2779. 

  2779.                     else if( nBracket==0 && ( IsCompart(chr) || chr == ')' ))

    2780. 

  2780.                     {

    2781. 

  2781.                         Ret[n]=';';

    2782. 

  2782. 						Ret[n+1] = '\0';

    2783. 

  2783.                         CScript *pTemptScript = PopFreeScript(Ret);

    2784. 

  2784.                         InitChildScriptData(pTemptScript);

    2785. 

  2785.                         //设置变量	

    2786. 

  2786.                         pTemptScript->SetVariableList(m_pVariableList);

    2787. 

  2787.                         pTemptScript->RunLine(Ret);					

    2788. 

  2788.                         double ret=pTemptScript->m_Value[0];

    2789. 

  2789.                         M_FREE(Ret, sizeof(char)*(Len+1));

    2790. 

  2790. 						Ret = NULL;

    2791. 

  2791.                         if(pTemptScript->m_strValueInfo[0].pStrValue!=NULL)	//类型不对

    2792. 

  2792.                             ret = ERROR_CODE;

    2793. 

  2793.                         PushFreeScript(pTemptScript);

    2794. 

  2794.                         return ret;

    2795. 

  2795.                     }

    2796. 

  2796.                 }

    2797. 

  2797.                 Ret[n]=chr;

    2798. 

  2798.                 n++;

    2799. 

  2799.             }

    2800. 

  2800.             goto _Error;

    2801. 

  2801.         }

    2802. 

  2802.     }

    2803. 

  2803. 

    2804. 

  2804. _Error:

    2805. 

  2805.     M_FREE(Ret, sizeof(char)*(Len+1));

    2806. 

  2806.     return ERROR_CODE;

    2807. 

  2807. }

    2808. 

  2808. 

    2809. 

  2809. 

    2810. 

  2810. ///////////////////////////

    2811. 

  2811. // 取得字符串参数（如果没有该参数，那么返回一个空的字符串）

    2812. 

  2812. char *CScript::GetStringParam(const char *CmdStr, int num)

    2813. 

  2813. {

    2814. 

  2814.     char* pRet=NULL;		//存放返回值

    2815. 

  2815.     char* pCurrent;			//当前搜索的位置

    2816. 

  2816.     char* pParam=NULL;		//参数的起始位置

    2817. 

  2817. 

    2818. 

  2818.     bool bInString=false;	//是否在字符串中

    2819. 

  2819.     int ParamNum;

    2820. 

  2820.     int ParamLength=0;		//参数的字符串长度

    2821. 

  2821.     int nBracket;

    2822. 

  2822. 

    2823. 

  2823.     //找第一个'('

    2824. 

  2824.     for( pCurrent = (char*)CmdStr; *pCurrent!=0; pCurrent++ )

    2825. 

  2825.     {

    2826. 

  2826.         if (*pCurrent=='(') break;

    2827. 

  2827.     }

    2828. 

  2828. 

    2829. 

  2829.     //到参数开始的地方

    2830. 

  2830.     pCurrent++;

    2831. 

  2831.     ParamNum=0;

    2832. 

  2832.     nBracket=0;

    2833. 

  2833. 

    2834. 

  2834.     for(; *pCurrent!=0; pCurrent++)

    2835. 

  2835.     {

    2836. 

  2836.         //记录需要的参数

    2837. 

  2837.         if(ParamNum==num)

    2838. 

  2838.         {

    2839. 

  2839.             if (0==pParam)

    2840. 

  2840.             {

    2841. 

  2841.                 pParam=pCurrent;

    2842. 

  2842.                 ParamLength=0;

    2843. 

  2843.             }

    2844. 

  2844.             ParamLength++;

    2845. 

  2845.         }

    2846. 

  2846. 

    2847. 

  2847.         if( *pCurrent == '\"' )

    2848. 

  2848.         {

    2849. 

  2849.             bInString=!bInString;

    2850. 

  2850.         }

    2851. 

  2851. 

    2852. 

  2852.         if( !bInString )

    2853. 

  2853.         {

    2854. 

  2854.             if( *pCurrent == '(' ) nBracket++;

    2855. 

  2855.             else if(*pCurrent == ')') nBracket--;

    2856. 

  2856. 

    2857. 

  2857.             if((nBracket==0 && IsCompart(*pCurrent)) || nBracket<0)

    2858. 

  2858.             {

    2859. 

  2859.                 if (ParamLength>0)

    2860. 

  2860.                     break;//如果参数已经找到,就直接跳出进行处理

    2861. 

  2861.                 ParamNum++;

    2862. 

  2862.             }

    2863. 

  2863.         }

    2864. 

  2864.     }

    2865. 

  2865. 

    2866. 

  2866.     //有此参数 (包括两边的引号)

    2867. 

  2867.     if (ParamLength>=2)

    2868. 

  2868.     {

    2869. 

  2869.         pRet=(char*)M_ALLOC(sizeof(char)*MAX_VAR_LEN);

    2870. 

  2870.         memcpy(pRet,pParam,ParamLength);

    2871. 

  2871.         pRet[ParamLength-1]=';';

    2872. 

  2872.         pRet[ParamLength]=0;

    2873. 

  2873. 

    2874. 

  2874.         CScript *pTemptScript = PopFreeScript(pRet);

    2875. 

  2875.         InitChildScriptData(pTemptScript);

    2876. 

  2876.         //设置变量	

    2877. 

  2877.         pTemptScript->SetVariableList(m_pVariableList);

    2878. 

  2878.         pTemptScript->RunLine(pRet);	

    2879. 

  2879.         if (0 == pTemptScript->m_strValueInfo[0].pStrValue)

    2880. 

  2880.         {

    2881. 

  2881.             _snprintf(pRet, MAX_VAR_LEN, "%f", pTemptScript->m_Value[0]);

    2882. 

  2882.         }

    2883. 

  2883.         else

    2884. 

  2884.         {

    2885. 

  2885.             strcpy_s(pRet, MAX_VAR_LEN, pTemptScript->m_strValueInfo[0].pStrValue);

    2886. 

  2886.         }

    2887. 

  2887.         PushFreeScript(pTemptScript);

    2888. 

  2888. 

    2889. 

  2889.     }

    2890. 

  2890.     else

    2891. 

  2891.     {

    2892. 

  2892.         pRet=NULL;

    2893. 

  2893.         //pRet[0]=0;

    2894. 

  2894.     }

    2895. 

  2895. 

    2896. 

  2896.     return pRet;

    2897. 

  2897. }

    2898. 

  2898. 

    2899. 

  2899. char *CScript::GetOperation(const char *CmdStr, int num)

    2900. 

  2900. {

    2901. 

  2901.     int Len=(int)strlen(CmdStr), n=0, j, ParamNum=0, nBracket=0;

    2902. 

  2902.     char chr, *Ret;

    2903. 

  2903.     bool bInString=false;

    2904. 

  2904. 

    2905. 

  2905.     Ret=(char*)M_ALLOC(sizeof(char)*(Len+1));

    2906. 

  2906. 	Ret[0] = '\0';

    2907. 

  2907. 

    2908. 

  2908. 

    2909. 

  2909.     //查找参数头

    2910. 

  2910.     int i=0;

    2911. 

  2911.     for(; i<Len; i++)

    2912. 

  2912.     {

    2913. 

  2913.         if( CmdStr[i] == '(' ) goto _Next;

    2914. 

  2914.     }

    2915. 

  2915.     goto _ERROR;

    2916. 

  2916. 

    2917. 

  2917. _Next:

    2918. 

  2918.     for(j=i+1; j<Len; j++)

    2919. 

  2919.     {

    2920. 

  2920.         chr=CmdStr[j];

    2921. 

  2921. 

    2922. 

  2922.         //变量数值参数

    2923. 

  2923.         if( ParamNum==num && IsCompart(chr) )

    2924. 

  2924.         {

    2925. 

  2925.             for(int k=j+1; k<Len; k++)

    2926. 

  2926.             {

    2927. 

  2927.                 Ret[n]=chr;

    2928. 

  2928.                 n++;

    2929. 

  2929. 

    2930. 

  2930.                 chr=CmdStr[k];

    2931. 

  2931.                 if( !IsCompart(chr) )

    2932. 

  2932. 				{

    2933. 

  2933. 					Ret[n] = '\0';

    2934. 

  2934.                     return Ret;

    2935. 

  2935.             }

    2936. 

  2936.             }

    2937. 

  2937.             goto _ERROR;

    2938. 

  2938.         }

    2939. 

  2939. 

    2940. 

  2940.         //第几参数

    2941. 

  2941.         if( chr == '\"' ) bInString=!bInString;

    2942. 

  2942.         if( !bInString )

    2943. 

  2943.         {

    2944. 

  2944.             if( chr == '(' ) nBracket++;

    2945. 

  2945.             else if( chr == ')' && nBracket>0 ) nBracket--;

    2946. 

  2946.             else if( nBracket==0 && IsCompart(chr) )

    2947. 

  2947.             {

    2948. 

  2948.                 while( !IsCompart(CmdStr[j]) ) { j++; }

    2949. 

  2949.                 chr=CmdStr[j];

    2950. 

  2950.                 ParamNum++;

    2951. 

  2951.             }

    2952. 

  2952.         }

    2953. 

  2953.     }

    2954. 

  2954. 

    2955. 

  2955. _ERROR:

    2956. 

  2956.     char str[10240];

    2957. 

  2957.     _snprintf(str, 10240, "Command [%s]'s Operation %d not found!", CmdStr, num);

    2958. 

  2958.     PutDebugString(str);

    2959. 

  2959. 

    2960. 

  2960. 

    2961. 

  2961. 	Ret[0] = '\0';

    2962. 

  2962.     return Ret;

    2963. 

  2963. }

    2964. 

  2964. 

    2965. 

  2965. ////////////////////////////

    2966. 

  2966. // 某字符是否是分隔符

    2967. 

  2967. 

    2968. 

  2968. bool CScript::IsCompart(char chr)

    2969. 

  2969. {

    2970. 

  2970.     if( chr == ',' )

    2971. 

  2971.         return true;

    2972. 

  2972. 

    2973. 

  2973.     return false;

    2974. 

  2974. }

    2975. 

  2975. 

    2976. 

  2976. ////////////////////////

    2977. 

  2977. // 获取实际的Npc ID

    2978. 

  2978. double CScript::GetTrueNpcID(double id)

    2979. 

  2979. {

    2980. 

  2980.     return 0;

    2981. 

  2981. }

    2982. 

  2982. 

    2983. 

  2983. ////////////////////////

    2984. 

  2984. // 运行一步脚本

    2985. 

  2985. // soft 2006-12-26 改为一直把脚本执行完，除非遇到等待的函数

    2986. 

  2986. enum CScript::SCRIPTRETURN CScript::RunStep()

    2987. 

  2987. {

    2988. 

  2988.     char CmdStr[MAX_VAR_LEN];

    2989. 

  2989.     char *CmdName;

    2990. 

  2990. 

    2991. 

  2991.     do{

    2992. 

  2992.         //有等待函数正在执行

    2993. 

  2993.         if( m_bHang )

    2994. 

  2994.         {

    2995. 

  2995.             return SR_HANG;

    2996. 

  2996.         }

    2997. 

  2997. 

    2998. 

  2998.         ReadCmd(CmdStr, MAX_VAR_LEN);		//读一行指令

    2999. 

  2999. 

    3000. 

  3000. 		long lCmdNameLen = 0;

    3001. 

  3001.         CmdName=GetFunctionName(CmdStr, lCmdNameLen);	//获取第一个函数名称

    3002. 

  3002.         //返回

    3003. 

  3003.         if( stricmp( CmdStr, "" ) == 0 )

    3004. 

  3004.         {

    3005. 

  3005. 			M_FREE(CmdName, lCmdNameLen);

    3006. 

  3006.             return SR_END;

    3007. 

  3007.         }

    3008. 

  3008.         else if( stricmp( CmdStr, "return;" ) == 0 )

    3009. 

  3009.         {

    3010. 

  3010.             M_FREE(CmdName, lCmdNameLen);

    3011. 

  3011.             return SR_RETURN;

    3012. 

  3012.         }

    3013. 

  3013.         //For返回

    3014. 

  3014.         else if( stricmp( CmdStr, "break;" ) == 0 )

    3015. 

  3015.         {

    3016. 

  3016.             M_FREE(CmdName, lCmdNameLen);

    3017. 

  3017.             return SR_FORBREAK;

    3018. 

  3018.         }

    3019. 

  3019.         //For返回

    3020. 

  3020.         else if( stricmp( CmdStr, "continue;" ) == 0 )

    3021. 

  3021.         {

    3022. 

  3022.             M_FREE(CmdName, lCmdNameLen);

    3023. 

  3023.             return SR_FORCONTINUE;

    3024. 

  3024.         }		

    3025. 

  3025.         else if( stricmp( CmdName, "<begin>" ) == 0 )

    3026. 

  3026.         {

    3027. 

  3027.             M_FREE(CmdName, lCmdNameLen);

    3028. 

  3028.             continue;

    3029. 

  3029.         }

    3030. 

  3030.         else if( stricmp( CmdName, "<end>" ) == 0 )

    3031. 

  3031.         {

    3032. 

  3032.            M_FREE(CmdName, lCmdNameLen);

    3033. 

  3033.             continue;

    3034. 

  3034.         }

    3035. 

  3035.         //标记

    3036. 

  3036.         else if( CmdStr[strlen(CmdStr)-2] == ':' )

    3037. 

  3037.         {

    3038. 

  3038.             M_FREE(CmdName, lCmdNameLen);

    3039. 

  3039.             continue;

    3040. 

  3040.         }

    3041. 

  3041.         //调用其它脚本(递归调用)

    3042. 

  3042.         else if( stricmp( CmdName, "call" ) == 0 )

    3043. 

  3043.         {

    3044. 

  3044.             SCRIPTRETURN ret = call(CmdStr);

    3045. 

  3045.             M_FREE(CmdName, lCmdNameLen);

    3046. 

  3046.             if(CScript::SR_END == ret || CScript::SR_RETURN == ret)

    3047. 

  3047.                 continue;

    3048. 

  3048.             return ret;		

    3049. 

  3049.         }

    3050. 

  3050. 		//调用其它脚本(递归调用)

    3051. 

  3051.         else if( stricmp( CmdName, "callex" ) == 0 )

    3052. 

  3052.         {

    3053. 

  3053.             SCRIPTRETURN ret = callEx(CmdStr);

    3054. 

  3054.             M_FREE(CmdName, lCmdNameLen);

    3055. 

  3055.             if(CScript::SR_END == ret || CScript::SR_RETURN == ret)

    3056. 

  3056.                 continue;

    3057. 

  3057.             return ret;		

    3058. 

  3058.         }

    3059. 

  3059.         // [070511 AHC]

    3060. 

  3060.         // 定义局部变量

    3061. 

  3061.         else if( stricmp( CmdName, "localvar" ) == 0 )

    3062. 

  3062.         {          

    3063. 

  3063.             LocalVar(CmdStr);

    3064. 

  3064. 

    3065. 

  3065.             M_FREE(CmdName, lCmdNameLen);

    3066. 

  3066.             continue;

    3067. 

  3067.         }

    3068. 

  3068.         // for

    3069. 

  3069.         else if( stricmp( CmdName, "for" ) == 0 )

    3070. 

  3070.         {

    3071. 

  3071.             SCRIPTRETURN ret = For(CmdStr);

    3072. 

  3072.             M_FREE(CmdName, lCmdNameLen);

    3073. 

  3073.             if(CScript::SR_END == ret)

    3074. 

  3074.                 continue;

    3075. 

  3075.             return ret;

    3076. 

  3076.         }

    3077. 

  3077. 

    3078. 

  3078.         RunLine(CmdStr);		//执行

    3079. 

  3079.         M_FREE(CmdName, lCmdNameLen);

    3080. 

  3080. 

    3081. 

  3081.     }while( 1 );

    3082. 

  3082. 

    3083. 

  3083.     return SR_END;

    3084. 

  3084. }

    3085. 

  3085. 

    3086. 

  3086. //异步操作返回后继续执行

    3087. 

  3087. enum CScript::SCRIPTRETURN CScript::ContinueRun(CVariableList* stackVarList)

    3088. 

  3088. {

    3089. 

  3089. #ifdef _RUNSTACKINFO_

    3090. 

  3090.     char pszStatckInfo[256]="";

    3091. 

  3091.     _snprintf(pszStatckInfo,256,"CScript::ContinueRun(FileName:%s) Start",m_FileName);

    3092. 

  3092. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3093. 

  3093. #endif

    3094. 

  3094. #ifdef _SCRIPT_INFO_

    3095. 

  3095. 	DWORD BeginTime = timeGetTime();

    3096. 

  3096. 	m_RunTime = 0;

    3097. 

  3097. #endif

    3098. 

  3098. 

    3099. 

  3099.     SCRIPTRETURN eRet = SR_END;

    3100. 

  3100.     m_bHang = false;

    3101. 

  3101.     if(m_pChildScriptInfo)

    3102. 

  3102.     {

    3103. 

  3103.         InitChildScriptData(m_pChildScriptInfo->pChildScript);

    3104. 

  3104. 		if(m_pChildScriptInfo->pChildScript)

    3105. 

  3105. 		{

    3106. 

  3106.         switch(m_pChildScriptInfo->eType)

    3107. 

  3107.         {

    3108. 

  3108.         case CST_FOR:

    3109. 

  3109.             {

    3110. 

  3110.                 eRet = ContinueRunFor(stackVarList);

    3111. 

  3111.             }

    3112. 

  3112.             break;

    3113. 

  3113.         case CST_CALL:

    3114. 

  3114.             {

    3115. 

  3115.                 eRet = ContinueRunCall(stackVarList);

    3116. 

  3116.             }

    3117. 

  3117.             break;

    3118. 

  3118. 		 case CST_CALLEX:

    3119. 

  3119.             {

    3120. 

  3120.                 eRet = ContinueRunCallEx(stackVarList);

    3121. 

  3121.             }

    3122. 

  3122.             break;

    3123. 

  3123. 			}

    3124. 

  3124. 			if(eRet == SR_HANG)

    3125. 

  3125. 			{

    3126. 

  3126. 				m_bHang = true;

    3127. 

  3127. 				SetHangFunc(m_pChildScriptInfo->pChildScript->GetHangFunc());

    3128. 

  3128. 			}

    3129. 

  3129. 		}

    3130. 

  3130.     }

    3131. 

  3131.     else

    3132. 

  3132.     {

    3133. 

  3133.         // 根据stackVarList设置返回值

    3134. 

  3134.         if(stackVarList)

    3135. 

  3135.         {

    3136. 

  3136.             if(stackVarList->GetVarList())

    3137. 

  3137.             {

    3138. 

  3138.                 CVariableList::VarList::iterator varItr = stackVarList->GetVarList()->begin();

    3139. 

  3139.                 for(; varItr != stackVarList->GetVarList()->end(); varItr++)

    3140. 

  3140.                 {

    3141. 

  3141.                     if(varItr->first[0] == '#')// 字符串

    3142. 

  3142.                         SetScriptVarValue((CMoveShape*)p_SrcShape, varItr->first.c_str(), varItr->second->strValue);

    3143. 

  3143.                     else if(varItr->first[0] == '$')

    3144. 

  3144.                         SetScriptVarValue((CMoveShape*)p_SrcShape, varItr->first.c_str(), varItr->second->Array, *varItr->second->Value);

    3145. 

  3145.                 }

    3146. 

  3146.                 // GUID 变量

    3147. 

  3147.                 CVariableList::GuidList::iterator guidItr = stackVarList->GetGuidList()->begin();

    3148. 

  3148.                 for(; guidItr != stackVarList->GetGuidList()->end(); guidItr++)

    3149. 

  3149.                 {

    3150. 

  3150.                     SetScriptGuidValue((CMoveShape*)p_SrcShape, guidItr->first.c_str(), *(guidItr->second));

    3151. 

  3151.                 }

    3152. 

  3152.             }

    3153. 

  3153.         }

    3154. 

  3154.     }

    3155. 

  3155. 

    3156. 

  3156. #ifdef _SCRIPT_INFO_

    3157. 

  3157. 	if(eRet != SR_HANG)

    3158. 

  3158. 	{

    3159. 

  3159. 		m_RunTime += timeGetTime() - BeginTime;

    3160. 

  3160. 		GetGame()->AddScriptInfo(m_FileName, m_RunTime);

    3161. 

  3161. 		m_RunTime = 0;

    3162. 

  3162. 	}

    3163. 

  3163. 	else

    3164. 

  3164. 	{

    3165. 

  3165. 		m_RunTime += timeGetTime() - BeginTime;

    3166. 

  3166. 	}

    3167. 

  3167. #endif

    3168. 

  3168. 

    3169. 

  3169.     if(eRet == SR_HANG || eRet == SR_RETURN || eRet == SR_ERROR)

    3170. 

  3170.     {

    3171. 

  3171. #ifdef _RUNSTACKINFO_

    3172. 

  3172.         _snprintf(pszStatckInfo,256,"CScript::ContinueRun() End.(ret1:%d)",eRet);

    3173. 

  3173. 		CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3174. 

  3174. #endif

    3175. 

  3175.         return eRet;

    3176. 

  3176.     }

    3177. 

  3177.     eRet  = RunStep();

    3178. 

  3178. #ifdef _RUNSTACKINFO_

    3179. 

  3179. 	_snprintf(pszStatckInfo,256,"CScript::ContinueRun() End.(ret2:%d)",eRet);

    3180. 

  3180. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3181. 

  3181. #endif

    3182. 

  3182.     return eRet;

    3183. 

  3183. }

    3184. 

  3184. 

    3185. 

  3185. //异步操作返回后继续执行call子句

    3186. 

  3186. enum CScript::SCRIPTRETURN CScript::ContinueRunCall(CVariableList* stackVarList)

    3187. 

  3187. {

    3188. 

  3188. #ifdef _RUNSTACKINFO_

    3189. 

  3189. 	char pszStatckInfo[1024]="";

    3190. 

  3190. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),"CScript::ContinueRunCall() Start");

    3191. 

  3191. #endif

    3192. 

  3192. 	SCRIPTRETURN eRet = SR_END;

    3193. 

  3193. 	eRet = m_pChildScriptInfo->pChildScript->ContinueRun(stackVarList);

    3194. 

  3194. 	if(eRet != SR_HANG)

    3195. 

  3195. 	{

    3196. 

  3196. 		//释放脚本资源

    3197. 

  3197. 		PushFreeScript(m_pChildScriptInfo->pChildScript);

    3198. 

  3198. 		LeaveChildScript(m_pChildScriptInfo->pChildScript);		

    3199. 

  3199. 	}

    3200. 

  3200. 	if(eRet == SR_RETURN)

    3201. 

  3201. 		eRet = SR_END;

    3202. 

  3202. #ifdef _RUNSTACKINFO_

    3203. 

  3203. 	_snprintf(pszStatckInfo,1024,"CScript::ContinueRunCall() End(ret:%d)",eRet);

    3204. 

  3204. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3205. 

  3205. #endif

    3206. 

  3206. 	return eRet;

    3207. 

  3207. }

    3208. 

  3208. 

    3209. 

  3209. //异步操作返回后继续执行call子句

    3210. 

  3210. enum CScript::SCRIPTRETURN CScript::ContinueRunCallEx(CVariableList* stackVarList)

    3211. 

  3211. {

    3212. 

  3212. #ifdef _RUNSTACKINFO_

    3213. 

  3213. 	char pszStatckInfo[1024]="";

    3214. 

  3214. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),"CScript::ContinueRunCallEx() Start");

    3215. 

  3215. #endif

    3216. 

  3216. 	SCRIPTRETURN eRet = SR_END;

    3217. 

  3217. 	eRet = m_pChildScriptInfo->pChildScript->ContinueRun(stackVarList);

    3218. 

  3218. 	if(eRet != SR_HANG)

    3219. 

  3219. 	{

    3220. 

  3220. 		m_pChildScriptInfo->pChildScript->ResetVariableList();

    3221. 

  3221. 		//释放脚本资源

    3222. 

  3222. 		PushFreeScript(m_pChildScriptInfo->pChildScript);

    3223. 

  3223. 		LeaveChildScript(m_pChildScriptInfo->pChildScript);		

    3224. 

  3224. 	}

    3225. 

  3225. 	if(eRet == SR_RETURN)

    3226. 

  3226. 		eRet = SR_END;

    3227. 

  3227. #ifdef _RUNSTACKINFO_

    3228. 

  3228. 	_snprintf(pszStatckInfo,1024,"CScript::ContinueRunCallEx() End(ret:%d)",eRet);

    3229. 

  3229. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3230. 

  3230. #endif

    3231. 

  3231. 	return eRet;

    3232. 

  3232. }

    3233. 

  3233. 

    3234. 

  3234. //异步操作返回后继续执行for子句

    3235. 

  3235. enum CScript::SCRIPTRETURN CScript::ContinueRunFor(CVariableList* stackVarList)

    3236. 

  3236. {

    3237. 

  3237. #ifdef _RUNSTACKINFO_

    3238. 

  3238.     char pszStatckInfo[1024]="";

    3239. 

  3239. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),"CScript::ContinueRunFor() Start");

    3240. 

  3240. #endif

    3241. 

  3241. 

    3242. 

  3242.     SCRIPTRETURN eRet = SR_END;

    3243. 

  3243. 	eRet = m_pChildScriptInfo->pChildScript->ContinueRun(stackVarList);

    3244. 

  3244. 	if(eRet == SR_HANG)

    3245. 

  3245. 	{

    3246. 

  3246. 		SetIsHang(true);

    3247. 

  3247. 		SetHangFunc(m_pChildScriptInfo->pChildScript->GetHangFunc());

    3248. 

  3248. #ifdef _RUNSTACKINFO_

    3249. 

  3249. 		_snprintf(pszStatckInfo,1024,"SCRIPTRETURN CScript::ContinueRunFor() End1(ret:%d)",eRet);

    3250. 

  3250. 		CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3251. 

  3251. #endif

    3252. 

  3252. 		return eRet;

    3253. 

  3253. 	}

    3254. 

  3254. 	//离开子脚本

    3255. 

  3255.     CScript *forScript = m_pChildScriptInfo->pChildScript;

    3256. 

  3256.     char szCountCmd[MAX_STACK_CMD_LEN]="";

    3257. 

  3257.     char szMaxCmd[MAX_STACK_CMD_LEN]="";

    3258. 

  3258.     strncpy(szCountCmd,m_pChildScriptInfo->pszPreOp,MAX_STACK_CMD_LEN);

    3259. 

  3259.     strncpy(szMaxCmd,m_pChildScriptInfo->pszCon,MAX_STACK_CMD_LEN);

    3260. 

  3260. 

    3261. 

  3261.     LeaveChildScript(m_pChildScriptInfo->pChildScript);		

    3262. 

  3262.     if(eRet == SR_FORBREAK || eRet == SR_RETURN || eRet == SR_ERROR)

    3263. 

  3263.     {

    3264. 

  3264.         if(eRet == SR_FORBREAK)

    3265. 

  3265.             eRet= SR_END;

    3266. 

  3266.         PushFreeScript(forScript);

    3267. 

  3267. #ifdef _RUNSTACKINFO_

    3268. 

  3268. 		_snprintf(pszStatckInfo,1024,"SCRIPTRETURN CScript::ContinueRunFor() End2(ret:%d)",eRet);

    3269. 

  3269. 		CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3270. 

  3270. #endif

    3271. 

  3271.         return eRet;

    3272. 

  3272.     }

    3273. 

  3273.     //如果eRet==SR_END or SR_FORCONTINUE,继续执行该脚本

    3274. 

  3274.     RunLine(szCountCmd);

    3275. 

  3275.     RunLine(szMaxCmd);

    3276. 

  3276.     while(1 == m_Value[0])

    3277. 

  3277.     {

    3278. 

  3278.         //重置当前指针

    3279. 

  3279.         forScript->ResetDataPos();

    3280. 

  3280.         //记录进入子脚本

    3281. 

  3281.         EnterChildScript(CST_FOR,forScript,szCountCmd,szMaxCmd);

    3282. 

  3282.         eRet =  forScript->RunStep();

    3283. 

  3283.         //只要该脚本不挂起，就记录离开子脚本

    3284. 

  3284.         if(eRet != CScript::SR_HANG)

    3285. 

  3285. 			LeaveChildScript(forScript);

    3286. 

  3286. 		//脚本挂起

    3287. 

  3287. 		if(eRet == CScript::SR_HANG)

    3288. 

  3288. 		{

    3289. 

  3289. 			SetIsHang(true);

    3290. 

  3290. 			SetHangFunc(forScript->GetHangFunc());

    3291. 

  3291. #ifdef _RUNSTACKINFO_

    3292. 

  3292. 			_snprintf(pszStatckInfo,1024,"SCRIPTRETURN CScript::ContinueRunFor() End3(ret:%d)",eRet);

    3293. 

  3293. 			CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3294. 

  3294. #endif

    3295. 

  3295. 			return eRet;

    3296. 

  3296. 		}

    3297. 

  3297. 		else if(eRet == CScript::SR_FORBREAK || eRet == CScript::SR_END)

    3298. 

  3298. 		{

    3299. 

  3299. 			break;

    3300. 

  3300. 		}

    3301. 

  3301. 		else if(eRet == CScript::SR_RETURN || eRet == CScript::SR_ERROR)

    3302. 

  3302. 		{

    3303. 

  3303. 			EndForScript(forScript);

    3304. 

  3304. #ifdef _RUNSTACKINFO_

    3305. 

  3305. 			_snprintf(pszStatckInfo,1024,"SCRIPTRETURN CScript::ContinueRunFor() End4(ret:%d)",eRet);

    3306. 

  3306. 			CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3307. 

  3307. #endif

    3308. 

  3308. 			return eRet;

    3309. 

  3309. 		}

    3310. 

  3310. 

    3311. 

  3311. 		//在retFlag ==  CScript::SR_FORCONTINUE或者其他况下，继续执行

    3312. 

  3312. 		RunLine(szCountCmd);

    3313. 

  3313. 		RunLine(szMaxCmd);

    3314. 

  3314. 	}

    3315. 

  3315.     EndForScript(forScript);

    3316. 

  3316. #ifdef _RUNSTACKINFO_

    3317. 

  3317. 	_snprintf(pszStatckInfo,1024,"SCRIPTRETURN CScript::ContinueRunFor() End5(ret:%d)",eRet);

    3318. 

  3318. 	CMessage::AsyWriteFile(GetGame()->GetStatckFileName(),pszStatckInfo);

    3319. 

  3319. #endif

    3320. 

  3320.     return eRet;

    3321. 

  3321. }

    3322. 

  3322. 

    3323. 

  3323. 

    3324. 

  3324. //初始化子脚本数据

    3325. 

  3325. void CScript::InitChildScriptData(CScript *pChildScript)

    3326. 

  3326. {

    3327. 

  3327.     pChildScript->m_dwLastTime=0;

    3328. 

  3328.     pChildScript->SetPlayerID(GetPlayerID());

    3329. 

  3329.     pChildScript->SetRegion(GetRegion());

    3330. 

  3330.     pChildScript->SetSrcShape(GetSrcShape());

    3331. 

  3331.     pChildScript->SetDesShape(GetDesShape());

    3332. 

  3332.     pChildScript->SetUsedItemID(GetUsedItemID());

    3333. 

  3333.     pChildScript->SetDropGoodsPoint(GetDropGoodsPoint());

    3334. 

  3334.     pChildScript->SetID(GetID());

    3335. 

  3335. }

    3336. 

  3336. 

    3337. 

  3337. //记录进入子脚本

    3338. 

  3338. //必须和LeaveChildScript函数成对的调用 

    3339. 

  3339. void CScript::EnterChildScript(eCST eType,CScript* pChildScript,const char* pszPreOp,const char* pszCon)

    3340. 

  3340. {

    3341. 

  3341.     if(m_pChildScriptInfo != NULL)

    3342. 

  3342.     {

    3343. 

  3343.         //output the error info

    3344. 

  3344.         char strErrorInfo[1024]="";

    3345. 

  3345.         _snprintf(strErrorInfo,256,"error(scriptname:%s),enter the child script,the variable  is not null.",m_FileName);

    3346. 

  3346.         PutDebugString(strErrorInfo);

    3347. 

  3347.         MP_DELETE(m_pChildScriptInfo);

    3348. 

  3348.     }

    3349. 

  3349.     m_pChildScriptInfo = MP_NEW tagChilScriptInfo;

    3350. 

  3350.     m_pChildScriptInfo->eType = eType;

    3351. 

  3351.     m_pChildScriptInfo->pChildScript = pChildScript;

    3352. 

  3352.     strncpy(m_pChildScriptInfo->pszPreOp,pszPreOp,MAX_STACK_CMD_LEN);

    3353. 

  3353.     strncpy(m_pChildScriptInfo->pszCon,pszCon,MAX_STACK_CMD_LEN);

    3354. 

  3354. }

    3355. 

  3355. void CScript::LeaveChildScript(CScript* pChildScript)

    3356. 

  3356. {

    3357. 

  3357.     if(m_pChildScriptInfo == NULL || m_pChildScriptInfo->pChildScript != pChildScript)

    3358. 

  3358.     {

    3359. 

  3359.         //output the error info

    3360. 

  3360.         char strErrorInfo[1024]="";

    3361. 

  3361.         _snprintf(strErrorInfo,256,"error(scriptname:%s),leave the child script,the variable  is not equals.",m_FileName);

    3362. 

  3362.         PutDebugString(strErrorInfo);

    3363. 

  3363.     }

    3364. 

  3364.     MP_DELETE(m_pChildScriptInfo);

    3365. 

  3365. }

    3366. 

  3366. 

    3367. 

  3367. void CScript:: ResetChildScriptInfo()

    3368. 

  3368. {

    3369. 

  3369.     if(m_pChildScriptInfo != NULL)

    3370. 

  3370.     {

    3371. 

  3371.         //output the error info

    3372. 

  3372.         char strErrorInfo[1024]="";

    3373. 

  3373.         _snprintf(strErrorInfo,256,"error(scriptname:%s),reset the child script,the variable  is not equals.",m_FileName);

    3374. 

  3374.         PutDebugString(strErrorInfo);

    3375. 

  3375.         m_pChildScriptInfo = NULL;

    3376. 

  3376.     }

    3377. 

  3377. }

    3378. 

  3378. 

    3379. 

  3379. 

    3380. 

  3380. CScript* CScript::BeginForScript(char* pScriptData)

    3381. 

  3381. {

    3382. 

  3382.     CScript* tempScript = PopFreeScript("for");

    3383. 

  3383.     InitChildScriptData(tempScript);

    3384. 

  3384.     // 加载脚本内容

    3385. 

  3385.     if(tempScript)

    3386. 

  3386.     {

    3387. 

  3387.         tempScript->LoadScript(NULL, pScriptData);

    3388. 

  3388.         tempScript->SetVariableList(GetVariableList());

    3389. 

  3389.     }

    3390. 

  3390.     return tempScript;

    3391. 

  3391. }

    3392. 

  3392. 

    3393. 

  3393. void CScript::EndForScript(CScript* forScript)//外部调用脚本

    3394. 

  3394. {

    3395. 

  3395.     PushFreeScript(forScript);

    3396. 

  3396. }

    3397. 

  3397. 

    3398. 

  3398. void	CScript::SetSrcShapeEx(CShape* pShape)

    3399. 

  3399. {

    3400. 

  3400.    SetSrcShape(pShape);

    3401. 

  3401.     //设置脚本变量名值

    3402. 

  3402.     GetVariableList()->AddVar("$ParamA", (DWORD)p_SrcShape);

    3403. 

  3403. }

    3404. 

  3404. 

    3405. 

  3405. 

    3406. 

  3406. void	CScript::SetRegion(CRegion* r)

    3407. 

  3407. {

    3408. 

  3408.     m_pRegion = r;

    3409. 

  3409.     if(m_pRegion)

    3410. 

  3410.         m_guRegionID = m_pRegion->GetExID();

    3411. 

  3411.     else

    3412. 

  3412.         m_guRegionID = NULL_GUID;

    3413. 

  3413. }

    3414. 

  3414. 

    3415. 

  3415. void    CScript::SetSrcShape(CShape* shape)

    3416. 

  3416. {

    3417. 

  3417.     p_SrcShape = shape;

    3418. 

  3418.     if(p_SrcShape)

    3419. 

  3419.     {

    3420. 

  3420.         m_lSrcType = p_SrcShape->GetType();

    3421. 

  3421.         m_guSrcID = p_SrcShape->GetExID();

    3422. 

  3422.     }

    3423. 

  3423.     else

    3424. 

  3424.     {

    3425. 

  3425.         m_lSrcType = 0;

    3426. 

  3426.         m_guSrcID = NULL_GUID;

    3427. 

  3427.     }

    3428. 

  3428. }

    3429. 

  3429. 

    3430. 

  3430. 

    3431. 

  3431. void    CScript::SetDesShape(CShape* shape)

    3432. 

  3432. {

    3433. 

  3433.     p_DesShape = shape;

    3434. 

  3434.     if(p_DesShape)

    3435. 

  3435.     {

    3436. 

  3436.         m_lDesType = p_DesShape->GetType();

    3437. 

  3437.         m_guDesID = p_DesShape->GetExID();

    3438. 

  3438.     }

    3439. 

  3439.     else

    3440. 

  3440.     {

    3441. 

  3441.         m_lDesType = 0;

    3442. 

  3442.         m_guDesID = NULL_GUID;

    3443. 

  3443.     }

    3444. 

  3444. }

    3445. 

  3445. 

    3446. 

  3446. //重新设置

    3447. 

  3447. void CScript::ResetShape()

    3448. 

  3448. {

    3449. 

  3449.     CServerRegion *pRegion = GetGame()->FindRegion(m_guRegionID);

    3450. 

  3450.     if(pRegion)

    3451. 

  3451.     {

    3452. 

  3452.         m_pRegion = pRegion;

    3453. 

  3453.         p_SrcShape = dynamic_cast<CShape*>(pRegion->FindChildObject(m_lSrcType,m_guSrcID));

    3454. 

  3454.         p_DesShape = dynamic_cast<CShape*>(pRegion->FindChildObject(m_lDesType,m_guDesID));

    3455. 

  3455.     }

    3456. 

  3456.     else

    3457. 

  3457.     {

    3458. 

  3458.         m_pRegion = NULL;

    3459. 

  3459.         p_SrcShape = NULL;

    3460. 

  3460.         p_DesShape = NULL;

    3461. 

  3461.     }

    3462. 

  3462. }

    3463. 

  3463. 

    3464. 

  3464. 

    3465. 

  3465. void	CScript::SetSkillEx(CBaseModule *pSkill)

    3466. 

  3466. {

    3467. 

  3467.     //设置脚本变量名值

    3468. 

  3468.     GetVariableList()->AddVar("$ParamS",(DWORD)pSkill);

    3469. 

  3469. }

    3470. 

  3470. void	 CScript::SetFireShapeEx(CShape* shape)

    3471. 

  3471. {

    3472. 

  3472.    //设置脚本变量名值

    3473. 

  3473.    GetVariableList()->AddVar("$ParamF",(DWORD)shape);

    3474. 

  3474. }

    3475. 

  3475. //执行一段字符串

    3476. 

  3476. enum CScript::SCRIPTRETURN CScript::RunStr(CMoveShape* pDest,const char* pszContent)

    3477. 

  3477. {

    3478. 

  3478.     SetDesShape(pDest);

    3479. 

  3479.     if( LoadScript(NULL, (char*)pszContent) )		//打开文件

    3480. 

  3480.     {

    3481. 

  3481.         GetVariableList()->AddVar("$ParamB", (DWORD)pDest);

    3482. 

  3482.         //返回值

    3483. 

  3483.         GetVariableList()->AddVar("$Ret", 0.0f);

    3484. 

  3484.         return RunStep();

    3485. 

  3485.     }

    3486. 

  3486.     return SR_ERROR;

    3487. 

  3487. }

    3488. 

  3488. 

    3489. 

  3489. 

    3490. 

  3490. int CScript::GetValueType(const char* pValue){

    3491. 

  3491.     if (*pValue=='\"')

    3492. 

  3492.         return VC_STRING;

    3493. 

  3493.     else

    3494. 

  3494.         return VC_VAR;

    3495. 

  3495. }

    3496. 

  3496. 

    3497. 

  3497. 

    3498. 

  3498. int CScript::DumpString(char* &pDest, long lDesLen, const char* pSrc)

    3499. 

  3499. {

    3500. 

  3500.     if (pSrc==NULL)

    3501. 

  3501.         return 0;

    3502. 

  3502. 

    3503. 

  3503.     int len=lstrlen(pSrc);

    3504. 

  3504. 

    3505. 

  3505.     if(pDest!=0)

    3506. 

  3506.         M_FREE(pDest, lDesLen);

    3507. 

  3507.     pDest=(char*)M_ALLOC(sizeof(char)*(len+1));

    3508. 

  3508. 

    3509. 

  3509.     strcpy_s(pDest, len+1, pSrc);

    3510. 

  3510.     //	memcpy(pDest,pSrc,len+1);

    3511. 

  3511.     return len;

    3512. 

  3512. }

    3513. 

  3513. 

    3514. 

  3514. 

    3515. 

  3515. // 更新到WorldServer

    3516. 

  3516. bool CScript::UpdateToWorldServer(const char* strVarName, int pos, double nValue)

    3517. 

  3517. {

    3518. 

  3518. 	if(!strVarName) return false;

    3519. 

  3519. 	CMessage msg(MSG_S2W_SERVER_CHANGE_SCRIPT_VARIABLE);

    3520. 

  3520. 	msg.Add((char*)strVarName);

    3521. 

  3521. 	msg.Add((BYTE)eVarNumber); // 0 数值

    3522. 

  3522. 	msg.Add((long)pos);

    3523. 

  3523. 	msg.Add((LONG64)(*(LONG64*)&nValue));

    3524. 

  3524. 	msg.Send();

    3525. 

  3525. 	return true;

    3526. 

  3526. }

    3527. 

  3527. bool CScript::UpdateToWorldServer(const char* strVarName, const char* szValue)	// 更新到WorldServer

    3528. 

  3528. {

    3529. 

  3529. 	if(!strVarName || !szValue) return false;

    3530. 

  3530. 	CMessage msg(MSG_S2W_SERVER_CHANGE_SCRIPT_VARIABLE);

    3531. 

  3531. 	msg.Add(strVarName);

    3532. 

  3532. 	msg.Add((BYTE)eVarString); // 1 字符串

    3533. 

  3533. 	msg.Add(szValue);

    3534. 

  3534. 	msg.Send();

    3535. 

  3535. 	return true;

    3536. 

  3536. }

    3537. 

  3537. bool CScript::UpdateToWorldServer(const char* strVarName, const CGUID& guid)		 // 更新"@"到WorldServer

    3538. 

  3538. {

    3539. 

  3539. 	if(!strVarName) return false;

    3540. 

  3540. 	CMessage msg(MSG_S2W_SERVER_CHANGE_SCRIPT_VARIABLE);

    3541. 

  3541. 	msg.Add(strVarName);

    3542. 

  3542. 	msg.Add((BYTE)eVarGuid); // 2 guid

    3543. 

  3543. 	msg.Add(guid);

    3544. 

  3544. 	msg.Send();

    3545. 

  3545. 	return true;

    3546. 

  3546. }

    3547. 

  3547. // [070608 AHC]

    3548. 

  3548. bool CScript::SetAttr(OBJECT_TYPE type, const CGUID& entityID, std::string& attrName, double value)

    3549. 

  3549. {

    3550. 

  3550.     CMoveShape* shape = GetGame()->FindShape(type, entityID);

    3551. 

  3551.     if(shape)

    3552. 

  3552.         return shape->SetAttribute(attrName, value);

    3553. 

  3553. 

    3554. 

  3554.     return false;

    3555. 

  3555. }

    3556. 

  3556. double CScript::GetAttr(OBJECT_TYPE type, const CGUID& entityID, std::string& attrName)

    3557. 

  3557. {

    3558. 

  3558.     CMoveShape* shape = GetGame()->FindShape(type, entityID);

    3559. 

  3559.     if(shape)

    3560. 

  3560.         return shape->GetAttribute(attrName);

    3561. 

  3561. 

    3562. 

  3562.     return INVILID_VALUE;

    3563. 

  3563. }

    3564. 

  3564. bool CScript::ChangeAttr(OBJECT_TYPE type, const CGUID& entityID, std::string& attrName, double value)

    3565. 

  3565. {

    3566. 

  3566.     CMoveShape* shape = GetGame()->FindShape(type, entityID);

    3567. 

  3567.     if(shape)

    3568. 

  3568.     {

    3569. 

  3569.         shape->ChangeAttribute(attrName, value);

    3570. 

  3570.         shape->UpdateAttribute();

    3571. 

  3571.         return true;

    3572. 

  3572.     }

    3573. 

  3573. 

    3574. 

  3574.     return false;

    3575. 

  3575. }

    3576. 

  3576. 

    3577. 

  3577. bool CScript::SetMoveShapeAttrEx(DWORD entityPtr, std::string& attrName, double value)

    3578. 

  3578. {

    3579. 

  3579. 		CMoveShape* pMoveShape = ((CMoveShape*)entityPtr);

    3580. 

  3580.         if(pMoveShape)

    3581. 

  3581.         {

    3582. 

  3582. 			if(pMoveShape->GetType() == TYPE_PLAYER)

    3583. 

  3583. 			{

    3584. 

  3584. 				CPlayer *pPlayer = (CPlayer*)(pMoveShape);

    3585. 

  3585. 				char pszTempt[32]="";

    3586. 

  3586. 				if(attrName == "OccuLvl")

    3587. 

  3587. 				{

    3588. 

  3588. 					_snprintf(pszTempt,32,"OccuLvl%d",pPlayer->GetOccupation());

    3589. 

  3589. 					attrName = pszTempt;

    3590. 

  3590. 				}

    3591. 

  3591. 				else if(attrName == "OccuExp")

    3592. 

  3592. 				{

    3593. 

  3593. 					_snprintf(pszTempt,32,"OccuExp%d",pPlayer->GetOccupation());

    3594. 

  3594. 					attrName = pszTempt;

    3595. 

  3595. 				}

    3596. 

  3596. 				else if(attrName == "OccuSP")

    3597. 

  3597. 				{

    3598. 

  3598. 					_snprintf(pszTempt,32,"OccuSP%d",pPlayer->GetOccupation());

    3599. 

  3599. 					attrName = pszTempt;

    3600. 

  3600. 				}

    3601. 

  3601. 			}

    3602. 

  3602. 

    3603. 

  3603.             bool ret = pMoveShape->SetAttribute(attrName, value);

    3604. 

  3604.             pMoveShape->UpdateAttribute();

    3605. 

  3605.             return ret;

    3606. 

  3606.         }

    3607. 

  3607.     return false;

    3608. 

  3608. }

    3609. 

  3609. double CScript::GetMoveShapeAttrEx(DWORD entityPtr, std::string& attrName)

    3610. 

  3610. {

    3611. 

  3611. 		CMoveShape *pMoveShape = (CMoveShape*)entityPtr;

    3612. 

  3612. 		if (pMoveShape)

    3613. 

  3613. 		{

    3614. 

  3614. 			if(pMoveShape->GetType() == TYPE_PLAYER)

    3615. 

  3615. 			{

    3616. 

  3616. 				CPlayer *pPlayer = (CPlayer*)(pMoveShape);

    3617. 

  3617. 				char pszTempt[32]="";

    3618. 

  3618. 				if(attrName == "OccuLvl")

    3619. 

  3619. 				{

    3620. 

  3620. 					_snprintf(pszTempt,32,"OccuLvl%d",pPlayer->GetOccupation());

    3621. 

  3621. 					attrName = pszTempt;

    3622. 

  3622. 				}

    3623. 

  3623. 				else if(attrName == "OccuExp")

    3624. 

  3624. 				{

    3625. 

  3625. 					_snprintf(pszTempt,32,"OccuExp%d",pPlayer->GetOccupation());

    3626. 

  3626. 					attrName = pszTempt;

    3627. 

  3627. 				}

    3628. 

  3628. 				else if(attrName == "OccuSP")

    3629. 

  3629. 				{

    3630. 

  3630. 					_snprintf(pszTempt,32,"OccuSP%d",pPlayer->GetOccupation());

    3631. 

  3631. 					attrName = pszTempt;

    3632. 

  3632. 				}

    3633. 

  3633. 			}

    3634. 

  3634. 			return pMoveShape->GetAttribute(attrName);

    3635. 

  3635. 		}

    3636. 

  3636.     return INVILID_VALUE;

    3637. 

  3637. }

    3638. 

  3638. bool CScript::ChangeMoveShapeAttrEx(DWORD entityPtr, std::string& attrName, double value)

    3639. 

  3639. {

    3640. 

  3640. 		CMoveShape* pMoveShape = ((CMoveShape*)entityPtr);

    3641. 

  3641.         if(pMoveShape)

    3642. 

  3642.         {

    3643. 

  3643. 			if(pMoveShape->GetType() == TYPE_PLAYER)

    3644. 

  3644. 			{

    3645. 

  3645. 				CPlayer *pPlayer = (CPlayer*)(pMoveShape);

    3646. 

  3646. 				char pszTempt[32]="";

    3647. 

  3647. 				if(attrName == "OccuLvl")

    3648. 

  3648. 				{

    3649. 

  3649. 					_snprintf(pszTempt,32,"OccuLvl%d",pPlayer->GetOccupation());

    3650. 

  3650. 					attrName = pszTempt;

    3651. 

  3651. 				}

    3652. 

  3652. 				else if(attrName == "OccuExp")

    3653. 

  3653. 				{

    3654. 

  3654. 					_snprintf(pszTempt,32,"OccuExp%d",pPlayer->GetOccupation());

    3655. 

  3655. 					attrName = pszTempt;

    3656. 

  3656. 				}

    3657. 

  3657. 				else if(attrName == "OccuSP")

    3658. 

  3658. 				{

    3659. 

  3659. 					_snprintf(pszTempt,32,"OccuSP%d",pPlayer->GetOccupation());

    3660. 

  3660. 					attrName = pszTempt;

    3661. 

  3661. 				}

    3662. 

  3662. 			}

    3663. 

  3663. 

    3664. 

  3664.             pMoveShape->ChangeAttribute(attrName, value);

    3665. 

  3665.             pMoveShape->UpdateAttribute();

    3666. 

  3666.             return true;

    3667. 

  3667.         }

    3668. 

  3668.     return false;

    3669. 

  3669. }

    3670. 

  3670. 

    3671. 

  3671. int CScript::GetVarValue(const char* str,int num)

    3672. 

  3672. {

    3673. 

  3673.     int nRet = GetVariableList()->GetVarValue(str, 0);

    3674. 

  3674.     if(nRet == CVariableList::VAR_NOT_FOUND)

    3675. 

  3675.         return 0;

    3676. 

  3676.     return nRet;

    3677. 

  3677. }

    3678. 

  3678. int CScript::SetScriptVarValue(CMoveShape* moveShapePtr, const char* varName, const char* value)

    3679. 

  3679. {

    3680. 

  3680.     int retFlag = GetVariableList()->SetVarValue(varName, value);

    3681. 

  3681.     if(retFlag == CVariableList::VAR_NOT_FOUND && moveShapePtr)

    3682. 

  3682.         retFlag = moveShapePtr->GetVariableList()->SetVarValue(varName, value);

    3683. 

  3683. 	if(retFlag == CVariableList::VAR_NOT_FOUND)

    3684. 

  3684. 	{

    3685. 

  3685. 		if(CScript::GetGeneralVariableList())

    3686. 

  3686. 			retFlag = CScript::GetGeneralVariableList()->SetVarValue(varName, value);

    3687. 

  3687. 		if(1 == retFlag)

    3688. 

  3688. 			CScript::UpdateToWorldServer(varName, value);

    3689. 

  3689. 	}

    3690. 

  3690. 

    3691. 

  3691.     return retFlag;

    3692. 

  3692. }

    3693. 

  3693. int CScript::SetScriptVarValue(CMoveShape* moveShapePtr, const char* varName, long lArray, double value)

    3694. 

  3694. {

    3695. 

  3695.     int retFlag = GetVariableList()->SetVarValue(varName, lArray, value);

    3696. 

  3696.     if(retFlag == CVariableList::VAR_NOT_FOUND && moveShapePtr)

    3697. 

  3697.         retFlag = moveShapePtr->GetVariableList()->SetVarValue(varName, lArray, value);

    3698. 

  3698.     if(retFlag == CVariableList::VAR_NOT_FOUND)

    3699. 

  3699. 	{

    3700. 

  3700. 		if(CScript::GetGeneralVariableList())

    3701. 

  3701. 			retFlag = CScript::GetGeneralVariableList()->SetVarValue(varName, lArray, value);

    3702. 

  3702. 		if(1 == retFlag)

    3703. 

  3703. 			CScript::UpdateToWorldServer(varName, lArray, value);

    3704. 

  3704. 	}

    3705. 

  3705. 

    3706. 

  3706.     return retFlag;

    3707. 

  3707. }

    3708. 

  3708. 

    3709. 

  3709. const char* CScript::GetScriptVarValue(CMoveShape* moveShapePtr, const char* varName)

    3710. 

  3710. {

    3711. 

  3711.     const char* retStr = GetVariableList()->GetVarValue(varName);

    3712. 

  3712.     if(retStr == NULL && moveShapePtr)

    3713. 

  3713.         retStr = moveShapePtr->GetVariableList()->GetVarValue(varName);

    3714. 

  3714.     if(retStr == NULL)

    3715. 

  3715. 	{

    3716. 

  3716. 		if(CScript::GetGeneralVariableList())

    3717. 

  3717. 			retStr = CScript::GetGeneralVariableList()->GetVarValue(varName);

    3718. 

  3718. 	}

    3719. 

  3719. 

    3720. 

  3720.     return retStr;

    3721. 

  3721. }

    3722. 

  3722. double CScript::GetScriptVarValue(CMoveShape* moveShapePtr, const char* varName, long lArray)

    3723. 

  3723. {

    3724. 

  3724.     double retFlag = GetVariableList()->GetVarValue(varName, lArray);

    3725. 

  3725.     if(retFlag == CVariableList::VAR_NOT_FOUND && moveShapePtr)

    3726. 

  3726.         retFlag = moveShapePtr->GetVariableList()->GetVarValue(varName, lArray);

    3727. 

  3727.     if(retFlag == CVariableList::VAR_NOT_FOUND)

    3728. 

  3728. 	{

    3729. 

  3729. 		if(CScript::GetGeneralVariableList())

    3730. 

  3730. 			retFlag = CScript::GetGeneralVariableList()->GetVarValue(varName, lArray);

    3731. 

  3731. 	}

    3732. 

  3732. 

    3733. 

  3733.     return retFlag;

    3734. 

  3734. }

    3735. 

  3735. int CScript::SetScriptGuidValue(CMoveShape* moveShapePtr, const char* varName, const CGUID& guid)

    3736. 

  3736. {

    3737. 

  3737.     int retFlag = GetVariableList()->SetGuidValue(varName, &guid);

    3738. 

  3738.     if(retFlag == CVariableList::VAR_NOT_FOUND && moveShapePtr)

    3739. 

  3739. 	{

    3740. 

  3740. 		retFlag = moveShapePtr->GetVariableList()->SetGuidValue(varName, &guid);

    3741. 

  3741. 		if(moveShapePtr->GetType() == TYPE_PLAYER)

    3742. 

  3742. 			GetGame()->UpdateSavePlayer(moveShapePtr->GetExID(), SAVE_DETAIL_ATTRPROPERTY);

    3743. 

  3743. 	}

    3744. 

  3744.     if(retFlag == CVariableList::VAR_NOT_FOUND)

    3745. 

  3745. 	{

    3746. 

  3746. 		if(CScript::GetGeneralVariableList())

    3747. 

  3747. 			retFlag = CScript::GetGeneralVariableList()->SetGuidValue(varName, &guid);

    3748. 

  3748. 		if(1 == retFlag)

    3749. 

  3749. 			CScript::UpdateToWorldServer(varName, guid);

    3750. 

  3750. 	}

    3751. 

  3751. 

    3752. 

  3752.     return retFlag;

    3753. 

  3753. }

    3754. 

  3754. const CGUID& CScript::GetScriptGuidValue(CMoveShape* moveShapePtr, const char* varName)

    3755. 

  3755. {	

    3756. 

  3756. 	const CGUID &localGUID = GetVariableList()->GetGuidValue(varName);

    3757. 

  3757. 	if( localGUID != NULL_GUID )

    3758. 

  3758. 	{

    3759. 

  3759. 		return localGUID;

    3760. 

  3760. 	}

    3761. 

  3761. 	if( moveShapePtr != NULL )

    3762. 

  3762. 	{

    3763. 

  3763. 		const CGUID &shapeGUID = moveShapePtr->GetVariableList()->GetGuidValue( varName );

    3764. 

  3764. 		if( shapeGUID != NULL_GUID )

    3765. 

  3765. 		{

    3766. 

  3766. 			return shapeGUID;

    3767. 

  3767. 		}

    3768. 

  3768. 	}

    3769. 

  3769. 

    3770. 

  3770. 	if(CScript::GetGeneralVariableList())

    3771. 

  3771. 		return CScript::GetGeneralVariableList()->GetGuidValue(varName);

    3772. 

  3772. 

    3773. 

  3773.     return NULL_GUID;

    3774. 

  3774. }
    3775.