论坛 › 传奇脚本 › 传奇一条龙开区车候辕匠神脚本

逍遥MIR 发表于 2024-7-18 02:20:41

传奇一条龙开区车候辕匠神脚本

[@main]
<> \\
鸿蒙首饰：鸿蒙·盔，鸿蒙·之心，鸿蒙·手，鸿蒙·镯，鸿蒙·靴，鸿蒙·带\
灵气值注满后会随机出现属性！,\
注满后出现的属性不满意可以继续注入\\\


\                  <灵饰注入灵气/@灵饰>\ \

;\            <鸿蒙首饰铸灵/@重铸>



[@开始锻造]
此功能暂未开放！


[@重铸]
放入一个我打造出的首饰！\
<当然也不是免费的,你需要支付我一定的数量元宝手工费！/AUTOCOLOR=254>\
<打造出的装备属性不满意可以找我重铸！/AUTOCOLOR=253>\
<装备不变.属性重新随机出.需要注入灵气的鸿蒙首饰/AUTOCOLOR=253>\
\    <请把/AUTOCOLOR=250><鸿蒙首饰/AUTOCOLOR=251><放入第一个框内/AUTOCOLOR=250>   <鸿蒙灵气/AUTOCOLOR=251><放入第二个框内/AUTOCOLOR=250>\
\
\   <ITEMBOX:2:4:661:30:-1:42:42:15,20,30,26,24,64,62,51:请放入8转首饰>          <ITEMBOX:3:4:661:90:-1:42:42:43:请放入鸿蒙灵气> \ \ \
\                     <确定锻造/@确定锻造>


[@ItemIntoBox2]
#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\八转装备.txt <$BOXITEM.NAME>
#ACT
GOTO @这个可以重铸
BREAK
#ELSEACT
MESSAGEBOX 　\　\你放置的物品不能重铸！
ReturnBoxItem 2
BREAK

[@这个可以重铸]
#IF
EQUAL <$BOXITEM.NAME_G> <$BOXITEM.NAME>
#ACT
;MESSAGEBOX 　\　\你放置的物品还没有铸造，铸造后不满意在重铸！
BREAK
#ELSEACT
MOV S40 <$BOXITEM.NAME>
MOV S41 200000
MOV S42 199999
GOTO @重铸
BREAK

[@ItemIntoBox3]
#IF
EQUAL <$BOXITEM.NAME> 鸿蒙灵气
#ACT
GOTO @重铸
BREAK
#ELSEACT
ReturnBoxItem 3
MESSAGEBOX 　\　\请放置[鸿蒙灵气]！
BREAK

[@确定锻造]
#ACT
SetUpgradeItem 2

#IF
CheckBoxItemCount 3
EQUAL <$BOXITEM.NAME> <$STR(S40)>
EQUAL <$BOXITEM.NAME> 鸿蒙灵气
CheckContainsText <$BOXITEM.NAME> <$STR(S40)>
CheckContainsText <$BOXITEM.NAME> 鸿蒙灵气
#act
GOTO @A铸造A
#ELSEACT
MESSAGEBOX 　\　\请放置好[鸿蒙灵气]后点击升级！
ReturnBoxItem 3
BREAK

[@A铸造A]
#IF
CHECKGAMEGOLD > <$STR(S42)>
#act
DELBOXITEM 3
GOTO @铸造升级
BREAK
#ELSEACT
ReturnBoxItem 2
ReturnBoxItem 3
MESSAGEBOX 请放入对应的物品，需要元宝<$STR(S41)>个!
BREAK

[@铸造升级]
#ACT
GAMEGOLD - <$STR(S41)>
CHANGECUSTOMITEMTEXT -1 <$YEAR>-<$MONTH>-<$DAY>:<$HOUR>:<$MINUTE>[铸]
CHANGECUSTOMITEMTEXTCOLOR -1 251
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
MOVR S3 10
MOVR S4 10
MOVR S5 10
CHANGECUSTOMITEMABIL -1 4 1 3
CHANGECUSTOMITEMABIL -1 5 1 4
CHANGECUSTOMITEMABIL -1 6 1 5
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 5 3 0
CHANGECUSTOMITEMABIL -1 6 3 0
CHANGECUSTOMITEMABIL -1 4 2 1
CHANGECUSTOMITEMABIL -1 5 2 2
CHANGECUSTOMITEMABIL -1 6 2 3
CHANGECUSTOMITEMABIL -1 4 0 253
CHANGECUSTOMITEMABIL -1 5 0 253
CHANGECUSTOMITEMABIL -1 6 0 253
CHANGECUSTOMITEMVALUE -1 4 = <$STR(S3)>
CHANGECUSTOMITEMVALUE -1 5 = <$STR(S4)>
CHANGECUSTOMITEMVALUE -1 6 = <$STR(S5)>
UpDateBoxItem 3
UpDateBoxItem 2
ReturnBoxItem 2
break



