您的位置: 首页 > 功能脚本 >

[GOM脚本] 传奇剑甲强化功能脚本

发布日期:2024-05-15 20:10:35


传奇剑甲强化功能脚本只对武器和衣服进行加成,强化后的武器可以进行转移。

163518zss2h05t4606444u


[@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脚本] 传奇幸运项链强化转移脚本

下一篇:[GOM脚本] 传奇赞助礼包脚本