铭文洗练终极提示没终极提示????

qwer1222

铭文洗练终极提示没终极提示????哪位大神帮忙看看是怎么回事???谢谢


[@武器铭文]
{

#if
#ACT
MOV <$STR(S$铭文1)> <img:571:16
MOV <$STR(S$铭文2)> <img:571:16
MOV <$STR(S$铭文3)> <img:571:16
set [153] 1
set [4] 0
set [5] 0
ClearVar s100 20
GOTO @武器准备开始



[@武器准备开始]
#say
\
<>[铭文属性]<TEXT:附上铭文的武器会使技能更强大，从而极大提升战斗力:60:5:{FCOLOR=254}>\
<text:每次洗炼需要:240:17:{FCOLOR=243}><text:[13W金币]:245:17:{FCOLOR=103}> <text:+:248:17:{fcolor=243}> <text:[本职业铭文石*1]:251:17:{FCOLOR=103}>
<text:双铭文武器洗炼过程中可以选择:1:33:{FCOLOR=243}><text:锁定:5:33:{FCOLOR=250}><text:其中一条:10:33:{FCOLOR=243}>\  
<>        ╔═════════════╗\
<>        │                          │\
<>        │                          │<$STR(S$铭文1)>:-160:-14> \
<>        │                          │\
<>        │─────────────│<TEXT:开放武器三铭文|点击查看开放规则:13:0:/@武器开放三铭文> \
<>        │                          │\
<>        │                          │<$STR(S$铭文2)>:-160:-14>\
<>        │                          │\
<>        │─────────────│\
<>        │                          │\
<>        │                          │<$STR(S$铭文3)>:-160:-14>\
<>        │                          │<TEXT:武器铭文传承|点击查看传承规则:13:-70:/@武器铭文传承><TEXT:清洗铭文|点击查看清洗规则:73:-70:/@武器清洗铭文> \
<>        ╚═════════════╝\  
<TEXT:铭文洗炼|251#单铭文武器有几率洗出双铭文^251#三铭文武器只能洗炼第三铭文:400:-15/@武器洗炼>\
<ITEMBOX:0:26:1549:260:230:1:1:5,6:251#放入洗炼铭文的武器><ITEMBOX:1:26:1549:340:230:1:1:*:251#放入本职业铭文石>


[@武器准备开始1]
#IF
check [4] 1
check [5] 0
#SAY
\
<>[铭文属性]<TEXT:附上铭文的武器会使技能更强大，从而极大提升战斗力:60:5:{FCOLOR=254}>\
<text:每次洗炼需要:240:17:{FCOLOR=243}><text:[13W金币]:245:17:{FCOLOR=103}> <text:+:248:17:{fcolor=243}> <text:[本职业铭文石*1]:251:17:{FCOLOR=103}>
<text:双铭文武器洗炼过程中可以选择:1:33:{FCOLOR=243}><text:锁定:5:33:{FCOLOR=250}><text:其中一条:10:33:{FCOLOR=243}>\  
<>        ╔═════════════╗\
<>        │                          │<$STR(S$铭文1)>:-160:-2> \
<>        │                          │\
<>        │                          │<text:锁●|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁1>\
<>        │─────────────│<TEXT:开放武器三铭文|点击查看开放规则:13:0:/@武器开放三铭文> \
<>        │                          │<$STR(S$铭文2)>:-160:-2>\
<>        │                          │<text:锁○|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁2> \
<>        │                          │\  
<>        │─────────────│\
<>        │                          │<$STR(S$铭文3)>:-160:-2>\
<>        │                          │\
<>        │                          │<TEXT:武器铭文传承|点击查看传承规则:13:-70:/@武器铭文传承><TEXT:清洗铭文|点击查看清洗规则:73:-70:/@武器清洗铭文> \
<>        ╚═════════════╝\  
<TEXT:铭文洗炼|251#单铭文武器有几率洗出双铭文^251#三铭文武器只能洗炼第三铭文:400:-15/@武器洗炼>\
<ITEMBOX:0:26:1549:260:230:1:1:5,6:251#放入洗炼铭文的武器><ITEMBOX:1:26:1549:340:230:1:1:*:251#放入本职业铭文石>

#IF
check [4] 0
check [5] 1
#SAY
\
<>[铭文属性]<TEXT:附上铭文的武器会使技能更强大，从而极大提升战斗力:60:5:{FCOLOR=254}>\
<text:每次洗炼需要:240:17:{FCOLOR=243}><text:[13W金币]:245:17:{FCOLOR=103}> <text:+:248:17:{fcolor=243}> <text:[本职业铭文石*1]:251:17:{FCOLOR=103}>
<text:双铭文武器洗炼过程中可以选择:1:33:{FCOLOR=243}><text:锁定:5:33:{FCOLOR=250}><text:其中一条:10:33:{FCOLOR=243}>\  
<>        ╔═════════════╗\
<>        │                          │<$STR(S$铭文1)>:-160:-2> \
<>        │                          │\
<>        │                          │<text:锁○|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁1>\
<>        │─────────────│<TEXT:开放武器三铭文|点击查看开放规则:13:0:/@武器开放三铭文> \
<>        │                          │<$STR(S$铭文2)>:-160:-2>\
<>        │                          │<text:锁●|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁2> \
<>        │                          │\  
<>        │─────────────│\
<>        │                          │<$STR(S$铭文3)>:-160:-2>\
<>        │                          │\
<>        │                          │<TEXT:武器铭文传承|点击查看传承规则:13:-70:/@武器铭文传承><TEXT:清洗铭文|点击查看清洗规则:73:-70:/@武器清洗铭文> \
<>        ╚═════════════╝\  
<TEXT:铭文洗炼|251#单铭文武器有几率洗出双铭文^251#三铭文武器只能洗炼第三铭文:400:-15/@武器洗炼>\
<ITEMBOX:0:26:1549:260:230:1:1:5,6:251#放入洗炼铭文的武器><ITEMBOX:1:26:1549:340:230:1:1:*:251#放入本职业铭文石>



#IF
check [4] 0
check [5] 0
#SAY
\
<>[铭文属性]<TEXT:附上铭文的武器会使技能更强大，从而极大提升战斗力:60:5:{FCOLOR=254}>\
<text:每次洗炼需要:240:17:{FCOLOR=243}><text:[13W金币]:245:17:{FCOLOR=103}> <text:+:248:17:{fcolor=243}> <text:[本职业铭文石*1]:251:17:{FCOLOR=103}>
<text:双铭文武器洗炼过程中可以选择:1:33:{FCOLOR=243}><text:锁定:5:33:{FCOLOR=250}><text:其中一条:10:33:{FCOLOR=243}>\  
<>        ╔═════════════╗\
<>        │                          │<$STR(S$铭文1)>:-160:-2> \
<>        │                          │\
<>        │                          │<text:锁○|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁1>\
<>        │─────────────│<TEXT:开放武器三铭文|点击查看开放规则:13:0:/@武器开放三铭文> \
<>        │                          │<$STR(S$铭文2)>:-160:-2>\
<>        │                          │<text:锁○|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁2> \
<>        │                          │\  
<>        │─────────────│\
<>        │                          │<$STR(S$铭文3)>:-160:-2>\
<>        │                          │\
<>        │                          │<TEXT:武器铭文传承|点击查看传承规则:13:-70:/@武器铭文传承><TEXT:清洗铭文|点击查看清洗规则:73:-70:/@武器清洗铭文> \
<>        ╚═════════════╝\  
<TEXT:铭文洗炼|251#单铭文武器有几率洗出双铭文^251#三铭文武器只能洗炼第三铭文:400:-15/@武器洗炼>\
<ITEMBOX:0:26:1549:260:230:1:1:5,6:251#放入洗炼铭文的武器><ITEMBOX:1:26:1549:340:230:1:1:*:251#放入本职业铭文石>

[@武器准备开始2]
#say
\
<>[铭文属性]<TEXT:附上铭文的武器会使技能更强大，从而极大提升战斗力:60:5:{FCOLOR=254}>\
<text:每次洗炼需要:240:17:{FCOLOR=243}><text:[13W金币]:245:17:{FCOLOR=103}> <text:+:248:17:{fcolor=243}> <text:[本职业铭文石*1]:251:17:{FCOLOR=103}>
<text:双铭文武器洗炼过程中可以选择:1:33:{FCOLOR=243}><text:锁定:5:33:{FCOLOR=250}><text:其中一条:10:33:{FCOLOR=243}>\  
<>        ╔═════════════╗\
<>        │                          │<$STR(S$铭文1)>:-160:-2> \
<>        │                          │\
<>        │                          │<text:锁●|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:-13/@锁1>\
<>        │─────────────│<TEXT:开放武器三铭文|点击查看开放规则:13:0:/@武器开放三铭文> \
<>        │                          │<$STR(S$铭文2)>:-160:-2>\
<>        │                          │<text:锁●|249#锁定后继续洗炼^249#不改变右边的铭文^249#每次额外收费7W金币:-220:0/@锁2>\
<>        │                          │\  
<>        │─────────────│\
<>        │                          │<$STR(S$铭文3)>:-160:-2>\
<>        │                          │\
<>        │                          │<TEXT:武器铭文传承|点击查看传承规则:13:-70:/@武器铭文传承><TEXT:清洗铭文|点击查看清洗规则:73:-70:/@武器清洗铭文> \
<>        ╚═════════════╝\  
<TEXT:铭文洗炼|251#单铭文武器有几率洗出双铭文^251#三铭文武器只能洗炼第三铭文:400:-15/@武器洗炼>\
<ITEMBOX:0:26:1549:260:230:1:1:5,6:251#放入洗炼铭文的武器><ITEMBOX:1:26:1549:340:230:1:1:*:251#放入本职业铭文石>

[@ItemIntoBox0]
#IF
#ACT
GetCustomItemText boxitem0 S$武器上的铭文
; sendmsg 7 <$STR(S$武器上的铭文)>
#IF
NOT EQUAL S$武器上的铭文
#ACT
TextSplit \ <$STR(S$武器上的铭文)> s100
; SENDMSG 7 S100<$STR(S100)>-S101<$STR(S101)>-S102<$STR(S102)>-S103<$STR(S103)>
; SENDMSG 7 <$STR(S$铭文1)>-<$STR(S$铭文2)>-<$STR(S$铭文3)>
TextSplit : <$STR(S101)> S110
; SENDMSG 7 <$STR(S110)>-<$STR(S111)>-<$STR(S112)>-<$STR(S113)>-<$STR(S114)>
MOV S$铭文1 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

#IF
NOT EQUAL S102
#ACT
TextSplit : <$STR(S102)> S110
MOV S$铭文2 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

#IF
NOT EQUAL S103
#ACT
TextSplit : <$STR(S103)> S110
MOV S$铭文3 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

#IF
NOT EQUAL S103
#ACT
GOTO @武器准备开始2
BREAK

#IF
NOT EQUAL S102
#ACT
GOTO @武器准备开始1
BREAK

#IF
#ACT
GOTO @武器准备开始

[@ItemOutBox0]
#if
#ACT
set [4] 0
set [5] 0
MOV S$铭文1 <img:571:16
MOV S$铭文2 <img:571:16
MOV S$铭文3 <img:571:16
ClearVar s100 20
; goto @武器准备开始

[@ItemIntoBox7]
#IF
#ACT
GetCustomItemText boxitem7 S$武器上的铭文
; sendmsg 7 <$STR(S$武器上的铭文)>
#IF
NOT EQUAL S$武器上的铭文
#ACT
TextSplit \ <$STR(S$武器上的铭文)> s100
; SENDMSG 7 S100<$STR(S100)>-S101<$STR(S101)>-S102<$STR(S102)>-S103<$STR(S103)>
; SENDMSG 7 <$STR(S$铭文1)>-<$STR(S$铭文2)>-<$STR(S$铭文3)>
TextSplit : <$STR(S101)> S110
; SENDMSG 7 <$STR(S110)>-<$STR(S111)>-<$STR(S112)>-<$STR(S113)>-<$STR(S114)>
MOV S$铭文1 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

#IF
NOT EQUAL S102
#ACT
TextSplit : <$STR(S102)> S110
MOV S$铭文2 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

#IF
NOT EQUAL S103
#ACT
TextSplit : <$STR(S103)> S110
MOV S$铭文3 <$STR(S110)>:<$STR(S111)>:<$STR(S112)>

[@ItemOutBox7]
#if
#ACT
set [4] 0
set [5] 0
MOV S$铭文1 <img:571:16
MOV S$铭文2 <img:571:16
MOV S$铭文3 <img:571:16
ClearVar s100 20

[@武器清洗铭文]
#act
returnboxitem 0
returnboxitem 1
closebigdialogbox
#SAY
清理武器铭文会将武器上所有铭文清空，即可重新洗炼铭文。\ \ \
<>             <清理武器铭文/@武器清洗铭文1>  （需要本职业<铭文石1个>）\ \ \ \
<>                                                     <返  回/@武器铭文>
<ITEMBOX:7:26:1549:35:68:1:1:5,6:255#放入武器>

[@武器清洗铭文1]
#if
NOT CheckBoxItemCount 7
#act
MessageBox 请放入清洗的武器
break

#IF
NOT CHECKITEM 圣战铭文石 1
checkjob warrior
#ACT
MessageBox 你的铭文石不足
break

#IF
NOT CHECKITEM 法神铭文石 1
checkjob wizard
#ACT
MessageBox 你的铭文石不足
break

#IF
NOT CHECKITEM 天尊铭文石 1
checkjob taoist
#ACT
MessageBox 你的铭文石不足
break

#IF
checkjob warrior
#ACT
TAKE 圣战铭文石 1
SetUpgradeItem 7
SetCustomItemText boxitem7
updateitem boxitem7
MessageBox 已清洗武器铭文！
break

#IF
checkjob wizard
#ACT
TAKE 法神铭文石 1
SetUpgradeItem 7
SetCustomItemText boxitem7
updateitem boxitem7
MessageBox 已清洗武器铭文！
break

#IF
checkjob taoist
#ACT
TAKE 天尊铭文石 1
SetUpgradeItem 7
SetCustomItemText boxitem7
updateitem boxitem7
MessageBox 已清洗武器铭文！
break


[@武器铭文传承]
#act
returnboxitem 0
returnboxitem 1
closebigdialogbox
#SAY
左边放入原武器(转出铭文)，右边放入需要传承的武器(转入铭文)\ \
【单铭文传承<50元宝>】【双铭文传承<100元宝>】【三铭文传承<200元宝>】\ \ \
<>              →               <铭文传承/@武器铭文传承1> \ \ \ \
<>                                                     <返  回/@武器铭文>
<ITEMBOX:7:26:1549:35:97:1:1:5,6:255#放入原武器^249#成功传承后铭文消失><ITEMBOX:1:26:1549:135:97:1:1:5,6:255#放入需要传承的武器^250#成功传承后获得左侧武器

的所有铭文>

[@武器铭文传承1]
#if
NOT CheckBoxItemCount 7
#act
MessageBox 请放入原武器
break

#if
NOT CheckBoxItemCount 1
#act
MessageBox 请放入需要传承的武器
break

#IF
NOT equal S103
#ACT
MOV N$传承花费元宝 200
; sendmsg 7 <$str(N$传承花费元宝)>

#IF
equal S103
not equal s102
#ACT
MOV N$传承花费元宝 100
; sendmsg 7 <$str(N$传承花费元宝)>

#if
equal s103
equal s102
not equal s101
#act
MOV N$传承花费元宝 50
; sendmsg 7 <$str(N$传承花费元宝)>

#IF
EQUAL S103
EQUAL S102
EQUAL S101
#ACT
MESSAGEBOX 这件装备上面没有铭文。
break

#IF
EQUAL N$传承花费元宝 200
not CheckTextList ..\QuestDiary\铭文相关\三铭文武器.txt <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 你的装备没有办法继承三铭文
break

#IF
EQUAL N$传承花费元宝 100
NOT CheckTextList ..\QuestDiary\铭文相关\高级武器.txt <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 你的装备没有办法继承双铭文
break


#IF
CHECKGAMEGOLD < <$str(N$传承花费元宝)>
#ACT
MESSAGEBOX 你的元宝不足
BREAK
#ELSEACT
SetUpgradeItem 7
SetUpgradeItem 1
GAMEGOLD - <$str(N$传承花费元宝)>
SetCustomItemText boxitem7
;SetNewItemValue boxitem2 0 = 0
SetCustomItemText boxitem1 <$STR(S$武器上的铭文)>　
SetCustomItemTextCOLOR boxitem1 255
;SetNewItemValue boxitem3 0 = 1
updateitem boxitem7
updateitem boxitem1
MessageBox 已成功传承！
break

[@武器开放三铭文]
#act
returnboxitem 0
returnboxitem 1
closebigdialogbox
#SAY
已拥有双铭文的武器才可以开放第三个铭文。\ \
<注意:/fcolor=254>\
开放第三个铭文后，武器的前2个铭文将被锁定，<只能洗炼第三铭文>。\ \ \
<>                        <开放第三铭文/@武器开放三铭文1>       (需要本职业<铭文石10个> + <40元宝>)\ \ \ \
<>                                           <返  回/@武器铭文>
<ITEMBOX:7:26:1549:35:115:1:1:5,16:255#放入双铭文武器>


[@武器开放三铭文1]
#if
NOT CheckBoxItemCount 7
#act
MessageBox 请放入需要洗炼的武器
break

#IF
CHECKGAMEGOLD < 40
#ACT
MessageBox 你的元宝不足
break

#IF
NOT CHECKITEM 圣战铭文石 10
checkjob warrior
#ACT
MessageBox 你的铭文石不足
break

#IF
NOT CHECKITEM 法神铭文石 10
checkjob wizard
#ACT
MessageBox 你的铭文石不足
break

#IF
NOT CHECKITEM 天尊铭文石 10
checkjob taoist
#ACT
MessageBox 你的铭文石不足
break

#IF
not CheckTextList ..\QuestDiary\铭文相关\三铭文武器.txt <$BOXITEM[7].NAME>
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
MessageBox 这个武器无法开放三铭文
break

#IF
NOT EQUAL S101
NOT EQUAL S102
NOT EQUAL S103
#ACT
MessageBox 你已经开放了三铭文，可以直接洗炼
break

#OR
EQUAL S101
EQUAL S102
#act
MessageBox 你要先有双铭文才能开启
break



#if
CHECKJOB taoist
#act
take 天尊铭文石 10
gamegold - 40
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文3
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem7 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem7 255
UpdateItem boxitem7
GOTO @ItemIntoBox0
GOTO @终极提示
MessageBox 恭喜你，武器已经成功解封了第三铭文！
BREAK

#if
CHECKJOB wizard
#act
take 法神铭文石 10
gamegold - 40
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文3
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem7 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem7 255
UpdateItem boxitem7
GOTO @ItemIntoBox0
GOTO @终极提示
MessageBox 恭喜你，武器已经成功解封了第三铭文！
BREAK


#if
CHECKJOB warrior
#act
take 圣战铭文石 10
gamegold - 40
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文3
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem7 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem7 255
UpdateItem boxitem7
GOTO @ItemIntoBox0
GOTO @终极提示
MessageBox 恭喜你，武器已经成功解封了第三铭文！
BREAK

[@锁1]
#if
CHECKGOLD 70000
#ACT
set [4] 1
set [5] 0
goto @ItemIntoBox0
#ELSEACT
MessageBox 锁定失败，金币不足7W！

[@锁2]
#if
CHECKGOLD 70000
#ACT
set [4] 0
set [5] 1
goto @ItemIntoBox0
#ELSEACT
MessageBox 锁定失败，金币不足7W！


[@武器洗炼]
#if
NOT CheckBoxItemCount 0
#act
MessageBox 请放入需要洗炼的武器
break

#IF
CHECK [4] 1
CHECK [5] 0
NOT Checkgold 200000
#act
ReturnBoxItem 0
ReturnBoxItem 1
MessageBox 你身上金币不足20W
break

#IF
CHECK [4] 0
CHECK [5] 1
NOT Checkgold 200000
#act
ReturnBoxItem 0
ReturnBoxItem 1
MessageBox 你身上金币不足20W
break

#if
NOT Checkgold 130000
#act
ReturnBoxItem 0
ReturnBoxItem 1
MessageBox 你身上金币不足13W
break

#if
NOT CheckBoxItemCount 1 1
#act
MessageBox 请放入本职业铭文石！
break

#if
CHECKJOB taoist
NOT EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#act
ReturnBoxItem 1
MessageBox 请放入[天尊铭文石]
break

#if
CHECKJOB wizard
NOT EQUAL <$BOXITEM[1].NAME> 法神铭文石
#act
ReturnBoxItem 1
MessageBox 请放入[法神铭文石]
break

#if
CHECKJOB warrior
NOT EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#act
ReturnBoxItem 1
MessageBox 请放入[圣战铭文石]
break


#IF
NOT EQUAL S$铭文3 <img:571:16
#ACT
DelayCall 200 @武器三铭文
BREAK

#if
check [4] 1
check [5] 0
#act
DelayCall 200 @双铭文洗下留上
; sendmsg 7 双铭文洗下留上
break

#if
check [4] 0
check [5] 1
#act
DelayCall 200 @双铭文洗上留下
; sendmsg 7 双铭文洗上留下
break

#IF
NOT EQUAL <$STR(S$铭文1)> <img:571:16
NOT EQUAL <$STR(S$铭文2)> <img:571:16
#ACT
DelayCall 200 @武器双铭文
; sendmsg 7 S$铭文1,S$铭文2
break

#IF
CheckTextList ..\QuestDiary\铭文相关\高级武器.txt <$BOXITEM[0].NAME>
#ACT
DelayCall 200 @武器双铭文
; sendmsg 7 骨火
break

#if
CheckContainsText <$STR(S$武器上的铭文)> 新手铭文
#act
messagebox 新手铭文洗炼会失去双铭文或三铭文，你确定要洗炼吗？ @洗炼新手铭文 @取消
break

#IF
CheckTextList ..\QuestDiary\铭文相关\武器类型.txt <$BOXITEM[0].NAME>
#act
; sendmsg 7 武器单铭文
DelayCall 200 @武器单铭文
break

[@洗炼新手铭文]
#IF
#act
; sendmsg 7 武器单铭文
DelayCall 200 @武器单铭文
break

[@双铭文洗下留上]
#if
CHECKJOB taoist
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @道士重名检测
BREAK

#if
checkjob wizard
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 法神铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @法师重名检测
BREAK

#if
checkjob warrior
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @战士重名检测
BREAK

[@战士重名检测]
#IF
EQUAL S$铭文1 <$STR(S$铭文2)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @战士重名检测
#ELSEACT
goto @武器双铭文1
break

[@法师重名检测]
#IF
EQUAL S$铭文1 <$STR(S$铭文2)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @法师重名检测
#ELSEACT
goto @武器双铭文1
break

[@道士重名检测]
#IF
EQUAL S$铭文1 <$STR(S$铭文2)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文2
INC S$铭文2 :54
GOTO @道士重名检测
#ELSEACT
goto @武器双铭文1
break

[@双铭文洗上留下]
#if
CHECKJOB taoist
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @道士重名检测1
BREAK

#if
checkjob wizard
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 法神铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @法师重名检测1
BREAK

#if
checkjob warrior
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#act
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @战士重名检测1
BREAK

[@战士重名检测1]
#IF
EQUAL S$铭文2 <$STR(S$铭文1)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @战士重名检测1
#ELSEACT
goto @武器双铭文1
break

[@法师重名检测1]
#IF
EQUAL S$铭文2 <$STR(S$铭文1)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @法师重名检测1
#ELSEACT
goto @武器双铭文1
break

[@道士重名检测1]
#IF
EQUAL S$铭文2 <$STR(S$铭文1)>
#ACT
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文1
INC S$铭文1 :54
GOTO @道士重名检测1
#ELSEACT
goto @武器双铭文1
break

[@武器三铭文]
; #IF
; #ACT
; SENDMSG 6 铭文1<$STR(S$铭文1)>
; SENDMSG 6 铭文2<$STR(S$铭文2)>
; SENDMSG 6 铭文3<$STR(S$铭文3)>
; break

#if
CHECKJOB taoist
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$铭文3
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0


GOTO @ItemIntoBox0
GOTO @终极提示
BREAK



#if
checkjob wizard
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 法神铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$铭文3
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0
GOTO @ItemIntoBox0
GOTO @终极提示
BREAK



#if
checkjob warrior
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$铭文3
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
INC S$铭文3 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>\<$STR(S$铭文3)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0


GOTO @ItemIntoBox0
GOTO @终极提示
BREAK

[@武器双铭文]
#IF
RANDOMEX 70 100
#ACT
GOTO @武器单铭文
BREAK

#if
CHECKJOB taoist
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#act
; sendmsg 7 taoist
GetMultiRandomText ..\QuestDiary\铭文相关\道士铭文石.txt 2 S1 N1
MOV S$铭文1 <$str(s1)>
MOV S$铭文2 <$str(s2)>
INC S$铭文1 :54
INC S$铭文2 :54
GOTO @武器双铭文1
BREAK

#if
checkjob wizard
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 法神铭文石
#act
; sendmsg 7 wizard
GetMultiRandomText ..\QuestDiary\铭文相关\法神铭文石.txt 2 S1 N1
MOV S$铭文1 <$str(s1)>
MOV S$铭文2 <$str(s2)>
INC S$铭文1 :54
INC S$铭文2 :54
GOTO @武器双铭文1
BREAK

#if
checkjob warrior
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#act
; sendmsg 7 warrior
GetMultiRandomText ..\QuestDiary\铭文相关\战士铭文石.txt 2 S1 N1
MOV S$铭文1 <$str(s1)>
MOV S$铭文2 <$str(s2)>
INC S$铭文1 :54
INC S$铭文2 :54
GOTO @武器双铭文1
BREAK

[@武器双铭文1]
#or
check [4] 1
check [5] 1
#act
goldcount - 70000

#if
Checkgold 130000
#ACT
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1


SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>\<$STR(S$铭文2)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0

GOTO @ItemIntoBox0
GOTO @终极提示
BREAK



[@武器单铭文]
#if
CHECKJOB taoist
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 天尊铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\道士铭文石.txt S$道士1
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
MOV <$STR(S$铭文1)> <$STR(S$道士1)>
INC S$铭文1 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0

GOTO @ItemIntoBox0
GOTO @终极提示
BREAK



#if
checkjob wizard
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 法神铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\法神铭文石.txt S$法师1
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
MOV <$STR(S$铭文1)> <$STR(S$法师1)>
INC S$铭文1 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0
GOTO @ItemIntoBox0
GOTO @终极提示
BREAK



#if
checkjob warrior
Checkgold 130000
EQUAL <$BOXITEM[1].NAME> 圣战铭文石
#ACT
GetRandomText ..\QuestDiary\铭文相关\战士铭文石.txt S$战士1
DelBoxItem 1 1
take 金币 130000
GIVE 结晶 1
MOV <$STR(S$铭文1)> <$STR(S$战士1)>
INC S$铭文1 :54

SetUpgradeItem 0
SetCustomItemText boxitem0 [铭文属性]\<$STR(S$铭文1)>:0:0>
SetCustomItemTextCOLOR boxitem0 255
UpdateItem boxitem0


GOTO @ItemIntoBox0
GOTO @终极提示
BREAK




[@终极提示]
#OR
EQUAL <$STR(S$铭文1)> <img:52
EQUAL <$STR(S$铭文2)> <img:52
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[攻沙剑术(煌龙印)]！
break

#OR
EQUAL <$STR(S$铭文1)> <img:60
EQUAL <$STR(S$铭文2)> <img:60
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[刺杀剑术(耀光印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:63
EQUAL <$STR(S$铭文2)> <img:63
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[烈火剑法(斩月印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:51
EQUAL <$STR(S$铭文2)> <img:51
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[烈火剑法(夺火印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:345
EQUAL <$STR(S$铭文2)> <img:345
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[狮子吼(决意印)]！
break



#OR
EQUAL <$STR(S$铭文1)> <img:351
EQUAL <$STR(S$铭文2)> <img:351
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[逐日剑法(升龙印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:346
EQUAL <$STR(S$铭文2)> <img:346
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[逐日剑法(开僵印)]！
break



#OR
EQUAL <$STR(S$铭文1)> <img:350
EQUAL <$STR(S$铭文2)> <img:350
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[逐日剑法(神驱印)]！
break



#OR
EQUAL <$STR(S$铭文1)> <img:74
EQUAL <$STR(S$铭文2)> <img:74
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[疾光电影(雷咒印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:78
EQUAL <$STR(S$铭文2)> <img:78
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[魔法盾(霜骨印)]！
break

#OR
EQUAL <$STR(S$铭文1)> <img:85
EQUAL <$STR(S$铭文2)> <img:85
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[冰咆哮(龙行印)]！
break




#OR
EQUAL <$STR(S$铭文1)> <img:75
EQUAL <$STR(S$铭文2)> <img:75
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[冰咆哮(龙魂印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:354
EQUAL <$STR(S$铭文2)> <img:354
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[寒冰掌(霜冻印)]！
break

#OR
EQUAL <$STR(S$铭文1)> <img:342
EQUAL <$STR(S$铭文2)> <img:342
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[灭天火(夺气印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:340
EQUAL <$STR(S$铭文2)> <img:340
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[流星火雨(冰雨印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:349
EQUAL <$STR(S$铭文2)> <img:349
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[流星火雨(群雷印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:93
EQUAL <$STR(S$铭文2)> <img:93
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[施毒术(凌波印)]！
break




#OR
EQUAL <$STR(S$铭文1)> <img:100
EQUAL <$STR(S$铭文2)> <img:100
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[召唤骷髅(偷天印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:101
EQUAL <$STR(S$铭文2)> <img:101
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[群体治愈术(瑶光印)]！
break




#OR
EQUAL <$STR(S$铭文1)> <img:181
EQUAL <$STR(S$铭文2)> <img:181
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[召唤神兽(血兽印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:98
EQUAL <$STR(S$铭文2)> <img:98
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[召唤神兽(圣兽印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:96
EQUAL <$STR(S$铭文2)> <img:96
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[召唤神兽(灵兽印)]！
break


#OR
EQUAL <$STR(S$铭文1)> <img:355
EQUAL <$STR(S$铭文2)> <img:355
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[无极真气(天罡印)]！
break

#OR
EQUAL <$STR(S$铭文1)> <img:353
EQUAL <$STR(S$铭文2)> <img:353
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[噬血术(噬心印)]！
break



#OR
EQUAL <$STR(S$铭文1)> <img:341
EQUAL <$STR(S$铭文2)> <img:341
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[噬血术(夺魂印)]！
break

#OR
EQUAL <$STR(S$铭文1)> <img:352
EQUAL <$STR(S$铭文2)> <img:352
#ACT
SendNewLineMsg 0 251 0 12 30 10 1 恭喜玩家[<$USERNAME>]洗炼铭文获得[噬血术(失魂印)]！
break




}

盛趣法务部部长

太长看的头疼

aionyiye

这种写法太臃肿了

aionyiye

5786108wingg

aionyiye 发表于 2023-4-6 09:18

这个是趴的哪个版本的铭文求告知下我也去弄个出来 谢谢

aionyiye

5786108wingg 发表于 2023-4-6 10:11
这个是趴的哪个版本的铭文求告知下我也去弄个出来 谢谢

上古战纪，我自己改的