一个很好的会员服务脚本

unit 会员服务;
: }4 P4 z1 q) x) Y4 c
1 h2 T# K* r1 `. M$ ]. Ointerface

7 |5 v2 M0 J3 U% O4 M0 t  ~8 Q# F9 Mfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
5 x3 ]. l9 \" B4 f' X& Gfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
: [; r* J. Z' O5 Y; W7 gprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
; d6 z; d$ w$ G* z+ Z; L5 f+ nfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

, l3 B2 A  ]& G& l. simplementation
7 F' E1 S& w; _7 d1 k4 H1 e$ i1 Fprocedure OnLeftClick (aStr : String);
9 D: b! K2 b. S3 l  r* x9 k1 t. tvar
   Str : String;
' Q; [* x" g/ l  |$ Z  J   Race : Integer;
begin
+ C8 @6 X3 E8 ~  |. R6 r9 N* S0 b   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
7 @* i' K  \/ S0 i8 B   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
! \; ^# b+ o) p' |/ ^      exit;
   end;
" h8 E, k0 n7 Zend;
: r8 m% _* D" ]& c" eprocedure OnGetResult (aStr : String);
1 u7 h% e: k+ F, f" N7 ^+ Gvar
: C. c/ ?$ g( f6 Q! ~      Str, Name, MapNo, WqName : String;
- A7 O( j# Q6 h8 h         iCount, MapID : Integer;
; i# d" M% @/ ~; q3 `5 {3 B; w; jbegin
   Name := callfunc ('getsendername');
+ T0 G; p# I7 m7 u0 C   if aStr = 'close' then begin
  E- m  L4 z/ A9 T# F- F      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
* {& N: i- ~9 ?7 E+ |% G      print (Str);
9 l; h5 ~$ Z( @      exit;
   end;
8 ]6 ?+ \. z! W4 s  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
  S2 L' Q+ T- ], u: a   if Str = 'false' then begin
      print ('say 你不是会员吧');
. J1 T/ `0 s3 g      exit;
    end;
# o+ [8 q# K' h8 b      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
/ h) s  p% ?; i( w, Q         print ('say 物品栏已满需要5个空格!');
         exit;
- N! j9 o3 ]- T3 b      end;
       for MapId := 0 to 200 do
( j) t/ j1 X7 s+ e, M* N0 T       begin
! Y  i, l& U* u# l- [6 g6 K       MapNo := IntToStr (MapID);
' i! K( `7 J) d2 X       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
% ^! H1 T/ m1 x% J1 P       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
9 ~$ ^# V9 e8 d7 R0 {; ]8 Z1 H/ Z       print (str);
; V( p2 W8 F6 v, |/ D4 W      end;
4 G+ }. p) F! Z6 w7 P9 J    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
5 t" [7 W0 ^1 J8 B& N1 s    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
! ]4 c( X7 k2 \3 m/ s0 g  if aStr = 'chuqu' then begin
& m: _6 a+ d" K* B     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
- j/ J! [% S. \6 {. H2 R: _  if WqName = '修炼枪' then begin
3 p# N7 D9 h: J3 ]1 U     print ('say 你不是吧！想带走修炼武器！');
# w( W5 r  f! T( C     exit;
  end;
0 e! S1 C' A6 m4 f  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
, c/ l, e3 Z$ Y  U! f) ~0 i  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
# F& v% c6 ~4 q4 u8 ^     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
7 W- u2 w) k  |! S, |       Str := Str + '【会员系统】:『';
       Str := Str + Name;
2 t4 Y. \  M1 H* D       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
! S7 v: G% _: v( D0 u       print (str);
. Z( P: \6 @: ]4 E/ J9 B      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
! \7 T" O4 _8 Z& V      print ('getsenderitem 修练剑:1');
! t# V$ y, z4 q  D6 l0 T3 |; r- i      print ('getsenderitem 修练斧:1');
! u1 F, o- k3 l  S9 J8 S# P      print ('getsenderitem 修练拳套:1');
- Z$ y6 ]; ^; j' ~      print (str);
      Str := 'movespace ' + Name;
- B% N% ?7 l1 }4 W      Str := Str + ' user 1 500 500';
1 j& X8 y! A# V! p* b+ Z+ i7 l      print (Str);
" f0 @8 o, H  D# E, U+ \6 e    exit;
   end;
end;
end.