一个很好的会员服务脚本

unit 会员服务;
3 l$ w, z. }. Q2 a% U" \5 Z
interface

function  GetToken (aStr, aToken, aSep : String) : String;
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;
7 d9 w% V" C. |/ r+ Mprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
; Q% N) ^( S. O4 Ffunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
" T0 E6 K8 J, P. cprocedure OnGetResult (aStr : String);

& c9 D# E) Q6 N2 ?; v) d( J; x" Jimplementation
2 p3 C1 Y4 t' g, o' I) K- Aprocedure OnLeftClick (aStr : String);
( ]* G8 u, N/ x* K! Q" n, y  kvar
   Str : String;
   Race : Integer;
begin
' {; d# Z7 F7 E  w5 C; Q8 `   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
& J5 e, s6 y+ D. `) u' \0 \$ R   if Race = 1 then begin
8 @! s5 p$ j2 h9 T      Str := 'showwindow .\help\会员服务.txt 0';
( r1 `( s0 S* b0 O4 V      print (Str);
      exit;
7 g' g- Q8 l5 W) K( t- W$ j   end;
end;
9 ^% ?& C9 C) O8 ?procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
1 Q7 C2 D- r  u   if aStr = 'close' then begin
      exit;
9 j* S7 t# Q; X, D   end;
' ?# z  A' q) k0 j$ X+ V# `0 i1 w   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
) N. V) V% p8 e8 [$ ~* l      exit;
3 A, B$ ~! I; B7 t8 N& d6 `   end;
) z" X# U7 ]% N5 D* K6 r9 z' `0 t. Z  if aStr = 'lingqu' then begin
* \3 M/ G; g6 H. V. a   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
4 W( M  K! o' Z: U      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
2 ?1 l. d: i' `/ z      if Str = 'false' then begin
$ |+ a& s9 W  {2 T- }0 X- V8 ]         print ('say 物品栏已满需要5个空格!');
0 i, G% _: t  Z8 b, ]9 Z         exit;
  d7 ?. Z# Y; Z0 d8 m& `' d& \      end;
) q9 @" S/ E' l' f" z       for MapId := 0 to 200 do
       begin
( I7 S% y, \3 i4 [0 L- v0 C8 [       MapNo := IntToStr (MapID);
7 g: I* P& w5 r+ s  M       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
  f1 Y, U& I1 `% x6 v# V) C( L# o       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
2 r, P% p/ T# D/ L% U       print (str);
9 w3 P* ~* v# H  M, F- e* I2 Y      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
. k. G& P. x. U0 m: Q    print ('putsendermagicitem 修练剑:1 @会员服务 4');
  x9 j; o% _. y6 v    print ('putsendermagicitem 修练斧:1 @会员服务 4');
( ]/ C7 p' X& d" c7 I    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
- W, E3 f+ C$ j1 X, L+ T    print (Str);      
  k. R9 K9 h/ T) |' D    exit;
8 O3 b: e1 ~0 s3 K9 b9 o   end;
  if aStr = 'chuqu' then begin
* e9 A( R  [7 a$ X! f     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
3 S% ]( }% h) y; ~3 L# y& L     print ('say 你不是吧！想带走修炼武器！');
     exit;
9 j. p' I! _! q) j: c# |  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
) u7 O8 g# r  B4 ~/ ?$ O9 y  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
/ f0 N" F  t) A1 f8 y+ y+ j  if WqName = '修炼拳套' then begin
! `2 F3 S  o4 J* C     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
5 I. r  B  L( y, k7 i6 S" r8 t9 B      begin
      MapNo := IntToStr (MapID);
4 y* }8 i) _6 |& s) a3 W       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
6 F  K7 U( b4 M0 b       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
# G" j: f( e5 l, w3 W9 f. M4 K      print ('getsenderitem 修练枪:1');//出去就全部删除物品
9 \+ u1 j! M0 k0 q* q      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
% O# s! q. s$ H( u% l( p$ ?      print ('getsenderitem 修练拳套:1');
( x* _' M/ Y) D( q" T      print (str);
2 r; {- ~0 Z; ~& P, B      Str := 'movespace ' + Name;
: G0 l# t& N6 w9 R      Str := Str + ' user 1 500 500';
8 l4 g* S( \2 o1 w1 {* k      print (Str);
5 j" o8 N& L: z& c7 A8 O    exit;
   end;
end;
end.

9 {; \& p) }' ^3 C* i  p' w" C" h