一个很好的会员服务脚本

unit 会员服务;

interface
4 E# X/ p2 a- ]7 O% l  ~8 v
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
- X4 h) B: f+ r% {" D" ifunction  callfunc (aText: string): string;
/ \* d/ ~( d$ c2 G6 Q. L! xprocedure print (aText: string);
6 ^: I4 ?* j/ t5 t: ~function  Random (aScope: integer): integer;
: f0 L" E4 c7 v2 f% tfunction  Length (aText: string): integer;
" r, s& ~2 Y3 q* Q% c: T" w  zprocedure Inc (aInt: integer);
! F8 |$ |( p8 a# D4 D( cprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
% U5 o& v: v8 }procedure exit;

procedure OnLeftClick (aStr : String);
) c& ]2 L2 R8 W1 N! C3 y! M- lprocedure OnGetResult (aStr : String);
5 p( I% W0 [& Y# D7 _% d
) J! Z+ U/ N( d. u8 gimplementation
$ A' L4 d* E% C. k4 Xprocedure OnLeftClick (aStr : String);
var
" k* r+ B0 w' [7 A2 H) `   Str : String;
   Race : Integer;
begin
! }  h; f" i( i' T   Str := callfunc ('getsenderrace');
* R0 @- v+ W7 P. G. j) I$ d   Race := StrToInt (Str);
3 z7 r- g( Y2 v- h   if Race = 1 then begin
6 @9 F( \: \8 _& r' f2 D& S- a9 g# x      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
( G1 R/ Z. |% s* B# S      exit;
! z' B' j  {- l& i* ], A6 t$ T   end;
end;
8 ~; m, `) A3 ?9 }! k# vprocedure OnGetResult (aStr : String);
var
: ?% j6 `* l: e: U5 T4 {2 F1 E      Str, Name, MapNo, WqName : String;
+ Q7 J2 }* H3 r1 H9 f* p- E& n         iCount, MapID : Integer;
begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
$ Z) m' O6 t, ]# a; I      exit;
   end;
   if aStr = 'xuanzhe' then begin
( u1 Z5 e- C5 z; ^      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
   end;
  if aStr = 'lingqu' then begin
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
3 x2 q1 r  A% ?  ]. y$ d   if Str = 'false' then begin
+ `0 L! U/ v0 H; r- C9 g4 h0 C      print ('say 你不是会员吧');
6 L* Z& ^( A7 I# J' d      exit;
    end;
: v7 N, y2 G* u- Z! H+ F      Str := callfunc ('checkenoughspace 5');
7 i7 ]4 I5 ?" t' |      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
/ k& a6 y6 V2 }4 ?         exit;
8 ]$ ^+ N8 G2 f5 q3 o      end;
; k: K6 M8 w( L" x- ~       for MapId := 0 to 200 do
4 c4 K0 ^/ ?6 }1 m+ e       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
, b6 X) n) M: h( N       Str := Str + '【会员系统】:『';
( a. R' @( U% W6 A- v       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
* D: D0 z1 u7 `& \       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
5 Y8 z& {3 l, H    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
  y4 Z6 w3 u! p; P1 W0 l+ d4 {    print ('putsendermagicitem 修练剑:1 @会员服务 4');
* }, s9 ]6 w% h) Y3 e    print ('putsendermagicitem 修练斧:1 @会员服务 4');
- S) n0 V& |- u8 T- `! y    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
0 i2 L% Z* I" t; O    print (Str);      
' p3 N" g- J: h" q, y    exit;
; g. ~0 s# X& ?   end;
  if aStr = 'chuqu' then begin
& O1 B$ R; \) ]( b9 L4 }9 A     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
1 g$ ~( E' F3 L$ {  end;
4 `$ ?9 i) Z2 C! p) k& W+ _8 A  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
- D2 m) z+ A& t3 d* b     exit;
2 I9 s, E/ t$ L9 ^) \& \5 a1 r* D  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
1 C( y5 U. j  @8 ]     exit;
  end;
) Z- v% [& K" M# e+ F  B  if WqName = '修炼斧' then begin
% [" Q1 H' }; \& n) A# d- p     print ('say 你不是吧！想带走修炼武器！');
; a/ Q5 L- m& |! f- m7 P: K0 L     exit;
  end;
  if WqName = '修炼拳套' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
      for MapId := 0 to 200 do
      begin
. O) ~! s# E& f) m! l5 g; {      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
+ ^, D5 l( n+ G. ]( t       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
9 h, \5 _4 }* |9 @: z       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
7 @7 \  P$ k, l  t( @' s      end;
9 s( b+ `+ ?# ^4 s1 Q      print ('getsenderitem 修练枪:1');//出去就全部删除物品
: Q% l9 d2 O2 d- E. W, P& s      print ('getsenderitem 修练刀:1');
      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
      print ('getsenderitem 修练拳套:1');
      print (str);
; X* }4 n7 {- R$ F2 Z- P+ S      Str := 'movespace ' + Name;
0 v  A" u3 d/ {7 D2 f      Str := Str + ' user 1 500 500';
      print (Str);
    exit;
   end;
& E/ _3 S, g4 ^0 W; b: i. n6 r/ ~end;
end.