战神引擎纯净卡密兑换充值元宝使者,自助充值脚本

战神引擎纯净卡密兑换充值元宝使者,自助充值脚本

1. {
   
2. *******************************************************************}
   
3. 
   
4. program Mir2;
   
5. 
   
6. {$I common.pas}
   
7. 
   
8. 
   
9. procedure _DoExit;
   
10. begin
    
11.   This_Npc.CloseDialog(This_Player);
    
12. end;
    
13. 
    
14. 
    
15. 
    
16. 
    
17. Procedure _DoInputDialog1;
    
18. var wrongStr : string;
    
19. d1 , d2 , d3 : integer;
    
20. s1 , td : double;
    
21. temp_2 : integer;
    
22. begin
    
23.       s1 := GetNow;
    
24.       d2 := This_Player.GetS(23,1);
    
25.       //将getnow的浮点数转换为整型进行保存；
    
26. 
    
27.       td := ConvertDBToDateTime(d2);
    
28. 
    
29.       d3 := minusDataTime(s1,td);
    
30. 
    
31.       temp_2 := This_Player.GetS(23,2);
    
32. 
    
33. 
    
34.    if (d3 >= 300) then
    
35.    wrongStr := ''
    
36.    else
    
37.    wrongStr := '错误次数' + inttostr(This_Player.GetS(23,2)) + '/3';
    
38. 
    
39.    This_Npc.InputDialog(This_Player,'请输入卡密：' + wrongStr , 0 , 100);
    
40. end;
    
41. 
    
42. 
    
43. Procedure P100;
    
44. var
    
45. d1 , d2 , d3 : integer;
    
46. s1 , td : double;
    
47. temp_2 : integer;
    
48. begin
    
49.       s1 := GetNow;
    
50.       d2 := This_Player.GetS(23,1);
    
51.       //将getnow的浮点数转换为整型进行保存；
    
52. 
    
53.       td := ConvertDBToDateTime(d2);
    
54. 
    
55.       d3 := minusDataTime(s1,td);
    
56. 
    
57.       temp_2 := This_Player.GetS(23,2);
    
58. 
    
59. 
    
60.    if (d3 >= 300) or (This_Player.GetS(23,2) < 3) then
    
61.    begin
    
62.        If This_Npc.InputOK then
    
63.        begin
    
64.           //This_Player.PlayerNotice(This_Npc.InputStr,0);
    
65.           This_Player.QueryAwardCode(This_Npc.InputStr);
    
66.        end;
    
67.    end else
    
68.    begin
    
69. 
    
70. 
    
71.    This_Npc.NpcDialog(This_Player,
    
72.    '你已连续输入错误卡密3次，将锁定5分钟！请' + inttostr(300 - d3) + '秒后再次尝试！'
    
73.    );
    
74.    end;
    
75. end;
    
76. 
    
77. 
    
78. 
    
79. Begin     
    
80.     This_Npc.NpcDialog(This_Player,
    
81.     '您好，有什么可以效劳的？我可以为您提供关于元宝的各类服务。\ \'
    
82.     +'|{cmd}<使用卡密兑换元宝/@DoInputDialog1>'
    
83.     );
    
84. 
    
85. end.

复制代码

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

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