一个很好的会员服务脚本

unit 会员服务;
5 y2 Y" A* o1 C6 ]5 ]; c1 t( V
$ Y; X) a3 C- M" _" o! b- Einterface
6 @' E2 k6 i6 @; ?5 A" w$ O
function  GetToken (aStr, aToken, aSep : String) : String;
% y* [/ H0 n! S: M* hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
/ I" x- Y; H2 E0 f/ y, ~/ Mfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
6 ~2 e" U% p" L( k8 N5 Mfunction  Length (aText: string): integer;
& F0 s7 a' I5 G9 Pprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
8 X/ h: V. U. h* Nfunction  StrToInt (astr: string): integer;
1 I+ k4 i2 P. A/ y, x, hfunction  IntToStr (aInt: integer): string;
6 p3 t8 R- p, `+ ^9 sprocedure exit;
4 M: _# h5 C- a1 s2 B1 h
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
0 \8 I2 F- P9 E. B( f& W7 H
1 a% e1 x7 L: |! d5 `4 N. |implementation
procedure OnLeftClick (aStr : String);
var
/ \  C  c- _! Q0 N$ R1 f# H' H   Str : String;
   Race : Integer;
begin
: \( `& D; ^1 D" P) Z, V( f" r   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
" t: b( ]' T& ?      Str := 'showwindow .\help\会员服务.txt 0';
4 z' I) e& n+ Q" j% p7 J9 _& D      print (Str);
! |, w8 s* K, H$ D1 h  u  N      exit;
' j, m7 {4 A$ ~* e$ e5 D, {   end;
end;
procedure OnGetResult (aStr : String);
. M0 t9 x+ x) P; z- X, ^# Ivar
( ^2 d9 ?) L7 b      Str, Name, MapNo, WqName : String;
8 d- ^9 U& l/ z' t) m) I; ~+ ?         iCount, MapID : Integer;
begin
9 `! ], N$ ~* [5 F1 w3 N# ^   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
8 h% {0 l+ \0 \* w   end;
& f3 w5 e5 P& B/ L% h* ]   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
+ d3 U9 n# b' g; }      print (Str);
# c; j9 C& ^3 @# ^/ Q      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
. g3 e( L3 p3 v" W; j  Y. a   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
3 x) t& I$ T' u( }3 Q      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
0 W, I0 x: D5 i9 o         exit;
7 z1 Y% z" S. F0 `3 R7 X$ c      end;
4 Q" b' y7 V) F% J& E* L9 J/ c% t       for MapId := 0 to 200 do
: N: @7 W; d" H% e( s8 y' p       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
) N! Y- E# l+ N       Str := Str + ' ';
8 i9 u: Z5 G" b% O4 g       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
3 u4 M, a% g: ?, e. l8 W( W& i$ Q       print (str);
      end;
/ Y! M2 g& D/ {$ U8 r    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
$ p+ G/ ~. n9 c6 j# w    exit;
   end;
9 F+ B$ [6 X1 v. O; c  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
" G" b: {: y1 L8 A5 w  if WqName = '修炼枪' then begin
9 ^) o# p* ~; |, \     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
! ]5 Y. Z0 v6 U, {! ?8 n  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 i# x* x0 w& p+ t2 a6 M     exit;
6 Q) C5 [0 k. r4 X' ]* t! x  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
0 o) K4 z9 y: K! q     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
- \! f' c" z1 E0 _- T' t     exit;
  end;
$ o7 x) h! A1 v/ h+ \/ W      for MapId := 0 to 200 do
" v, r* P- X% X( m6 E8 U      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
# I1 s& F( f6 t" ~/ N5 ^       Str := Str + ' ';
+ `6 a* h8 u4 p/ _8 M% T! A& U! g       Str := Str + '【会员系统】:『';
& A& Z; L2 r+ Y' _$ N' J       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
2 v4 [# \8 I7 R  T+ L       print (str);
- S+ M8 n' @' \3 j      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
! @: Q4 V  f, Q- d      print ('getsenderitem 修练剑:1');
, z: H, e7 m) C      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
. |/ I* W5 y1 S0 ?      print (str);
      Str := 'movespace ' + Name;
) Z) P% P8 A  h# @      Str := Str + ' user 1 500 500';
, R, g1 Q, w; D0 s, y* Z4 {      print (Str);
    exit;
( U% J5 P) z4 C9 S   end;
end;
end.

/ E+ ~2 U6 ]4 Q4 o# }8 ]