一个很好的会员服务脚本

unit 会员服务;

) f6 n* y+ t# Einte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
* _2 h) c' b% y; q3 U2 P$ Vfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
4 c* ~( ~4 [* y, E5 q, cprocedure print (aText: string);
+ ]/ k! Z/ ]) afunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
* W% ?  y! z( h" K" s  Y, a, y( y0 S
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
" b# N4 z9 _4 o9 S5 K3 Q   Str : String;
   Race : Integer;
, g1 H* w  f! D' y( Pbegin
1 n6 K# L6 e3 v/ Y+ D1 @( J% P   Str := callfunc ('getsenderrace');
0 l; ]# O) V; ~: P4 `. l. a   Race := StrToInt (Str);
% l, b. u$ m% \& a* A   if Race = 1 then begin
4 ^/ s! \6 m8 d7 f6 X9 l      Str := 'showwindow .\help\会员服务.txt 0';
) }: d4 ?5 d) o% r+ j      print (Str);
      exit;
   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
' L% y- d8 ~9 Q5 ?- Z   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
( R" ^/ \( h6 ^7 C! F. `   end;
" v2 |2 J' F; y, L9 F- P0 e1 q/ m. H   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
! q1 j1 m3 Y/ v9 b+ n- r6 N      print (Str);
3 p' h6 B# L1 P$ N$ F3 X7 M      exit;
# g/ L5 q9 k# ?  X) G6 u; v8 h* x   end;
  if aStr = 'lingqu' then begin
' Q. |- U2 t1 u& F2 A   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
& F. H$ Q6 W& n: t/ U& F# ]      print ('say 你不是会员吧');
      exit;
    end;
: ^( _- J$ l# P7 ]      Str := callfunc ('checkenoughspace 5');
2 D+ E/ ^7 H% o      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
/ \1 ^( p% U- C& H# |0 a) R8 N         exit;
      end;
' E2 W9 I1 z4 i       for MapId := 0 to 200 do
: [% Q& L- q( h3 l       begin
1 r- |% w) t& }) Q' ]- e       MapNo := IntToStr (MapID);
; X; M4 W! ?/ i5 k- x       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
8 C$ J+ m/ W. C       Str := Str + '【会员系统】:『';
       Str := Str + Name;
/ l  U- K8 W9 I, V       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
1 d( h1 B+ w# T" q  s1 |  {       print (str);
      end;
& L0 v2 h, @8 Z  n    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
, {' @& q8 g7 `, b5 A7 P. ~    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
: ~( a/ z. |6 N6 E' a) S# C( [  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  p1 x3 n( b# K0 \& o# e3 m  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
) V2 K" ~: ^' Z0 l     print ('say 你不是吧！想带走修炼武器！');
     exit;
) [2 {$ ~/ J/ b# `3 `  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 p. U+ n+ k# D7 k# z  end;
0 c9 U7 w; J1 V& V  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
  Z6 q9 k9 `) a4 S5 m! z     exit;
( h! [& _. a; G& h) C; c% e% W  end;
7 J- j( {9 y( u( N  f; f+ e6 ?6 A0 m  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
. n$ n/ t* K  N8 ]. Z     exit;
  end;
' S) k6 ~" W* z; Q/ g! }      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
( e3 t$ S9 N; a3 Y; v/ u6 S       print (str);
9 T! J( ]# E" P% M: y$ d      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
; L  T5 O+ R( U* n! p6 m- X      print ('getsenderitem 修练斧:1');
$ y3 O- O! p5 y) {; n      print ('getsenderitem 修练拳套:1');
  _' L) O6 j; w" r* ^7 s) p5 B      print (str);
      Str := 'movespace ' + Name;
  d, ~; k! \2 X% k% T1 |      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
! B! m& k7 W! p7 ~1 l  {   end;
! `9 L" T8 V" j3 X/ jend;
' Y+ a" O, l: g: Zend.