[@灵饰]
\                  首饰注入灵气系统\
\<原装备不会消失/AUTOCOLOR=250>                           <查看详细说明|250#此功能暂时只支持5.6.7.8转首饰[盔.链.勋.镯.带.靴.佩]^250#以下为满灵气值时所加属性^83#──────────────────────────────────────^251#头盔--随机增加1-10点攻魔道百分比(此攻魔道百分比与装备自身的相乘加的很多)^251#项链--攻击伤害随机增加1-10点(攻击伤害元素)^251#勋章--人物体力随机增加1-30点(加血的元素)^251#手镯--人物体力随机增加1-20点(加血的元素)^251#靴子--随机增加1-3点攻魔道百分比(此攻魔道百分比与装备自身相乘加的很多)^251#腰带--随机增加1-3点攻魔道百分比(此攻魔道百分比与装备自身相乘加的很多)^251#配饰--暴击几率随机增加1-5点,攻击伤害随机增加1-5点(同时双加)^83#──────────────────────────────────────^254#注意1:当灵气值满10000／10000时会增加以上的属性.并且清空灵气值^254#注意2:再次满灵气时,属性会覆盖之前所加的属性.(不可叠加)/AUTOCOLOR=251> \
\      <↓/AUTOCOLOR=250> \
\<ITEMBOX:0:0:47:20:-13:42:42:15,20,30,26,24,64,62,51:250#请放入需要注入灵气的装备><←放入要精炼的装备/AUTOCOLOR=254>                  <摧毁此物提取灵气/AUTOCOLOR=253>\
\                                                    <↓/AUTOCOLOR=253> \
\                                                    <↓/AUTOCOLOR=253> \ \
\<ITEMBOX:1:0:117:280:-45:76:76:15,20,30,26,24,64,62,51,5,:250#放入要提取灵气的装备>\
\<我确定把圈内的物品摧毁,并提取灵气注入到原装备/@灵气注入>\ \
<注意:圆圈内的装备一旦把灵气提取出来后会被摧毁!/AUTOCOLOR=254>\
<注意:圆圈内装备的灵气提取出来直接注入到原装备里面!/AUTOCOLOR=254>\
<说明:圆圈内可以放入高级装备/AUTOCOLOR=254>


[@ItemIntoBox0]
#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·盔
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S45 10
MOVR S46 10
MOVR S52 10
MOV S51 头盔
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·战链
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S52 10
MOV S51 项链
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·之心
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S52 30
MOV S51 勋章
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·手
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S52 20
MOV S51 手镯
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·镯
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S52 20
MOV S51 手镯
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·靴
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S45 3
MOVR S46 3
MOVR S52 3
MOV S51 靴子
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·带
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S45 3
MOVR S46 3
MOVR S52 3
MOV S51 腰带
BREAK

#IF
EQUAL <$BOXITEM.NAME> 鸿蒙·佩
#ACT
MOV S40 <$BOXITEM.NAME>
MOV S41 50000
MOV S42 49999
MOVR S52 5
MOV S51 配饰
BREAK
#ELSEACT
ReturnBoxItem 0
MESSAGEBOX 　\　\你放置的物品不能吸收灵气！
BREAK

[@ItemIntoBox1]
#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\五转装备.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 18
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\残武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 88
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\成品武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 588
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\上古残武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 288
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\上古成品武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 2880
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\起源残武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 1888
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\起源成品武器.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 3880
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\六转装备.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 88
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\七转装备.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 488
BREAK

#IF
CheckContainsTextList ..\QuestDiary\装备碎片系统\八转装备.txt <$BOXITEM.NAME>
#ACT
MOV S43 <$BOXITEM.NAME>
MOV S44 888
BREAK
#ELSEACT
ReturnBoxItem 1
MESSAGEBOX 　\　\你放置的物品不能提取灵气！
BREAK

[@灵气注入]
#ACT
SetUpgradeItem 0

