一个很好的会员服务脚本

unit 会员服务;
; p2 a/ l$ I- w7 k& P" Q. n7 H
) E- W$ i( W+ i, i  w- yinterface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
2 C, g  ?8 B2 F; J9 ~! c; ~7 bfunction  callfunc (aText: string): string;
5 M1 g# I& D7 h& [% L) q3 W3 G/ m$ Wprocedure print (aText: string);
. _# L* F" s- pfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
3 D$ @9 I2 u  w4 J# T' sprocedure Inc (aInt: integer);
- e6 \& h9 C0 D) D; J1 `! ?6 g7 k3 \1 r0 dprocedure Dec (aInt: integer);
" ]9 A! p' m8 o5 `* \5 |) }function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
" W2 o- @% W. k1 }procedure exit;

' m" y8 \# @8 U. \) `+ k- Oprocedure OnLeftClick (aStr : String);
6 ]. C+ F& H* [0 eprocedure OnGetResult (aStr : String);

3 P: \. k* d% zimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
* q; X& Z2 p* H! j% t   Race : Integer;
3 i2 {4 J) D) f5 M6 k4 ~begin
1 Z/ D  d( i8 h: f- L   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
4 L2 `+ o; z7 \      Str := 'showwindow .\help\会员服务.txt 0';
  b$ W( e! V2 N3 ^# |" c      print (Str);
      exit;
   end;
, d  J: [/ J+ }; Bend;
$ `' {9 k; O4 ^. p$ l- i- v: Xprocedure OnGetResult (aStr : String);
# n6 u" J4 K1 _8 wvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
1 {0 b2 |4 N- v; _   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
  Q% F* E& m* P+ Z6 D& D   end;
) r! n; U3 k5 T: X   if aStr = 'xuanzhe' then begin
0 e- a% W% |4 Y: B8 o, b% q! o! g      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
8 m0 F+ u8 H, T) |  G3 [1 F  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
$ \& ]9 `0 P1 t  w, |% T   if Str = 'false' then begin
$ y' U8 v8 q" b; I+ W; V4 b      print ('say 你不是会员吧');
2 J# W; q  O: p7 a: t" [" g      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
  q1 z0 A" |3 u. c6 y- ]4 k      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
% e  O0 g3 v9 \" ^1 p. c       for MapId := 0 to 200 do
# G! B- n6 _: _! k1 F, C       begin
- G0 `0 `* H$ w" A3 ~4 I       MapNo := IntToStr (MapID);
7 X% W7 F( ]5 d5 H5 d/ G       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
1 R3 N) _" B) }' [) F      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
  }2 J% b! W( S7 f% I+ U/ X: h6 B    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
6 N5 ^: W1 {; \2 m" y  R7 @! h" I    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
/ }8 S5 z: Z# |1 k! e/ Q0 I     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
3 Y3 ?* @# F" }, ?6 ]! ?7 f  if WqName = '修炼枪' then begin
1 N3 C; n. I3 z     print ('say 你不是吧！想带走修炼武器！');
' A9 r9 E0 l6 e- R- [     exit;
  end;
2 V& U, @7 b& q& p( L  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 m* |! X  n. K8 f) J. L; h; u     exit;
# {) Y4 D, i7 r' [8 [& |& C! K! n9 _  end;
5 H) T7 r+ @) n1 P6 ]6 e8 ]  if WqName = '修炼刀' then begin
9 N5 q9 u: d9 ^- O" o     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
7 ?) a; F5 l' [  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
+ e( _8 E4 e7 j: u$ f' ^" c     exit;
  end;
& T3 M2 f. W/ }( f  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
% I# I, _  t2 u/ p( S       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
+ _# y1 Y$ ]+ \1 P% W       Str := Str + '【会员系统】:『';
; ], R* Y" w9 B       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
, y" B' h, ]) V; u3 P" F      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
3 i: [- |( B. t$ [, S. z      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
+ K# F+ a  O$ Y      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
1 r; O! G; p& n) q( w! g' P7 e" ~      print (Str);
# r+ s; n1 v9 x1 t    exit;
   end;
# T4 k% r- h4 z4 R, u$ h7 v5 iend;
# s! Y; x- S# D6 Nend.

+ i/ W# N7 {4 l' h