传奇开单机传奇为了回报广大的GM和传奇爱好者.近期会在传奇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\www.uc955.com\衣服图片库.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
您的衣服已经紫色传说级装备!\
请好好珍惜!\
<确定/@EXIT>
#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 @衣服_确认成功率 |
|