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

unit 会员服务;0 j% G. X5 N" J3 \' c% w

9 R# N1 f( J. m5 x) f  ointerface) |0 z+ \6 k) Y& e& u
0 R/ ~  @/ x4 n
function  GetToken (aStr, aToken, aSep : String) : String;
; W5 K- k- K5 h5 wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;: H; B, d# O; X0 A  _, M
function  callfunc (aText: string): string;
- I5 m# P! v4 O4 _procedure print (aText: string);1 ~7 C' X+ A! T5 D. {8 y
function  Random (aScope: integer): integer;$ ]7 r: X5 f5 T8 h$ o" F
function  Length (aText: string): integer;) R3 u; J: ]; m, |. F( f
procedure Inc (aInt: integer);4 q, S; |4 a8 j
procedure Dec (aInt: integer);
7 S7 P" F7 B0 p+ a" k! Zfunction  StrToInt (astr: string): integer;
" R+ ]) {3 g" b. Z3 vfunction  IntToStr (aInt: integer): string;) e* Z/ a( ]5 @  e% E3 T
procedure exit;
8 `$ d2 n! n0 K+ r. ~& p' C/ b  Y" Z' s: Z, D, H
procedure OnLeftClick (aStr : String);
) P. V" Q- W+ i0 S/ r" iprocedure OnGetResult (aStr : String);" Y; p1 z& n$ J$ N; ?! s, \' G

% [1 ~2 Q: L& @' n6 Limplementation
# o$ k6 [+ P0 }/ rprocedure OnLeftClick (aStr : String);$ Q# r. F% P9 M8 }1 ]) o
var. a& i" y7 E" ^/ Q7 ^
Str : String;
5 R' b1 V9 D% E: | Race : Integer;" n% O" c) X- O9 w, B! ^1 v- ?
begin
' Z5 ]$ O; \3 s1 D+ y6 W) a Str := callfunc ('getsenderrace');" X, _( G( ?  T4 c/ U3 J  \* j
Race := StrToInt (Str);# |- s' Z# a! P$ N
if Race = 1 then begin: [: h) W% D  R! N
   Str := 'showwindow .\help\会员服务.txt 0';7 G4 E$ m- X8 ]9 I
   print (Str);
: {9 }6 I  X+ O, }: D& s    exit;
  W+ J) f0 x$ c/ [1 ` end;
( |  `# X3 \, q. {3 oend;, s$ k0 z2 }- h& q& U2 c
procedure OnGetResult (aStr : String);& v& E* w7 Z! }
var7 n& d3 c6 f  W4 j
   Str, Name, MapNo, WqName : String;
% ?+ g. \6 O- p8 U9 d5 E       iCount, MapID : Integer;; O7 L7 y6 L+ v, G  y
begin" @1 r0 m- a/ l1 h, Q, |
Name := callfunc ('getsendername');
) @+ a  H  m- f# @  r$ Z1 @! s if aStr = 'close' then begin
' |- K" n! n* \  I. a    exit;
; K5 N* s% I) Q; a) F7 _ end;; M4 t% }* n* F5 s  L: J. K
if aStr = 'xuanzhe' then begin
5 L2 v7 O9 K' }. `6 Q/ a    Str := 'showwindow .\help\会员服务1.txt 0';8 V; a5 U- {) E9 `0 r0 Q4 }- B% m$ }: O
   print (Str);) s3 K9 G) @9 Q% I+ S3 s5 m
   exit;% o  {) m, q# I4 q6 j  F
end;8 Z- v. |0 G' q' N0 U
  if aStr = 'lingqu' then begin
: X. V& {- S6 [# ~( | Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
7 m$ |0 m5 y& ^ if Str = 'false' then begin- V9 M, {* v1 Z
   print ('say 你不是会员吧');2 L) t& s& r$ F& k6 ^, K
   exit;
1 q" Z7 U. w" } end;
: E- \( u1 _9 c( Z    Str := callfunc ('checkenoughspace 5');: c7 K/ @4 D, q/ y# o3 w! l" @, i
   if Str = 'false' then begin
6 B9 R* s' D5 s% m( {       print ('say 物品栏已满需要5个空格!');- k1 l; ]  i( w, [# L0 \- ~
      exit;
# n& q' q, x" ?1 U6 \0 a! m4 b2 Z8 p    end;# N& D' {; S) m' X3 w3 ]! m
   for MapId := 0 to 200 do
7 ]* y: J. {! C" \    begin
+ g. T( O0 ]4 v7 J" z2 H  @    MapNo := IntToStr (MapID);
8 @( F5 h- p7 |( U    str := 'sendnoticemsgformapuser ' + MapNo;
" n; E: x( n6 \6 _& c* u) ]! x, \5 Y    Str := Str + ' ';4 x3 L0 Y5 ~1 b, f4 h
   Str := Str + '【会员系统】:『';2 @) u. P. w1 F! [; C# W2 P  [: g
   Str := Str + Name;
2 |/ G9 K. ]. B1 a    Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
3 s0 Q' c/ Z- [+ Z+ w4 b  ?    print (str);% I( Z& |4 {7 R9 H
   end;. K! C8 H6 L2 p$ N6 U
print ('putsendermagicitem 修练枪:1 @会员服务 4');: p  e! w, g4 `) _6 x
print ('putsendermagicitem 修练刀:1 @会员服务 4');
( Y6 D9 o7 L. m1 h print ('putsendermagicitem 修练剑:1 @会员服务 4');. W' x  ^0 [: I4 n7 w# A' h
print ('putsendermagicitem 修练斧:1 @会员服务 4');- n7 o, g2 z6 F! p) `+ T( P- V7 e# }& ?
print ('putsendermagicitem 修练拳套:1 @会员服务 4');' P; B) g0 h6 L( o) y7 v
print (Str);
0 y& q( }0 F+ K4 [ exit;3 i+ c/ L. [4 ~% c4 S. G
end;
, m4 [9 d9 f7 o  ?" |3 L2 r  if aStr = 'chuqu' then begin5 x! ^5 L- u' Q% K; H8 h
   WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!% }. e) J# S  Q' _7 p, g' Q
  if WqName = '修炼枪' then begin
; I. A9 O# G; c- k" j    print ('say 你不是吧！想带走修炼武器！');6 s, d; f& _4 ]  o+ J( S# v
   exit;, J! a: x* f& |$ |
  end;
3 z2 V2 o6 T. L; H) m  if WqName = '修炼剑' then begin
/ n, |( |5 L9 y- t7 f" d- u  w2 L    print ('say 你不是吧！想带走修炼武器！');$ Q" f6 I6 E: X( D6 D
   exit;: {4 n3 ~! @" a9 Y: c" ~- p. g
  end;
4 Q4 m, ^0 F) I+ E: x' [- H  if WqName = '修炼刀' then begin  }" Z3 R% Y! |8 x, a! e
   print ('say 你不是吧！想带走修炼武器！');; S! A; n7 Y: T! |& S' ]  p
   exit;
! `& E. x% I# N% T% a& s& R1 N  end;; p3 d4 m3 z8 ~" [4 \
  if WqName = '修炼斧' then begin
