战神引擎端游改过来的土城跑酷奖励活动脚本

战神引擎端游改过来的土城跑酷奖励活动脚本

1. { ***********************
   
2. 土城跑酷
   
3. 作者：开心就好
   
4. 内容：在一个特定的时间段开始在土城一定范围内跑动随机得到一定的物品奖励，比如以下脚本
   
5. 会在每天15：00-15：05 及19：00 -19：05开放
   
6. ******************************}
   
7. program Mir2;
   
8. var
   
9. WpName : string;
   
10. Rdm_int,px, py :Integer;
    
11. 
    
12. Procedure _doexit;
    
13. begin
    
14.    This_Npc.CloseDialog(This_Player);
    
15. end;
    
16. 
    
17. procedure _tcpk;
    
18.    begin
    
19. if This_Player.Level >1 then
    
20.   begin                 
    
21.     This_Player.CallOut(This_Npc, 1, 'tcpk2');
    
22.     This_Player.FlyTo('3',333,333);
    
23.     This_Npc.NpcDialog(This_Player,
    
24.    '请好好把握这幸福的时光。'
    
25.    );
    
26. 
    
27.    end;
    
28.     end;
    
29. 
    
30. procedure tcpk2;
    
31. 
    
32. begin
    
33. Rdm_int := random(100);
    
34. px:= This_player.My_X;
    
35. py:= This_Player.My_Y;
    
36. 
    
37. if  ((GetHour = 15) and (GetMin < 5)) or
    
38. ((GetHour = 15) and (GetMin < 5)) then begin  //自己修改开放时间   
    
39. if (This_Player.MapName = '3') and ( 323 < px ) and (px < 343 )
    
40. and (323 < py ) and (py < 343) then  //在土城坐标333.333 周围10格内跑动有效
    
41.     begin if (This_Player.GetV(77,1)  <> px) or  
    
42.     (This_Player.GetV(77,2)  <> py )then   // 移动才会继续触犯以下代码
    
43.     begin
    
44.       if This_Player.FreeBagNum >= 2 then  
    
45.        begin
    
46.               if Rdm_int < 5 then  // 5%机会获得以下物品
    
47.                 begin
    
48.                 case random(25) of    // 5%机会获得以下25个物品中的一个
    
49.                     0 : WpName := '屠龙';
    
50.                     1 : WpName := '嗜魂法杖';
    
51.                     2 : WpName := '逍遥扇';
    
52.                                         3 : WpName := '圣战头盔';
    
53.                                         4 : WpName := '光芒项链';
    
54.                     5 : WpName := '光芒手镯';
    
55.                     6 : WpName := '光芒戒指';
    
56.                                         7 : WpName := '烈焰戒指';
    
57.                     8 : WpName := '烈焰项链';
    
58.                     9 : WpName := '烈焰手镯';
    
59.                                         10: WpName := '雷霆项链';
    
60.                                         11 :WpName := '传送戒指';
    
61.                                         12: WpName := '麻痹戒指';
    
62.                     13 :WpName := '隐身戒指';
    
63.                     14 :WpName := '雷霆手镯';
    
64.                                         15: WpName := '防御戒指';
    
65.                                         16: WpName := '天师长袍';
    
66.                                         17 :WpName := '天尊道袍';
    
67.                                         18: WpName := '霓裳羽衣';
    
68.                     19 :WpName := '法神披风';
    
69.                     20 :WpName := '圣战宝甲';
    
70.                                         21: WpName := '天魔神甲';
    
71.                                         22 :WpName := '噬血术';
    
72.                     23 :WpName := '逐日剑法';
    
73.                                         24: WpName := '流星火雨';
    
74.                                         end;
    
75. 
    
76.              end else if Rdm_int < 10 then  
    
77.                 begin
    
78.                 case random(16) of
    
79.                     0 : WpName := '屠龙';
    
80.                     1 : WpName := '嗜魂法杖';
    
81.                     2 : WpName := '逍遥扇';
    
82.                                         4 : WpName := '圣战项链';
    
83.                     5 : WpName := '圣战手镯';
    
84.                     6 : WpName := '天尊戒指';
    
85.                                         7 : WpName := '圣战戒指';
    
86.                     8 : WpName := '天尊项链';
    
87.                     9 : WpName := '天尊手镯';
    
88.                                         10: WpName := '法神项链';
    
89.                                         11 :WpName := '法神戒指';
    
90.                                         12: WpName := '圣战戒指';
    
