一个很好的会员服务脚本

unit 会员服务;
% E% y& b+ ]; h3 j
3 {" M8 ?6 }6 _; n9 _/ V% Yinte**ce
5 U1 P' e% ]5 {$ U* Q+ K; ?
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
+ g$ t4 C. I3 s( p( q: r# Hfunction  Random (aScope: integer): integer;
+ [- f, L0 ^. ofunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
8 Z! k; @! S! m: Pprocedure Dec (aInt: integer);
  w8 H; C+ ]% K8 d" U1 t# X4 efunction  StrToInt (astr: string): integer;
5 o8 A9 n  o; t6 U7 s5 _function  IntToStr (aInt: integer): string;
procedure exit;
5 Z6 s$ r' m' z5 o# {/ C
procedure OnLeftClick (aStr : String);
* O+ h3 n9 Y2 R5 I" a7 r0 X/ `! u. Hprocedure OnGetResult (aStr : String);

implementation
# z1 S$ a/ n3 Y& y4 k1 Aprocedure OnLeftClick (aStr : String);
var
   Str : String;
% e7 j0 l3 ~7 w' c6 \   Race : Integer;
begin
, g/ s4 U6 i, v( x3 N2 [6 r   Str := callfunc ('getsenderrace');
4 ]) [/ x# O6 X/ v# h2 @- g2 o. {/ r   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
      exit;
5 ^  B+ F- s  v* T% i; a9 q   end;
2 v- B& _8 ^2 y: \- ]4 y- Z& p# [end;
procedure OnGetResult (aStr : String);
+ Y6 ~9 c# B' ^7 H) E; G" e& [var
      Str, Name, MapNo, WqName : String;
         iCount, MapID : Integer;
7 g4 c8 q+ c* g* F+ wbegin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
# g& z. ?7 p- ^' H      exit;
) B1 j7 T& o# o. j2 O1 s   end;
   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
9 K- D8 Q! E3 }6 k$ f      print (Str);
      exit;
) s$ i/ d9 |2 t6 O! M   end;
& S/ Z* V8 I/ m+ Y. F  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
8 A: R  H+ `! ^   if Str = 'false' then begin
7 U+ S6 `/ T6 e) }# H      print ('say 你不是会员吧');
      exit;
    end;
% q( n' r/ Y' i* r      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
1 c2 _. a' L8 W& B         print ('say 物品栏已满需要5个空格!');
         exit;
      end;
       for MapId := 0 to 200 do
5 H* L9 I; H5 P: K" |( }$ y       begin
: d% s% u& T+ o: e       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
. Z1 k4 a1 @4 S5 n. Y       print (str);
      end;
7 N7 C5 R7 V( r: V: f7 i: i    print ('putsendermagicitem 修练枪:1 @会员服务 4');
$ J% S# `, W: Y, M    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
3 u1 {7 i3 [* q' w  S    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
# F  v  m4 m: \1 {; _, p. p    print (Str);      
    exit;
8 L0 H1 A/ @& `% F   end;
  if aStr = 'chuqu' then begin
! b. B5 _& a6 y3 r& T0 T9 p4 ]     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
+ T3 C/ ^- F; L  y# O' S# p  if WqName = '修炼枪' then begin
3 Z9 o: I5 o  S+ n+ j) c) T4 J7 N5 g* l     print ('say 你不是吧！想带走修炼武器！');
4 p2 o" w2 \0 d0 W. ^7 \     exit;
  end;
9 L/ R+ Z5 Z3 S2 N) L  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
' o* A2 b3 ~8 l0 i  end;
( x8 e3 `$ a$ H" L  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 I; m: N0 c# I& @. @  end;
* d$ b, F9 p- f$ x1 w  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
+ P% Q) ~, a1 t6 t2 t6 C     exit;
  end;
# E4 k" I; @) t2 b. \# K1 z  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
: t; T# _9 s3 s( n3 s. k! Z     exit;
  end;
1 Y  S* {% T! a* y! c9 T      for MapId := 0 to 200 do
      begin
      MapNo := IntToStr (MapID);
0 |1 B) Y9 r) _6 n6 a       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
8 v7 w( i, S  y5 M$ {  E       Str := Str + Name;
5 {% m( A' c5 g8 y# x       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
3 c/ ]+ ?+ Z$ e+ n! g$ N      print ('getsenderitem 修练枪:1');//出去就全部删除物品
# Q% ]* I6 ?: d$ O9 x; X! J8 G      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
; J* f& \# w+ [7 d; \( E      print ('getsenderitem 修练拳套:1');
+ \; d9 |3 g5 i$ [      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
3 y% p# f! R! k. p4 z. d      print (Str);
5 }* h: y4 A& F/ b0 c! b2 B    exit;
; [8 ]8 p9 C; m& _- Y   end;
6 P+ L& Z/ f/ S0 f. f2 b" ^( O- X+ Tend;
6 D1 \2 f9 A1 U- f7 }0 uend.