一个很好的会员服务脚本

unit 会员服务;

inte**ce

  p7 N5 o6 [3 Y/ R9 f* i# R$ Yfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
. r+ U8 |( @. T) ]# T7 Y% pfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
. [/ m+ g9 a8 ]5 ~8 }* Hprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
* h3 s5 [! w- {: m6 l- bfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
/ [* N- W$ \# T% c) m9 E9 C
4 x- c5 `6 ?' q; e" timplementation
procedure OnLeftClick (aStr : String);
var
9 [9 h1 W5 f3 A& ~9 Y   Str : String;
   Race : Integer;
' B9 C8 T+ V8 h8 G, G6 Q) y, Tbegin
5 E, [, i1 U' Y; ^   Str := callfunc ('getsenderrace');
4 i( M0 M1 t( Z, x' @   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
% _7 J# Y; y; R4 f, H  Send;
( ~" m% y0 W; e1 }4 R9 Bprocedure OnGetResult (aStr : String);
var
# v# J3 @$ @* D; Y% A0 O6 h      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
( }8 }7 A$ L0 r- B5 ], ibegin
7 T9 ]& l3 o3 x! C; i1 W   Name := callfunc ('getsendername');
- }3 }8 {& E4 r' h   if aStr = 'close' then begin
6 G' x6 I, s1 ]      exit;
) l9 V! g4 Y/ Y9 b# V1 E. g3 O/ P: D' S   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
$ c& O' R! V0 b) _      print (Str);
) V% G" |1 q) Y( Z; Z! k, Q      exit;
: y4 ~. |: H' E( C& Q8 o" r* }: H   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
" s9 o; L/ G: g  H0 n   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
2 f5 d2 b; V# `: r# }    end;
/ B0 t9 v& ?- R2 p5 [! N      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
) ~* I2 @1 i# ^! i1 A* x  ?* d9 R2 e         print ('say 物品栏已满需要5个空格!');
         exit;
7 y1 u% r" @& Y3 T      end;
       for MapId := 0 to 200 do
1 @) n8 o' z0 H* u9 @+ L8 x       begin
       MapNo := IntToStr (MapID);
. K, B1 ~) g$ u; s       str := 'sendnoticemsgformapuser ' + MapNo;
: ~. a: H6 p7 C       Str := Str + ' ';
% U, D# W; F+ H5 I* Z4 V       Str := Str + '【会员系统】:『';
       Str := Str + Name;
/ g; a% U. y) d& o5 d1 z       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
4 t- k% c, w  d9 O4 D' |       print (str);
9 m" e- Z3 L& H      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
& N& ]5 [, O) j- z- V' p/ W3 M; o; R    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
  \5 P  L$ q' k* _, n    print ('putsendermagicitem 修练剑:1 @会员服务 4');
- r* A/ r' T  N5 b: O    print ('putsendermagicitem 修练斧:1 @会员服务 4');
0 {9 v3 K6 ?, j) ~! G1 E) H7 x    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
" r0 g+ D$ }3 u+ v7 i% W! i    print (Str);      
    exit;
7 ]+ V6 J# D+ q" j1 Z/ P6 k   end;
0 O( h' Y9 C$ Y$ W. G, A! M4 Z  if aStr = 'chuqu' then begin
4 a5 M- ~9 Y3 i- f     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
. j4 L$ x3 o0 Z7 }% b5 M- |) m  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
4 n6 v/ n+ c* U; ]2 T! c+ d     exit;
$ F. ^* z+ Z4 h3 N- d  end;
4 k" M6 b4 ^5 v) C' Y$ C# R  if WqName = '修炼刀' then begin
1 |& M7 l% u5 G8 ?6 e& C, V     print ('say 你不是吧！想带走修炼武器！');
3 j1 W+ i+ O7 `8 H$ x7 a     exit;
  end;
/ P/ m; C) C" N3 Z0 x( T! g  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
" K8 P. E  E0 _5 n) l; c7 G7 w) H! p  end;
  if WqName = '修炼拳套' then begin
% n5 q+ K* y8 W. G- t     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
) x" O- W! [7 \( x0 O      for MapId := 0 to 200 do
/ K) S5 g% ]5 A  K4 k      begin
3 V* d# i+ i: B6 g      MapNo := IntToStr (MapID);
: x! |4 I: }7 I* c. O* m       str := 'sendnoticemsgformapuser ' + MapNo;
( V1 Q# ^0 a- P0 C8 r1 t9 v% N0 R       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
" E8 o+ Z: q6 i6 p' R& I0 Q( j% _      end;
$ J3 e, a! m2 g  q7 [! n      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
  a/ i9 f1 T% ?0 Q' ]  M      print ('getsenderitem 修练斧:1');
1 _4 A0 J$ Z, O# s# X# @      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
' R9 I# U! T, \3 `      print (Str);
    exit;
   end;
end;
4 b3 o% W- V& Q; ~8 H# t  v' U* Uend.

3 ?9 k1 G4 R1 v, `2 |; ]