装备加星脚本怎么做？传奇一条龙叫你怎么制作装备加星

[@main]
#if
#act
openmerchantbigdlg 0 882 1 4 0 0 1 478 5
#say
<>\<>\
<> <──────────────────────────────────────/scolor=141>\
<>   <~~~欢迎进入熊猫网络旗下独家「熊猫冰雪」 版本 您的支持是我们最大的动力~~~/scolor=21><>\
<> <──────────────────────────────────────/scolor=141>\
\            <本系统50万元宝,装备加星石，700三宝一次！！>\
\            <本系统50万元宝,装备加星石，700三宝一次！！>\
\            <我能让你的装备换发新的光辉，属性大幅度提升/fcolor=254>\
\   <详细介绍/fcolor=70>：<点击查看具体属性/@点击查看具体属性> \
<> <──────────────────────────────────────/scolor=141>\
\   <需要材料/fcolor=70>：<点击查看具体要求|251#武器消耗材料：小【残】武器，上古【残】武器^-^251#衣服消耗材料：小【残】衣服，上古【残】衣服^-^251#头盔消耗材料：点点神力1.1倍  点点神力1.2倍^-^251#项链消耗材料：冰雪系列项链^-^251#特戒消耗材料：任意+*9戒^-^251#手镯，腰带，靴子消耗材料：上古首饰/fcolor=250>   <当前需要消耗<$str(n$装备加星石显示)>颗装备加星石/fcolor=253>\
<> <──────────────────────────────────────/scolor=141>\
<>  <鄙人最擅长炼制/fcolor=185><[加星]>，<成功率100%/fcolor=185>，<最高可让装备加星十次！/fcolor=253>\
<> <──────────────────────────────────────/scolor=141>\
<>  <放入要提升的装备→/fcolor=253><itembox:1:0:47:1:15:42:42:5,10,11,15,19,20,24,26,22,62,64:放入提升的装备>  <itembox:2:0:47:1:15:42:42:*:放入消耗的材料><←放入消耗的装备/fcolor=253>\
\   <材料三宝放背包/fcolor=70>\
\                                               <开始装备加星/@装备加星go> \ \
<>                                         <点击购买装备加星石/@点击购买装备加星石> \

<><itembox:3:0:47:0:-11:76:76:5,10,11,15,19,20,24,26,22,62,64:242#请放入已加星的装备> <←/fcolor=242> <放入已强化装备/fcolor=242><放入转移目标装备/fcolor=243> <→/fcolor=242>
<><itembox:4:0:47:0:-11:76:76:5,10,11,15,19,20,24,26,22,62,64:243#请放入转移的目标装备>\ \
<>                     <【加星转移】免费/@转移>\




[@点击购买装备加星石]
\ \ \ \
<>   <装备加星石1熊猫币一个>\
<>   <购买1个装备加星石/@购买1个装备加星石>\
<>   <购买5个装备加星石/@购买5个装备加星石>\
<>   <购买10个装备加星石/@购买10个装备加星石>\
<>   <购买50个装备加星石/@购买50个装备加星石>\
<>   <购买100个装备加星石/@购买100个装备加星石>\


[@购买100个装备加星石]
#if
checkgamediamond > 99
#act
gamediamond - 100
give 装备加星石 100
sendmsg 6 购买成功
calcvar human 个人消费统计 + 100
savevar human 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt
sorthumvartolistex 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt 1 ..\questdiary\神墓制作\个人消费\个人消费排行.txt 1
break
#elseact
messagebox 熊猫币不足
break

[@购买50个装备加星石]
#if
checkgamediamond > 49
#act
gamediamond - 50
give 装备加星石 50
sendmsg 6 购买成功
calcvar human 个人消费统计 + 50
savevar human 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt
sorthumvartolistex 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt 1 ..\questdiary\神墓制作\个人消费\个人消费排行.txt 1
break
#elseact
messagebox 熊猫币不足
break

[@购买10个装备加星石]
#if
checkgamediamond > 9
#act
gamediamond - 10
give 装备加星石 10
sendmsg 6 购买成功
calcvar human 个人消费统计 + 10
savevar human 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt
sorthumvartolistex 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt 1 ..\questdiary\神墓制作\个人消费\个人消费排行.txt 1
break
#elseact
messagebox 熊猫币不足
break

[@购买5个装备加星石]
#if
checkgamediamond > 4
#act
gamediamond - 5
give 装备加星石 5
sendmsg 6 购买成功
calcvar human 个人消费统计 + 5
savevar human 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt
sorthumvartolistex 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt 1 ..\questdiary\神墓制作\个人消费\个人消费排行.txt 1
break
#elseact
messagebox 熊猫币不足
break

