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

/ @% L; P; T8 n& o1 z

3 D- e- X5 L6 U7 `5 N

2 c7 \! f' \, m  b[@main]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
* m5 v% [- m2 w, K. a#ACT


#IF
- U  `4 Q# }' H9 b#ACT
MOV N$刀会员 9000
4 V3 Z0 c$ ?/ h: U! p3 sDEC N$刀会员 <$STR(J96)>
* ?$ a8 @  ?0 c. N* {- [2 A' q1 D#SAY
{会员特权：/FCOLOR=253}\
2 E9 V% l0 \1 D5 V$ W8 R) d========================================================\
, ~9 p# i9 {' F" ^4 e商铺购买物品享受 {9/FCOLOR=250} 折价格 <[元宝服务]/@元宝服务>\
3 n; S) ?( g4 c! ]* n" `会员拥有 {2/FCOLOR=254} 倍经验倍数、{1.2/FCOLOR=254} 倍攻击倍数\
========================================================\
$ A) c; g! `* M4 \4 L4 E: S还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
<提示：每攻击怪物一下为一刀,每天晚上12点清空刀数>\
{========================================================/FCOLOR=241}\
<[办理永久会员]/@会员> {(30天)/FCOLOR=251}      {到期时间：<$STR(S$时间)>/FCOLOR=250}\


: z6 D( ~" g" X" O' I7 ^[@免费]
2 C- ]( q1 a7 |0 z) ~% z! W#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
. l, m; `/ _3 Q+ ]* S2 p4 wMessageBox 会员未到期，无需办理
2 m) z, X) t- t2 \9 n4 b2 g% ~3 h% `' jbreak


; p8 k! S, ~9 \) Z' |, i, q#IF
EQUAL N$刀会员 0
#ACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 0 0
( d$ n: H$ Z0 @' R. V( ?;会员商铺9折
7 @# ^8 Y' K! M0 C/ F& m% M" nSetShopItemPriceRate 90
9 ~* P' `* l1 R" mKILLMONEXPRATE 200 86400 1
! }- @2 C9 W, q0 a& x- IPOWERRATE 120 86400 1
MessageBox 你的会员到期时间是【<$STR(S$时间)>】
#ELSESAY
/ P% j* Y* i& r5 i还差 [<ImgNum:1:<$STR(N$刀会员)>:-2:0:0:>] 刀获得会员资格 <[免费获取]/@免费>／天\
' \  `5 T& G0 K% }" _3 a

9 D% Y% Z6 i: C, M* X3 k- N2 g7 M[@会员]
1 W  q) K+ v$ B; W) d#IF
' V* v3 w$ L- H" M6 N0 T4 KCHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
" O: p/ t5 p- Q+ H% u0 g: GMessageBox 会员未到期，无需办理
' L7 w! `6 f+ ?' N/ ~#ELSEACT
ADDNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 30 0 0
;会员商铺9折
SetShopItemPriceRate 90
; y; w8 f2 p. j: w* s% N' }KILLMONEXPRATE 200 2592000 1
' k+ t3 W8 p6 Z% J/ rPOWERRATE 120 2592000 1
$ ]& I' n. ]/ r( K

2 ^- s, }3 |; b2 |) K#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\会员\会员时间.txt 1 <$STR(S$时间)> <$STR(N$小时)> <$STR(N$分钟)> <$STR(N$读秒)>
#ACT
0 H+ j- ]: ~' x$ GMessageBox 请联系QQ(41054098)赞助\你的会员到期时间是【<$STR(S$时间)>】
3 c, k* M8 T* f) j+ y
0 V- M* `  ~3 @. B2 F
+ K) K' L1 P# u2 q# u[@元宝服务]
3 p& b' {# C8 q<拆镶嵌/@服务1> <对蒙元宝/@服务2>\

  t4 x* b! a3 T( H
( B* x$ ^" F2 y2 S/ p3 `2 Z8 Y[@服务1]
) j  M8 H( K5 @% w放入需要拆卸的装备,第一次收费1000元宝，每次拆卸都会累加100元宝\ \
{拆卸成功后：/FCOLOR=250}{放入的拆卸装备将会返还所有镶嵌石/FCOLOR=251}\ \
<TEXT:需拆卸的装备:260:102{FCOLOR=2}> <TEXT:耳又:248:247{FCOLOR=251}/@取回>\
) f2 J7 j  j$ M" S' l0 ^" t<ITEMBOX:1:22:392:260:176:0:0:5,6,10,11,15,20,21,22,23,24,26:254#此处放入需拆卸的装备>\ \


