一个很好的会员服务脚本

unit 会员服务;

interface
. \: q; z, I+ U$ G+ j
; }) m8 e$ A# d% V% Dfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
1 B' k+ I  h6 O. f9 g9 ffunction  callfunc (aText: string): string;
procedure print (aText: string);
. H$ m5 s' Y& R8 ~* rfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
( K3 J* H0 |4 I4 |- I5 W1 kfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

: ]& a& Z- Y9 }) h7 f1 }: H, Zprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
. Y1 s" j' z# {% M   Race := StrToInt (Str);
   if Race = 1 then begin
$ W* T& `! n1 |2 P      Str := 'showwindow .\help\会员服务.txt 0';
# m" A5 F0 t) O$ p; m! X      print (Str);
      exit;
% S- ]! N3 L  T# r6 X4 E& I   end;
end;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
6 A2 H; b" u' L   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
( k; }- Y% `% `% @$ Q/ R, b      exit;
   end;
   if aStr = 'xuanzhe' then begin
7 S- a9 L. B+ p8 A% o      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
7 e. i% X) w! a, ?      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
0 e2 H6 k( B3 _' M      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
  }5 ~% |; g0 a3 s9 [0 v. S         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
$ M+ H' @: B9 Y       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
* X3 }# S) y$ I) t0 B5 B7 [: b       Str := Str + '【会员系统】:『';
       Str := Str + Name;
( P: P- L( H! Q( i6 C       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
& J8 v3 ^+ U* x9 L    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
9 v7 h/ T4 I3 \' A    print ('putsendermagicitem 修练剑:1 @会员服务 4');
* T" {: {$ T9 C, @. r2 i  a9 B    print ('putsendermagicitem 修练斧:1 @会员服务 4');
8 U# ^# g3 t) b2 m2 C  G    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
; }1 _. X/ O8 P7 \8 c+ B    print (Str);      
    exit;
   end;
% U" [+ M2 Y1 y' u  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
, ?8 `4 z7 p0 g+ f% e# E6 j- e) ^  if WqName = '修炼枪' then begin
: D) ^8 g7 }4 \3 ?3 D     print ('say 你不是吧！想带走修炼武器！');
1 l, i5 }& k* i: x( {     exit;
5 D- _; V( C1 Z6 }, f  end;
  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
; A% v" O+ g4 w  h     exit;
0 ^3 [% I- X, x8 _" w. a  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
. `- o. k# M% f" l. l4 I9 G$ L  end;
1 Y. v9 @; D, j: @  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
6 {- x- X6 u# \% ~6 F" R  if WqName = '修炼拳套' then begin
3 p: a  M) d8 Z     print ('say 你不是吧！想带走修炼武器！');
     exit;
. q  u; M+ d( g& {8 M* l  end;
6 \# n1 ?: s" Y; d* Y; |      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
9 x! H5 M, }, c0 u" L# g5 \" v# ?       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
. |: s: j6 I2 @, c2 r" n       Str := Str + Name;
& L, c/ s9 D2 t       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
1 e  r" Y0 C0 i; t3 d2 {: {: k! U# M       print (str);
      end;
% ?5 x8 B. R8 n2 |0 `/ a      print ('getsenderitem 修练枪:1');//出去就全部删除物品
! z; E. Y) f  |5 B; m      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
1 x8 P$ |1 ]! |! u1 ~( C. C3 ~- q/ g      print ('getsenderitem 修练斧:1');
7 A3 H0 H- Q5 c3 n2 q. X( V; |      print ('getsenderitem 修练拳套:1');
. ?! Y8 K/ C7 Z; G) s      print (str);
* o9 d: R# T4 d( a      Str := 'movespace ' + Name;
& O3 C1 i* ~7 H5 P: O      Str := Str + ' user 1 500 500';
: B0 P- i/ j2 R      print (Str);
( C9 `8 N- n% _    exit;
   end;
end;
end.

, h( W7 j" v9 C: w/ S  H( _% v