一个很好的会员服务脚本

unit 会员服务;
5 |0 Y8 c7 \9 i# ~+ b
6 r8 C" I% H  x, U& k3 D$ {7 cinterface
' p6 ^* M7 M$ c, O& s' i9 Q& m
$ y3 z0 w7 S, d, N: afunction  GetToken (aStr, aToken, aSep : String) : String;
& m# O+ ?7 ?  U. [3 R& }0 D$ B1 m, dfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 @) N7 C. \3 u& W5 S. a3 v8 Tprocedure print (aText: string);
4 ^$ ]4 z& s' hfunction  Random (aScope: integer): integer;
# B" a4 J6 l& Afunction  Length (aText: string): integer;
6 C: F% w* ?$ k# Cprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
4 I3 y' z0 _, {. v  X' x; ]( ~function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
8 X) N8 U/ U% h4 |" E. k, \procedure exit;
6 R7 k0 H  A6 n! E& S, f  ]; E9 v
/ S4 _" l. F: T7 {4 \; I4 Jprocedure OnLeftClick (aStr : String);
0 `2 x: C3 k0 W6 f/ j; W% {procedure OnGetResult (aStr : String);
% k% G) O8 v9 {5 ]
implementation
5 a$ C8 V3 l1 q0 a; @1 A4 F) p: Mprocedure OnLeftClick (aStr : String);
( \) I8 q/ D0 [7 `0 S: Fvar
+ H+ @2 q+ |& R, q5 T+ s; p   Str : String;
. a. n$ M+ W  K) M* g   Race : Integer;
begin
; x6 D$ l' O. j   Str := callfunc ('getsenderrace');
3 z# T3 {) @7 w+ \% F   Race := StrToInt (Str);
   if Race = 1 then begin
" O8 \+ a0 ?0 d/ [/ Q/ |0 M9 l      Str := 'showwindow .\help\会员服务.txt 0';
6 x2 {, Z7 S' o- g      print (Str);
1 r. G0 Q3 }$ K  p  O% T      exit;
( S* a/ {* x) B' i4 ]   end;
, G: g0 r& ~' V0 e$ ^3 Uend;
9 c* X. [" E" _# e: i$ s# ~procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
: P; E: R1 C+ E7 ^         iCount, MapID : Integer;
) r' U3 H. P2 S# K8 Ebegin
   Name := callfunc ('getsendername');
. d! p1 {) U/ h0 Z! t' V% Z   if aStr = 'close' then begin
  n8 r8 f0 P# s$ p) \      exit;
2 O8 Q5 h" N( y   end;
' i4 {2 X6 d8 l, z   if aStr = 'xuanzhe' then begin
$ J5 _0 T  J  b: @8 T) a. M0 ~1 f9 c      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
( v! R+ D$ D! _3 i2 b   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
* \, |4 X! Q' C2 c      exit;
! V8 h) M" p, g5 t    end;
* `& f, u! l9 f) h6 J      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
' o6 N; P  c6 f* F         print ('say 物品栏已满需要5个空格!');
2 ^2 g) c; [7 ^( Y: W: ^8 a         exit;
$ _4 J) U! Z5 o; D/ G      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
( L0 s# m; {9 Z0 B       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
: `8 x0 |; R  |7 {. t  y! X3 H* Q3 O  _       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
' w7 G( Z6 c: P& e. N* q* o    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
0 j6 \7 L) Y+ _1 a( s7 N: C8 x    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
3 Y) G/ o/ I! i$ E/ f/ i9 k. Q  if WqName = '修炼枪' then begin
8 G* G$ e7 B& H1 q$ A6 D$ }( L. [     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 C) y1 T' _1 x6 X8 G1 E  end;
  if WqName = '修炼剑' then begin
4 l/ {8 b; ^/ d; o, ]& l     print ('say 你不是吧！想带走修炼武器！');
) t0 o8 C- x3 E0 X     exit;
7 I6 ?3 `; b5 |- r' a$ h  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
; E! r% u) c( d' f+ R+ g+ p  end;
2 d. M# }/ n2 E: |% _  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  v  C; {6 M# s6 e. y4 M$ r- p: p* @  end;
. q1 O1 o/ x. W) V1 d( d  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
9 a" j' ?2 z/ F" c7 W1 d9 O  end;
& S* q) G  ?: u! z+ P: G* R4 o' N, b      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
6 U1 M# I# J" A) w& H$ A       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
& c4 \- X- s' ~+ f- N       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
7 O# c3 t) e' L! l3 o1 t# \5 N+ K# E% d       print (str);
2 x/ M6 f$ g: n0 Q4 F1 \( l      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
" {9 l! I& r& y: I$ p      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
$ H, U- ]3 L. a% C      Str := 'movespace ' + Name;
! a! p* u4 Y. B      Str := Str + ' user 1 500 500';
# l6 c6 r5 g& u" M, V' Y, y. K  u3 ?; @      print (Str);
    exit;
   end;
end;
; O2 Z3 @) q6 U; T  A+ Vend.

9 Y0 O& J/ n) C; y0 L