一个很好的会员服务脚本

unit 会员服务;

inte**ce

9 D4 w& z+ Q" {5 _function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
% z  p6 f" V( Vfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
3 E6 w5 C  ^  n( V' Pfunction  Length (aText: string): integer;
1 R# i3 e1 w# N' yprocedure Inc (aInt: integer);
$ c+ S3 Q; J& \7 |1 lprocedure Dec (aInt: integer);
$ n7 U/ _- I2 e( `function  StrToInt (astr: string): integer;
( V# X9 i' k6 ~/ X5 Rfunction  IntToStr (aInt: integer): string;
& o- C$ J  I: m! Qprocedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

0 ~* ^# u9 p( |: @$ Timplementation
6 n. o1 ]  d; v1 d$ _procedure OnLeftClick (aStr : String);
+ y2 t+ g' ~( n; ]' `var
. h+ S" q* G; m  L, l8 d& X) a   Str : String;
   Race : Integer;
5 x2 Y/ _3 X* Abegin
   Str := callfunc ('getsenderrace');
1 |) t, _1 A1 X# L- Y4 }   Race := StrToInt (Str);
- V" s# U7 C5 N5 @   if Race = 1 then begin
9 h! L! J$ a) C; y( Q* T      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
" K$ A! v% n" gend;
; h; o* \3 a. p& d- t, Aprocedure OnGetResult (aStr : String);
var
' Y+ e3 j/ s  g      Str, Name, MapNo, WqName : String;
! y2 O1 C* v4 A. |! O         iCount, MapID : Integer;
6 }3 I; r- T+ B/ _begin
  c8 [" S& w. ?2 J" ~8 |   Name := callfunc ('getsendername');
0 `6 _6 Z( t* _7 Q- T   if aStr = 'close' then begin
: k7 g- @  j8 w' [' _1 Y      exit;
( S6 ~- h1 [1 H; k5 H* g   end;
   if aStr = 'xuanzhe' then begin
5 n- \  l. z% J- V, s      Str := 'showwindow .\help\会员服务1.txt 0';
1 w# J- ^0 _- {8 L      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
; J; `0 N- {* x# `   if Str = 'false' then begin
2 p$ ^( [# I9 {1 V% R      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
- m7 z8 B) H& z/ e; V      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
/ d# V! R. d* G         exit;
      end;
( v8 Q- b1 X0 G1 X8 I, P) l- h: R       for MapId := 0 to 200 do
       begin
0 H3 ^) W" i6 e; N2 w       MapNo := IntToStr (MapID);
6 y# T  g+ X3 P: ?  p1 |       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
; e. q6 G) o, z7 R4 T       Str := Str + '【会员系统】:『';
       Str := Str + Name;
$ S+ U" f; I4 i0 I* b       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
  u. C- ^1 p: Y7 C9 a       print (str);
9 O6 P7 D: A3 V* V* m      end;
8 N# z6 x) n2 Z    print ('putsendermagicitem 修练枪:1 @会员服务 4');
( e& y9 z! ^$ z* ~4 v    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
3 V5 c# j( T4 J+ m! s5 Y& l3 w' k    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
. x0 U0 c: c( T0 y' b# I3 A% b7 l0 o    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
. m/ |, e' I- G/ R7 q    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
1 z/ G! U- f+ ]  if WqName = '修炼剑' then begin
" z" \* h# c# Q, E" u7 Q! o% G8 A     print ('say 你不是吧！想带走修炼武器！');
0 V2 Q) Q  H/ A/ _5 h. O$ J     exit;
  end;
# ?+ s0 W: V/ I  }+ ?- }  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 Y% h! I: O  M; a; K" k5 P  end;
3 V4 R  m/ d, [+ Z! T4 X, g  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
0 d# F7 Y" L' d2 L) X     exit;
3 E' y* A$ D+ D, Z8 n& ~6 F  end;
  if WqName = '修炼拳套' then begin
. l$ {4 t, {4 g     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
, d  v! v2 c7 l8 c. u      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
% P* }3 Y4 r1 Z3 |# E1 h       Str := Str + Name;
1 p' I/ @) _) F       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
: p+ r& p2 t' k. t, Y+ i) E      Str := 'movespace ' + Name;
% w" j* T7 A$ G1 l! D- w      Str := Str + ' user 1 500 500';
3 L2 V  A, D3 z$ A8 U      print (Str);
    exit;
+ o, a% Y3 l  ?# I9 P- i( F' N   end;
; `+ k* ?& `' I: u! D$ Qend;
end.