论坛 › 『传奇世界架设』 › 传奇世界彩虹引擎装备拆卸脚本

antyvfl 发表于 2022-10-9 00:24:42

传奇世界彩虹引擎装备拆卸脚本

[@1.9792]

{
[@拆卸装备]
#IF
random 1
#ACT
MOV S0
MOV S10
MOV S11
MOV M10 0
MOV M11 0
#IF
!checkgold 3000
#ACT
FORMATSTR S0 %-30s<Color=Yellow#32%s> 　|金币不足，不能拆卸此物品！
ShowAdditionalInfo 5 $STR(S0) 0
break
#IF
!PosINLIST $PARAM(40) ..\QuestDiary\游戏读取\拆卸装备.txt
#ACT
FORMATSTR S0 %-35s<Color=Yellow#32%s> 　|此物品不能拆卸！
ShowAdditionalInfo 5 $STR(S0) 0
break
#IF
PosinList $PARAM(40) ..\QuestDiary\游戏读取\拆卸装备.txt S10
#ACT
GETVALIDSTR $STR(S10) | S10 S11
GETVALIDSTR $STR(S11) | M10 S12
GETVALIDSTR $STR(S12) | M11 M12
;S10 名字，M10 原石数量，M11 拆分品级，M12 ，装备等级
MOV M13 $STR(M10)
#IF
LARGE $DecomPoseLevel 0
#ACT
INC M10 $DecomPoseLevel
MOV M13 $STR(M10)
DEC M10 1
#IF
LARGE $DecomPoseLevel 1
SMALL $DecomPoseLevel 6
#ACT
INC M11 1
#IF
LARGE $DecomPoseLevel 5
SMALL $DecomPoseLevel 10
#ACT
INC M11 2
#IF
EQUAL $DecomPoseLevel 10
#ACT
INC M11 3
#IF
EQUAL M11 0
#ACT
MOVR M20 100
FORMATSTR S0 %-20s{Color=green#32%-7s}%-18s{color=green#32%-6s}%s 　|99.00%|拆卸失败|1.00%|<$STR(M10)>个一阶五行原石
#IF
EQUAL M11 1
#ACT
FORMATSTR S0 %-30s{Color=green#32%-8s}%s 　|100.00%|<$STR(M10)>个一阶五行原石
#IF
EQUAL M11 2
#ACT
FORMATSTR S0 %-20s{Color=green#32%-7s}%-20s{Color=green#32%-6s}%s 　|99.00%|<$STR(M10)>个一阶五行原石|1.00%|1个一阶特殊原石
#IF
EQUAL M11 3
#ACT
MOV M14 $STR(M13)
DEC M14 $STR(M10)
INC M14 $STR(M12)
INC M14 1
FORMATSTR S0 %-7s{Color=green#32%-7s}%-18s{Color=green#32%-6s}%-18s{Color=green#32%-6s}%s 　|93.00%|<$STR(M10)>个一阶五行原石|5.00%|<$STR(M14)>个二阶五行原石|2.00%|1个一阶特殊原石
#IF
EQUAL M11 4
#ACT
MOV M14 $STR(M13)
DEC M14 $STR(M10)
INC M14 $STR(M12)
INC M14 2
MOV M15 $STR(M13)
DEC M15 $STR(M10)
INC M15 $STR(M12)
INC M15 1
FORMATSTR S0 %-7s{Color=green#32%-7s}%-18s{Color=green#32%-7s}%-18s{Color=green#32%-7s}%s\%-32s{Color=green#32%-7s}%s 　|83.00%|<$STR(M10)>个一阶五行原石|8.00%|<$STR(M14)>个二阶五行原石|6.00%|<$STR(M15)>个三阶五行原石|　|3.00%|1个一阶特殊原石
#IF
EQUAL M11 5
#ACT
MOV M14 $STR(M13)
DEC M14 $STR(M10)
INC M14 $STR(M12)
INC M14 3
MOV M15 $STR(M13)
DEC M15 $STR(M10)
INC M15 $STR(M12)
INC M15 2
MOV M16 $STR(M13)
DEC M16 $STR(M10)
INC M16 $STR(M12)
INC M16 1
FORMATSTR S0 %-7s{Color=green#32%-7s}%-18s{Color=green#32%-7s}%-18s{Color=green#32%-7s}%s\%-20s{Color=green#32%-7s}%-20s{Color=green#32%-7s}%s 　|73.00%|<$STR(M10)>个一阶五行原石|12.00%|<$STR(M14)>个二阶五行原石|8.00%|<$STR(M15)>个三阶五行原石|　|6.00%|<$STR(M16)>个四阶五行原石|3.00%|1个一阶特殊原石
ADDVARLIST <$USERNAME>|<$STR(M14)>|<$STR(M15)>|<$STR(M16)>|<DecomPoseLevel>|<$DATETIME> ../CFlog.txt
#IF
random 1
#ACT
ShowAdditionalInfo 5 $STR(S0) 1

[@拆卸开始]
#IF
EQUAL M11 0
LARGE M20 80
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M10)
DecomPoseExp + $STR(M10)
TakeM $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 0
SMALL M20 80
#ACT
Takem $PARAM(41)
ShowAdditionalInfo 6 0
break
#IF
EQUAL M11 1
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M10)
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 2
#ACT
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 1
MOVR M22 50
INC M22 150
DEC M22 $STR(M21)
#IF
EQUAL M11 3
#ACT
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 2
MOVR M22 50
INC M22 150
DEC M22 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 5
MOVR M23 50
INC M23 150
DEC M23 $STR(M21)
#IF
EQUAL M11 4
#ACT
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 3
MOVR M22 50
INC M22 150
DEC M22 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 6
MOVR M23 100
INC M23 100
DEC M23 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 8
MOVR M24 50
INC M24 150
DEC M24 $STR(M21)
#IF
EQUAL M11 5
#ACT
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 3
MOVR M22 50
INC M22 150
DEC M22 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 6
MOVR M23 50
INC M23 150
DEC M23 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 8
MOVR M24 50
INC M24 150
DEC M24 $STR(M21)
MOV M21 $STR(M12)
INC M21 $DecomPoseLevel
MULT M21 12
MOVR M24 50
INC M25 180
DEC M25 $STR(M21)
#IF
EQUAL M11 5
random $STR(M25)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M16)
UPGRADEUSERITEM $PARAM(10) 0 = 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M16)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 5
random $STR(M24)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M15)
UPGRADEUSERITEM $PARAM(10) 0 = 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M15)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 5
random $STR(M23)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M14)
UPGRADEUSERITEM $PARAM(10) 0 = 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M14)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 5
random $STR(M22)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\特殊原石.txt S30
GIVE $STR(S30) 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 4
random $STR(M24)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M15)
UPGRADEUSERITEM $PARAM(10) 0 = 3
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M15)>个三阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 4
random $STR(M23)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M14)
UPGRADEUSERITEM $PARAM(10) 0 = 2
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M14)>个二阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 4
random $STR(M22)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\特殊原石.txt S30
GIVE $STR(S30) 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 3
random $STR(M23)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M14)
UPGRADEUSERITEM $PARAM(10) 0 = 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M14)>个二阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 3
random $STR(M22)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\特殊原石.txt S30
GIVE $STR(S30) 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
EQUAL M11 2
random $STR(M22)
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\特殊原石.txt S30
GIVE $STR(S30) 1
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\原石数据\五行原石.txt S30
GIVE $STR(S30) 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M10)
DecomPoseExp + $STR(M10)
Takem $PARAM(41)
ShowAdditionalInfo 6 1
SENDMSG 5 你增加了<$STR(M10)>点拆卸经验。
SENDMSG 5 你得到了<$STR(M10)>个一阶<$STR(S30)>。
GOTO @CHECKCXLEVEL
break

