一个很好的会员服务脚本

unit 会员服务;
" E; ~0 j0 c9 L* ^2 _
interface
+ X" A3 _, ]0 R: O4 ^' V
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
  `! u: E& c1 }& o. }function  callfunc (aText: string): string;
8 ^  f. i- ^- J7 N& b0 Eprocedure print (aText: string);
function  Random (aScope: integer): integer;
5 {. F7 B+ |4 ]8 Z( |  R% i) wfunction  Length (aText: string): integer;
% J* @) u% e! L* e: r7 T% a% Kprocedure Inc (aInt: integer);
- w1 l8 _5 a0 V; Uprocedure Dec (aInt: integer);
1 b  @$ r/ M. V0 l; n* c  Gfunction  StrToInt (astr: string): integer;
6 s# }: G8 Y' ffunction  IntToStr (aInt: integer): string;
( e3 H+ d9 m- dprocedure exit;

; ^* w) `0 T3 o& Uprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
9 \/ M+ a  o; R3 E4 A6 |( D: D
; Z* i2 u* |: W( S1 K1 d. ?6 y( Aimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
) e! X& D/ E' F2 [( k- X   Race := StrToInt (Str);
7 m1 k! E8 z/ C' X7 \   if Race = 1 then begin
& l1 \' [% Y& l; X5 ^3 \4 F      Str := 'showwindow .\help\会员服务.txt 0';
! m5 r9 L) W3 u! s+ u" d      print (Str);
, g3 g( T& N% H. ^8 R5 _      exit;
, v' ]/ T7 G& _  A- R  S   end;
2 p# l- y3 h. [5 M( r% [end;
procedure OnGetResult (aStr : String);
+ t2 m2 ~. X* zvar
1 s" i3 G! X# u1 x) v      Str, Name, MapNo, WqName : String;
+ I3 [8 z5 C- V         iCount, MapID : Integer;
' p  g8 Q5 p# P* i% \$ U! obegin
   Name := callfunc ('getsendername');
) @3 c0 X6 V: W3 G6 _2 l/ u' W   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
- M  W" ?- q' g' ]1 |      print (Str);
      exit;
1 ?+ v& `' I9 c; ?( F1 j   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
      print ('say 你不是会员吧');
3 H& P: m1 K% ^2 M3 P: Q      exit;
/ x7 D% p  W: O# G) [    end;
      Str := callfunc ('checkenoughspace 5');
. X2 A4 a8 C6 h7 f' Y. d      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
         exit;
* D4 ~& |! E1 `      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
& R' d# c+ n& E- i/ S4 v& p& N. Y       str := 'sendnoticemsgformapuser ' + MapNo;
8 O$ G# d0 A7 q- _$ E       Str := Str + ' ';
$ `( M# k# O  C! f' Q       Str := Str + '【会员系统】:『';
2 k$ I& D& P8 O- D3 d       Str := Str + Name;
1 m6 K* r( K& i% E: E8 M       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
1 `& q$ L0 D% `+ S9 E, i      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
( _8 O2 {# ]& d% j6 Z! e) \" z! G. c    print ('putsendermagicitem 修练剑:1 @会员服务 4');
" c. C2 b1 Q. Q2 a& g    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
6 g7 G$ W. w9 ~4 Q7 s) Y) x    print (Str);      
    exit;
! w' y  p4 v0 |" j, G   end;
" v8 F# n" E# e$ G4 E9 q1 X" y4 m* Z  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
5 g) J4 r3 x5 u  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
4 W+ o3 r6 c- {: @  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
/ G$ i) U) z, \4 Y) O  if WqName = '修炼刀' then begin
4 ?$ X' i; e5 Z2 _! s     print ('say 你不是吧！想带走修炼武器！');
3 ]1 f9 ?0 d$ C, E6 g% M     exit;
  end;
  if WqName = '修炼斧' then begin
1 j5 R1 p4 U0 p     print ('say 你不是吧！想带走修炼武器！');
     exit;
# a3 B1 T0 e  a; u  end;
" @0 j% c/ w" |0 B# Q$ L/ G# {3 ]  if WqName = '修炼拳套' then begin
1 e1 p4 P  Z$ G2 h, P9 k1 b- j4 Y     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
4 _+ g2 D6 c7 z* \0 E; y4 O      MapNo := IntToStr (MapID);
2 x5 t0 p4 ~9 w; S- M, r       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
6 f4 ~/ y  {9 L9 z& i/ ]       Str := Str + Name;
5 t5 X- L! [* Z7 ?8 a       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
( |0 Z! P7 U. L: i6 g7 M$ g  \6 e7 ~$ @0 V      print ('getsenderitem 修练刀:1');
" l, g+ \2 f3 w0 ]% N3 v      print ('getsenderitem 修练剑:1');
, w. ~6 f# W# c4 U$ t      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
7 C8 G, Z% Z- P0 I      print (str);
      Str := 'movespace ' + Name;
2 s1 K+ Q* \7 t; v5 n" U5 A+ v& `      Str := Str + ' user 1 500 500';
; `- U/ l. O: W2 K# y  v      print (Str);
/ w7 P* h3 r- v% D6 z- ]  G    exit;
1 F- {. a6 r1 d   end;
end;
. H8 V5 m: E9 z, e$ ?# u0 A6 _end.

. R! ]8 l5 M2 j3 q: i