[@购买1个装备加星石]
#if
checkgamediamond > 0
#act
gamediamond - 1
give 装备加星石 1
sendmsg 6 购买成功
calcvar human 个人消费统计 + 1
savevar human 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt
sorthumvartolistex 个人消费统计 ..\questdiary\神墓制作\个人消费\个人消费统计.txt 1 ..\questdiary\神墓制作\个人消费\个人消费排行.txt 1
break
#elseact
messagebox 熊猫币不足
break

[@点击查看具体属性]
<>\<>\
<> <──────────────────────────────────────/scolor=141>\
<>   <~~~欢迎进入熊猫网络旗下独家「熊猫冰雪」 版本 您的支持是我们最大的动力~~~/scolor=21><>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身10星触发：攻魔道+3%，hpmp+3%，攻击伤害%1，人物体力%1/fcolor=250>\
<>      <全身20星触发：攻魔道+6%，hpmp+6%，攻击伤害%2，人物体力%2/fcolor=250>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身30星触发：攻魔道+9%，hpmp+9%，攻击伤害%3，人物体力%3/fcolor=250>\
<>      <全身40星触发：攻魔道+12%，hpmp+12%，攻击伤害%4，人物体力%4/fcolor=250>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身50星触发：攻魔道+15%，hpmp+15%，攻击伤害%5，人物体力%5/fcolor=250>\
<>      <全身60星触发：攻魔道+18%，hpmp+18%，攻击伤害%6，人物体力%6/fcolor=250>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身70星触发：攻魔道+21%，hpmp+21%，攻击伤害%8，人物体力%8/fcolor=250>\
<>      <全身80星触发：攻魔道+25%，hpmp+25%，攻击伤害%10，人物体力%10/fcolor=250>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身90星触发：攻魔道+30%，hpmp+30%，攻击伤害%12，人物体力%12/fcolor=250>\
<>      <全身100星触发：攻魔道+35%，hpmp+35%，攻击伤害%15，人物体力%15/fcolor=250>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身50星攻击时有几率触发buff属性(泥泞沼泽)攻击触发敌人10%(1.5秒减速)/fcolor=70>\
<> <──────────────────────────────────────/scolor=141>\
<>      <全身100星攻击时有几率触发buff属性(泥泞沼泽)攻击触发敌人10%(3秒减速)/fcolor=70>\
<> <──────────────────────────────────────/scolor=141>\


[@转移]
#or
equal <$boxitem[3].name>
equal <$boxitem[4].name>
#act
messagebox 操作失败：\　\请检测两个框内是否都放入了装备！
break

#if
equal <$boxitem[3].upgradecount> 0
#act
messagebox 操作失败：\　\左边框内装备并未加星！
break

#if
equal <$boxitem[3].upgradecount> 1
#act
mov n$转移星级 1


#if
equal <$boxitem[3].upgradecount> 2
#act
mov n$转移星级 2

#if
equal <$boxitem[3].upgradecount> 3
#act
mov n$转移星级 3

#if
equal <$boxitem[3].upgradecount> 4
#act
mov n$转移星级 4

#if
equal <$boxitem[3].upgradecount> 5
#act
mov n$转移星级 5

#if
equal <$boxitem[3].upgradecount> 6
#act
mov n$转移星级 6

#if
equal <$boxitem[3].upgradecount> 7
#act
mov n$转移星级 7

#if
equal <$boxitem[3].upgradecount> 8
#act
mov n$转移星级 8

#if
equal <$boxitem[3].upgradecount> 9
#act
mov n$转移星级 9

#if
equal <$boxitem[3].upgradecount> 10
#act
mov n$转移星级 10

#or
equal <$boxitem[4].stdmode> 5
equal <$boxitem[4].stdmode> 6
#act
mov n$转移位置1 0
mov n$转移位置2 1
mov n$转移位置3 2
goto @转移执行
#elseact
mov n$转移位置1 2
mov n$转移位置2 3
mov n$转移位置3 4
goto @转移执行


