一个很好的会员服务脚本

unit 会员服务;
% R9 N2 o6 `9 t# u& O! j' V: x8 `/ X4 O2 g
' v/ C& {' x) W! o- Kinterface

function  GetToken (aStr, aToken, aSep : String) : String;
+ Z6 ~6 N  N6 H1 [" Y, D8 T) [4 Hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
' y8 T' F* D/ O6 Z* T$ u1 Mfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
) e8 ?( \% \' G( g+ \procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: X! f1 @2 y5 `. b" @" vfunction  IntToStr (aInt: integer): string;
procedure exit;
, u- G. ~; p5 L! d/ h2 U
! a, M% Q5 X" |$ ]# \( ]9 m1 jprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
& q& }8 Z  P9 [0 K
implementation
procedure OnLeftClick (aStr : String);
var
$ J( I' P0 E3 p) x, o* ]' |0 I# z$ e   Str : String;
   Race : Integer;
6 c% n9 A6 {8 Tbegin
   Str := callfunc ('getsenderrace');
( C: V$ }1 h1 A  s% C" p& @1 F   Race := StrToInt (Str);
   if Race = 1 then begin
8 n- E1 L: m. i' o6 N, p( m8 Y      Str := 'showwindow .\help\会员服务.txt 0';
" j2 [& E" w% p0 X; L# t7 d' U      print (Str);
3 k" L& G4 r+ @3 G4 i      exit;
# e* k; [8 [7 i# B0 z6 @- C' n9 X   end;
end;
! z$ Q* c+ n2 G- N3 ]  `6 P* qprocedure OnGetResult (aStr : String);
var
8 l/ p" N' v- N1 H# ^, V      Str, Name, MapNo, WqName : String;
7 a( I; ]8 z) i% ^* U, t- ?         iCount, MapID : Integer;
& @9 p0 }5 t2 m& t7 @/ e- {3 Q. bbegin
' _% H6 [7 J: k/ R   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
" }( I& B# L# c9 x      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
  W7 e! [) Q& T/ v, t/ L: f( A      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
, o& w: I, @2 O$ t   if Str = 'false' then begin
8 R- Y( k% v2 w# D. Z$ y5 R" |      print ('say 你不是会员吧');
      exit;
    end;
( f! J4 o7 J# h4 I9 J2 i      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
: K% W& C2 k& w7 e0 g+ B         exit;
# X! a) U2 ~7 M' x: R8 j3 m$ k  T( N, H      end;
       for MapId := 0 to 200 do
/ `' N1 N" r# i       begin
/ {1 O0 f: x3 T# J# c       MapNo := IntToStr (MapID);
& Q: @, P3 q* W       str := 'sendnoticemsgformapuser ' + MapNo;
2 K1 r* I5 r( p3 w/ j$ t2 x       Str := Str + ' ';
* b. @4 u$ H4 t, q       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
7 Q) C. M) t% A1 y$ j       print (str);
: s( v; Y0 u5 O! M) P9 g& Z      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
& n9 R0 l  ]0 i3 ^2 q, U' R    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
) P8 v6 {5 U- p* B    exit;
   end;
5 [5 }$ L* ]" ?  U- o+ b" T0 E% k: D  if aStr = 'chuqu' then begin
2 c7 c' q4 R+ M( k6 _  b! H5 |     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& H) Q' p1 |$ b  if WqName = '修炼枪' then begin
  n# U$ p' c: H6 x+ v2 W' `     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
6 L% |5 }( @8 Q6 K# v2 M' a: e     print ('say 你不是吧！想带走修炼武器！');
     exit;
  c; A( ~( a' u  R  end;
  if WqName = '修炼刀' then begin
7 c5 `- s1 S/ O& S2 M     print ('say 你不是吧！想带走修炼武器！');
0 F9 h0 b; A8 i+ z. C$ K     exit;
  end;
  if WqName = '修炼斧' then begin
( \6 _6 C* d. e# Q     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
2 o5 a% h+ u2 F3 Z  if WqName = '修炼拳套' then begin
0 n+ X/ A/ L9 b7 X6 K4 ^0 p7 S  K: M( e     print ('say 你不是吧！想带走修炼武器！');
% O. L+ `( Q. H( ]1 }$ O     exit;
4 e% D2 o+ l& e& s! [  end;
6 N) {4 n8 S% e% z9 l      for MapId := 0 to 200 do
  Z- Y+ J6 y  t  v0 f1 q2 F  }- F      begin
3 h, p) ]& l9 f) U      MapNo := IntToStr (MapID);
$ Y# g* z2 S7 ]" N1 p4 j4 E       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
2 d' O2 A# W" j& X" f4 v  H3 V       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
5 {: q9 H8 W/ ~1 A( \: e# T      end;
! e- `7 m0 S* ~5 C& E7 Q& p9 z      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
4 ~) k. H+ S* ]* H0 d- v      print (str);
      Str := 'movespace ' + Name;
5 s- }8 n4 u, j+ f% }5 i) I      Str := Str + ' user 1 500 500';
      print (Str);
  i4 |! m2 j: R$ s' i% C* P    exit;
   end;
end;
end.

, E* R& g) |; Y  b; ]- P4 W. f