一个很好的会员服务脚本

unit 会员服务;
; b. W+ p; X9 X3 o, X
interface
) \9 q; M9 e7 W- j
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
6 Y- g$ G+ _( ]4 Y: v! H2 Eprocedure print (aText: string);
function  Random (aScope: integer): integer;
/ R% ~2 ?; n5 E( X7 lfunction  Length (aText: string): integer;
% s. W/ H+ V5 m: N: z0 Q8 Q4 Y' tprocedure Inc (aInt: integer);
" V# C, e; ]' I+ e4 Lprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
2 @9 ~9 Y: U# |; `* ~+ Sprocedure OnGetResult (aStr : String);
+ c  ^4 P1 _' J- u- a% k
implementation
/ [+ y' Q5 X1 o( bprocedure OnLeftClick (aStr : String);
6 o, P- @* p/ s# C: Cvar
; c- v* m# N5 T   Str : String;
0 l. @* D) i- k+ A   Race : Integer;
( q: g7 s: N: P# {4 Gbegin
/ R# S$ \  Y. A2 `0 B0 C( X   Str := callfunc ('getsenderrace');
$ E# C, `$ ?4 }   Race := StrToInt (Str);
4 O/ R( d+ S4 _* j8 k0 d   if Race = 1 then begin
2 _4 M& t, s, Z! D      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
. Z2 r4 v. {9 V9 R      exit;
   end;
5 o6 ]' J! _7 @; _  a0 ~end;
. J) e+ l0 L9 N: s1 sprocedure OnGetResult (aStr : String);
* ?- B3 S- z/ w$ Ivar
8 O6 _; X- U% w8 S& d! }* ^      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
, V8 ?  u; I$ S" q5 E   if aStr = 'close' then begin
      exit;
  A0 J* s' }6 c% {* k" U; c4 G& r   end;
! e/ A" D% i3 C; q5 w- m4 r6 }   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
$ T0 A3 m$ F1 A- J& _; u1 Y      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
, w5 W$ h% U! m( ^3 t, E      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
; p/ }  M# o- n% W6 L      if Str = 'false' then begin
/ ]" }; p' v5 B! d% l5 O& Y         print ('say 物品栏已满需要5个空格!');
  W# G. j& o* z         exit;
      end;
       for MapId := 0 to 200 do
       begin
4 h' T" i1 s8 \1 L6 \. F) R6 T4 r       MapNo := IntToStr (MapID);
4 f  ~8 v( m0 n' Y! u       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
* Q4 Y( N7 P$ `5 `6 o" H% I8 ^       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
0 u4 [5 p' }2 w2 i       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
0 d* P) a& R% s7 Q    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
2 [1 ?* }0 ?6 W8 U    print ('putsendermagicitem 修练剑:1 @会员服务 4');
3 e0 N6 H4 i- [    print ('putsendermagicitem 修练斧:1 @会员服务 4');
/ Z$ l% c5 B/ C2 Y# e    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
4 s) v9 N' J3 w4 z  ]3 f  if aStr = 'chuqu' then begin
, n. W. U( d: W  w- p6 M- L- A4 W     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& k" s% s0 M) `  if WqName = '修炼枪' then begin
, V# L+ Z4 P3 }, I4 O& z     print ('say 你不是吧！想带走修炼武器！');
7 _* x9 O' j) u4 a, L7 s( t     exit;
. e- n2 _1 f( |1 n/ b, s" \  end;
  if WqName = '修炼剑' then begin
$ M& e2 l, y) p7 }* X6 Q3 A     print ('say 你不是吧！想带走修炼武器！');
) X0 P! R5 ?/ E: p' _     exit;
  end;
  if WqName = '修炼刀' then begin
# i; ]+ k  T) N. k/ S2 x/ S     print ('say 你不是吧！想带走修炼武器！');
5 R9 {3 P( U; _. n5 J+ B% }     exit;
  end;
2 j( o; [- x1 c5 A  e  if WqName = '修炼斧' then begin
9 g; d" @. m+ l: T     print ('say 你不是吧！想带走修炼武器！');
     exit;
6 n; Y% f/ P1 \2 {' r# v  end;
2 f: k( B. D6 Y) k1 l( y  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
* N/ @/ D& ]6 P. I      for MapId := 0 to 200 do
( h1 e0 C" \$ O4 a4 f      begin
* d$ J& L- |" t* j) g      MapNo := IntToStr (MapID);
; z4 I7 f& V4 t( o       str := 'sendnoticemsgformapuser ' + MapNo;
. x# J/ s8 G3 ?$ c/ B$ ^       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
9 e  b+ n+ t5 s' b2 `) R       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
7 C+ }4 ?! ], H       print (str);
+ p; P. I# X' e* q- ?$ R      end;
' p5 f: f6 \9 w( W/ ~* n% L      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
/ O; l+ w/ }2 j4 w4 o      print ('getsenderitem 修练拳套:1');
2 `7 ^6 D/ O7 O& `0 a      print (str);
- }2 \' ]* H+ H3 I; ]      Str := 'movespace ' + Name;
3 T1 z# Y0 n, U3 r" k* C      Str := Str + ' user 1 500 500';
" R5 R* s1 O: O$ M' h. O/ i# |! |      print (Str);
+ }  n, ?% z, v8 a8 h6 e  l1 c# a. V    exit;
   end;
# o2 x/ I+ t6 L" q8 Hend;
end.