064-移动到NPC处接指定任务(天龙八部经典版）游戏

yjxqq3003

1. --获取配置文件中....本场景自动寻路数据的起始与结束位置....
   
2. --参考 048-遍历传送点和NPC - test.lua
   
3. local print=myprint
   
4. local g_TabListDataTablePtr={}
   
5.          --MenuName 任务名
   
6.     function SelectNpcMenu(MenuName)
   
7.           local strType,strState,strScriptId,strExtra,strTemp
   
8.           --NPC对话框内 项的数量
   
9.           local nEventListNum = DataPool:GetNPCEventList_Num();
   
10.            print("数量",nEventListNum)
    
11.        for i=1, nEventListNum do
    
12.                  strType,strState,strScriptId,strExtra,strTemp = DataPool:GetNPCEventList_Item(i-1);
    
13.                  print(i,"NPC对话列表",strType,strState,strScriptId,strExtra,strTemp )
    
14.                    if strType=='id' and MenuName == strTemp then
    
15.                     print("选择",MenuName,tonumber(-1),tonumber(strScriptId),tonumber(strExtra))
    
16.                     QuestFrameOptionClicked(tonumber(-1),tonumber(strScriptId),tonumber(strExtra))
    
17.                     break;
    
18.                    end        
    
19.            end
    
20.           return strScriptId,strExtra,strTemp
    
21.         end
    
22.        
    
23. -- 城市   --1 全部，2功能，3商店，4任务
    
24. function GetPosForNpc(NpcName)
    
25.    
    
26.         local tabIndex=1 --全部
    
27.    
    
28.    print("开始遍历++++++++++++++")   
    
29.         local curTabType = TabIndex2TabType(tabIndex);
    
30.             local nStart, nEnd = DataPool:GetAutoSearchSceneStartEnd( GetSceneID() )
    
31.             print('nStart=',nStart,'nEnd=',nEnd)
    
32.                 if nStart == -1 then        return false;        end
    
33.                
    
34.                 --填充本场景自动寻路数据的ID和优先级到表格....
    
35. 
    
36. 
    
37.         local tblPriority = {};
    
38.                 local nCount = nEnd - nStart + 1;
    
39.                 local k = 1;
    
40.       
    
41.            for i=nStart, nEnd do
    
42.                 --print(i)
    
43.                     tblPriority[k] = {};
    
44.                         tblPriority[k].id = i;
    
45.                         tblPriority[k].pri = DataPool:GetAutoSearchPriority(i);
    
46.                         k = k + 1;
    
47.            end
    
48. 
    
49. 
    
50.                
    
51.                 --按优先级对表格进行排序....
    
52. 
    
53.                 --算法有点不好理解....策划要求权值相同的排序后相对位置不能改变....就先这么写了....
    
54. 
    
55.                 local temp1,temp2;
    
56. 
    
57.                 for m=nCount, 1, -1 do
    
58. 
    
59.                         for n=m-1, 1, -1 do
    
60. 
    
61.                                 if tblPriority[m].pri >= tblPriority[n].pri then
    
62. 
    
63.                                         temp1 = tblPriority[m].id;
    
64. 
    
65.                                         temp2 = tblPriority[m].pri;
    
66. 
    
67.                                         tblPriority[m].id = tblPriority[n].id;
    
68. 
    
69.                                         tblPriority[m].pri = tblPriority[n].pri;
    
70. 
    
71.                                         tblPriority[n].id = temp1;
    
72. 
    
73.                                         tblPriority[n].pri = temp2;
    
74. 
    
75.                                 end
    
76. 
    
77.                         end
    
78. 
    
79.                 end
    
80. 
    
81. 
    
82. 
    
83.                 --按排序后的ID顺序将自动寻路的数据加到本Tab页的自动寻路数据表中....
    
84. 
    
85.                 local curTabType = TabIndex2TabType(tabIndex);
    
86. 
    
87.                 local x, y, name, tooltips, info, tabtype;
    
88. 
    
89.                 k = 1;
    
90. 
    
91.                 for i=1, nCount do
    
92. 
    
93.                         x, y, name, tooltips, info, tabtype = DataPool:GetAutoSearch( tblPriority[nCount-i+1].id );
    
94. 
    
95.                         if 0 == curTabType or curTabType == tabtype then
    
96. 
    
97.                                 g_TabListDataTablePtr[k] = {};
    
98. 
    
99.                                 g_TabListDataTablePtr[k].ID = tblPriority[nCount-i+1].id;
    
100. 
     
101.                                 g_TabListDataTablePtr[k].nPosX = x;
     
102. 
     
103.                                 g_TabListDataTablePtr[k].nPosY = y;
     
104. 
     
105.                                 g_TabListDataTablePtr[k].strName = name;
     
106. 
     
107.                                 g_TabListDataTablePtr[k].strToolTips = tooltips;
     
108. 
     
109.                                 g_TabListDataTablePtr[k].strInfo = info;
     
110. 
     
111.                                 --g_TabListDataTablePtr[k].strInfo = tostring(tblPriority[nCount-i+1].pri).."，"..tostring(tblPriority[nCount-i+1].id);
     
112. 
     
113.                                 k = k + 1;
     
114. 
     
115.                         end
     
116. 
     
117.                 end
     
118. 
     
119. 
     
120. 
     
121.         --end --end of (if not g_TabListDataTablePtr then)
     
122. 
     
123. 
     
124.           local nTabListCount = table.getn( g_TabListDataTablePtr );
     
125.         ----PushDebugMessage("count ="..tostring(nTabListCount) )
     
126.     --print("nTabListCount=",nTabListCount)
     
127.         for i=1, nTabListCount do
     
128. 
     
129.                 --AutoSearch_List:AddNewItem( g_TabListDataTablePtr[i].strName, 0, i-1 );
     
130.                 --AutoSearch_List:AddNewItem( g_TabListDataTablePtr[i].strInfo, 1, i-1 );
     
131.                 --AutoSearch_List:SetRowTooltip( i-1, g_TabListDataTablePtr[i].strToolTips );
     
132.                 --g_TabListDataTablePtr[k].nPosX
     
133.                 local items=g_TabListDataTablePtr
     
134.                
     
135.                 if(NpcName==items[i].strName or  NpcName==items[i].strInfo  or NpcName==items[i].strToolTips  ) then
     
136.                
     
137.                   print(tostring(i),items[i].strName,items[i].strInfo,items[i].strToolTips,items[i].nPosX,items[i].nPosY)
     
138.                   
     
139.                   return items[i].nPosX,items[i].nPosY
     
140.                 end
     
141. 
     
142.         end
     
143.        
     
144. --]]
     
145. print("完成遍历++++++++++++++>>>")
     
146.                 return nil,nil ;       
     
147. 
     
148. end --function
     
149. 
     
150. function NpcDialogIsShow()
     
151. return Quest_Env.this:IsVisible()
     
152. end
     
153. 
     
154. function AutoRunToNpc(name)
     
155. 
     
156. local x,y=GetPosForNpc(name)
     
157. 
     
158.         --自动移动到指定位置
     
159.      print("AutoRunToNpc 自动移动到指定位置",name,x,y)
     
160.      SetAutoRunTargetNPCName(name)--如 SetAutoRunTargetNPCName"干光豪")
     
161.          local ret = AutoRunToTarget( x, y );
     
162. 
     
163.         if ret == 0 then
     
164.                 PushDebugMessage("自动寻路无法到达目标点") --无法移动到指定位置 自动寻路无法到达目标点
     
165.         end
     
166.        
     
167.         return NpcDialogIsShow; --非0表示可以到达
     
168. end
     
169. 
     
170. --local isok=AutoRunToNpc("干光豪")
     
171.   SelectNpcMenu("蜂毒")
     
172. print("OK+++++++++++++++++")
     

复制代码