[@转移执行]
#if
#act
setupgradeitem 3
changeitemupgradecount -1 = 0
changeitemaddvalue -1 0 = 0
changeitemaddvalue -1 1 = 0
changeitemaddvalue -1 2 = 0
changeitemaddvalue -1 3 = 0
changeitemaddvalue -1 4 = 0
updateboxitem 3
setupgradeitem 4
changeitemupgradecount -1 = <$str(n$转移星级)>
changeitemaddvalue -1 <$str(n$转移位置1)> = <$str(n$转移星级)>
changeitemaddvalue -1 <$str(n$转移位置2)> = <$str(n$转移星级)>
changeitemaddvalue -1 <$str(n$转移位置3)> = <$str(n$转移星级)>
updateboxitem 4
messagebox [提示]:\　\　　　　　　您的成功转移了<$str(n$转移星级)>星装备！
sendmovemsg 0 253 255 50 1 玩家[<$username>]将【<$boxitem[3].name>】的幸运转移到【<$boxitem[4].name>】,牛逼吊炸天了！
returnboxitem 3
returnboxitem 4
break                    



























[@装备加星go]
#if
equal <$boxitem[1].upgradecount> 9
#act
mov n$装备加星石数量 20

#if
equal <$boxitem[1].upgradecount> 8
#act
mov n$装备加星石数量 18

#if
equal <$boxitem[1].upgradecount> 7
#act
mov n$装备加星石数量 16

#if
equal <$boxitem[1].upgradecount> 6
#act
mov n$装备加星石数量 14

#if
equal <$boxitem[1].upgradecount> 5
#act
mov n$装备加星石数量 12

#if
equal <$boxitem[1].upgradecount> 4
#act
mov n$装备加星石数量 10

#if
equal <$boxitem[1].upgradecount> 3
#act
mov n$装备加星石数量 8

#if
equal <$boxitem[1].upgradecount> 2
#act
mov n$装备加星石数量 6

#if
equal <$boxitem[1].upgradecount> 1
#act
mov n$装备加星石数量 4

#if
equal <$boxitem[1].upgradecount> 0
#act
mov n$装备加星石数量 2




#if
not checkboxitemcount 1 1
#act
messagebox 请先放入提升主材料
break

#if
not checkboxitemcount 2 1
#act
messagebox 请先放入辅助消耗材料
break

#if
checkgamegold < 500000
#act
messagebox 元宝不足50w
break

#if
checkitem 装备加星石 <$str(n$装备加星石数量)>
checkitem 洗髓丹 700
checkitem 血龙魄珠 700
checkitem 恶魔令牌 700
#elseact
messagebox 三宝不足700个或者背包里面没有<$str(n$装备加星石数量)>个装备加星石
break

#if
large <$boxitem[1].upgradecount> 9
#act
messagebox 该装备已加满10颗星
break


#if
;random 2
#act
goto @加星成功
;#elseact
;setupgradeitem 2
;setupgradeitem 1
;take 洗髓丹 700
;take 血龙魄珠 700
;take 恶魔令牌 700
;take 装备加星石 1
;gamegold - 500000
;delboxitem 2
;updateboxitem 2
;updateboxitem 1
;messagebox 加星失败，材料消失
;break



[@加星成功]
#if
small <$boxitem[1].upgradecount> 10
equal <$boxitem[1].stdmode> 5
#act
goto @武器装备加星成功
#elseact
goto @其他装备加星成功

[@武器装备加星成功]
#if
small <$boxitem[1].upgradecount> 10
checkitem 装备加星石 <$str(n$装备加星石数量)>
checkitem 洗髓丹 700
checkitem 血龙魄珠 700
checkitem 恶魔令牌 700
not checkgamegold < 500000
#act
setupgradeitem 2
setupgradeitem 1
take 洗髓丹 700
take 血龙魄珠 700
take 恶魔令牌 700
take 装备加星石 <$str(n$装备加星石数量)>
gamegold - 500000
delboxitem 2
changeitemaddvalue -1 0 + 1
changeitemaddvalue -1 1 + 1
changeitemaddvalue -1 2 + 1
changeitemupgradecount -1 + 1
updateboxitem 2
updateboxitem 1
break


[@其他装备加星成功]
#if
small <$boxitem[1].upgradecount> 10
checkitem 装备加星石 <$str(n$装备加星石数量)>
checkitem 洗髓丹 700
checkitem 血龙魄珠 700
checkitem 恶魔令牌 700
not checkgamegold < 500000
#act
setupgradeitem 2
setupgradeitem 1
take 洗髓丹 700
take 血龙魄珠 700
take 恶魔令牌 700
take 装备加星石 <$str(n$装备加星石数量)>
gamegold - 500000
delboxitem 2
changeitemaddvalue -1 2 + 1
changeitemaddvalue -1 3 + 1
changeitemaddvalue -1 4 + 1
changeitemupgradecount -1 + 1
updateboxitem 2
updateboxitem 1
break








