当前位置 : 745v传奇网 | 传奇教程 | 

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

来源: 作者: 点击:
[@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:1520302624646251:请放入8转首饰><ITEMBOX:3:4:661:90:-1:42:42:43:请放入鸿蒙灵气>\\\
\<确定锻造/@确定锻造>


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

[@这个可以重铸]
#IF
EQUAL<$BOXITEM[2].NAME_G><$BOXITEM[2].NAME>
#ACT
;MESSAGEBOX \ \你放置的物品还没有铸造,铸造后不满意在重铸!
BREAK
#ELSEACT
MOVS40<$BOXITEM[2].NAME>
MOVS41200000
MOVS42199999
GOTO@重铸
BREAK

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

[@确定锻造]
#ACT
SetUpgradeItem2

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

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

[@铸造升级]
#ACT
GAMEGOLD-<$STR(S41)>
CHANGECUSTOMITEMTEXT-1<$YEAR>-<$MONTH>-<$DAY>:<$HOUR>:<$MINUTE>[铸]
CHANGECUSTOMITEMTEXTCOLOR-1251
CHANGECUSTOMITEMVALUE-14=0
CHANGECUSTOMITEMVALUE-15=0
CHANGECUSTOMITEMVALUE-16=0
MOVRS310
MOVRS410
MOVRS510
CHANGECUSTOMITEMABIL-1413
CHANGECUSTOMITEMABIL-1514
CHANGECUSTOMITEMABIL-1615
CHANGECUSTOMITEMABIL-1430
CHANGECUSTOMITEMABIL-1530
CHANGECUSTOMITEMABIL-1630
CHANGECUSTOMITEMABIL-1421
CHANGECUSTOMITEMABIL-1522
CHANGECUSTOMITEMABIL-1623
CHANGECUSTOMITEMABIL-140253
CHANGECUSTOMITEMABIL-150253
CHANGECUSTOMITEMABIL-160253
CHANGECUSTOMITEMVALUE-14=<$STR(S3)>
CHANGECUSTOMITEMVALUE-15=<$STR(S4)>
CHANGECUSTOMITEMVALUE-16=<$STR(S5)>
UpDateBoxItem3
UpDateBoxItem2
ReturnBoxItem2
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:1520302624646251:250#请放入需要注入灵气的装备><←放入要精炼的装备/AUTOCOLOR=254><摧毁此物提取灵气/AUTOCOLOR=253>\
\<↓/AUTOCOLOR=253>\
\<↓/AUTOCOLOR=253>\\
\<ITEMBOX:1:0:117:280:-45:76:76:15203026246462515:250#放入要提取灵气的装备>\
\<我确定把圈内的物品摧毁并提取灵气注入到原装备/@灵气注入>\\
<注意:圆圈内的装备一旦把灵气提取出来后会被摧毁!/AUTOCOLOR=254>\
<注意:圆圈内装备的灵气提取出来直接注入到原装备里面!/AUTOCOLOR=254>\
<说明:圆圈内可以放入高级装备/AUTOCOLOR=254>


[@ItemIntoBox0]
#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·盔
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS4510
MOVRS4610
MOVRS5210
MOVS51头盔
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·战链
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS5210
MOVS51项链
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·之心
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS5230
MOVS51勋章
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·手
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS5220
MOVS51手镯
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·镯
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS5220
MOVS51手镯
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·靴
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS453
MOVRS463
MOVRS523
MOVS51靴子
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·带
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS453
MOVRS463
MOVRS523
MOVS51腰带
BREAK

#IF
EQUAL<$BOXITEM[0].NAME>鸿蒙·佩
#ACT
MOVS40<$BOXITEM[0].NAME>
MOVS4150000
MOVS4249999
MOVRS525
MOVS51配饰
BREAK
#ELSEACT
ReturnBoxItem0
MESSAGEBOX \ \你放置的物品不能吸收灵气!
BREAK

[@ItemIntoBox1]
#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\五转装备.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS4418
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\残武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS4488
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\成品武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS44588
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\上古残武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS44288
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\上古成品武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS442880
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\起源残武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS441888
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\起源成品武器.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS443880
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\六转装备.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS4488
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\七转装备.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS44488
BREAK

#IF
CheckContainsTextList..\QuestDiary\装备碎片系统\八转装备.txt<$BOXITEM[1].NAME>
#ACT
MOVS43<$BOXITEM[1].NAME>
MOVS44888
BREAK
#ELSEACT
ReturnBoxItem1
MESSAGEBOX \ \你放置的物品不能提取灵气!
BREAK

[@灵气注入]
#ACT
SetUpgradeItem0

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

[@灵气升级]
#ACT
GAMEGOLD-<$STR(S41)>
CHANGECUSTOMITEMPROGRESSBAR-1001
CHANGECUSTOMITEMPROGRESSBAR-101灵气值:
CHANGECUSTOMITEMPROGRESSBAR-10269
CHANGECUSTOMITEMPROGRESSBAR-1042
CHANGECUSTOMITEMPROGRESSBAR-10319
CHANGECUSTOMITEMPROGRESSBARVALUE-101=10000
CHANGECUSTOMITEMPROGRESSBARVALUE-100+<$STR(S44)>
UpDateBoxItem0
GOTO@<$STR(S51)>
break

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

CHANGECUSTOMITEMABIL-1713
CHANGECUSTOMITEMABIL-1814
CHANGECUSTOMITEMABIL-1915
CHANGECUSTOMITEMABIL-1731
CHANGECUSTOMITEMABIL-1831
CHANGECUSTOMITEMABIL-1931
CHANGECUSTOMITEMABIL-1724
CHANGECUSTOMITEMABIL-1825
CHANGECUSTOMITEMABIL-1926
CHANGECUSTOMITEMABIL-170253
CHANGECUSTOMITEMABIL-180253
CHANGECUSTOMITEMABIL-190253
CHANGECUSTOMITEMVALUE-17=<$STR(S45)>
CHANGECUSTOMITEMVALUE-18=<$STR(S46)>
CHANGECUSTOMITEMVALUE-19=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

SetNewItemValue-11=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

SetNewItemValue-17=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

SetNewItemValue-17=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

CHANGECUSTOMITEMABIL-1713
CHANGECUSTOMITEMABIL-1814
CHANGECUSTOMITEMABIL-1915
CHANGECUSTOMITEMABIL-1731
CHANGECUSTOMITEMABIL-1831
CHANGECUSTOMITEMABIL-1931
CHANGECUSTOMITEMABIL-1727
CHANGECUSTOMITEMABIL-1828
CHANGECUSTOMITEMABIL-1929
CHANGECUSTOMITEMABIL-170253
CHANGECUSTOMITEMABIL-180253
CHANGECUSTOMITEMABIL-190253
CHANGECUSTOMITEMVALUE-17=<$STR(S45)>
CHANGECUSTOMITEMVALUE-18=<$STR(S46)>
CHANGECUSTOMITEMVALUE-19=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

CHANGECUSTOMITEMABIL-1713
CHANGECUSTOMITEMABIL-1814
CHANGECUSTOMITEMABIL-1915
CHANGECUSTOMITEMABIL-1731
CHANGECUSTOMITEMABIL-1831
CHANGECUSTOMITEMABIL-1931
CHANGECUSTOMITEMABIL-1727
CHANGECUSTOMITEMABIL-1828
CHANGECUSTOMITEMABIL-1929
CHANGECUSTOMITEMABIL-170253
CHANGECUSTOMITEMABIL-180253
CHANGECUSTOMITEMABIL-190253
CHANGECUSTOMITEMVALUE-17=<$STR(S45)>
CHANGECUSTOMITEMVALUE-18=<$STR(S46)>
CHANGECUSTOMITEMVALUE-19=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break

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

SetNewItemValue-10=<$STR(S52)>
SetNewItemValue-11=<$STR(S52)>
UpDateBoxItem0
ReturnBoxItem0
break
[顶部]