游客您好
  • 点击联系客服

    在线时间: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 会员服务;
; b. W+ p; X9 X3 o, X
* u& t# J# X$ [
interface
) \9 q; M9 e7 W- j
# P. ^" E& Q9 R* e$ T& {, u
function  GetToken (aStr, aToken, aSep : String) : String;9 B' Z3 h7 G; C% a$ m
function  CompareStr (aStr1, aStr2 : String) : Boolean;" ]# p( k  q( h0 b
function  callfunc (aText: string): string;
6 Y- g$ G+ _( ]4 Y: v! H2 E
procedure print (aText: string);* L/ W1 U8 {7 B3 P' {8 x( \$ k" S# H( c
function  Random (aScope: integer): integer;
/ R% ~2 ?; n5 E( X7 l
function  Length (aText: string): integer;
% s. W/ H+ V5 m: N: z0 Q8 Q4 Y' t
procedure Inc (aInt: integer);
" V# C, e; ]' I+ e4 L
procedure Dec (aInt: integer);- L! X0 l9 W# E! j( ?, `" \' S
function  StrToInt (astr: string): integer;* h$ }+ @# x! U; K
function  IntToStr (aInt: integer): string;2 n3 g( ]8 j8 |2 q9 I* f( g  x
procedure exit;( n7 E) H6 H2 Q1 |
* ^6 D; Z; O  n
procedure OnLeftClick (aStr : String);
2 @9 ~9 Y: U# |; `* ~+ S
procedure OnGetResult (aStr : String);
+ c  ^4 P1 _' J- u- a% k
6 n! m$ a% i( _7 I
implementation
/ [+ y' Q5 X1 o( b
procedure OnLeftClick (aStr : String);
6 o, P- @* p/ s# C: C
var
; c- v* m# N5 T
   Str : String;
0 l. @* D) i- k+ A
   Race : Integer;
( q: g7 s: N: P# {4 G
begin
/ R# S$ \  Y. A2 `0 B0 C( X
   Str := callfunc ('getsenderrace');
$ E# C, `$ ?4 }
   Race := StrToInt (Str);
4 O/ R( d+ S4 _* j8 k0 d
   if Race = 1 then begin
2 _4 M& t, s, Z! D
      Str := 'showwindow .\help\会员服务.txt 0';- ?, `7 o0 d7 G2 y6 v- U" Z
      print (Str);
. Z2 r4 v. {9 V9 R
      exit; : |6 Y3 i# B# W" M: F8 Y  N
   end;
5 o6 ]' J! _7 @; _  a0 ~
end;
. J) e+ l0 L9 N: s1 s
procedure OnGetResult (aStr : String);
* ?- B3 S- z/ w$ I
var
8 O6 _; X- U% w8 S& d! }* ^
      Str, Name, MapNo, WqName : String;- X! g  C$ R9 U: ]0 z
         iCount, MapID : Integer;* R9 B7 ]2 S) \: d" _) T8 A8 z
begin" y" F' y( ~; t( Q8 X
   Name := callfunc ('getsendername');
, V8 ?  u; I$ S" q5 E
   if aStr = 'close' then begin$ S/ S; z+ d2 o. j6 h6 ]6 }: _
      exit;
  A0 J* s' }6 c% {* k" U; c4 G& r
   end;
! e/ A" D% i3 C; q5 w- m4 r6 }
   if aStr = 'xuanzhe' then begin/ d* q/ p4 M. c
      Str := 'showwindow .\help\会员服务1.txt 0';
$ T0 A3 m$ F1 A- J& _; u1 Y
      print (Str);# z; d4 x2 S# i& v2 o
      exit;3 d- ~' n, b: t
   end;0 m4 |8 ^9 Q( s. L" V& @2 V- b* N
  if aStr = 'lingqu' then begin. o! W$ f9 V* b$ s, q5 _8 i
   Str := callfunc ('getsenderitemexistence 烈焰金戒:1');//此物品自己可以设# B" e: D/ R/ P5 v8 Y& j* O
   if Str = 'false' then begin
, w5 W$ h% U! m( ^3 t, E
      print ('say 你不是会员吧');1 O# F; Q* t  |0 k2 [3 ?
      exit;% s" G' u6 J7 B
    end;8 H1 h; |! p2 ~9 j  _+ t
      Str := callfunc ('checkenoughspace 5');
; p/ }  M# o- n% W6 L
      if Str = 'false' then begin
/ ]" }; p' v5 B! d% l5 O& Y
         print ('say 物品栏已满需要5个空格!');
  W# G. j& o* z
         exit;+ |9 Q, y( f1 G4 `
      end;3 G3 Q. M$ t8 e3 ^* Y
       for MapId := 0 to 200 do* w4 B9 P  V& |
       begin
4 h' T" i1 s8 \1 L6 \. F) R6 T4 r
       MapNo := IntToStr (MapID);
4 f  ~8 v( m0 n' Y! u
       str := 'sendnoticemsgformapuser ' + MapNo;; G* I. Q3 i/ `4 H8 l
       Str := Str + ' ';
* Q4 Y( N7 P$ `5 `6 o" H% I8 ^
       Str := Str + '【会员系统】:';/ g; w  T9 u9 j3 d. i7 `: V
       Str := Str + Name;9 W; d# m" u1 M* w* v" B
       Str := Str + '_领取了会员专用修炼物品开始修炼啦! 1';
0 u4 [5 p' }2 w2 i
       print (str);1 S, g4 |. L  K6 @8 G
      end;. i9 y9 d) j6 a3 ?* R. ^' D
    print ('putsendermagicitem 修练枪:1 @会员服务 4');
0 d* P) a& R% s7 Q
    print ('putsendermagicitem 修练刀:1 @会员服务 4');   
2 [1 ?* }0 ?6 W8 U
    print ('putsendermagicitem 修练剑:1 @会员服务 4');
3 e0 N6 H4 i- [
    print ('putsendermagicitem 修练斧:1 @会员服务 4');
/ Z$ l% c5 B/ C2 Y# e
    print ('putsendermagicitem 修练拳套:1 @会员服务 4');* A' w% V* }) w
    print (Str);      / S) }' q: J' \! q+ }: l
    exit;/ }$ k2 m. B. K2 D* V
   end;
4 s) v9 N' J3 w4 z  ]3 f
  if aStr = 'chuqu' then begin
, n. W. U( d: W  w- p6 M- L- A4 W
     WqName := callfunc ('getsenderwearitemname 9');//检测是不是拿在手上,因为拿在手里就无法删除!特别声明此检测执行命令段由忧郁工作室小飞技术支持协助完成!特别鸣谢小飞支持!
& k" s% s0 M) `
  if WqName = '修炼枪' then begin
, V# L+ Z4 P3 }, I4 O& z
     print ('say 你不是吧!想带走修炼武器!');
7 _* x9 O' j) u4 a, L7 s( t
     exit;
. e- n2 _1 f( |1 n/ b, s" \
  end;) L' t2 Z9 [1 r/ t
  if WqName = '修炼剑' then begin
$ M& e2 l, y) p7 }* X6 Q3 A
     print ('say 你不是吧!想带走修炼武器!');
) X0 P! R5 ?/ E: p' _
     exit;+ s7 \3 e2 p7 n; E/ O/ Y
  end;! l3 O$ I& l; g& q
  if WqName = '修炼刀' then begin
