一个很好的会员服务脚本

unit 会员服务;
; S  O/ Q4 j. r% X
7 w9 {- `9 V! w, Ginterface
3 B& c  q' f6 K
# Y; [8 P  X5 b; G8 B; rfunction  GetToken (aStr, aToken, aSep : String) : String;
( r- _" _6 r7 g) [) f+ ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
* H2 i: M% z7 j/ Q* o& Eprocedure print (aText: string);
" L4 g' A- ]+ Q  dfunction  Random (aScope: integer): integer;
* i# R3 O9 Y' I  K( g' F' s& Wfunction  Length (aText: string): integer;
0 S  a3 k7 s- j4 Fprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
. L& p3 e' B/ c, |. ifunction  StrToInt (astr: string): integer;
5 X  k; n; l: @! _' Ufunction  IntToStr (aInt: integer): string;
procedure exit;
; X- @8 T- q: ]4 z# e+ z+ ?
! W; G- x; L2 y5 Uprocedure OnLeftClick (aStr : String);
- ~% s# s; M. l7 i- Sprocedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
, b9 v6 D& J5 w6 Y1 N5 ^$ y   Str := callfunc ('getsenderrace');
: b1 d! l" J7 y$ L/ x   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
6 v# ]; j% a1 T+ o5 X      print (Str);
      exit;
3 x* C5 s: G& ]   end;
) H+ r* `, r+ r; {. gend;
procedure OnGetResult (aStr : String);
2 T' N% d" Y. r* zvar
2 Z0 q( k1 z+ U2 f& ^- ?      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
- F* }" }* Q4 \0 t% Y( @      exit;
) a! M7 o& l3 w3 R: m# ?! W5 G3 m; B9 Q   end;
   if aStr = 'xuanzhe' then begin
1 V/ ?; p6 k) H$ w' ^, l6 E7 C  D6 I      Str := 'showwindow .\help\会员服务1.txt 0';
0 y' m6 \+ v- W4 g      print (Str);
& x- L6 u: R$ B3 S# o+ u! m      exit;
   end;
  if aStr = 'lingqu' then begin
' n4 Z  T( I! R9 |9 x) i8 T   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
7 t7 i  |  x2 |3 ?0 E   if Str = 'false' then begin
      print ('say 你不是会员吧');
" F1 h& _4 Y) x1 r  {# I9 R      exit;
) [7 \$ p  J0 e1 K" k8 Q' P    end;
% _. S9 H4 @: S# X      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
; y5 U3 |0 D$ R1 ?7 _! j* U      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
$ y/ f! Z/ `( L+ X- ]       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
: m# ~' y: z$ r. H       print (str);
. m0 u& Y) B& V' |" e% r0 C0 G      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
6 y' Z6 V# H$ w* Z4 k4 v8 {% M4 M    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
! x  p) s9 _% n6 C$ k/ T    exit;
5 Q" _6 ~  n3 o2 a4 n   end;
8 B- L& A+ N6 i( B6 m9 I  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
; B0 M1 e; b9 o: F5 m     exit;
3 c4 ]! y5 W& |1 w0 |  end;
  if WqName = '修炼剑' then begin
! l& s2 e/ T: h     print ('say 你不是吧！想带走修炼武器！');
# X# |* z1 k& B     exit;
, |; g, T) F2 u0 E  end;
  if WqName = '修炼刀' then begin
  p. W2 {5 O2 H9 z1 N     print ('say 你不是吧！想带走修炼武器！');
# F5 _5 N3 d* l, O) b% ^: j! \9 _     exit;
/ G1 ^7 ^) O. [, [/ N8 p. q  end;
* e( i' I' |# _- ]% \& W  if WqName = '修炼斧' then begin
5 X3 P) c* |( X! p; N; ^% K     print ('say 你不是吧！想带走修炼武器！');
     exit;
5 U$ k" x0 B) {  x: A& @/ ~  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
$ ]" P1 R; p, d$ g) R6 V: g, y  K  end;
3 d8 r6 g# R9 k      for MapId := 0 to 200 do
9 S6 M# u! U4 }$ M      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
$ @: I: E. H0 ?/ ?       Str := Str + ' ';
7 v) ^! @! R7 Y* Y       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
; x7 N7 \3 K5 n, i       print (str);
( P9 r1 m/ [& w; d: @* t( B  z, U      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
0 S  o6 X9 Z. H      print ('getsenderitem 修练刀:1');
; ^; B6 Y3 t$ ~      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
) l& p: w7 \1 i# ^3 L' g3 t      print ('getsenderitem 修练拳套:1');
      print (str);
6 Z, N) i: T1 g, Z      Str := 'movespace ' + Name;
+ {6 H5 U- x! t3 X( z, N5 U      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
; m) t! K7 B$ n: x/ u6 m   end;
4 T0 k- A3 [: J6 I$ H9 Cend;
end.

- C- H0 k( E  [) q( e( W" i" C