一个很好的会员服务脚本

unit 会员服务;
8 H2 p* x. p4 k- \7 o+ e
interface
# J, N9 M3 z8 i0 r* }1 ]
- l# }: a8 i+ |( F# \function  GetToken (aStr, aToken, aSep : String) : String;
" m- w& }# V/ Xfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
9 O- a2 t/ K, T: F( [! W9 afunction  callfunc (aText: string): string;
procedure print (aText: string);
: T2 ?  ~4 h. w6 u1 t! I2 L2 ifunction  Random (aScope: integer): integer;
1 F* H- q) a0 |( {function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

( @* n# K# ?: dprocedure OnLeftClick (aStr : String);
' l" R+ w% W. Q9 ~+ hprocedure OnGetResult (aStr : String);
# X; B5 Q$ p1 G: p& p: U1 A
implementation
procedure OnLeftClick (aStr : String);
  v$ O; p* z, E7 W6 U/ {, cvar
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
' P5 N8 p0 {) f9 L+ O   Race := StrToInt (Str);
! S# c( {7 H6 D$ s   if Race = 1 then begin
$ c; V# Z$ R2 @% A      Str := 'showwindow .\help\会员服务.txt 0';
% V; d0 v/ M" c7 g1 F" X1 o      print (Str);
      exit;
   end;
end;
3 `9 o( @. ~4 i: z( Oprocedure OnGetResult (aStr : String);
var
. w, G6 j3 p0 G3 w5 x+ k+ ?      Str, Name, MapNo, WqName : String;
, V/ @/ }$ |) W$ u6 `) Q         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
" O+ r" n- p  k$ D      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
0 f  I8 R0 J# L) f, S      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
/ ]: [) A9 n6 Y" Z   if Str = 'false' then begin
9 ]% E; j' d5 G9 G      print ('say 你不是会员吧');
% W: t/ `4 r6 ?9 g      exit;
" }: z2 h6 L( _& y    end;
. f5 R# N6 ~  M( T      Str := callfunc ('checkenoughspace 5');
& S! G! G* ?$ u2 v2 O. m  C7 x      if Str = 'false' then begin
* ^7 @$ }0 ?' `2 k5 N         print ('say 物品栏已满需要5个空格!');
* }3 V9 b6 k* b  T         exit;
      end;
) O9 p$ p/ A# N8 b# x. q! S       for MapId := 0 to 200 do
' q, O8 m1 C% J       begin
       MapNo := IntToStr (MapID);
% M! J3 M' a7 p/ w) `* u5 c       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
+ N% G" @* p. X       Str := Str + Name;
% K4 h" s7 @- x1 D       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
  Q; ^, p4 N$ t0 E: H' B8 S( `       print (str);
; E# u* `2 E7 O! @2 y0 G      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
9 w/ a; H* k8 Q$ g; ?7 g# ?) Z9 M    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
# [+ y6 F  Q1 |, e+ |, [: K9 i5 y- n    print ('putsendermagicitem 修练斧:1 @会员服务 4');
; l" Y5 a% s' K8 `    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
$ L( M" ]1 x- y2 _; ^    exit;
4 y/ L  L' Y' T   end;
  if aStr = 'chuqu' then begin
% \0 L& x9 b) {2 W     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
6 v( P" G) n9 ~; U0 @     exit;
  end;
# K* q7 v- Z# \0 ]' L: S% p  if WqName = '修炼剑' then begin
, ]2 U) N' i  S' [8 ^+ m- G3 n! e     print ('say 你不是吧！想带走修炼武器！');
9 C2 ?# W" c* d     exit;
" d/ p3 u+ [- l6 @8 e9 A6 j0 R  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
$ S7 W* \9 }8 t$ Q8 q7 N) J  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
9 u, l) B+ r: o     exit;
! L3 ]- x" B$ x& N# Z8 G/ d  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
! t+ a4 o3 C- g/ j- ~; }$ z     exit;
( j! w5 t3 G2 L  end;
      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
0 {$ k. H' j  I4 V  f0 J       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
1 p/ B4 g* ]7 c0 U       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
! ~  K6 n1 ^6 U. s! ?5 F, J      print ('getsenderitem 修练拳套:1');
* t* b; y! i( N      print (str);
      Str := 'movespace ' + Name;
8 e- x4 v' f6 L% R- }      Str := Str + ' user 1 500 500';
, r# S- x6 R1 V% F" W' D( p      print (Str);
    exit;
   end;
end;
end.

: T2 K7 N- ]* ]* g. C$ j; m