一个很好的会员服务脚本

unit 会员服务;

interface
+ F+ Z$ F: E% S5 d
; i! g7 r; V' a1 |0 ]function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
4 X: u; O8 L( J$ Kprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
! `7 P1 q: B& B+ Y% `3 |9 [" E% \procedure Inc (aInt: integer);
' m, x3 R* ~' R  S( y) \procedure Dec (aInt: integer);
  @/ @) t. G- L% n6 _5 Wfunction  StrToInt (astr: string): integer;
+ w0 m( @. S- o- n& ^2 n" }* Mfunction  IntToStr (aInt: integer): string;
procedure exit;
! P" g7 H4 {) L1 f6 f% k
; j* a! q) C+ m, T/ }* Tprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

! ^8 ~3 X7 ?& M# r$ n% B' A- O1 rimplementation
3 C/ R6 o. k$ Y& Eprocedure OnLeftClick (aStr : String);
var
* j0 E8 g& v; k& W! j3 V   Str : String;
% ^) x+ u% \( }+ [, N5 Z   Race : Integer;
( t) P; ?. @# m3 x. |0 @- x. tbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
8 O& c' A- H9 Q( M      Str := 'showwindow .\help\会员服务.txt 0';
% b- I! L$ L7 O# x      print (Str);
! b7 Q" _* @6 g      exit;
+ G1 Y  |) X0 N, o) L! s9 I* S   end;
end;
& C" M- {3 R3 G( q; _procedure OnGetResult (aStr : String);
var
! y+ i& x& i) x. B: H* n" J      Str, Name, MapNo, WqName : String;
7 z( N8 R+ Z. L7 U! N0 p# F         iCount, MapID : Integer;
3 R! ?, ]4 W1 a7 U7 f5 e) xbegin
9 N3 Z. U' R& |, v- G# C   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
5 J3 E7 ^1 M+ j3 |   if aStr = 'xuanzhe' then begin
) S9 f; c. N) @# Z. k$ u: p. i/ I; S- G      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
' [! o! t; i$ R' m      exit;
   end;
# b1 f  ?, }9 q1 L: Q6 |  if aStr = 'lingqu' then begin
8 P5 Y  h2 U7 q4 k. @, _   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
, S5 }# {0 a& J8 E& ?/ I   if Str = 'false' then begin
7 Z0 y4 _9 ^" n$ M; `* P) n1 V      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
2 N5 f6 W$ b( W. p& o      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
5 X' J; B- L9 d, Y4 v0 P4 y" t. \         exit;
; n: G) |: \  @' G6 r      end;
       for MapId := 0 to 200 do
       begin
7 f' k# F( b/ |  M, j. k) g       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
/ w; |2 y% t% H; y       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
, y) i' }: |, p* T5 F7 Z       Str := Str + Name;
. f$ X4 x( ~# f" C9 ~       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
) z, `9 h" N* m& D      end;
6 K$ b9 N, y' w6 V2 \7 S! P    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
4 z2 }, W$ g1 D2 E. C4 V7 k    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
! d8 N( l; B$ C) p1 g, z4 w6 N    exit;
# x1 c9 ~8 {$ x7 U   end;
) `: t: n& Z4 p0 e. {  if aStr = 'chuqu' then begin
  v8 }. K, b6 I6 ]0 b0 |     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
9 Q) _9 Q2 `. u' q5 X  end;
& r4 e: Z: Z8 P  W4 T  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
+ ^  P- I# ^+ e# l     exit;
; x% t  o- ~3 e4 @- M  end;
  if WqName = '修炼刀' then begin
  _% A+ M- r* Z+ E: N, {     print ('say 你不是吧！想带走修炼武器！');
  O" @& x' N6 U! r8 Q- C" S     exit;
/ {) k3 N% _) E, I+ S6 w+ p9 l  end;
  if WqName = '修炼斧' then begin
, Y) E1 e: m2 `9 E+ n* {; e     print ('say 你不是吧！想带走修炼武器！');
     exit;
) p7 [# C' p# z. P2 s" b2 D  end;
' U7 O, S# \3 k4 a  k  ]# m  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
( }7 u) S  R6 W2 T+ y6 _4 u     exit;
- j( s2 r4 @; t6 ~; \  end;
! M( a3 |8 S( N/ {$ F      for MapId := 0 to 200 do
# K0 _+ w! \- K# R: q: [' v( O      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
, D3 O" |8 f" z       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
* M$ m/ J+ A, a8 L* |       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
0 C" r( c3 R" _5 K% Y      print ('getsenderitem 修练拳套:1');
      print (str);
. C0 c5 E1 w: N, x      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
" T6 j, Z# l9 J      print (Str);
# e0 [; c  y! R- D- S( Y2 x    exit;
   end;
end;
end.

9 X3 ~2 K* w/ i7 o. {