一个很好的会员服务脚本

unit 会员服务;
2 ~5 k4 w" u$ S  s- l
inte**ce
% N6 c  o" u( |( {- s2 k
( B' n" {/ @+ P4 N' X  hfunction  GetToken (aStr, aToken, aSep : String) : String;
# H0 L1 w! J3 a5 F  @) {( Efunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
) u, {2 ]+ A5 vfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
4 E1 d3 X2 u2 Oprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
7 j9 H2 D/ q+ U! F, a8 @function  IntToStr (aInt: integer): string;
procedure exit;

+ j% m1 [# w) L6 {+ ^+ iprocedure OnLeftClick (aStr : String);
# U! G. h0 h/ ]. ^+ a8 R0 A% nprocedure OnGetResult (aStr : String);
) {4 M) `0 y9 A& h+ i: X
" e2 {( I2 p: e7 M: A/ Nimplementation
$ K1 T7 x4 |# B$ w% k) E6 h' u5 Pprocedure OnLeftClick (aStr : String);
6 B  l9 \6 P4 ]var
   Str : String;
! m- j5 y& K9 v! [' ~5 ~; u   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
+ F* f0 @' v! T6 K4 [4 A4 V8 Y   Race := StrToInt (Str);
5 s5 o. ?/ x9 Q, e, @# b/ n, W3 M6 u3 \   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
9 N8 n' P5 c9 W( h      print (Str);
+ C% J5 s" Y- d3 E! T. N$ L6 v      exit;
   end;
5 b& \/ w7 ^; d5 L* z( ^. Mend;
8 z: x: m9 M" n/ T& Y7 f" W# Xprocedure OnGetResult (aStr : String);
& }) F' |# e, zvar
, X1 K. L( e' s7 p8 `+ |9 c      Str, Name, MapNo, WqName : String;
& u7 R- l0 B* U6 ?' a         iCount, MapID : Integer;
begin
) `: n) b8 v9 T   Name := callfunc ('getsendername');
& }% g9 q3 y) f( o   if aStr = 'close' then begin
! ~7 \8 o: ?2 i; Z3 V      exit;
   end;
- X9 S* w' J/ k% h: w   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
; e2 ^% E: M! d, h! d7 b      print (Str);
" g2 h% a1 l% \& U$ E  p      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
) g1 G8 M# F5 s- s/ V. E  D      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
2 n/ r- ]& h* a' R- o2 s         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
8 X/ W. n2 ?. e- g( b$ r- p0 O  B1 e       for MapId := 0 to 200 do
       begin
  _8 [/ f: Q( Z) Y7 C8 }/ U       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
9 @- A/ a& ~$ R: m0 z+ A6 I       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
0 |8 f, C+ x* a. Z1 C       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
- e: c" o1 F) _2 M! N    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
  N5 r$ E8 E$ M1 L! H- o7 b: w    exit;
   end;
  if aStr = 'chuqu' then begin
$ L& y" u+ h" }( o6 |" u     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
+ ^. n0 H; p1 s" S$ [0 p/ H     print ('say 你不是吧！想带走修炼武器！');
     exit;
: G- g! R/ W5 L+ Q  end;
* p' J- K1 v  b/ R3 h1 o+ L  if WqName = '修炼剑' then begin
# n+ L5 d' O' q: }+ P! I# G     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
) u6 L8 a9 |7 y2 e3 G+ C# b! K+ K  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
5 ], h3 ?' H# `9 v  ^; q* P) s$ h0 i     exit;
  end;
  if WqName = '修炼斧' then begin
# w* G& G, n: x1 v9 ^* b9 Q     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
. f, Q. v3 p0 k( I% j7 c  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
, }1 l/ c$ l5 g$ b      MapNo := IntToStr (MapID);
8 \, h8 K" ^5 Y: O% V) \. w) I       str := 'sendnoticemsgformapuser ' + MapNo;
# I/ g/ b, {$ C       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
* @% L" K! u7 k# v       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
  t6 Z- G( ?4 }1 V% r      end;
' G9 ~1 v3 O9 O, I) p* [      print ('getsenderitem 修练枪:1');//出去就全部删除物品
, S: m0 L- ^* Z, q  o; P; A6 l" z      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
: k+ R. _, k. M# y0 Q! p$ J4 G      print ('getsenderitem 修练拳套:1');
$ t8 U2 l2 O4 [0 W3 D2 \      print (str);
      Str := 'movespace ' + Name;
; _% [0 J( S" D$ q8 B- I      Str := Str + ' user 1 500 500';
      print (Str);
  J8 ^8 g" {9 f6 n( @+ g2 W    exit;
8 N' [% D0 h( r   end;
1 Q) Y- A& i; i8 j0 D: F8 ~end;
# b7 v+ C1 J( j4 dend.

" G* Q' Z7 O& n- r