其他引擎传奇版本每攻击怪物一下为一刀,每天晚上12点清空刀数脚本

* C4 }) H+ @, F$ c/ O  C+ h0 L" U* p


" _2 [5 E% G! L9 L/ T- h9 T[@main]
#IF
7 f* ?7 v  j6 g1 W; Z5 s/ Q9 b/ ECHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
2 `$ N+ n( \& q: F6 w#ACT


#IF
# r8 q% I( E2 m: [5 `#ACT
4 M) I, T% n0 Z9 W" A1 Q" F4 c$ F8 ~MOV N$刀会员 9000
DEC N$刀会员 <$STR(J96)>
#SAY
. a+ J& Y- m2 z" L9 P' |/ t5 Y{会员特权：/FCOLOR=253}\
========================================================\
商铺购买物品享受 {9/FCOLOR=250} 折价格 <[元宝服务]/@元宝服务>\
会员拥有 {2/FCOLOR=254} 倍经验倍数、{1.2/FCOLOR=254} 倍攻击倍数\
========================================================\
还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
<提示：每攻击怪物一下为一刀,每天晚上12点清空刀数>\
{========================================================/FCOLOR=241}\
0 f3 J1 C. P; |( M( j* M5 H<[办理永久会员]/@会员> {(30天)/FCOLOR=251}      {到期时间：<$STR(S$时间)>/FCOLOR=250}\
; g0 c' Z7 B9 ^1 H2 Y+ p3 H
# U2 Q& k" L5 q# L- K
[@免费]
* _! g$ }' f5 |( @* D* S#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
5 c2 f5 }, `- B! k#ACT
7 l6 U1 x! ?+ UMessageBox 会员未到期，无需办理
break

) p% A' E1 h% r2 }( u  L  L6 j. c3 G
#IF
EQUAL N$刀会员 0
( i' @2 E0 E3 A+ E: d) p7 Q1 n#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 0 0
;会员商铺9折
; O/ h3 I/ o: Y0 b7 w/ t* V2 `SetShopItemPriceRate 90
KILLMONEXPRATE 200 86400 1
POWERRATE 120 86400 1
MessageBox 你的会员到期时间是【<$STR(S$时间)>】
#ELSESAY
8 ^& q/ i3 k1 h; p( R# u还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
6 x( F# Q2 R1 _) ]9 F: N5 Y

[@会员]
#IF
6 j$ b, o4 v$ [CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
7 o3 S) O: ]/ ~+ V( ^4 N#ACT
MessageBox 会员未到期，无需办理
2 I- H0 i. c! O2 }# [( w- v#ELSEACT
# B+ V# `' M  @! i+ A7 O, T6 e9 \; kADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 30 0 0
;会员商铺9折
6 ?2 t7 w6 h# {* j* x. O0 W, J" b) gSetShopItemPriceRate 90
: U( Q' u( _  L4 s  V, h- y' F8 YKILLMONEXPRATE 200 2592000 1
4 w* C: w( G1 ^! iPOWERRATE 120 2592000 1


( O& P3 K* K8 c#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
4 T: Y& B8 Q9 c1 B' ^: JMessageBox 请联系QQ(41054098)赞助\你的会员到期时间是【<$STR(S$时间)>】
2 B! D5 F$ ~& Z% x$ n0 f' T

' }" ^- y8 V2 }; d3 B9 `' Q: g2 j[@元宝服务]
<拆镶嵌/@服务1> <对蒙元宝/@服务2>\


4 k8 U* Y3 t8 ~0 I  _# `[@服务1]
. o) E: S6 ]( O: h放入需要拆卸的装备,第一次收费1000元宝，每次拆卸都会累加100元宝\ \
{拆卸成功后：/FCOLOR=250}{放入的拆卸装备将会返还所有镶嵌石/FCOLOR=251}\ \
<TEXT:需拆卸的装备:260:102{FCOLOR=2}> <TEXT:耳又:248:247{FCOLOR=251}/@取回>\
$ Q+ v3 ]( x, ~<ITEMBOX:1:22:392:260:176:0:0:5,6,10,11,15,20,21,22,23,24,26:254#此处放入需拆卸的装备>\ \

6 M9 u: ?* @8 \4 y7 n' F( N
5 t) |# Q. _- j; z- E[@ItemIntoBox1]
#SAY
放入的装备{【<$BOXITEM[1].NAME>】/FCOLOR=251}镶嵌的位置（8个）\ \
& J: D7 R" M7 ?$ w# }镶嵌位置一：<$STR(S$镶宝石1)> <[拆除]/@拆除1> 镶嵌位置二：<$STR(S$镶宝石2)> <[拆除]/@拆除2>\
镶嵌位置三：<$STR(S$镶宝石3)> <[拆除]/@拆除3> 镶嵌位置四：<$STR(S$镶宝石4)> <[拆除]/@拆除4>\
镶嵌位置五：<$STR(S$镶宝石5)> <[拆除]/@拆除5> 镶嵌位置六：<$STR(S$镶宝石6)> <[拆除]/@拆除6>\
镶嵌位置七：<$STR(S$镶宝石7)> <[拆除]/@拆除7> 镶嵌位置八：<$STR(S$镶宝石8)> <[拆除]/@拆除8>\ \
<[一键拆除]/@一键拆除> 放入的装备有多少镶嵌返还多少，只需消费一次元宝\
#ACT
. B  ^. N( q9 m6 i1 G7 iGetItemStoneInfo boxitem1 0 0 <$STR(S$镶宝石1)>
$ V8 L& ]* |  Q1 ~/ [GetItemStoneInfo boxitem1 1 0 <$STR(S$镶宝石2)>
GetItemStoneInfo boxitem1 2 0 <$STR(S$镶宝石3)>
* S* Q  q& r) c( e. ?GetItemStoneInfo boxitem1 3 0 <$STR(S$镶宝石4)>
6 X; o' g0 m* XGetItemStoneInfo boxitem1 4 0 <$STR(S$镶宝石5)>
GetItemStoneInfo boxitem1 5 0 <$STR(S$镶宝石6)>
3 x4 ]( U$ A. @  g( D& {GetItemStoneInfo boxitem1 6 0 <$STR(S$镶宝石7)>
1 e% E( a( I# W- J; j' }GetItemStoneInfo boxitem1 7 0 <$STR(S$镶宝石8)>
MOV N$元宝累计 1000
INC N$元宝累计 <$STR(J171)>
  R+ V$ `& ~# J" Z( G; t- E- B3 Y, C* S
* m5 X# {  i$ j6 q
[@拆除1]
. r) R3 I1 f: Q3 n#IF
8 j* t* `+ ]! C- s; ~; W. K0 E' H' h+ XCHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
- `* G; J2 ?+ g! }GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
- q8 u+ v. ]' YINC J171 100
#ELSESAY
7 o2 L! U+ T$ p. X/ u你的元宝不够【<$STR(N$元宝累计)>】

1 q! o8 u% t/ A' n2 Z2 V! H! ^
[@拆除2]
2 Z5 U' S+ H5 a7 |8 X/ }#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
; l  L* n2 \' a: q/ Z  g#ACT
1 @- r/ P# z/ UGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 2
9 g6 P" O1 j- Q/ N& @/ nINC J171 100
#ELSESAY
: ~. w3 q' T' J1 }1 q: T8 U你的元宝不够【<$STR(N$元宝累计)>】

2 a1 K9 [& I7 M" p/ b2 N
[@拆除3]
7 Q% W+ K* }+ G+ W/ ?#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
& L2 K; G  f7 A- O: A5 uGameGold - <$STR(N$元宝累计)>
* Q. l' D7 y) _: N; A2 x5 SItemoffStone boxitem1 3
INC J171 100
: R1 X( v: W5 [' K#ELSESAY
4 T$ f* T5 s: Y2 }+ _5 p你的元宝不够【<$STR(N$元宝累计)>】
2 P# m$ D5 ?: k( ^* t
! i( d2 V- g0 y+ f
[@拆除4]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
& A* v9 L9 G8 N$ uGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 4
* K1 C% w4 E4 H9 a, ~: w2 XINC J171 100
#ELSESAY
4 @( v5 H! r) D7 N% A% L你的元宝不够【<$STR(N$元宝累计)>】

" a2 B4 P2 [( k! u0 w6 u& {
7 Q1 U8 g, _- C2 i- b* [9 G3 B[@拆除5]
#IF
5 y+ p( s- A5 |+ H$ a  V6 G6 E% `' f) xCHECKGAMEGOLD > <$STR(N$元宝累计)>
4 c6 ]9 @2 V* D; R! n#ACT
" [( W1 b& C$ [" E3 j4 cGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 5
INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
, Y) J6 _" l7 ^
: g5 _2 l1 L' v9 ~! R% ?0 z  T, l
$ l! I" \# i) F7 C5 j[@拆除6]
/ B/ z7 R/ q9 f. v#IF
. z7 k8 ~" F0 X! \  N6 ~7 `CHECKGAMEGOLD > <$STR(N$元宝累计)>
7 s2 V- m+ L$ V7 m8 A#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 6
INC J171 100
6 e0 j5 k$ M# h( n#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


" M4 q% g3 s  ?/ L6 A+ S9 F[@拆除7]
#IF
. e  o! `+ q6 J; _7 X5 YCHECKGAMEGOLD > <$STR(N$元宝累计)>
! t% X: \, a, J5 E1 z7 i#ACT
GameGold - <$STR(N$元宝累计)>
; E- r8 p  \$ o( \6 P5 cItemoffStone boxitem1 7
INC J171 100
3 i8 `( P9 M% {# ^# d#ELSESAY
' }+ x- w& v# D/ ?, n你的元宝不够【<$STR(N$元宝累计)>】


8 _3 b5 @  w. f. F/ B- _" w[@拆除8]
' g1 x9 O7 [) {2 U# ?# }6 O#IF
. o5 F$ i" u( |2 i' E5 BCHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 8
INC J171 100
#ELSESAY
5 P, M3 h1 Z0 m你的元宝不够【<$STR(N$元宝累计)>】

: e' R: d! s; F" f! N& X
[@一键拆除]
9 Y- t5 @" j( h0 B#IF
; l7 g! S2 L3 b' eCHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
1 i6 m  W* y+ G( T+ u0 {  f; |GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
ItemoffStone boxitem1 2
; B6 C$ K3 g' w$ Y# |ItemoffStone boxitem1 3
  e3 [  V8 f. F  C; ~ItemoffStone boxitem1 4
ItemoffStone boxitem1 5
ItemoffStone boxitem1 6
/ n( f7 ]* ]5 B5 q% oItemoffStone boxitem1 7
0 c+ H" I! D5 K0 C1 _& S1 g) EItemoffStone boxitem1 8
! p$ O! r8 t* Y6 eINC J171 100
# ~- z% w$ D( ^+ Z#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
* M4 V9 a, B5 L8 f) h

[@服务2]
3 _; h6 a1 |5 ~' z" c% p下注你要对对蒙的元宝<IMG:2155:34:0:0>数量\ \
& r4 i! K) h, W! k2 C  {4 J* Q<INPUTNUM:1:0:-10:100:0:0:255:251:1:100:禁止为空，最小对对蒙元宝数量为1，最大为100:输入对对蒙元宝数量:247>\
) f7 S* ?/ [1 U<IMG:2155:34:0:0> <TEXT:[对对蒙下注]:0:0:1/@对蒙元宝>\ \
8 Z& |+ T0 k* o9 O0 K0 t<IMG:1642:29:2:-8> <TEXT:[对对蒙玩法]:7:0/@对对蒙玩法>\

% t, p8 i( s/ N4 L) ?
9 B% _6 W; g1 m" N4 O  ]0 {[@对蒙元宝]
& e$ A3 @# g& q1 V#ACT
% }, M0 l( j5 F7 r# P) kMOV N$对对蒙数值 <$NPCINPUT(1)>
5 A9 i; {) t' ~# ~;SENDMSG 5 【<$STR(N$对对蒙数值)>】


#IF
' \9 s$ w7 v4 q  x/ B$ M5 yCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 1
% U0 ^- t0 [  Z) z#ACT
0 m/ R3 K" H1 c2 MGameGold - <$STR(N$对对蒙数值)>
) d  S$ v1 ~0 l0 c( a' x# eGetRandomText ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
6 @' X& q9 H( jGetDBItemFieldValue <$STR(S$随机武器)> SC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


" T0 r9 K4 x/ C; x( b* c#IF
7 }( O  A5 K. P& Y6 GCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 2
#ACT
, k0 g$ y* D# w3 M  KGameGold - <$STR(N$对对蒙数值)>
0 t' H6 a2 i" z# ~: s& W8 y' B! V+ wGetRandomText ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
" J* u' K4 N7 G1 \, F( R2 i8 DGetDBItemFieldValue <$STR(S$随机武器)> MC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>
# U8 Y$ G' b) a; y4 n/ [

4 B6 Z* ^. s2 T; A+ f) e1 \, G#IF
CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
. V+ D$ ^: C& W: `3 WRANDOMEX 1 3
#ACT
GameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
) U$ x- L/ k  yGetDBItemFieldValue <$STR(S$随机武器)> DC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
: \% e; X3 a: K' R8 a2 W当前对对蒙的装备是 {战士武器/FCOLOR=70}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
, N. L5 w: s' U& m$ E0 T2 O# ^<TEXT:武器攻击上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
<[再来一局]/@服务2>\
& `" D2 b3 B) p& u#ACT
& u5 b  P8 E7 ?7 B( Y  x8 _# Zbreak
( R+ z. L% }$ g+ g

0 l" T. B: l, L( S3 c% M+ |#IF
7 R9 Y+ i+ D/ k# a+ n) WCHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
+ |: n3 g; v$ j: z: n/ z当前对对蒙的装备是 {法师武器/FCOLOR=70}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<TEXT:武器魔力上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
" I  M3 E; v0 q4 O' i! t+ d{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
<[再来一局]/@服务2>\
! {" f: H! c- m+ @7 H! X* @1 ?+ l0 m#ACT
break
% \3 o. y4 B6 B- k% ?
7 ?, q: [5 H# r3 t% ?# i& K
& N- `# R( Z1 B6 o#IF
  q- T  Z  r* e* d/ S: `$ \CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
8 x" Y  I5 F# G* O2 R9 mEQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
( ]  m4 X0 Z+ U$ n+ m#SAY
+ D2 V7 I# f* j* f! ~8 }当前对对蒙的装备是 {道士武器/FCOLOR=254}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
( l8 ^* E- o1 G<TEXT:武器道术上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
<[再来一局]/@服务2>\
#ACT
break
; x7 U( _: l& A#ELSESAY
/ x9 f0 i$ v$ x' O% i+ }当前对对蒙的装备是\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
8 X( W4 X" W$ Y7 e, A% n2 p<TEXT:武器上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
( h7 E8 v- L  F. J<对对蒙失败> 损失 <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>\ \
7 |3 m! E, J7 A* B0 U<[再来一局]/@服务2>\
5 E& G" d0 B. R- {: J/ X3 e& x

$ @8 h/ K7 R* T" |9 a& U

0 O  S( w+ p# U$ S[@对对蒙玩法]
$ _1 L# C5 ]  E  I{对蒙元宝的玩法：/FCOLOR=251}\ \
! r0 j0 b( |7 N) q玩家先消费指定元宝数量，点击对对蒙下注，然后系统会随机显示一件\
" V# n% G8 `5 ?9 t4 g8 W( H6 J武器，根据武器属性的上限与玩家下注的元宝数量相同，将会获得元\
+ g$ u& O# v! @' I! G宝奖励{（显示武器为三职业的）/FCOLOR=247}\
下注数量与系统显示武器属性上限相同，双倍下注元宝奖励\
下注数量与系统显示武器属性上限不同，损失下注元宝\
<[返 回]/@服务2>\
( E8 m( W' {7 S) i+ f: Y