一个很好的会员服务脚本

unit 会员服务;

interface
% j& ^8 C4 O5 g7 t- @
7 V; w7 _% b' p9 e4 f; lfunction  GetToken (aStr, aToken, aSep : String) : String;
# R9 }% B2 `; u9 c5 ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
! M! Z) ^" z6 G) Z+ P8 i1 Tfunction  callfunc (aText: string): string;
procedure print (aText: string);
! \& @1 k7 X6 C# `" o" nfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
7 i3 V* ]3 r; i) c, D: tprocedure Inc (aInt: integer);
: t1 W, r/ s" k6 dprocedure Dec (aInt: integer);
( Y: x3 S2 e0 X3 }' Z) ]function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
; _. @/ H5 s) D
procedure OnLeftClick (aStr : String);
; i5 ~/ n* G" |9 ?  J; X' |0 Dprocedure OnGetResult (aStr : String);
  G! J( G+ ~  Q# r
, D* `6 y# t5 zimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
) |8 \6 \& N0 |4 E$ W) o/ d) R9 Gbegin
. \! S$ K- C8 Z' C" M( m4 s. T   Str := callfunc ('getsenderrace');
2 l9 q4 V4 `$ ~$ S3 ~   Race := StrToInt (Str);
5 Q2 v/ A5 c9 ]6 R+ S9 M4 N: B/ w   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
* K8 J3 _% B4 K0 Y  m% ^4 l   end;
. \. Q" M, ?( [6 Fend;
procedure OnGetResult (aStr : String);
var
2 @! P& w+ n5 W7 z  e      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
2 x! p5 a$ _2 C. ^  ?% r6 ^& p   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
1 m0 c& \. O& ?* j2 ?6 m2 F      exit;
   end;
$ {4 z6 [, U; Z& [  F$ k   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
8 R9 b' |1 h5 E% U" H+ `  if aStr = 'lingqu' then begin
0 n9 J: W4 N& X- S6 ^5 `   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
7 s3 Z  }; e1 ~# V   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
; B+ Q/ l# |& Q. j/ B      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
. q- J$ I( a& j  J# D8 ?3 T2 E         exit;
6 F) I8 ~' O: N      end;
8 c5 \+ ^0 K% B, Q* U! Y2 W' O5 B       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
" `; D( ^7 N9 T9 Q: \: `       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
: Z) P/ S; \( x- k       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
# p% E8 o1 d. d    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
. T2 A1 Q, H; }  if aStr = 'chuqu' then begin
3 o+ }5 V: _" }# q( R8 u( x: t     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
% Q% U9 I2 I5 a  end;
. p* L- h8 A- k) \- G  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
0 w3 `4 F" m7 s4 R) z3 k! u     exit;
9 L* q8 F3 [0 q  end;
8 t0 W- V2 _2 v5 v) j9 \( Q& V7 U8 h  if WqName = '修炼刀' then begin
* @; F# s  @4 Q     print ('say 你不是吧！想带走修炼武器！');
     exit;
" }% t" \2 T' d4 y, \  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
+ B3 s6 ^. i, F% C, Q0 }     exit;
& ]0 |2 x' r8 I0 ?2 D. v; v, i: \: V  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
* C' t  D, g5 ]* i5 u     exit;
  end;
      for MapId := 0 to 200 do
9 i/ l1 ?7 D$ y: T" u3 s      begin
      MapNo := IntToStr (MapID);
5 u# B- M; o+ E0 H( T       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
  K1 I" s0 D: M0 T" a' Z: A       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
( ]3 v. N' P% z       print (str);
3 z# U- N& A- i/ N( [& P& u! _      end;
5 }: C+ ?$ r3 J. P! T8 q      print ('getsenderitem 修练枪:1');//出去就全部删除物品
# C% c( r% `5 b* m1 `! D      print ('getsenderitem 修练刀:1');
( D* }9 H9 Y: [0 t) C      print ('getsenderitem 修练剑:1');
# \+ o" D( w2 r" v7 L      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
2 A- P3 g% U+ r& D0 E$ v; l   end;
# a% h* {5 u* S% k& o+ i4 e; L. c- }' Vend;
: ^2 K1 C4 f7 \$ K2 |end.

( i/ ]! e& P5 [; X* j; ~