战神引擎冲级奖励脚本-已修复BUG

战神引擎冲级奖励脚本-已修复BUG

1. {冲级奖励
   
2. 作者：开心就好
   
3. 内容：升到一定级别领取一定的装备，个别装备全服领取数目有限
   
4. 部分项目每天都可以领取，相当于签到功能
   
5. }
   
6. 
   
7. 
   
8. PROGRAM Mir2;
   
9. var
   
10. sum1:Integer;  
    
11. sum2:Integer;
    
12. sum3:Integer;
    
13. sum4:Integer;
    
14. sum5:Integer;
    
15. sum6:Integer;
    
16. sum7:Integer;
    
17. sum8:Integer;
    
18. sum9:Integer;
    
19. sumG7 :Integer;
    
20. sumG8 :Integer;
    
21. sumG9 :Integer;
    
22. sumG70 :String;
    
23. sumG80 :String;
    
24. sumG90 :String;  
    
25. Procedure _doexit;
    
26. begin
    
27.    This_Npc.CloseDialog(This_Player);
    
28. end;
    
29. 
    
30. procedure domain;
    
31. 
    
32. begin
    
33. 
    
34. sumG70 :=inttostr(5 - sumG7);
    
35. sumG80 :=inttostr(5 - sumG8);
    
36. sumG90 :=inttostr(3 - sumG9);
    
