一个很好的会员服务脚本

unit 会员服务;

* ^  K) U0 d% E" `6 l4 z5 {% pinterface

3 I7 R4 A9 {4 H6 Y; rfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ Z/ Q4 v% Z7 v9 ^, o* {; Xprocedure print (aText: string);
function  Random (aScope: integer): integer;
$ f$ s, v8 e4 Y. F" _+ Ofunction  Length (aText: string): integer;
8 d9 Z! M  l% r; H7 N4 M( r# ?9 pprocedure Inc (aInt: integer);
( t& c8 ?2 I( |: c+ Oprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: ~5 l9 V* a( L" U- I  w% K) Ffunction  IntToStr (aInt: integer): string;
procedure exit;
" e* R+ [! H3 U0 j
; H1 z( b0 I; q9 J& Pprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
8 L: V# Z5 j" e7 F
3 b2 t; R' ?, Z& J( kimplementation
procedure OnLeftClick (aStr : String);
5 E3 h: \, R6 n9 K: [$ }) z' Avar
; `1 Z  p* A' |% g   Str : String;
   Race : Integer;
3 ]! ^' c3 n0 O& _9 I) {begin
   Str := callfunc ('getsenderrace');
- V6 G& h" G- _5 X3 D   Race := StrToInt (Str);
   if Race = 1 then begin
& d) F5 W3 c7 u, A      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
, _- J1 E: q+ w3 w: G. B      exit;
   end;
$ W- p. y7 A2 U( E2 ^end;
procedure OnGetResult (aStr : String);
4 Q8 ]8 q- Q. j: `. v1 wvar
      Str, Name, MapNo, WqName : String;
/ `7 @1 v3 K' u/ H# L! \+ E         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
6 _& F2 m' A# X5 p      exit;
   end;
   if aStr = 'xuanzhe' then begin
( `" b& f* g- ~# @7 e# `2 @& k      Str := 'showwindow .\help\会员服务1.txt 0';
- Y3 w3 H1 L* {7 h1 t      print (Str);
% J6 ~: e2 A( x& S      exit;
3 H/ O3 w& {) C  W4 N   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
- E9 ~' P7 Q# V, S3 A      print ('say 你不是会员吧');
      exit;
; \* C) j2 C1 s4 |    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
0 s4 ~3 N1 X3 d/ ?' g3 t) d         exit;
      end;
) d! X* ^+ n; j( L  V       for MapId := 0 to 200 do
, [( \) u0 c  a4 r5 @       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
4 f% T+ a' H+ W       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
/ @) m( N; @  p/ e$ V      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
% g  h% Q2 ?8 _    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
% ]( w2 F1 t% p/ A$ d* l    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
6 \  R+ Y% F' I2 j7 E) {+ @  z/ P    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
& H6 J- a5 K5 q  c& i; b    exit;
% o6 y% L1 N* `* Y' d- M6 `   end;
  if aStr = 'chuqu' then begin
$ g0 k$ K* x0 t& C3 o* {5 _     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
3 f4 }9 B9 f- Y4 T8 I# w     exit;
9 |/ [6 u+ |4 c3 \9 D9 _1 v  end;
# {# a* {, S$ a7 B( Z  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
2 T! K  Z, L' B  t' B     exit;
  end;
! R8 n: J. ]7 l: F2 P8 p  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
$ |; y; T; B& F' r+ \+ |' B3 m     exit;
  end;
  i3 ]5 U$ A6 h  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
" C+ e/ M0 v" Y* Q, ]     print ('say 你不是吧！想带走修炼武器！');
     exit;
; k6 e" J5 N2 U! u4 t6 h  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
: @+ b( U6 R+ \: t' x       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
" _# Y3 H( P( i' }5 J       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
: f! a; t  Y* e. W6 f; M      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
* x! @6 a; i* @0 c4 i6 N4 I# {  h      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
) o2 }  i, X; l) C" s      print ('getsenderitem 修练拳套:1');
; f4 d0 i. I! t      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
- h2 O1 g% H* ^   end;
( @" m7 g- `( L8 d$ \# E7 H* Dend;
1 @, B& G& p0 i7 Oend.