一个很好的会员服务脚本

unit 会员服务;

interface
) a7 T. @5 y4 p- p! W7 t; R
function  GetToken (aStr, aToken, aSep : String) : String;
  n7 |2 ~4 k; a4 ~7 ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
- |, m! Z' H- q( d- k& eprocedure print (aText: string);
8 U9 i& _! H: R/ [9 Tfunction  Random (aScope: integer): integer;
/ K' ~( G+ q2 d6 R+ Gfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
% M9 A- I7 S( R! a9 vfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
1 H3 A4 Z* f4 n& y, W) d
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
& p0 h4 o9 C" G% H
0 `" m+ r. O( n5 e4 D* simplementation
procedure OnLeftClick (aStr : String);
var
: j) J+ \7 Z% c* D. Q0 ?8 T0 `" W   Str : String;
1 K+ i! E! q/ O7 c   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
( T6 W* F9 j/ Z4 ^9 u' I% G   Race := StrToInt (Str);
   if Race = 1 then begin
$ Y6 W+ u. }' _0 Y* k7 t7 N6 }1 h      Str := 'showwindow .\help\会员服务.txt 0';
+ Z2 f" s' V3 A1 c/ \6 l8 B, G      print (Str);
      exit;
   end;
end;
+ p. b, W4 \( M4 y+ k( Rprocedure OnGetResult (aStr : String);
5 C2 {8 q; e, ^  d) Evar
1 J8 A) G/ D3 J4 L- b: R" t      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
2 m; b2 b+ k) [. Jbegin
8 w6 K$ E8 ?: M& h" m' f8 R1 s   Name := callfunc ('getsendername');
$ o; g2 b- @  k9 [2 V$ O   if aStr = 'close' then begin
* V* Z$ |( L# C% L$ h5 P+ H3 |& S      exit;
   end;
. Y  Z1 ]( A% A% j   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
3 F! q3 d; u8 Y* r/ j# h      exit;
   end;
, I5 Y7 t" s& S6 k% C, n7 n: K  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
$ x3 ^6 ^5 g" I; }& S4 z   if Str = 'false' then begin
) N' E, T8 |# _% h' o+ ^+ |      print ('say 你不是会员吧');
4 v, n+ |' ~7 k& ~9 v& g      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
" i& _; L4 O$ d. X% J         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
" W! k. {/ Z5 q. Y+ n& c# {       begin
4 q4 }3 `! Y6 {) z, E4 Z       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
5 K- c- ?6 n' o) W. i+ o       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
! Y3 R# Q7 d$ Q+ G+ ^& ^      end;
5 F! ?& D" U0 X5 ]# E3 a! _    print ('putsendermagicitem 修练枪:1 @会员服务 4');
) r/ V8 K0 Q* q% `$ s" Z. K' @    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
  ~0 o  ?0 p2 M* I9 U2 s! w" T, [    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
  [8 o: s- w9 o    print (Str);      
    exit;
  ?# G! I% V% n% L) t, j   end;
  if aStr = 'chuqu' then begin
; r; z2 F$ x$ Z; d- {! t; Z$ [     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
! s6 L7 X) A) y' [% `# X  if WqName = '修炼枪' then begin
- r/ v6 g; O) [0 e% i     print ('say 你不是吧！想带走修炼武器！');
7 b6 |1 i% f0 f! }; H1 K1 @& d5 l     exit;
  end;
  if WqName = '修炼剑' then begin
# y- `; a% d  F, P     print ('say 你不是吧！想带走修炼武器！');
     exit;
$ u1 G0 S4 A. `5 A) I! c+ Q  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
5 A5 v- j* E% \0 Z, K" ^8 t  if WqName = '修炼斧' then begin
5 l& p5 X; j# a( ^1 L, P4 S; f! G- C     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
" V1 p$ Z2 T+ P6 Z2 l0 H/ H1 I# m$ b9 |      begin
" m& _/ p5 r: n' V9 Y      MapNo := IntToStr (MapID);
- W" q  o- q  q+ |       str := 'sendnoticemsgformapuser ' + MapNo;
6 K$ E$ w$ |' i8 y* v$ G. R+ i       Str := Str + ' ';
$ p& e' \7 o: g) K, o; _- |       Str := Str + '【会员系统】:『';
4 t% J" u( Y1 k% G' G       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
7 s0 B. _; S8 j. J. C       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
1 ~  O; a5 V  N6 H# _      print ('getsenderitem 修练剑:1');
) u$ c+ {4 F, ?" p$ A, C! C      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
) C8 m- H) K4 v- J6 z7 [& u    exit;
9 }9 n" D* \+ v$ Y8 o. _   end;
5 v6 j+ A! @7 v- _# w/ Qend;
end.

) ~* n3 C5 T" o6 b. t5 t+ [