一个很好的会员服务脚本

unit 会员服务;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
) B0 g1 q) T# k7 P! J# k, |; F; D& Yprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
. U  a4 i7 g' y( Pprocedure exit;

+ t: w: P1 p4 g; R: \procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
" F0 q- b( e( X3 o
implementation
4 p8 A& m4 G- h0 Q( {% Nprocedure OnLeftClick (aStr : String);
var
! O% d6 x4 r( R& u   Str : String;
   Race : Integer;
: T0 @  N. y/ S0 U! Kbegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
5 }1 L& [5 D' ]  z7 }( [9 V      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
9 r' y" _' q4 d      exit;
   end;
end;
- k2 t7 R$ \" z3 Yprocedure OnGetResult (aStr : String);
! j1 G9 k2 \4 W4 t$ H4 ~- z8 qvar
      Str, Name, MapNo, WqName : String;
5 k, S- y( v( q* Y5 P1 K         iCount, MapID : Integer;
1 t( N3 e7 o' W) \: |* z3 Wbegin
. G5 Q: M5 [9 T0 u   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
   end;
% T7 c) T5 a' ]6 c1 n' a   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
' \4 ?( n. B# o" N      print (Str);
      exit;
   end;
8 P8 K8 Z& H0 }- o$ O+ U$ }  if aStr = 'lingqu' then begin
# d, h' a1 _8 p- k+ o   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
2 T) s2 V  g8 w1 M( ?/ I8 T  M   if Str = 'false' then begin
      print ('say 你不是会员吧');
* [& d' \& O; T  F6 p1 ~      exit;
& n8 m1 ], a: i' n+ s4 L" `    end;
( H- ]9 z  e* M3 R# z! f. F) N      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
: I' t/ @+ c4 x! |1 |         print ('say 物品栏已满需要5个空格!');
5 ~" q$ n1 d- A         exit;
      end;
" v. v8 y0 R. ]3 V$ Z* W5 I       for MapId := 0 to 200 do
) F2 q% c( t( J# i1 w       begin
       MapNo := IntToStr (MapID);
" p2 m( s2 t- M       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
; P) p- x- m8 |6 U: w       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
       print (str);
6 }3 @4 U. F) |' n9 T* V      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
3 o  ~7 B# Y( p& o- G; e$ @    print ('putsendermagicitem 修练剑:1 @会员服务 4');
7 J  d) Z! t, l& @* Z    print ('putsendermagicitem 修练斧:1 @会员服务 4');
, W! F. n. y& ^" B. b4 G2 s    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
- m* \" O  {2 ~2 B4 `* R    exit;
   end;
& P+ l3 G: R3 [# d  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
; |3 \4 w) q' S  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
- n1 w. @' M$ R+ |6 R     exit;
  end;
  if WqName = '修炼剑' then begin
5 }( l  j  U2 U3 L/ o3 G& u; `     print ('say 你不是吧！想带走修炼武器！');
% o  P! w# j& S     exit;
, {7 ~- k, q6 z7 m  n: Y1 j  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
7 ?1 O" e; G) R' c: F  end;
; g4 c' S# ?: q0 }. `7 y4 p  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
: d% |% j. H5 I% v% B  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
' d( ?3 D6 ~  I: r. p+ P. k! t      for MapId := 0 to 200 do
      begin
$ I$ ~+ ?0 q" w" s      MapNo := IntToStr (MapID);
! {6 R& T6 N/ i* D       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
! ?$ i, {2 o4 v  l9 q8 S# I       Str := Str + '【会员系统】:『';
       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
6 }5 I5 {8 g+ O! B: q       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
% P: `7 k; V! t      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
2 p6 j3 E# f5 [6 U      print ('getsenderitem 修练斧:1');
3 e0 q5 B6 t- W+ H      print ('getsenderitem 修练拳套:1');
1 b7 t" X2 n7 ]      print (str);
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
4 G9 L* H3 t' x8 @1 ?  j+ j      print (Str);
    exit;
   end;
end;
, C* j. j& s7 v3 z- [end.