脚本求助，本人笨！求大神给改下！

阳光小鸟 · 发表于 2026-3-29 18:35:38

我是想先检测升级框里的物品是极品才能重新洗，
然后洗这个物品总属性最高就是+3，可能是单属性+3也可能是分开有+1 +2 的，或者3个都+1
[@main]
#IF
EQUAL U0 1
#ACT
#SAY
欢迎您来到“<$SERVERNAME>”最具特色的小极品体验不一样的\\
游戏感觉！<极品重铸/FCOLOR=250>：<发掘装备潜力属性，让它的属性再次被发现/FCOLOR=251>\\
<出来！/FCOLOR=250>  此极品重铸功能充满了未知性！<建议/FCOLOR=250>：<打造前先洗澡更衣/FCOLOR=254>\\
<烧香拜佛！/FCOLOR=254>想想各种极品属性附加为单独一项........\\ \\
<武器属性/FCOLOR=250>：单极品属性点数不大于3点！（攻击魔法道术随机）\\
<衣服属性/FCOLOR=250>：单极品属性点数不大于3点！（防御魔御攻魔道随机）\\
<其他装备/FCOLOR=250>：单极品属性点数不大于3点！（<装备幸运属性可保留/FCOLOR=250>）\\
<注意/FCOLOR=251>：<装备原有的极品属性将会被清除！/FCOLOR=250>〖<现在开始打造大极品/@进入重塑>〗\\
BREAK
[@进入重塑]
#IF
#ACT
#SAY
衣服武器打造费用： 50万金币  其他装备打造费用： 50万金币 \\
<说明/FCOLOR=251>：极品属性有可能点数全加到一种属性上，当然也有可能分散\\
在几种属性上，可谓变幻无穷.乐趣无边！\\
其中奥秘也只有您自己才能探索发现！<建议/FCOLOR=250>：<打造前先洗澡更衣烧/FCOLOR=254>\\
<香拜佛！/FCOLOR=254> <注意/FCOLOR=251>：<原有极品属性将被清除/FCOLOR=254>\\
<提示/FCOLOR=251>：<人品爆发的玩家甚至可以打破极品点数哦！/FCOLOR=250><如遇见、请珍惜/FCOLOR=254>\\
<开始打造极品/@开始重塑>    \\
[@开始重塑]
#IF
checkgold 500000
#ACT
OPENUPGRADEDLG 放入要打造的装备
break
#ELSEACT
MessageBox 错误提示：你放入洞不是极品装备或者你的金币不足，不能进行打造！
break
[@UpgradeDlgItem]
#OR
EQUAL <$DLGITEM.STDMODE> 5
EQUAL <$DLGITEM.STDMODE> 6
#Act
take 金币  500000
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
GETITEMADDVALUE  -1 0 M2
MOV S3 攻击<$STR(M2)>点，
GETITEMADDVALUE  -1 1 M3
INC S3 魔法<$STR(M3)>点，
GETITEMADDVALUE  -1 2 M4
INC S3 道术<$STR(M4)>点，
INC M2 1
INC M3 1
INC M4 1
MOV M90 <$STR(M2)>
INC M90 <$STR(M3)>
MOV M91 <$STR(M4)>
MOV M7 <$STR(M91)>
INC M7 <$STR(M90)>
DEC M7 3
SENDMSG 0 恭喜“%s”对“<$DLGITEM.NAME>”成功进行了极品重铸，共发掘出潜力属性“<$STR(M7)>”点，分别增加“<$STR(S3)>”........ 251 249
RECLAIMITEM
DELAYCALL 10 @开始重塑
BREAK
#OR
EQUAL <$DLGITEM.STDMODE> 19
EQUAL <$DLGITEM.STDMODE> 20
EQUAL <$DLGITEM.STDMODE> 21
#Act
take 金币  500000
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
MOVR M3 3
INC M3 2
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
INC M3 2
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
INC M3 2
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
GETITEMADDVALUE -1 2 M2
MOV S3 攻击<$STR(M2)>点，
GETITEMADDVALUE -1 3 M3
INC S3 魔法<$STR(M3)>点，
GETITEMADDVALUE -1 4 M4
INC S3 道术<$STR(M4)>点，
INC M2 1
INC M3 1
INC M4 1
MOV M90 <$STR(M2)>
INC M90 <$STR(M3)>
MOV M91 <$STR(M4)>
MOV M7 <$STR(M91)>
INC M7 <$STR(M90)>
DEC M7 3
SENDMSG 0 恭喜“%s”对“<$DLGITEM.NAME>”成功进行了极品重铸，共发掘出潜力属性“<$STR(M7)>”点，分别增加“<$STR(S3)>”........ 251 249
RECLAIMITEM
DELAYCALL 10 @开始重塑
BREAK
#OR
EQUAL <$DLGITEM.STDMODE> 10
EQUAL <$DLGITEM.STDMODE> 11
#Act
take 金币  500000
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
GETITEMADDVALUE -1 0 M2
MOV S3 防御<$STR(M2)>点，
GETITEMADDVALUE -1 1 M3
INC S3 魔法防御<$STR(M3)>点，
GETITEMADDVALUE -1 2 M4
INC S3 攻击<$STR(M4)>点，
GETITEMADDVALUE -1 3 M5
INC S3 魔法<$STR(M5)>点，
GETITEMADDVALUE -1 4 M6
INC S3 道术<$STR(M6)>点，
INC M2 1
INC M3 1
INC M4 1
INC M5 1
INC M6 1
MOV M90 <$STR(M2)>
INC M90 <$STR(M3)>
MOV M91 <$STR(M4)>
INC M91 <$STR(M5)>
MOV M92 <$STR(M6)>
INC M92 <$STR(M90)>
MOV M7 <$STR(M91)>
INC M7 <$STR(M92)>
DEC M7 3
SENDMSG 0 恭喜“%s”对“<$DLGITEM.NAME>”成功进行了极品重铸，共发掘出潜力属性“<$STR(M7)>”点，分别增加“<$STR(S3)>”........ 251 249
RECLAIMITEM
DELAYCALL 10 @开始重塑
BREAK
#ELSEACT
take 金币  500000
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
MOVR M3 3
MOVR M4 3
CHANGEITEMADDVALUE -1 <$STR(M3)> = <$STR(M4)>
GETITEMADDVALUE -1 0 M2
MOV S3 防御<$STR(M2)>点，
GETITEMADDVALUE -1 1 M3
INC S3 魔法防御<$STR(M3)>点，
GETITEMADDVALUE -1 2 M4
INC S3 攻击<$STR(M4)>点，
GETITEMADDVALUE -1 3 M5
INC S3 魔法<$STR(M5)>点，
GETITEMADDVALUE -1 4 M6
INC S3 道术<$STR(M6)>点，
INC M2 1
INC M3 1
INC M4 1
INC M5 1
INC M6 1
MOV M90 <$STR(M2)>
INC M90 <$STR(M3)>
MOV M91 <$STR(M4)>
INC M91 <$STR(M5)>
MOV M92 <$STR(M6)>
INC M92 <$STR(M90)>
MOV M7 <$STR(M91)>
INC M7 <$STR(M92)>
DEC M7 3
SENDMSG 0 恭喜“%s”对“<$DLGITEM.NAME>”成功进行了极品重铸，共发掘出潜力属性“<$STR(M7)>”点，分别增加“<$STR(S3)>”........ 251 249
RECLAIMITEM
DELAYCALL 10 @开始重塑
BREAK

