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

9 Q4 g" k! u( a' Z" m; A


: t: V) T4 u6 ]! D
- ~1 n2 g- P+ Q# N! Z# R4 [  w* g! O[@main]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
3 r8 v4 i% d4 I7 ^0 `! N" e#ACT


) `# b% w4 R" q3 e& v#IF
# Z; v2 P9 G' X5 _#ACT
: ?1 p3 X* q+ M/ H* B, I- l; U6 cMOV N$刀会员 9000
DEC N$刀会员 <$STR(J96)>
8 z3 R4 b. U+ Z' z6 c#SAY
{会员特权：/FCOLOR=253}\
3 G% Q3 L' X' J========================================================\
6 X, l: k+ m5 t4 z6 y商铺购买物品享受 {9/FCOLOR=250} 折价格 <[元宝服务]/@元宝服务>\
) I$ N8 v8 @& T- V+ R- f会员拥有 {2/FCOLOR=254} 倍经验倍数、{1.2/FCOLOR=254} 倍攻击倍数\
========================================================\
还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
<提示：每攻击怪物一下为一刀,每天晚上12点清空刀数>\
5 M7 w6 B3 z  }# l# `  o{========================================================/FCOLOR=241}\
<[办理永久会员]/@会员> {(30天)/FCOLOR=251}      {到期时间：<$STR(S$时间)>/FCOLOR=250}\
& G/ S% C$ k5 K

[@免费]
0 v/ r2 @# x# k: }4 m#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
; R9 M* t0 i9 t1 t7 A6 `( u#ACT
MessageBox 会员未到期，无需办理
break
: O( f' p/ H' U0 m5 B) ]

4 l$ g3 l5 r' F9 P#IF
8 w3 Y6 r$ H9 |! e' G' SEQUAL N$刀会员 0
" F# z! x- w; ^0 a#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 0 0
' s+ [7 {2 j% ]5 E;会员商铺9折
: G* n5 {2 [  z! bSetShopItemPriceRate 90
KILLMONEXPRATE 200 86400 1
; J. K: N$ z1 n, i4 u" A) R5 f5 vPOWERRATE 120 86400 1
MessageBox 你的会员到期时间是【<$STR(S$时间)>】
#ELSESAY
还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\

8 \' u- c# e. [& g/ s. E  C3 ?8 L
[@会员]
; j+ m6 g: ~4 k1 R4 p$ c* }#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
+ n/ V0 Z4 \! _#ACT
MessageBox 会员未到期，无需办理
#ELSEACT
  x8 C( V5 U+ u4 d/ |ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 30 0 0
( G' A# ]6 Z+ @. Q  \3 k;会员商铺9折
SetShopItemPriceRate 90
KILLMONEXPRATE 200 2592000 1
% o4 _& M* E5 S. k" o8 l, Y# @; I) f5 DPOWERRATE 120 2592000 1
1 E& ^8 V& E* h2 s: a3 ], j
# i: u  r% `/ B. @' W
#IF
* e' y9 R0 ^& Z( ACHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
: n" E! u4 X! d7 r: [9 {4 z' b#ACT
MessageBox 请联系QQ(41054098)赞助\你的会员到期时间是【<$STR(S$时间)>】

& n' B+ x' {% m- Z
- E4 s7 p4 J9 a/ g' b, D[@元宝服务]
+ T# ?5 z7 M0 z4 i; m: ?<拆镶嵌/@服务1> <对蒙元宝/@服务2>\


[@服务1]
/ k! d3 S  }- s5 E9 L放入需要拆卸的装备,第一次收费1000元宝，每次拆卸都会累加100元宝\ \
# b- H& w* J( ^# b$ R6 k) |{拆卸成功后：/FCOLOR=250}{放入的拆卸装备将会返还所有镶嵌石/FCOLOR=251}\ \
<TEXT:需拆卸的装备:260:102{FCOLOR=2}> <TEXT:耳又:248:247{FCOLOR=251}/@取回>\
<ITEMBOX:1:22:392:260:176:0:0:5,6,10,11,15,20,21,22,23,24,26:254#此处放入需拆卸的装备>\ \
) u7 R3 I  M! j' L  K2 O

