战神引擎激情闭关 泡点脚本

战神引擎激情闭关 泡点脚本

1.    {
   
2. *******************************************************************}
   
3. 
   
4. program Mir2;
   
5. 
   
6. 
   
7. Procedure _doexit;
   
8. begin
   
9.    This_Npc.CloseDialog(This_Player);
   
10. end;
    
11. 
    
12. function Gaoji0LB(price, num: Integer):boolean;
    
13. begin                                               
    
14. 
    
15.   result := true;
    
16. end;
    
17. 
    
18. procedure _YBBG;
    
19. 
    
20. begin            
    
21. if This_Player.YBNum >= 1 then  
    
22. begin   
    
23. if This_Player.Level < 50 then
    
24.   begin                 
    
25.     This_Player.CallOut(This_Npc, 1, 'MFBG2');
    
26.     This_Player.RandomFlyTo('Q004~2');
    
27.     This_Npc.NpcDialog(This_Player,
    
28.    '请好好把握这幸福的时光。'
    
29.    );
    
30. 
    
31.    end
    
32.    else  
    
33.    begin
    
34.        This_Player.FlyTo('3', 333, 333);
    
35.        This_Npc.NpcDialog(This_Player,
    
36.    '不在指定地图。'
    
37.    );   
    
38.    end;
    
39.   end
    
40.   else  
    
41.   begin
    
42.        This_Player.FlyTo('3', 333, 333);
    
43.        This_Npc.NpcDialog(This_Player,
    
44.    '元宝不足了。'
    
45.    );   
    
46.   end;
    
47.     end;
    
48. 
    
49. procedure MFBG2;
    
50. begin
    
51.    if This_Player.YBNum >= 1 then
    
52.    begin
    
53.    if This_Player.Level < 49 then
    
54.    begin
    
55.    if CompareText(This_Player.MapName,'Q004~2') = 0 then
    
56.   begin
    
57.     This_Player.CallOut(This_Npc, 1, 'MFBG2');
    
58.     This_Player.Give('经验',250000);
    
59.     This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1,1);
    
60. 
    
61.    end
    
62.    else  
    
63.    begin
    
64.        This_Player.FlyTo('3', 333, 333);
    
65.        This_Npc.NpcDialog(This_Player,
    
66.    '不在指定地图。'
    
67.    );   
    
68.    end;
    
69.   end
    
70.   else  
    
71.   begin
    
72.        This_Player.FlyTo('3', 333, 333);
    
73.        This_Npc.NpcDialog(This_Player,
    
74.    '等级超过48级。'
    
75.    );   
    
76.   end;  
    
77. end
    
78. else
    
79. begin
    
80.      This_Player.FlyTo('3', 333, 333);
    
81.      This_Npc.NpcDialog(This_Player,
    
82.    '元宝不足。'
    
83.    );
    
84.     end;
    
85.     end;
    
86. 
    
87. 
    
88. 
    
89. 
    
90. begin
    
91.    This_NPC.NpcDialog(This_Player,
    
92.    '激情闭关：\ \'+
    
93.    '欢迎来到元宝激情闭关.\ \'+
    
94.    '里面将是一个最激情最具有特色危险恐怖的地方.\ \'+
    
95.    '想要强大就得快人一步、可以在里面泡到48级哦.\ \'+
    
96.    '|{cmd}<◆元宝闭关/@YBBG>');
    
97. end.   

复制代码