一个很好的会员服务脚本

unit 会员服务;
7 r6 p. M; T! G: c9 o. F3 `5 O% C2 a
interface

function  GetToken (aStr, aToken, aSep : String) : String;
1 c6 S' y6 G* j0 D" {) I  x; Z; dfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ M( t  d* P& V+ xprocedure print (aText: string);
) j) H: b% g' e- Q6 r, [: h, dfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
& M" `0 a" g% W; ^2 U* Q7 vprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
0 P& {) O1 A/ n. S+ Z5 j' @function  IntToStr (aInt: integer): string;
- u9 ~+ m( d9 p( Zprocedure exit;
5 T6 f( E& E' ^- f1 e5 i; q
procedure OnLeftClick (aStr : String);
# P8 C8 J3 |" C" ?! lprocedure OnGetResult (aStr : String);
, B, O; }/ b! F+ C8 U  L8 r% |
/ t4 N+ N: I' O7 q7 a4 ximplementation
0 b4 w: u, s- e- G' Vprocedure OnLeftClick (aStr : String);
var
   Str : String;
1 n" y. V5 u3 p5 u3 Q- t$ @   Race : Integer;
' c, m$ s$ Y* n7 wbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
* S: `7 y' l5 J" z+ G4 ~! H2 K      Str := 'showwindow .\help\会员服务.txt 0';
% p9 M0 i4 P5 l* o% D: h1 c      print (Str);
' b  m' F1 l2 R      exit;
   end;
end;
procedure OnGetResult (aStr : String);
, F6 G2 t# }0 T5 x6 Hvar
      Str, Name, MapNo, WqName : String;
! P. P$ [; w6 _5 Z5 q         iCount, MapID : Integer;
2 D) t! k. F- abegin
% O" r0 c, G* \6 u  a   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
" n3 x5 m0 s9 A: U# Y   end;
8 B% V9 ~! L2 n   if aStr = 'xuanzhe' then begin
8 {5 I+ u  Z4 M- r. G) U      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
- C# g5 `- v' y7 x" h! N      exit;
   end;
/ ^: O+ X5 k  y% F3 u0 {/ o  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
8 h8 R2 K5 p% v. Y   if Str = 'false' then begin
* `5 z7 R) @! @      print ('say 你不是会员吧');
# r" Y2 M4 l2 {3 E      exit;
3 Z6 F# l" @# P9 P    end;
      Str := callfunc ('checkenoughspace 5');
( E- A7 h4 Z- D! F+ ]4 w% h) [      if Str = 'false' then begin
6 H. d( T' B8 G( j         print ('say 物品栏已满需要5个空格!');
6 z# l+ r2 _* p# S1 ?' }         exit;
3 u0 M  h" x' u% F8 z+ s3 N      end;
       for MapId := 0 to 200 do
$ N- R9 L8 G- {& I       begin
       MapNo := IntToStr (MapID);
, i  y$ h  c  ]: G6 r# s       str := 'sendnoticemsgformapuser ' + MapNo;
* i- r! a$ Y: m- C4 j8 t       Str := Str + ' ';
0 m5 R: z7 x6 n. \4 }       Str := Str + '【会员系统】:『';
       Str := Str + Name;
0 q4 w/ j% Q0 s! U2 S5 a       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
: V, d  T& u, h4 T* V      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
$ r6 b# m/ ?' k; a1 a+ S- j    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
: n1 b& v& k9 T, d    print ('putsendermagicitem 修练斧:1 @会员服务 4');
4 u$ N, W/ A' P. e) D' I+ h$ Q    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
8 c: I* Z8 m9 Q3 s$ X    print (Str);      
/ S5 e3 ?& h! h4 l8 {3 o    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
7 u: \& R3 Y2 @/ n7 |" b: j3 M* w1 w! ~  if WqName = '修炼枪' then begin
1 C- H" r: R( f# G/ f( z( q, t3 V     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
; G: j( X9 `% H; F7 o: q  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
. S( B8 U6 C3 U5 h4 W8 d7 P     exit;
  end;
8 T% @2 T0 F9 v8 \0 J6 k  if WqName = '修炼刀' then begin
! w( E) P2 z/ u( z) u: H4 y' F. K     print ('say 你不是吧！想带走修炼武器！');
     exit;
' ^& P# Q* [( [: q) l4 E3 Y  end;
  if WqName = '修炼斧' then begin
: ]. Z" o2 W/ a     print ('say 你不是吧！想带走修炼武器！');
8 c# N7 x2 E' T, ]* Q) p) x     exit;
) I% j$ A: M, ^$ r* h, ~, i! R/ x  end;
  if WqName = '修炼拳套' then begin
7 E% T8 |7 ~! v' ^     print ('say 你不是吧！想带走修炼武器！');
' r6 J: }: d' V" z     exit;
  end;
3 A  v3 D; v* A+ i      for MapId := 0 to 200 do
      begin
4 ^# U1 u0 k( F      MapNo := IntToStr (MapID);
) y/ _, O2 M& f! V3 ?1 ?       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
. P, V  Q: Y  ?  I, S+ j       Str := Str + '【会员系统】:『';
* h1 A9 \, P% ?+ @; y) U7 L1 h       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
" }$ g1 Q/ U4 j* P& Q2 q8 Y      print ('getsenderitem 修练枪:1');//出去就全部删除物品
) L3 \8 t- Q" @; a( {; n      print ('getsenderitem 修练刀:1');
* O2 w8 ]+ _& k  R: ~+ K/ n      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
) L* Z) d, a' b" K6 G% M      print (str);
9 x% z' W. X# f5 [; z' R5 f      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
- R: @7 p/ d+ E- M      print (Str);
9 W3 ], D' ~! J: b    exit;
   end;
end;
- g4 X; c1 P7 cend.

# N0 c" o+ Q( y+ V. }4 b1 H