一个很好的会员服务脚本

unit 会员服务;

9 M: n% s+ m) d- E% f2 h2 h2 Rinterface
1 n7 A( T& C, O
# Q' \1 Q% X6 k  g+ Gfunction  GetToken (aStr, aToken, aSep : String) : String;
; p% L. r7 H% Q. t1 dfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
9 }( ^6 H4 D9 L9 c) ^% l- M9 vfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
7 h" s  X' ^* K$ L+ Y7 D5 `$ ?function  Length (aText: string): integer;
3 B1 S4 _5 ?! w9 ^) r: kprocedure Inc (aInt: integer);
# {0 x* W1 W! i8 [) ~! r  J, wprocedure Dec (aInt: integer);
" n! m1 h$ C- w0 R0 Cfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
3 J) H0 N/ {: z  H$ L4 X' [% u
procedure OnLeftClick (aStr : String);
7 \# F) E7 T+ S, {' ?1 dprocedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
1 w  i, J( Y9 ?9 o9 L$ x8 P/ gvar
9 ]& r) z$ E0 f: l% i; s6 g   Str : String;
% e, P( X( I; T; F   Race : Integer;
/ J3 G$ Q% u# C3 xbegin
7 P9 p8 y& A1 a3 j8 C0 z9 d' f   Str := callfunc ('getsenderrace');
$ H  h$ k$ _: b& k- J7 S  U   Race := StrToInt (Str);
   if Race = 1 then begin
( f2 P1 c7 v. ?/ T) ]8 X      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
) {% c$ b; z7 g; C1 j8 y1 H      exit;
   end;
1 {  c/ T$ l+ d4 |end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
( G$ y2 V4 z1 B         iCount, MapID : Integer;
" F1 N& e- W. i5 Rbegin
" R# H- ]% }5 K1 M; u. z   Name := callfunc ('getsendername');
! f) W4 p; F; c   if aStr = 'close' then begin
% l! j. m; q7 U! b9 e' @1 {      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
; G. j9 p* N* y   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
2 H4 e7 D! f& a  q1 t; ~1 ^5 v$ J      exit;
    end;
2 z: \" v/ g) j$ [2 a      Str := callfunc ('checkenoughspace 5');
! C0 F" S( ^# F# U      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
7 A  |. s9 b: H* k. x. n4 H1 s$ S      end;
       for MapId := 0 to 200 do
6 N% C3 P' q6 {* E       begin
       MapNo := IntToStr (MapID);
! e$ X5 l- o+ w5 j* V       str := 'sendnoticemsgformapuser ' + MapNo;
" S+ ^. |/ A) A% D       Str := Str + ' ';
* |+ o2 P0 o6 m       Str := Str + '【会员系统】:『';
       Str := Str + Name;
  l" C7 C! f( G. k! E       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
: |3 e% m: j  Z4 g0 W8 C    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
" D& W" ?; l2 M. S) j    print ('putsendermagicitem 修练剑:1 @会员服务 4');
3 J: d5 |% [, [    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
2 W' n" o$ w' `. T    exit;
   end;
4 @9 d7 v0 Q5 t, m6 ^  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
2 I) Y2 B" G" T  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
& ]4 d  c6 D9 X* [9 R  end;
# S* [1 G9 S) g  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
' K  f  o% n# A& D3 e6 q5 x7 Q     exit;
( g9 t" O6 _+ k! A$ I  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 _# _9 X" ?8 f& B8 r: w9 h( f     exit;
  end;
      for MapId := 0 to 200 do
* w+ j; c  U0 t5 {      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
0 _/ `& y! |9 ~& M8 c+ c# k       Str := Str + ' ';
( B% o( \" d- ]: z8 P1 B       Str := Str + '【会员系统】:『';
       Str := Str + Name;
+ ], ^! Z7 W% Q       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
9 O& B0 S2 F7 m% g      print ('getsenderitem 修练剑:1');
6 V: ^# r! g0 }4 s' Y+ p      print ('getsenderitem 修练斧:1');
5 C# Q$ i* B5 W! }3 F2 P0 d      print ('getsenderitem 修练拳套:1');
5 I9 S+ i4 N/ M& p* n; `9 V      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
7 W: y% Y' t; ~  I5 O    exit;
   end;
end;
end.

1 A: G! G, a1 ]2 X9 P. s1 Q