传奇TVZML完整合成脚本

[@HC70级装备]
#if
#say
合成所需的<游龙剑>可以做藏剑山庄任务获得 
<当前元宝数量>:<$GAMEGOLD>  <当前元宝积分>：<$HUMAN(元宝积分)>  
合成炎煞首饰  <高级合成/@HC炎煞首饰>  <普通合成/@普通合成>
合成苍穹首饰  <高级合成/@HC苍穹首饰>  <普通合成/@普通合成>
合成玲珑首饰  <高级合成/@HC玲珑首饰>  <普通合成/@普通合成>  
<返回/@main>
#act
MOV D0 0
MOV S0 
MOV S1 
[@普通合成]
#act
MESSAGEBOX 提示：无需元宝积分合成70级装备，将在3天内开放！
[@HC70级衣服武器]
合成材料：三件相同职业对应首饰+游龙剑+元宝积分 
<当前元宝数量>:<$GAMEGOLD>  <当前元宝积分>：<$HUMAN(元宝积分)> 
<炎煞战斧/@MOV炎煞战斧>  <苍穹魔杖/@MOV苍穹魔杖>  <玲珑道扇/@MOV玲珑道扇>  需要：元宝积分9000
<炎煞战袍(男)/@MOV炎煞战袍(男)>    <炎煞战袍(女)/@MOV炎煞战袍(女)>    需要：元宝积分6000
<苍穹魔袍(男)/@MOV苍穹魔袍(男)>    <苍穹魔袍(女)/@MOV苍穹魔袍(女)>    需要：元宝积分6000
<玲珑道袍(男)/@MOV玲珑道袍(男)>    <玲珑道袍(女)/@MOV玲珑道袍(女)>    需要：元宝积分6000 
<返回/@HC70级装备>
[@HC炎煞首饰]
合成材料：三件相同职业对应首饰+游龙剑+2000元宝+2000积分 
<当前元宝数量>:<$GAMEGOLD>  <当前元宝积分>：<$HUMAN(元宝积分)>  
<炎煞令牌/@MOV炎煞令牌>  <炎煞头盔/@MOV炎煞头盔>  <炎煞项链/@MOV炎煞项链>  <炎煞战镯/@MOV炎煞战镯>
<炎煞战戒/@MOV炎煞战戒>  <炎煞腰带/@MOV炎煞腰带>  <炎煞战靴/@MOV炎煞战靴>  <炎煞宝石/@MOV炎煞宝石> 
<返回/@HC70级装备>
[@HC苍穹首饰]
合成材料：三件相同职业对应首饰+游龙剑+2000元宝+2000积分 
<当前元宝数量>:<$GAMEGOLD>  <当前元宝积分>：<$HUMAN(元宝积分)>   
<苍穹令牌/@MOV苍穹令牌>  <苍穹头盔/@MOV苍穹头盔>  <苍穹项链/@MOV苍穹项链>  <苍穹手镯/@MOV苍穹手镯>  
<苍穹魔戒/@MOV苍穹魔戒>  <苍穹腰带/@MOV苍穹腰带>  <苍穹魔靴/@MOV苍穹魔靴>  <苍穹宝石/@MOV苍穹宝石> 
<返回/@HC70级装备>
[@HC玲珑首饰]
合成材料：三件相同职业对应首饰+游龙剑+2000元宝+2000积分 
<当前元宝数量>:<$GAMEGOLD>  <当前元宝积分>：<$HUMAN(元宝积分)>  
<玲珑令牌/@MOV玲珑令牌>  <玲珑头盔/@MOV玲珑头盔>  <玲珑项链/@MOV玲珑项链>  <玲珑手镯/@MOV玲珑手镯>  
<玲珑道戒/@MOV玲珑道戒>  <玲珑腰带/@MOV玲珑腰带>  <玲珑道靴/@MOV玲珑道靴>  <玲珑宝石/@MOV玲珑宝石> 
<返回/@HC70级装备>
[@MOV炎煞战斧]
#act
mov d0 9000
mov s0 炎煞战斧
mov s1 [强化]龙吟斩
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹魔杖]
#act
mov d0 9000
mov s0 苍穹魔杖
mov s1 [强化]龙吟斩
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑道扇]
#act
mov d0 9000
mov s0 玲珑道扇
mov s1 [强化]龙吟斩
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞战袍(男)]
#act
mov d0 6000
mov s0 炎煞战袍(男)
mov s1 [强化]龙吟袍
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞战袍(女)]
#act
mov d0 6000
mov s0 炎煞战袍(女)
mov s1 [强化]龙吟衣
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹魔袍(男)]
#act
mov d0 6000
mov s0 苍穹魔袍(男)
mov s1 [强化]龙吟袍
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹魔袍(女)]
#act
mov d0 6000
mov s0 苍穹魔袍(女)
mov s1 [强化]龙吟衣
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑道袍(男)]
#act
mov d0 6000
mov s0 玲珑道袍(男)
mov s1 [强化]龙吟袍
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑道袍(女)]
#act
mov d0 6000
mov s0 玲珑道袍(女)
mov s1 [强化]龙吟衣
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞令牌]
#act
mov d0 2000
mov s0 炎煞令牌
mov s1 [强化]龙吟令
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞头盔]
#act
mov d0 2000
mov s0 炎煞头盔
mov s1 [强化]龙吟盔
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞项链]
#act
mov d0 2000
mov s0 炎煞项链
mov s1 [强化]龙吟链
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞战镯]
#act
mov d0 2000
mov s0 炎煞战镯
mov s1 [强化]龙吟镯
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞战戒]
#act
mov d0 2000
mov s0 炎煞战戒
mov s1 [强化]龙吟戒
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞腰带]
#act
mov d0 2000
mov s0 炎煞腰带
mov s1 [强化]龙吟带
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞战靴]
#act
mov d0 2000
mov s0 炎煞战靴
mov s1 [强化]龙吟靴
DELAYGOTO 50 @HC70级装备有积分
[@MOV炎煞宝石]
#act
mov d0 2000
mov s0 炎煞宝石
mov s1 [强化]龙吟石
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹令牌]
#act
mov d0 2000
mov s0 苍穹令牌
mov s1 [强化]龙吟令
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹头盔]
#act
mov d0 2000
mov s0 苍穹头盔
mov s1 [强化]龙吟盔
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹项链]
#act
mov d0 2000
mov s0 苍穹项链
mov s1 [强化]龙吟链
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹手镯]
#act
mov d0 2000
mov s0 苍穹手镯
mov s1 [强化]龙吟镯
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹魔戒]
#act
mov d0 2000
mov s0 苍穹魔戒
mov s1 [强化]龙吟戒
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹腰带]
#act
mov d0 2000
mov s0 苍穹腰带
mov s1 [强化]龙吟带
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹魔靴]
#act
mov d0 2000
mov s0 苍穹魔靴
mov s1 [强化]龙吟靴
DELAYGOTO 50 @HC70级装备有积分
[@MOV苍穹宝石]
#act
mov d0 2000
mov s0 苍穹宝石
mov s1 [强化]龙吟石
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑令牌]
#act
mov d0 2000
mov s0 玲珑令牌
mov s1 [强化]龙吟令
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑头盔]
#act
mov d0 2000
mov s0 玲珑头盔
mov s1 [强化]龙吟盔
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑项链]
#act
mov d0 2000
mov s0 玲珑项链
mov s1 [强化]龙吟链
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑手镯]
#act
mov d0 2000
mov s0 玲珑手镯
mov s1 [强化]龙吟镯
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑道戒]
#act
mov d0 2000
mov s0 玲珑道戒
mov s1 [强化]龙吟戒
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑腰带]
#act
mov d0 2000
mov s0 玲珑腰带
mov s1 [强化]龙吟带
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑道靴]
#act
mov d0 2000
mov s0 玲珑道靴
mov s1 [强化]龙吟靴
DELAYGOTO 50 @HC70级装备有积分
[@MOV玲珑宝石]
#act
mov d0 2000
mov s0 玲珑宝石
mov s1 [强化]龙吟石
DELAYGOTO 50 @HC70级装备有积分
[@HC70级装备有积分]
#if
checkitem <$STR(s1)> 3
#elseact
MESSAGEBOX 提示：合成<$STR(s0)>需要<$STR(s1)>三样！
MOV D0 0
MOV S0 
MOV S1 
break
#if
CHECKGAMEGOLD < <$STR(D0)>
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要<$STR(D0)>元宝！
MOV D0 0
MOV S0 
MOV S1 
break
#if
checkitem 游龙剑 1
#elseact
MESSAGEBOX 提示：合成<$STR(s0)>需要游龙剑1块！
MOV D0 0
MOV S0 
MOV S1 
break
#if
CHECKLEVELEX < 75
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要等级75级以上！
MOV D0 0
MOV S0 
MOV S1 
break
#if
CHECKVAR HUMAN 元宝积分 < <$STR(D0)>
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要<$STR(D0)>冲值积分！
MOV D0 0
MOV S0 
MOV S1 
break
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级武器列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级武器时间.txt < 7 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级武器列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级武器时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级武器时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级衣服列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级衣服时间.txt < 7 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级衣服列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级衣服时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级衣服时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级头盔列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级头盔时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级头盔列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级头盔时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级头盔时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级项链列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级项链时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级项链列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级项链时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级项链时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级勋章列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级勋章时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级勋章列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级勋章时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级勋章时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级手镯列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级手镯时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级手镯列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级手镯时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级手镯时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级戒指列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级戒指时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级戒指列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级戒指时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级戒指时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级腰带列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级腰带时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级腰带列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级腰带时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级腰带时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级鞋子列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级鞋子时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级鞋子列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级鞋子时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级鞋子时间.txt
#IF
CheckStringList ..QuestDiary宠物系统合成配置70级宝石列表.txt <$STR(s0)>
CHECKUSERDATE ..QuestDiary宠物系统合成配置70级宝石时间.txt < 3 p1 p2
#act
MESSAGEBOX 提示：合成<$STR(s0)>需要再过<$STR(p2)>天！
break
#if
CheckStringList ..QuestDiary宠物系统合成配置70级宝石列表.txt <$STR(s0)>
#ACT
DELUSERDATE ..QuestDiary宠物系统合成配置70级宝石时间.txt
ADDUSERDATE ..QuestDiary宠物系统合成配置70级宝石时间.txt

#if
CHECKGAMEGOLD > <$STR(D0)>
checkitem <$STR(s1)> 3
checkitem 游龙剑 1
#ACT
take 游龙剑 1
GAMEGOLD - <$STR(D0)>
take <$STR(s1)> 3
give <$STR(s0)> 1
Calcvar HUMAN 元宝积分 - <$STR(D0)>
Calcvar HUMAN 消费值 + <$STR(D0)>
SAVEVAR HUMAN 元宝积分 ..QuestDiary充值元宝积分.txt
SAVEVAR HUMAN 消费值 ..QuestDiary充值消费值.txt
SENDMSG 7 提示：消费积分增加<$STR(D0)>分，当前消费总积分：<$HUMAN(消费值)>分。
SENDMSG 0 [%d]：恭喜%s合成<$STR(s0)>成功！
MOV D0 0
MOV S0 
MOV S1 
goto @HC70级装备
break

#ELSEACT
MESSAGEBOX 提示：合成<$STR(s0)>失败！