8 N; W! D, x/ p8 m[@ItemIntoBox1]
! }3 J' I- N9 j: a: r+ c#SAY
放入的装备{【<$BOXITEM[1].NAME>】/FCOLOR=251}镶嵌的位置（8个）\ \
* o3 y( P( \' c: s+ j- q6 |- ?镶嵌位置一：<$STR(S$镶宝石1)> <[拆除]/@拆除1> 镶嵌位置二：<$STR(S$镶宝石2)> <[拆除]/@拆除2>\
! k) N+ }' S& n2 `  U镶嵌位置三：<$STR(S$镶宝石3)> <[拆除]/@拆除3> 镶嵌位置四：<$STR(S$镶宝石4)> <[拆除]/@拆除4>\
镶嵌位置五：<$STR(S$镶宝石5)> <[拆除]/@拆除5> 镶嵌位置六：<$STR(S$镶宝石6)> <[拆除]/@拆除6>\
镶嵌位置七：<$STR(S$镶宝石7)> <[拆除]/@拆除7> 镶嵌位置八：<$STR(S$镶宝石8)> <[拆除]/@拆除8>\ \
( `# I/ N- Z6 I5 R, N( \- D8 r<[一键拆除]/@一键拆除> 放入的装备有多少镶嵌返还多少，只需消费一次元宝\
9 M1 A6 u# _! |* Q4 \: _#ACT
GetItemStoneInfo boxitem1 0 0 <$STR(S$镶宝石1)>
GetItemStoneInfo boxitem1 1 0 <$STR(S$镶宝石2)>
9 g. b' F2 P5 z  h6 w/ z, oGetItemStoneInfo boxitem1 2 0 <$STR(S$镶宝石3)>
2 k: J% j" E  \/ j8 ^GetItemStoneInfo boxitem1 3 0 <$STR(S$镶宝石4)>
6 i: s0 @: @1 lGetItemStoneInfo boxitem1 4 0 <$STR(S$镶宝石5)>
GetItemStoneInfo boxitem1 5 0 <$STR(S$镶宝石6)>
9 h6 e, |6 o/ g& FGetItemStoneInfo boxitem1 6 0 <$STR(S$镶宝石7)>
GetItemStoneInfo boxitem1 7 0 <$STR(S$镶宝石8)>
8 E" D6 Y; ~+ [3 S, M6 u" [MOV N$元宝累计 1000
INC N$元宝累计 <$STR(J171)>
: v. l; w  r/ C
: Y( I; m- h# S
[@拆除1]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
/ G% F, A5 i6 \9 X  `' ~GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
+ [' x% B! y( I" g1 ~) wINC J171 100
#ELSESAY
" V$ h* z) \$ f2 `2 G2 q' B你的元宝不够【<$STR(N$元宝累计)>】


[@拆除2]
% ~- M2 Q# l1 C#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
$ B4 m# J" G# p8 ~7 u#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 2
INC J171 100
#ELSESAY
" F" P- y' U. C# i. y8 p7 k6 ]你的元宝不够【<$STR(N$元宝累计)>】

& m  Q% e6 i6 @
9 o# I! ^* G/ A[@拆除3]
) T3 R9 H5 k% w" |& |) x#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
5 }3 k) C4 [1 m8 N; gGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 3
: D) j/ X9 A6 b7 w, TINC J171 100
- u) Q1 ]; t/ Q' ?+ B! A#ELSESAY
# i0 C4 p( n, d: Y1 H你的元宝不够【<$STR(N$元宝累计)>】
/ g' Q2 {# j6 r1 R
$ ?7 _5 N2 A2 I5 ?
7 ^# F1 ]$ z9 ?+ Y: j[@拆除4]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
. D1 R: P$ q% ^4 ], F#ACT
! ~: d1 ^/ O6 CGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 4
INC J171 100
#ELSESAY
" L# O7 w2 `- G* q你的元宝不够【<$STR(N$元宝累计)>】
& g7 S9 J2 a& j" [; D" m# a

1 Q& u. s8 l& S' I# E* k1 [[@拆除5]
, F1 t6 T! O, h, h% ], X+ o#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
5 m/ p9 }5 G. u2 s: b2 oItemoffStone boxitem1 5
7 K1 w  g6 x+ z, j3 w  P! @INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


[@拆除6]
) B: B, {/ \& p, K. w#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 6
: B4 J% x1 z5 x# w3 Q% R/ `INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
9 X" ?. W7 E2 T& D' L3 Y  z# f/ F
; J0 Q: ?4 _5 T/ o4 F8 H" r; l
[@拆除7]
$ B$ ^! O/ y" y4 }9 D' y. S: O#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
; ]# E/ G, z; |" t4 F- L$ T' {4 ^+ FGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 7
INC J171 100
6 @% f: h5 @6 n' P. `#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
$ D1 n! a8 T; P* G1 e' M! p( y

" s/ `+ y! q" I[@拆除8]
+ `$ h1 C7 K4 A: H1 [' n3 |#IF
# B2 N, ~3 W6 c: C: K" K! \CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
* ?/ }/ }1 v, J2 k/ J+ C8 vGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 8
) M' |" O6 z2 Y+ u1 L4 ~INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


[@一键拆除]
3 f8 u2 @$ i4 Y2 c#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
: h* a' U9 O5 ^, b/ PGameGold - <$STR(N$元宝累计)>
0 G! |0 ?5 o: b/ ?4 sItemoffStone boxitem1 1
, e4 w8 I% K) a9 J# e8 sItemoffStone boxitem1 2
! q: P' u- q& L+ R* M+ ZItemoffStone boxitem1 3
ItemoffStone boxitem1 4
7 o% F4 m% O* n4 HItemoffStone boxitem1 5
ItemoffStone boxitem1 6
( E/ x- }! t; pItemoffStone boxitem1 7
: y: H  i/ q: [ItemoffStone boxitem1 8
INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


[@服务2]
: H" `; R5 ~. x) y4 ^; Y" G( ]+ ]下注你要对对蒙的元宝<IMG:2155:34:0:0>数量\ \
$ }' ^% X5 V! O" d<INPUTNUM:1:0:-10:100:0:0:255:251:1:100:禁止为空，最小对对蒙元宝数量为1，最大为100:输入对对蒙元宝数量:247>\
<IMG:2155:34:0:0> <TEXT:[对对蒙下注]:0:0:1/@对蒙元宝>\ \
9 S2 E2 Q% Q2 w& O0 O, e' y<IMG:1642:29:2:-8> <TEXT:[对对蒙玩法]:7:0/@对对蒙玩法>\
) G1 g, C; P2 n# ^
5 x  u  _0 l+ V
[@对蒙元宝]
) E3 v) K' L+ B1 R#ACT
MOV N$对对蒙数值 <$NPCINPUT(1)>
;SENDMSG 5 【<$STR(N$对对蒙数值)>】


