一个很好的会员服务脚本

unit 会员服务;
" j/ y+ q& Q8 E" b# i
inte**ce
6 D0 i9 {' z8 `' S' e
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
/ C/ t: m7 ~9 U9 }, E, ]function  Random (aScope: integer): integer;
$ s* W/ t9 r4 Z8 d: d7 S' tfunction  Length (aText: string): integer;
  n4 Z; F$ c1 @8 B2 Xprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
& G" d2 F4 ^  U( P) H5 @$ afunction  StrToInt (astr: string): integer;
% g! C7 N# C( W. i$ zfunction  IntToStr (aInt: integer): string;
# u: d7 C( S( kprocedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
& {4 V& G8 i6 }: I" |7 ^
" z( @8 ~8 D; |, u* O; e& k9 H8 aimplementation
procedure OnLeftClick (aStr : String);
var
# b. J: j8 n: m0 n: a' r6 W   Str : String;
: l+ e3 b1 K5 t1 V; p4 t- x( g( [   Race : Integer;
8 F( q1 p6 n3 Y7 Qbegin
2 x* T2 d- B& g6 b1 H9 E   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
* r3 I5 r& n( I$ R   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
  r8 a/ C% x& y& ~8 s      exit;
; l. |9 R# C& U  `1 _   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
. \3 f# |0 v# W- e/ r      print (Str);
      exit;
# f/ o6 x1 W, U& L! g   end;
. }. K% o# [" r$ V  if aStr = 'lingqu' then begin
* g; G% V, I. R, C8 k   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
2 v/ @8 @6 c  s* P0 H9 Z! g& k   if Str = 'false' then begin
" c7 W; S2 t* k6 a. B      print ('say 你不是会员吧');
      exit;
' e& H: [4 \; ^/ p$ q* b    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
: ]5 _7 j" Z* X# j& z: }2 l         print ('say 物品栏已满需要5个空格!');
3 }2 _/ G3 D& _& H9 F  b         exit;
      end;
       for MapId := 0 to 200 do
) K$ P+ Q5 J5 i: R) ]8 V       begin
       MapNo := IntToStr (MapID);
8 ~4 M& z9 f6 D) C$ z* J3 ^) O       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
8 W* U. W' x, X0 i       Str := Str + '【会员系统】:『';
6 M2 x7 x3 j- w* E& G       Str := Str + Name;
1 g0 M% f4 _9 _; K8 l- N       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
+ G* y/ i9 U- Y* }/ y       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
3 f5 k8 p' l+ b* ^/ K$ [    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
, Z7 \" p" V. o' l    print ('putsendermagicitem 修练剑:1 @会员服务 4');
) ^# T# f, z& d1 s3 W    print ('putsendermagicitem 修练斧:1 @会员服务 4');
5 E; t# ?: k4 x/ M, P, W* f    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
$ S+ g( I4 k% U" p  L   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  R  m/ d7 ]2 m0 x* }9 |  if WqName = '修炼枪' then begin
$ r! M2 c+ ~6 F9 x     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
" Y5 }2 F4 V8 w! ]. Z     print ('say 你不是吧！想带走修炼武器！');
/ ~. D8 P, S( c; Q  B, ?     exit;
  end;
5 c$ S$ Z4 c* u2 q  if WqName = '修炼刀' then begin
1 v1 }' R( S5 V' t& O     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 s) }: n' T% }1 ?% K: _     exit;
  end;
  if WqName = '修炼拳套' then begin
' c3 p* J# ?: y     print ('say 你不是吧！想带走修炼武器！');
8 @: j/ L5 U% R( [     exit;
9 A* m" P0 Z/ r2 D  end;
/ E1 o; V/ Q% h$ D- |$ [      for MapId := 0 to 200 do
      begin
" u: z. G) L1 P      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
9 f$ j$ u# n( a% A6 x      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
3 s- j# A" W7 G% x) Y" Y      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
2 `. d7 E% I$ N- E- N* g1 M7 }      print (Str);
3 t& d% u1 u- w) J8 t& H' N    exit;
% A/ G- Q, R, Y% R" m   end;
3 Z4 m/ Q# l' ?1 R2 Send;
end.