一个很好的会员服务脚本

unit 会员服务;
: _& ~+ H  D3 B/ h7 H
$ i" U# g9 J: z4 j6 Jinterface

6 J, ^# N9 h5 ?/ R4 M$ Gfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
- e5 R7 @6 Y9 Y4 x3 w6 x$ ~procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
% D: Z- ]4 d! I* g5 h' l+ o0 [procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
- r  |! T' U0 R6 rfunction  StrToInt (astr: string): integer;
" I8 y" K2 g( K6 ]1 j- T$ Nfunction  IntToStr (aInt: integer): string;
procedure exit;
  C" ]: ~6 D: j+ [5 N1 j' B
- E% L5 p+ r) [9 Z2 zprocedure OnLeftClick (aStr : String);
# Z) y: f& M3 eprocedure OnGetResult (aStr : String);
1 |& j* d! z# x2 G; l
implementation
$ }+ L. N( m* T2 n$ Q5 V; iprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
3 A' d1 X  W  z& m   Race := StrToInt (Str);
$ k" [& W1 o1 ?& c- Z   if Race = 1 then begin
! s6 I3 N# e$ @" [; h/ W$ @" Q      Str := 'showwindow .\help\会员服务.txt 0';
! I- _6 ?/ E( A% Q0 N& M! e7 S0 l      print (Str);
      exit;
   end;
5 ?5 k% t+ K9 x2 W  z3 Z/ L: f/ B7 Yend;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
; o: [" c$ U& U+ u1 X6 C8 |   if aStr = 'close' then begin
      exit;
% y) z0 A: L9 Z" l& r* S( j. r( L   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
8 @" t$ n# h, `3 l- t   end;
; h$ ^( K5 W8 c+ t' t  if aStr = 'lingqu' then begin
, k+ F3 J% s; A" ^. P. P/ A   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
8 F1 y% l* [) z2 z5 ]   if Str = 'false' then begin
1 O2 y# P( H0 c' ^* ?( _. w0 j% q      print ('say 你不是会员吧');
8 m$ H$ ?4 L0 \2 o0 I      exit;
    end;
2 P) A) c0 u, a      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
+ I" W  ]. n) f/ x         print ('say 物品栏已满需要5个空格!');
$ c( w; O; P- k6 A; n         exit;
7 r7 N/ J* O" [9 [7 e7 `      end;
7 n/ b, }* R" W' r, b( E       for MapId := 0 to 200 do
       begin
% b5 E2 ~* F5 Z* }1 b( H       MapNo := IntToStr (MapID);
5 a4 @+ X6 O0 W0 a" _( F       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
5 N9 J/ |, D1 n7 u1 p3 k6 P3 x( a       Str := Str + '【会员系统】:『';
+ I' f8 s  L* y0 x% c2 q       Str := Str + Name;
7 S! M: Z, `0 b  }       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
; z3 |  f- }. j* W; |; Q       print (str);
% p0 S5 b1 P, p; ?9 {  C5 |      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
7 T) Z6 g+ p  b    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
( K1 S; j4 ~' u' ~4 F! G( `8 G& J6 h    exit;
7 J8 H1 G" ?* p! @   end;
& F) k( o& w9 E4 O. F  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 {7 L4 e- Y" V) S9 H+ g, f; V  if WqName = '修炼枪' then begin
* B/ n/ B4 g  L0 F0 U# N, c     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  o3 r; |/ x; [+ L  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
9 d! f/ m( L$ G, |. E* A  {4 X# O2 t     exit;
- l# \! v" |& z$ R% x  end;
# H- V4 a/ E! V) M- ~' n  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
! S) U, c2 u: s  end;
9 P" Q3 N. {# P  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
* {! b1 C& v* A( ]7 [+ O     exit;
, \9 _$ }1 m2 R& W" f  end;
3 I% Q! n* |) k' Y7 H      for MapId := 0 to 200 do
* U) A. s# w4 ~      begin
0 R; }7 F2 b  l9 `( |      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
) T8 G! D! z+ c3 Q) L; N6 e, u       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
% ^/ {0 v' K& B       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
- F) A/ P- E: Q. P      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
  I7 m% @1 f7 I      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
+ [( |1 Y4 K# Z1 S4 j+ W, j# ^      print (str);
      Str := 'movespace ' + Name;
( L! H* f8 Z8 v' T; Z, }! a      Str := Str + ' user 1 500 500';
) V8 {. D# F3 H# ~/ n1 H( D      print (Str);
- K4 R7 i+ z# r2 P' l    exit;
   end;
) `* b" D7 o8 h! w, t8 G) c  Tend;
, w% g; q0 x/ B; Nend.