一个很好的会员服务脚本

unit 会员服务;
% n- {' a' P! \
interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
' M4 Y( m6 O# ~8 w# R' u$ Ifunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
/ f7 r4 U5 \' Q; G& q7 s9 q: P& {function  StrToInt (astr: string): integer;
- G, H0 `. w2 R: `# b7 _% Q$ D8 ffunction  IntToStr (aInt: integer): string;
% q$ a5 T2 W" j# p6 Hprocedure exit;

procedure OnLeftClick (aStr : String);
9 Y/ A6 l! X5 {' p( Kprocedure OnGetResult (aStr : String);
5 t. e4 R' A" N0 z
- Q( g, G% t) Z3 Limplementation
procedure OnLeftClick (aStr : String);
0 G; f9 o9 |+ r) D1 x/ Cvar
9 u9 L+ l( J5 j. D- ~# P   Str : String;
; e! f3 T* m2 c. k   Race : Integer;
begin
& e6 E& C$ X% t  h5 m7 h   Str := callfunc ('getsenderrace');
. A$ f* n7 Z, x7 f6 o( ^; B   Race := StrToInt (Str);
: s3 X4 v. `# k  S+ f* Q2 _   if Race = 1 then begin
* f- Q! n/ Q- S3 r      Str := 'showwindow .\help\会员服务.txt 0';
. a+ x: r, y7 n4 u' ]      print (Str);
      exit;
& U% J! n, y. `) Z$ ?% d6 {5 k   end;
, T0 a$ H* K  M, Wend;
procedure OnGetResult (aStr : String);
! P1 a: A$ T$ I& {1 D3 e; u! Ivar
      Str, Name, MapNo, WqName : String;
$ E+ o3 ?# D: H         iCount, MapID : Integer;
  i8 g- F1 S1 Q3 I1 Vbegin
' X* n# D/ i5 U! P5 z1 k   Name := callfunc ('getsendername');
7 C. E; v& K% I  l4 G; C: s   if aStr = 'close' then begin
% r: _/ q3 {" c9 ^* Y0 ~: g7 g      exit;
7 A; g4 T6 c+ S% i5 a/ N   end;
8 W/ z- _2 q! m* y3 u" z$ M   if aStr = 'xuanzhe' then begin
9 z# U* ?2 e. ~9 S" e: W      Str := 'showwindow .\help\会员服务1.txt 0';
# x' _& R7 ]; l      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
   if Str = 'false' then begin
' t5 w* \8 T6 z1 m6 h; p% Q      print ('say 你不是会员吧');
      exit;
    end;
      Str := callfunc ('checkenoughspace 5');
+ m- [9 P# c' @5 h( c( n0 E      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
1 K* k3 U0 ^, A6 ]4 l         exit;
      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
' r- Q& P3 z9 F5 Z       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
1 ~5 `: \7 ]3 j, n4 j6 @, f       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
9 a+ p+ ^5 I( Q) v( `/ K       print (str);
/ b. Q! H. @. L& {) ?      end;
( L$ ~' @% ]/ |$ Q+ p2 x    print ('putsendermagicitem 修练枪:1 @会员服务 4');
9 `/ }# A( T: f5 A* Q8 l5 b4 O$ T    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
! G+ B/ d0 ]6 J0 n    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
. O+ M2 C, L+ _+ Y3 e6 `, d0 R    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
% W8 ~" p/ J* i% w6 N     print ('say 你不是吧！想带走修炼武器！');
4 W7 S% S: L4 A6 ?; a     exit;
  end;
& e1 k% X, f5 z5 H& f* X  if WqName = '修炼剑' then begin
: ]& t# W' l& O% j1 F     print ('say 你不是吧！想带走修炼武器！');
     exit;
& [/ D/ H$ g' v/ X  end;
  if WqName = '修炼刀' then begin
3 ?+ L: w) h' _     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
2 g% E, @/ O% H% d& Z' \/ N  if WqName = '修炼斧' then begin
% k" M- ]! J4 B; E9 |1 i) x     print ('say 你不是吧！想带走修炼武器！');
     exit;
. ^2 g3 @6 l8 ]. G6 z" z  D, \$ T  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
7 [. J# U4 l* D/ A, n8 Z1 G* e     exit;
6 q' D" k7 z5 Y5 j9 i) G  end;
3 [! e8 J' x1 L6 G% d2 x3 |) D( p/ {5 w      for MapId := 0 to 200 do
      begin
0 M8 A, e5 U' f' |0 q      MapNo := IntToStr (MapID);
3 K& \+ `1 g0 y" d: R& _" \       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
# [0 r- p  B. B" M2 d       Str := Str + '【会员系统】:『';
# k5 J  O( _- @, a; s       Str := Str + Name;
* p) Y3 Q; Z9 g4 B6 D4 V       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
, X, M$ v0 }# m; \! `' b$ K      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
" D7 `/ t! L. t: o      print ('getsenderitem 修练拳套:1');
      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
0 R- h; N9 P5 \. Q      print (Str);
    exit;
: R7 f2 `, u8 t: ^( W& \   end;
end;
end.