一个很好的会员服务脚本

unit 会员服务;

% |# _9 H; h9 F. g8 dinte**ce
/ r* F7 |- N5 a
9 P5 v# g& o$ n, _& ~$ Z1 xfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
/ U3 }0 G" d  F+ r) ?# Rprocedure Inc (aInt: integer);
. u5 ~) S- g# N# z* oprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
5 F& f, ?* C# n+ s7 Q0 nprocedure OnLeftClick (aStr : String);
2 l3 Y4 s2 \: R8 a1 n" Q6 avar
   Str : String;
+ T7 c5 J' ^" X: B& v- {+ h   Race : Integer;
- K, k  k  L9 x  H& e0 \begin
" ?# n5 J" g1 h* x% w/ X# k2 B   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
( P! f6 ^) _4 y   if Race = 1 then begin
+ q4 N/ [7 A, R9 `5 s) s      Str := 'showwindow .\help\会员服务.txt 0';
/ T: Z% B6 }2 }      print (Str);
      exit;
   end;
+ Z  Y$ Q' t( ~* R6 ~end;
  g: Z( ]9 Q$ e) G+ R) D/ \4 G( _procedure OnGetResult (aStr : String);
3 B! C# `: v- y6 g) Q' |var
# g/ c) S' C: x+ U9 g( F      Str, Name, MapNo, WqName : String;
( B0 L  ~. `3 N  f4 z' O         iCount, MapID : Integer;
begin
6 c4 q8 i6 t* b1 ?: `   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
1 \3 x( q; U, s4 N   if aStr = 'xuanzhe' then begin
" K# G6 s: Y) r/ j      Str := 'showwindow .\help\会员服务1.txt 0';
( _! G  z, ?% K& ]6 T) u' ~      print (Str);
      exit;
1 H$ s9 N1 B: L, _( Y" |   end;
* ?& l/ l) ~7 ^3 w8 m  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
" r6 ^3 N0 ?0 ^( X+ r6 T2 C# I   if Str = 'false' then begin
. }9 C  o7 S& `. M' b* i      print ('say 你不是会员吧');
) J" Y+ O" m  G9 N# P, s" o      exit;
    end;
1 C5 t. O% \1 }" c7 D; O. d      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
8 w: b  d/ q0 L       for MapId := 0 to 200 do
2 W; }" Q' [: |# F       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
6 H$ v2 e/ J) Y, F: J7 P       Str := Str + Name;
* o, \- U' E( v. z) F: Z0 q1 H       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
/ i# s6 A2 G) A( }. c0 z$ H       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
5 N, x1 y- R9 D8 M    print ('putsendermagicitem 修练斧:1 @会员服务 4');
. o5 ]6 H) G( g, {! Q    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
% o& E0 J# [- S5 n/ Q    print (Str);      
    exit;
. x5 b1 c5 X. c0 D" g   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
4 d. A: C7 R6 B+ ]% y" Q  W! P     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 @% l0 [" ^2 U% I+ s8 w  end;
  if WqName = '修炼剑' then begin
" Y& n( d9 `# R+ W4 p: M     print ('say 你不是吧！想带走修炼武器！');
+ w  V$ C% p  ~3 i2 C5 b     exit;
  end;
  if WqName = '修炼刀' then begin
0 _8 C, T5 _& N! M1 c& g5 o     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 x) n* E" R! w2 a4 j9 ?! k; D  end;
  if WqName = '修炼斧' then begin
1 x8 R9 j% o4 S* Y# F% a! p     print ('say 你不是吧！想带走修炼武器！');
$ r1 O& _& r: t, b8 A! b: i, c- w     exit;
$ V" ~0 `& U& V% P9 J1 v  \% f  end;
  if WqName = '修炼拳套' then begin
5 z% F: _7 q: O; B  T' o8 ?     print ('say 你不是吧！想带走修炼武器！');
6 u2 V% W- W8 O) T, V     exit;
  end;
, y8 o- L% c2 T2 F      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
: z, f+ c) s9 ^8 c       str := 'sendnoticemsgformapuser ' + MapNo;
  n0 ~. S8 m# F, |       Str := Str + ' ';
3 D1 V: ?0 d; ~( Z' ?       Str := Str + '【会员系统】:『';
9 Z2 j  r9 A5 @' y1 x       Str := Str + Name;
. V8 _! n! H( X0 `       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
7 [' g/ L% A* J3 g& @: q/ @/ k4 x$ O      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
4 e8 {% k: B1 Q2 u8 e: M      print ('getsenderitem 修练剑:1');
) Y& C* h6 V1 O$ j2 d6 S; r      print ('getsenderitem 修练斧:1');
, D% ]5 _7 B" \$ j6 D! ~! [      print ('getsenderitem 修练拳套:1');
4 j' u7 n  L0 Z7 y% F4 G      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
% f2 P9 K6 L4 `* E1 T7 ^5 `7 x      print (Str);
: x: T) \8 r5 a7 {, d, W0 M3 U    exit;
9 t) j" D0 U0 C' R  k   end;
, }7 R4 q, ^, A" b- ]% oend;
  E0 h0 h; J. W' \6 Z) c6 uend.