求大神帮忙编译

895967

1. --[[临时语句
   
2. OEVENTLUA[5000]=function()
   
3.         TalkEx("请选择：",5,0);
   
4.         instruct_0();
   
5.         local mainMenu = {        {"全员满状态",nil,1},
   
6.                                                 {"人物满血内",nil,1},
   
7.                                                 {"武功升为极",nil,1},
   
8.                                                 {"修正补丁",nil,1},
   
9.                                                 {"开局搜刮补丁",nil,1},};
   
10. 
    
11.         local r = ShowMenu(mainMenu,5,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE,C_WHITE);
    
12.         instruct_0();
    
13. end
    
14. --]]
    
15. 
    
16. --[[
    
17. --武功等级
    
18. local skillNum = "";
    
19. local skillLevel = "";
    
20. 
    
21. for i = 1,10 do
    
22.         skillNum = "武功"..i;
    
23.         skillLevel = "武功等级"..i;
    
24.         if JY.Person[0][skillNum] > 0 then        --判断是否有武功
    
25.                 if JY.Person[0][skillLevel] >= 900 then        --判断武功是否已经到达10级
    
26.                         if JY.Person[0][skillNum] <=88 or JY.Person[0][skillNum] >= 109 then        --武功不为内功
    
27.                                 JY.Person[0][skillLevel] = 999;
    
28.                         else
    
29.                                 if RWTFLB[0] == "绝世天罡" then--武功为内功且称号为绝世天罡
    
30.                                         JY.Person[0][skillLevel] = 999;
    
31.                                 end
    
32.                         end
    
33.                 end
    
34.         end
    
35. end
    
36. --]]
    
37. 
    
38. 
    
39. 
    
40. 
    
41. 
    
42. 
    
43. local function FullStatus()
    
44. ---[[
    
45.         QZXS("全员满状态");
    
46.         instruct_12();
    
47. --]]
    
48. end
    
49. 
    
50. local function MaxStatus()
    
51. ---[[
    
52.         local maxFlag = false;
    
53.         for i = 1,6 do
    
54.                 local manaMax = 0;
    
55.                 local absorbFlag = false;
    
56.                
    
57.                 local pid = JY.Base["队伍"..i];
    
58.                 if pid >= 0        and JY.Person[pid]["声望"] ~= 100 then--该位置有队员且未能力最大化
    
59.                         while JY.Person[pid]["等级"] ~= 30 do        --先判断是否满级
    
60.                                 JY.Person[pid]["经验"] = CC.Exp[JY.Person[pid]["等级"]];
    
61.                                 War_AddPersonLVUP(pid);
    
62.                         end
    
63.                        
    
64.                         JY.Person[pid]["生命最大值"] = 999;        --生命最大化
    
65. 
    
66.                         if JY.Person[pid]["姓名"] ~= "零二七" or JY.Person[pid]["姓名"] ~= "段誉" then
    
67.                                 manaMax = 9500-(math.floor((JY.Person[pid]["资质"]-1)/15)*750);
    
68.                         else
    
69.                                 manaMax = 10000;
    
70.                         end
    
71.        
    
72.                         for i = 1,10 do
    
73.                                 if JY.Person[pid]["武功"..i] == 85 or JY.Person[pid]["武功"..i] == 88 then
    
74.                                         absorbFlag = true;
    
75.                                 end
    
76.                         end
    
77. 
    
78.                         if absorbFlag == true then
    
79.                                 manaMax = manaMax + 750;
    
80.                                 if manaMax >10000 then
    
81.                                         manaMax = 10000;
    
82.                                 end
    
83.                         end
    
84. 
    
85.                         JY.Person[pid]["内力最大值"] = manaMax;        --内力最大化
    
86.                        
    
87.                         --医疗能力最大化
    
88.                         if JY.Person[pid]["医疗能力"] >= 20 then
    
89.                                 if pid == 16 or pid ==28 or pid ==45 then
    
90.                                         JY.Person[pid]["医疗能力"] = 500;
    
91.                                 elseif pid == 85 or (pid == 0 and GetS(4,5,5,5) == 7) then
    
92.                                         JY.Person[pid]["医疗能力"] = 400;
    
93.                                 else
    
94.                                         JY.Person[pid]["医疗能力"] = 240;
    
95.                                 end
    
96.                         end
    
97.                         --用毒能力最大化
    
98.                         if JY.Person[pid]["用毒能力"] >= 20 then
    
99.                                 if pid == 17 or pid ==25 or pid ==83 or (pid == 0 and GetS(4,5,5,5) == 7) then
    
100.                                         JY.Person[pid]["用毒能力"] = 400;
     
101.                                 elseif pid == 2 then
     
102.                                         JY.Person[pid]["用毒能力"] = 500;
     
103.                                 else
     
104.                                         JY.Person[pid]["用毒能力"] = 240;
     
105.                                 end
     
106.                         end
     
107.                         --解毒能力最大化
     
108.                         if JY.Person[pid]["解毒能力"] >= 20 then
     
109.                                 JY.Person[pid]["解毒能力"] = 240;
     
110.                         end
     
111.                        
     
112.                         JY.Person[pid]["声望"] = 100;
     
113.                         DrawStrBoxWaitKey(string.format("%s 能力最大化",JY.Person[pid]["姓名"]),C_WHITE,CC.DefaultFont);
     
114.                         maxFlag = true;
     
115.                 end
     
116.         end
     
117.         if maxFlag == false then
     
118.                 QZXS("全员已经能力最大化");
     
119.         end
     
120.         instruct_12();
     
121. --]]
     
