一个很好的会员服务脚本

unit 会员服务;
! K$ r# v7 \2 Q- k  D
4 `1 ^. W% M7 R: x' a. rinte**ce
& A4 [+ q% l) d0 Z0 o. B( H
, X- X4 G6 m' \; Z* R, \/ s) Hfunction  GetToken (aStr, aToken, aSep : String) : String;
. {: S9 I" X- ~! M. j0 L  `1 a/ N; J5 f. hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
3 |$ w7 o. T4 a3 b( p8 ?function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
) l# d# f$ F6 ?+ N. g' H" i1 x( @procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
, e- d2 G( L2 U8 Afunction  StrToInt (astr: string): integer;
/ i4 R3 R& q1 |( Xfunction  IntToStr (aInt: integer): string;
, f3 s" N9 l2 @; O) ~! w, Gprocedure exit;

( m1 g' A1 c3 {# V/ }procedure OnLeftClick (aStr : String);
8 R5 u2 F. U6 ]procedure OnGetResult (aStr : String);
1 A7 J) K4 O& F0 S( B* _' e
4 A  J( k$ K# U2 H2 v) l; V3 d( Eimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
7 J# A; w; v8 R   Race : Integer;
begin
; T) m: ~, J- Q  t. E   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
1 ~: X& V. K# n& J0 f/ a      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
. n. B' o9 P4 l$ L4 d6 H9 S   end;
: c; \3 j3 u) D7 \5 t4 b& [- _. ~end;
+ `, y3 H4 ~# D6 r8 c, M" y" Rprocedure OnGetResult (aStr : String);
var
& T. a/ t. D/ c) U2 f) p) d      Str, Name, MapNo, WqName : String;
" B; b& F% h6 f& M6 Z, X) e         iCount, MapID : Integer;
3 y- c4 b; m. M2 bbegin
7 Y' F1 [8 X/ {1 ?  F( y   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
3 c. g6 A2 Y: c5 Y3 u5 I: e# m7 T8 ~   if aStr = 'xuanzhe' then begin
2 `$ l8 f7 J; c      Str := 'showwindow .\help\会员服务1.txt 0';
' w9 X. s8 `  L7 V, J5 j      print (Str);
7 N: K& W0 G  S/ \* P      exit;
   end;
  if aStr = 'lingqu' then begin
% Y# `# ^' e0 t! d: I/ V  t3 |   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
; R) n  z; {1 `7 |   if Str = 'false' then begin
4 a% q0 O4 l" |1 [      print ('say 你不是会员吧');
      exit;
6 l/ J% H* u) n  ~) V* b+ G    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
, Z$ g3 ?, q5 W2 @3 Z) t0 B         print ('say 物品栏已满需要5个空格!');
         exit;
( K, _: p4 u4 g* D  \      end;
' R2 D$ o0 K& V' X0 u       for MapId := 0 to 200 do
       begin
" g1 q+ S6 h7 W: P       MapNo := IntToStr (MapID);
5 h0 z: j5 H/ x" s3 ^$ G       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
9 d" l! p8 P# [9 S5 o( R  l7 w       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
# L9 g/ a$ }  z% C       print (str);
      end;
" f! A/ b: p% s+ `& o    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
6 }: C# {1 M! v5 H$ L) C9 `    print ('putsendermagicitem 修练剑:1 @会员服务 4');
+ {; R0 W7 i9 a    print ('putsendermagicitem 修练斧:1 @会员服务 4');
- v( q$ [1 |+ d5 B4 t  V    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
2 O5 n8 Q8 z+ Z  A    print (Str);      
    exit;
   end;
. O  b( \2 L4 ]/ q8 {$ A2 W  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
/ T( t" t( |6 `1 q9 K  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
. U& E1 Y' W8 s  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
  e: b- z% J  `, X0 w- o     exit;
  end;
1 @: Q& p+ X2 @9 l  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 L1 N6 |: ^" s* f1 u  X     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
- G2 D5 f, f" |2 t( b5 h$ L( M  end;
# g/ G) j4 g& P0 i      for MapId := 0 to 200 do
      begin
, A% @# s- `; X- Y, x! _  ]      MapNo := IntToStr (MapID);
: n3 v* @5 ]! K( N( S" z       str := 'sendnoticemsgformapuser ' + MapNo;
) ~6 \! N; u/ r# [/ ?' X* ?       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
6 e  |7 l3 [6 R8 b0 g$ t       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
3 [7 x7 i4 P" d1 V# e7 Q      end;
; C+ S& ~# `+ Z      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
+ }$ N8 q5 G3 U0 W! @      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
9 P- B( V+ k' Q% p. W1 h      print (Str);
: f" E' u% _+ v    exit;
6 w- P" a6 ?  N1 G. {/ \8 g   end;
end;
end.

/ @3 a  N1 b. k1 x' D/ h  d