[@itemintobox1]
#if
equal <$boxitem[1].upgradecount> 9
#act
mov n$装备加星石显示 20

#if
equal <$boxitem[1].upgradecount> 8
#act
mov n$装备加星石显示 18

#if
equal <$boxitem[1].upgradecount> 7
#act
mov n$装备加星石显示 16

#if
equal <$boxitem[1].upgradecount> 6
#act
mov n$装备加星石显示 14

#if
equal <$boxitem[1].upgradecount> 5
#act
mov n$装备加星石显示 12

#if
equal <$boxitem[1].upgradecount> 4
#act
mov n$装备加星石显示 10

#if
equal <$boxitem[1].upgradecount> 3
#act
mov n$装备加星石显示 8

#if
equal <$boxitem[1].upgradecount> 2
#act
mov n$装备加星石显示 6

#if
equal <$boxitem[1].upgradecount> 1
#act
mov n$装备加星石显示 4

#if
equal <$boxitem[1].upgradecount> 0
#act
mov n$装备加星石显示 2




#if
large <$boxitem[1].upgradecount> 9
#act
returnboxitem 1
messagebox 该装备已加满10颗星
break


#if
not checkcontainstextlist ..\questdiary\神墓制作\装备加星\可加星物品.txt <$boxitem[1].stdmode>
#act
returnboxitem 1
goto @main
messagebox 你放入到物品不能进行幸运锻造
break


#if
equal <$boxitem[1].stdmode> 5
#act
mov s$消耗材料列表 武器消耗材料
mov n$消耗数量 1
goto @main
break

#or
equal <$boxitem[1].stdmode> 10
equal <$boxitem[1].stdmode> 11
#act
mov s$消耗材料列表 衣服消耗材料
mov n$消耗数量 1
goto @main
break

#if
equal <$boxitem[1].stdmode> 15
#act
mov s$消耗材料列表 头盔消耗材料
mov n$消耗数量 1
goto @main
break

#or
equal <$boxitem[1].stdmode> 19
equal <$boxitem[1].stdmode> 20
#act
mov s$消耗材料列表 项链消耗材料
mov n$消耗数量 1
goto @main
break


#or
equal <$boxitem[1].stdmode> 24
equal <$boxitem[1].stdmode> 26
#act
mov s$消耗材料列表 手镯消耗材料
mov n$消耗数量 1
goto @main
break


#if
equal <$boxitem[1].stdmode> 22
#act
mov s$消耗材料列表 戒指消耗材料
mov n$消耗数量 1
goto @main
break



#if
equal <$boxitem[1].stdmode> 64
#act
mov s$消耗材料列表 腰带消耗材料
mov n$消耗数量 1
goto @main
break

#if
equal <$boxitem[1].stdmode> 62
#act
mov s$消耗材料列表 靴子消耗材料
mov n$消耗数量 1
goto @main
break

[@itemintobox2]
#if
equal <$boxitem[1].upgradecount> 9
#act
mov n$装备加星石显示 20

#if
equal <$boxitem[1].upgradecount> 8
#act
mov n$装备加星石显示 18

#if
equal <$boxitem[1].upgradecount> 7
#act
mov n$装备加星石显示 16

#if
equal <$boxitem[1].upgradecount> 6
#act
mov n$装备加星石显示 14

#if
equal <$boxitem[1].upgradecount> 5
#act
mov n$装备加星石显示 12

#if
equal <$boxitem[1].upgradecount> 4
#act
mov n$装备加星石显示 10

#if
equal <$boxitem[1].upgradecount> 3
#act
mov n$装备加星石显示 8

#if
equal <$boxitem[1].upgradecount> 2
#act
mov n$装备加星石显示 6

#if
equal <$boxitem[1].upgradecount> 1
#act
mov n$装备加星石显示 4

#if
equal <$boxitem[1].upgradecount> 0
#act
mov n$装备加星石显示 2


#if
large <$boxitem[1].upgradecount> 9
#act
returnboxitem 1
returnboxitem 2
messagebox 该装备已加满10颗星
break

#if
not checkboxitemcount 1 1
#act
returnboxitem 2
messagebox 请先放入主材料
break

#if
not checkcontainstextlist ..\questdiary\神墓制作\装备加星\<$str(s$消耗材料列表)>.txt  <$boxitem[2].name>
#act
returnboxitem 2
messagebox 你放入的消耗材料不能提升锻造[<$boxitem[1].name>]
break

#if
#act
goto @main
break


[@itemoutbox1]
#if
#act
mov s$消耗材料列表   
mov n$消耗数量 0
returnboxitem 2
goto @main
break