一个很好的会员服务脚本

unit 会员服务;

interface
0 J; a. H# w( c$ i( q
function  GetToken (aStr, aToken, aSep : String) : String;
% [- Y  L0 c  K* j9 F$ jfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
6 l& S; i; `% Z5 [  [5 P, ifunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
! a: M' O/ e0 w4 eprocedure exit;
9 c/ ^/ Z( n. P& B: n" M
& K2 [$ u% j( K& [$ [6 ]procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
4 p% D3 [% ~1 _- _: @
$ [) R( t- `" R: N  l# ~0 Wimplementation
9 o8 \, e. q& vprocedure OnLeftClick (aStr : String);
var
4 C5 v  s6 S, u/ k+ s3 o   Str : String;
8 v5 R4 c0 x) v9 ^! @   Race : Integer;
) d6 [# G! N2 s7 Cbegin
/ }) r# Y% v# D( G7 i* q   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
8 S9 F( D7 E7 F4 v9 j4 c   if Race = 1 then begin
0 h$ h) V: s% a, f) i      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
; I7 ^' k  R) l( s! |  h/ T+ b% Z      exit;
   end;
7 u$ ]% v1 G5 X" X' Z* y1 j6 \end;
procedure OnGetResult (aStr : String);
* U! F" }& F' h  R/ M6 I8 Yvar
$ I, p" E' @- v/ {      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
" G) t2 ^6 R- x/ A2 b5 ?$ Dbegin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
' }1 e2 K1 D5 R) _   if aStr = 'xuanzhe' then begin
5 e  l- B+ v. \" |4 e' a9 W1 U      Str := 'showwindow .\help\会员服务1.txt 0';
# t. ]" U3 q8 t( G6 Z  Z+ I. g% u      print (Str);
: v, C/ w# n9 a8 R      exit;
2 `' Y" B5 p; L1 p0 l5 _# e   end;
  if aStr = 'lingqu' then begin
" ]6 I2 d8 ?8 W. D0 g8 C   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
* R: C, j0 S: n   if Str = 'false' then begin
; V$ @; B& ?6 ?. D" `7 b* V2 Y% Y      print ('say 你不是会员吧');
: T% n9 M; O) f      exit;
1 h0 H, E& Z/ h' n    end;
* l) L) J4 S; Y" T      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
: l) B+ X. n+ H: P0 S! w         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
. l3 ]3 ]' H4 C+ `0 G       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
* G8 [& g% O& V6 t- u- ^       Str := Str + '【会员系统】:『';
* N9 W& W- N% u# T5 v' m. \       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
. m- @, I3 z6 U8 W; v  }0 ~: d8 v       print (str);
5 M* K9 l) ~6 W3 S2 }      end;
! R. n: |9 a" F2 Y6 j9 O6 r    print ('putsendermagicitem 修练枪:1 @会员服务 4');
, U. Q- W7 {* T$ N  t! O& s# K/ K    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
" c, v, A* u. F6 f1 n5 L7 x    print (Str);      
& U/ c. P5 b. |2 L    exit;
: v, n6 r$ j  }" |5 B, {1 y   end;
8 D% A. a/ V0 V  if aStr = 'chuqu' then begin
8 j' I2 I, d% P; e" q9 U: v     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
, J' \) v/ u1 d# S# M, r  if WqName = '修炼枪' then begin
; F  Z$ S! _9 ?$ {/ B! ?     print ('say 你不是吧！想带走修炼武器！');
0 ^6 p8 w; g9 @: |8 T     exit;
& K+ a( |  C8 U* d2 v' V0 ?  end;
7 V" e* ^7 @( Q5 A" j  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
: P* f& S( n) Y) |) X, n     exit;
) k9 E: e+ K9 b0 d( W1 d: C  end;
& M5 P+ {' m7 l/ k& `* S1 m. M( U  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
: C+ R# L7 ^+ b- V/ _7 U  end;
; ~2 L0 e2 L8 {  if WqName = '修炼拳套' then begin
( @, ~6 b1 \# U0 q7 I, e     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
( E: |$ Q) n2 L. F% M$ }      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
  R7 ?' D9 z& E" x! r7 m6 f       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
* h# n- z' d% P+ t% u" w6 S8 O7 c0 N      print ('getsenderitem 修练刀:1');
4 T7 ?8 [: z. I6 {5 m# w      print ('getsenderitem 修练剑:1');
- H9 A' G( W* k5 |8 V& O. W      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
+ t0 c# V  x1 r) F3 e$ [( U3 x      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
1 L$ W1 A2 V" ?* q8 I. z  z7 B    exit;
   end;
end;
end.

& l% b# t7 W1 I( U