一个很好的会员服务脚本

unit 会员服务;
" R( A* i2 Z3 R$ b5 b5 c
0 e* S# s1 E0 j, h8 O' [inte**ce

5 f# r: A8 k4 ~% Z: x# b7 v- g, pfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
4 w) |- V: v3 [* xfunction  callfunc (aText: string): string;
- X5 I8 i* t4 \' |procedure print (aText: string);
# P" C" E# I# c& @$ G# ifunction  Random (aScope: integer): integer;
& M' ~, k/ ?. r7 zfunction  Length (aText: string): integer;
; g( L1 A6 v0 ]7 T- Sprocedure Inc (aInt: integer);
. M) r" n& @! |5 Q& R2 Zprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
$ [, S+ V0 W* _7 k, _   Str : String;
   Race : Integer;
) K. Y+ ^& M1 G8 G& j1 v3 T& {begin
9 F0 u1 _  ?+ a$ ^9 @' G6 c   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
- O; Q, k1 Y( R6 f0 n. U/ N! n$ H   if Race = 1 then begin
( }% V  z( d# `' C4 s* T' ^      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
   end;
; g% a3 k0 D, a: R, bend;
$ L; W8 B7 h/ ]" u/ B7 f1 Uprocedure OnGetResult (aStr : String);
. ?* ]$ y$ w1 Jvar
0 A' V4 H7 ]5 q2 O' A; i      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
! M* i8 o0 m# K) B* K4 _      exit;
" E; C' C) a& N% |( E0 }   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
- O$ M* f2 E3 R; r- R( A      print ('say 你不是会员吧');
      exit;
: O3 O7 Y9 [6 S% j1 e' {) v  s    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
& s6 G4 v7 D7 L+ I' v4 [: A         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
5 C/ M+ P0 G+ S3 }* Y       for MapId := 0 to 200 do
       begin
. k! Q( H( _& F2 e. C/ \+ k" H       MapNo := IntToStr (MapID);
9 h: l0 A4 e3 ^$ y4 A, d4 f2 ]       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
, o6 V+ T* y: r# D" J! S       Str := Str + Name;
& n/ j2 q; n- B) C) x0 o- s+ `       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
. P! X: T/ w; Q0 t$ K2 a6 ~    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
9 n; R3 Z- Q, e* F8 x! `& d    print (Str);      
3 J$ y5 z" D% R7 b; Q    exit;
& m' F$ n- }+ ~7 d* c7 z( h5 q1 M   end;
  if aStr = 'chuqu' then begin
7 D  ?( J+ b* x     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
: h! }: Q" V) O" U, S% P  S     print ('say 你不是吧！想带走修炼武器！');
. W8 A6 N! G) c0 o4 E     exit;
  end;
  if WqName = '修炼剑' then begin
2 B' k+ ?; K" D$ H6 h6 ]9 P, ?     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
" }! i( H2 P, P) Y0 `- f2 s     print ('say 你不是吧！想带走修炼武器！');
     exit;
4 h7 V1 k0 C- b9 o  end;
0 R9 v' s3 o- r0 ~/ W  if WqName = '修炼斧' then begin
1 v. n+ E' w7 w0 y# E5 u     print ('say 你不是吧！想带走修炼武器！');
     exit;
( ]) P1 B2 z% W: Q  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
; i/ f/ N1 \4 N. C/ [     exit;
! x( C. p1 D; W5 I" ?  end;
      for MapId := 0 to 200 do
      begin
2 C& H2 n9 L! C/ e- u- ?& i      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
& X7 B6 j4 L$ t0 V$ f6 n       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
1 z3 Z% F6 u$ c* D       print (str);
6 E7 `6 J# u' Z5 ]0 |0 g1 Q# J3 s( `% ?      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
* b9 T& U$ e+ f      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
; t( @! s8 I% D% F, _& {      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
( P4 t3 O( `4 L4 n% ~      print (Str);
    exit;
   end;
% s; S" _4 O# Q& ~4 I4 gend;
$ g2 i; G" B& \& uend.

6 b; J+ N* D8 i5 U9 }0 b2 |