# i; ]+ k  T) N. k/ S2 x/ S
     print ('say 你不是吧!想带走修炼武器!');
5 R9 {3 P( U; _. n5 J+ B% }
     exit;7 M* S+ x/ \( T* E. y) w
  end;
2 j( o; [- x1 c5 A  e
  if WqName = '修炼斧' then begin
9 g; d" @. m+ l: T
     print ('say 你不是吧!想带走修炼武器!');) h8 E! j$ C9 f
     exit;
6 n; Y% f/ P1 \2 {' r# v
  end;
2 f: k( B. D6 Y) k1 l( y
  if WqName = '修炼拳套' then begin6 L3 g1 t5 l$ p' E7 D
     print ('say 你不是吧!想带走修炼武器!');( J' R1 d3 F( x" D
     exit;4 m+ @6 h$ u$ F( J" s) ^
  end;
* N/ @/ D& ]6 P. I
      for MapId := 0 to 200 do
( h1 e0 C" \$ O4 a4 f
      begin
* d$ J& L- |" t* j) g
      MapNo := IntToStr (MapID);
; z4 I7 f& V4 t( o
       str := 'sendnoticemsgformapuser ' + MapNo;
. x# J/ s8 G3 ?$ c/ B$ ^
       Str := Str + ' ';7 }0 g' |* D+ v: N
       Str := Str + '【会员系统】:';/ b' y8 R9 D6 ]: d
       Str := Str + Name;
9 e  b+ n+ t5 s' b2 `) R
       Str := Str + '_会员修炼完成.开始闯荡千年江湖! 1';
7 C+ }4 ?! ], H
       print (str);
+ p; P. I# X' e* q- ?$ R
      end;
' p5 f: f6 \9 w( W/ ~* n% L
      print ('getsenderitem 修练枪:1');//出去就全部删除物品8 E$ s2 f" D- `! c( \! B8 T
      print ('getsenderitem 修练刀:1');/ G' X8 O* O; U: X5 b# x! E& _
      print ('getsenderitem 修练剑:1');9 H; ]! }! C: V, I$ h
      print ('getsenderitem 修练斧:1');
/ O; l+ w/ }2 j4 w4 o
      print ('getsenderitem 修练拳套:1');
2 `7 ^6 D/ O7 O& `0 a
      print (str);
- }2 \' ]* H+ H3 I; ]
      Str := 'movespace ' + Name;
3 T1 z# Y0 n, U3 r" k* C
      Str := Str + ' user 1 500 500';
" R5 R* s1 O: O$ M' h. O/ i# |! |
      print (Str);
+ }  n, ?% z, v8 a8 h6 e  l1 c# a. V
    exit;% Y; J* R! {0 R+ u# |
   end;
# o2 x/ I+ t6 L" q8 H
end;2 k1 H& \3 d' f$ U( s5 \, u8 d
end.
! ~* @" X3 }$ e: B
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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