传奇版本精炼元素脚本

32014

精炼元素脚本，由传奇一条龙制作，并提供给GM部落发布 希望对大家做版本的时候有所帮助

[@衣服_精炼]
{
;-----------------变量说明----------------------------------------------
;引擎内部使用的(P G M I A S N D)变量
;255衣服白色
;180衣服蓝色
;250衣服绿色
;70衣服橙色
;249衣服红色
;245衣服暗紫色
;253衣服紫色
;第1颗图片<Img:1373:1:-3:-179>
;第2颗图片<Img:1373:1:-17:-167>
;第3颗图片<Img:1373:1:-8:-182>
;第4颗图片<Img:1373:1:-17:-138>
;第5颗图片<Img:1373:1:-8:-154>
;第6颗图片<Img:1373:1:-3:-146>
;数字变量从M50开始
;字符变量从S50开始
;@GetBoxItem从50开始
;M50 精炼装备的部位.
;M51 成功率
;M52 进级数点
;M53 100%的品质基值
;M54 添加精炼材料的位置序号
;M55 玩家是否点击了进级按钮
;M56 值:0 1 2 分别表示进级时升攻击,魔法,道术
;M57 精炼颜色值
;M58 元素属性附加数
;M59 附加元素属性的种别
;S50 精炼装备的名字.
;S51 装备当前颜色
;S52 带颜色的装备名字
;S53 精炼装备的外观图片
;S54 进级成功信息
;S55 成功率>75的相关信息
;S71 第1颗材料图片
;S72 第2颗材料图片
;S73 第3颗材料图片
;S74 第4颗材料图片
;S75 第5颗材料图片
;S76 第6颗材料图片
;S77 第1颗材料图片背景按钮
;S78 第2颗材料图片背景按钮
;S79 第3颗材料图片背景按钮
;S80 第4颗材料图片背景按钮
;S81 第5颗材料图片背景按钮
;S82 第6颗材料图片背景按钮
;S83 装备进级后的称谓:精致装备,史诗装备什么的
;M60,M61 S60 S61 S62临时值
;-----------------------------------------------------------------------
;初始数据
#IF
CHECKLEVELEX > 0
#ACT
MOV S50
MOV S51
MOV S52
MOV S53
MOV S54
MOV S55
MOV S60
MOV S61
MOV S62
MOV S63
MOV S71
MOV S72
MOV S73
MOV S74
MOV S75
MOV S76
MOV S77
MOV S78
MOV S79
MOV S80
MOV S81
MOV S82
MOV S83
MOV M50 0
MOV M51 0
MOV M52 0
MOV M53 0
MOV M54 0
MOV M56 0
MOV M57 0
MOV M60 0
MOV M61 0
MOV M62 0
MOV M63 0
MOV M64 0
MOV M65 0
MOV S77 <
INC S77 Img:109:0:-1:-8/@衣服_材料1
INC S77 >
MOV S78 <
INC S78 Img:109:0:-8:4/@衣服_材料2
INC S78 >
MOV S79 <
INC S79 Img:109:0:-5:4/@衣服_材料3
INC S79 >
MOV S80 <
INC S80 Img:109:0:-8:1/@衣服_材料4
INC S80 >
MOV S81 <
INC S81 Img:109:0:-5:1/@衣服_材料5
INC S81 >
MOV S82 <
INC S82 Img:109:0:-1:-7/@衣服_材料6
INC S82 >
#IF
CHECKLEVELEX > 0
#ACT
;设置精炼装备的部位
MOV M50 0
#IF
CHECKUSEITEM <$STR(M50)>
#ACT
#ELSEACT
messagebox 请将你要精炼的装备:〖衣服〗带到身上！\
break
#IF
#ACT
;获得衣服名字
;格局: GetUserIteMNaMe 位置(0-12) S变量(0-99)
GetUserIteMNaMe <$STR(M50)> 50
MOV M61 0
goto @衣服_检测图片信息
[@衣服_检测图片信息]
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\物品资料库\衣服图片库.txt <$STR(M61)> S60 M60
#IF
EQUAL S60 <$STR(S50)>
#ACT
MOV S53 <Img:
INC S53 <$STR(M60)>
INC S53 :1:1:-108>
MOV M61 0
goto @衣服_检测物品信息
BREAK
#IF
EQUAL S60 END
#ACT
messagebox 该装备【<$STR(S50)>】为特殊装备,无法精炼!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
INC M61 1
GOTO @衣服_检测图片信息
BREAK

[@衣服_检测物品信息]
#if
;假如已经是紫色发光装备
CheckItemNameColor <$STR(M50)> 253
#ACT
CloseBigDialogBox
close
BREAK
#SAY
您的衣服已经紫色传说级装备!\
请好好珍惜!\
<确定[url=]/@EXIT[/url]>
#IF
CHECKLEVELEX > 0
#ACT
MOV S51 白色
MOV M52 3
MOV M58 3
MOV M53 50
MOV M57 180
MOV S83 蓝色优良装备
MOV S54 成为蓝色的
INC S54 <优良装备
INC S54 /SCOLOR=180
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=255
INC S52 >
#IF
CheckItemNameColor <$STR(M50)> 180
#ACT
MOV S51 蓝色
MOV M52 4
MOV M58 3
MOV M53 80
MOV M57 250
MOV S83 绿色精致装备
MOV S54 成为绿色的
INC S54 <精致装备
INC S54 /SCOLOR=250
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=180
INC S52 >
#IF
CheckItemNameColor <$STR(M50)> 250
#ACT
MOV S51 绿色
MOV M52 5
MOV M58 4
MOV M53 144
MOV M57 70
MOV S83 橙色完美装备
MOV S54 成为橙色的
INC S54 <完美装备
INC S54 /SCOLOR=70
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=250
INC S52 >
#IF
CheckItemNameColor <$STR(M50)> 70
#ACT
MOV S51 橙色
MOV M52 6
MOV M58 4
MOV M53 216
MOV M57 249
MOV S83 红色稀世装备
MOV S54 成为红色的
INC S54 <稀世装备
INC S54 /SCOLOR=249
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=70
INC S52 >
#IF
CheckItemNameColor <$STR(M50)> 249
#ACT
MOV S51 红色
MOV M52 8
MOV M58 5
MOV M53 300
MOV M57 245
MOV S83 紫色史诗装备
MOV S54 成为紫色的
INC S54 <史诗装备
INC S54 /SCOLOR=245
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=249
INC S52 >

#IF
CheckItemNameColor <$STR(M50)> 245
#ACT
MOV S51 紫色
MOV M52 10
MOV M58 6
MOV M53 420
MOV M57 253
MOV S83 发光的传说装备
MOV S54 成为发光的
INC S54 <传说装备
INC S54 /SCOLOR=253
INC S54 >
MOV S52 <
INC S52 <$STR(S50)>
INC S52 /SCOLOR=245
INC S52 >
#IF
#ACT
goto @衣服_材料图片信息

[@衣服_材料图片信息]
#if
CHECKVAR HUMAN Stone1 > 0
CHECKVAR HUMAN StName1 = 玄天神石
#ACT
MOV S71 <
INC S71 Img:1373:1:-3:-179>
MOV S77 <
INC S77 Img:109:0:-1:-8/@衣服_取回材料1
INC S77 >
#if
CHECKVAR HUMAN Stone1 > 0
CHECKVAR HUMAN StName1 = 补天神石
#act
MOV S71 <
INC S71 Img:1372:1:-3:-179>
MOV S77 <
INC S77 Img:109:0:-1:-8/@衣服_取回材料1
INC S77 >
#if
CHECKVAR HUMAN Stone2 > 0
CHECKVAR HUMAN StName2 = 玄天神石
#act
MOV S72 <
INC S72 Img:1373:1:-17:-167>
MOV S78 <
INC S78 Img:109:0:-8:4/@衣服_取回材料2
INC S78 >
#if
CHECKVAR HUMAN Stone2 > 0
CHECKVAR HUMAN StName2 = 补天神石
#act
MOV S72 <
INC S72 Img:1372:1:-17:-167>
MOV S78 <
INC S78 Img:109:0:-8:4/@衣服_取回材料2
INC S78 >

#if
CHECKVAR HUMAN Stone3 > 0
CHECKVAR HUMAN StName3 = 玄天神石
#act
MOV S73 <
INC S73 Img:1373:1:-8:-182>
MOV S79 <
INC S79 Img:109:0:-5:4/@衣服_取回材料3
INC S79 >
#if
CHECKVAR HUMAN Stone3 > 0
CHECKVAR HUMAN StName3 = 补天神石
#act
MOV S73 <
INC S73 Img:1372:1:-8:-182>
MOV S79 <
INC S79 Img:109:0:-5:4/@衣服_取回材料3
INC S79 >
#if
CHECKVAR HUMAN Stone4 > 0
CHECKVAR HUMAN StName4 = 玄天神石
#act
MOV S74 <
INC S74 Img:1373:1:-17:-138>
MOV S80 <
INC S80 Img:109:0:-8:1/@衣服_取回材料4
INC S80 >
#if
CHECKVAR HUMAN Stone4 > 0
CHECKVAR HUMAN StName4 = 补天神石
#act
MOV S74 <
INC S74 Img:1372:1:-17:-138>
MOV S80 <
INC S80 Img:109:0:-8:1/@衣服_取回材料4
INC S80 >
#if
CHECKVAR HUMAN Stone5 > 0
CHECKVAR HUMAN StName5 = 玄天神石
#act
MOV S75 <
INC S75 Img:1373:1:-8:-154>
MOV S81 <
INC S81 Img:109:0:-5:1/@衣服_取回材料5
INC S81 >
#if
CHECKVAR HUMAN Stone5 > 0
CHECKVAR HUMAN StName5 = 补天神石
#act
MOV S75 <
INC S75 Img:1372:1:-8:-154>
MOV S81 <
INC S81 Img:109:0:-5:1/@衣服_取回材料5
INC S81 >
#if
CHECKVAR HUMAN Stone6 > 0
CHECKVAR HUMAN StName6 = 玄天神石
#act
MOV S76 <
INC S76 Img:1373:1:-3:-146>
MOV S82 <
INC S82 Img:109:0:-1:-7/@衣服_取回材料6
INC S82 >
#if
CHECKVAR HUMAN Stone6 > 0
CHECKVAR HUMAN StName6 = 补天神石
#act
MOV S76 <
INC S76 Img:1372:1:-3:-146>
MOV S82 <
INC S82 Img:109:0:-1:-7/@衣服_取回材料6
INC S82 >
#IF
#ACT
goto @衣服_成功率计算
;-------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------
[@衣服_精炼界面]
#IF
LARGE M51 0
#ACT
;SENDMSG 6 S55:<$STR(S55)>
MOV M1 <$STR(M51)>
MUL M1 <$STR(M51)> <$STR(M52)>
INC M1 100
#IF
LARGE M1 0
SMALL M1 200
#ACT
MOV M1 1
#IF
LARGE M1 199
#ACT
DIV M1 <$STR(M1)> 200
#IF
CheckJob Warrior
LARGE M1 0
#ACT
MOV S1 <攻击+
INC S1 <$STR(M1)>　物防+<$STR(M1)>　魔防+<$STR(M1)>
INC S1 /SCOLOR=250
INC S1 >
#IF
CheckJob Wizard
LARGE M1 0
#ACT
MOV S1 <魔法+
INC S1 <$STR(M1)>　物防+<$STR(M1)>　魔防+<$STR(M1)>
INC S1 /SCOLOR=250
INC S1 >
#IF
CheckJob Taoist
LARGE M1 0
#ACT
MOV S1 <道术+
INC S1 <$STR(M1)>　物防+<$STR(M1)>　魔防+<$STR(M1)>
INC S1 /SCOLOR=250
INC S1 >
#IF
LARGE M51 0
#ACT
;SENDMSG 6 S55:<$STR(S55)>
MOV M2 <$STR(M51)>
MUL M2 <$STR(M51)> <$STR(M58)>
INC M2 50
#IF
LARGE M2 0
SMALL M2 100
#ACT
MOV M2 1
#IF
LARGE M2 99
#ACT
DIV M2 <$STR(M2)> 100
#IF
LARGE M2 0
#ACT
MOV S2 <物理伤害减少+
INC S2 <$STR(M2)>
INC S2 %
INC S2 /SCOLOR=254
INC S2 >
#IF
LARGE M51 0
#ACT
CloseBigDialogBox
#SAY
　       <$STR(S77)>\
<$STR(S78)> 　　　      <$STR(S79)>  <装备名称/SCOLOR=100>:<$STR(S52)> \
　　 　　　　　              <成功率:/SCOLOR=100>{<$STR(M51)>/SCOLOR=58}<%/SCOLOR=58> \
　　 　　　　　              <基础属性:/SCOLOR=100><$STR(S1)>\
　　 　　　　　              <元素属性:/SCOLOR=100><$STR(S2)>\
<$STR(S80)> 　　　      <$STR(S81)>  <进级成功:/SCOLOR=100><$STR(S54)>\
　　 　　　　　              \
　       <$STR(S82)>\
　         　　         　　           <Img:108:0:-3:-7/@衣服_确定精炼>\
<Img:107:0:-22:-156>\
　       <$STR(S53)>\
　        <$STR(S71)>\
　<$STR(S72)>\
　                   <$STR(S73)>\
　<$STR(S74)>\
　                   <$STR(S75)>\
　        <$STR(S76)>\
　   \
#ELSEACT
CloseBigDialogBox
#ELSESAY
　       <$STR(S77)>\
<$STR(S78)> 　　　      <$STR(S79)>  <装备名称/SCOLOR=100>:<$STR(S52)> \
　　 　　　　　              <成功率:/SCOLOR=100><$STR(M51)>% \
　　 　　　　　              <进级成功:/SCOLOR=100><$STR(S54)>\
　　 　　　　　              <进级失败:/SCOLOR=100>装备属性不变\
<$STR(S80)> 　　　      <$STR(S81)>\
　　 　　　　　              <$STR(S55)>\
　       <$STR(S82)>\
　         　　         　　           <Img:108:0:-3:-7/@衣服_确定精炼>\
<Img:107:0:-22:-156>\
　       <$STR(S53)>\
　        <$STR(S71)>\
　<$STR(S72)>\
　                   <$STR(S73)>\
　<$STR(S74)>\
　                   <$STR(S75)>\
　        <$STR(S76)>\
　   \
;--------------------------------------------------
;@衣服_材料1
;--------------------------------------------------
[@衣服_材料1]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 1
MOV S62 S71
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------
;@衣服_材料2
;--------------------------------------------------
[@衣服_材料2]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 2
MOV S62 S72
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------
;@衣服_材料3
;--------------------------------------------------
[@衣服_材料3]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 3
MOV S62 S73
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------
;@衣服_材料4
;--------------------------------------------------
[@衣服_材料4]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 4
MOV S62 S74
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------
;@衣服_材料5
;--------------------------------------------------
[@衣服_材料5]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 5
MOV S62 S75
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------
;@衣服_材料6
;--------------------------------------------------
[@衣服_材料6]
#IF
CHECKLEVELEX > 0
#ACT
MOV M54 6
MOV S62 S76
OpenItemBoxEx 50 1 放入〖精炼材料〗
;--------------------------------------------------------------------
;--------------------------------------------------------------------
;开启添加材料的界面:序号50
;--------------------------------------------------------------------
;--------------------------------------------------------------------
[@GetBoxIteM50]
#IF
EQUAL S0 玄天神石
#ACT
sendmsg 6 S0:<$STR(S0)>
goto @衣服_材料数据
BREAK
#IF
EQUAL S0 补天神石
#ACT
goto @衣服_材料数据
BREAK
#ELSEact
ReclaimItem
;MOV M61 <$STR(N0)>
;DIV M61 <$STR(M61)> 1000
;Gmexecute GiveMine <$STR(S0)> 1 <$STR(M61)>
messagebox 精炼材料必须是【玄天神石】或【补天神石】!
BREAK
[@衣服_材料数据]
#IF
EQUAL M54 0
#ACT
ReclaimItem
messagebox 精炼材料数据发生变化!
goto @MAIN
BREAK
#IF
EQUAL S0 玄天神石
EQUAL S62 S71
#ACT
MOV S63 Img:1373:1:-3:-179
MOV S77 <
INC S77 Img:109:0:-1:-8/@衣服_取回材料1
INC S77 >
#IF
EQUAL S0 补天神石
EQUAL S62 S71
#ACT
MOV S63 Img:1372:1:-3:-179
MOV S77 <
INC S77 Img:109:0:-1:-8/@衣服_取回材料1
INC S77 >

#IF
EQUAL S0 玄天神石
EQUAL S62 S72
#ACT
MOV S63 Img:1373:1:-17:-167
MOV S78 <
INC S78 Img:109:0:-8:4/@衣服_取回材料2
INC S78 >
#IF
EQUAL S0 补天神石
EQUAL S62 S72
#ACT
MOV S63 Img:1372:1:-17:-167
MOV S78 <
INC S78 Img:109:0:-8:4/@衣服_取回材料2
INC S78 >
#IF
EQUAL S0 玄天神石
EQUAL S62 S73
#ACT
MOV S63 Img:1373:1:-8:-182
MOV S79 <
INC S79 Img:109:0:-5:4/@衣服_取回材料3
INC S79 >
#IF
EQUAL S0 补天神石
EQUAL S62 S73
#ACT
MOV S63 Img:1372:1:-8:-182
MOV S79 <
INC S79 Img:109:0:-5:4/@衣服_取回材料3
INC S79 >

#IF
EQUAL S0 玄天神石
EQUAL S62 S73
#ACT
MOV S63 Img:1373:1:-8:-182
#IF
EQUAL S0 补天神石
EQUAL S62 S73
#ACT
MOV S63 Img:1372:1:-8:-182
#IF
EQUAL S0 玄天神石
EQUAL S62 S74
#ACT
MOV S63 Img:1373:1:-17:-138
MOV S80 <
INC S80 Img:109:0:-8:1/@衣服_取回材料4
INC S80 >
#IF
EQUAL S0 补天神石
EQUAL S62 S74
#ACT
MOV S63 Img:1372:1:-17:-138
MOV S80 <
INC S80 Img:109:0:-8:1/@衣服_取回材料4
INC S80 >
#IF
EQUAL S0 玄天神石
EQUAL S62 S75
#ACT
MOV S63 Img:1373:1:-8:-154
MOV S81 <
INC S81 Img:109:0:-5:1/@衣服_取回材料5
INC S81 >
#IF
EQUAL S0 补天神石
EQUAL S62 S75
#ACT
MOV S63 Img:1372:1:-8:-154
MOV S81 <
INC S81 Img:109:0:-5:1/@衣服_取回材料5
INC S81 >

#IF
EQUAL S0 玄天神石
EQUAL S62 S76
#ACT
MOV S63 Img:1373:1:-3:-146
MOV S82 <
INC S82 Img:109:0:-1:-7/@衣服_取回材料6
INC S82 >
#IF
EQUAL S0 补天神石
EQUAL S62 S76
#ACT
MOV S63 Img:1372:1:-3:-146
MOV S82 <
INC S82 Img:109:0:-1:-7/@衣服_取回材料6
INC S82 >
;--------------------------------------------------------------------------
#if
CHECKLEVELEX > 0
#act
MOV S61 Stone
INC S61 <$STR(M54)>
MOV M60 <$STR(N0)>
DIV M60 <$STR(M60)> 1000
MOV S64 StName
INC S64 <$STR(M54)>
;S61对应矿石品质
;S64对应矿石名称
MOV HUMAN <$STR(S61)> <$STR(M60)>
SAVEVAR HUMAN <$STR(S61)> ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN <$STR(S64)> <$STR(S0)>
SAVEVAR HUMAN <$STR(S64)> ..\QuestDiary\变量数据\精炼矿石名.txt
SENDMSG 6 你放入了<$STR(S0)>,品质为:<$STR(M60)>
;S62 图片位置编号,S63对应图片坐标
MOV <$STR(S62)> <
INC <$STR(S62)> <$STR(S63)>
INC <$STR(S62)> >
close
goto @衣服_精炼
Break
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
;衣服_成功率计算
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
[@衣服_成功率计算]
#if
CHECKLEVELEX > 0
#act
MOV M62 1
#if
CHECKVAR HUMAN Stone1 > 0
CHECKVAR HUMAN StName1 = 玄天神石
#ACT
INC M62 <$HUMAN(Stone1)>
#if
CHECKVAR HUMAN Stone1 > 0
CHECKVAR HUMAN StName1 = 补天神石
#act
INC M62 <$HUMAN(Stone1)>
INC M62 <$HUMAN(Stone1)>
INC M62 <$HUMAN(Stone1)>

#if
CHECKVAR HUMAN Stone2 > 0
CHECKVAR HUMAN StName2 = 玄天神石
#act
INC M62 <$HUMAN(Stone2)>
#if
CHECKVAR HUMAN Stone2 > 0
CHECKVAR HUMAN StName2 = 补天神石
#act
INC M62 <$HUMAN(Stone2)>
INC M62 <$HUMAN(Stone2)>
INC M62 <$HUMAN(Stone2)>
#if
CHECKVAR HUMAN Stone3 > 0
CHECKVAR HUMAN StName3 = 玄天神石
#act
INC M62 <$HUMAN(Stone3)>
#if
CHECKVAR HUMAN Stone3 > 0
CHECKVAR HUMAN StName3 = 补天神石
#act
INC M62 <$HUMAN(Stone3)>
;相称于补天神石是玄天神石的3倍效果,所以再加2次
INC M62 <$HUMAN(Stone3)>
INC M62 <$HUMAN(Stone3)>
#if
CHECKVAR HUMAN Stone4 > 0
CHECKVAR HUMAN StName4 = 玄天神石
#act
INC M62 <$HUMAN(Stone4)>
#if
CHECKVAR HUMAN Stone4 > 0
CHECKVAR HUMAN StName4 = 补天神石
#act
INC M62 <$HUMAN(Stone4)>
;相称于补天神石是玄天神石的3倍效果,所以再加2次
INC M62 <$HUMAN(Stone4)>
INC M62 <$HUMAN(Stone4)>
#if
CHECKVAR HUMAN Stone5 > 0
CHECKVAR HUMAN StName5 = 玄天神石
#act
INC M62 <$HUMAN(Stone5)>
#if
CHECKVAR HUMAN Stone5 > 0
CHECKVAR HUMAN StName5 = 补天神石
#act
INC M62 <$HUMAN(Stone5)>
;相称于补天神石是玄天神石的3倍效果,所以再加2次
INC M62 <$HUMAN(Stone5)>
INC M62 <$HUMAN(Stone5)>

#if
CHECKVAR HUMAN Stone6 > 0
CHECKVAR HUMAN StName6 = 玄天神石
#act
INC M62 <$HUMAN(Stone6)>
#if
CHECKVAR HUMAN Stone6 > 0
CHECKVAR HUMAN StName6 = 补天神石
#act
INC M62 <$HUMAN(Stone6)>
;相称于补天神石是玄天神石的3倍效果,所以再加2次
INC M62 <$HUMAN(Stone6)>
INC M62 <$HUMAN(Stone6)>
#if
CHECKLEVELEX > 0
#act
DEC M62 1
#IF
#ACT
goto @衣服_确认成功率
;---------------------------------------------------------
;衣服_再次确认成功率
;---------------------------------------------------------
;检测衣服相关信息
;255衣服白色
;180衣服蓝色
;250衣服绿色
;70衣服橙色
;249衣服红色
;245衣服暗紫色
;253衣服紫色
[@衣服_确认成功率]
#if
CHECKLEVELEX > 0
#ACT
;材料总品质
MUL M62 <$STR(M62)> 100
DIV M51 <$STR(M62)> <$STR(M53)>
goto @衣服_确认成功率B
[@衣服_确认成功率B]
#IF
LARGE M51 100
#ACT
MOV M51 100
#IF
EQUAL M55 1
#ACT
;SENDMSG 6 M55:<$STR(M55)>
GOTO @衣服_确定精炼A
BREAK
#if
;假如成功率>75,则附加元素属性!
LARGE M51 0
#ACT
MOV S55 <成功率＞75%,额外获得元素属性
INC S55 /AUTOCOLOR=250,254,249,70,245>
goto @衣服_精炼界面
BREAK
#ELSEACT
MOV S55
goto @衣服_精炼界面
BREAK
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
;衣服_进级
;盔甲
;0 防备
;1 魔御
;2 攻击
;3 魔法
;4 道术
;5-13 无效果
;14 持久
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
[@衣服_确定精炼]
#if
CHECKLEVELEX > 0
#ACT
MOV M55 1
goto @衣服_精炼
BREAK
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
[@衣服_确定精炼A]
#IF
CHECKLEVELEX > 0
#ACT
;设置已经点击进级按钮
MOV M55 0
;配合M66,模拟成功率百分数
MOVR M66 0 100
GOTO @材料进级后清零
#IF
SMALL M51 <$STR(M66)>
#ACT
BREAK
#SAY
晃若一梦,一切归于平寂,耀眼的白光擦过\
您的衣服没有得到进一步的强化!\
<继承精炼/@衣服_精炼>  <退出[url=]/@exit>\[/url]

#IF
CHECKLEVELEX > 0
#ACT
;设置成功数=原始满点M52*成功率M51/2,由于还防
MUL M52 <$STR(M52)> <$STR(M51)>
INC M52 100
DIV M52 <$STR(M52)> 200
;设置元素附加点=原始满点M58*成功率M51
MUL M58 <$STR(M58)> <$STR(M51)>
INC M58 50
DIV M58 <$STR(M58)> 100

#IF
SMALL M58 1
#ACT
MOV M58 1

#IF
SMALL M52 1
#ACT
MOV M52 1
#IF
CHECKLEVELEX > 0
#ACT
;成功起始动画图片序号
MOV M68 699
GOTO @衣服_确定精炼AA
[@衣服_确定精炼AA]
#IF
CHECKLEVELEX > 0
#ACT
;调束装备颜色
ChangeItemNameColor <$STR(M50)> <$STR(M57)>
GuildNoticeMsg 255 253 [精炼]:一道华光划过,恭喜%s将自己的【<$STR(S50)>】进级为【<$STR(S83)>】！！！
#IF
CheckItemNameColor <$STR(M50)> 245
#ACT
;将装备颜调整为发光
SetItemsLight <$STR(M50)> 2

#IF
CheckJob Warrior
#ACT
MOV M56 2
GOTO @衣服_确定精炼B
BREAK

#IF
CheckJob Wizard
#ACT
MOV M56 3
GOTO @衣服_确定精炼B
BREAK
#ELSEACT
MOV M56 4
GOTO @衣服_确定精炼B
BREAK
;-------------------------------------------------------------------------
[@衣服_确定精炼B]
#IF
CHECKLEVELEX > 0
#ACT
;加对应职业攻击或魔法或道术
UPGRADEITEMEX <$STR(M50)> <$STR(M56)> 0 1 0
;加物防魔防
UPGRADEITEMEX <$STR(M50)> 0 0 1 0
UPGRADEITEMEX <$STR(M50)> 1 0 1 0
INC M61 1

#IF
CHECKLEVELEX > 0
#ACT
GOTO @衣服_确定精炼BB
[@衣服_确定精炼BB]
#IF
LARGE M61 10
#ACT
GOTO @衣服_确定精炼C
GOTO @衣服_精炼成功动画
BREAK
#IF
EQUAL M61 <$STR(M52)>
#ACT
MOV M61 0
GOTO @衣服_确定精炼C
GOTO @衣服_精炼成功动画
BREAK
#ELSEACT
GOTO @衣服_确定精炼B
[@衣服_确定精炼C]
#if
;假如成功率>0,则附加元素属性!
LARGE M51 0
#ACT
GOTO @衣服_附加元素属性
BREAK

[@衣服_精炼成功动画]
#IF
SMALL M68 711
#ACT
INC M68 1
MOV S65 <Img:
INC S65 <$STR(M68)>
INC S65 :3:-370:-127>
;SENDMSG 6 S65:<$STR(S65)>
DelayCall 200 @衣服_精炼成功动画
#SAY
　       <$STR(S77)>\
<$STR(S78)> 　　　      <$STR(S79)>  <装备名称/SCOLOR=100>:<$STR(S52)> \
　　 　　　　　              <成功率:/SCOLOR=100><$STR(M51)>% \
　　 　　　　　              <进级成功:/SCOLOR=100><$STR(S54)>\
　　 　　　　　              <进级失败:/SCOLOR=100>装备属性不变\
<$STR(S80)> 　　　      <$STR(S81)>\
　　 　　　　　              <$STR(S55)>\
　       <$STR(S82)>\
　         　　         　　           <Img:108:0:-3:-7/@衣服_确定精炼>\
<Img:107:0:-22:-156> <$STR(S65)>\
　       <$STR(S53)>\
　        <$STR(S71)>\
　<$STR(S72)>\
　                   <$STR(S73)>\
　<$STR(S74)>\
　                   <$STR(S75)>\
　        <$STR(S76)>\
　   \
#ELSEACT
ClearDelayGoto 0
goto @衣服_精炼
BREAK
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
;衣服_取回材料
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
[@衣服_取回材料1]
#if
CHECKVAR HUMAN Stone1 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone1)>/SCOLOR=146}的{<$HUMAN(StName1)>/SCOLOR=146}吗?\
　\
<确定取回/@衣服_确定取回1>  <返回/@衣服_精炼>\
[@衣服_确定取回1]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName1)> 1 <$HUMAN(Stone1)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone1)>的<$HUMAN(Stone1)>!
MOV HUMAN Stone1 0
SAVEVAR HUMAN Stone1 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName1
SAVEVAR HUMAN StName1 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
[@衣服_取回材料2]
#if
CHECKVAR HUMAN Stone2 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone2)>/SCOLOR=146}的{<$HUMAN(StName2)>/SCOLOR=146}吗?\
　\
<确定取回/@衣服_确定取回2>  <返回/@衣服_精炼>\
[@衣服_确定取回2]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName2)> 1 <$HUMAN(Stone2)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone2)>的<$HUMAN(Stone2)>!
MOV HUMAN Stone2 0
SAVEVAR HUMAN Stone2 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName2
SAVEVAR HUMAN StName2 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
[@衣服_取回材料3]
#if
CHECKVAR HUMAN Stone3 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone3)>/SCOLOR=146}的{<$HUMAN(StName3)>/SCOLOR=146}吗?\
　\
<确定取回/@衣服_确定取回3>  <返回/@衣服_精炼>\
[@衣服_确定取回3]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName3)> 1 <$HUMAN(Stone3)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone3)>的<$HUMAN(Stone3)>!
MOV HUMAN Stone3 0
SAVEVAR HUMAN Stone3 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName3
SAVEVAR HUMAN StName3 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
[@衣服_取回材料4]
#if
CHECKVAR HUMAN Stone4 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone4)>/SCOLOR=146}的{<$HUMAN(StName4)>/SCOLOR=146}吗?\
　\
<确定取回/@衣服_确定取回4>  <返回/@衣服_精炼>\