[@ItemIntoBox1]
#SAY
, \* k) C1 m# j4 q/ \放入的装备{【<$BOXITEM[1].NAME>】/FCOLOR=251}镶嵌的位置（8个）\ \
$ A( S1 q, g/ P% e2 C' I镶嵌位置一：<$STR(S$镶宝石1)> <[拆除]/@拆除1> 镶嵌位置二：<$STR(S$镶宝石2)> <[拆除]/@拆除2>\
5 a2 p; m" K! R/ U3 i镶嵌位置三：<$STR(S$镶宝石3)> <[拆除]/@拆除3> 镶嵌位置四：<$STR(S$镶宝石4)> <[拆除]/@拆除4>\
镶嵌位置五：<$STR(S$镶宝石5)> <[拆除]/@拆除5> 镶嵌位置六：<$STR(S$镶宝石6)> <[拆除]/@拆除6>\
  o! z' q% Q! \/ ]7 ?- l& u镶嵌位置七：<$STR(S$镶宝石7)> <[拆除]/@拆除7> 镶嵌位置八：<$STR(S$镶宝石8)> <[拆除]/@拆除8>\ \
8 O# p. ?' G( G<[一键拆除]/@一键拆除> 放入的装备有多少镶嵌返还多少，只需消费一次元宝\
#ACT
GetItemStoneInfo boxitem1 0 0 <$STR(S$镶宝石1)>
GetItemStoneInfo boxitem1 1 0 <$STR(S$镶宝石2)>
GetItemStoneInfo boxitem1 2 0 <$STR(S$镶宝石3)>
GetItemStoneInfo boxitem1 3 0 <$STR(S$镶宝石4)>
GetItemStoneInfo boxitem1 4 0 <$STR(S$镶宝石5)>
GetItemStoneInfo boxitem1 5 0 <$STR(S$镶宝石6)>
; M& c8 I9 \  A3 FGetItemStoneInfo boxitem1 6 0 <$STR(S$镶宝石7)>
GetItemStoneInfo boxitem1 7 0 <$STR(S$镶宝石8)>
MOV N$元宝累计 1000
. `" u9 \  K% r7 v2 d6 S2 w, m- tINC N$元宝累计 <$STR(J171)>


[@拆除1]
#IF
) i' S2 N0 n# r* i7 y+ zCHECKGAMEGOLD > <$STR(N$元宝累计)>
) Q- L) }) [2 G$ _- {, K#ACT
% Q0 _1 y. E- P% fGameGold - <$STR(N$元宝累计)>
5 g% ~) Z4 {" O! P# b1 p; AItemoffStone boxitem1 1
INC J171 100
9 c9 O" ?9 {4 Q* a; I0 i/ A. _#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】

9 u2 g8 K; ?6 T7 f" N* q7 Z
, d0 M" `7 ?* C[@拆除2]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
% x! Z; N) f1 r3 X) u  S#ACT
( e) C( i8 K6 }1 G. Q2 pGameGold - <$STR(N$元宝累计)>
( N1 U; X; R% Q/ C, ?ItemoffStone boxitem1 2
% @% b8 o) t/ ~INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】
8 j( z6 a( a, F- q6 h; r

[@拆除3]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
- H: f" K) s7 |2 vItemoffStone boxitem1 3
INC J171 100
#ELSESAY
3 j+ j$ |- Q9 N* y% ~* t/ W0 _9 t1 t1 A你的元宝不够【<$STR(N$元宝累计)>】


[@拆除4]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
1 ~$ C1 ^% Q( g  `- q, {ItemoffStone boxitem1 4
* \( E, n4 e% z! h8 p' HINC J171 100
#ELSESAY
7 m2 B* c5 N$ I% P, `你的元宝不够【<$STR(N$元宝累计)>】
1 H1 t/ L; C+ q5 ^  U

[@拆除5]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
, p, i0 `1 Y+ I+ [, r! J#ACT
GameGold - <$STR(N$元宝累计)>
3 N: h0 `4 W$ ?4 y, t4 {5 E9 ~  G: oItemoffStone boxitem1 5
$ D4 [$ t6 n8 B, g9 k6 fINC J171 100
#ELSESAY
: s' c+ o- {  ]2 M6 W你的元宝不够【<$STR(N$元宝累计)>】
  K0 R1 `& L/ j/ n( E- w+ ^

' q9 m+ v' a1 c[@拆除6]
! J- k+ S* R( s/ G#IF
. }$ y1 B9 D( q- K' TCHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
GameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 6
1 V8 l! y: f" j% W8 \3 uINC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


[@拆除7]
#IF
CHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
& P6 o+ f' P7 a8 AGameGold - <$STR(N$元宝累计)>
ItemoffStone boxitem1 7
8 m; _5 x+ T; J" LINC J171 100
) s) d9 z3 r; y0 H! }# j3 P) O#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】


! G$ X+ }0 u7 k: |[@拆除8]
/ Q- [" S% w& o3 d1 s4 K% _0 V. W#IF
6 B# ~( l# h- e4 A: `+ rCHECKGAMEGOLD > <$STR(N$元宝累计)>
#ACT
' J9 ^0 {; i9 V& aGameGold - <$STR(N$元宝累计)>
% I& l- Y* b1 R$ ]ItemoffStone boxitem1 8
INC J171 100
6 e  k8 \+ e0 p5 Q/ g- m#ELSESAY
/ x6 n) }- [/ P, @- y你的元宝不够【<$STR(N$元宝累计)>】
! A+ n7 Q" f5 E' R( U  p/ `5 d

[@一键拆除]
#IF
. w- M* B1 b' {& D0 fCHECKGAMEGOLD > <$STR(N$元宝累计)>
) w; m$ E1 [8 I9 b; H5 D#ACT
GameGold - <$STR(N$元宝累计)>
( K0 d6 C% w6 {ItemoffStone boxitem1 1
) {: }& t2 y# X7 B: ^ItemoffStone boxitem1 2
/ r  h( T4 J4 XItemoffStone boxitem1 3
ItemoffStone boxitem1 4
ItemoffStone boxitem1 5
( `6 J* l  u9 YItemoffStone boxitem1 6
ItemoffStone boxitem1 7
ItemoffStone boxitem1 8
INC J171 100
#ELSESAY
你的元宝不够【<$STR(N$元宝累计)>】

8 K. D# E' c! u% R; @: E7 l
[@服务2]
下注你要对对蒙的元宝<IMG:2155:34:0:0>数量\ \
<INPUTNUM:1:0:-10:100:0:0:255:251:1:100:禁止为空，最小对对蒙元宝数量为1，最大为100:输入对对蒙元宝数量:247>\
) S, T4 t% c4 U( W<IMG:2155:34:0:0> <TEXT:[对对蒙下注]:0:0:1/@对蒙元宝>\ \
<IMG:1642:29:2:-8> <TEXT:[对对蒙玩法]:7:0/@对对蒙玩法>\


4 S3 O! j/ d  `% D- Y& V[@对蒙元宝]
& l$ i# @$ G* ~1 e#ACT
MOV N$对对蒙数值 <$NPCINPUT(1)>
;SENDMSG 5 【<$STR(N$对对蒙数值)>】
$ Y( W- Z6 v) }3 h7 I4 ~( I! _
/ L0 o$ K+ U8 C
: _0 |& z: f# Z) Y#IF
7 i1 K# @" f7 y4 s. D, |- M8 h, XCHECKGAMEGOLD > <$STR(N$对对蒙数值)>
0 t2 Q  R% T5 WRANDOMEX 1 1
5 f+ e+ y: P: E5 L( w- h#ACT
GameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> SC2 <$STR(N$武器属性上限)>
2 {5 H: N' C/ C) {  s4 O8 p9 aGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


#IF
CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 2
#ACT
: u1 w& R9 U5 u( i1 Z" jGameGold - <$STR(N$对对蒙数值)>
GetRandomText ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
GetDBItemFieldValue <$STR(S$随机武器)> MC2 <$STR(N$武器属性上限)>
$ e) A0 f9 D7 G+ V- |; XGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>

! i# q( r( J& S$ A1 i: `5 |) ?0 `
#IF
CHECKGAMEGOLD > <$STR(N$对对蒙数值)>
RANDOMEX 1 3
) B, N& f2 d" J) Q. F6 m#ACT
GameGold - <$STR(N$对对蒙数值)>
7 N3 ~) e! }5 hGetRandomText ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
2 j6 Q, [+ j+ n4 W4 z: b4 @GetDBItemFieldValue <$STR(S$随机武器)> DC2 <$STR(N$武器属性上限)>
7 S8 I( c# ?: j, UGetDBItemFieldValue <$STR(S$随机武器)> idx <$STR(N$对对蒙序号)>


. H( G% b/ B  Z1 M8 d#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\战士武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
#SAY
当前对对蒙的装备是 {战士武器/FCOLOR=70}\ \
4 Q& P3 ]$ L: Z( \2 m$ z* Z9 d<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}\ \
# `: A9 w  s5 f* |<[再来一局]/@服务2>\
5 t6 ^# t+ D) C#ACT
: x3 m! w! y) |4 obreak

* l- c8 {& h8 q) }! A9 i
#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\法师武器经验值满.txt <$STR(S$随机武器)>
EQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
- z- s& r$ `6 G4 }5 x* R#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}\ \
* v& Q! }# |  ]& ^! \0 c7 K<[再来一局]/@服务2>\
& U% v# s" }  U6 R7 j# e  X/ Y#ACT
9 z9 I- `4 `7 }* z5 \break

" P0 }; h7 \- r0 J2 J3 z3 K7 ]
: |( j- ~$ p4 L#IF
CHECKTEXTLIST ..\QuestDiary\三单职业\武器经验满\道士武器经验值满.txt <$STR(S$随机武器)>
0 z2 C) f4 S( DEQUAL N$对对蒙数值 <$STR(N$武器属性上限)>
, d* r4 h) |: r9 y. r#SAY
$ w9 O9 ?- Q/ I6 C) v0 c  V1 Y  @. G当前对对蒙的装备是 {道士武器/FCOLOR=254}\ \
9 f2 @2 b, ^7 u1 m<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
9 t. m* d" \3 o/ A1 ]<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}\ \
8 d$ c4 U7 J8 P2 k& Y& l! s$ C<[再来一局]/@服务2>\
! I' q) X& q4 W#ACT
break
$ m- V& I0 D5 w/ W. m! C5 V7 N#ELSESAY
% d! B7 f5 S0 |$ O6 V/ f9 [当前对对蒙的装备是\ \
<ItemShow:<$STR(N$对对蒙序号)>:0:0:0:1>\
. \$ ^. t8 ~1 a, E<TEXT:武器上限:50:-13{FCOLOR=251}> <TEXT:[ <$STR(N$武器属性上限)> ]:10:5{FCOLOR=250}>\ \
<对对蒙失败> 损失 <IMG:2155:34:0:-2> <$STR(N$对对蒙数值)>\ \
<[再来一局]/@服务2>\
8 h0 G! V. w# K6 ^0 y: ^  }


: J/ K. o" I- w4 G6 M4 `( [4 m
[@对对蒙玩法]
5 R8 o/ E+ J1 |9 x{对蒙元宝的玩法：/FCOLOR=251}\ \
玩家先消费指定元宝数量，点击对对蒙下注，然后系统会随机显示一件\
武器，根据武器属性的上限与玩家下注的元宝数量相同，将会获得元\
宝奖励{（显示武器为三职业的）/FCOLOR=247}\
下注数量与系统显示武器属性上限相同，双倍下注元宝奖励\
4 e: u0 n- f/ i/ Y) s下注数量与系统显示武器属性上限不同，损失下注元宝\
<[返 回]/@服务2>\