一个很好的会员服务脚本

unit 会员服务;
- O5 B: K) _: @" e
; w3 \( q" Z) [) C- q0 Iinterface

function  GetToken (aStr, aToken, aSep : String) : String;
! m* F+ l0 b) }function  CompareStr (aStr1, aStr2 : String) : Boolean;
" k0 Q$ F1 }' L$ Bfunction  callfunc (aText: string): string;
6 {% P; F- U) F4 F5 x. u: lprocedure print (aText: string);
9 ~% j1 J+ i% t0 k4 c5 ifunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
! h! ?0 V: I% F* Qprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
4 _( ^$ f; l- g7 H8 `% b" C1 h1 `  Qfunction  StrToInt (astr: string): integer;
* D# m6 @% d) i# hfunction  IntToStr (aInt: integer): string;
" Q  j5 M' n2 c7 e: H5 Eprocedure exit;
( ]3 y: S9 A, Q4 j! B: @
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

. F# J% ]7 P( S; X/ U$ [implementation
! ]: a4 w  ^+ I" q; D1 Z# iprocedure OnLeftClick (aStr : String);
var
" h) c$ c, a+ d9 X9 y+ x  \   Str : String;
   Race : Integer;
( p# k2 T" S5 Vbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
' {4 w  N+ l6 Y. F: i1 ~4 B      Str := 'showwindow .\help\会员服务.txt 0';
4 d- B3 P) y- F) Z: E0 U" j0 E7 Z! t      print (Str);
7 T7 n3 |" t: \" Y! [      exit;
   end;
end;
procedure OnGetResult (aStr : String);
var
: v5 \! r& [, p. |8 I% J      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
+ p; q( j/ K5 {4 D4 O6 |begin
% \5 p8 U. u. S: U! G& [  l   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
! ^2 p" K" D3 C   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
1 @! U0 \! ]0 E      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
' o) }5 J5 z9 E4 V9 @" K1 _      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
+ c' G, q* W8 F8 ?& c      if Str = 'false' then begin
7 ]  |* _! M5 J9 L$ r5 o" Q         print ('say 物品栏已满需要5个空格!');
         exit;
  y6 d0 C4 v' X* L      end;
       for MapId := 0 to 200 do
       begin
. I/ t- N$ {# q' l' o/ b$ U       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
( j( `# c6 W9 D7 Z/ E       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
5 o+ w  ]/ G3 C# W* h+ t% E    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
, K" P3 \. T5 v# _    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 S4 Q2 _9 H3 v% _  if WqName = '修炼枪' then begin
1 ~6 V9 V2 }; R2 t) z     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
, b4 z8 m1 {; h3 K/ H4 o  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
! _0 z( ]6 j/ r     exit;
5 W* }! ~% A. I8 r& O9 X- x0 K  end;
5 ^# F/ `' `4 c& n- c2 X  i" C, r; m* k  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
* ^0 d8 s5 M  h" B- T+ s( R2 u( C  if WqName = '修炼斧' then begin
( U- s& E. d1 c2 R( S2 O     print ('say 你不是吧！想带走修炼武器！');
* I3 V0 u; S/ ~, ?$ D5 e# B     exit;
' _5 a3 O9 [5 w, ^' R5 d/ \8 q3 \  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 [8 X2 w, K& w3 o: E9 J! ~0 ?  end;
      for MapId := 0 to 200 do
      begin
4 G! B, J  ~% m. @+ X- s      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
8 k  c$ Q' Z( l       Str := Str + ' ';
4 N8 r$ A  Y' T5 a       Str := Str + '【会员系统】:『';
7 V2 Y0 a% V9 U4 x) W. X: s       Str := Str + Name;
* v8 V7 p4 b8 O1 ?) z       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
* G. J& }' F  D' L- Y7 m       print (str);
0 R# L8 U* X5 E: {) A; z6 D      end;
  J' W" g4 }- p; Z; d& f      print ('getsenderitem 修练枪:1');//出去就全部删除物品
0 ]7 y) K" ~. l# h; x3 a      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
- l6 b9 S8 _( l" n5 U      print ('getsenderitem 修练斧:1');
  M- ?  V( A$ J& o      print ('getsenderitem 修练拳套:1');
      print (str);
" E- S# P) `+ l: E. r% U      Str := 'movespace ' + Name;
4 C& n; a/ x7 t. }+ s      Str := Str + ' user 1 500 500';
* y" t! Q* ?# g# E      print (Str);
+ y+ i$ d, m% L, {4 X) }8 m  s8 i    exit;
1 V8 E. |7 |: `   end;
  e  A: C* |' L( A: F, Fend;
end.