122. end
     
123. 
     
124. local function SkillLevel()
     
125. ---[[
     
126.         instruct_0();
     
127.         DrawStrBox(CC.MainSubMenuX,CC.MainSubMenuY,"要提升谁的武功",C_WHITE,CC.DefaultFont);
     
128.                
     
129.         local teamMenu = {};        --菜单生成
     
130.         for i=1,6 do
     
131.                 teamMenu[i] = {"",nil,0};
     
132.                 local pid = JY.Base["队伍"..i];
     
133.                 if pid>=0 then
     
134.                         teamMenu[i][1] = JY.Person[pid]["姓名"];
     
135.                         teamMenu[i][3] = 1;
     
136.                 end
     
137.         end
     
138.        
     
139.     local r = ShowMenu(teamMenu,6,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
     
140.         local personSelect = JY.Base["队伍"..r];
     
141.        
     
142.         if r > 0 then
     
143.                 instruct_0();
     
144.                 DrawStrBox(CC.MainSubMenuX,CC.MainSubMenuY,"要提升哪个武功的等级",C_WHITE,CC.DefaultFont);
     
145.        
     
146.                 local skillMenu = {};        --菜单生成
     
147.                 local menuDis = false;        --是否显示菜单
     
148.                 for i=1,10 do
     
149.                         skillMenu[i] = {"",nil,0};
     
150.                         local sid = JY.Person[personSelect]["武功"..i];
     
151.                         local slv = JY.Person[personSelect]["武功等级"..i];
     
152.                         if sid>0 and slv >= 900 and slv <=998 then
     
153.                                 skillMenu[i][1] = JY.Wugong[sid]["名称"];
     
154.                                 skillMenu[i][3] = 1;
     
155.                                 menuDis = true;
     
156.                         end
     
157.                 end
     
158.                
     
159.                 instruct_0();
     
160.                 if menuDis == true then
     
161.                         local s = ShowMenu(skillMenu,10,0,CC.MainSubMenuX,CC.MainSubMenuY+CC.SingleLineHeight,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
     
162.                         if s > 0 then
     
163.                                 local skillSelect = JY.Person[personSelect]["武功"..s];
     
164.                                 JY.Person[personSelect]["武功等级"..s] = 999;
     
165.                                 DrawStrBoxWaitKey(string.format("%s %s 等级提升为极",JY.Person[personSelect]["姓名"],JY.Wugong[skillSelect]["名称"]),C_WHITE,CC.DefaultFont);
     
166.                         end
     
167.                 else
     
168.                         DrawStrBoxWaitKey(string.format("%s 没有武功可以提升",JY.Person[personSelect]["姓名"]),C_WHITE,CC.DefaultFont);
     
169.                 end
     
170.         end
     
171.         instruct_0();
     
172. --]]
     
173. end
     
174. 
     
175. local function DIY_Test()
     
176.         dofile ".\\script\\Menu\\DIY_Test.lua";
     
177. end
     
178. 
     
179. QZXS("菜单程序载入完成");
     
180. 
     
181. --将全屏选项改为DIY菜单
     
182.     function Menu_FullScreen()
     
183.     instruct_0();
     
184.     local mainMenu = {
     
185.           {"全员恢复状态",FullStatus,1},
     
186.           {"人物等级最大化",MaxStatus,1},
     
187.           {"人物武功升为极",SkillLevel,1},
     
188.           {"目前停用中",DIY_Test,1},
     
189.           };
     
190.     local x1=(CC.ScreenW-9*CC.DefaultFont-2*CC.MenuBorderPixel)/2;
     
191.     local y1=(CC.ScreenH-5*CC.DefaultFont-4*CC.RowPixel-2*CC.MenuBorderPixel)/2;
     
192.     local r=ShowMenu(mainMenu,4,0,x1,y1,0,0,1,1,CC.DefaultFont,C_ORANGE, C_WHITE);
     
193.     instruct_0();
     
194.     end
     
195. 
     

复制代码

有大神能帮忙改成安卓板的DIY吗??

蓝烟清

这个你先试着测试吧， 遇到什么问题再一起解决