天龙教程【合成8，9级宝石文件】

dabaojian

用法介绍：将以下代码复制后另存为gem_compound.lua，并按照路径进行覆盖
文件路径：tlbb\Public\Data\Script\event\liveabilityevent
文件名称：gem_compound.lua

1. -- 宝石合成
   
2. 
   
3. -- 脚本号
   
4. x701602_g_scriptId = 701602
   
5. 
   
6. -- 脚本名称
   
7. x701602_g_scriptName = "合成宝石"
   
8. 
   
9. -- 合成规则表
   
10. x701602_g_CompoundRule = {
    
11.         {
    
12.                 [1] = { SpecialStuff = 30900015, MoneyCost = 5000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
13.                 [2] = { SpecialStuff = 30900015, MoneyCost = 6000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
14.                 [3] = { SpecialStuff = 30900015, MoneyCost = 7000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
15.                 [4] = { SpecialStuff = 30900016, MoneyCost = 8000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
16.                 [5] = { SpecialStuff = 30900016, MoneyCost = 9000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
17.                 [6] = { SpecialStuff = 30900016, MoneyCost = 10000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
18.                 [7] = { SpecialStuff = 30900016, MoneyCost = 11000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
19.                 [8] = { SpecialStuff = 30900016, MoneyCost = 12000, CountTable = { [3] = { SuccOdds = 25, SuccOddsWithSpecStuff = 50, }, [4] = { SuccOdds = 50, SuccOddsWithSpecStuff = 75, }, [5] = { SuccOdds = 75, SuccOddsWithSpecStuff = 100, }, }, },
    
20.         },
    
21.         {
    
22.                 [1] = { SpecialStuff = -1, MoneyCost = 500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
23.                 [2] = { SpecialStuff = -1, MoneyCost = 1000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
24.                 [3] = { SpecialStuff = -1, MoneyCost = 1500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
25.                 [4] = { SpecialStuff = -1, MoneyCost = 5000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, }, -- modify by cuiyinjie 开放4级3精合成
    
26. --                [5] = { SpecialStuff = -1, MoneyCost = 2500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
27. --                [6] = { SpecialStuff = -1, MoneyCost = 3000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
28. --                [7] = { SpecialStuff = -1, MoneyCost = 3500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
29. --                [8] = { SpecialStuff = -1, MoneyCost = 4000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
30.         },
    
31.         {
    
32.                 [1] = { SpecialStuff = -1, MoneyCost = 10000, CountTable = { [3] = { SuccOdds = 0, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 0, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
33. --                [2] = { SpecialStuff = -1, MoneyCost = 1000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
34. --                [3] = { SpecialStuff = -1, MoneyCost = 1500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
35. --                [4] = { SpecialStuff = -1, MoneyCost = 2000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
36. --                [5] = { SpecialStuff = -1, MoneyCost = 2500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
37. --                [6] = { SpecialStuff = -1, MoneyCost = 3000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
38. --                [7] = { SpecialStuff = -1, MoneyCost = 3500, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
39. --                [8] = { SpecialStuff = -1, MoneyCost = 4000, CountTable = { [3] = { SuccOdds = 50, SuccOddsWithSpecStuff = 0, }, [4] = { SuccOdds = 75, SuccOddsWithSpecStuff = 0, }, [5] = { SuccOdds = 100, SuccOddsWithSpecStuff = 0, }, }, },
    
40.         },
    
41. }
    
42. 
    
43. -- 合成材料玄天寒玉
    
44. x701602_g_HanYu_MaterialId = 20310110
    
45. -- 生成物寒玉精碎
    
46. x701602_g_HanYu_OutPutId = 20310111
    
47. 
    
48. --**********************************************************************
    
49. -- 任务入口函数
    
50. --**********************************************************************
    
51. function x701602_OnDefaultEvent( sceneId, selfId, targetId )
    
52. 
    
53.         BeginUICommand(sceneId)
    
54.         EndUICommand(sceneId)
    
55.         DispatchUICommand(sceneId,selfId, 23)
    
56. 
    
57. end
    
58. 
    
59. --**********************************************************************
    
60. -- 列举事件
    
61. --**********************************************************************
    
62. function x701602_OnEnumerate( sceneId, selfId, targetId )
    
63. 
    
64.         AddNumText(sceneId, x701602_g_scriptId, x701602_g_scriptName,6,-1)
    
65. 
    
66. end
    
67. 
    
68. --**********************************************************************
    
69. -- 判断是否宝石
    
70. --**********************************************************************
    
71. function x701602_IsGem( itemIndex )
    
72.         if floor( itemIndex / 10000000 ) == 5 then
    
73.                 return 1
    
74.         end
    
75. 
    
76.         return 0
    
77. end
    
78. 
    
79. --**********************************************************************
    
80. -- 判断是否材料
    
81. --**********************************************************************
    
82. function x701602_IsMaterial( itemIndex )
    
83.         if floor( itemIndex / 100000 ) == 205 then
    
84.                 return 1
    
85.         end
    
86. 
    
87.         return 0
    
88. end
    
89. 
    
90. --**********************************************************************
    
91. -- 根据一个物品号得到该物品的大分类
    
92. --**********************************************************************
    
93. function x701602_GetStuffClass( itemIndex )
    
94.         if x701602_IsGem( itemIndex ) == 1 then
    
95.                 return 1
    
96.         elseif x701602_IsMaterial( itemIndex ) == 1 then
    
97.                 return 2
    
98.         elseif itemIndex == x701602_g_HanYu_MaterialId then
    
99.                 return 3
    
100.         end
     
101. 
     
102.         return -1
     
103. end
     
104. 
     
105. --**********************************************************************
     
106. -- 根据一个物品号得到该物品的类型
     
107. --**********************************************************************
     
108. function x701602_GetStuffType( itemIndex )
     
109.         if x701602_IsGem( itemIndex ) == 1 then
     
110.                 return mod( itemIndex, 100000 )
     
111.         elseif x701602_IsMaterial( itemIndex ) == 1 then
     
112.                 return LuaFnGetItemType( itemIndex )
     
113.         elseif itemIndex == x701602_g_HanYu_MaterialId then
     
114.                 return LuaFnGetItemType( itemIndex )
     
115.         end
     
116. 
     
117.         return -1
     
118. end
     
119. 
     
120. --**********************************************************************
     
121. -- 根据一个物品号得到该物品的等级
     
122. --**********************************************************************
     
123. function x701602_GetStuffGrade( itemIndex )
     
124.         if x701602_IsGem( itemIndex ) == 1 then
     
125.                 return GetItemQuality( itemIndex )
     
126.         elseif x701602_IsMaterial( itemIndex ) == 1 then
     
127.                 return GetCommonItemGrade( itemIndex )
     
128.         elseif itemIndex == x701602_g_HanYu_MaterialId then
     
129.                 return GetCommonItemGrade( itemIndex )
     
130.         end
     
131. 
     
132.         return -1
     
133. end
     
134. 
     
135. --**********************************************************************
     
136. -- 根据一个物品号得到该物品的升级物品号
     
137. --**********************************************************************
     
138. function x701602_GetStuffUpgraded( itemIndex )
     
139.         if x701602_IsGem( itemIndex ) == 1 then
     
140.                 return ( itemIndex + 100000 )
     
141.         elseif x701602_IsMaterial( itemIndex ) == 1 then
     
142.                 return ( itemIndex + 1 )
     
143.         elseif itemIndex == x701602_g_HanYu_MaterialId then
     
144.                 return x701602_g_HanYu_OutPutId
     
145.         end
     
146. 
     
147.         return -1
     
148. end
     
149. 
     
150. --**********************************************************************
     
151. -- 宝石以及材料合成接口
     
152. -- bagIndex1, bagIndex2 ... bagIndex5：五个宝石或材料所在的格子
     
153. -- bagIndex6：特殊材料
     
154. --**********************************************************************
     
155. function x701602_GemCompound( sceneId, selfId, bagIndex1, bagIndex2, bagIndex3, bagIndex4, bagIndex5, bagIndex6 )
     
156.         local bagIndexList = { bagIndex1, bagIndex2, bagIndex3, bagIndex4, bagIndex5 }
     
157.         local stuffList = { -1, -1, -1, -1, -1 }
     
158.         local stuffCount = 0                                        -- 材料个数
     
159.         local specialStuff = -1                                        -- 特殊材料
     
160.         local CompoundClass = -1                                -- 材料大类[分为宝石和材料]
     
161.         local CompoundType = -1                                        -- 材料种类[各种宝石以及各种材料]
     
162.         local stuffGrade = -1                                        -- 材料等级
     
163.         local standardStuff = -1
     
164.         local IsBind = 0;
     
165.         
     
166.         -- 不允许有重复的bagIndexList出现 added by dun.liu 2009.2.5
     
167.         local isUnique = ScriptGlobal_IsUniqueNumberTable(bagIndexList);
     
168.         if isUnique == 0 then
     
169.                 return OR_ERROR;
     
170.         end
     
171. 
     
172.         for i = 1, 5 do
     
173.                 if bagIndexList[i] ~= -1 then
     
174.                         if LuaFnIsItemAvailable( sceneId, selfId, bagIndexList[i] ) < 1 then        -- 使用有问题的物品则退出流程
     
175.                                 return OR_STUFF_LACK
     
176.                         else
     
177.                                 stuffList[i] = LuaFnGetItemTableIndexByIndex( sceneId, selfId, bagIndexList[i] )
     
178.                                 stuffCount = stuffCount + 1
     
179. 
     
180.                                 if CompoundClass == -1 and stuffGrade == -1 and CompoundType == -1 then
     
181.                                         standardStuff = stuffList[i]
     
182.                                         CompoundClass = x701602_GetStuffClass( standardStuff )
     
183.                                         stuffGrade = x701602_GetStuffGrade( standardStuff )
     
184.                                         CompoundType = x701602_GetStuffType( standardStuff )
     
185.                                 end
     
186.                                 
     
187.                                 --判断材料是否符合
     
188.                                 if x701602_IsMaterial( stuffList[i] ) == 1 and
     
189.                                         mod( stuffList[i], 10 ) > 8 then
     
190.                                         return OR_STUFF_LACK
     
191.                                 end
     
192.                                 
     
193.                                 --判断宝石是否绑定        
     
194.                                 if(LuaFnGetItemBindStatus( sceneId, selfId, bagIndexList[i]) == 1) then
     
195.                                         IsBind = 1;
     
196.                                 end
     
197.                                 
     
198.                         end
     
199.                 end
     
200.         end
     
201. 
     
202.         local CompoundRule = x701602_g_CompoundRule[CompoundClass]
     
203.         if not CompoundRule then
     
204.                 return OR_ERROR
     
205.         end
     
206. 
     
207.         if bagIndex6 ~= -1 then
     
208.                 if LuaFnIsItemAvailable( sceneId, selfId, bagIndex6 ) < 1 then                        -- 使用有问题的物品则忽略
     
209.                         bagIndex6 = -1
     
210.                 else
     
211.                         specialStuff = LuaFnGetItemTableIndexByIndex( sceneId, selfId, bagIndex6 )
     
212.                 end
     
213.         end
     
214. 
     
215.         for i = 1, 5 do
     
216.                 if stuffList[i] ~= -1 then
     
217.                         if CompoundClass ~= x701602_GetStuffClass( stuffList[i] )
     
218.                          or stuffGrade ~= x701602_GetStuffGrade( stuffList[i] )
     
219.                          or CompoundType ~= x701602_GetStuffType( stuffList[i] )
     
220.                         then
     
221.                                 return OR_STUFF_LACK
     
222.                         end
     
223.                 end
     
224.         end
     
225. 
     
226.         --if not CompoundRule[stuffGrade] then                                                                                -- 这种情况通常都是已经 9 级了
     
227.                 --return OR_CANNOT_UPGRADE
     
228.         --end
     
229.         
     
230.         
     
231.         local selfMoney = GetMoney( sceneId, selfId )  +  GetMoneyJZ(sceneId, selfId)  --交子普及 Vega
     
232.         
     
233.         if  selfMoney  < CompoundRule[stuffGrade].MoneyCost then
     
234.                 return OR_NOTENOUGH_MONEY                                                                                                -- 钱不够，一般由客户端自行提示
     
235.         end
     
236. 
     
237.         if not CompoundRule[stuffGrade].CountTable[stuffCount] then
     
238.                 return OR_STUFF_LACK
     
239.         end
     
240. 
     
241.         local SuccOdds = CompoundRule[stuffGrade].CountTable[stuffCount].SuccOdds
     
242. 
     
243.         if specialStuff ~= -1 then
     
244.                 if specialStuff ~= CompoundRule[stuffGrade].SpecialStuff then                        -- 滥竽充数的特殊材料处理
     
245.                         bagIndex6 = -1
     
246.                         specialStuff = -1
     
247.                 else
     
248.                         SuccOdds = CompoundRule[stuffGrade].CountTable[stuffCount].SuccOddsWithSpecStuff
     
249.                 end
     
250.         end
     
251.         
     
252.         -- 必须特殊材料
     
253.         if specialStuff == -1 then
     
254.                 if 1 == CompoundClass then --如果材料为宝石，则必须需要特殊材料
     
255.                 return OR_ERROR
     
256.                 end
     
257.         end
     
258. 
     
259.         -- 计算新物品编号
     
260.         local newItemIndex = x701602_GetStuffUpgraded( standardStuff )
     
261. 
     
262.         -- 扣除材料, 一定要全部扣除成功，才能继续进行 added by dun.liu 2009.2.5
     
263.         for i = 1, 5 do
     
264.                 if bagIndexList[i] ~= -1 then
     
265.                         local isEraseSuc = LuaFnEraseItem( sceneId, selfId, bagIndexList[i] );
     
266.                         if( isEraseSuc == 0 ) then
     
267.                                 return OR_ERROR;
     
268.                         end
     
269.                 end
     
270.         end
     
271. 
     
272.         -- 扣除特殊材料
     
273.         if bagIndex6 ~= -1 then
     
274.                 --判断特殊材料是否绑定 add by xindefeng
     
275.                 if(LuaFnGetItemBindStatus( sceneId, selfId, bagIndex6) == 1) then
     
276.                         IsBind = 1;--设置强制绑定标志
     
277.                 end
     
278.                 LuaFnEraseItem( sceneId, selfId, bagIndex6 )
     
279.         end
     
280. 
     
281.         -- 扣除金钱
     
282.         local ret = LuaFnCostMoneyWithPriority( sceneId, selfId, CompoundRule[stuffGrade].MoneyCost )  --交子普及 Vega
     
283.         if ret < 0 then
     
284.                 return OR_NOTENOUGH_MONEY
     
285.         end
     
286.         -- 生成合成物，最后一个 1 是品质，不影响本类型合成物
     
287.         local maxStuffCountChange = 3;
     
288.         local maxSpecialStuffChange = 2;
     
289.         local maxStuffGrade = 8;
     
290.         
     
291.         local selectRandomIndex = 0;
     
292.         if CompoundClass == 2 then
     
293.                 selectRandomIndex = 1;
     
294.         end
     
295.         
     
296.         if CompoundClass == 3 then
     
297.                 selectRandomIndex = 2;
     
298.         end
     
299.         
     
300.         selectRandomIndex = selectRandomIndex * maxStuffGrade;
     
301.         selectRandomIndex = selectRandomIndex + (stuffGrade - 1);
     
302.         selectRandomIndex = selectRandomIndex * maxSpecialStuffChange;
     
303.         if specialStuff ~= -1 then
     
304.                 selectRandomIndex = selectRandomIndex + 1;
     
305.         end
     
306.         selectRandomIndex = selectRandomIndex * maxStuffCountChange;
     
307.         selectRandomIndex = selectRandomIndex + (stuffCount - 3);
     
308.         local randValue = LuaFnCompoundRandom(selectRandomIndex);
     
309. 
     
310.         if randValue > SuccOdds then                                                                                                -- 合成失败
     
311.                 LuaFnSendAbilityFailureMsg( sceneId, selfId, -1, -1, -1 )
     
312.                 LuaFnAuditGemCompound( sceneId, selfId, 0,
     
313.                         stuffList[1], stuffList[2], stuffList[3], stuffList[4], stuffList[5], -1 )
     
314.         else
     
315.                 res = LuaFnTryRecieveItemIgnoreFatigueState( sceneId, selfId, newItemIndex, QUALITY_MUST_BE_CHANGE)
     
316.                 if res == -1 then
     
317.                         return OR_FAILURE
     
318.                 end
     
319.                 --强制绑定
     
320.                 if(IsBind == 1) then
     
321.                         LuaFnItemBind( sceneId, selfId, res);
     
322.                 end
     
323.                
     
324.                 --增加特效
     
325.                 LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 49, 0);
     
326.                
     
327.                 --醒目提示
     
328.                 BeginEvent( sceneId )
     
329.                         AddText( sceneId, "合成成功" )
     
330.                 EndEvent( sceneId )
     
331.                 DispatchMissionTips( sceneId, selfId )
     
332.                
     
333.                 if x701602_IsGem( newItemIndex ) == 1 then
     
334.                         stuffGrade = x701602_GetStuffGrade( newItemIndex )
     
335.                         --公告精简，小于4级的宝石合成不发公告
     
336.                         if stuffGrade >= 4 then
     
337.                                 local szTransferItem = GetBagItemTransfer( sceneId, selfId, res )
     
338.                                 BroadMsgByChatPipe( sceneId, selfId, "#W#{_INFOUSR" .. GetName( sceneId, selfId ) .. "}#H经过一番努力，终于合成出了#W#{_INFOMSG" .. szTransferItem .. "}#H。", 4 )
     
339.                         end
     
340.                 end
     
341. 
     
342.                 LuaFnSendAbilitySuccessMsg( sceneId, selfId, -1, -1, newItemIndex )                -- 提示生成物
     
343.                 LuaFnAuditGemCompound( sceneId,selfId, 1,
     
344.                         stuffList[1], stuffList[2], stuffList[3], stuffList[4], stuffList[5], newItemIndex )
     
345.         end
     
346. 
     
347.         return OR_OK
     
348. end
     

复制代码