一个很好的会员服务脚本

unit 会员服务;

9 z. b; V2 X4 E6 V8 Uinterface
' ~2 K. ^0 }$ G+ \
function  GetToken (aStr, aToken, aSep : String) : String;
7 l- h0 L; [: x, K/ p3 _function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
# ?8 T  ]) V$ d& b/ Z. qfunction  Length (aText: string): integer;
7 z! E9 I" j% a! B) \4 Dprocedure Inc (aInt: integer);
. ?% p) T+ O! e0 @/ ~* O4 {" yprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
  X  E5 ?3 h. U8 h
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
0 }1 F8 t# h/ g' R1 ^8 s5 @% ^( s# q
implementation
+ m7 N% m- c9 fprocedure OnLeftClick (aStr : String);
var
+ b; X! Y1 k1 ]' ^   Str : String;
1 ?! P) V+ ^: Q7 t3 d   Race : Integer;
begin
, j5 M7 ~' ?9 |# r* H3 `+ C   Str := callfunc ('getsenderrace');
9 P0 q5 K' r3 t' w: H7 a7 P   Race := StrToInt (Str);
. g" {% O  D% B+ z- C   if Race = 1 then begin
1 T$ Y/ b  ~5 N! B8 K; P# Y      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
! ?9 \) v, u+ l2 U! A9 A/ c      exit;
$ `1 Z$ T1 {+ A! a. Z# J   end;
6 g! u$ R# E- ~& U  ?# P: N' W: B! X2 send;
2 A/ @+ \) t1 \8 c$ V, |* `( _; hprocedure OnGetResult (aStr : String);
var
+ v* g! a% g+ X  h4 Z% J      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
3 E* L& k; n  g0 q! y; lbegin
1 H8 X+ |  @8 T- \) s   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
6 R1 S0 v) P4 a+ y2 s' |; F   end;
   if aStr = 'xuanzhe' then begin
1 O7 a5 j, B7 H( X0 W' ?' o      Str := 'showwindow .\help\会员服务1.txt 0';
# n/ H3 p; y$ i8 t. E5 q; p+ O) a      print (Str);
      exit;
! t6 k7 H% d- u% G6 Y# E   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
0 R' ~& }5 F0 K- V5 b1 V1 s   if Str = 'false' then begin
( t! W* K7 k8 m7 g      print ('say 你不是会员吧');
7 {' h; Q% ^/ y; Y- V( R      exit;
) t! c# F2 c* k% P+ [5 O6 n    end;
3 J5 _' h, y. s) Z2 ]      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
) `% s- m& P0 i         exit;
9 ]8 e: f% ]1 ]5 s      end;
6 C- {8 L; M* F8 i; j- `7 w  [6 z       for MapId := 0 to 200 do
1 w% v" K: m  T0 r" `       begin
1 }4 l; \4 Q/ G1 C       MapNo := IntToStr (MapID);
) U: d( b; m/ C# W5 {8 J% c       str := 'sendnoticemsgformapuser ' + MapNo;
: I' ]+ z8 N: Z$ f; ?$ S+ d' \8 u7 V) w       Str := Str + ' ';
& V& r6 P7 q$ v: F" r9 l! a2 Q       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
% _* V) ]6 n, E/ h% l+ J    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
% z6 j5 J& G, z  b0 {9 T    print ('putsendermagicitem 修练剑:1 @会员服务 4');
/ ?+ s& g5 [4 y" |4 `    print ('putsendermagicitem 修练斧:1 @会员服务 4');
$ `1 K8 o+ j1 F0 M7 [2 D7 b    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
! g# |6 L- F0 P& B    print (Str);      
! A, c8 x( V' g- `* t    exit;
/ u7 w) y: H" J. L: U   end;
  if aStr = 'chuqu' then begin
1 ?! C6 @8 d; E     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
9 y/ }" v! x0 R* J4 `4 U: m     exit;
  end;
; j& J) m. R) ]6 m  if WqName = '修炼剑' then begin
! }  ?1 L' B" d1 d7 A0 m- q" k. Y7 t     print ('say 你不是吧！想带走修炼武器！');
* _6 b6 y, P& _0 j: n7 S     exit;
; Y$ {9 G9 _9 H3 k  end;
1 _9 p" @& \' \  if WqName = '修炼刀' then begin
% Q& E! B/ z& S5 s0 i. P& U# t     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
. A- U3 k4 {8 A5 B" _# x  if WqName = '修炼斧' then begin
8 j* O) P' I  q7 l# _     print ('say 你不是吧！想带走修炼武器！');
     exit;
6 g+ k1 S4 d/ S" T% }/ K( H  end;
6 ?7 n2 M/ j+ T6 a( l2 i% W  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
% e, o9 W. ]+ g- P2 M$ ~     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
1 |/ W- J8 ~" e- N: d' f, ~       print (str);
. z- T( ]- U" F# l5 H      end;
7 S" \' U0 u9 r# i      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
6 L* u- L. h6 ^% ?! M. J      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
2 e# X. V# M, p; b4 n/ M. `; H      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
, c8 n$ A( k, a% l4 Q      print (Str);
. l* H( @5 z# j2 ^6 B    exit;
   end;
. `7 p& k: ~7 D6 o+ B8 U3 Jend;
end.

/ k6 ]7 G  T* I