一个很好的会员服务脚本

unit 会员服务;
4 o3 I8 H. F' k$ _" n( E' r. n) m
; f. z$ O6 p( a' Yinte**ce

7 l$ Z6 ?/ z; J* U* F4 R! ofunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
1 b; h- Z" o6 n8 p/ T0 u# m5 ofunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
8 f/ I& j: F: |1 A/ f9 S9 N. Rprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
5 y+ U/ H- a! q  f: Z( yfunction  IntToStr (aInt: integer): string;
procedure exit;
) ]5 C' X* u( @3 R+ R- y) m
6 a1 z# E; n# bprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation
procedure OnLeftClick (aStr : String);
$ P+ d- j( Q6 w8 Y. X0 O1 E% u9 uvar
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
2 |: h/ Y  I7 I  `, L   Race := StrToInt (Str);
   if Race = 1 then begin
7 k* r+ Y% R* w4 a' H2 T      Str := 'showwindow .\help\会员服务.txt 0';
      print (Str);
4 r$ ?+ X: S8 R      exit;
. k  S" E- [- p+ k   end;
% N+ e! ~3 e) J, k- f7 \+ o7 Yend;
2 x% e5 {$ I$ {0 B% c- cprocedure OnGetResult (aStr : String);
9 Q' J  F, X( U, z) @) J. N6 Qvar
7 B: m9 n. c# x$ E/ J3 O' u      Str, Name, MapNo, WqName : String;
( E7 V, ~, M% K         iCount, MapID : Integer;
begin
  y/ J4 T0 ?" r1 ?. z8 D" Y: j   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
      exit;
. ]0 r: R$ G* n1 @5 G5 m) V   end;
   if aStr = 'xuanzhe' then begin
/ K8 T- B2 _  M# m3 J      Str := 'showwindow .\help\会员服务1.txt 0';
8 {1 r7 s8 r( @1 @: @      print (Str);
      exit;
   end;
" S& `5 q( \' [  if aStr = 'lingqu' then begin
9 J0 p9 f2 E! ^* {' A   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
# O2 t+ s. T" s/ j   if Str = 'false' then begin
      print ('say 你不是会员吧');
2 h) n0 g8 ?$ P! t      exit;
    end;
, z& X3 f+ B6 M; V% @' y      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
+ W6 w* Y6 @" c/ X' c- i         exit;
      end;
1 Z  N; q: P! \1 {) T       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
4 t! u" R/ v2 R  N7 S! i1 j' S, E# a" z       Str := Str + '【会员系统】:『';
0 S" ~" {3 h  J" V1 p* j       Str := Str + Name;
$ W. K, W) ]5 k" q3 E' y       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
; u$ ~" ?0 p' [/ I% r# a2 X       print (str);
      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
4 m) Y" m7 d. `! d) m. k    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
. s5 C" E2 j6 [4 |+ ?    print ('putsendermagicitem 修练斧:1 @会员服务 4');
, g8 Y4 H( q* T) B) i$ \    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
2 m! C& B5 J. U   end;
) r/ ]  r$ U8 N6 ^0 h  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
, ]. P: P: ~% G* s4 e+ W  if WqName = '修炼枪' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
+ Q% F7 s. m7 p- W  end;
9 @) S4 T$ b3 O. e1 ?8 V( L  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
2 K& B& `4 G/ s( B1 V     exit;
  end;
3 h3 |& W0 {9 h  U6 G# k+ P  if WqName = '修炼拳套' then begin
4 ]; x  a; Y" ^9 x$ h" g     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
: I, x2 s: q* c4 A; E9 I      for MapId := 0 to 200 do
      begin
" _1 E0 S5 g$ t4 @/ x      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
' G! N; K9 V" Y5 A       Str := Str + ' ';
) I* `8 N# H6 _! ?& G  R; ^. Z6 [       Str := Str + '【会员系统】:『';
+ g' v+ I5 ^0 ~% a6 Y+ N) t       Str := Str + Name;
       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
- _5 e- }6 \7 J* g9 j5 t       print (str);
      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
9 ^, y; \) {3 I5 _8 M! k      print ('getsenderitem 修练刀:1');
( O1 ?2 {' a2 u' g$ [      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
0 V0 J1 P/ G6 {' a+ p      print ('getsenderitem 修练拳套:1');
      print (str);
. P; s% \: A3 N3 d  g      Str := 'movespace ' + Name;
& W& K) P- y5 ]" P      Str := Str + ' user 1 500 500';
6 |( z" i; L: c7 Z5 r      print (Str);
& _: w1 q. t# C% M2 H3 e    exit;
0 d4 Q: V, N0 k# P# t- J   end;
end;
end.