一个很好的会员服务脚本

unit 会员服务;

3 s& l* z7 P& M' q; f+ V  e. Ointe**ce

! i1 E+ a+ c0 N* `6 yfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
/ B4 e9 a( i/ C# ~function  Random (aScope: integer): integer;
" W, ^; I- O2 |' ^function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
- N+ E; p$ v/ W3 |  {: G7 lfunction  StrToInt (astr: string): integer;
+ M9 E: z1 ^# L2 ~, z5 L5 c" ^function  IntToStr (aInt: integer): string;
. ?8 h+ C8 @3 M" T. d- {, V, x1 Iprocedure exit;

procedure OnLeftClick (aStr : String);
- h3 E+ U% T0 L5 D0 wprocedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
7 l  @3 o( q3 m' m1 Fvar
2 p, Q" @$ m( A$ X3 s   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
; B1 L5 t' K  W( j/ n! e. a1 Yend;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
& X3 ]' Y% C" ?1 F& J         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
/ p/ ]7 @. a! s      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
1 |7 \- p- |' N2 {1 r   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
& V  Y" b+ z  a' g1 Q; \) C      print ('say 你不是会员吧');
# |* B& z+ T$ F7 m4 Z" n; ^0 N      exit;
5 ~' f! i  F. X0 l7 ^    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
' }: ~! ?. U" q- j* ~         print ('say 物品栏已满需要5个空格!');
         exit;
( d" e* u( i+ J" p1 x" `      end;
       for MapId := 0 to 200 do
       begin
) M5 i' k* R( N& M- w/ O$ @       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
/ w3 C, g2 ^3 \: b* U) p       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
+ _. P8 Y- L6 V7 b5 p. \* T    print ('putsendermagicitem 修练剑:1 @会员服务 4');
, O, y6 X# L; f1 p* r% @    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
  q* {& v* M* i$ S; A   end;
  if aStr = 'chuqu' then begin
& E$ G( D/ y* _1 E; [' d     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
7 Z, [# P$ ]* U3 U" x$ `" u( ?  if WqName = '修炼枪' then begin
+ y: ]9 r, F# Y8 R     print ('say 你不是吧！想带走修炼武器！');
9 n! C) `2 _7 o8 x3 E: h! k  o' {     exit;
' y9 D6 X7 \# `7 f! w* X! A  end;
+ x( c, O1 @5 I% t  if WqName = '修炼剑' then begin
( Z* @; ?4 M3 B9 s: W     print ('say 你不是吧！想带走修炼武器！');
+ a! |" ^6 `' p3 I     exit;
8 t& t" l! p& F! `0 Z* F; d  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
" f2 j: `# v& p- @% J  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
: k5 H8 I5 t! N3 O8 i. W     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
7 I6 j7 g8 @! j+ d9 G      for MapId := 0 to 200 do
  l3 F( Q4 q2 a8 K      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
" w  k" E) p' h# m$ |, e       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
9 Z+ H* C6 r# _1 O. `* L       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
7 `. V9 W6 [8 }' Q- _      print ('getsenderitem 修练斧:1');
# \7 Y: r# f' S# f      print ('getsenderitem 修练拳套:1');
      print (str);
5 N+ F) a* x( s8 M  D$ b      Str := 'movespace ' + Name;
! j; c* P. d$ ]. x# U      Str := Str + ' user 1 500 500';
* O2 r/ [0 k' a) W      print (Str);
# g" W# g" {; s0 Q5 B2 d    exit;
   end;
end;
end.

! b+ [5 N5 R3 w