一个很好的会员服务脚本

unit 会员服务;
2 |& l4 s6 p8 m$ b3 h( ^& l
8 k  V9 C  {+ h& B1 c5 v! V2 iinte**ce
5 X# C- K2 x: l; ^. G
) _/ J  ~. K2 p+ Y4 u5 afunction  GetToken (aStr, aToken, aSep : String) : String;
5 H9 _: {' \6 M4 D% m, xfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
/ ]& v- t: ?$ Z- e& qfunction  Random (aScope: integer): integer;
% }2 n: v7 }, p/ I% \8 O2 @4 zfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
: Q6 r' e- Z! s6 k0 Yprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
) i# O1 K% \, z: x7 Q  Y+ lprocedure exit;
1 x$ s1 l6 o6 O. ~* W
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
$ W1 v0 P1 W! T4 ~1 Y3 \
implementation
procedure OnLeftClick (aStr : String);
7 c' F$ m$ }: y. G# O+ @var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
5 l) i( K" @1 M9 i& v   Race := StrToInt (Str);
   if Race = 1 then begin
1 [9 k5 g5 |+ |      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
; y8 E. m: \8 [   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
. w( c: |" z: |: n1 r! ]   Name := callfunc ('getsendername');
" P4 E* {9 Y/ I: i5 S  a' j0 [- [   if aStr = 'close' then begin
      exit;
   end;
7 C; p& p9 X5 M   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
! w% Z% ^" V& J) W! p) k      print (Str);
& |$ S9 U$ F  y1 C7 w      exit;
6 ~" F- E+ T- k' G1 v! y& ?   end;
* i1 l% i4 l  B2 N' o& ^  if aStr = 'lingqu' then begin
# M% K9 E6 r+ N" \) @( _: J   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
, i+ E5 W$ M+ b9 n- U( }   if Str = 'false' then begin
7 U/ S7 y. v; M' A      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
8 y! D3 S, Y! Y      if Str = 'false' then begin
% X4 |& l2 n& P+ R; Y$ y         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
6 _0 \% n  G; e+ W( c) d       for MapId := 0 to 200 do
       begin
# k6 s/ _$ L5 w       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
) b& N6 S% c5 `       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
" j* C% M  H( r/ |" M! a       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
2 O/ q9 b7 _( o( q5 `9 J4 v' u- c- \      end;
, P9 b7 g$ l3 T9 l    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
' O) T- V: x4 a9 I- }3 t+ M    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
! X- c) \8 [* {' L   end;
  if aStr = 'chuqu' then begin
# B$ `( w  u. @; E  G  G0 C     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
6 b/ y: }2 ]- N$ v6 b/ U  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
, m, d2 K4 U  R- [( g8 A1 x     exit;
2 z9 W, M4 ]' F* W! J) p, x  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
9 @6 b# U+ z/ a5 Q: U' `     exit;
  end;
; ~1 N! t! k; a1 |, {% @- v  if WqName = '修炼斧' then begin
) q; |7 o, J* p" b+ L/ G     print ('say 你不是吧！想带走修炼武器！');
: {1 A& D0 i* r4 b# D" m: ~& f1 w& F3 k     exit;
+ E% \% c) q% F) U9 K) i; y) R; k  end;
/ u6 ?* a6 a4 }8 _  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
% T/ \- ~2 O  C$ ?5 f. A$ m  N. `  end;
; q4 s7 d, K/ V6 S: ^      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
+ p" }& h. z. z       Str := Str + Name;
1 F2 G# g. v5 h( f  g# ]       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
( C* z" D/ K8 e% e      end;
; Z9 j2 m% w6 }4 w2 j+ I/ \1 c      print ('getsenderitem 修练枪:1');//出去就全部删除物品
) X0 ?" `: H# J; g2 Z; f& v& B      print ('getsenderitem 修练刀:1');
5 q; P0 c$ p8 Q- u- ?$ ], D& w; @      print ('getsenderitem 修练剑:1');
& p+ o6 d7 N- \, ^8 o      print ('getsenderitem 修练斧:1');
! q1 o- b. b2 J8 |' j! ^      print ('getsenderitem 修练拳套:1');
      print (str);
% i& q2 Y- s1 _# M) |      Str := 'movespace ' + Name;
) b( O' p4 m- a$ d, q      Str := Str + ' user 1 500 500';
      print (Str);
1 g# {! v1 i& k) Y! \$ u    exit;
   end;
end;
: ^' N1 \* W! a3 y$ G+ ]end.