一个很好的会员服务脚本

unit 会员服务;
' T) W4 `9 T) r3 v2 k" J! q4 r; o
inte**ce
. M0 w. e# o/ h$ B( G! ?
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
; c. Z3 K3 y) gfunction  callfunc (aText: string): string;
procedure print (aText: string);
, r+ J6 u/ H; B' G. u$ Q" Rfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
8 V- K6 n, K& [5 fprocedure Dec (aInt: integer);
& s5 K0 U% p$ |, w: ]. z, m4 e2 Wfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
3 x, F. b" d: s( b/ jprocedure OnGetResult (aStr : String);
7 T/ Z5 {+ [9 ]3 t! m
implementation
procedure OnLeftClick (aStr : String);
% Z4 [  O9 I2 l3 g; t, s" evar
   Str : String;
$ L- u2 t7 P% H* t0 D3 h   Race : Integer;
% F# B6 X+ X3 R* ^4 wbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
; j/ b& V  y( L   end;
8 V% b% p, z" Xend;
procedure OnGetResult (aStr : String);
var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
( V6 E9 R5 K. Y3 x$ [; t   if aStr = 'close' then begin
7 F. T% b! ~4 W% u$ f) G      exit;
   end;
: ~! z5 W& H+ G1 K' I( b8 o   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
# n0 r+ z' }2 u- R- {/ h- c+ r, V      print (Str);
. [% E% l) C$ ]      exit;
1 N* I# V; d1 \2 N6 k   end;
3 s+ @0 O1 _  j  if aStr = 'lingqu' then begin
( F+ ^; s2 }; m# s9 J4 S) {   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
! ?- E$ ^& n5 L' \8 f   if Str = 'false' then begin
9 ^1 e1 g; I) t      print ('say 你不是会员吧');
, Z( T# G8 C5 |- a: P. G      exit;
# E7 k8 C1 s. ?5 A( y    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
& u8 Q* ?4 D& `+ o$ |  V5 L         print ('say 物品栏已满需要5个空格!');
' T" a0 ]: Q3 A3 s  v' n         exit;
      end;
       for MapId := 0 to 200 do
5 I4 q- @- \9 Y7 D" c       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
+ w6 f: f4 b& {0 p  t; m6 v       Str := Str + ' ';
4 J) Y; |5 ^; ~2 z' B  G8 R) W       Str := Str + '【会员系统】:『';
# t. M1 Y5 y" H6 q. ]7 A0 t5 [/ j       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
0 h$ C: A" ]3 X- Q       print (str);
1 G2 I3 C  D7 y9 J1 v      end;
9 z- A1 A8 ^3 ]% [' {! G    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
! z5 a8 M3 F7 w5 K( @( J8 C  p: M. o    print ('putsendermagicitem 修练斧:1 @会员服务 4');
: H, J  g; B5 x7 R7 B' ~/ \/ O    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
% E1 A6 L. @! G) Q   end;
  if aStr = 'chuqu' then begin
& d7 V* ]3 Y* P     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
+ S" Q8 X- S  \# K" j# ~     print ('say 你不是吧！想带走修炼武器！');
     exit;
# Q! B- R8 p! b) }  end;
  if WqName = '修炼剑' then begin
# Z, Q  t3 C3 W" O! j" C     print ('say 你不是吧！想带走修炼武器！');
     exit;
" {* P8 x* m# v+ F  end;
9 f# Z. Z* ?6 c  ^# q# l# K3 A( v  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
1 ]* e! c! D& n% H' z1 @  end;
  if WqName = '修炼斧' then begin
1 Q' T9 x! ?, u4 M6 P3 X3 u) M     print ('say 你不是吧！想带走修炼武器！');
6 s; |  V' }; d: c6 J# \5 f" E     exit;
4 r$ x( y& ]9 A7 H6 \# Y& F  end;
  v2 W# z6 A9 L5 p, z1 ^0 G  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
" {( w8 U+ D# e5 k! C      begin
      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
4 u6 u% v/ e  _1 y' \( [      end;
( P. z' `" ]" Z/ g0 x1 k      print ('getsenderitem 修练枪:1');//出去就全部删除物品
0 g1 e' t. l) n: p1 T- q  `+ G      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
- a+ [+ e7 ^' [* f4 j. K5 N      Str := Str + ' user 1 500 500';
5 u! W6 A1 \2 z; j2 ]      print (Str);
    exit;
( o/ {9 W. c) q- y" d   end;
end;
end.

2 f6 ^/ l0 P; _