37.   { if  GetG(51,7) < 0 then//删除其面大括号即可以用此初始化代码
    
38.      begin
    
39.          SetG(51,7,0) ;  
    
40.          setG(51,8,0) ;
    
41.          SetG(51,9,0) ;    //该代码为初始化全服剩余装备的代码,可放在此脚本里，GM只需运行一次就行，
    
42.                  //运行之后需要再次注释，防止无限初始化无限领取装备}
    
43.                  
    
44.                  
    
45. {//以下代码为玩家私有变量，可领装备初始化，可以把这段代码放在mud2.0\Mir200\Envir\PsMapQuest
    
46. //LogonQuest.pas：登陆执行脚本里面，这样就可以不用在此脚本里面不用进行
    
47. // if  (This_Player.GetV() > 1) or  (This_Player.GetV() < 0) then 的这样的判断语句
    
48. 
    
49. if This_Player.GetV(50,2) < 0 then
    
50. This_Player.setV(50,1,0) ;      
    
51. This_Player.setV(50,2,0) ;      
    
52. This_Player.setV(50,3,0) ;      
    
53. This_Player.setV(50,4,0) ;      
    
54. This_Player.setV(50,5,0) ;      
    
55. This_Player.setV(50,6,0) ;      
    
56. This_Player.setV(50,7,0) ;      
    
57. This_Player.setV(50,8,0) ;
    
58. This_Player.setV(50,9,0) ;
    
59. end;//       以上任务标号如果与其他脚本重复，则极易出错！！！ 编辑最好记下自己所有已用任务代码  }
    
60. 
    
61. 
    
62. 
    
63.          This_NPC.NpcDialog(This_Player,
    
64.            '31级可以每日领取100灵符'+'  '+'<不限名额/c=red>'+'  '+'<领取/@lq1>\|'
    
65.       +'32级可以领取200灵符礼包'+'  '+'<不限名额/c=red>'+'  '+'<领取/@lq2>\|'
    
66.           +'33级可以领取本职业首饰'+'    '+'<不限名额/c=red>'+'  '+'<领取/@lq3>\|'
    
67.           +'34级可以领取本职业衣服'+'    '+'<不限名额/c=red>'+'  '+'<领取/@lq4>\|'
    
68.       +'35级可以在取高级技能书'+'    '+'<不限名额/c=red>'+'  '+'<领取/@lq5>\|'
    
69.           +'36级可以领取本职业武器'+'    '+'<不限名额/c=red>'+'  '+'<领取/@lq6>\|'
    
70.           +'37级可以领取隐身戒指一个'+' '+'<还剩/C=red>'+sumG70+'<个/C=red>'+'  '+'<领取/@lq7>\|'
    
71.           +'38级可以领取传送戒指一个'+' '+'<还剩/C=red>'+sumG80+'<个/C=red>'+'  '+'<领取/@lq8>\|'
    
72.           +'39级可以领取麻复护三选一'+' '+'<还剩/C=red>'+sumG90+'<个/C=red>'+'  '+'<领取/@lq9>\|'
    
73.       );
    
74. 
    
75.        end;
    
76. procedure _lq1;
    
77. var
    
78. 
    
79. today:Integer;
    
80. begin
    
81. today := GetDateNum(GetNow);
    
82. 
    
83.     if This_Player.GetV(52,1) <> today then //此段为每天都能领一次的设置   
    
84.     begin
    
85.        This_Player.SetV(52,1,today);
    
86.          This_Player.setV(50,1,0) ;
    
87.     end;
    
88.     sum1 := This_Player.GetV(50,1)  ;
    
89.     if   sum1 < 1 then
    
90.     begin
    
91.          if  This_Player.Level >= 31 then//这里设定每档的领取等级,为方便测试可以改1级
    
92.             begin
    
93.             if  This_Player.FreeBagNum >= 2 then  
    
94.             begin
    
95.                This_Player.Give('100灵符礼包' , 1);
    
96.                This_NPC.NpcDialog(This_Player,
    
97.              '装备已放入您的包裹!');
    
98.              This_Player.setV(50,1,sum1 + 1) ;
    
99. 
    
100.               end else
     
101.               This_NPC.NpcDialog(This_Player,
     
102.               '没有足够的包裹空间!\'
     
103.                         );
     
104. 
     
105.                end else
     
106.               This_NPC.NpcDialog(This_Player,
     
107.               '你的等级不够!\'
     
108.                          );      
     
109.                end else
     
110.                This_NPC.NpcDialog(This_Player,
     
111.                '你已经领过一次了,请明天再来!\'
     
112.                          );
     
113. end;
     
114. 
     
115. procedure _lq2;
     
116. 
     
117. begin
     
118.     if  (This_Player.GetV(50,2) > 1) or  (This_Player.GetV(50,2) < 0)  then //此段中的 (This_Player.GetV(50,2) > 1)可以不用，一般默认都是-1，不会大于
     
119.     begin
     
120.          This_Player.setV(50,2,0) ;
     
121.     end;
     
122.         sum2 := This_Player.GetV(50,2)  ;
     
123.     if   sum2 < 1 then
     
124.     begin
     
125. 
     
126.          if  This_Player.Level >= 32 then
     
127.          begin
     
128.             if  This_Player.FreeBagNum >= 2 then
     
129.             begin  
     
130.                This_Player.Give('200灵符礼包' , 1);
     
131.                This_NPC.NpcDialog(This_Player,
     
132.              '装备已放入您的包裹!');
     
133.              This_Player.setV(50,2,sum2 + 1) ;
     
134. 
     
135.               end else
     
136.               This_NPC.NpcDialog(This_Player,
     
137.               '没有足够的包裹空间!');
     
138.               end else
     
139.               This_NPC.NpcDialog(This_Player,
     
140.               '你的等级不够!');         
     
141.                end else
     
142.                This_NPC.NpcDialog(This_Player,
     
143.                '你已经领过一次了!');
     
144.     end;
     
145. 
     
146. 
     
147. procedure _lq3;
     
148. 
     
149. begin
     
150.     if  (This_Player.GetV(50,3) > 1) or  (This_Player.GetV(50,3) < 0) then
     
151.     begin
     
152.          This_Player.setV(50,3,0) ;
     
153.     end;
     
154.         sum3 := This_Player.GetV(50,3)  ;
     
155.     if   sum3 < 1 then
     
156.     begin
     
157. 
     
158.          if  This_Player.Level >= 33 then
     
159.             begin
     
160.             if  This_Player.FreeBagNum >= 7 then  
     
161. 
     
162.                 case This_Player.Job of                //按职业给予装备  可以自行修改
     
163.                 0 : begin
     
164.                 This_Player.Give('圣战手镯' , 2);
     
165.                                   This_Player.Give('圣战戒指' , 2);
     
166.                                   This_Player.Give('圣战头盔' , 1);
     
167.                 This_Player.Give('圣战项链' , 1);
     
168.                 This_NPC.NpcDialog(This_Player,
     
169.                 '装备已放入您的包裹!');
     
170.                 This_Player.setV(50,3,sum3 + 1) ;  
     
171.                     end;
     
172.                 1  :  begin
     
173.                       This_Player.Give('法神手镯' , 2);
     
174.                                         This_Player.Give('法神戒指' , 2);
     
175.                                         This_Player.Give('法神头盔' , 1);
     
176.                                         This_Player.Give('法神项链' , 1);
     
177.                                         This_NPC.NpcDialog(This_Player,
     
178.                       '装备已放入您的包裹!');
     
179.                        This_Player.setV(50,3,sum3 + 1) ;  
     
180.                                         end;
     
181.                  2 :  begin
     
182.                    This_Player.Give('天尊手镯' , 2);
     
183.                                This_Player.Give('天尊戒指' , 2);
     
184.                                      This_Player.Give('天尊头盔' , 1);
     
185.                                This_Player.Give('天尊项链' , 1);
     
186.                     This_NPC.NpcDialog(This_Player,
     
187.                    '装备已放入您的包裹!');
     
188.                    This_Player.setV(50,3,sum3 + 1) ;
     
189.                    end;
     
190.               end else
     
191.               This_NPC.NpcDialog(This_Player,
     
192.               '没有足够的包裹空间!');
     
193.               end else
     
194.               This_NPC.NpcDialog(This_Player,
     
195.               '你的等级不够!');         
     
196.                end else
     
197.                This_NPC.NpcDialog(This_Player,
     
198.                '你已经领过一次了!');
     
199.     end;
     
200. 
     
201. 
     
202. procedure _lq4;
     
203. 
     
204. begin
     
205.     if  (This_Player.GetV(50,4) > 1) or  (This_Player.GetV(50,4) < 0) then
     
206.     begin
     
207.          This_Player.setV(50,4,0) ;
     
208.     end;
     
209.         sum4 := This_Player.GetV(50,4)  ;
     
210.     if   sum4 < 1 then
     
211.     begin
     
212.          if  This_Player.Level >= 34 then   
     
213.             begin
     
214.             if  This_Player.FreeBagNum >= 2 then    //按职业给装备
     
215.                  case   This_Player.Job   of
     
216.                 0 : begin
     
217.                     if   This_Player.Gender = 0 then  //按性别给装备
     
218.                    This_Player.Give('天魔神甲',1)
     
219.                    else
     
220.                    This_Player.Give('圣战宝甲',1);
     
221.                    This_NPC.NpcDialog(This_Player,
     
222.                 '装备已放入您的包裹!');
     
223.                 This_Player.setV(50,4,sum4 + 1) ;  
     
224.                     end;
     
225.                 1  :  begin
     
226.                       if   This_Player.Gender = 0 then
     
227.                        This_Player.Give('法神披风',1)
     
228.                    else
     
229.                    This_Player.Give('霓裳羽衣',1);
     
230.                                         This_NPC.NpcDialog(This_Player,
     
231.                       '装备已放入您的包裹!');
     
232.                        This_Player.setV(50,4,sum4 + 1) ;  
     
233.                                         end;
     
234.                  2 :  
     
235.                    begin
     
236.                       if   This_Player.Gender = 0 then
     
237.                        This_Player.Give('天尊道袍',1)
     
238.                    else
     
239.                    This_Player.Give('天师长袍',1);
     
240.                                         This_NPC.NpcDialog(This_Player,
     
241.                       '装备已放入您的包裹!');
     
242.                        This_Player.setV(50,4,sum4 + 1) ;  
     
243.                    end;
     
244.               end else
     
245.               This_NPC.NpcDialog(This_Player,
     
246.               '没有足够的包裹空间!');
     
247.               end else
     
248.               This_NPC.NpcDialog(This_Player,
     
249.               '你的等级不够!');      
     
250.                end else
     
251.                This_NPC.NpcDialog(This_Player,
     
252.                '你已经领过一次了!');
     
253.     end;
     
254. procedure _lq5;
     
255. 
     
256. begin
     
257.     if  (This_Player.GetV(50,5) > 1) or  (This_Player.GetV(50,5) < 0) then
     
258.     begin
     
259.          This_Player.setV(50,5,0) ;
     
260.     end;
     
261.         sum5 := This_Player.GetV(50,5)  ;
     
262.     if   sum5 < 1 then
     
263.     begin
     
264. 
     
265.          if  This_Player.Level >= 35 then
     
266.             begin
     
267.             if  This_Player.FreeBagNum >= 2 then  //按职业给技能
     
268.                case   This_Player.Job   of
     
269.                 0 : begin
     
270. 
     
271.                    This_Player.Give('狮子吼',1);
     
272.                    This_NPC.NpcDialog(This_Player,
     
273.                 '技能书已经已放入您的包裹!');
     
274.                 This_Player.setV(50,5,sum5 + 1) ;  
     
275.                     end;
     
276.                 1  :  begin
     
277. 
     
278.                    This_Player.Give('流星火雨',1);
     
279.                                         This_NPC.NpcDialog(This_Player,
     
280.                       '技能书已放入您的包裹!');
     
281.                        This_Player.setV(50,5,sum5 + 1) ;  
     
282.                                         end;
     
283.                  2 :  
     
284.                    begin
     
285. 
     
286.                    This_Player.Give('飓风破',1);
     
287.                                         This_NPC.NpcDialog(This_Player,
     
288.                       '技能书已放入您的包裹!');
     
289.                        This_Player.setV(50,5,sum5 + 1) ;  
     
290.                    end;
     
291.               end else
     
292.               This_NPC.NpcDialog(This_Player,
     
293.               '没有足够的包裹空间!');
     
294.               end else
     
295.               This_NPC.NpcDialog(This_Player,
     
296.               '你的等级不够!');      
     
297.                end else
     
298.                This_NPC.NpcDialog(This_Player,
     
299.                '你已经领过一次了!');
     
300. end;  
     
301. 
     
302. procedure _lq6;
     
303. 
     
304. begin
     
305.     if  (This_Player.GetV(50,6) > 1) or  (This_Player.GetV(50,6) < 0) then
     
306.     begin
     
307.          This_Player.setV(50,6,0) ;
     
308.     end;
     
309.         sum6 := This_Player.GetV(50,6)  ;
     
310.     if   sum6 < 1 then
     
311.     begin
     
312. 
     
313.          if  This_Player.Level >= 36 then
     
314.             begin
     
315.             if  This_Player.FreeBagNum >= 2 then  //按职业给装备
     
316.              case   This_Player.Job   of
     
317.                 0 : begin
     
318. 
     
319.                    This_Player.Give('屠龙',1);
     
320.                    This_NPC.NpcDialog(This_Player,
     
321.                 '武器已经已放入您的包裹!');
     
322.                 This_Player.setV(50,6,sum6 + 1) ;  
     
323.                     end;
     
324.                 1  :  begin
     
325. 
     
326.                    This_Player.Give('龙牙',1);
     
327.                                         This_NPC.NpcDialog(This_Player,
     
328.                       '武器已放入您的包裹!');
     
329.                        This_Player.setV(50,6,sum6 + 1) ;  
     
330.                                         end;
     
331.                  2 :  
     
332.                    begin
     
333. 
     
334.                    This_Player.Give('逍遥扇',1);
     
335.                                         This_NPC.NpcDialog(This_Player,
     
336.                       '武器已放入您的包裹!');
     
337.                        This_Player.setV(50,6,sum6 + 1) ;  
     
338.                    end;
     
339.               end else
     
340.               This_NPC.NpcDialog(This_Player,
     
341.               '没有足够的包裹空间!');  
     
342.               end else
     
343.               This_NPC.NpcDialog(This_Player,
     
344.               '你的等级不够!');      
     
345.                end else
     
346.                This_NPC.NpcDialog(This_Player,
     
347.                '你已经领过一次了!');
     
348. end;
     
349. 
     
350. procedure _lq7;
     
351. 
     
352. begin
     
353.     if  (This_Player.GetV(50,7) > 1) or  (This_Player.GetV(50,7) < 0)    then
     
354.     begin
     
355.          This_Player.setV(50,7,0);   
     
356.     end;
     
357.     if  (GetG(51,7) > 5)  or (GetG(51,7) < 0) then  // (GetG(51,7) > 5) 此判断可以不用 ，公有变量一般很少默认大于5，以防一万故加上
     
358.     begin
     
359.          SetG(51,7,0);   
     
360.     end;
     
361.        sum7 := This_Player.GetV(50,7);
     
362.        sumG7 :=  GetG(51,7);
     
363. 
     
364.     if  sumG7 < 5 then
     
365.          begin
     
366.          if   sum7 < 1 then
     
367.               begin
     
368.                 if  This_Player.Level >= 1 then
     
369.                     begin
     
370.                       if  This_Player.FreeBagNum >= 2 then
     
371.                       begin
     
372.                       This_Player.Give('隐身戒指' , 1);
     
373.                       This_NPC.NpcDialog(This_Player,
     
374.                       '装备已放入您的包裹!');
     
375.                       This_Player.setV(50,7,sum7 + 1) ;
     
376.                        SetG(51,7,sumG7 + 1);
     
377.               end else
     
378.               This_NPC.NpcDialog(This_Player,
     
379.               '没有足够的包裹空间!');
     
380.                 end else  
     
381.                This_NPC.NpcDialog(This_Player,
     
382.               '你的等级不够!');      
     
383.                end else               
     
384.                This_NPC.NpcDialog(This_Player,
     
385.                '你已经领过一次了!');
     
386.                end else
     
387.                This_NPC.NpcDialog(This_Player,
     
388.                '服务器戒指已被领完!');
     
389.     end;
     
390. 
     
391. procedure _lq8;
     
392. 
     
393. begin
     
394.     if  (This_Player.GetV(50,8) > 1) or  (This_Player.GetV(50,8) < 0)  then
     
395.     begin
     
396.          This_Player.setV(50,8,0) ;   
     
397.     end;
     
398.      if  (GetG(51,8) > 5)  or (GetG(51,8) < 0)  then //) or (GetG(51,8) <> 4) or  (GetG(51,8) <> 3) or (GetG(51,8) <> 2) or (GetG(51,8) <> 1)
     
399.          begin
     
400.          SetG(51,8,0) ;   
     
401.     end;
     
402.        sum8 := This_Player.GetV(50,8);
     
403.        sumG8 :=  GetG(51,8)  ;
     
404.     if  sumG8 < 5 then
     
405.          begin
     
406.          if   sum8 < 1 then
     
407.               begin
     
408.                 if  This_Player.Level >= 1 then
     
409.                     begin
     
410.                       if  This_Player.FreeBagNum >= 2 then
     
411.                       begin
     
412.                This_Player.Give('传送戒指' , 1);
     
413.                This_NPC.NpcDialog(This_Player,
     
414.              '装备已放入您的包裹!');
     
415.              This_Player.setV(50,8,sum8 + 1) ;
     
416.                 SetG(51,8, sumG8 + 1);
     
417. 
     
418.               end else
     
419.               This_NPC.NpcDialog(This_Player,
     
420.               '没有足够的包裹空间!');
     
421.                end else  
     
422.                This_NPC.NpcDialog(This_Player,
     
423.               '你的等级不够!');      
     
424.                end else
     
425.                This_NPC.NpcDialog(This_Player,
     
426.                '你已经领过一次了!');
     
427.                end else
     
428.                This_NPC.NpcDialog(This_Player,
     
429.                '服务器戒指已被领完!');
     
430.     end;
     
431. procedure _lq9;  //三选1  
     
432. 
     
433. begin
     
434.     if   (This_Player.GetV(50,9) > 1) or  (This_Player.GetV(50,9) < 0)  then
     
435.     begin
     
436.          This_Player.setV(50,9,0) ;   
     
437.     end;
     
438.     if (GetG(51,9) > 5)  or (GetG(51,9) < 0)  then
     
439.     begin    //) or (GetG(51,9) <> 2) or  (GetG(51,9) <> 1)  
     
440.          SetG(51,9,0) ;   
     
441.     end;
     
442.        sum9 := This_Player.GetV(50,9);
     
443.        sumG9 :=  GetG(51,9)  ;
     
444.     if  sumG9 < 3 then
     
445.          begin
     
446.          if   sum9 < 1 then
     
447.               begin
     
448.                 if  This_Player.Level >= 1 then
     
449.                     begin
     
450.                       if  This_Player.FreeBagNum >= 2 then
     
451.                       begin
     
452.                This_NPC.NpcDialog(This_Player, '你要选择的戒指是\'
     
453. + '{cmd}<麻痹/@mb>     ^<复活/@fh>   ^ <护身/@hs>   ^<返回/@main>');
     
454.               end else
     
455.               This_NPC.NpcDialog(This_Player,
     
456.               '没有足够的包裹空间!');
     
457.                end else  
     
458.                This_NPC.NpcDialog(This_Player,
     
459.               '你的等级不够!');      
     
460.                end else
     
461.                This_NPC.NpcDialog(This_Player,
     
462.                '你已经领过一次了!');
     
463.                end else
     
464.                This_NPC.NpcDialog(This_Player,
     
465.                '服务器戒指已被领完!');
     
466.     end;
     
467. 
     
468. procedure _mb;
     
469. begin
     
470. 
     
471.    if  This_Player.FreeBagNum >= 2 then
     
472.                       begin
     
473.                This_Player.Give('麻痹戒指' , 1);
     
474.                This_NPC.NpcDialog(This_Player,
     
475.              '装备已放入您的包裹!');
     
476.              This_Player.setV(50,9,sum9 + 1) ;
     
477.                 SetG(51,9, sumG9 + 1);
     
478. 
     
479.               end else
     
480.               This_NPC.NpcDialog(This_Player,
     
481.               '没有足够的包裹空间!');
     
482. 
     
483.     end;
     
484. procedure _fh;
     
485. begin
     
486. 
     
487.    if  This_Player.FreeBagNum >= 2 then
     
488.                       begin
     
489.                This_Player.Give('复活戒指' , 1);
     
490.                This_NPC.NpcDialog(This_Player,
     
491.              '装备已放入您的包裹!');
     
492.              This_Player.setV(50,9,sum9 + 1) ;
     
493.                 SetG(51,9, sumG9 + 1);
     
494. 
     
495.               end else
     
496.               This_NPC.NpcDialog(This_Player,
     
497.               '没有足够的包裹空间!');
     
498. 
     
499.     end;
     
500. procedure _hs;
     
501.   begin
     
502. 
     
503.    if  This_Player.FreeBagNum >= 2 then
     
504.                       begin
     
505.                This_Player.Give('护身戒指' , 1);
     
506.                This_NPC.NpcDialog(This_Player,
     
507.              '装备已放入您的包裹!');
     
508.              This_Player.setV(50,9,sum9 + 1) ;
     
509.                 SetG(51,9, sumG9 + 1);
     
510. 
     
511.               end else
     
512.               This_NPC.NpcDialog(This_Player,
     
513.               '没有足够的包裹空间!');
     
514. 
     
515.     end;
     
516. Begin
     
517.   domain;
     
518. 
     
519. end.
     

复制代码

抱歉！您尚未登录，无法查看回复内容！点击此处登录本站