[传奇脚本功能]四方框装备强化功能脚本(Gom引擎)

技术员

[传奇脚本功能]四方框装备强化功能脚本(Gom引擎)

[@main]
#if
#Act
OPENMERCHANTBIGDLG 2 25 1 1 -200 150 1 418 3
#SAY
\ \ \
<>                 <请把要强化的装备放到下面四方框里面>\
<><普通1% 精良2% 优秀3% 完美4% 超越5% 史诗6% 传说7% 神话8% 帝王9% 江湖10%/SCOLOR=70>\
<>              <强化一次需要：5千元宝+50江湖币+50江湖令/SCOLOR=250>\
<PlayImg:24:999:11:200:130:-30:0>
<ITEMBOX:1:113:203:40:20:50:50:5,10,11,15,19,21,22,23,24,26,30,64,63,62:武器，铠甲，手镯，戒指，腰带，靴子，头盔，项链，宝石，勋章可强化>\


[@ItemOutBox1]
#IF
#ACT
goto @main
break

[@ItemIntoBox1]
#OR
EQUAL <$BOXITEM[1].STDMODE> 31
EQUAL <$BOXITEM[1].STDMODE> 2
EQUAL <$BOXITEM[1].STDMODE> 44
EQUAL <$BOXITEM[1].STDMODE> 41
#act
ReturnBoxItem 1
break


#IF
#ACT
GOTO @显示


[@显示]
#IF
#Act
OPENMERCHANTBIGDLG 2 25 1 1 -200 150 1 418 3
#SAY
\ \ \
<>                 <请把要强化的装备放到下面四方框里面>\
<><普通1% 精良2% 优秀3% 完美4% 超越5% 史诗6% 传说7% 神话8% 帝王9% 江湖10%/SCOLOR=70>\
<>              <强化一次需要：5千元宝+50江湖币+50江湖令/SCOLOR=250>\
<PlayImg:24:999:11:200:130:-30:0>
<ITEMBOX:1:113:203:40:20:50:50:5,10,11,15,19,21,22,23,24,26,30,64,63,62:武器，铠甲，手镯，戒指，腰带，靴子，头盔，项链，宝石，勋章可强化>\  \ \ \ \ \

<>                   <■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58><开始强化|^254#消耗【5千元宝+50江湖币+50江湖令】可重新强化一次该装备/@确定鉴定><■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58><■/SCOLOR=58>  \



[@确定鉴定]

#IF

CHECKGameGold > 4999
CHECKGameGird > 49
CHECKITEM 江湖令 50
#act
Take 江湖令 50
GameGold - 5000
GameGird - 50
GetRandomText ..\QuestDiary\重要设置\鉴定品质.txt S10
#ELSEACT
MESSAGEBOX 错误:\你5千元宝+50江湖币+50江湖令不够,无法强化。\
BREAK

#IF
EQUAL <$STR(S10)> 普通
#ACT
MOV N$数值 1

#IF
EQUAL <$STR(S10)> 精良
#ACT
MOV N$数值 2

#IF
EQUAL <$STR(S10)> 优秀
#ACT
MOV N$数值 3


#IF
EQUAL <$STR(S10)> 完美
#ACT
MOV N$数值 4


#IF
EQUAL <$STR(S10)> 超越
#ACT
MOV N$数值 5


#IF
EQUAL <$STR(S10)> 史诗
#ACT
MOV N$数值 6

#IF
EQUAL <$STR(S10)> 传说
#ACT
MOV N$数值 7


#IF
EQUAL <$STR(S10)> 神话
#ACT
MOV N$数值 8

#IF
EQUAL <$STR(S10)> 帝王
#ACT
MOV N$数值 9

#IF
EQUAL <$STR(S10)> 江湖
#ACT
MOV N$数值 9

#IF
#ACT
SetUpgradeItem 1
CHANGECUSTOMITEMVALUE -1 0 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 1 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 4 = <$STR(N$数值)>
CHANGECUSTOMITEMABIL -1 0 0 254
CHANGECUSTOMITEMABIL -1 1 0 254
CHANGECUSTOMITEMABIL -1 2 0 254
CHANGECUSTOMITEMABIL -1 3 0 254
CHANGECUSTOMITEMABIL -1 4 0 254
CHANGECUSTOMITEMABIL -1 0 1 1
CHANGECUSTOMITEMABIL -1 1 1 2
CHANGECUSTOMITEMABIL -1 2 1 3
CHANGECUSTOMITEMABIL -1 3 1 4
CHANGECUSTOMITEMABIL -1 4 1 5
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 0 3 1
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMABIL -1 2 3 1
CHANGECUSTOMITEMABIL -1 3 3 1
CHANGECUSTOMITEMABIL -1 4 3 1
UpDateBoxItem 1
MESSAGEBOX 鸿福齐天:\恭喜你鉴定出了<$STR(S10)>级装备!!!!\


#IF
EQUAL <$STR(S10)> 江湖
#ACT
ReturnBoxItem 1
MESSAGEBOX 鸿福齐天:\恭喜你鉴定出了江湖级装备!!!!\
BREAK