一个很好的会员服务脚本

unit 会员服务;
) L- L: I- f8 y, \$ r
  A; ~! a( R3 h- Ainte**ce
  F8 r, }; ]! P
function  GetToken (aStr, aToken, aSep : String) : String;
! q5 e3 Y7 S6 c  P: W  H- Tfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
5 V4 T  q7 B: ]1 V) Eprocedure print (aText: string);
function  Random (aScope: integer): integer;
% @- D- ]1 I( \8 ~2 a0 lfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
) Y: z& d% |- sfunction  IntToStr (aInt: integer): string;
procedure exit;

6 Q# s. @( E) o. }0 nprocedure OnLeftClick (aStr : String);
2 V4 f% B6 V9 N' E5 x1 O/ Hprocedure OnGetResult (aStr : String);
1 }4 L( X+ I, V3 N8 l$ w8 i  L) j
implementation
procedure OnLeftClick (aStr : String);
var
7 c0 G; k5 j2 O1 Y/ C   Str : String;
   Race : Integer;
begin
% B# L9 [! }2 K7 E0 J   Str := callfunc ('getsenderrace');
! N. R1 B9 S3 L2 M  ~   Race := StrToInt (Str);
) e+ j6 o; D" ~9 N2 ?   if Race = 1 then begin
& l3 L' V! _5 d1 J6 B3 q7 e      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
$ Q8 Q3 T3 n! D# p' f) n% n$ j8 i, `* a   end;
! o6 ?' S7 _( h, F( J" Y6 @9 uend;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
. v4 ?. e8 Y: q+ E* p" r, M+ n   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
+ b0 h1 ?- h9 d  N' z      exit;
   end;
  if aStr = 'lingqu' then begin
& ]: a6 S) {$ M. l( E$ `   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
# D9 |* {6 K9 F, L" v: \' o1 q   if Str = 'false' then begin
      print ('say 你不是会员吧');
0 c: o. b- N  h# T' B/ S      exit;
. I9 x5 @, u' R% S( I) n/ X    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
, v+ z, E6 ]. O2 D7 r         exit;
* o7 A: }4 N' F, }      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
& M! u$ r9 b4 Q# u  V( ^       Str := Str + ' ';
, J' P% p6 S1 C3 S- a       Str := Str + '【会员系统】:『';
' |5 g/ _0 J7 Y' E6 |& E7 d/ z. B, K$ H8 y       Str := Str + Name;
& e$ K3 R4 p1 ~, C% P$ @. s       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
: x  Y% ^$ i) v$ k       print (str);
6 L9 h1 [: J, b1 \. I. E4 r      end;
# o* v: ~) t$ R    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
7 Z* X! l; ?+ `. E' _    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
- _, P. l7 l( S    exit;
* ^' `. P5 [7 q! k) T; t8 S) a   end;
/ J& N* Y( k% W* H* C: ~& L7 N  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 N# \; f  j$ B" h- s  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
  J) }+ G8 i1 v: P     exit;
" F& i6 n7 e) I4 a( ^% Y1 F3 D  end;
7 i4 h  X6 s; f" k- O5 t5 S2 [  if WqName = '修炼剑' then begin
. P6 X! d/ B8 n/ U* s' d2 N" I     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
$ \2 c0 u( ?" ?: z0 E  h  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
9 H4 v$ H# E8 b9 w! o  if WqName = '修炼斧' then begin
: `, |. \5 V5 @7 F3 u     print ('say 你不是吧！想带走修炼武器！');
     exit;
  {! |7 h- y: c1 L  end;
6 J7 x% ?/ C' ~4 F! A  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
$ ]9 N3 M( C# f( f3 @, k7 D8 V     exit;
1 r4 K6 f- r; O, @: t# `  end;
      for MapId := 0 to 200 do
2 g5 i  @: Q( R6 y9 I4 x# G- v3 ~      begin
: i) g' B( C  m+ @( p; d      MapNo := IntToStr (MapID);
6 v+ I3 S( T: O+ I4 L       str := 'sendnoticemsgformapuser ' + MapNo;
0 D( {. v6 ]. `( G       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
0 h+ T1 K7 e/ |3 f8 E0 ^+ C       print (str);
5 ]. U) P4 Q& h6 J3 R- a      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
+ y6 c7 ^, F$ q9 u1 N      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
9 a" D3 H! o) l% e' B      Str := Str + ' user 1 500 500';
      print (Str);
# ]+ }" Q# C. k' F8 ?    exit;
   end;
end;
1 r2 R- y- |4 @/ H, ]; qend.