游客您好
  • 点击联系客服

    在线时间:8:30-18:00

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

Lv.7 版主
8号会员,9活跃值,2022.09.01 加入
  • 127发帖
  • 123主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
独家推荐 更多>

一个很好的会员服务脚本

[复制链接]
异仟年认证商人 发表于 2022-9-5 20:48:25 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
unit 会员服务;' _& L+ _1 [- _9 _5 s
/ X' \( I+ I. f
interface
+ F+ Z$ F: E% S5 d

; i! g7 r; V' a1 |0 ]
function  GetToken (aStr, aToken, aSep : String) : String;/ c1 M2 e# b  W
function  CompareStr (aStr1, aStr2 : String) : Boolean;) ~" v1 z2 _1 f
function  callfunc (aText: string): string;
4 X: u; O8 L( J$ K
procedure print (aText: string);6 G0 X( Z* L4 e2 w& g1 x
function  Random (aScope: integer): integer;. q6 [: D0 L, z* _' p
function  Length (aText: string): integer;
! `7 P1 q: B& B+ Y% `3 |9 [" E% \
procedure Inc (aInt: integer);
' m, x3 R* ~' R  S( y) \
procedure Dec (aInt: integer);
  @/ @) t. G- L% n6 _5 W
function  StrToInt (astr: string): integer;
+ w0 m( @. S- o- n& ^2 n" }* M
function  IntToStr (aInt: integer): string;! {* j, G' e) \- t. l9 L. H* ?
procedure exit;
! P" g7 H4 {) L1 f6 f% k

; j* a! q) C+ m, T/ }* T
procedure OnLeftClick (aStr : String);! H0 P9 x* u; _: _
procedure OnGetResult (aStr : String);' d3 p: Y7 \2 m4 j& Q, ]; T2 N0 ~

! ^8 ~3 X7 ?& M# r$ n% B' A- O1 r
implementation
3 C/ R6 o. k$ Y& E
procedure OnLeftClick (aStr : String);" d" V( z7 b* m& }) d
var
* j0 E8 g& v; k& W! j3 V
   Str : String;
% ^) x+ u% \( }+ [, N5 Z
   Race : Integer;
( t) P; ?. @# m3 x. |0 @- x. t
begin) F  d: r8 ?& T( A! y; v, |2 P& J
   Str := callfunc ('getsenderrace');: _4 L$ a' u) @6 t1 ~
   Race := StrToInt (Str);* a+ O; c# G3 ~$ L& J, K5 U6 n# C
   if Race = 1 then begin
8 O& c' A- H9 Q( M
      Str := 'showwindow .\help\会员服务.txt 0';
% b- I! L$ L7 O# x
      print (Str);
! b7 Q" _* @6 g
      exit;
+ G1 Y  |) X0 N, o) L! s9 I* S
   end;4 m- Y7 R7 e$ P- }9 R$ X
end;
& C" M- {3 R3 G( q; _
procedure OnGetResult (aStr : String);" e" T" t: B  ]# P% o- a0 `
var
! y+ i& x& i) x. B: H* n" J
      Str, Name, MapNo, WqName : String;
7 z( N8 R+ Z. L7 U! N0 p# F
         iCount, MapID : Integer;
3 R! ?, ]4 W1 a7 U7 f5 e) x
begin
9 N3 Z. U' R& |, v- G# C
   Name := callfunc ('getsendername');; @+ w" W+ B4 S1 v# I4 \
   if aStr = 'close' then begin# j) Z3 N7 H# M7 m: ?
      exit;9 l6 b7 p( `& i! l9 \" f
   end;
5 J3 E7 ^1 M+ j3 |
   if aStr = 'xuanzhe' then begin
) S9 f; c. N) @# Z. k$ u: p. i/ I; S- G
      Str := 'showwindow .\help\会员服务1.txt 0';/ H4 ^  ^) g- W1 O
      print (Str);
' [! o! t; i$ R' m
      exit;3 {0 H% F7 {5 \
   end;
# b1 f  ?, }9 q1 L: Q6 |
  if aStr = 'lingqu' then begin
8 P5 Y  h2 U7 q4 k. @, _
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设
, S5 }# {0 a& J8 E& ?/ I
   if Str = 'false' then begin
7 Z0 y4 _9 ^" n$ M; `* P) n1 V
      print ('say 你不是会员吧');2 k5 U4 g6 w, Y1 g
      exit;/ E: G3 X* `  ^& N) M6 I
    end;6 E4 S. w6 ^+ S* `  ~# Y  y
      Str := callfunc ('checkenoughspace 5');
2 N5 f6 W$ b( W. p& o
      if Str = 'false' then begin) O: e; t! w( C$ ]" m
         print ('say 物品栏已满需要5个空格!');
5 X' J; B- L9 d, Y4 v0 P4 y" t. \
         exit;
; n: G) |: \  @' G6 r
      end;- h* ^$ g4 ?2 h
       for MapId := 0 to 200 do+ f: S, F" B# |- w9 e4 {6 O9 N' J
       begin
