一个很好的会员服务脚本

unit 会员服务;

inte**ce

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
; f$ w) \: D( p; W9 b" sfunction  callfunc (aText: string): string;
procedure print (aText: string);
6 H/ W8 [: }0 r( ^. \  ifunction  Random (aScope: integer): integer;
. n' a& g0 H2 I1 l" k. Yfunction  Length (aText: string): integer;
& B& ?0 M% `3 `6 {) X6 T7 T0 Gprocedure Inc (aInt: integer);
3 H+ c4 J2 G* Z6 h( V. I1 xprocedure Dec (aInt: integer);
2 v& g$ R5 m  L4 H8 ]/ ?function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
# l! p% }& n" x; }2 fprocedure OnGetResult (aStr : String);

0 B5 ?+ k9 [1 C+ W) O7 Aimplementation
procedure OnLeftClick (aStr : String);
/ ]: }+ z7 m: k1 {% Qvar
   Str : String;
   Race : Integer;
7 m4 b, \$ ^. P% L$ y9 U9 ebegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
7 a& ^/ L+ l) z   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
$ j8 T# X8 ?2 r4 u+ @( k, @      print (Str);
" v: e* E" v0 F% b* t( X7 z$ c      exit;
   end;
$ C" ~: c* h% w% i) t  U1 E4 C8 Eend;
procedure OnGetResult (aStr : String);
, w6 B9 \. r* Z3 Qvar
4 o  Y+ `6 E1 w3 b: G& r* @  h      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
' W1 f, }1 S) A8 o& q/ V6 \' ubegin
) j! @3 L* M$ Q! z7 g" j' k2 A# G   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
- V- B9 O; o( V   end;
   if aStr = 'xuanzhe' then begin
; e; {% Z" n! R      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
0 x  B8 r9 a2 B: e/ q$ U4 j   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
: A  s, D- c) P  I) R9 c6 C8 \   if Str = 'false' then begin
' N) o) E3 d, R2 ]& j- R/ {      print ('say 你不是会员吧');
      exit;
    end;
4 @0 ^# D" n1 C3 l5 p" t      Str := callfunc ('checkenoughspace 5');
' j6 g% s& W' F* O+ h0 C( P      if Str = 'false' then begin
* q5 {3 b, N& o6 V9 H# Q* s9 X. @         print ('say 物品栏已满需要5个空格!');
; e/ R3 U9 Z6 ~8 a- I9 @+ A8 r         exit;
      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
# v2 f; y* y, R% Y       str := 'sendnoticemsgformapuser ' + MapNo;
3 T* \* Z, d# ?+ z1 F0 M       Str := Str + ' ';
: y% _) e; ?" y* v       Str := Str + '【会员系统】:『';
# @+ q3 q# B6 w       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
8 ]/ `7 R# F* B       print (str);
3 O# [- q/ g; y  g      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
; Z8 n: s# \, X: j  I    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
( N  i3 v* ?/ K4 d+ ^& H# S    print (Str);      
    exit;
   end;
1 p% _! j! [1 _/ U! q" `9 @  s% }  if aStr = 'chuqu' then begin
8 l. S  G. @$ I& q+ [' Q8 J     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
, {/ Q8 L0 B7 r2 Y  if WqName = '修炼枪' then begin
1 _3 `5 q0 |! i2 O8 x: H     print ('say 你不是吧！想带走修炼武器！');
     exit;
- w; b$ u6 R& d# }  end;
( k0 y# S/ E1 S- \6 @  if WqName = '修炼剑' then begin
, }9 H! f9 K4 Q/ {     print ('say 你不是吧！想带走修炼武器！');
" L; }5 x( q* F' @) w' T1 L     exit;
  end;
3 C- |) ]* l* v) H  if WqName = '修炼刀' then begin
, @. q5 g( v5 |  J     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
2 Y% {, g; d7 H9 `( ~     exit;
7 i* R9 n: y: ^2 \! `/ P. M  L  end;
  if WqName = '修炼拳套' then begin
* h: t6 M; B$ ?8 b5 ^  c" g; }, w     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
# D7 m- }" k% e/ {  ~* Z4 s; F      for MapId := 0 to 200 do
5 U) c( F7 r$ r) s7 n0 t      begin
, R* b; z5 i. `* z" p      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
6 ~2 R) D2 d2 C6 }# p5 g       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
( a* v, s7 t2 G. ]) u; A1 f2 f; t       print (str);
: F$ e; d- {- w$ G% t7 x      end;
# T2 C9 |  k! v% e' C      print ('getsenderitem 修练枪:1');//出去就全部删除物品
& i4 y+ I* L9 I      print ('getsenderitem 修练刀:1');
  _3 A& r0 d, k      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
: W, V# o9 v5 m9 e: W      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
+ \, {6 Z/ X7 ?   end;
end;
% y' }' z: f3 y6 Z/ H% u. wend.

0 v3 G6 o1 h) R7 J0 o; j' c