一个很好的会员服务脚本 - 三千论坛

unit 会员服务;( Z1 y% H4 t$ I1 ~0 Z5 q
# w5 ?7 G/ n) a: j* S4 v; H
inte**ce
7 E5 d9 r7 U* S3 I/ q1 C! ~8 |4 U- y
function  GetToken (aStr, aToken, aSep : String) : String;9 ^  |5 S: @7 X: D- p4 D
function  CompareStr (aStr1, aStr2 : String) : Boolean;, P' e3 \# g/ T- j/ |
function  callfunc (aText: string): string;$ }- ~. T; a7 m4 _6 f: N/ F" v
procedure print (aText: string);
4 _1 [/ z* x5 X/ @, |function  Random (aScope: integer): integer;  G' J9 {- q# J( g+ p; t
function  Length (aText: string): integer;
/ _4 _4 }! g; R# m& |procedure Inc (aInt: integer);7 {% z2 }% }: k- r
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;6 m5 t# s$ K% Y+ s' S. z1 v
function  IntToStr (aInt: integer): string;
2 u# i# J4 g6 F3 C$ n1 }- d1 tprocedure exit;
+ A! }' F: `' h5 b# k) i  H1 ?/ A, H1 S/ U2 n8 F
procedure OnLeftClick (aStr : String);0 G: Q! Z' S1 T
procedure OnGetResult (aStr : String);+ K; R" C" ]% Z/ Z
: ^6 W. s1 Q' H/ X3 T, W
implementation
- G! Q- w4 u+ V, F* Dprocedure OnLeftClick (aStr : String);9 B: X+ m) S' g/ Y; l$ w) b
var% C! S" s3 k; }, D
Str : String;$ B3 E( A6 N& ]
Race : Integer;
- T/ s8 Z, j  w1 q+ hbegin$ s5 O2 q; v1 ^4 |
Str := callfunc ('getsenderrace');
/ q( m1 X- ~( I" M% m# w6 O+ y Race := StrToInt (Str);
/ w2 l$ t7 n2 w  W' n if Race = 1 then begin
0 R" c5 i7 `8 H* N1 u2 H7 L    Str := 'showwindow .\help\会员服务.txt 0';
1 Y% }+ p9 |( \+ p+ C, ^    print (Str);8 v# n/ e6 d; i9 Z) ~5 I( Z
   exit; . }% x- i7 t* q
end;  |1 s  v; V: `) P
end;
3 |0 \" q6 \6 n, B2 Pprocedure OnGetResult (aStr : String);
, w5 M' B" n) d2 h+ Z+ Wvar
' V5 R6 ~6 v7 m4 W& h/ D4 l    Str, Name, MapNo, WqName : String;: j- a* T, V* Z
      iCount, MapID : Integer;9 f" {+ i6 m: i! |; b0 @
begin
2 e" ^. H0 F  r0 n0 F* R; F Name := callfunc ('getsendername');& H( J; N; V3 f6 v, }: h/ Y: n' O
if aStr = 'close' then begin7 ^& }% B3 R" ~: v. a8 O! P
   exit;$ j% [+ E3 y5 W, O! q" x$ a
end;; P" r, C/ f+ n* B1 T2 b
if aStr = 'xuanzhe' then begin3 s1 s/ Q( i4 P/ n
   Str := 'showwindow .\help\会员服务1.txt 0';* M5 Y; ~0 w% s7 {; E" O3 M' L
   print (Str);
  d) l( N; o0 z6 i( k    exit;
* C! G7 M) d4 X5 ^& Y' U# d end;" R3 ^+ u+ U' Y% g. x; h
  if aStr = 'lingqu' then begin
% ~# r$ ?) I( M4 k9 [ Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
' K8 n5 [. ]8 ?$ S. k: d if Str = 'false' then begin
& s+ b1 I! q; d; J/ t* [6 J  S    print ('say 你不是会员吧');/ p" ?2 w' i* {! q/ X& y" x
   exit;/ o, Y5 Y% C) ]! X
end;
1 V2 x3 F, y) r: N1 o4 r    Str := callfunc ('checkenoughspace 5');. r) z; `' _$ A' }  `
   if Str = 'false' then begin# t" \' d% E& S7 q
      print ('say 物品栏已满需要5个空格!');, d% R9 N& d5 S3 z" @# o" u
      exit;
0 T/ h4 }' o" C& I    end;) |+ f. R% k/ P# l/ i
   for MapId := 0 to 200 do) Y. \4 a) I7 C# y1 O0 e9 f+ _
   begin
/ T& k% g( T$ j+ P    MapNo := IntToStr (MapID);
  C% W- `8 A9 E" L; W    str := 'sendnoticemsgformapuser ' + MapNo;