7 f' k# F( b/ |  M, j. k) g
       MapNo := IntToStr (MapID);5 H- _! s4 J/ V% b- P- c9 M
       str := 'sendnoticemsgformapuser ' + MapNo;
/ w; |2 y% t% H; y
       Str := Str + ' ';' t) _' r% `) @
       Str := Str + '【会员系统】:';
, y) i' }: |, p* T5 F7 Z
       Str := Str + Name;
. f$ X4 x( ~# f" C9 ~
       Str := Str + '_领取了会员专用修炼物品开始修炼啦! 1';3 L% G7 C, W/ R2 Z6 k, c, t2 l
       print (str);
) z, `9 h" N* m& D
      end;
6 K$ b9 N, y' w6 V2 \7 S! P
    print ('putsendermagicitem 修练枪:1 @会员服务 4');; X# K5 v; [5 P: [) V
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   1 t* S+ r& T) d" U! k
    print ('putsendermagicitem 修练剑:1 @会员服务 4');$ a  \1 q- `; {
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
4 z2 }, W$ g1 D2 E. C4 V7 k
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');! m9 O( d- p  I" }# q
    print (Str);      
! d8 N( l; B$ C) p1 g, z4 w6 N
    exit;
# x1 c9 ~8 {$ x7 U
   end;
) `: t: n& Z4 p0 e. {
  if aStr = 'chuqu' then begin
  v8 }. K, b6 I6 ]0 b0 |
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!. m, e; t5 Z8 v: o
  if WqName = '修炼枪' then begin6 P- K4 G, {3 [8 h0 C- O) a2 h
     print ('say 你不是吧!想带走修炼武器!');( D/ Z: [; i! \* w% y- c9 v0 l
     exit;
9 Q) _9 Q2 `. u' q5 X
  end;
& r4 e: Z: Z8 P  W4 T
  if WqName = '修炼剑' then begin% }' A% F2 p+ N! ?# x" _
     print ('say 你不是吧!想带走修炼武器!');
+ ^  P- I# ^+ e# l
     exit;
; x% t  o- ~3 e4 @- M
  end;9 q& W: o% F0 ?0 Y  I
  if WqName = '修炼刀' then begin
  _% A+ M- r* Z+ E: N, {
     print ('say 你不是吧!想带走修炼武器!');
  O" @& x' N6 U! r8 Q- C" S
     exit;
/ {) k3 N% _) E, I+ S6 w+ p9 l
  end;( Q" F5 @4 l2 L. Q! y- T
  if WqName = '修炼斧' then begin
, Y) E1 e: m2 `9 E+ n* {; e
     print ('say 你不是吧!想带走修炼武器!');; N& S" m7 z: ~' c- w/ @
     exit;
) p7 [# C' p# z. P2 s" b2 D
  end;
' U7 O, S# \3 k4 a  k  ]# m
  if WqName = '修炼拳套' then begin8 c2 J+ R. w( o% L2 k1 k
     print ('say 你不是吧!想带走修炼武器!');
( }7 u) S  R6 W2 T+ y6 _4 u
     exit;
- j( s2 r4 @; t6 ~; \
  end;
! M( a3 |8 S( N/ {$ F
      for MapId := 0 to 200 do
# K0 _+ w! \- K# R: q: [' v( O
      begin  C4 X1 w* [6 J
      MapNo := IntToStr (MapID);) w3 z# b5 x7 O1 T3 y5 A$ f6 u* _& ]/ G- O
       str := 'sendnoticemsgformapuser ' + MapNo;4 r# B) U" m; P3 ]$ Z  C4 ]
       Str := Str + ' ';
, D3 O" |8 f" z
       Str := Str + '【会员系统】:';' S. m$ ~+ ~1 E5 X
       Str := Str + Name;* |, v/ s2 G+ f) I8 W
       Str := Str + '_会员修炼完成.开始闯荡千年江湖! 1';
* M$ m/ J+ A, a8 L* |
       print (str);( n* l9 k6 `+ i* G) W
      end;  J9 Y5 t; N+ Y; `
      print ('getsenderitem 修练枪:1');//出去就全部删除物品, @5 ^4 _0 n7 A% G5 c
      print ('getsenderitem 修练刀:1');! j- B) g+ ^0 a3 a1 Y. X0 W8 C, f
      print ('getsenderitem 修练剑:1');" Z4 ?  M, {8 y' L! F
      print ('getsenderitem 修练斧:1');
0 C" r( c3 R" _5 K% Y
      print ('getsenderitem 修练拳套:1');- V; F! o4 E$ A# @3 N
      print (str);
. C0 c5 E1 w: N, x
      Str := 'movespace ' + Name;, g0 y% m; ~5 {' G! Z* c1 N
      Str := Str + ' user 1 500 500';
" T6 j, Z# l9 J
      print (Str);
# e0 [; c  y! R- D- S( Y2 x
    exit;& _. J6 Q) Y! ^; e
   end;" _4 L! ^" S; e: a' a4 r! S, N
end;: ]- A7 [$ e6 Z9 J% Q- ^5 v. ^
end.

9 X3 ~2 K* w/ i7 o. {
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

Powered by Discuz!X3.4 ©2001-2013 Comsenz Inc.闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号