#IF
CHECKGAMEGOLD > <$STR(S42)>
EQUAL <$BOXITEM.NAME> <$STR(S40)>
EQUAL <$BOXITEM.NAME> <$STR(S43)>
CheckContainsText <$BOXITEM.NAME> <$STR(S40)>
CheckContainsText <$BOXITEM.NAME> <$STR(S43)>
#act
DELBOXITEM 1
GOTO @灵气升级
BREAK
#ELSEACT
ReturnBoxItem 0
ReturnBoxItem 1
MESSAGEBOX 请放入对应的物品，需要元宝<$STR(S41)>个!
BREAK

[@灵气升级]
#ACT
GAMEGOLD - <$STR(S41)>
CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 灵气值:
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 69
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 2
CHANGECUSTOMITEMPROGRESSBAR -1 0 3 19
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 1 = 10000
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + <$STR(S44)>
UpDateBoxItem 0
GOTO @<$STR(S51)>
break

[@头盔]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

CHANGECUSTOMITEMABIL -1 7 1 3
CHANGECUSTOMITEMABIL -1 8 1 4
CHANGECUSTOMITEMABIL -1 9 1 5
CHANGECUSTOMITEMABIL -1 7 3 1
CHANGECUSTOMITEMABIL -1 8 3 1
CHANGECUSTOMITEMABIL -1 9 3 1
CHANGECUSTOMITEMABIL -1 7 2 4
CHANGECUSTOMITEMABIL -1 8 2 5
CHANGECUSTOMITEMABIL -1 9 2 6
CHANGECUSTOMITEMABIL -1 7 0 253
CHANGECUSTOMITEMABIL -1 8 0 253
CHANGECUSTOMITEMABIL -1 9 0 253
CHANGECUSTOMITEMVALUE -1 7 = <$STR(S45)>
CHANGECUSTOMITEMVALUE -1 8 = <$STR(S46)>
CHANGECUSTOMITEMVALUE -1 9 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@项链]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

SetNewItemValue -1 1 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@勋章]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

SetNewItemValue -1 7 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@手镯]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

SetNewItemValue -1 7 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@靴子]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

CHANGECUSTOMITEMABIL -1 7 1 3
CHANGECUSTOMITEMABIL -1 8 1 4
CHANGECUSTOMITEMABIL -1 9 1 5
CHANGECUSTOMITEMABIL -1 7 3 1
CHANGECUSTOMITEMABIL -1 8 3 1
CHANGECUSTOMITEMABIL -1 9 3 1
CHANGECUSTOMITEMABIL -1 7 2 7
CHANGECUSTOMITEMABIL -1 8 2 8
CHANGECUSTOMITEMABIL -1 9 2 9
CHANGECUSTOMITEMABIL -1 7 0 253
CHANGECUSTOMITEMABIL -1 8 0 253
CHANGECUSTOMITEMABIL -1 9 0 253
CHANGECUSTOMITEMVALUE -1 7 = <$STR(S45)>
CHANGECUSTOMITEMVALUE -1 8 = <$STR(S46)>
CHANGECUSTOMITEMVALUE -1 9 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@腰带]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

CHANGECUSTOMITEMABIL -1 7 1 3
CHANGECUSTOMITEMABIL -1 8 1 4
CHANGECUSTOMITEMABIL -1 9 1 5
CHANGECUSTOMITEMABIL -1 7 3 1
CHANGECUSTOMITEMABIL -1 8 3 1
CHANGECUSTOMITEMABIL -1 9 3 1
CHANGECUSTOMITEMABIL -1 7 2 7
CHANGECUSTOMITEMABIL -1 8 2 8
CHANGECUSTOMITEMABIL -1 9 2 9
CHANGECUSTOMITEMABIL -1 7 0 253
CHANGECUSTOMITEMABIL -1 8 0 253
CHANGECUSTOMITEMABIL -1 9 0 253
CHANGECUSTOMITEMVALUE -1 7 = <$STR(S45)>
CHANGECUSTOMITEMVALUE -1 8 = <$STR(S46)>
CHANGECUSTOMITEMVALUE -1 9 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

[@配饰]
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 9999
#ACT
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0

SetNewItemValue -1 0 = <$STR(S52)>
SetNewItemValue -1 1 = <$STR(S52)>
UpDateBoxItem 0
ReturnBoxItem 0
break

ZXPZHXWZ717 发表于 2024-9-1 18:09:53

回的人少，我来小顶一下

查看完整版本: 传奇一条龙开区车候辕匠神脚本