一个很好的会员服务脚本

unit 会员服务;
9 X, ]: [! T6 Z  z+ W/ l+ Q% s
; t# ^( d' m) x: p! Q) }interface

8 G  P& r/ L& V3 Y! n" i6 r7 dfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
" ?: ?2 ^% E  x" C: a0 D4 kprocedure print (aText: string);
# H& }5 m% F) R4 _/ T6 y" h! P! w* kfunction  Random (aScope: integer): integer;
& V% W: L# M" j1 F) J/ qfunction  Length (aText: string): integer;
8 T0 O: s! P! R7 |) ~procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

. u, y1 L% A; U- _procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
) L0 m4 O# z& p/ H5 O* d
  J/ d) J; x# d) Y9 P% D0 M% y; Rimplementation
procedure OnLeftClick (aStr : String);
: E+ A7 N. d3 M1 a9 K  Evar
' y8 F$ c0 V* f  k) M3 n+ x+ Y   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
3 c. S' W0 I  f* Q; i" G  v      exit;
9 d% y/ `. y+ g1 _, N) P   end;
# A8 I! G  |+ D3 zend;
procedure OnGetResult (aStr : String);
var
3 k( M& s; c3 |      Str, Name, MapNo, WqName : String;
7 G6 c' ?6 ^8 U9 D. L         iCount, MapID : Integer;
begin
  M8 J1 z' d4 R   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
9 i4 K+ H% D: I  v+ ]  if aStr = 'lingqu' then begin
9 J( i: u& o- I* z; K* B3 V% n# {$ C   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
. [$ e9 w/ k: r0 O: I5 d   if Str = 'false' then begin
0 E2 p5 ]7 O& x, r( m8 Z! g" |4 s      print ('say 你不是会员吧');
      exit;
    end;
. h4 X. x; E$ p, A3 O/ G7 ^      Str := callfunc ('checkenoughspace 5');
0 _; M; q3 U9 s      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
6 P, ~# T4 G" o9 t9 |) x& ^) ~2 |      end;
  W; d0 g# M+ N: t+ a  [       for MapId := 0 to 200 do
       begin
  T" ^* C! m9 t( H7 k. ?       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
2 l7 T: P0 j' `+ S& M       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
  \6 A. W; {7 |9 t% T2 d       Str := Str + Name;
7 Q1 N; k- ~2 L' R$ j0 ]! e       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
. y, C" ]# X7 Q/ j       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
$ ~8 x! o6 p; ^* R    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
) F1 s/ ]- o2 j5 e    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
5 G# V. p$ I; n" Z4 H) q) L9 F2 B0 V    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
" I& B" Y* G5 R8 x2 B+ l0 e+ h! k* S    print (Str);      
    exit;
   end;
0 i. l/ }% ^8 V: p) j; A  if aStr = 'chuqu' then begin
/ I; l" Q: ^$ @+ z$ p     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
" ~6 K# M5 B; q$ W5 X  I  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
( f/ y& a) v( c+ w# r! D$ ]  end;
+ X" e; ^& u- \  j' t' K; n  if WqName = '修炼剑' then begin
4 p$ Y) X3 m( ~* C5 k     print ('say 你不是吧！想带走修炼武器！');
     exit;
$ d3 R4 _  r! A# M1 p$ O1 ^  end;
  if WqName = '修炼刀' then begin
( s. d: T8 `# O) O" a     print ('say 你不是吧！想带走修炼武器！');
) F& V: ^: S8 Q% g* H% _1 g     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
) N- y" O. f7 X      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
3 R4 ~% t0 T/ p9 Z; x       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
8 j$ X7 v; R& z       Str := Str + '【会员系统】:『';
       Str := Str + Name;
& i* l) |0 U5 J& a       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
' L7 o8 Z2 M& c; D1 x; K% o       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
4 Q  R9 Q2 a$ k2 b! c+ P! U3 h      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
3 J- b: c( N) t; F' |7 Z% P      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
& K* _: X+ S0 Y, R/ P      Str := Str + ' user 1 500 500';
; R) J# b. a) j/ m      print (Str);
    exit;
   end;
( ~8 b1 E. r$ Z" _end;
end.