一个很好的会员服务脚本

unit 会员服务;

8 F" y1 n: O: \* s6 Kinterface
3 q) z6 C- l* v4 o2 j; o( }
: k2 |2 I# k# B+ b: [  R$ Pfunction  GetToken (aStr, aToken, aSep : String) : String;
& \3 c5 F* j  k* t0 Y& Ifunction  CompareStr (aStr1, aStr2 : String) : Boolean;
* q3 [/ z  M5 z/ Mfunction  callfunc (aText: string): string;
& ~5 K0 G; A6 \6 U1 ~% Xprocedure print (aText: string);
: \: m# [% `; e7 Mfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
% T" h( A4 m/ J& c; rprocedure Dec (aInt: integer);
6 `; [. i  W" @6 `0 ^; hfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
  ^- k1 x" s( Tprocedure exit;
6 t/ r* R4 e0 @; \! P( N! ^
# }5 A. ^! v) Wprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
, `" F3 P- u9 f' ~  H4 L
+ [! k! a8 l& x- }implementation
  _% `& j" `+ Y( t7 {procedure OnLeftClick (aStr : String);
- D8 [1 V% o) Q- t. ~; I$ A5 Ivar
2 m: E! K; ~* T   Str : String;
$ k/ N3 x. L/ ^( d   Race : Integer;
) o4 ?1 o% q6 i/ O/ rbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
, _$ Z  E0 a4 b- e* A0 ~   if Race = 1 then begin
0 G( r7 G/ D# |6 x      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
% z, x# D7 k, Q. c( N3 h) Z9 M& O      exit;
   end;
5 b5 }$ C$ J% g+ W9 Kend;
; s0 H& B3 H$ c8 U1 H7 X! v4 rprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
. m. {# k. p: U" A9 c* \# k2 i         iCount, MapID : Integer;
begin
6 A# X, x. H% X! Y   Name := callfunc ('getsendername');
  t. `! ?2 n% `, a   if aStr = 'close' then begin
      exit;
0 e6 g  T8 C! H- r% }5 O   end;
: c. E  b) [6 _9 ?3 D" {! C   if aStr = 'xuanzhe' then begin
2 e8 C5 W( _; c0 M      Str := 'showwindow .\help\会员服务1.txt 0';
) S- A9 E9 R5 l' a      print (Str);
      exit;
$ M; s7 g) D% A: V- Q8 I   end;
  if aStr = 'lingqu' then begin
1 M' D4 z% d# q3 c/ S   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
3 G( x. t2 X1 [/ N& s5 ^  W      Str := callfunc ('checkenoughspace 5');
. q2 X! j7 v5 T- i      if Str = 'false' then begin
! J0 z) J' m6 \3 S; Z         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
$ D" n* B2 O$ |/ T9 g0 y( f1 ?. n       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
( W, Q. ^, Q5 U  D9 Y: P2 G       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
# T! |7 U6 p; l/ F* ^       Str := Str + Name;
) b) c: ?6 F5 J. f6 y       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
% z7 c! f6 r& V  S# m% O. w/ z       print (str);
" X' c  ?% U. V3 o) \. H      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
1 O9 }0 b  _; f  m$ a8 d0 E3 h    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
6 c0 v: u/ S" R6 a    print (Str);      
  e1 H3 V+ ^! l7 c* h    exit;
* `8 Z% |* I! I. Z6 \4 e4 G   end;
. O" b9 ~& e, L& Y  if aStr = 'chuqu' then begin
' ]; h( t6 c  ?' \+ W- U     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
% ?; m' e# R$ h     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
& I" w, A) ]+ f( o) G3 P( K! [     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
% n4 \' V& h# D8 s& R0 r7 ?) L7 p6 [  end;
: c4 O. O0 y7 A' N9 X* P  if WqName = '修炼斧' then begin
- \6 V% X3 L2 J8 M( a* Q. m     print ('say 你不是吧！想带走修炼武器！');
: _% n: Q% l" f9 T( ^, y9 z  W  ]     exit;
. U+ J6 _! M1 Z4 P  end;
8 G$ m5 n8 w  m/ T  if WqName = '修炼拳套' then begin
( M1 j6 x, c! ~8 ]     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
1 h5 ^7 l/ H0 G      begin
  W1 |6 U( g" f8 I# @      MapNo := IntToStr (MapID);
5 d/ b2 @" I2 \0 {7 L( e+ S       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
- v: [# B# ?% O2 J* G       Str := Str + '【会员系统】:『';
       Str := Str + Name;
0 Y  p% R8 V. B+ q7 v6 c5 o       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
& O2 v0 h% |" C      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
+ t& Y+ t5 l1 I! O  ?% T0 }      print ('getsenderitem 修练斧:1');
% ?7 d9 @2 w' r/ v      print ('getsenderitem 修练拳套:1');
$ ^0 U4 i+ K% h- z1 I      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
) P  C+ i+ U, w    exit;
   end;
* H3 _. o' c- j! e6 k% aend;
end.