一个很好的会员服务脚本

unit 会员服务;

- A5 r/ I2 M6 v! ginterface
4 `2 I) d. d6 P2 i8 @. x  q% H
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
& d. y4 T* y/ rfunction  callfunc (aText: string): string;
; S: p3 M& X9 h3 s8 S. p7 r* {procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
9 r5 a$ c: @! S( S: }procedure Inc (aInt: integer);
1 h3 c. x7 o( r# s4 e2 ]3 ?procedure Dec (aInt: integer);
4 i6 X% r0 g1 _5 Y7 qfunction  StrToInt (astr: string): integer;
! ~, t, g, @4 jfunction  IntToStr (aInt: integer): string;
procedure exit;
& e" m% B. ^& C7 l! c) r# o# N
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
* V- e. ^6 K6 }# E7 X& S% H/ aprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
8 L' a5 V  z8 n* c3 s4 qbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
- S3 d, b) S) I' L% U& [      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
% Q& h- z$ l. ~   end;
end;
procedure OnGetResult (aStr : String);
var
, j* o* a* h% x# [9 w& h# n      Str, Name, MapNo, WqName : String;
0 B: A2 y: X- ]5 D" A; y2 i         iCount, MapID : Integer;
; r5 ]# Y5 X3 a! Q! [begin
   Name := callfunc ('getsendername');
) V6 G& s8 l* [( D   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
" n8 d: [/ S2 X9 N# i      print (Str);
4 R0 M8 s3 ^: p5 h      exit;
   end;
  P7 f: Q* V( c1 ~$ Y3 W9 B  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
9 e& d& }  f" [1 u6 f   if Str = 'false' then begin
      print ('say 你不是会员吧');
- k( _: F2 U  L8 h7 e( V: E      exit;
5 E+ R# I! {" ]) q& W; ?& A1 ?  l: f$ X$ E    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
( Y) O6 C; d8 f% C7 o! |3 ?         print ('say 物品栏已满需要5个空格!');
7 @" p5 f  u$ W) c5 ]# M" u6 r         exit;
      end;
5 B5 e% m1 ]" ]  E       for MapId := 0 to 200 do
       begin
1 g2 r& `3 M# B" G       MapNo := IntToStr (MapID);
2 a2 \, _% H' l* R       str := 'sendnoticemsgformapuser ' + MapNo;
% b" h; F3 @' m6 L, G8 O       Str := Str + ' ';
7 B$ z) a3 O1 _) t       Str := Str + '【会员系统】:『';
: I) T( ~6 F$ |! k- W" S0 F       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
% U0 ?  w4 z: p) U      end;
! h- k- d" M/ L6 p3 r" Z    print ('putsendermagicitem 修练枪:1 @会员服务 4');
0 g1 @) [/ e  A! v: `# x    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
7 u) [6 q4 V# S: `' N4 v    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
% [* u1 y6 u# D% m    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
: `8 n$ P9 j% c, v, C    print (Str);      
    exit;
   end;
& `1 q% V3 l( C3 ?# o5 h* p5 c% R  if aStr = 'chuqu' then begin
: D6 Y+ N$ x) E- s" s9 y     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
/ a7 \: \7 I4 c( O/ V     print ('say 你不是吧！想带走修炼武器！');
( z! Z6 B  \: y! F+ C! A     exit;
. q6 h7 b  w7 h3 h# C  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
+ Z; x0 k  m6 a& W- t  N" Q- f7 N  if WqName = '修炼刀' then begin
5 B; N( a$ \% Z7 f6 i. u3 }     print ('say 你不是吧！想带走修炼武器！');
     exit;
% F' z, u( }, y) i( i3 O/ w- p4 o* q  end;
/ ?6 r" B/ @) `7 r4 l5 |% H6 j  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 a) I; u7 c$ P( b     exit;
  end;
3 \  d& W1 C9 l/ I+ T7 y  if WqName = '修炼拳套' then begin
/ N6 [1 L0 E. z4 O. Y) }     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
- @9 _; o/ G" |4 e! h0 `      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
  h0 ]$ o& j8 w3 w0 O3 H; [) r       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
2 n0 w5 q' O5 ]+ |2 z) ^1 G, J       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
; G' K. v0 K% Z' j& b7 C3 t8 X       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
3 u% P2 u+ A. O( k      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
' D/ Z: e* r$ {- D      print (Str);
1 [% X6 {" y* \; w- y' l3 @' t    exit;
( U# }1 K4 y+ z( w; e   end;
end;
2 b& e1 |) E7 H* @4 wend.