【千年服务端】一个很好的会员服务脚本

一个很好的会员服务脚本

1. unit 会员服务;
   
2. 
   
3. interface
   
4. 
   
5. function  GetToken (aStr, aToken, aSep : String) : String;
   
6. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
7. function  callfunc (aText: string): string;
   
8. procedure print (aText: string);
   
9. function  Random (aScope: integer): integer;
   
10. function  Length (aText: string): integer;
    
11. procedure Inc (aInt: integer);
    
12. procedure Dec (aInt: integer);
    
13. function  StrToInt (astr: string): integer;
    
14. function  IntToStr (aInt: integer): string;
    
15. procedure exit;
    
16. 
    
17. procedure OnLeftClick (aStr : String);
    
18. procedure OnGetResult (aStr : String);
    
19. 
    
20. implementation
    
21. procedure OnLeftClick (aStr : String);
    
22. var
    
23.    Str : String;
    
24.    Race : Integer;
    
25. begin
    
26.    Str := callfunc ('getsenderrace');
    
27.    Race := StrToInt (Str);
    
28.    if Race = 1 then begin
    
29.       Str := 'showwindow .\help\会员服务.txt 0';
    
30.       print (Str);
    
31.       exit;
    
32.    end;
    
33. end;
    
34. procedure OnGetResult (aStr : String);
    
35. var
    
36.       Str, Name, MapNo, WqName : String;
    
37.          iCount, MapID : Integer;
    
38. begin
    
39.    Name := callfunc ('getsendername');
    
40.    if aStr = 'close' then begin
    
41.       exit;
    
42.    end;
    
43.    if aStr = 'xuanzhe' then begin
    
44.       Str := 'showwindow .\help\会员服务1.txt 0';
    
45.       print (Str);
    
46.       exit;
    
47.    end;
    
48.   if aStr = 'lingqu' then begin
    
49.    Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
    
50.    if Str = 'false' then begin
    
51.       print ('say 你不是会员吧');
    
52.       exit;
    
53.     end;
    
54.       Str := callfunc ('checkenoughspace 5');
    
55.       if Str = 'false' then begin
    
56.          print ('say 物品栏已满需要5个空格!');
    
57.          exit;
    
58.       end;
    
59.        for MapId := 0 to 200 do
    
60.        begin
    
61.        MapNo := IntToStr (MapID);
    
62.        str := 'sendnoticemsgformapuser ' + MapNo;
    
63.        Str := Str + ' ';
    
64.        Str := Str + '【会员系统】:『';
    
65.        Str := Str + Name;
    
66.        Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
    
67.        print (str);
    
68.       end;
    
69.     print ('putsendermagicitem 修练枪:1 @会员服务 4');
    
70.     print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    
71.     print ('putsendermagicitem 修练剑:1 @会员服务 4');
    
72.     print ('putsendermagicitem 修练斧:1 @会员服务 4');
    
73.     print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    
74.     print (Str);      
    
75.     exit;
    
76.    end;
    
77.   if aStr = 'chuqu' then begin
    
78.      WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!
    
79.   if WqName = '修炼枪' then begin
    
80.      print ('say 你不是吧！想带走修炼武器！');
    
81.      exit;
    
82.   end;
    
83.   if WqName = '修炼剑' then begin
    
84.      print ('say 你不是吧！想带走修炼武器！');
    
85.      exit;
    
86.   end;
    
87.   if WqName = '修炼刀' then begin
    
88.      print ('say 你不是吧！想带走修炼武器！');
    
89.      exit;
    
90.   end;
    
91.   if WqName = '修炼斧' then begin
    
92.      print ('say 你不是吧！想带走修炼武器！');
    
93.      exit;
    
94.   end;
    
95.   if WqName = '修炼拳套' then begin
    
96.      print ('say 你不是吧！想带走修炼武器！');
    
97.      exit;
    
98.   end;
    
99.       for MapId := 0 to 200 do
    
100.       begin
     
101.       MapNo := IntToStr (MapID);
     
102.        str := 'sendnoticemsgformapuser ' + MapNo;
     
103.        Str := Str + ' ';
     
104.        Str := Str + '【会员系统】:『';
     
105.        Str := Str + Name;
     
106.        Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
     
107.        print (str);
     
108.       end;
     
109.       print ('getsenderitem 修练枪:1');//出去就全部删除物品
     
110.       print ('getsenderitem 修练刀:1');
     
111.       print ('getsenderitem 修练剑:1');
     
112.       print ('getsenderitem 修练斧:1');
     
113.       print ('getsenderitem 修练拳套:1');
     
114.       print (str);
     
115.       Str := 'movespace ' + Name;
     
116.       Str := Str + ' user 1 500 500';
     
117.       print (Str);
     
118.     exit;
     
119.    end;
     
120. end;
     
121. end.

复制代码

下载地址

一个很好的会员服务脚本.doc

网盘失效？举报有奖

立即下载

免费

您已购买

金币

【年费VIP仅需28元】   【购买VIP会员】  
【充值金币】  【免费领取金币】 
【解压密码在此下载文档内，请仔细阅读！】