91.                     13 :WpName := '技巧项链';
    
92.                     14 :WpName := '法神手镯';
    
93.                                         15: WpName := '防御戒指';                                       
    
94.             end;
    
95. 
    
96.              end   
    
97.              else if Rdm_int < 20 then
    
98.                 begin
    
99.                 case random(10) of
    
100.                     0 : WpName := '青铜腰带';
     
101.                     1 : WpName := '龙牙';
     
102.                     2 : WpName := '龙纹剑';
     
103.                                         3 : WpName := '怒斩';
     
104.                     4 : WpName := '黑铁头盔';
     
105.                     5 : WpName := '恶魔铃铛';
     
106.                     6 : WpName := '三眼手镯';
     
107.                     7 : WpName := '泰坦戒指';
     
108.                     8 : WpName := '力量戒指';
     
109.                     9 : WpName := '天尊头盔';
     
110.              end;
     
111. 
     
112.              end  
     
113.              else if Rdm_int < 50 then
     
114.                 begin
     
115.                 case random(13) of
     
116.                     0 : WpName := '裁决之杖';
     
117.                     1 : WpName := '骨玉权杖';
     
118.                     2 : WpName := '无极棍';
     
119.                                         3 : WpName := '10灵符礼包';
     
120.                     4 : WpName := '祝福油';
     
121.                     5 : WpName := '金刚石';
     
122.                                         6 : WpName := '1元宝';
     
123.                                         7 : WpName := '2元宝';
     
124.                                         8 : WpName := '10元宝';
     
125.                                         9 : WpName := '5元宝';
     
126.                                         10 : WpName := '2灵符礼包';
     
127.                                         11 : WpName := '5灵符礼包';
     
128.                                         12 : WpName := '1灵符礼包';
     
129.            end;
     
130. 
     
131.              end   
     
132.         else if Rdm_int < 99 then
     
133.                 begin
     
134.                 case random(4) of
     
135.                     0 : begin
     
136.                                         This_Player.Give('经验',5000);
     
137.                                         This_Player.PlayerNotice('你获得5000经验！' , 1);
     
138.                                         end;
     
139.                     1 : begin
     
140.           This_Player.Give('经验',50000);
     
141.                                         This_Player.PlayerNotice('你获得50000经验！' , 1);
     
142.                                         end;
     
143.                     2 : begin This_Player.Give('经验',500000);
     
144.                                         This_Player.PlayerNotice('你获得50000经验！' , 1);
     
145.                                         end;
     
146.                                         3 :  begin This_Player.Give('经验',5000000);
     
147.                                         This_Player.PlayerNotice('你获得500w经验！' , 1);
     
148.                                         end;
     
149.                 end;
     
150.                 end;
     
151. 
     
152. 
     
153.         This_Player.Give(WpName , 1);
     
154.         This_Player.PlayerNotice(
     
155.             WpName + '已放入您的包裹!\',1);
     
156.      This_Player.setV(77,1,px);
     
157.       This_Player.setV(77,2,py) ;
     
158.       This_Player.CallOut(This_Npc, 2, 'tcpk2');  // 2秒后循环运行
     
159.       end else
     
160.         This_Player.PlayerNotice(
     
161.            '你的包裹空间不够!',1);
     
162.      This_Player.CallOut(This_Npc, 2, 'tcpk2');   //  再次符合条件后继续运行
     
163.    end else
     
164.    This_Player.PlayerNotice(
     
165.            '跑起来才有东西!',1);
     
166.     This_Player.CallOut(This_Npc, 2, 'tcpk2');   //再次符合条件后继续运行
     
167.    end else
     
168.     This_Player.PlayerNotice(
     
169.            '你跑得太远了!',1);
     
170.     This_Player.CallOut(This_Npc, 2, 'tcpk2');   // 再次符合条件后继续运行
     
171.    end else
     
172.    This_Player.PlayerNotice(
     
173.            '不在活动时间!',1);
     
174.    end;
     
175. 
     
176. begin   
     
177. This_NPC.NpcDialog(This_Player,
     
178.    '土城跑酷：\ \'+
     
179.    '欢迎来到开心就好土城跑酷.\ \'+
     
180.    '在土城一定范围内不停移动能随机获得多种物品.\ \'+
     
181.    '想要强大就得快人一步、可以在这里跑酷.\ \'+
     
182.    '|{cmd}<◆开始跑酷/@tcpk>');
     
183. end.   

复制代码