一个很好的会员服务脚本

unit 会员服务;
) L' t9 N! _4 ^
1 n+ t0 F: }& G5 H) G( Q% x/ ?4 S  ~interface

$ T* P& h  y+ a; ^* h' y& K( |function  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;
/ F3 P0 }- S- ?8 \1 L% xfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
3 C; f" L$ V2 H# c' U, S1 fprocedure Dec (aInt: integer);
" J% M7 s; J8 `; r8 Rfunction  StrToInt (astr: string): integer;
" `# w3 g! e) Y" W1 T9 K1 wfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
) p2 y- K# v& D- s! [' cprocedure OnGetResult (aStr : String);
( u/ z6 _' q2 w% @
- G$ c* E' \! Cimplementation
* I/ \) ^4 S" i( i6 n! m! eprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
8 ?. C& k1 k' d' p& Q, [begin
8 l& Z& r& q, J% ~  `9 M   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
2 Y- y9 {! q3 G3 x' H, Q      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
4 K! b. {) K- q  W# U4 [      exit;
8 y- c% k: F9 Z. q5 V. w1 \$ j   end;
end;
procedure OnGetResult (aStr : String);
. D! @6 Y: H" Y- F1 i/ M) kvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
  u8 ]3 r' i  e3 N( H   Name := callfunc ('getsendername');
; c# K: P) `. e( a, k5 R/ T   if aStr = 'close' then begin
* m: _6 ]( i' @5 Z      exit;
   end;
   if aStr = 'xuanzhe' then begin
' Q& Z+ U7 ~' C# w6 I3 A      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
0 r0 @; ?0 b  C$ t   end;
( E/ a0 H  v* {2 w& c5 ]  if aStr = 'lingqu' then begin
3 o& K0 w" {; r$ t/ X; ?   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
# m2 K% P* ^) ~9 v) D      exit;
' i, @* C7 `7 Z) d1 j3 Q3 r! I    end;
$ U! j* _0 H0 p      Str := callfunc ('checkenoughspace 5');
6 f1 F! `% O  S8 i3 J. @6 k+ @      if Str = 'false' then begin
6 m) b, g8 x, V         print ('say 物品栏已满需要5个空格!');
# b4 _' D2 L+ s  ~2 m; e         exit;
) ~" G7 T" h# @, K8 ]0 W% X* X5 p      end;
( f- P0 V* l$ O. l) L& |2 I( a       for MapId := 0 to 200 do
       begin
3 r! [0 L8 {  Z& v/ {8 W       MapNo := IntToStr (MapID);
- @9 R; n. i( g& G% V0 q- q" d       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
2 v# g2 L# {5 Z       print (str);
# M+ h  s& ~2 L1 Y. F4 u7 M      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
! k9 N1 ~& y5 h- A. b    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
( c3 Q9 D( f& y8 _    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
! n& z7 k$ a% |. b     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
! A1 \8 V% q9 _  t4 x9 {5 {, a  end;
9 |- b' `7 ^1 k; p  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
3 f& s. a2 u8 [& W7 @' x  if WqName = '修炼斧' then begin
3 P) R8 l$ @6 |9 X3 @8 T* O     print ('say 你不是吧！想带走修炼武器！');
( k# k, D1 F4 D4 W     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
. u% _0 d& ]; M# Y3 R      begin
" C% e3 k# m& X4 n4 C      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
+ G/ F5 a+ @% F5 J       Str := Str + '【会员系统】:『';
       Str := Str + Name;
2 H! H( }# T, `7 h       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
- n# z( @' I! f9 n       print (str);
4 N$ `9 `; K$ i$ ^& _0 O* _5 l, h      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
& F7 R& E, V$ Z7 h      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
" n' s, {3 {% ^5 v' u      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
* \% r- h8 r+ J9 ]2 ]0 f    exit;
2 g4 h/ ]: l) l8 f8 i8 h   end;
end;
end.