三千论坛

标题: 一个很好的会员服务脚本 [打印本页]

---

作者: 异仟年    时间: 2022-9-5 20:48
标题: 一个很好的会员服务脚本

unit 会员服务;
2 K# u: x5 Q- a# L; \
, Q; e, Q8 }: O7 g7 _interface
: A: v+ _/ h% q2 C; r& {
# Q3 @: x. N& V% M; A. c  ifunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
0 s# G/ \2 m  D, f0 a* Efunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
# m2 y7 `& S/ j, D. z* fprocedure Dec (aInt: integer);
8 N5 \; i3 w. G: b% k" {function  StrToInt (astr: string): integer;
3 @3 h% R- ~8 Z3 w* Z, j( x  G3 Ffunction  IntToStr (aInt: integer): string;
procedure exit;

) O$ h, I9 Z1 e! F. d9 J2 tprocedure OnLeftClick (aStr : String);
! W8 q6 _" q; qprocedure OnGetResult (aStr : String);
* F1 H# c! y7 L& o" @
implementation
- i. E* t1 N6 G9 H+ N8 g7 W' eprocedure OnLeftClick (aStr : String);
var
" {. Z8 u0 u$ S* u' Z   Str : String;
/ r1 Y4 y5 I- j) q( A   Race : Integer;
  e" J3 f9 j3 Y5 D4 ~% nbegin
   Str := callfunc ('getsenderrace');
) U6 m9 W4 |! b( G6 m; ]3 ^7 m9 j   Race := StrToInt (Str);
1 m1 u( j9 T  r+ ~   if Race = 1 then begin
6 R5 N6 Q( o  @' Z" E* M6 {      Str := 'showwindow .\help\会员服务.txt 0';
) c% y; c+ Q3 o% Q& b, T( y" p0 X      print (Str);
      exit;
   end;
end;
, y% j7 C  F! p0 r$ i! {procedure OnGetResult (aStr : String);
5 U- a' t8 D$ s7 zvar
      Str, Name, MapNo, WqName : String;
: o# Q6 t6 [7 Y) G, i+ ?         iCount, MapID : Integer;
; b8 ?$ c% s) ^. _begin
   Name := callfunc ('getsendername');
   if aStr = 'close' then begin
, e. Y) N5 S% l7 P      exit;
' u, D; ]( M& w8 L4 ^4 ?) K   end;
) w  ?% A2 C) J7 {5 @9 C* X   if aStr = 'xuanzhe' then begin
      Str := 'showwindow .\help\会员服务1.txt 0';
      print (Str);
      exit;
  G6 e( }. e9 K& s- v   end;
! B- j  w  m) o; O6 O3 L  if aStr = 'lingqu' then begin
  L; |- |: |3 [# ~- u) E, i+ y8 S! j   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
$ D4 s! t# F( w/ I5 a   if Str = 'false' then begin
      print ('say 你不是会员吧');
1 I- c) A+ T& r: g/ t      exit;
% ~* v6 t' I5 z    end;
      Str := callfunc ('checkenoughspace 5');
      if Str = 'false' then begin
         print ('say 物品栏已满需要5个空格!');
: @+ G7 S1 e. I- M# L' K- }         exit;
      end;
       for MapId := 0 to 200 do
       begin
       MapNo := IntToStr (MapID);
, W/ |0 E  w; |; @& q       str := 'sendnoticemsgformapuser ' + MapNo;
% H* d5 k+ _4 b0 {$ h- l3 h. c       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
$ j4 Z5 N/ I; k7 V3 x& p" t9 U- k       Str := Str + Name;
       Str := Str + '』_领取了会员专用修炼物品开始修炼啦! 1';
) [7 b5 [# q& Q' r2 V/ V! X& H- r       print (str);
/ x0 ^4 E$ m& F5 p& p. N      end;
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
- P, O5 q/ g. M; _0 E    print ('putsendermagicitem 修练斧:1 @会员服务 4');
  [+ F; W0 c$ |- Q    print ('putsendermagicitem 修练拳套:1 @会员服务 4');
    print (Str);      
    exit;
   end;
1 k' e% t0 }: d+ `7 {  if aStr = 'chuqu' then begin
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
- ?" D: t6 K2 ^- K# @& V  if WqName = '修炼枪' then begin
4 ~9 F2 r0 {  o( u: d3 D( t  _7 |/ {2 A     print ('say 你不是吧！想带走修炼武器！');
  ~- e8 C4 y2 ]# r$ F+ U1 M, f+ E     exit;
+ R2 d9 F. ^( k& F  A7 |2 r  end;
# Z# J( j% o. j4 S' ~  if WqName = '修炼剑' then begin
     print ('say 你不是吧！想带走修炼武器！');
     exit;
  end;
  if WqName = '修炼刀' then begin
+ e4 _  G9 E4 k9 ?% g4 f     print ('say 你不是吧！想带走修炼武器！');
     exit;
- C7 w- }9 q; r& g  end;
" L- }" w. v- B4 Q" z/ {  if WqName = '修炼斧' then begin
     print ('say 你不是吧！想带走修炼武器！');
8 B" l; d  j( @     exit;
  end;
  if WqName = '修炼拳套' then begin
* x$ i8 @3 l1 P5 P6 _     print ('say 你不是吧！想带走修炼武器！');
     exit;
4 X% c1 G, r) h  end;
* r4 J) R9 b  M% @2 o  j7 S      for MapId := 0 to 200 do
      begin
& a: j) ^" W4 O" C  f      MapNo := IntToStr (MapID);
       str := 'sendnoticemsgformapuser ' + MapNo;
       Str := Str + ' ';
       Str := Str + '【会员系统】:『';
       Str := Str + Name;
7 ^! }& ~$ k5 ^       Str := Str + '』_会员修炼完成.开始闯荡千年江湖! 1';
       print (str);
- N, X! x2 `- Y5 c5 _$ ^      end;
      print ('getsenderitem 修练枪:1');//出去就全部删除物品
% J$ W3 M% o. `' q      print ('getsenderitem 修练刀:1');
) D% Y' l8 ^' q7 a( K      print ('getsenderitem 修练剑:1');
      print ('getsenderitem 修练斧:1');
7 x7 i0 J3 J: t7 ]" {- C- y# @1 o      print ('getsenderitem 修练拳套:1');
      print (str);
* F0 i; ~$ p: l, j9 t' j      Str := 'movespace ' + Name;
      Str := Str + ' user 1 500 500';
7 M& s2 o, s" S0 B' U9 K      print (Str);
8 u- |' k" I/ H9 w  G    exit;
   end;
end;
end.

) U9 N% I! `2 w2 M1 d% k

---

欢迎光临 三千论坛 (http://3000y.com.cn/)

Powered by Discuz! X3.4