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

[@main]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
* o( Z" B2 I& m#ACT
9 u: ?% B. [2 \

#IF
#ACT
MOV N$刀会员 9000
DEC N$刀会员 <$STR(J96)>
#SAY
0 t: Z2 g+ u* N6 [: r$ G$ `4 U{会员特权：/FCOLOR=253}\
8 Z' u" ^3 R- \3 T+ a9 x. E9 W========================================================\
商铺购买物品享受 {9/FCOLOR=250} 折价格 <[元宝服务]/@元宝服务>\
会员拥有 {2/FCOLOR=254} 倍经验倍数、{1.2/FCOLOR=254} 倍攻击倍数\
========================================================\
还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
& a6 A7 `8 @/ f1 k% j: V$ {<提示：每攻击怪物一下为一刀,每天晚上12点清空刀数>\
{========================================================/FCOLOR=241}\
<[办理永久会员]/@会员> {(30天)/FCOLOR=251}      {到期时间：<$STR(S$时间)>/FCOLOR=250}\

' {7 O; N6 q8 l2 J
: u7 P5 O+ N- w8 c) J" k[@免费]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
  n% }9 y- }, {! x6 OMessageBox 会员未到期，无需办理
break
2 s0 s  ~. E  [& X
: x$ H, B, k# J7 n* c$ ?
( i4 Y7 Z. @; G3 Q/ n' d, p#IF
EQUAL N$刀会员 0
, W( I4 Y1 l; s; i/ i#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 0 0
;会员商铺9折
SetShopItemPriceRate 90
KILLMONEXPRATE 200 86400 1
0 t1 [' \( u* Z! ]POWERRATE 120 86400 1
MessageBox 你的会员到期时间是【<$STR(S$时间)>】
#ELSESAY
; U2 t) g! U0 d# j# R+ |还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\

0 W. A0 d% Z: j9 d6 _9 ^
  U( R- B, D# O* h7 [; a% M[@会员]
; ~1 j" [7 y0 L: ~; {#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
MessageBox 会员未到期，无需办理
#ELSEACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 30 0 0
& V' e3 [# j* d. t3 Z;会员商铺9折
SetShopItemPriceRate 90
KILLMONEXPRATE 200 2592000 1
4 G, X( K+ r0 @: I7 l* C  J% iPOWERRATE 120 2592000 1

' V! b' g/ U: W$ c  M+ f
* P) j8 Z4 t; D( w#IF
/ A( x0 s+ s# J) t7 M2 }% ICHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
4 s& {" L: }4 r" ?MessageBox 请联系QQ(41054098)赞助\你的会员到期时间是【<$STR(S$时间)>】

( ?# H9 d9 o. H4 ]: d
[@元宝服务]
- T7 a3 J, J* ~9 Q, ]/ j$ M2 ^& U<拆镶嵌/@服务1> <对蒙元宝/@服务2>\

0 S0 {1 B6 o( o0 f
[@服务1]
放入需要拆卸的装备,第一次收费1000元宝，每次拆卸都会累加100元宝\ \
$ Y& i( D' F8 T; M+ ~$ h% W{拆卸成功后：/FCOLOR=250}{放入的拆卸装备将会返还所有镶嵌石/FCOLOR=251}\ \
. @9 A, L( p1 D+ X3 v6 e<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#此处放入需拆卸的装备>\ \


" E" b. Q; L6 \8 ?+ W9 U- o[@ItemIntoBox1]
: x  Q- N5 D  z9 t: [#SAY
放入的装备{【<$BOXITEM[1].NAME>】/FCOLOR=251}镶嵌的位置（8个）\ \
8 c3 w/ w! P/ Q, Z2 v' m# @) l  h镶嵌位置一：<$STR(S$镶宝石1)> <[拆除]/@拆除1> 镶嵌位置二：<$STR(S$镶宝石2)> <[拆除]/@拆除2>\
; Y7 y: D- Y' b8 U7 s$ F镶嵌位置三：<$STR(S$镶宝石3)> <[拆除]/@拆除3> 镶嵌位置四：<$STR(S$镶宝石4)> <[拆除]/@拆除4>\
镶嵌位置五：<$STR(S$镶宝石5)> <[拆除]/@拆除5> 镶嵌位置六：<$STR(S$镶宝石6)> <[拆除]/@拆除6>\
7 |( e+ o/ y/ {- Q( r5 u3 G. Y镶嵌位置七：<$STR(S$镶宝石7)> <[拆除]/@拆除7> 镶嵌位置八：<$STR(S$镶宝石8)> <[拆除]/@拆除8>\ \
+ t/ R$ w& K( i! I<[一键拆除]/@一键拆除> 放入的装备有多少镶嵌返还多少，只需消费一次元宝\
#ACT
6 i" ]' X  W: V" LGetItemStoneInfo boxitem1 0 0 <$STR(S$镶宝石1)>
GetItemStoneInfo boxitem1 1 0 <$STR(S$镶宝石2)>
4 N8 F" N9 B0 k3 u* W& pGetItemStoneInfo boxitem1 2 0 <$STR(S$镶宝石3)>
2 h" a% @( X7 r5 i) FGetItemStoneInfo boxitem1 3 0 <$STR(S$镶宝石4)>
3 Z- r. u- z: e8 q% F, @GetItemStoneInfo boxitem1 4 0 <$STR(S$镶宝石5)>
GetItemStoneInfo boxitem1 5 0 <$STR(S$镶宝石6)>
4 {0 N% @8 P- w! Y! d' {GetItemStoneInfo boxitem1 6 0 <$STR(S$镶宝石7)>
9 I1 o( p3 h/ p4 Z  ^2 `# aGetItemStoneInfo boxitem1 7 0 <$STR(S$镶宝石8)>
( K) Z- t+ M/ Q+ ~  Q8 U4 Z; YMOV N$元宝累计 1000
+ I4 j# n. X2 n  ~: YINC N$元宝累计 <$STR(J171)>

: b' A* V$ Y" a8 @/ i
[@拆除1]
2 d9 g# Z+ r( g7 d#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
7 x$ d3 H+ ]1 K2 s3 CINC J171 100
$ c# P! {9 J& i2 {- d' a#ELSESAY
) i' g( d8 ?0 T  r/ B& f3 m. _5 u4 y你的元宝不够【<$STR(N$元宝累计)>】


3 \1 o! t1 c0 g' k7 U6 K+ x[@拆除2]
9 S1 Y# ^, M' \' F#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
7 _0 v5 ^1 W' O1 n9 O; L5 ?* K#ACT
GameGold - <$STR(N$元宝累计)>
( X  J% O: Y  L8 f* w: w/ IItemoffStone boxitem1 2
INC J171 100
7 s) M: q7 t6 W3 s# |0 `0 ]1 Q#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
( L9 A8 c. V: @. @3 Q

[@拆除3]
8 F) u9 N# j# }#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
% d* w% X7 {* C' @3 T/ b6 AItemoffStone boxitem1 3
INC J171 100
8 I3 q* P, H4 I1 I2 O  G5 A#ELSESAY
- ]4 e& }. D* X, Q5 S你的元宝不够【<$STR(N$元宝累计)>】

+ e" M- q6 _& W2 C" Z
[@拆除4]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
  j- r$ F1 r! l  F3 a#ACT
# w7 g* w8 }* i* T( o6 Y8 jGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 4
INC J171 100
: v9 z- }- k1 A+ g) M#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
+ g- A" o( h2 w; a- m6 e
+ _2 g. a6 q5 \# k
" q: r+ s, T3 g2 [[@拆除5]
#IF
+ Q& {( R& F9 x( O! E7 R+ J$ ^CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
. T. M1 z$ {0 |: y- EGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 5
6 \& I  _/ _3 r' k: U% GINC J171 100
#ELSESAY
, ~9 F" i" l7 n7 j$ v% v2 x你的元宝不够【<$STR(N$元宝累计)>】


+ ^- z& n8 @6 f& u6 o6 u[@拆除6]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
- p6 q+ Y# |6 d1 a#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 6
# }( Z5 r0 {7 C2 kINC J171 100
' Q: X0 R5 K; I* ~! I8 b! p" Z#ELSESAY
' N2 E( b2 ~. V" H5 d& S你的元宝不够【<$STR(N$元宝累计)>】

* F2 x# a: d3 y" c
7 O6 E% W+ _6 V) Z, D* b[@拆除7]
6 S9 f, F/ H( Y/ A#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
, T* p- c% ]  J2 Y& N: v, WItemoffStone boxitem1 7
INC J171 100
#ELSESAY
" B0 k7 F3 g' |/ c/ Q你的元宝不够【<$STR(N$元宝累计)>】

+ X+ v3 B0 \- Q" m8 R, x
[@拆除8]
$ t' I& K5 s5 v$ ?/ t1 ~% p# P#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
: M# e+ [8 s6 p7 Q+ Z) ]GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 8
8 e  d+ e( s9 J- `9 F8 o; I( GINC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】

5 b- k0 @& I; S/ H2 v& @" }+ I9 V
- J: f, K, u# a' \" b; D, v% t[@一键拆除]
#IF
2 w0 B0 }* e6 ECHECKGAMEGOLD > <$STR(N$元宝累计)>
& c  O# B4 W- M1 v4 G/ \#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 1
8 a0 O/ T( {. aItemoffStone boxitem1 2
! g6 Z& {) V! G8 ], |. ]ItemoffStone boxitem1 3
! K* G9 Z# V* t* X* f+ H9 V0 XItemoffStone boxitem1 4
ItemoffStone boxitem1 5
ItemoffStone boxitem1 6
ItemoffStone boxitem1 7
9 ~+ [7 U/ Z4 d; j  j/ f  ]. [ItemoffStone boxitem1 8
INC J171 100
/ W, E7 ~8 Y: V5 k#ELSESAY
7 q( j6 t( U( T! X, a) u" a, A+ K* H你的元宝不够【<$STR(N$元宝累计)>】
. ?. ^: _8 Y( Y) b; c8 G* m2 x
( i4 u+ ~. D. N* _
8 _: Z- J) W2 z% u9 P8 v[@服务2]
( E! E' e" }, n; r下注你要对对蒙的元宝<IMG:2155:34:0:0>数量\ \
<INPUTNUM:1:0:-10:100:0:0:255:251:1:100:禁止为空，最小对对蒙元宝数量为1，最大为100:输入对对蒙元宝数量:247>\
<IMG:2155:34:0:0> <TEXT:[对对蒙下注]:0:0:1/@对蒙元宝>\ \
<IMG:1642:29:2:-8> <TEXT:[对对蒙玩法]:7:0/@对对蒙玩法>\

& U  g$ j* C( k
[@对蒙元宝]
$ O7 E! O% b- }1 M1 a#ACT
+ l6 k8 Y5 K( DMOV N$对对蒙数值 <$NPCINPUT(1)>
;SENDMSG 5 【<$STR(N$对对蒙数值)>】
5 w# C% {. S, n
" v: I  ^; l, o, i% E
#IF
" C7 Y* y) W& tCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 1
#ACT
GameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> SC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>
. C" s) a  k; V  S* `' s
% f/ ?1 ~' C, t! C( H" s! Y6 k
#IF
, E9 E* l. H: K5 HCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 2
#ACT
GameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
) i% y5 A0 j3 o) q: YGetDBItemFieldValue <$STR(S$随机武器)> MC2 <$STR(N$武器属性上限)>
GetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


#IF
) }$ M6 {+ z/ d4 K6 ^CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 3
#ACT
GameGold - <$STR(N$对对蒙数值)>
. G+ H2 t0 i* X# U$ Y/ ZGetRandomText ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
  }. B, T8 p! j$ Q& V4 I( dGetDBItemFieldValue <$STR(S$随机武器)> DC2 <$STR(N$武器属性上限)>
0 M% ^( b" n; O4 sGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>
: J1 O- G8 F; M8 n

$ P9 w5 V; @! U+ n- ~0 h! o#IF
  }- ~0 @/ e1 Y  C% VCHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
当前对对蒙的装备是 {战士武器/FCOLOR=70}\ \
6 E$ f  K/ Q" l& f3 B; B, a' S0 W<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<TEXT:武器攻击上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
* L7 O% \+ K6 |1 S. M{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
' Q# l: D7 M7 d0 o% m<[再来一局]/@服务2>\
1 _) y3 K1 p! U& V& u#ACT
) J1 ?- x- W" T$ H( t& Wbreak

0 P) V- y5 N/ _: o, n4 |1 N
7 {* i2 Y; x0 @) c/ ]- y  k0 k, D#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
9 d" [. U+ l9 \& C4 K#SAY
当前对对蒙的装备是 {法师武器/FCOLOR=70}\ \
# P* ~( ?: P" Z0 ~+ F3 ^' v, N/ N$ Y<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}\ \
) z7 {/ g' H! U" G, E+ P) I<[再来一局]/@服务2>\
/ s9 r! T/ J$ L3 N; f6 Q6 Y% u#ACT
break

; b+ l- A3 ]3 t# e# E+ T
#IF
2 z4 A# O2 B/ u( U! ?CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
* k, [. y- d1 u6 [/ p' s" E4 REQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
当前对对蒙的装备是 {道士武器/FCOLOR=254}\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<TEXT:武器道术上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
# N% O: T! D& t# x# Z, G+ C{对对蒙成功/FCOLOR=250} <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>{（+<$STR(N$对对蒙数值)>）/FCOLOR=250}\ \
<[再来一局]/@服务2>\
#ACT
3 a* C- n7 u* Q- Z! ^+ wbreak
#ELSESAY
当前对对蒙的装备是\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
<TEXT:武器上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
/ l( M4 S' u5 N( n3 S  L<对对蒙失败> 损失 <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>\ \
! |0 t: d9 g, o' M, N7 [<[再来一局]/@服务2>\
0 n. r; Q1 y2 Z# `

& C# \- u8 V% S& U; ]* y
1 M1 U4 i" @$ F: ^% y
4 p/ B0 I, V- m7 |6 x- D[@对对蒙玩法]
- j3 E# s3 j! y  `9 c  D{对蒙元宝的玩法：/FCOLOR=251}\ \
玩家先消费指定元宝数量，点击对对蒙下注，然后系统会随机显示一件\
& a( ?* R' ^! y武器，根据武器属性的上限与玩家下注的元宝数量相同，将会获得元\
宝奖励{（显示武器为三职业的）/FCOLOR=247}\
9 f  N  _3 n1 r  N/ R+ F下注数量与系统显示武器属性上限相同，双倍下注元宝奖励\
下注数量与系统显示武器属性上限不同，损失下注元宝\
1 S/ ]  f# {8 t6 [<[返 回]/@服务2>\