[@衣服_确定取回4]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName4)> 1 <$HUMAN(Stone4)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone4)>的<$HUMAN(Stone4)>!
MOV HUMAN Stone4 0
SAVEVAR HUMAN Stone4 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName4
SAVEVAR HUMAN StName4 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
[@衣服_取回材料5]
#if
CHECKVAR HUMAN Stone5 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone5)>/SCOLOR=146}的{<$HUMAN(StName5)>/SCOLOR=146}吗?\
　\
<确定取回/@衣服_确定取回5>  <返回/@衣服_精炼>\

[@衣服_确定取回5]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName5)> 1 <$HUMAN(Stone5)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone5)>的<$HUMAN(Stone5)>!
MOV HUMAN Stone5 0
SAVEVAR HUMAN Stone5 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName5
SAVEVAR HUMAN StName5 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
[@衣服_取回材料6]
#if
CHECKVAR HUMAN Stone6 > 0
#act
#SAY
确定要取回品质为{<$HUMAN(Stone6)>/SCOLOR=146}的{<$HUMAN(StName6)>/SCOLOR=146}吗?\
　\

[@衣服_确定取回6]
#if
CHECKLEVELEX > 0
#act
Gmexecute GiveMine <$HUMAN(StName6)> 1 <$HUMAN(Stone6)>
SENDMSG 6 你取回了品质为:<$HUMAN(Stone6)>的<$HUMAN(Stone6)>!
MOV HUMAN Stone6 0
SAVEVAR HUMAN Stone6 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName6
SAVEVAR HUMAN StName6 ..\QuestDiary\变量数据\精炼矿石名.txt
goto @衣服_精炼
BREAK
;--------------------------------------------------------
;材料进级后清零
;--------------------------------------------------------
[@材料进级后清零]
#if
CHECKLEVELEX > 0
#act
MOV HUMAN Stone6 0
SAVEVAR HUMAN Stone6 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN Stone5 0
SAVEVAR HUMAN Stone5 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN Stone4 0
SAVEVAR HUMAN Stone4 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN Stone3 0
SAVEVAR HUMAN Stone3 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN Stone2 0
SAVEVAR HUMAN Stone2 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN Stone1 0
SAVEVAR HUMAN Stone1 ..\QuestDiary\变量数据\精炼矿石.txt
MOV HUMAN StName6
SAVEVAR HUMAN StName6 ..\QuestDiary\变量数据\精炼矿石名.txt
MOV HUMAN StName5
SAVEVAR HUMAN StName5 ..\QuestDiary\变量数据\精炼矿石名.txt
MOV HUMAN StName4
SAVEVAR HUMAN StName4 ..\QuestDiary\变量数据\精炼矿石名.txt
MOV HUMAN StName3
SAVEVAR HUMAN StName3 ..\QuestDiary\变量数据\精炼矿石名.txt
MOV HUMAN StName2
SAVEVAR HUMAN StName2 ..\QuestDiary\变量数据\精炼矿石名.txt
MOV HUMAN StName1
SAVEVAR HUMAN StName1 ..\QuestDiary\变量数据\精炼矿石名.txt
;--------------------------------------------------------
;附加特殊元素属性
;--------------------------------------------------------
[@衣服_附加元素属性]
#IF
EQUAL M50 0
#ACT
MOV M59 2

