一个很好的会员服务脚本

unit 会员服务;
$ V! _# z" [0 u* Y
; l2 y. F1 C/ l- ?7 Cinte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
, ~9 ?5 M2 a% l, m& Hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
7 ^3 h: ^1 ~3 S4 `% n7 H0 pfunction  Length (aText: string): integer;
+ S9 ?( ~% h! B4 D# cprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
, S! j( N( g0 b* e! u: z# jprocedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
5 \' q/ i* L. M* `. wprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
6 \+ ^0 e+ r0 M+ y9 [# _( H6 a/ Vbegin
   Str := callfunc ('getsenderrace');
3 g5 F5 k' Y% p) T: X# H  x# b/ d   Race := StrToInt (Str);
" n4 U+ }) O1 @6 t3 N- o   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
end;
- q2 i  C' O& R; sprocedure OnGetResult (aStr : String);
4 l# t+ f( I$ P9 |, {6 B1 M8 ]! qvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
+ x5 u( q1 l$ d" N! T; o   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
( a: q% g& c! J/ H% c& z      exit;
1 r; ]4 U, J# k9 P2 K   end;
& P7 b- F3 V$ w% z  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
9 ^: L! D& U' V9 Z6 f      print ('say 你不是会员吧');
0 x) @( \8 o% ]0 s9 v! S% _5 t4 F  _      exit;
8 s- C& Y. q- Y$ ]    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
/ |% _: g1 I( Y% P/ t: [       for MapId := 0 to 200 do
' L1 y& |" u5 f7 ^; y; W+ P2 [       begin
) N# i" z' M9 P       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
2 H5 R' X! q; E  o% Z- M       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
% y3 g7 ?5 z6 E0 U) M       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
6 S) ]" \6 Q/ q! O+ u       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
7 K7 q7 T  D! [    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
) {, w% S: v# O  w     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
2 P) V- n0 F2 U     print ('say 你不是吧！想带走修炼武器！');
     exit;
# k& A2 ?' S$ {  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
5 x9 |- o( B3 w& z! @% n0 y  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
- y# M) B2 M. @0 T# [$ [     exit;
  end;
( O" W( T0 S8 A9 K3 U& q: C  if WqName = '修炼斧' then begin
! @. e; w: O  n) M  B) F) `# V$ P: w+ ~     print ('say 你不是吧！想带走修炼武器！');
     exit;
( ~+ z4 K+ d5 _2 s# B. o! D8 F  end;
" R" r+ |& z( i  v1 z! N& [  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
4 z2 Q: u4 I# M& ?2 o      begin
( b- F' Q3 T" w4 z( S. g6 C      MapNo := IntToStr (MapID);
7 I1 c% r! l# f       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
5 B3 V  k, c  D: X1 _$ W       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
1 h* V' W5 z2 v       print (str);
      end;
. d$ I! ?3 ?5 X2 V7 `      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
" [2 h4 o  G/ \. ]      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
/ I) g# N. J8 J# g. g      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
/ R' P; [& a- e7 G6 B2 U   end;
end;
" ]0 m" q6 ^# c* m6 @end.