一个很好的会员服务脚本

unit 会员服务;

& N9 ^5 ], m6 I8 Minte**ce
  g' q+ \; {: w: T% Z4 q
function  GetToken (aStr, aToken, aSep : String) : String;
* E* U2 q/ ^0 j: l! U9 sfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
. b! z1 ]4 o( R! B. jprocedure print (aText: string);
function  Random (aScope: integer): integer;
, ?, S! t" W- ]! H% T: ~0 rfunction  Length (aText: string): integer;
" I4 A( k7 h# z1 S6 p  E+ I7 hprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
- T3 W3 @8 m# y( ~+ j  kfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
5 B# h. h4 A) jprocedure OnGetResult (aStr : String);
9 U  K# z$ X. E9 U
& R1 q, @4 A) ]! c* W: y4 qimplementation
procedure OnLeftClick (aStr : String);
+ a/ v* M3 f' K: j! T5 nvar
6 M: C7 V$ w! ^- ^   Str : String;
/ M" @( x# S* _! ^) W   Race : Integer;
begin
7 O8 T3 T/ _2 c: [; a9 c   Str := callfunc ('getsenderrace');
8 `9 B( i% z  e& m5 b  T  B$ d   Race := StrToInt (Str);
   if Race = 1 then begin
/ q1 Z  Z6 `& r      Str := 'showwindow .\help\会员服务.txt 0';
$ B8 E% F- u, L! A+ I      print (Str);
      exit;
: d0 ]: V5 `8 ~+ u   end;
, Y9 T8 ~- O/ fend;
5 ]0 Q0 N3 F$ Z9 s9 @( dprocedure OnGetResult (aStr : String);
  W2 N$ T# l3 z" F2 [. n0 `var
      Str, Name, MapNo, WqName : String;
& V$ V) ?% I" @5 J' l4 x$ P5 l$ y         iCount, MapID : Integer;
begin
  h/ V& _$ k! t) q2 M8 ]) h   Name := callfunc ('getsendername');
6 F$ Q! d7 U8 y9 U* [9 R; H" C: l   if aStr = 'close' then begin
: q- R- w8 k8 [0 y      exit;
   end;
   if aStr = 'xuanzhe' then begin
* l. h8 h0 O6 j2 |& `$ K0 I* ~      Str := 'showwindow .\help\会员服务1.txt 0';
! w* F$ F+ R$ m6 K, \7 g4 y      print (Str);
      exit;
2 z: C& U7 O9 A1 }+ u   end;
7 [5 M) F1 M" V* \0 ]3 r  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
4 O- e' o: m! I% R   if Str = 'false' then begin
) i* B# {$ B6 Q; b9 G- G$ s      print ('say 你不是会员吧');
      exit;
    end;
. e6 ^, R6 n- N. c! V  r9 @$ k      Str := callfunc ('checkenoughspace 5');
: t0 F0 V; i) B0 |# y5 _7 j      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
, ?. K( P$ G: t$ r& V8 `         exit;
      end;
       for MapId := 0 to 200 do
/ ~: e3 Z# l$ r7 `. A  P; q       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
9 \) M! L. `' Y       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
/ K+ Z% b, x1 y- Z- d5 Q- p       print (str);
6 S, }; a7 m! b1 |2 ?" h      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
- U% C5 _, X( J9 P- G. `    print ('putsendermagicitem 修练剑:1 @会员服务 4');
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
  A- z' ?! V% v5 O    exit;
   end;
  if aStr = 'chuqu' then begin
4 ~5 e# x+ J! B& v     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
! X. o) ?% d! A* U  end;
  if WqName = '修炼剑' then begin
6 F. A. H$ \. i  J     print ('say 你不是吧！想带走修炼武器！');
" x$ O4 Z% \2 l, ]! [4 x2 v2 g. n4 f     exit;
  end;
4 z& d7 h! w. q3 c# J+ B  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
1 H- ~  h5 O5 c4 N  J* Y  end;
8 Y$ I/ S, L: K, E1 W8 _  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
  s) r" [: ?% X1 T  S& i     exit;
  end;
. O& K, u2 n# V3 D' u* f$ D  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
; e; e; ]' ~% E     exit;
  R) e) G0 F- \0 G0 s1 ~  end;
) v$ d5 E" U* }* T  O1 Z      for MapId := 0 to 200 do
* e0 O4 D+ u0 [4 L# w4 B      begin
      MapNo := IntToStr (MapID);
1 F+ Y0 X& G) R0 T7 i$ Q) E       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
0 o& ]2 t1 ^+ @6 y       Str := Str + '【会员系统】:『';
       Str := Str + Name;
1 X! K0 S1 |: V9 _% l+ G5 _6 b       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
. f" ]- w# Q, r2 C( F$ K' A+ ^       print (str);
. L/ D' |9 @- V1 v      end;
. l' Q/ H3 }* L9 v" ?      print ('getsenderitem 修练枪:1');//出去就全部删除物品
' l6 ^( H+ b* H% h& \2 ^6 Y& y      print ('getsenderitem 修练刀:1');
- E: N  G& S8 l: J3 n* A      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
3 ^3 X  [  l$ D: Z: x. O+ n. v4 w- Q      print (str);
* _; O6 X" Q/ u/ e& i( z      Str := 'movespace ' + Name;
) I7 S& i& L8 M      Str := Str + ' user 1 500 500';
      print (Str);
" I7 E2 g/ l1 ~! P- P    exit;
2 g. D* ]. r7 }8 B   end;
& B+ w! J0 J& }- R5 C3 t7 b! F( \) Hend;
' ~" B$ O- l# I1 fend.

" ~6 ^7 E0 |* ^