一个很好的会员服务脚本

unit 会员服务;

$ N4 a! v7 U: u8 M+ ^$ Ainte**ce
# M9 T2 ?; _: M- @1 }
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
) p# w4 Q1 f! K) {# \function  callfunc (aText: string): string;
4 g  S& B) P+ j( N4 B+ i* U2 _procedure print (aText: string);
( l7 q1 \8 T! Bfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
0 m; Z' y& \! z: g* \procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
! c( c# z$ d8 L4 Q$ Ifunction  IntToStr (aInt: integer): string;
. }" h# L% \" a% {- G4 V; t" jprocedure exit;
* f  V) c# Q2 I& o/ v
: ]- e' H/ r; `8 M- {8 {procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
3 ^4 B7 R7 ]5 K6 u   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
4 b2 T% `4 V" E: `2 Z8 k& A( s7 W   Race := StrToInt (Str);
: U& M4 _3 f7 S! t: h) {9 Z( e6 \   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
6 L% w0 s" j! w/ h' ?+ h   end;
' y# M) _  @* O( Wend;
- c  V; R( s3 {# H, f" {; N# Bprocedure OnGetResult (aStr : String);
3 C9 }# D$ s4 f( `3 k; tvar
4 N; W$ N: J) a- x! G9 ^      Str, Name, MapNo, WqName : String;
' ?* t1 P1 q' R* G" \1 P9 Z         iCount, MapID : Integer;
begin
6 R4 b+ D( s. K   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
, f6 }) ~9 d% |7 Z3 H0 L2 E+ N      exit;
: ~5 [8 l0 D0 E- W) C   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
- u3 }; d+ ?( G   end;
  if aStr = 'lingqu' then begin
2 L! `! @) {4 W  E   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
/ W5 D( f9 i1 ^: I   if Str = 'false' then begin
  e( g* n0 i7 w6 l  p0 c      print ('say 你不是会员吧');
      exit;
, {: F! Z- f2 R- ?  S7 R1 {& N6 @- @    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
# K3 e: E  y+ Z8 e7 g       begin
0 S& @0 L  ~: |  h. H* `8 a1 D4 l       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
9 U+ K/ h5 ^" r) U# D# j: p5 C% U7 Z       Str := Str + ' ';
2 t( R6 o2 l4 D6 T& X       Str := Str + '【会员系统】:『';
' |, u/ y) [+ M* ~, U7 G! m       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
8 }0 ^5 |- z: ]+ O       print (str);
1 [, P% N( O7 N: K2 m! L1 R      end;
: J; K' Y0 E! {: S  h3 q    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
8 n, [- s: h% i) ?0 n, f    print ('putsendermagicitem 修练剑:1 @会员服务 4');
+ \: O, }% }) e* s+ J    print ('putsendermagicitem 修练斧:1 @会员服务 4');
$ ~$ {, U" _* W* k- j) ^, B    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
; p3 [/ x4 T& N* i& D' e    print (Str);      
    exit;
7 |+ k) z  @6 q2 M2 E   end;
  if aStr = 'chuqu' then begin
" n" Z0 O5 S6 t8 u+ P/ @4 u     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
8 }- H+ ^% W- Z& x' S  J  if WqName = '修炼枪' then begin
' y$ z9 B  T1 h% i  n/ @     print ('say 你不是吧！想带走修炼武器！');
; }, t: h' V8 o     exit;
  end;
  if WqName = '修炼剑' then begin
6 Y2 \: {0 }1 c$ _     print ('say 你不是吧！想带走修炼武器！');
     exit;
( z" Q, e4 L& A" _0 N  end;
! Q# n+ a7 O" ^! _" F! q) ~: G  if WqName = '修炼刀' then begin
3 b1 D' j' r5 D+ |4 O     print ('say 你不是吧！想带走修炼武器！');
5 x" v" ?( f& G' f0 {3 i/ T$ G) k- P     exit;
# ~7 _# ]' J9 e& W0 }  end;
+ W5 M1 j9 |4 D% G  if WqName = '修炼斧' then begin
+ Z: |7 i2 W- I     print ('say 你不是吧！想带走修炼武器！');
     exit;
0 O& u1 G2 t. E  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
/ C0 ]# q+ N0 j2 B* h; ?7 u4 a     exit;
  end;
      for MapId := 0 to 200 do
8 p. ~. d' Y) Z1 F8 L. f6 R$ a8 P      begin
% n9 l, m4 }7 F) h; J      MapNo := IntToStr (MapID);
" v. z# C1 }7 J% S( ?3 ?       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
0 j  t' M/ g9 P7 w" Q       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
, _! H/ A8 {3 N0 A4 `/ ?  z      end;
9 j" H& f& }* _4 ~* ^* M      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
; j+ u7 I  y# `6 I) Q) O  b, e1 z: k( e      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
+ I0 _7 H- f8 Y1 `- N2 [( ]      Str := 'movespace ' + Name;
: O$ h! f( Z7 f# N+ H! I; J; D      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
end;
end.