一个很好的会员服务脚本

unit 会员服务;

inte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
* C" D; n' `( I) dfunction  callfunc (aText: string): string;
procedure print (aText: string);
! t$ j2 R/ y8 u# t- Gfunction  Random (aScope: integer): integer;
" ^  X/ z, r7 h. f6 }! Yfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
2 `! S3 F2 ^1 h4 Zprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
0 y9 r- |; k( H0 ~
/ g2 _& l4 f1 E! E- Gimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
7 Z8 s: p& m, S   Race : Integer;
% j' m! n2 y6 z! A% L$ _begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
. w  s1 y2 J# B( G' X   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
' S; C; g+ k0 [$ {      exit;
3 j! e, s" k/ P/ H   end;
. }( e/ p5 V, }0 }end;
3 P) B2 t' A5 f+ Z8 J$ r7 Yprocedure OnGetResult (aStr : String);
& }8 e- u& S- l4 H$ Z* tvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
; x: V, |: s& j/ ^begin
  ]2 `3 o5 s+ X$ {8 w9 f   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
) k- {6 p5 \: z1 |/ |4 ?      exit;
1 V% u$ f0 _1 t/ M* d  G5 ?5 V   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
7 @8 M8 r3 u5 T- ?2 s/ C6 \      exit;
1 `1 h3 x5 _$ w- S: @, w   end;
$ K, S8 X# z4 L( r% i/ U  if aStr = 'lingqu' then begin
5 m8 s' p1 d  u7 m! X+ H   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
8 E/ O2 G* E, q6 H& `# r6 V* t      Str := callfunc ('checkenoughspace 5');
/ E& z' ?& a% j% i5 X( f5 g" Q      if Str = 'false' then begin
1 N5 e% }6 f- O; K; y         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
7 x0 @- M8 s: i- j# p. u       begin
       MapNo := IntToStr (MapID);
$ A2 ]/ L" V/ V) \' k3 l3 b       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
7 H1 |. m6 H& n, q! o+ l( k9 j; A       print (str);
/ x, H! ]- }6 p; G7 ^      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
, y* L" ~( }8 B8 {2 D% f- l: C    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
, i/ D+ u2 Q! C2 s    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
7 Y+ W( k1 s% Z4 x/ l* M0 Z7 t  V    print (Str);      
! P& ^$ G. B  Q4 S+ e4 ~8 e! z    exit;
1 n8 v4 }0 {/ e8 E   end;
  if aStr = 'chuqu' then begin
9 Q: v" `$ t  \, F     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
3 x/ @( E  c: {% o     print ('say 你不是吧！想带走修炼武器！');
     exit;
) Y  x( S- E8 p; Y8 ?, r  end;
$ I4 @, a4 R+ c  if WqName = '修炼剑' then begin
; u" v9 [; q5 A3 y) j* {" G     print ('say 你不是吧！想带走修炼武器！');
     exit;
3 |7 E8 L+ g% ]( T0 a& V  end;
  if WqName = '修炼刀' then begin
: K  }7 Q& I* Z     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
' o. N( \. K9 c# f& U  if WqName = '修炼斧' then begin
  c# i% d3 V- e7 V; H- p) n* B. W     print ('say 你不是吧！想带走修炼武器！');
0 B  G- M( h" n  W: D, A$ E6 F     exit;
1 Q8 q" ]: Q" _3 u, ]: l7 o, G5 w  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
; p# T- W0 f, l+ H  U' F     exit;
3 b% }+ L; y& _. F" p  end;
# ?3 K" ]7 E4 j$ Z      for MapId := 0 to 200 do
/ a2 ?* u* r9 G1 N$ O      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
2 h1 d- Q! W0 }' u; x% B; N       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
6 H8 R7 V0 t) _6 J+ n8 G; l% S      end;
# O3 O! E! x, H4 K5 o2 r& R" K      print ('getsenderitem 修练枪:1');//出去就全部删除物品
" g+ a$ G1 y" C* K) J1 c7 R* Z$ F      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
" d( U, o) H* l9 N& W' E; K3 ]      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
/ K+ S8 I+ X- T/ S% r/ `! T, ^' T    exit;
7 }, K1 W1 R9 X4 s   end;
* h/ ^8 g1 s/ K+ Zend;
end.