一个很好的会员服务脚本

unit 会员服务;

inte**ce

$ [6 c8 l5 K2 pfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
2 w* g6 x; ~) bfunction  callfunc (aText: string): string;
- D8 X& P5 Z) hprocedure print (aText: string);
# X8 `" r6 {  Nfunction  Random (aScope: integer): integer;
, ~$ O& R! t2 x+ j8 ~4 M$ }+ Zfunction  Length (aText: string): integer;
. i: [" g4 ^0 z& Qprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
; K! d  }3 S/ a( B9 S/ L* v0 F- S; D# }function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
+ O/ s. @- _0 }4 i# L  {& a/ D& _# M
procedure OnLeftClick (aStr : String);
4 d3 p3 C! @/ ^4 X5 y* uprocedure OnGetResult (aStr : String);
9 |1 \- v) z9 z' w
2 E6 M4 @+ _7 u' N! ^- t8 n( Qimplementation
procedure OnLeftClick (aStr : String);
# i. A& |' [( O+ B! G8 evar
   Str : String;
0 \* b; \& N9 m- g0 Y. m  T   Race : Integer;
begin
+ x- i2 n, Q& o$ v( L; r' x   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
5 I- x! F) T. S   if Race = 1 then begin
- y  z! S; N9 C. D& }      Str := 'showwindow .\help\会员服务.txt 0';
7 E, W$ Q; K" x$ s, O      print (Str);
  V. x+ M5 K7 ?3 f: t      exit;
" \- ?* i3 ~$ L4 a$ h   end;
( M! ?, {0 m+ _& g. eend;
procedure OnGetResult (aStr : String);
var
) ^& @* l1 ]! o# `0 N: L& C/ L      Str, Name, MapNo, WqName : String;
# C7 J  t! B3 K) l7 l5 W         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
, |5 c8 \0 [9 O, ~5 G' F   end;
   if aStr = 'xuanzhe' then begin
6 V, e( k# s# a, b5 v- T4 u* `      Str := 'showwindow .\help\会员服务1.txt 0';
+ E; I: C- B( i1 {7 u* \      print (Str);
3 d2 a1 p$ x" @      exit;
: z" `+ M+ F$ i0 C8 |- J- W; J/ F& {5 B   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
0 j; ^$ D2 x: F& a- }" f2 t4 j      exit;
' \5 j2 P4 _8 T3 [! n! `    end;
      Str := callfunc ('checkenoughspace 5');
+ `2 V9 T. N  G# [8 R: a      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
$ r8 _& W8 P2 W0 h+ u5 D         exit;
& U$ ]& C% t! v$ @6 q      end;
       for MapId := 0 to 200 do
; K# ^$ Q  y$ d8 v( X1 ?       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
) s' C0 t, c" Z9 o1 u) Q9 R! G       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
1 I* B3 d* Y/ _7 p1 A       Str := Str + Name;
, n" w# Y5 d. I% S2 D. C       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
& ]8 e6 S6 \1 E# J      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
3 b0 i7 `& {/ e' m+ V9 o# b    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
, [' D: h/ F7 W$ |. b( l     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
; E! e) n) |7 V- M8 `0 L5 u+ ?' e     print ('say 你不是吧！想带走修炼武器！');
4 Z; K$ [- k; c: ?7 [* B8 |% n- C     exit;
  end;
+ U$ K& z- \9 m6 m& d" K, Z  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
! o- |" U7 i3 o$ [3 `  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
% k' ^) Y2 q+ g# T     exit;
$ o8 O- W) C, c  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
% Y% f% q" u* ~     exit;
8 P, M# p5 u# D, o/ d  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
. w" j: x3 }( B) @7 ~: [) [     exit;
  end;
4 S9 o; V8 [  V6 l6 m      for MapId := 0 to 200 do
* @* |: l1 q3 I% s0 h7 M/ k, U5 S      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
( c' d) w0 ^" r       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
* T+ Z8 I. o8 d) b* L# O1 A       Str := Str + Name;
/ F* o6 p- J- V: h' l       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
# U% X4 @; d0 ?% w      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
/ I: B# G" \- U/ ?, M3 ?      print ('getsenderitem 修练刀:1');
5 [8 Y% `: m9 T* l! |, R      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
% |% s; a9 ?+ _      print ('getsenderitem 修练拳套:1');
' \8 O0 s6 T5 l4 V9 ?0 i      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
  c! a2 w, T/ v8 |' J    exit;
   end;
; k2 v+ d) W+ ?. o# O1 qend;
; y" m9 F8 m  x' J' R" W) wend.