一个很好的会员服务脚本

unit 会员服务;
' a  D/ o4 n0 s, o
interface

function  GetToken (aStr, aToken, aSep : String) : String;
+ I8 B; B4 z, X0 F* ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
1 D1 k* u. S* B' T$ iprocedure print (aText: string);
function  Random (aScope: integer): integer;
$ d7 x7 `$ R: l: T! w! |/ U% N. Jfunction  Length (aText: string): integer;
/ P6 g3 C# S0 y$ s' Oprocedure Inc (aInt: integer);
6 g% i( V& o! z) K7 A9 uprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
1 F% \/ ^4 P9 V9 r# r- V+ A0 Nfunction  IntToStr (aInt: integer): string;
& X+ j  P3 l3 F4 Oprocedure exit;
% `, [# k  i$ x
procedure OnLeftClick (aStr : String);
. w, u! y! o' P9 |- {procedure OnGetResult (aStr : String);
- E; u0 ]& S2 d# j" q$ S" n' _- m  n
, |; T* M! S) q- ~& m, Cimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
; Q) h. U, N) v+ z0 O7 g: K3 a) x   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
0 M: m; V8 l% h( l   Race := StrToInt (Str);
4 F4 H: u( ?6 h: Q& _   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
% l  X3 k+ c8 l+ G      print (Str);
      exit;
   end;
) o7 y4 v6 L7 A/ v4 eend;
procedure OnGetResult (aStr : String);
8 q1 ?7 {$ B8 Q( N0 Yvar
9 K4 l8 \7 a, P- N$ N2 k      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
; x3 k1 h! c$ O& B: j" Fbegin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
  }9 F7 s9 V- C( }   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
  ~- ?% h9 {. y# P$ i- q7 q9 n      exit;
( f8 v. @& {! o   end;
* d6 `0 [4 U' `" t- B# x3 \- r  t  if aStr = 'lingqu' then begin
0 R! f% ~( o. U- u( _   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
; `1 g; n2 m/ `5 O# F2 ~      exit;
3 [7 t) b$ g8 A; s    end;
" R/ Q5 _- M, r( {      Str := callfunc ('checkenoughspace 5');
* w  j/ U$ R' G  A7 M  R      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
3 z  E3 D% a6 b6 \6 i7 V/ [* \       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
* H% l0 k- C5 l# m* J8 q       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
3 O5 ^3 g0 K, Z       Str := Str + '【会员系统】:『';
% R5 S6 L" u  I  L" `; V       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
) D2 ]7 C6 b" S% @* _) d      end;
! F! ~6 c7 U: M- {4 Z. Q4 a3 D    print ('putsendermagicitem 修练枪:1 @会员服务 4');
" z) k" A! F1 Z  b$ h    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
2 z1 Q1 `3 e1 M4 k; H% f  K    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
# b. N7 A4 p$ x' T5 K1 `    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
" X8 k, F6 U/ k& W$ K     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
& O; N3 V  A) _& F5 D- w' Z" `$ {     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 b2 |+ c8 o* y& |" t/ I( t+ O) n, f  end;
; K' @4 f8 G0 Y  if WqName = '修炼剑' then begin
2 F5 ^) z% o' V) s( N/ e     print ('say 你不是吧！想带走修炼武器！');
     exit;
0 M- [6 Q1 r" m! }  |5 e3 Y, a3 z; p  end;
2 b/ a' f0 R6 ?3 \  if WqName = '修炼刀' then begin
4 f  N" X" p- p6 O# R9 \( D     print ('say 你不是吧！想带走修炼武器！');
! w7 W  o, |; ?3 E# S, I* c     exit;
2 T5 f0 _4 m0 h, Z  end;
  if WqName = '修炼斧' then begin
! e9 N. S: M& h' O8 p, X/ o     print ('say 你不是吧！想带走修炼武器！');
5 t  G( O' |8 J+ W3 \/ {( `     exit;
  end;
3 t3 k8 g3 C- U4 Y) @  if WqName = '修炼拳套' then begin
/ m/ J, T6 L# i: p7 G) b; X* T5 x) m     print ('say 你不是吧！想带走修炼武器！');
, t. T) k: C, D4 f& ~) ]     exit;
* g# O8 g2 G. R! j9 Y  end;
3 u; r6 |' t' q      for MapId := 0 to 200 do
      begin
( ~: {, a% y6 E: q8 _8 w7 n5 m+ F      MapNo := IntToStr (MapID);
( Y5 g) G! H) a" ^$ y       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
% B8 s9 _/ B4 w, L, w+ ]' h$ {       Str := Str + Name;
1 m6 P8 V; q1 I- q( o  u       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
3 p0 y4 a8 c5 f5 _! o$ a3 g       print (str);
2 I$ h' @: n  }. f      end;
8 M) f2 p5 q" n' X' l      print ('getsenderitem 修练枪:1');//出去就全部删除物品
3 E: {7 Y2 O1 x" i' D( h' X9 w      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
  w# G7 b& ^' L      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
end;
  Q" h4 y0 ]6 i) @end.

8 T0 M9 K. y: A9 U8 f) m* @