一个很好的会员服务脚本

unit 会员服务;
3 D/ k4 k8 O/ s7 H& u) Q2 }5 t) U
0 n) J3 J. M2 M7 Qinte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
" ?- f0 U6 c, Z; Q  T/ X8 i+ v6 _function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
. d* n9 ?/ i% s9 Wprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
  ]# ]: D' w% x& M' P3 efunction  IntToStr (aInt: integer): string;
procedure exit;
% i- m& f6 w3 T' n: L* d( v
( z8 e! Q8 f5 b, iprocedure OnLeftClick (aStr : String);
: E, z/ Q3 T# _3 y7 Mprocedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
5 m# B. [2 p5 p0 K/ W* V   Str : String;
2 g" p" j. x" Y  K2 ]7 u9 o* h- A; L. ]   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
$ I1 m  u! f" P, q   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
9 b" @7 e/ H& d  R4 V- q   end;
0 C$ }' I! Z  {0 V4 M) [end;
procedure OnGetResult (aStr : String);
var
) V5 a; n; p" q. c; l9 E, n  X  Y+ Y      Str, Name, MapNo, WqName : String;
* C$ R5 l. J4 f         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
/ B! m; |# _9 _4 _      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
, |8 D% P9 G9 E" j' {      print (Str);
# Q2 ]  C, z7 j% R0 o0 g5 E5 p0 F. \5 z      exit;
   end;
  if aStr = 'lingqu' then begin
* @2 }( g: ]" d' b8 P9 P+ F4 ^   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
& v( c* {6 D  n* ]; U% }$ U. m      print ('say 你不是会员吧');
      exit;
    end;
4 ^+ D4 |; A4 E      Str := callfunc ('checkenoughspace 5');
8 U' _2 M& J) p# e      if Str = 'false' then begin
. N* W! j3 |( i. }         print ('say 物品栏已满需要5个空格!');
0 H$ c& j5 ~3 H3 C# o5 Z* a+ j         exit;
1 ?& t7 K$ w' s      end;
       for MapId := 0 to 200 do
1 _) m$ s" k6 D2 }       begin
       MapNo := IntToStr (MapID);
" \/ m! W. L6 D+ T( B. g       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
. l" P7 W  j& V( \: p  ]6 l  O0 S* c       Str := Str + '【会员系统】:『';
       Str := Str + Name;
% I3 K4 V1 j8 n5 R3 e       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
; w5 O+ P+ _! a2 ~/ ?* d& e       print (str);
  h/ {6 y/ t! |  V      end;
+ N( }5 a6 V' ^    print ('putsendermagicitem 修练枪:1 @会员服务 4');
6 x! m1 Y/ ]# z1 w' H. \0 I    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
& ]) y- V8 u. F/ I  [* t   end;
% r+ a$ P; `6 \# N4 r4 G2 U; f  if aStr = 'chuqu' then begin
! Z! j5 N: h1 m3 E     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
# x' D" i% f# l3 n7 K/ M  U  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
$ _. n$ @$ Y( ~1 e4 H, e7 T     exit;
' P/ C) V4 d( N+ j  end;
2 u1 h8 ?* b, P7 `  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
% Q/ O, B- M, M" _     exit;
; D- ?6 K; ]; R  end;
8 r9 J/ k  e4 I3 [: A8 B4 I  if WqName = '修炼拳套' then begin
1 r3 R+ [3 H2 x- K: X8 Y  U     print ('say 你不是吧！想带走修炼武器！');
7 m& L' n( Q1 \- w; O     exit;
( m8 D6 G6 S* i; h  end;
7 g1 n, H/ V# p8 H6 _; }      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
' x9 l$ P8 ]" O# C0 X+ Z       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
$ }) d/ A2 F/ A5 i+ s5 o       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
) Z6 a0 d0 ]) T# y, K) i4 U# x       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
% u! i' K2 R# K# P# W( e      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
8 H4 b3 U  o; w      Str := Str + ' user 1 500 500';
* c& w# D% a1 e( H; I      print (Str);
* T1 `5 ?0 q0 Q1 v; H+ h    exit;
   end;
. p8 @! h2 f# E* O: R! ^end;
end.

/ b8 I, W. q4 S$ g& F