一个很好的会员服务脚本

unit 会员服务;
3 A/ |+ S, g1 p9 ^- C
inte**ce
# @2 O  K. q; K- o1 g, u) C
7 I* k3 s% T- Kfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
) I9 H2 w# v# [% L, D  j0 C: ^function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
* Y6 L+ j! J& b1 }# R0 l1 e! |procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
1 }/ M. k6 ?6 Q- U& e* ufunction  StrToInt (astr: string): integer;
; s. K* F9 q& Zfunction  IntToStr (aInt: integer): string;
procedure exit;
% X6 s! k& s+ H0 B2 G
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

, D" W, h9 X+ g3 }implementation
procedure OnLeftClick (aStr : String);
5 Q8 C6 H: F% h$ F( ]+ ?+ N6 Q- Nvar
   Str : String;
6 b3 q8 K" H6 m   Race : Integer;
begin
7 S9 N( ]' @$ J; p   Str := callfunc ('getsenderrace');
% h- B! |; l" z: G( ~   Race := StrToInt (Str);
0 q- R: t% s0 o* Z   if Race = 1 then begin
+ H' R5 K8 g& f+ q      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
5 p+ {5 V% X' z- y, ~( n   end;
end;
* U" z+ S3 `# h' ~. Nprocedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
: l# [$ `- Z# x. L$ f6 G7 }         iCount, MapID : Integer;
& w# k* [( a% h# ]' Qbegin
! \% ]: |8 m' S+ M   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
) V2 M5 b. p2 U5 J' @  h   end;
4 b8 M0 Y3 s8 i5 S   if aStr = 'xuanzhe' then begin
" i1 G) U6 A3 p6 ^* O      Str := 'showwindow .\help\会员服务1.txt 0';
8 M$ H% ]- Z9 S2 h. S3 U      print (Str);
( m4 b+ f  w& i+ e- J9 {/ m  W      exit;
; \, W/ ]: e$ ?" i$ q! o  X   end;
& W* Y. C& ~( a6 i; j1 A  if aStr = 'lingqu' then begin
6 }9 P: }4 v: @  s# N8 G2 Y   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
      exit;
    end;
! ]8 }; H! I9 g      Str := callfunc ('checkenoughspace 5');
. U8 w, s& V9 {* [      if Str = 'false' then begin
; ]) }; \! g+ k) f1 s         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
5 u& y8 l- w! j7 f7 O/ u. W6 Z       begin
9 `7 m% |. L% O3 Q4 B$ L       MapNo := IntToStr (MapID);
( W4 x" _" N: e5 w       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
% K+ e( B: J% }       Str := Str + Name;
' H3 }7 b+ v* M. i       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
. }* z% Q2 m3 {8 w) {       print (str);
      end;
, F1 N; q5 h  r: f7 O2 m    print ('putsendermagicitem 修练枪:1 @会员服务 4');
1 s/ l/ \0 a! B, N, v# Q& q    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
3 E( o( v& [( y$ r: R9 Y2 g    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
- c! s$ Q( A/ J7 w5 w* A    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
# k' s2 f( F: T2 }8 W   end;
: @) s/ R( ~: [& M: e' {. K/ P" W  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
* z( u$ `. z+ L$ M" s2 r2 ?& G  end;
( }1 H- N" l$ I6 l1 G, Z  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
' H/ Z: P* j( K' l# `' ~: M7 D: s; G/ U     print ('say 你不是吧！想带走修炼武器！');
* {) ^3 S/ q. o+ T& G     exit;
+ x3 F9 E- F( @4 H9 v8 G  end;
9 s5 a9 ^% G, c* W4 Q4 d  if WqName = '修炼斧' then begin
/ Q1 X# \+ v( m5 b     print ('say 你不是吧！想带走修炼武器！');
2 Y9 t$ P9 \% `' Q     exit;
8 |9 C; O, A, @/ J  E- t  end;
; V; t& m& q" x$ F- Q  if WqName = '修炼拳套' then begin
, \8 N; o1 f- i3 T  a2 P     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
1 }& w' R3 ~) P" `; K! b      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
& |# g3 O9 a1 u$ S& L9 v       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
1 o! ?1 H( f* a# N0 n      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
8 _* d, a! I; H4 \8 [* Q      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
; ^& T& R/ p- F& M" e: Z; G) K      Str := 'movespace ' + Name;
, p( M( C: `  K- ]5 A      Str := Str + ' user 1 500 500';
      print (Str);
! k$ q" P& P: o    exit;
3 k, q) B& x7 P+ [9 n# _% b; W7 i   end;
1 A5 {: [- y1 D0 Tend;
. S* z7 t/ u. A) d7 c+ w! \8 q3 X& uend.

0 b: m8 x; M$ x: v6 i