#IF
CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 1
0 L' r" I) f6 w  T#ACT
$ ^) I3 a; q. i3 M0 N; \' \3 UGameGold - <$STR(N$对对蒙数值)>
4 r- B' S* q5 m( a: Z: ]GetRandomText ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
( x8 [7 c; C3 |  [5 p2 H. ~GetDBItemFieldValue <$STR(S$随机武器)> SC2 <$STR(N$武器属性上限)>
, i+ [% V% \$ }" NGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>
4 w) G+ p( @. r- c4 S
# w& E5 Q% ^1 x- d/ R5 c
#IF
+ @7 Y( O3 M  e' o) C( s4 fCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
$ |+ r! g- P- u% v/ w/ pRANDOMEX 1 2
#ACT
GameGold - <$STR(N$对对蒙数值)>
( x7 T$ }( b$ {, {- bGetRandomText ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
' ~/ h: Q) Z4 ^GetDBItemFieldValue <$STR(S$随机武器)> MC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


#IF
& Q5 n  p5 _2 H! s9 |5 HCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
- C; N; Q% d$ O3 f8 m9 n) j8 x6 p) uRANDOMEX 1 3
6 O: f5 K7 w# m$ _, s4 o#ACT
6 ?0 a; N# S5 H; o7 {0 U" eGameGold - <$STR(N$对对蒙数值)>
  q, O8 F2 E1 w6 ?0 o9 w7 ]6 }GetRandomText ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> DC2 <$STR(N$武器属性上限)>
4 o% F) z$ P( Z4 |  v' F" MGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>

( \- B' Z5 F; i3 U4 b6 e/ D
#IF
1 B5 N& A7 P6 T0 J* z; B7 tCHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
7 M6 I' ?6 M4 MEQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
. u, O& @5 j" l* y" l; M#SAY
当前对对蒙的装备是 {战士武器/FCOLOR=70}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<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>\
- M) i8 A; A& V8 c#ACT
break

% |! }; w; x# T! L$ K
" e/ Q' @. @, {; {" d: e#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
当前对对蒙的装备是 {法师武器/FCOLOR=70}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
) j! L3 _( O; r4 k<TEXT:武器魔力上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
7 h4 u4 P. }/ r* i7 q{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
& k$ W" t5 m9 p6 X. S<[再来一局]/@服务2>\
#ACT
break

' a  |4 U0 K& i& u
#IF
& Q5 V# S) S/ J1 G* t6 f1 }2 e' BCHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
当前对对蒙的装备是 {道士武器/FCOLOR=254}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
- d$ c* i2 r5 D' Q6 q- w4 W: i<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}\ \
0 Q2 z& k" E1 ^" D2 A<[再来一局]/@服务2>\
" }# E  H. w; O% d$ x+ T#ACT
1 }4 N$ Y% y. t9 {break
. V+ u/ I; _& f  D5 X. s#ELSESAY
: V1 X% B4 {( S! m# K$ e当前对对蒙的装备是\ \
4 G8 g  }: |& ^$ _# ?& Q4 n<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
. i1 B& W6 ]. I& ^0 _<TEXT:武器上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
' m- k- W0 n4 s3 k' ?1 w<对对蒙失败> 损失 <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>\ \
<[再来一局]/@服务2>\

+ A) A( I% r1 V- t3 u

* Y% A1 A3 H4 h. O$ H7 z3 E3 L& x
9 b3 q) x3 \/ A' D' n[@对对蒙玩法]
{对蒙元宝的玩法：/FCOLOR=251}\ \
玩家先消费指定元宝数量，点击对对蒙下注，然后系统会随机显示一件\
武器，根据武器属性的上限与玩家下注的元宝数量相同，将会获得元\
7 B$ M: u2 ~3 U4 I! j宝奖励{（显示武器为三职业的）/FCOLOR=247}\
$ ~  m* p! B; T* V" a下注数量与系统显示武器属性上限相同，双倍下注元宝奖励\
下注数量与系统显示武器属性上限不同，损失下注元宝\
- I7 `( y# {' O$ h" p<[返 回]/@服务2>\
5 ^% ^3 c6 c: D0 \* \3 r9 |
- [. d1 j* e! w. g