一个很好的会员服务脚本

unit 会员服务;
( G/ `8 n$ P, X* Q5 }' t* a
interface
7 j/ t- [+ q6 P! F$ T# ~- R4 x
. ]' x9 A2 b' }# M' ~/ `' [function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
# h1 f1 [. u# G& N8 w  K2 qfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
  H- z; a; O4 `: a- A; Xprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
5 I3 j+ a7 |/ ~4 Q/ a' ]7 r/ H
implementation
6 n( n5 F$ P0 d/ f" n2 p. Q8 Eprocedure OnLeftClick (aStr : String);
var
, s+ C3 Z# s/ y* U2 E   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
) h5 N7 b/ M5 w2 g9 M   if Race = 1 then begin
3 e" e& `: ^: V* j% ]6 L1 a: _      Str := 'showwindow .\help\会员服务.txt 0';
$ O; x( [8 [0 h2 w      print (Str);
4 `/ F  m$ l5 C+ Z$ K" l- M      exit;
0 U- z+ N$ K! ~( T' n7 s* m   end;
* g2 F3 F: r( ~3 @- X" q0 f; Nend;
procedure OnGetResult (aStr : String);
: A! E2 ]% r0 d) _* q. Bvar
9 h0 z1 m% ~" u) D; E      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
6 d$ [& R: @+ `2 x1 P0 t   Name := callfunc ('getsendername');
3 p. t2 X+ {6 e/ I   if aStr = 'close' then begin
      exit;
: @! {1 Z/ I: v6 C% T   end;
8 D* i2 f) ]" i  ]6 I   if aStr = 'xuanzhe' then begin
4 a# u; u. o7 {8 G2 {3 Z      Str := 'showwindow .\help\会员服务1.txt 0';
$ ^0 }: ]/ W# i) K9 a5 f! ^      print (Str);
      exit;
. D. M: M9 }* t# g+ ~# S   end;
9 V" W, z; i, m  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
/ c9 L* B% K+ Q6 u/ E9 p      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
( U! `8 e3 i1 j3 `         exit;
      end;
' u, P! U" N4 h3 r, ]2 O: [2 S       for MapId := 0 to 200 do
       begin
- D' d  F2 `# V       MapNo := IntToStr (MapID);
# D9 G" D% p8 L# |       str := 'sendnoticemsgformapuser ' + MapNo;
& z, g9 {" a$ \" l       Str := Str + ' ';
% w: Y! B" j) ~3 T4 W       Str := Str + '【会员系统】:『';
- V3 z+ B/ O6 N- Z0 l3 n+ s       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
+ n/ P4 N1 L- I" j0 `( B  E- p0 z4 x) q2 K  x       print (str);
      end;
) U6 J( x/ h& S    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
- s) G) N1 c. U3 m- S4 h    print ('putsendermagicitem 修练剑:1 @会员服务 4');
1 o" R2 g# D  s( _* q: J9 Q    print ('putsendermagicitem 修练斧:1 @会员服务 4');
( A) J+ P/ b) N" O  a1 j& a( U    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
1 S6 b# I4 b! m% V2 i    print (Str);      
    exit;
   end;
8 {0 g* i1 Q. {4 z& x7 c  if aStr = 'chuqu' then begin
  C/ u" e1 `3 t: l7 G- |2 r( d# H     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 Z) t3 y! W1 J& E2 ~     exit;
' F2 y- V* i/ s: P( l$ [5 A  end;
  if WqName = '修炼剑' then begin
2 [/ Y! G/ ]8 F3 T- j. w: F3 Q     print ('say 你不是吧！想带走修炼武器！');
     exit;
  v- F  m7 d2 u- {  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 e7 ]2 h3 P* x7 i6 p& V" ?  end;
  if WqName = '修炼斧' then begin
0 v5 x9 u8 S& j+ o     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
/ Q/ ?  Z$ N6 H- L# |     print ('say 你不是吧！想带走修炼武器！');
# {1 q3 V# `. m6 `. V4 f     exit;
  end;
" B. V7 ?" V/ d) S      for MapId := 0 to 200 do
6 q' B* _' }8 [: D; D# b1 `1 V      begin
9 O: J9 q7 c1 P) G/ V0 I0 X      MapNo := IntToStr (MapID);
4 `2 ?. H2 l  O( N       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
) L/ h3 S/ T/ e5 g0 g- o      end;
) Z! T2 Y+ i. U/ U      print ('getsenderitem 修练枪:1');//出去就全部删除物品
' f5 u; _2 u% }; e7 s7 L      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
7 y* k) Z" [8 x7 S# c      print ('getsenderitem 修练斧:1');
' d) j9 _& h$ G! a. g5 `7 u/ X      print ('getsenderitem 修练拳套:1');
9 P9 ]2 e% d- k      print (str);
( ^/ R9 z3 `1 j/ J% n  f( K% G      Str := 'movespace ' + Name;
7 u8 \1 |% ~' A0 s6 b      Str := Str + ' user 1 500 500';
4 ^/ M7 x8 u6 H  c      print (Str);
4 J& k- ?) V  k7 @; @$ V2 o5 \    exit;
   end;
end;
end.

  w: q4 O1 S8 X* H5 ~