帅气小狗 · 发表于 2026-3-29 18:35:38

复制代码
测试无误，应当是你要的效果

快乐月亮 · 发表于 2026-3-29 18:35:38

复制代码
试试看，不知道MOVR M4 3 是不是最大值3点，如果不是
所有的 MOVR M4 3 改成 4
所有的DEC N$总点数 <$STR(M4)>下面加个 INC N$总点数 1
记得备份

勇敢小鹿 · 发表于 2026-3-29 18:35:38

holgo 发表于 2020-12-18 20:20 试试看，不知道MOVR M4 3 是不是最大值3点，如果不是
所有的 MOVR M4 3 改成 4
所有的DEC N$总点数下 ...

还是不对，总属性都能洗出各个属性总共+8，还有升级框不是能升级的物品哪个命令是返回背包啊！还是用OK框比较合适！

机智小鹿 · 发表于 2026-3-29 18:35:38

#IF
CheckItemAddValueEx -1 > 3
#ACT
MessageBox 极品值总和不得超过+3。
break
#IF
CheckItemAddValueEx -1 = 0
#ACT
MessageBox 不是极品不可升级。
break

大方小狗 · 发表于 2026-3-29 18:35:38

#IF
checkgold 500000
#ACT
OPENUPGRADEDLG 放入要打造的装备
break
#ELSEACT
MessageBox 错误提示：你放入洞不是极品装备或者你的金币不足，不能进行打造！
break
[@UpgradeDlgItem]
#IF
NOT CheckItemAddValueEx -1 < 3
#ACT
MessageBox 你的<$DLGITEM.NAME>已经有3点极品属性了
RECLAIMITEM
break
#OR
EQUAL <$DLGITEM.STDMODE> 5
EQUAL <$DLGITEM.STDMODE> 6
#Act
MOV P0 13
MOV P1 0
Loopgoto @清除装备附加属性 <$str(P0)>
GetMultiRandomNumber 0 2 3 N1 M1
MOV P0 4
MOV P1 3
MOV S1
Loopgoto @开始装备附加属性 <$str(M1)>
SENDMSG 0 恭喜“%s”对“<$DLGITEM.NAME>”成功进行了极品重铸，共发掘出潜力属性“<$STR(S1)>”. 251 249
[@清除装备附加属性]
#IF
NOT EQUAL P0 0
#ACT
CHANGEITEMADDVALUE -1 <$str(P1)> = 0
INC P1 1
DEC P0 0
#ELSEACT
endloop
break
[@开始装备附加属性]
#IF
EQUAL M1 0
#ACT
endloop
break
#IF
NOT EQUAL P1 0
#ACT
MOVR P2 1 <$str(P0)>
CHANGEITEMADDVALUE -1 <$str(N1)> = <$str(P2)>
DEC P1 <$str(P2)>
DEC M1 1
#ELSEACT
endloop
break
#IF
EQUAL N1 0
#ACT
INC S1 防御+<$str(P2)>点,
#IF
EQUAL N1 1
#ACT
INC S1 魔御+<$str(P2)>点,
#IF
EQUAL N1 2
#ACT
INC S1 攻击+<$str(P2)>点,
#IF
EQUAL N1 3
#ACT
INC S1 0属性+<$str(P2)>点,
#IF
EQUAL N1 4
#ACT
INC S1 魔法+<$str(P2)>点,
#IF
EQUAL N1 5
#ACT
INC S1 道术+<$str(P2)>点,
检测类型，然后设置一下属性代码即可

勤奋小鹿 · 发表于 2026-3-29 18:35:38

呃，来晚了。。

		自动登录	找回密码
密码			立即注册