[GOM脚本] 传奇剑甲强化功能脚本
发布日期:2024-05-15 20:10:35
传奇剑甲强化功能脚本只对武器和衣服进行加成,强化后的武器可以进行转移。
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \
<只允许强化武器.衣服.成功几率100%.最高至10星.强化后的武器可以免费随意转移/SCOLOR=254>\
<强化装备需要材料:/SCOLOR=250><每次强化费用200万金币+仙泪绿金*50/SCOLOR=251> \
<单件强化属性加成:/SCOLOR=253> \
< 1星 武器加成:攻击+5% 衣服加成:血量+5%/SCOLOR=253>\
< 2星 武器加成:攻击+10% 衣服加成:血量+10%/SCOLOR=253> \
< 3星 武器加成:攻击+15% 衣服加成:血量+15%/SCOLOR=253> \
< 4星 武器加成:攻击+20% 衣服加成:血量+20%/SCOLOR=253> \
< 5星 武器加成:攻击+25% 衣服加成:血量+25%/SCOLOR=253> <ITEMBOX:0:28:1294:50:-40:36:15:*:251#请将需要强化的装备放在这里> <开始强化/@请放入装备> \
< 6星 武器加成:攻击+30% 衣服加成:血量+30%/SCOLOR=253> <强化转移/@强化转移> \
< 7星 武器加成:攻击+35% 衣服加成:血量+35%/SCOLOR=253>\
< 8星 武器加成:攻击+40% 衣服加成:血量+40%/SCOLOR=253> \
< 9星 武器加成:攻击+45% 衣服加成:血量+45%/SCOLOR=253> \
<10星 武器加成:攻击+50% 衣服加成:血量+50%/SCOLOR=253> \
<单件满星额外增加打怪伤害5%/SCOLOR=250>
[@请放入装备]
#ACT
MESSAGEBOX 你还没有放入需要强化的装备!
[@ItemOutBox0]
#ACT
goto @main
[@ItemIntoBox0]
#ACT
SetUpgradeItem 0
#OR
EQUAL <$BOXITEM[0].STDMODE> 5
EQUAL <$BOXITEM[0].STDMODE> 10
#ACT
MOV N$材料数量1 1
MOV N$货币数量 1
GOTO @检测部位
BREAK
#ELSEACT
ReturnBoxItem 0
MESSAGEBOX 只允许放入武器,衣服
BREAK
[@检测部位]
#IF
EQUAL <$BOXITEM[0].STDMODE> 5
#ACT
MOV N$属性位置1 0
DELAYGOTO 1 @检测等级
BREAK
#OR
EQUAL <$BOXITEM[0].STDMODE> 10
#ACT
MOV N$属性位置1 2
MOV N$属性位置2 3
MOV N$属性位置3 4
DELAYGOTO 1 @检测等级
BREAK
[@检测等级]
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 100
#ACT
MOV S31 10星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <无法继续强化
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 无法继续强化
MUL N$材料数量1 无法继续强化
MOV S$强化材料名字1 无法继续强化
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 100
#ACT
MOV S31 10星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 90
#ACT
MOV S31 9星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 80
#ACT
MOV S31 8星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 70
#ACT
MOV S31 7星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 60
#ACT
MOV S31 6星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 50
#ACT
MOV S31 5星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 40
#ACT
MOV S31 4星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 30
#ACT
MOV S31 3星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 20
#ACT
MOV S31 2星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 10
#ACT
MOV S31 1星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 0
#ACT
MOV S31 0星
MOV S33 <$BOXITEM[0].COLOR>
MOV S32 <
INC S32 <$BOXITEM[0].NAME_G>/
INC S32 SCOLOR=<$STR(S33)>>
MOV S35 <100%
INC S35 /SCOLOR=253>
MOV M16 2
MUL N$货币数量 2000000
MUL N$材料数量1 50
MOV S$强化材料名字1 仙泪绿金
MOV N$成功几率 1
goto @强化说明
BREAK
[@强化说明]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \ \
<当前装备:/SCOLOR=254> <$STR(S32)>\
<强化等级:/SCOLOR=254>< <$STR(S31)>/SCOLOR=249>\
<需要材料:/SCOLOR=254>< <$str(S$强化材料名字1)>/SCOLOR=241>< <$STR(N$材料数量1)>颗/SCOLOR=251> \
<需要材料:/SCOLOR=254>< <$str(S$强化材料名字2)>/SCOLOR=241>< <$STR(N$材料数量2)>颗/SCOLOR=251> \
<需要货币:/SCOLOR=254> <金币/SCOLOR=70>:{<$STR(N$货币数量)>/SCOLOR=251}\
<成功几率:/SCOLOR=254> <$STR(S35)>\
<ITEMBOX:0:28:1294:300:-40:36:15:*:251#请将需要强化的装备放在这里>\
<[鼠标移动此处可查看强化加星获得属性]|
^250#强化每次成功增加一颗星星.并且提升10点装备基础属性
^254#[装备强化成功几率]:
^70#强化1-3星成功率为100%.3颗星星后几率失败.失败后降低一颗星
^249#全身强化3星触发最大生命值 + 10% 打怪伤害 + 10%
^249#全身强化6星触发最大生命值 + 20% 打怪伤害 + 20%
^249#全身强化9星触发最大生命值 + 40% 打怪伤害 + 40%
^249#全身强化12星触发最大生命值 + 60% 打怪伤害 + 60%
^249#全身强化15星触发最大生命值 + 100% 打怪伤害 + 100%/SCOLOR=249> <开始强化/@开始强化> \ \
[@开始强化]
#IF
EQUAL <$BOXITEM[0].UPGRADECOUNT> 100
#ACT
ReturnBoxItem 0
GOTO @MAIN
MESSAGEBOX 装备最高只能+10颗星星
BREAK
#IF
checkitem <$str(S$强化材料名字1)> <$STR(N$材料数量1)>
checkgold <$STR(N$货币数量)>
#act
GOTO @执行强化
#elseact
messagebox 金币不足或者材料不足!
BREAK
[@执行强化]
#IF
checkitem <$str(S$强化材料名字1)> <$STR(N$材料数量1)>
checkgold <$STR(N$货币数量)>
#ACT
TAKE <$str(S$强化材料名字1)> <$STR(N$材料数量1)>
Take 金币 <$STR(N$货币数量)>
ChangeItemUpgradeCount -1 + 10
CHANGEITEMADDVALUE -1 <$str(N$属性位置1)> + 10
UpDateBoxItem 0
GOTO @ItemIntoBox0
MESSAGEBOX 恭喜您成功的给装备强化了一颗星星
#elseact
TAKE <$str(S$强化材料名字1)> <$STR(N$材料数量1)>
Take 金币 <$STR(N$货币数量)>
ChangeItemUpgradeCount -1 - 10
CHANGEITEMADDVALUE -1 <$str(N$属性位置1)> - 10
UpDateBoxItem 0
GOTO @ItemIntoBox0
MESSAGEBOX 强化失败
[@强化转移]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \ \
<强化转移介绍:/SCOLOR=254>\ \
<下面方框内放入/SCOLOR=251><[已强化过的装备]/SCOLOR=249> <下面方框内放入/SCOLOR=251><[未强化过的装备]/SCOLOR=254>\
<ITEMBOX:1:28:1294:50:30:36:15:5,15,19,22,24,26,64,62,10,11:251#请将加星过的装备放入这里> <ITEMBOX:2:28:1294:300:30:36:15:5,15,19,22,24,26,64,62,10,11:251#请将接受转移的装备放入这里>\ \ \ \
<> <确定转移/@请先放入装备>\ \ \
<> <转移成功后会覆盖接受转移装备的星星数量.请仔细确认!/SCOLOR=250>\
[@请先放入装备]
#ACT
MESSAGEBOX 请先放入装备再点击
break
[@ItemOutBox1]
#ACT
ReturnBoxItem 1
ReturnBoxItem 2
goto @main
[@ItemOutBox2]
#ACT
ReturnBoxItem 1
ReturnBoxItem 2
goto @main
[@ItemIntoBox1]
#if
#act
SetUpgradeItem 1
#if
equal <$BOXITEM[1].NAME> 剑甲强化石+10
checkitem 剑甲强化石+10 1
#act
break
#if
equal <$BOXITEM[1].UPGRADECOUNT> 0
#act
ReturnBoxItem 1
ReturnBoxItem 2
MESSAGEBOX 左边框放入的装备没有星星.无法转移
BREAK
[@ItemIntoBox2]
#if
#act
SetUpgradeItem 2
#OR
EQUAL <$BOXITEM[2].STDMODE> 5
EQUAL <$BOXITEM[2].STDMODE> 10
#act
DELAYGOTO 1 @转移说明
#ELSEACT
ReturnBoxItem 2
MESSAGEBOX 只允许放入武器,衣服
BREAK
BREAK
[@转移说明]
#if
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
\ \ \ \ \ \
<强化转移介绍:/SCOLOR=254>\ \
<下面方框内放入/SCOLOR=251><[已强化过的装备]/SCOLOR=249> <下面方框内放入/SCOLOR=251><[未强化过的装备]/SCOLOR=254>\
<ITEMBOX:1:28:1294:50:30:36:15:5,15,19,22,24,26,64,62,10,11:251#请将加星过的装备放入这里> <ITEMBOX:2:28:1294:300:30:36:15:5,15,19,22,24,26,64,62,10,11:251#请将接受转移的装备放入这里>\ \ \ \
<> <确定转移/@确定转移>\ \ \
<> <转移成功后会覆盖接受转移装备的星星数量.请仔细确认!/SCOLOR=250>\
[@确定转移]
#ACT
SetUpgradeItem 1
SetUpgradeItem 2
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 请先在左边框中放入装备
BREAK
#IF
EQUAL <$BOXITEM[2].NAME>
#ACT
MESSAGEBOX 请先在右边框中放入装备
BREAK
#IF
EQUAL <$BOXITEM[1].STDMODE> 5
#act
MOV N$转移属性位置1 0
MOV N$转移属性位置2 1
MOV N$转移属性位置3 2
#or
EQUAL <$BOXITEM[1].STDMODE> 19
EQUAL <$BOXITEM[1].STDMODE> 22
EQUAL <$BOXITEM[1].STDMODE> 24
EQUAL <$BOXITEM[1].STDMODE> 26
EQUAL <$BOXITEM[1].STDMODE> 15
EQUAL <$BOXITEM[1].STDMODE> 62
EQUAL <$BOXITEM[1].STDMODE> 64
EQUAL <$BOXITEM[1].STDMODE> 10
EQUAL <$BOXITEM[1].STDMODE> 11
#act
MOV N$转移属性位置1 2
MOV N$转移属性位置2 3
MOV N$转移属性位置3 4
#IF
EQUAL <$BOXITEM[2].STDMODE> 5
#act
MOV N$接受转移属性位置1 0
MOV N$接受转移属性位置2 1
MOV N$接受转移属性位置3 2
#or
EQUAL <$BOXITEM[2].STDMODE> 19
EQUAL <$BOXITEM[2].STDMODE> 22
EQUAL <$BOXITEM[2].STDMODE> 24
EQUAL <$BOXITEM[2].STDMODE> 26
EQUAL <$BOXITEM[2].STDMODE> 15
EQUAL <$BOXITEM[2].STDMODE> 62
EQUAL <$BOXITEM[2].STDMODE> 64
EQUAL <$BOXITEM[2].STDMODE> 10
EQUAL <$BOXITEM[2].STDMODE> 11
#act
MOV N$接受转移属性位置1 2
MOV N$接受转移属性位置2 3
MOV N$接受转移属性位置3 4
#IF
equal <$BOXITEM[1].NAME> 剑甲强化石+10
checkitem 剑甲强化石+10 1
#ACT
MOV N$属性数值 100
MOV N$星星数值 100
goto @珠子转移
BREAK
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 100
#ACT
MOV N$属性数值 100
MOV N$星星数值 100
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 90
#ACT
MOV N$属性数值 90
MOV N$星星数值 90
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 80
#ACT
MOV N$属性数值 80
MOV N$星星数值 80
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 70
#ACT
MOV N$属性数值 70
MOV N$星星数值 70
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 60
#ACT
MOV N$属性数值 60
MOV N$星星数值 60
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 50
#ACT
MOV N$属性数值 50
MOV N$星星数值 50
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 40
#ACT
MOV N$属性数值 40
MOV N$星星数值 40
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 30
#ACT
MOV N$属性数值 30
MOV N$星星数值 30
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 20
#ACT
MOV N$属性数值 20
MOV N$星星数值 20
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 10
#ACT
MOV N$属性数值 10
MOV N$星星数值 10
#IF
EQUAL <$BOXITEM[1].UPGRADECOUNT> 0
#ACT
MOV N$属性数值 0
MOV N$星星数值 0
#IF
#ACT
SetUpgradeItem 1
ChangeItemUpgradeCount -1 = 0
CHANGEITEMADDVALUE -1 <$str(N$转移属性位置1)> = 0
UpDateBoxItem 1
ReturnBoxItem 1
SetUpgradeItem 2
ChangeItemUpgradeCount -1 = <$str(N$星星数值)>
CHANGEITEMADDVALUE -1 <$str(N$接受转移属性位置1)> = <$str(N$属性数值)>
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 转移成功
BREAK
[@珠子转移]
#IF
equal <$BOXITEM[1].NAME> 剑甲强化石+10
checkitem 剑甲强化石+10 1
#ACT
DELBOXITEM 1
SetUpgradeItem 2
ChangeItemUpgradeCount -1 = <$str(N$星星数值)>
CHANGEITEMADDVALUE -1 <$str(N$接受转移属性位置1)> = <$str(N$属性数值)>
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 转移成功
goto @main
BREAK
下一篇:[GOM脚本] 传奇赞助礼包脚本