我想把战斗查看状态修改成可以查看敌人和我方的,不用运行DIY文件,运行游戏出错 求解

fff71669

ldcr.lua 原始数据是
--战斗查看状态
function War_StatusMenu()
  WAR.ShowHead = 0
  Menu_Status()
  WAR.ShowHead = 1
  Cls()
end
我修改的数据是
function War_StatusMenu()
  WAR.ShowHead = 0
local menu={
     {"地图选点查看",CC.MapWatch,1},
         {"我方人员列表",CC.FriList,1},
         {"敌方人员列表",CC.EnemyList,1},
    };
  local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
  ShowMenu(menu,3, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
               
end
function CC.MapWatch()
local x = WAR.Person[WAR.CurID]["坐标X"];
  local y = WAR.Person[WAR.CurID]["坐标Y"];
  local page = 1
  War_CalMoveStep(WAR.CurID,128,1);
  WarDrawMap(1,x,y);
  ShowScreen();
  x,y=War_SelectMove()
  if x == nil then
   return
  end
  local i
  local id = 0
for i = 0,WAR.PersonNum do
  if WAR.Person["坐标X"] == x and WAR.Person["坐标Y"] == y and WAR.Person["死亡"] == false then
   id = WAR.Person["人物编号"]
   break;
  end
end
while true do
  Cls()
  ShowPersonStatus_sub(id,page)
  ShowScreen();
  local keypress = WaitKey()
  if keypress == VK_LEFT then
      page = page - 1;
     elseif keypress == VK_RIGHT then
      page = page + 1;
  elseif keypress == 27 then
     break
  end
end
end
function CC.FriList()
local menu = {};
local list = {}
local page = 1
for i = 1,WAR.PersonNum do
  if WAR.Person[i - 1]["我方"] == true and WAR.Person[i - 1]["死亡"] == false then
   menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
   list[#list + 1] = WAR.Person[i - 1]["人物编号"]
  end
end
Cls()
local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
if r < 1 then
  return
end
while true do
  Cls()
  ShowPersonStatus_sub(list[r],page)
  ShowScreen();
  local keypress = WaitKey()
  if keypress == VK_LEFT then
     page = page - 1;
     elseif keypress == VK_RIGHT then
     page = page + 1;
    elseif keypress == VK_UP then
     r = r - 1
    elseif keypress == VK_DOWN then
     r = r + 1
  elseif keypress == 27 then
     break
  end
  if r < 1 then
   r = 1
  end
  if r > #list then
   r = #list
  end
end
end
function CC.EnemyList()
local menu = {};
local list = {}
local page = 1
for i = 1,WAR.PersonNum do
  if WAR.Person[i - 1]["我方"] == false and WAR.Person[i - 1]["死亡"] == false then
   menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
   list[#list + 1] = WAR.Person[i - 1]["人物编号"]
  end
end
Cls()
local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
if r < 1 then
  return
end
local id = list[r]
while true do
  Cls()
  ShowPersonStatus_sub(list[r],page)
  ShowScreen();
  local keypress = WaitKey()
  if keypress == VK_LEFT then
     page = page - 1;
     elseif keypress == VK_RIGHT then
     page = page + 1;
    elseif keypress == VK_UP then
     r = r - 1
    elseif keypress == VK_DOWN then
     r = r + 1
  elseif keypress == 27 then
     break
  end
  if r < 1 then
   r = 1
  end
  if r > #list then
   r = #list
  end
end
  WAR.ShowHead = 1
  Cls()
end
能够进入新开游戏读档界面 但是下一步界面就出错了

二宫和也

回复 fff71669 的帖子

把以下代码黏贴到LDCR.lua的末尾试试，不用删掉原来的函数，运行的时候会自动覆盖；其实就是把原本的cc.xxx改成了local function xxx

代码出自http://www.txdx.net/forum.php?mod=viewthread&tid=529463&highlight=%D7%B4%CC%AC

1. 
   
2. local function MapWatch()
   
3.         local x = WAR.Person[WAR.CurID]["坐标X"];
   
4.   local y = WAR.Person[WAR.CurID]["坐标Y"];
   
5.   local page = 1
   
6.   War_CalMoveStep(WAR.CurID,128,1);
   
7.   WarDrawMap(1,x,y);
   
8.   ShowScreen();
   
9.   x,y=War_SelectMove()
   
10.   if x == nil then
    
11.           return
    
12.   end
    
13.   local i
    
14.   local id = 0
    
15.         for i = 0,WAR.PersonNum do
    
16.                 if WAR.Person[i]["坐标X"] == x and WAR.Person[i]["坐标Y"] == y and WAR.Person[i]["死亡"] == false then
    
17.                         id = WAR.Person[i]["人物编号"]
    
18.                         break;
    
19.                 end
    
20.         end
    
21.         while true do
    
22.                 Cls()
    
23.                 ShowPersonStatus_sub(id,page)
    
24.                 ShowScreen();
    
25.                 local keypress = WaitKey()
    
26.                 if keypress == VK_LEFT then
    
27.                     page = page - 1;
    
28.                    elseif keypress == VK_RIGHT then
    
29.                     page = page + 1;
    
30.                 elseif keypress == 27 then
    
31.                           break
    
32.                 end
    
33.         end
    
34. end
    
35. 
    
36. local function FriList()
    
37.         local menu = {};
    
38.         local list = {}
    
39.         local page = 1
    
40.         for i = 1,WAR.PersonNum do
    
41.                 if WAR.Person[i - 1]["我方"] == true and WAR.Person[i - 1]["死亡"] == false then
    
42.                         menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
    
43.                         list[#list + 1] = WAR.Person[i - 1]["人物编号"]
    
44.                 end
    
45.         end
    
46.         Cls()
    
47.         local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
    
48.         if r < 1 then
    
49.                 return
    
50.         end
    
51.         while true do
    
52.                 Cls()
    
53.                 ShowPersonStatus_sub(list[r],page)
    
54.                 ShowScreen();
    
55.                 local keypress = WaitKey()
    
56.                 if keypress == VK_LEFT then
    
57.                           page = page - 1;
    
58.                    elseif keypress == VK_RIGHT then
    
59.                           page = page + 1;
    
60.                   elseif keypress == VK_UP then
    
61.                           r = r - 1
    
62.                   elseif keypress == VK_DOWN then
    
63.                           r = r + 1
    
64.                 elseif keypress == 27 then
    
65.                           break
    
66.                 end
    
67.                 if r < 1 then
    
68.                         r = 1
    
69.                 end
    
70.                 if r > #list then
    
71.                         r = #list
    
72.                 end
    
73.         end
    
74. end
    
75. 
    
76. local function EnemyList()
    
77.         local menu = {};
    
78.         local list = {}
    
79.         local page = 1
    
80.         for i = 1,WAR.PersonNum do
    
81.                 if WAR.Person[i - 1]["我方"] == false and WAR.Person[i - 1]["死亡"] == false then
    
82.                         menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
    
83.                         list[#list + 1] = WAR.Person[i - 1]["人物编号"]
    
84.                 end
    
85.         end
    
86.         Cls()
    
87.         local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
    
88.         if r < 1 then
    
89.                 return
    
90.         end
    
91.         local id = list[r]
    
92.         while true do
    
93.                 Cls()
    
94.                 ShowPersonStatus_sub(list[r],page)
    
95.                 ShowScreen();
    
96.                 local keypress = WaitKey()
    
97.                 if keypress == VK_LEFT then
    
98.                           page = page - 1;
    
99.                    elseif keypress == VK_RIGHT then
    
100.                           page = page + 1;
     
101.                   elseif keypress == VK_UP then
     
102.                           r = r - 1
     
103.                   elseif keypress == VK_DOWN then
     
104.                           r = r + 1
     
105.                 elseif keypress == 27 then
     
106.                           break
     
107.                 end
     
108.                 if r < 1 then
     
109.                         r = 1
     
110.                 end
     
111.                 if r > #list then
     
112.                         r = #list
     
113.                 end
     
114.         end
     
115. end
     
116. 
     
117. function War_StatusMenu()          ---战斗中显示状态
     
118.         local menu={
     
119.                                  {"地图选点查看",MapWatch,1},
     
120.          {"我方人员列表",FriList,1},
     
121.          {"敌方人员列表",EnemyList,1},
     
122.                          };
     
123. 
     
124.   local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
     
125.   ShowMenu(menu,3, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
     
126.                
     
127. 
     
128. end

复制代码

fff71669

回复 二宫和也 的帖子

谢谢,我去试试看看

fff71669

终于搞定了嘿嘿
请把

1. function War_StatusMenu()
   
2.   WAR.ShowHead = 0
   
3.   Menu_Status()
   
4.   WAR.ShowHead = 1
   
5.   Cls()        
   
6. 
   
7. end

复制代码

改变成

1. 
   
2. function War_StatusMenu()          ---战斗中显示状态
   
3.         WAR.ShowHead = 0
   
4.   local function MapWatch()
   
5.         local x = WAR.Person[WAR.CurID]["坐标X"];
   
6.   local y = WAR.Person[WAR.CurID]["坐标Y"];
   
7.   local page = 1
   
8.   War_CalMoveStep(WAR.CurID,128,1);
   
9.   WarDrawMap(1,x,y);
   
10.   ShowScreen();
    
11.   x,y=War_SelectMove()
    
12.   if x == nil then
    
13.           return
    
14.   end
    
15.   local i
    
16.   local id = 0
    
17.         for i = 0,WAR.PersonNum do
    
18.                 if WAR.Person[i]["坐标X"] == x and WAR.Person[i]["坐标Y"] == y and WAR.Person[i]["死亡"] == false then
    
19.                         id = WAR.Person[i]["人物编号"]
    
20.                         break;
    
21.                 end
    
22.         end
    
23.         while true do
    
24.                 Cls()
    
25.                 ShowPersonStatus_sub(id,page)
    
26.                 ShowScreen();
    
27.                 local keypress = WaitKey()
    
28.                 if keypress == VK_LEFT then
    
29.                     page = page - 1;
    
30.                    elseif keypress == VK_RIGHT then
    
31.                     page = page + 1;
    
32.                 elseif keypress == 27 then
    
33.                           break
    
34.                 end
    
35.         end
    
36. end
    
37. local function FriList()
    
38.         local menu = {};
    
39.         local list = {}
    
40.         local page = 1
    
41.         for i = 1,WAR.PersonNum do
    
42.                 if WAR.Person[i - 1]["我方"] == true and WAR.Person[i - 1]["死亡"] == false then
    
43.                         menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
    
44.                         list[#list + 1] = WAR.Person[i - 1]["人物编号"]
    
45.                 end
    
46.         end
    
47.         Cls()
    
48.         local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
    
49.         if r < 1 then
    
50.                 return
    
51.         end
    
52.         while true do
    
53.                 Cls()
    
54.                 ShowPersonStatus_sub(list[r],page)
    
55.                 ShowScreen();
    
56.                 local keypress = WaitKey()
    
57.                 if keypress == VK_LEFT then
    
58.                           page = page - 1;
    
59.                    elseif keypress == VK_RIGHT then
    
60.                           page = page + 1;
    
61.                   elseif keypress == VK_UP then
    
62.                           r = r - 1
    
63.                   elseif keypress == VK_DOWN then
    
64.                           r = r + 1
    
65.                 elseif keypress == 27 then
    
66.                           break
    
67.                 end
    
68.                 if r < 1 then
    
69.                         r = 1
    
70.                 end
    
71.                 if r > #list then
    
72.                         r = #list
    
73.                 end
    
74.         end
    
75. end
    
76. local function EnemyList()
    
77.         local menu = {};
    
78.         local list = {}
    
79.         local page = 1
    
80.         for i = 1,WAR.PersonNum do
    
81.                 if WAR.Person[i - 1]["我方"] == false and WAR.Person[i - 1]["死亡"] == false then
    
82.                         menu[#menu + 1] = {JY.Person[WAR.Person[i - 1]["人物编号"]]["姓名"],nil,1}
    
83.                         list[#list + 1] = WAR.Person[i - 1]["人物编号"]
    
84.                 end
    
85.         end
    
86.         Cls()
    
87.         local r = ShowMenu(menu,#menu, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
    
88.         if r < 1 then
    
89.                 return
    
90.         end
    
91.         local id = list[r]
    
92.         while true do
    
93.                 Cls()
    
94.                 ShowPersonStatus_sub(list[r],page)
    
95.                 ShowScreen();
    
96.                 local keypress = WaitKey()
    
97.                 if keypress == VK_LEFT then
    
98.                           page = page - 1;
    
99.                    elseif keypress == VK_RIGHT then
    
100.                           page = page + 1;
     
101.                   elseif keypress == VK_UP then
     
102.                           r = r - 1
     
103.                   elseif keypress == VK_DOWN then
     
104.                           r = r + 1
     
105.                 elseif keypress == 27 then
     
106.                           break
     
107.                 end
     
108.                 if r < 1 then
     
109.                         r = 1
     
110.                 end
     
111.                 if r > #list then
     
112.                         r = #list
     
113.                 end
     
114.         end
     
115. end
     
116.    local menu={
     
117.                                  {"地图选点查看",MapWatch,1},
     
118.          {"我方人员列表",FriList,1},
     
119.          {"敌方人员列表",EnemyList,1},
     
120.                          };
     
121.   local nexty=CC.MainSubMenuY+CC.SingleLineHeight;
     
122.   ShowMenu(menu,3, 0, CC.MainSubMenuX, CC.MainSubMenuY, 0, 0, 1, 1, CC.DefaultFont, C_ORANGE, C_WHITE)
     
123.                
     
124.    WAR.ShowHead = 1
     
125.   Cls()
     
126. end

复制代码

悲剧 刚没发完 嘿嘿

fff71669

如果你用我改的代码不能进游戏那你的代码就多了个END

fff71669

这代码要感谢原作者 嘿嘿

http://www.txdx.net/forum.php?mod=viewthread&tid=529463&highlight=%D7%B4%CC%AC