[@CHECKCXLEVEL]
#IF
random 1
#ACT
CALCVAR HUMAN 拆卸装备 + 1
SAVEVAR HUMAN 拆卸装备 ..\QUESTDIARY\数据文件\个人变量.txt
SENDMSG 5 恭喜你成功从装备中拆卸出了原石，低阶层的原石还可合成为高阶层原石。
#IF
CHECKVAR HUMAN 拆卸装备 > 4
#ACT
UPACHIEVEMENT 11001 1
#IF
EQUAL $DecomPoseLevel 1
LARGE $DecomPoseExp 9999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 20000
break
#IF
EQUAL $DecomPoseLevel 2
LARGE $DecomPoseExp 19999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 30000
break
#IF
EQUAL $DecomPoseLevel 3
LARGE $DecomPoseExp 29999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 50000
break
#IF
EQUAL $DecomPoseLevel 4
LARGE $DecomPoseExp 49999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 80000
break
#IF
EQUAL $DecomPoseLevel 5
LARGE $DecomPoseExp 79999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 120000
break
#IF
EQUAL $DecomPoseLevel 6
LARGE $DecomPoseExp 119999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 180000
break
#IF
EQUAL $DecomPoseLevel 7
LARGE $DecomPoseExp 179999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 250000
break
#IF
EQUAL $DecomPoseLevel 8
LARGE $DecomPoseExp 249999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 350000
break
#IF
EQUAL $DecomPoseLevel 9
LARGE $DecomPoseExp 349999
#ACT
MOV M50 $DecomPoseExp
DEC M50 1000
DecomPoseLevel + 1
DecomPoseExp = $STR(M50)
DecomPoseExpMax = 10000000
break

}

xiaoran917 发表于 2022-10-9 03:27:43

强烈支持楼主ing……

thaihack 发表于 2022-10-12 00:25:26

强烈支持楼主ing……

912666345 发表于 2022-10-14 04:13:07

太生气了，无法HOLD啦 >_<......

shbc2008 发表于 2022-10-15 18:38:19

无回帖，不论坛，这才是人道。

mstester2011 发表于 2022-10-22 12:25:20

淡定，淡定，淡定……

ismiao 发表于 2022-10-23 00:27:36

强烈支持楼主ing……

alimoon 发表于 2022-10-24 19:42:18

感恩无私的分享与奉献 :)

hacksee 发表于 2022-10-24 23:02:19

激动人心，无法言表！

dhxmeidou 发表于 2022-10-25 02:20:08

淡定，淡定，淡定……

查看完整版本: 传奇世界彩虹引擎装备拆卸脚本