一个很好的会员服务脚本

unit 会员服务;

interface
2 p6 a/ c) g) L7 j
  O8 U+ v6 ^1 l; ~5 Wfunction  GetToken (aStr, aToken, aSep : String) : String;
+ D+ }( b/ `* V2 _function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
' @  k: r6 b! s6 @  z3 ~/ Mprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
3 i0 h( e/ V, Rfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
6 V& {- ?% N7 r* h4 M; m- O0 p; Gprocedure exit;
0 u* }; v: @* x4 C7 z# M* \
procedure OnLeftClick (aStr : String);
( J# E+ l" Z6 X, {procedure OnGetResult (aStr : String);

# Q0 i! A* l, J& f+ Dimplementation
; x* S2 @5 S9 w+ w- G8 Nprocedure OnLeftClick (aStr : String);
$ P$ {* S( z2 \8 z5 U6 A  Vvar
" b( X4 H" W9 A! q* X* |8 {  _   Str : String;
  y* [' C- R' O; l- q   Race : Integer;
begin
: f0 S; K6 g! N* m- |; \6 K9 [* L   Str := callfunc ('getsenderrace');
6 X. j1 l: o: T9 j   Race := StrToInt (Str);
   if Race = 1 then begin
. f, h( b  W2 i! v; \      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
2 `1 F1 v( r! }6 N/ z6 R! L2 E& s   end;
end;
procedure OnGetResult (aStr : String);
7 o: S" R, }- s" Vvar
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
$ z3 g$ F( \/ @$ @8 x* h/ mbegin
   Name := callfunc ('getsendername');
; h  q" z6 I2 Q# }% E   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
0 T6 {# l4 G8 l% f3 g+ Q" z      Str := 'showwindow .\help\会员服务1.txt 0';
3 ~' e0 @# W1 ?% ^2 w$ n* E      print (Str);
      exit;
2 ^2 M1 C, @0 c5 |+ o$ L   end;
/ w9 p' `. K  `# N, D4 U6 F  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
1 F( l2 g' C% v6 I  A; K" r/ T      print ('say 你不是会员吧');
& n" L! I1 k. I5 t5 r! h( V, ~  H      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
$ z, ~( X6 x5 x: g# I& X         exit;
      end;
# |- q, n; E0 `: W% q/ ?& |/ z: t1 Y       for MapId := 0 to 200 do
) e, Y. m5 E' X5 V2 H/ Z       begin
       MapNo := IntToStr (MapID);
* R! E% O1 j# T: S       str := 'sendnoticemsgformapuser ' + MapNo;
% e5 h2 c; A0 p* [, d       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
% a- L0 |' h  e) g  t- {* x       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
2 [4 Z9 @! v! a  ^$ B       print (str);
$ Q4 g+ J* i% ^      end;
8 }2 A9 \4 ~- i. M9 f    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
6 P; `' s. \' x4 _( K: _   end;
) r" j' ?" W+ Z( l: E& e; b  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
0 V/ G% k# w, f" z8 {. M  if WqName = '修炼枪' then begin
3 |$ L3 h. I! G( @; P. e1 Z" k     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
6 P9 Z% k, O$ Y, U" y. x  F# z/ [  u  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
* }  |. y; I1 G# Q2 O. l6 @  end;
9 B6 I) G% u; r, G  if WqName = '修炼斧' then begin
( ^4 w( ]0 f, R+ t- P     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
! w. d) X  X  p3 f9 W+ I+ u     print ('say 你不是吧！想带走修炼武器！');
     exit;
) b( t  n& N4 p2 d, h  D% `8 R  end;
! ?) M. M3 U3 a% X/ f      for MapId := 0 to 200 do
. T2 L& d* M) U' q4 Y9 W      begin
6 n! i2 D" h2 ]( l  z4 S0 \8 r8 v      MapNo := IntToStr (MapID);
5 u1 d+ Q  \! m9 r       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
' ~2 ]( X" G  t/ ^, z9 C0 b' M       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
0 j4 ]2 E( d# u' E3 n+ a9 n: n      end;
$ _2 P  T$ f: l8 \2 G6 a      print ('getsenderitem 修练枪:1');//出去就全部删除物品
3 U5 E5 n3 I' {) M  ]9 {( d      print ('getsenderitem 修练刀:1');
0 e* D, {. W& p6 @* O$ N5 M" z      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
! Y* f$ a+ T; G% ^; r6 `  K      print ('getsenderitem 修练拳套:1');
8 L2 B1 p: X7 Q# L: K0 e7 K0 Z      print (str);
5 D6 |* z7 p9 M- L8 T" E: G      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
      print (Str);
  W3 r" I+ j& r, P9 G    exit;
$ ^6 n/ ~+ r2 @" D   end;
end;
1 F9 M9 j! R  |' A! D  h% Wend.

5 D1 R6 f! |1 v1 G% V# B# d