一个很好的会员服务脚本

unit 会员服务;
" |. x  Q: Z; t9 ^+ c9 `, ]' [9 ]4 b9 `
interface
' P  Y+ o0 I4 T! h/ ]  P
& m+ v+ j: V+ ]4 w3 Bfunction  GetToken (aStr, aToken, aSep : String) : String;
0 k1 a- }) d. H3 s' n% C  Sfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
2 g" S( |: @: gfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
/ M' ]; g" @! P) Q* t0 q+ Fprocedure Inc (aInt: integer);
9 Y+ h1 \9 |' J2 n& f) Zprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
6 U' A3 G4 J( i* y$ A9 ffunction  IntToStr (aInt: integer): string;
2 x2 O+ @- T5 [! ]( ~- h' oprocedure exit;

3 _4 `' \& c9 E' a* F: ^procedure OnLeftClick (aStr : String);
7 D6 c- X, z" t6 T+ H4 A5 ^procedure OnGetResult (aStr : String);

4 M! R4 t; g6 Z( ?1 H! d* qimplementation
. U8 k: x% \* D7 Q: kprocedure OnLeftClick (aStr : String);
6 d8 @4 V$ u! D. J8 M6 w2 O1 ~var
# g, c; P( Z. z  U0 N5 W3 x% B6 W   Str : String;
1 o& C7 Z3 P8 h   Race : Integer;
: _: ^. m5 V& V8 dbegin
& x% ?! q6 }7 ^) m  S   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
( @2 ~- ]2 c3 a2 R) E   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
. Y& t2 j7 o* A2 K      print (Str);
      exit;
   end;
end;
5 F3 S: ^9 \. K" nprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
) ?. `& d8 H2 ~* O4 N' e  Pbegin
   Name := callfunc ('getsendername');
" b! O! X4 _, i3 U  x   if aStr = 'close' then begin
% `6 S0 b) `( o  {1 v      exit;
2 f# J9 E9 T/ i4 {/ P3 S; n   end;
   if aStr = 'xuanzhe' then begin
! M- d( ?, |# `2 E7 M* s$ |. l      Str := 'showwindow .\help\会员服务1.txt 0';
. F+ r9 m3 c" L, z; V9 Z, g      print (Str);
* F1 a$ G$ [) K# s8 Y9 \      exit;
2 {; s8 `: w+ J3 w   end;
' e3 f+ g& |2 v3 g- k/ R  if aStr = 'lingqu' then begin
3 l: B, R3 I; w$ ~4 A+ @" T   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
. b! H- P9 Y) x. P- D( g4 C3 J( D   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
- y; b7 ]2 F$ r( D1 B) T      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
+ Y* m& o8 V6 j& Z4 O         print ('say 物品栏已满需要5个空格!');
         exit;
8 B4 `9 R* Y2 ]      end;
       for MapId := 0 to 200 do
       begin
+ [; k# Q- K$ w( n* q2 @       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
4 Y. ?$ w. C# E1 b2 s% x       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
1 N! i5 p# Q, M1 E+ B$ ]4 L0 M* S       print (str);
      end;
% t  X6 B( ?6 q8 ~6 e2 k2 J3 Q    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
  W' _/ B5 H' j( N- z2 J! h    print ('putsendermagicitem 修练剑:1 @会员服务 4');
" e/ G. k/ Q- d! `# ?    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
4 O# }/ b7 C; C8 S    print (Str);      
    exit;
   end;
: P# o1 ~3 R) N. k2 u+ B  if aStr = 'chuqu' then begin
% D' {7 N* M; F; _0 o     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
5 [. q- S! {* r7 _" ~     print ('say 你不是吧！想带走修炼武器！');
     exit;
: S8 F6 s, ]/ ^+ R7 Z. [  end;
  if WqName = '修炼剑' then begin
( U  V, |9 r4 O* s, L     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
: m: e! F, f* j) u, j  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 m2 G& ^1 z+ S1 L+ }5 S$ U     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
& I* h7 `0 F( Y' v     exit;
  end;
( {/ y1 y0 o; s4 {8 W6 M  if WqName = '修炼拳套' then begin
) ?; {( S0 j: E! R1 Q     print ('say 你不是吧！想带走修炼武器！');
! ~/ X& p1 h0 a& G5 v0 |     exit;
+ L6 L0 T4 C- M+ K+ L; P; B% p  end;
' }  U# q+ q5 m- O      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
( s+ y2 |, \. r; w' _       str := 'sendnoticemsgformapuser ' + MapNo;
. h* K" A; R8 {       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
7 Q8 G( x# D- ^       Str := Str + Name;
* q" }' G- z5 V( n0 Z8 u       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
6 i, ]: a) g9 ~( q      end;
8 _( V6 U9 m9 S, t8 L) C& J5 f      print ('getsenderitem 修练枪:1');//出去就全部删除物品
5 Q% h0 m- p9 a2 c      print ('getsenderitem 修练刀:1');
/ g( t9 ~4 p0 L8 \! B: e; C; P      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
7 R2 q+ s. {* n      print ('getsenderitem 修练拳套:1');
      print (str);
4 t9 C8 _: p+ S5 _- f* G      Str := 'movespace ' + Name;
' S  Z- L$ D3 L. F: q      Str := Str + ' user 1 500 500';
" ]$ ^! m: _5 [; U) r/ b      print (Str);
    exit;
( @% t6 `0 A5 v( q   end;
end;
end.

. c0 i) Z. u' ^  @' {: v  W