#IF
EQUAL M50 1
#ACT
MOV M59 0
#IF
EQUAL M50 3
#ACT
MOV M59 4
#IF
EQUAL M50 4
#ACT
#IF
EQUAL M50 5
#ACT
MOV M59 3
#IF
EQUAL M50 6
#ACT
MOV M59 3
#IF
EQUAL M50 7
#ACT
MOV M59 1
#IF
EQUAL M50 8
#ACT
MOV M59 1
#IF
EQUAL M50 10
#ACT
MOV M59 5
#IF
EQUAL M50 11
#ACT
MOV M59 2

#IF
EQUAL M50 12
#ACT
MOV M59 0

#IF
CHECKLEVELEX > 0
#ACT
goto @衣服_附加元素属性A

;格局: SetNewItemValue 位置(0-12) 属性(0-5) 操纵符(+,-,=) 值(1-100)
[@衣服_附加元素属性A]
#IF
CHECKLEVELEX > 0
#ACT
SetNewIteMValue <$STR(M50)> <$STR(M59)> + <$STR(M58)>
SENDMSG 6 恭喜,此次进级,您的装备额外获得了<$STR(M58)>%的元素属性!
BREAK
}

cesfa1

支持玩私服吧论坛wan458.com

每日更新大量开区免费版本。群服，大服等等。

cesfa1

支持玩私服吧论坛wan458.com

每日更新大量开区免费版本。群服，大服等等。

cesfa2

支持玩私服吧论坛wan458.com

每日更新大量开区免费版本。群服，大服等等。