一个很好的会员服务脚本

unit 会员服务;
0 ?8 V3 c( t/ B: q/ ~  L; a
8 o3 ^4 {' J% W3 N' Yinterface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
7 ~/ V7 ^( }* o" |6 [function  callfunc (aText: string): string;
procedure print (aText: string);
& a4 Z/ s  i  a1 b& Ffunction  Random (aScope: integer): integer;
1 b8 x4 K0 `3 n# Lfunction  Length (aText: string): integer;
7 C8 l4 {  r$ t  B  E7 o1 {procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
* k/ Y" b* \( C6 y0 sfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
8 N; c, |, h# W9 Rprocedure OnGetResult (aStr : String);
) r% w1 t1 F' {
6 [/ R1 S# p2 [9 dimplementation
procedure OnLeftClick (aStr : String);
var
. ^( V" i$ p7 p# O( q. o& @   Str : String;
3 t- {8 N& e$ {4 @$ i% l6 K   Race : Integer;
begin
8 U+ y* d8 m  f, Z" Y" a   Str := callfunc ('getsenderrace');
, ~6 g1 {* N4 p$ q- U   Race := StrToInt (Str);
   if Race = 1 then begin
3 Y, n. f1 ]: }  U+ t9 M; G% [      Str := 'showwindow .\help\会员服务.txt 0';
3 b) M3 O$ }; X8 ?$ R      print (Str);
. E( l8 ?5 G# r% B( G& F7 X1 k( M( ^      exit;
6 E0 B% q4 q$ L7 G, Q) N   end;
% m+ R7 G+ K" Z/ wend;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
% i1 B3 v( F& W# l3 Q! Y% i         iCount, MapID : Integer;
- t4 r# s, i% h5 D# ~6 g+ ?! [begin
2 k/ e, C4 c( k. N( j0 Z   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
/ z7 D6 j8 A  a$ J      Str := 'showwindow .\help\会员服务1.txt 0';
5 d5 G3 L3 p0 N0 h      print (Str);
+ t; I' y. j4 b9 ^' k5 v      exit;
3 o- `+ ?% k& |7 T, l4 M   end;
  if aStr = 'lingqu' then begin
3 M; F5 n$ B7 y: j   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
: J. f. O( P8 ^8 V* H/ Y    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
; M+ u3 F: g. r& O         print ('say 物品栏已满需要5个空格!');
         exit;
9 C% r  E/ a$ U9 ?, C% }( c      end;
9 ~) s! h1 |  J1 C3 U5 r, |       for MapId := 0 to 200 do
       begin
! b: \7 E/ g+ ~/ Y       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
6 g1 x! q2 v; k) c* a, x       Str := Str + ' ';
+ F& N+ s4 }8 x5 p# a8 D: s       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
& r& r5 H) \6 u1 R3 X9 ~       print (str);
      end;
4 ?- |' u, i3 J7 v% u8 O9 ]9 R8 v    print ('putsendermagicitem 修练枪:1 @会员服务 4');
) z# G6 {/ j) H  \0 E    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
3 z2 u0 d9 e! f) _8 |8 H    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
3 b  j) r8 v( k    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
" n& t7 _3 }$ X     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& o( l+ I. G/ r7 C6 T* H  if WqName = '修炼枪' then begin
' f9 I: l: B1 m/ Y     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
( _2 F3 Y2 C6 R4 ?# @  end;
. ]& i& q+ X: w  \$ D" R* ?; a  if WqName = '修炼斧' then begin
, v: j3 @8 W5 b% W! X$ S6 \     print ('say 你不是吧！想带走修炼武器！');
6 v# s5 F8 p+ v) c0 J  f  z     exit;
  end;
  m, u, H% J/ {6 i5 x  O# g  if WqName = '修炼拳套' then begin
6 Y: ?" E" d- I$ c4 ^6 k" `     print ('say 你不是吧！想带走修炼武器！');
0 `8 R7 @% h$ }/ k     exit;
! ?! u* L2 }+ h5 n/ x( K9 D  end;
      for MapId := 0 to 200 do
3 L. [3 T% q& M      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
" h, N1 z: {  X* `: ~' b0 A       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
6 m* {( f: U! s       Str := Str + Name;
% f4 N, y' I" [       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
7 Y+ ~: F/ A3 b& [7 @       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
# y* h( G0 s8 K      print ('getsenderitem 修练刀:1');
# g" L  a" D" _; b7 T      print ('getsenderitem 修练剑:1');
- v4 `: L. f$ d. S* {# Y# G      print ('getsenderitem 修练斧:1');
, f0 N$ O9 L' y/ \- m      print ('getsenderitem 修练拳套:1');
1 ]7 x& W0 t% f, b3 e9 t      print (str);
      Str := 'movespace ' + Name;
1 W$ i) \( q% g      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
: g- L0 G  o2 B5 ^: }2 N   end;
. |- f3 `0 D* r4 s$ T4 Hend;
3 g% W: ]  x0 t+ E- \end.

4 i, C1 Q: d7 ~