6 m; V( o" O3 |+ K. Z" ?. u    print ('say 你不是吧！想带走修炼武器！');1 u( A. w6 d* e) j$ S1 M
   exit;
$ @5 r9 W  W: d  end;
) @, \' }+ a: Y1 v# y0 j6 C- H# l  if WqName = '修炼拳套' then begin) g- S5 p, Q4 F
   print ('say 你不是吧！想带走修炼武器！');
; _/ [7 _0 y  j, U1 T. A7 B    exit;
7 t4 {% B+ F6 [  end;
, E8 v5 M8 ]- c1 r$ W7 Z8 i    for MapId := 0 to 200 do$ F; t' g& d5 I: I# V# E) x
   begin
- J6 l# M# ], g0 ?  g  T% j3 i9 [    MapNo := IntToStr (MapID);
& H4 w9 ?' I. Y( H; i    str := 'sendnoticemsgformapuser ' + MapNo;$ P/ I9 h: `4 _* G+ e5 }0 A
   Str := Str + ' ';
5 A6 F& x1 {- |( f* o3 g6 {    Str := Str + '【会员系统】:『';) f6 D5 P. J9 v( ]9 P
   Str := Str + Name;! f/ x! \  S4 k8 ?/ u0 e; c. [
   Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';0 Z1 c3 w. r5 j2 V8 u: D+ k1 f
   print (str);1 n; i' B# S. Z% d
   end;  j: X# l; @8 W$ X( v
   print ('getsenderitem 修练枪:1');//出去就全部删除物品
8 S/ b5 r' m$ q: i  K    print ('getsenderitem 修练刀:1');
" W2 J# E6 v' m8 t) o  v* o    print ('getsenderitem 修练剑:1');& h7 [$ A; J5 U& o
   print ('getsenderitem 修练斧:1');, d8 [) Q) G( s- |& `% f
   print ('getsenderitem 修练拳套:1');
9 K4 K& U2 \. c* d4 t. `; q  \    print (str);/ {! v& n$ h% B3 c8 t- e0 y
   Str := 'movespace ' + Name;/ r) k, ]5 p: ]( q! l8 }
   Str := Str + ' user 1 500 500';4 K; ?& g2 F' k) ?- Z% v% ~  G
   print (Str);
' d; k, G1 V5 h2 k: C' c exit;
% j' T6 W' ?& @6 M) ~ end;
9 M6 i. G8 b$ x8 n' h4 ^( aend;" p' D9 E% v8 \& a% |
end.