一个很好的会员服务脚本

unit 会员服务;
1 t+ H# O5 q! T+ o- s" L  q. k2 L
inte**ce
( q! u7 y9 r& q# a/ Z0 n
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;
% R" K) I; B  o' q& q% }: zprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
+ D; A- U# i& qfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
+ Z6 o! W2 }: l5 m- |" H: H0 Kprocedure exit;
% W2 Y/ K4 p. ]2 p: m% B
( W( R: D* S9 q/ A# V5 U6 p4 K& d3 zprocedure OnLeftClick (aStr : String);
! f1 q* P! M- z7 @- ]procedure OnGetResult (aStr : String);

implementation
6 v4 }4 q* Q0 \4 u% M# t, Qprocedure OnLeftClick (aStr : String);
6 y! g! [8 E$ i/ I5 d8 O/ Xvar
   Str : String;
+ @- h0 k1 m( h9 B, f2 Q  _) ?0 @   Race : Integer;
/ q9 L! P1 Q9 O1 G1 `$ e1 ~begin
   Str := callfunc ('getsenderrace');
0 c! e  s7 n2 w3 i! @   Race := StrToInt (Str);
# r7 U/ B6 d3 C0 Z   if Race = 1 then begin
% s9 e3 H: ^. i: u. |- M      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
0 G! b1 \, ^+ Q9 P, \      exit;
  a9 |% c2 d6 m   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
4 u7 i' p8 C  c$ E, X, B! \begin
: U2 b& [; s7 S: U5 b/ A  a   Name := callfunc ('getsendername');
/ d* P& ~( v. f" ^8 j   if aStr = 'close' then begin
      exit;
   end;
0 X( M1 c' D1 j( G   if aStr = 'xuanzhe' then begin
  j. q- p7 n. o$ W4 q( r      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
8 X2 A4 T" \1 @1 x2 S, r      exit;
6 ~( S3 K1 Z1 }, b3 d   end;
4 G7 s# Q/ e" `7 h  if aStr = 'lingqu' then begin
' H! M, B+ k/ n# _1 f6 x( R" h   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
* E! e0 W' N" c9 g& f   if Str = 'false' then begin
. r2 b# m! J, |      print ('say 你不是会员吧');
      exit;
" c6 i. X, \8 e& s. F- s/ ]    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
, c, S  R$ `; l* p$ L4 P         print ('say 物品栏已满需要5个空格!');
         exit;
! ~; o' k9 S# u3 e3 Z, H& L      end;
, Y0 W( c2 F5 V) U* s       for MapId := 0 to 200 do
       begin
: x) |9 d0 R! k  v* W% `       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
( w$ E. V* ~8 i3 |4 s$ _       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
# T9 V$ U5 ]" A& J      end;
' G. L% H0 X! @4 y7 F) Y    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
9 }, J5 u% d3 P3 `1 N* X* r    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
/ L8 i7 T! R$ e! Y- ~    exit;
+ T/ H' [+ f* m3 h& L   end;
7 n2 M0 D" b# \  if aStr = 'chuqu' then begin
# B/ j5 D  J: i- B/ B) Z  }     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
6 n2 a% J0 i- _4 D! j9 }0 Y! f  if WqName = '修炼枪' then begin
4 y! C9 Y7 a2 N# E/ R2 Q     print ('say 你不是吧！想带走修炼武器！');
: V9 I5 Q: U( G0 f     exit;
" `; {$ E3 r6 a3 g; s6 {% X  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
( u3 `& n. S4 m7 n$ e/ ]     exit;
  end;
  if WqName = '修炼斧' then begin
( e1 l; i+ W; O+ h" T     print ('say 你不是吧！想带走修炼武器！');
     exit;
6 D$ e( `6 v/ z6 I& R  end;
  z4 M! |7 \. u( J7 k  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
; u9 e/ d3 p/ Z+ b2 x0 r     exit;
  S2 m3 t4 ~0 n$ z- e( [  end;
( J% |) N3 m6 z# \/ G4 G      for MapId := 0 to 200 do
- B) Q6 B" S- C& R0 u6 k' h6 A4 i      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
" R/ x3 U' i; _; K" {       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
, E: o3 [, e3 I  X8 F) e4 Q! v& s+ k      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
. p- _, n1 }8 J* V& Z& T% X      print ('getsenderitem 修练斧:1');
  E5 {7 M( q! }      print ('getsenderitem 修练拳套:1');
9 c* E+ a& s+ S# [; U9 m6 n2 ?      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
  k) y" O% W6 j3 q   end;
/ E; {" ~' `# e$ A& G8 Oend;
end.