徵求高手幫個忙

895967

現在轉職手機黨，前幾天下了個安卓版龍人來玩
發現它可以用DIY，所以把以前常用的DIY貼了過去
誰知道反而出現了BUG.....

因為以前用的懶人補丁會把F5(全頻切換)改成菜單的選單
但是安卓板龍人只有A/B兩鍵

徵求高手幫忙修改代碼，看是要增加NPC還是用其他的菜單碼

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

复制代码