2 }1 Q2 [& n9 p  L    Str := Str + ' ';! e1 F) n* C) X7 n
   Str := Str + '【会员系统】:『';
- E( Q. R; V4 c( m$ U, c, q7 O    Str := Str + Name;7 b% G: R4 w: Q3 E& x; Q! k
   Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';4 c  @% j& b2 m! f
   print (str);
* j0 N* y2 i7 v" o( F' q    end;
" @2 Y6 A2 c$ a3 m5 g7 t print ('putsendermagicitem 修练枪:1 @会员服务 4');
- _9 F9 t/ o- l5 O4 B3 y% D print ('putsendermagicitem 修练刀:1 @会员服务 4'); ' C/ n' n2 J9 q9 {* Q+ y
print ('putsendermagicitem 修练剑:1 @会员服务 4');
7 |, b* `  U8 R  G print ('putsendermagicitem 修练斧:1 @会员服务 4');* A# G" c2 X1 a+ f- [8 o" P
print ('putsendermagicitem 修练拳套:1 @会员服务 4');3 V% m4 ?) [/ ]% I  Z
print (Str);
! W0 [0 S& @6 }" r exit;3 B1 ~, S- K; s8 |# i
end;
% _, @: P4 Y+ L  if aStr = 'chuqu' then begin
6 w. y( P7 Z" v6 n* n    WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!6 y$ M* C. k6 E, E2 g9 e! \
  if WqName = '修炼枪' then begin  k# ~" _0 R3 a" }$ J7 {; d
   print ('say 你不是吧！想带走修炼武器！');- X  C5 E: t% \; i$ Y
   exit;
% W* x; T! S% A# O5 I% v2 f  end;
% p: O6 N* T! {6 y- P0 P# Q6 t  if WqName = '修炼剑' then begin( a  k; q* D: k
   print ('say 你不是吧！想带走修炼武器！');
' d+ L$ ]" V# V( S    exit;8 L" h2 }# \4 I1 f
  end;
  T, n- W( A- A6 K  if WqName = '修炼刀' then begin
5 ^' D5 w" J# K7 }4 }2 E    print ('say 你不是吧！想带走修炼武器！');9 G, |2 p; g8 N) C) @
   exit;9 S5 `% p, k0 ~; y) [
  end;& Q7 m- K( ]  I7 {; b. V
  if WqName = '修炼斧' then begin. ~; d3 D; b! w% y
   print ('say 你不是吧！想带走修炼武器！');7 B4 D8 j4 v8 g: V/ ?" z' s* {- o
   exit;' Y' P' X/ P$ b0 n& n. x
  end;( }8 ^7 N& \0 {
  if WqName = '修炼拳套' then begin
8 \# }) a  l( k8 ~* m    print ('say 你不是吧！想带走修炼武器！');" E+ [, N2 e2 q  c6 z" Q) r
   exit;
4 D6 Q' R5 e+ H+ g1 q' u( f  end;
+ B# Z  M# W9 \5 W; O    for MapId := 0 to 200 do
3 r" n8 Z. U& q3 s    begin
! i6 H& C- F: s& F0 m  L    MapNo := IntToStr (MapID);& B/ }7 @3 [! m
   str := 'sendnoticemsgformapuser ' + MapNo;
: S2 g3 t% I4 i8 c* Y    Str := Str + ' ';0 W; |: V% M) k0 c8 S  f2 T
   Str := Str + '【会员系统】:『';
& Z( |" w( i- s9 T5 y* |; [2 m2 y    Str := Str + Name;
4 W/ o) L, @  v; W6 t8 n0 k    Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
# y% k% D) A$ K2 l# F& h8 o    print (str);
. R) `& @3 z; [' U; `+ S    end;: H* s$ E" b+ f5 C8 M: C
   print ('getsenderitem 修练枪:1');//出去就全部删除物品* n7 ~/ z8 s/ i* o: [9 m& V/ v4 Q
   print ('getsenderitem 修练刀:1');
9 ?! h  A3 A% z2 J    print ('getsenderitem 修练剑:1');
+ j! C  c: u, r& `4 j    print ('getsenderitem 修练斧:1');
0 H" }7 I/ [. R9 b+ _# g    print ('getsenderitem 修练拳套:1');* j0 b  e  y' d  s  ]3 ~
   print (str);# o/ H0 D- q; i% e" ^0 Q# o9 k$ |
   Str := 'movespace ' + Name;0 ~* y8 h. x1 ^! [
   Str := Str + ' user 1 500 500';. U8 j: l2 _+ E
   print (Str);( m( v- R! S6 o$ _+ n! T( V9 L" s
exit;
8 W' b; q' `: H5 v( x end;
, u  {3 m0 [9 I5 ]6 j5 Z* K* Bend;" }) J- I+ m# J& A' a
end.