开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
KStepLuaScript.cpp
资源名称：SwordOnline.rar　[点击查看]
上传用户：dzyhzl
上传日期：2019-04-29
资源大小：56270k
文件大小：8k
源码类别：

模拟服务器

开发平台：

C/C++

KStepLuaScript.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. // Sword3 Engine (c) 1999-2000 by Kingsoft
  3. // 
  4. // File: KStepLuaScript.cpp
  5. // Date: 2001-9-13 10:33:29
  6. // Code: Romandou
  7. // Desc:
  8. //---------------------------------------------------------------------------
  9. #include "KWin32.h"
  10. #include "KEngine.h"
  11. #include "KDebug.h"
  12. #include "KStepLuaScript.h"
  13. #include "LuaLib.h"
  14. #include "string.h"
  15. #include "KScriptList.h"
  17. #define CANCOMPILETOLUB //是否支持lub文件也就是为单机版服务的将某些指令IF 语句换成GOTO的功能
  18. //---------------------------------------------------------------------------
  19. // 函数: KStepLuaScript::KStepLuaScript
  20. // 功能:
  21. // 参数: void
  22. // 返回:
  23. //---------------------------------------------------------------------------
  24. KStepLuaScript::KStepLuaScript(void)
  25. {
  26. m_CurLine = 0;
  27. m_BufLen = 0;
  28. m_CurPos = 0;
  29. m_FirstExecuteLine = 0;
  30. m_EndExecuteLine = 0;
  31. m_pMsgQueue = NULL;
  33. strcpy(m_szWaitingMsg, "");
  34. }
  36. //---------------------------------------------------------------------------
  37. // 函数: KStepLuaScript::KStepLuaScript
  38. // 功能:
  39. // 参数: int StackSize
  40. // 返回:
  41. //---------------------------------------------------------------------------
  42. KStepLuaScript::KStepLuaScript(int StackSize = 0)
  43. {
  44. m_CurLine = 0;
  45. m_BufLen = 0;
  46. m_CurPos = 0;
  47. m_FirstExecuteLine = 0;
  48. m_EndExecuteLine = 0;
  49. m_pMsgQueue = NULL;
  50. }
  53. //---------------------------------------------------------------------------
  54. // 函数: KStepLuaScript::~KStepLuaScript
  55. // 功能:
  56. // 参数: void
  57. // 返回:
  58. //---------------------------------------------------------------------------
  59. KStepLuaScript::~KStepLuaScript(void)
  60. {
  61. m_Memory.Free();
  62. }
  64. BOOL KStepLuaScript::GetNextLine(LPBYTE lpByte, char * szLine)
  65. {
  66. long nCurPos;
  67. long i = 0;
  69. nCurPos = m_CurPos;
  70. while(1)
  71. {
  72. if (nCurPos >= m_BufLen)
  73. {
  74. szLine[i ++] = 13;
  75. szLine[i ++] = 'n';
  76. break;
  77. }
  79. if (lpByte[nCurPos] == 'n')
  80. {
  81. if (i == 0) {nCurPos++; continue;}
  82. szLine[i] = 'n';
  83. break;
  85. }
  87. szLine[i ++] = lpByte[nCurPos++];
  88. }
  89. if (i)
  90. {
  91. szLine[i] = ''; // i - 1 old
  92. m_CurPos = nCurPos + 1;
  93. return TRUE;
  94. }
  95. return FALSE;
  96. }
  98. BOOL KStepLuaScript::Load(LPSTR szFileName)
  99. {
  101. if (!szFileName)
  102. return FALSE;
  104. strcpy(m_szFilename,szFileName);
  105. SetScriptName( szFileName);
  107. #ifdef CANCOMPILETOLUB
  108. KLubCmpl_Blocker blocker;
  109. KLineNode * pIfLine = blocker.Load(szFileName);
  111. KLineNode * pExitLine = new KLineNode; 
  112. char  szExit[10];
  113. strcpy(szExit,"Exit();n");
  114. pExitLine->m_pLineMem = new KMemClass1;
  115. pExitLine->m_pLineMem->Alloc(strlen(szExit));
  116. strcpy((char *)pExitLine->m_pLineMem->GetMemPtr(), szExit);
  117. blocker.m_Lines.AddTail(pExitLine);
  119. blocker.ScanIf(pIfLine);
  120. KMemClass1 * pMem = NULL;
  122. int len = blocker.GetBuffer(pMem);
  123. if (len == 0) return FALSE;
  124. if (!GetExeBuffer(pMem->GetMemPtr(), len)) return FALSE;
  125. if (!KLuaScript::LoadBuffer((PBYTE)m_Memory.GetMemPtr(), len )) return FALSE;
  126. if (!ExecuteCode()) return FALSE;
  127. delete pExitLine;
  128. delete pMem;
  129. #else
  130. if (!GetExeBufferFromFile(szFileName))  return FALSE;
  131. if (!KLuaScript::LoadBuffer((PBYTE)m_Memory.GetMemPtr(), m_BufLen - 1))
  132. if (!ExecuteCode()) return FALSE;
  133. #endif
  134. return TRUE;
  135. }
  137. //执行该行语句
  138. BOOL KStepLuaScript::ExeLine(LPSTR szLine)
  139. {
  140. if (szLine)
  141. {
  142. if (lua_dostring(m_LuaState, szLine) == 0) return TRUE;
  143. }
  144. return FALSE;
  145. }
  147. BOOL KStepLuaScript::CheckLine(LPSTR szLine)//检查将执行的Lua语句是否符合条件，如不能有for goto 
  148. {
  149. return TRUE;
  150. }
  152. BOOL KStepLuaScript::GetExeBufferFromFile(char * FileName)//获得当前文件中执行段的语句
  153. {
  154. KPakFile File;
  155. DWORD Size;
  157. // open file
  158. if (!File.Open(FileName))
  159. return FALSE;
  161. // get file size
  162. Size = File.Size();
  164. // alloc memory
  165. if (! m_Memory.Alloc(Size))
  166. return FALSE;
  168. // read file
  169. if (File.Read(m_Memory.GetMemPtr(), Size) != Size)
  170. return FALSE;
  172. File.Close();
  174. ((char*)m_Memory.GetMemPtr())[Size] = 13;
  175.     ((char*)m_Memory.GetMemPtr())[Size + 1] = 'n';
  176. ((char*)m_Memory.GetMemPtr())[Size + 2] = 0;
  178. // set buffer length
  179. m_BufLen = Size + 3;//m_Memory.GetMemLen();
  181. // set cursor position
  182. m_CurPos = 0;
  184. char szLine[100];
  185. long nCurPos = 0;
  187. LPBYTE lpByte;
  188. lpByte = (LPBYTE) m_Memory.GetMemPtr();
  190. while(1)
  191. {
  192. nCurPos = m_CurPos;
  193. if (!GetNextLine(lpByte, szLine))
  194. break;
  196. if(strstr(szLine,MainBlockBeginString))
  197. {
  198. m_FirstExecuteLine = m_CurPos;
  199. break;
  200. }
  202. }
  204. while(1)
  205. {
  206. nCurPos = m_CurPos;
  207. if (!GetNextLine(lpByte, szLine))
  208. break;
  209. if(strstr(szLine,MainBlockEndString))
  210. {
  211. m_EndExecuteLine = nCurPos;
  212. break;
  213. }
  214. }
  216. if ((m_FirstExecuteLine * m_EndExecuteLine) == 0)
  217. return FALSE;
  219. return TRUE;
  221. }
  222. //从Buffer中获得代码
  223. BOOL KStepLuaScript::GetExeBuffer(void * szScriptBuffer, int nLen)//获得执行段的语句
  224. {
  225. char szLine[100];
  226. long nCurPos = 0;
  228. LPBYTE lpByte;
  230. long Size = nLen;
  231. m_BufLen = Size + 3;//m_Memory.GetMemLen();
  232. if (!m_Memory.Alloc(Size+16))
  233. return FALSE;
  235. g_MemCopy(m_Memory.GetMemPtr(), szScriptBuffer, nLen);
  237. lpByte = (LPBYTE)m_Memory.GetMemPtr();
  238. m_CurPos = 0;
  240. while(1)
  241. {
  242. nCurPos = m_CurPos;
  243. if (!GetNextLine(lpByte, szLine))
  244. break;
  245. if(strstr(szLine,MainBlockBeginString))
  246. {
  247. m_FirstExecuteLine = m_CurPos;
  248. break;
  249. }
  251. }
  253. while(1)
  254. {
  255. nCurPos = m_CurPos;
  256. if (!GetNextLine(lpByte, szLine))
  257. break;
  258. if(strstr(szLine,MainBlockEndString))
  259. {
  260. m_EndExecuteLine = nCurPos;
  261. break;
  262. }
  264. }
  266. if ((m_FirstExecuteLine * m_EndExecuteLine) == 0)
  267. return FALSE;
  269. return TRUE;
  271. }
  274. int KStepLuaScript::Active()
  275. {
  276. char szLine[100];
  277. long nCurPos = 0;
  278. int index = 0;
  280. TScriptMsg * pNode = m_pMsgQueue;
  282. while(pNode)
  283. {
  284. char MsgFuncName[40];
  285. sprintf(MsgFuncName, "On%s", (char *)pNode->szMessage);
  286. if (!CallFunction(MsgFuncName, 0, "ds", (unsigned int)pNode->StateAddr,  pNode->szMsgData))
  287. {
  288. ;
  289. }
  291. if (IsRunWaitMsg())
  292. {
  293. if (!strcmp(pNode->szMessage, m_szWaitingMsg))
  294. RunMain();
  295. }
  297. TScriptMsg * pNode1 = pNode;
  298. pNode = pNode->NextMsg;
  299. delete pNode1;
  300. }
  302. m_pMsgQueue = NULL;
  303. if (IsRunIdle()) return 1;
  304. static int ii = 0;
  306. while(m_CurPos < m_EndExecuteLine && m_CurPos >= m_FirstExecuteLine)
  307. {
  308. nCurPos = m_CurPos;
  310. //等待消息中....
  311. if (IsRunWaitMsg()) return 0;
  313. if (GetNextLine((LPBYTE )m_Memory.GetMemPtr(), szLine))
  314. {
  315. lua_dostring(m_LuaState, szLine);
  316. lua_settop(m_LuaState, 0);
  317. }
  319. //还在执行某个语句时如npcgo，
  320. if (IsRunFunc())
  321. {
  322. m_CurPos = nCurPos;
  323. return 0;
  324. }
  326. if (IsRunResume())
  327. {
  328. RunMain();
  329. return 0;
  330. }
  332. if (IsRunIdle()) return 1;
  334. }
  335. RunIdle();
  336. return 1 ;
  337. }
  339. //上一行
  340. void KStepLuaScript::PosUp()
  341. {
  342. int nCurPos = m_CurPos - 2;
  344. long i = 0;
  345. if (nCurPos <= 0)  return;
  346. LPBYTE lpByte = (LPBYTE )m_Memory.GetMemPtr();
  348. while(nCurPos > 0)
  349. {
  350. if (lpByte[nCurPos --] == 'n')
  351. break;
  352. }
  353. m_CurPos = nCurPos + 2;
  354. }
  358. void KStepLuaScript::GotoLabel( LPSTR szLabelName)
  359. {
  360. int nCurPos = m_FirstExecuteLine;
  361. LPSTR lpByte = (LPSTR )m_Memory.GetMemPtr();
  362. char szLabel[50];
  363. sprintf(szLabel, "Label("%s")",szLabelName);
  365. char * szindex = strstr(lpByte,szLabel);
  367. if (szindex == NULL)
  368. {
  369. g_MessageBox("脚本错误: GotoLabel() = %s", szLabelName);
  370. return;
  371. }
  373. m_CurPos = szindex - lpByte;
  374. char  szLine[50];
  375. GetNextLine((LPBYTE)lpByte, szLine);
  376. }
  378. BOOL    KStepLuaScript::AddMessage(Lua_State * L, char * MessageName, char * szData)
  379. {
  381. if (strlen(MessageName) == 0)
  382. return FALSE;
  384. TScriptMsg * pMsg = new TScriptMsg;
  385. pMsg->szMessage = MessageName ;
  386. pMsg->szMsgData = szData;
  387. pMsg->StateAddr = L;
  388. pMsg->NextMsg = NULL;
  391. if (m_pMsgQueue == NULL)
  392. {
  393. m_pMsgQueue = pMsg;
  394. }
  395. else 
  396. {
  397. TScriptMsg * pNode = m_pMsgQueue;
  399. while(pNode)
  400. {
  401. TScriptMsg * pNode1 = pNode;
  402. pNode = pNode->NextMsg;
  403. if (pNode == NULL)
  404. {
  405. pNode1->NextMsg = pMsg;
  406. break;
  407. }
  409. }
  411. }
  413. return TRUE;
  415. }
  417. BOOL KStepLuaScript::SendMessage(KStepLuaScript * pSendedScript, char * szMessageName, char * szData)
  418. {
  420. if (pSendedScript == NULL)
  421. return FALSE;
  422. return pSendedScript->AddMessage( m_LuaState ,szMessageName, szData);
  424. }