一个很好的会员服务脚本

unit 会员服务;
6 o% _2 \% w& G0 T+ r% t: `& }  o7 s/ k
6 }2 V. B# {- t) X/ Vinterface
/ l& s! ^0 v4 u" I
function  GetToken (aStr, aToken, aSep : String) : String;
* U9 F* F0 R" e% J" u. i$ ffunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
% S) a' e9 X& |4 l7 vprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
- i* S+ l6 o/ n5 N, k% W! tprocedure Dec (aInt: integer);
& I  v0 u" ~! W1 s& ]- n+ Kfunction  StrToInt (astr: string): integer;
& O; x; g( C3 X: O2 A. V) Dfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
) V0 c" m, ?0 q. j1 o5 n+ Tprocedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
! R8 t/ M- h4 l  m/ O" a0 Z: K/ f   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
/ V  T" M6 q( W2 w4 N1 D: v      print (Str);
      exit;
9 S8 A2 B4 q7 J- n% f7 L   end;
end;
procedure OnGetResult (aStr : String);
var
* V; V* Y8 N/ R5 r6 p( n      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
4 U. }; W, B1 @: p! p% k- H% G   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
7 O* M. @( K* C. {      Str := 'showwindow .\help\会员服务1.txt 0';
% I. F$ O/ i* |8 M6 v" K      print (Str);
8 U& U$ @+ Z- Q      exit;
  Q! I9 B( a- v4 G   end;
( u1 [2 q9 _* |9 f8 M2 O  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
) T) D9 T2 C; _1 d& t   if Str = 'false' then begin
      print ('say 你不是会员吧');
& F/ r5 ?8 @, T- n2 L4 ]; l      exit;
$ W% k" {6 Z4 q+ ~+ b8 a  v    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
! o* I4 s3 w1 v* f7 Q         print ('say 物品栏已满需要5个空格!');
0 f5 P/ C( T" X         exit;
" d( l) A) ?& `0 R+ C' y$ U- `      end;
" Q: x  J/ {% I6 }5 R$ X3 k! ~9 B       for MapId := 0 to 200 do
1 {6 I/ D& H- e( w9 @5 X       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
8 f9 t! q( _% ~8 j1 i) g       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
; a8 \5 ^3 s; `       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
% \" ~% j  A! E- p: I$ }       print (str);
      end;
( @! V/ q4 J$ G: Z$ K    print ('putsendermagicitem 修练枪:1 @会员服务 4');
( F0 W7 A( `. {3 m4 _6 c4 E    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
3 M# n2 D) `3 z4 c& f) w* t' L6 `    print ('putsendermagicitem 修练斧:1 @会员服务 4');
0 s% a% W4 P9 v6 U9 U# ]3 w    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
+ F, p" |1 i+ A$ B  F2 L3 d    print (Str);      
+ o3 Z* ?1 s) \( a" _8 ~6 I    exit;
   end;
" B* ^; z2 |; W% c2 Y! R1 ]& i* D  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 m6 z( W( P1 @6 i7 G  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
% q: H  p" x3 D$ o1 r# j     exit;
  end;
0 N" P, I& }4 c( I  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 Z  J( @3 m6 H, r9 D! J     exit;
  end;
  if WqName = '修炼斧' then begin
8 K( T# _. U+ X5 C$ i) A     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
6 ^, X! z/ u; O5 p) H( f       Str := Str + '【会员系统】:『';
5 ^. W) y/ s# M       Str := Str + Name;
1 z8 A* `4 t# I% R& A/ E       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
( l" X) z3 |% p$ \: j% [* z* Q       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
1 ~; r; d/ d6 I7 F      print ('getsenderitem 修练刀:1');
! D. r. ]0 x% S8 ?* u7 Y: g      print ('getsenderitem 修练剑:1');
* W+ c) C0 ~+ _4 v0 k" O      print ('getsenderitem 修练斧:1');
% w2 A; n  z- T; a3 \& M      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
& f% g" A5 T, D1 `1 b2 [      print (Str);
8 U1 w& C# `( o  Z7 H; ~    exit;
   end;
end;
end.