一个很好的会员服务脚本

unit 会员服务;
) w4 d5 X0 U" c" J$ V* u
, x1 q( K7 x% R" o2 p; b2 {inte**ce

! Z: `0 h* {) N. w, |function  GetToken (aStr, aToken, aSep : String) : String;
6 ^& z" ^. I/ s* F) `% Afunction  CompareStr (aStr1, aStr2 : String) : Boolean;
* _# x# x$ H: u4 D) r; ifunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
. W2 o' O3 `  u7 d' N
procedure OnLeftClick (aStr : String);
0 b+ t$ h1 Z) Z! yprocedure OnGetResult (aStr : String);
: G; _% Q, `( J  u( a% s
implementation
procedure OnLeftClick (aStr : String);
: y) v4 ~$ ~4 k! i/ _& xvar
   Str : String;
1 ]+ A' B4 x( b1 x- c+ i- f  s( v   Race : Integer;
  G* V" ]0 y# O# _: q, W9 gbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
6 |5 @* o" a5 }) H# s, Q' o      exit;
   end;
end;
9 z! @+ ?9 g# W9 i  pprocedure OnGetResult (aStr : String);
% z+ w1 ?8 L( r- E% I# xvar
      Str, Name, MapNo, WqName : String;
' Q2 j& i0 T5 Y- o' W         iCount, MapID : Integer;
5 A0 y, p- V5 N+ Wbegin
$ i* e( f/ N' n) _   Name := callfunc ('getsendername');
7 f: r7 Z# ^, L, @   if aStr = 'close' then begin
, t! _) M5 f: e* z* B      exit;
2 I, X! q" R- I' ~1 ?! V/ f& z   end;
   if aStr = 'xuanzhe' then begin
; Z1 z' g9 t" I* W2 h' g! z      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
# w8 N2 S7 D6 ^: _/ Y5 W/ @7 S      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
' o, S0 }( }$ D0 E8 A5 x1 w      print ('say 你不是会员吧');
9 k7 y1 j( h, z5 @3 Z$ B      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
1 ]9 ]# N) p8 m2 P; X1 Z- p! |# a      if Str = 'false' then begin
2 b- v, m$ `9 s1 x4 ~% C( _         print ('say 物品栏已满需要5个空格!');
5 L: p0 Z$ u3 G) i: x         exit;
      end;
& k$ ~3 o5 N* j       for MapId := 0 to 200 do
, ?8 N0 j- `( n       begin
2 Y: `1 q- U) A+ E; Y& O+ l$ Y* A# i8 h       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
$ {4 T" ]- I' Y! c       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
. W& {7 i9 Z/ N' {$ G. H, |       Str := Str + Name;
' \; ^4 F/ z7 e$ y       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
" ^. I  o0 D6 w       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
. e- ]1 J) o! N; N; F. J    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
' R2 _. Q% J/ Y# N+ \    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
5 t* b; r# h5 q6 v5 ?    exit;
   end;
% E9 {2 s3 G9 o3 d, g  P  if aStr = 'chuqu' then begin
+ _# F- b! u$ o( f     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
) a+ W4 L5 B$ l" S* L6 o  N' R8 X% T  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
. ]8 {/ W  e6 V, F. v+ L/ G     exit;
$ q+ T/ c+ ?: D5 S  end;
! N: `% v$ ~! g  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
4 G$ F6 h: T; o6 W     exit;
# e4 g5 z& m) a; A) ^! [3 Y  end;
8 K1 \" h+ I0 u) P  if WqName = '修炼刀' then begin
# g+ \; z1 }+ b& ^4 H" @     print ('say 你不是吧！想带走修炼武器！');
     exit;
& c- B# w% ~) e- i1 Z6 m  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
; d1 t! b7 k* _7 T     exit;
+ B' k3 B' K; ?" q& P: r  end;
      for MapId := 0 to 200 do
      begin
6 h  p) q/ }# s9 M      MapNo := IntToStr (MapID);
1 a/ ~! k- N( F9 i$ g; }       str := 'sendnoticemsgformapuser ' + MapNo;
' n3 e/ O; {% j2 s  A       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
/ \  F2 M% F5 U8 [7 c& A$ ^9 E9 L" B       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
' x7 g5 j* W- C       print (str);
: e: t; |" r/ ?      end;
8 M8 R) Z+ B& C+ e      print ('getsenderitem 修练枪:1');//出去就全部删除物品
4 D/ \- z( m" s' C      print ('getsenderitem 修练刀:1');
, @9 ]: D, c5 Y/ r5 @8 F      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
" U. }7 U& ~. L- |) q      print ('getsenderitem 修练拳套:1');
      print (str);
9 Y: ~! S- q) X& y      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
# F' \# W  n4 x; t0 ?    exit;
  r# c5 d7 Z5 R! s- h7 h   end;
end;
end.

. K% U" r- j. Z4 V' r