论坛 › 『传奇世界架设』 › 传奇世界2真魂珠设置方法与技巧案例

antyvfl 发表于 2022-10-9 00:45:33

传奇世界2真魂珠设置方法与技巧案例

;P0:品级 P1:修炼值 P2:升级所需修炼值P4:配合设定升级所需修炼值 P5:设置魂珠吸收经验倍数(与引擎经验倍率一致,目前300倍)

[@魂珠升级]
{
#IF
CHECKUSEITEM 14
#ACT
goto @升级hz

[@升级hz]
#IF
random 1
#ACT
MOV P0 $ITEMINFO[$USEITEMMAKEINDEX(14)].value(12)
MOV P1 $ITEMINFO[$USEITEMMAKEINDEX(14)].ITEMEXT(72)
#IF
LARGE P0 9
#ACT
;SENDMSG 5 当前魂珠已经达到最高品级10级了，不能进行升级了！
break
#IF
EQUAL P0 0
#ACT
UPGRADEUSERITEM 14 12 = 1
UPGRADEUSERITEM 14 15 = 1
#IF
EQUAL $SOULBEAD 仙魂珠
#ACT
MOV P4 2000
#IF
EQUAL $SOULBEAD 真魂珠
#ACT
MOV P4 1000
#IF
SMALL P0 2
#ACT
MOV P2 1000
#IF
LARGE P0 1
#ACT
MOV P2 1000
#IF
LARGE P0 2
#ACT
MOV P2 2000
#IF
LARGE P0 3
#ACT
MOV P2 3000
#IF
LARGE P0 4
#ACT
MOV P2 5000
#IF
LARGE P0 5
#ACT
MOV P2 10000
#IF
LARGE P0 6
#ACT
MOV P2 20000
#IF
LARGE P0 7
#ACT
MOV P2 30000
#IF
LARGE P0 8
#ACT
MOV P2 40000
#IF
LARGE P0 9
#ACT
MOV P2 50000

#IF
random 1
#ACT
MULT P2 $STR(P4)
#IF
SMALL P1 $STR(P2)
#ACT
MOV P5 $PARAM(0)
MULT P5 $STR(0)
UPGRADEUSERITEM 14 72 + $STR(P5)
#elseact
UPGRADEUSERITEM 14 12 + 1
UPGRADEUSERITEM 14 72 = 0
goto @属性hz

[@属性hz]
#IF
EQUAL $SOULBEAD 仙魂珠
#act
goto @仙魂珠
#IF
EQUAL $SOULBEAD 真魂珠
#act
goto @真魂珠
break

[@仙魂珠]
#IF
random 1
#ACT
MOV P0 $ITEMINFO[$USEITEMMAKEINDEX(14)].VALUE(12)
#IF
EQUAL P0 1
#ACT
UPGRADEUSERITEM 14 0 = 2
UPGRADEUSERITEM 14 1 = 2
UPGRADEUSERITEM 14 2 = 2
UPGRADEUSERITEM 14 3 = 2
UPGRADEUSERITEM 14 4 = 3
UPGRADEUSERITEM 14 5 = 3
UPGRADEUSERITEM 14 15 = 20
Break
#IF
EQUAL P0 2
#ACT
UPGRADEUSERITEM 14 0 = 3
UPGRADEUSERITEM 14 1 = 3
UPGRADEUSERITEM 14 2 = 3
UPGRADEUSERITEM 14 3 = 3
UPGRADEUSERITEM 14 4 = 4
UPGRADEUSERITEM 14 5 = 4
UPGRADEUSERITEM 14 15 = 30
Break
#IF
EQUAL P0 3
#ACT
UPGRADEUSERITEM 14 0 = 4
UPGRADEUSERITEM 14 1 = 4
UPGRADEUSERITEM 14 2 = 4
UPGRADEUSERITEM 14 3 = 4
UPGRADEUSERITEM 14 4 = 5
UPGRADEUSERITEM 14 5 = 5
UPGRADEUSERITEM 14 15 = 50
Break
#IF
EQUAL P0 4
#ACT
UPGRADEUSERITEM 14 0 = 5
UPGRADEUSERITEM 14 1 = 5
UPGRADEUSERITEM 14 2 = 5
UPGRADEUSERITEM 14 3 = 5
UPGRADEUSERITEM 14 4 = 6
UPGRADEUSERITEM 14 5 = 6
UPGRADEUSERITEM 14 15 = 70
Break
#IF
EQUAL P0 5
#ACT
UPGRADEUSERITEM 14 0 = 6
UPGRADEUSERITEM 14 1 = 6
UPGRADEUSERITEM 14 2 = 6
UPGRADEUSERITEM 14 3 = 6
UPGRADEUSERITEM 14 4 = 7
UPGRADEUSERITEM 14 5 = 7
UPGRADEUSERITEM 14 15 = 100
Break
#IF
EQUAL P0 6
#ACT
UPGRADEUSERITEM 14 0 = 7
UPGRADEUSERITEM 14 1 = 7
UPGRADEUSERITEM 14 2 = 7
UPGRADEUSERITEM 14 3 = 7
UPGRADEUSERITEM 14 4 = 8
UPGRADEUSERITEM 14 5 = 8
UPGRADEUSERITEM 14 15 = 120
Break
#IF
EQUAL P0 7
#ACT
UPGRADEUSERITEM 14 0 = 8
UPGRADEUSERITEM 14 1 = 8
UPGRADEUSERITEM 14 2 = 8
UPGRADEUSERITEM 14 3 = 8
UPGRADEUSERITEM 14 4 = 9
UPGRADEUSERITEM 14 5 = 9
UPGRADEUSERITEM 14 15 = 150
Break
#IF
EQUAL P0 8
#ACT
UPGRADEUSERITEM 14 0 = 9
UPGRADEUSERITEM 14 1 = 9
UPGRADEUSERITEM 14 2 = 9
UPGRADEUSERITEM 14 3 = 9
UPGRADEUSERITEM 14 4 = 10
UPGRADEUSERITEM 14 5 = 10
UPGRADEUSERITEM 14 15 = 165
Break
#IF
EQUAL P0 9
#ACT
UPGRADEUSERITEM 14 0 = 10
UPGRADEUSERITEM 14 1 = 10
UPGRADEUSERITEM 14 2 = 10
UPGRADEUSERITEM 14 3 = 10
UPGRADEUSERITEM 14 4 = 11
UPGRADEUSERITEM 14 5 = 11
UPGRADEUSERITEM 14 15 = 180
#IF
EQUAL P0 10
#ACT
UPGRADEUSERITEM 14 0 = 12
UPGRADEUSERITEM 14 1 = 12
UPGRADEUSERITEM 14 2 = 12
UPGRADEUSERITEM 14 3 = 12
UPGRADEUSERITEM 14 4 = 13
UPGRADEUSERITEM 14 5 = 13
UPGRADEUSERITEM 14 15 = 200
Break
[@真魂珠]
#IF
random 1
#ACT
MOV P0 $ITEMINFO[$USEITEMMAKEINDEX(14)].VALUE(12)
#IF
EQUAL P0 1
#ACT
UPGRADEUSERITEM 14 0 = 1
UPGRADEUSERITEM 14 1 = 1
UPGRADEUSERITEM 14 2 = 1
UPGRADEUSERITEM 14 3 = 1
UPGRADEUSERITEM 14 4 = 1
UPGRADEUSERITEM 14 5 = 1
UPGRADEUSERITEM 14 15 = 5
Break
#IF
EQUAL P0 2
#ACT
UPGRADEUSERITEM 14 0 = 2
UPGRADEUSERITEM 14 1 = 2
UPGRADEUSERITEM 14 2 = 2
UPGRADEUSERITEM 14 3 = 2
UPGRADEUSERITEM 14 4 = 1
UPGRADEUSERITEM 14 5 = 1
UPGRADEUSERITEM 14 15 = 10
Break
#IF
EQUAL P0 3
#ACT
UPGRADEUSERITEM 14 0 = 2
UPGRADEUSERITEM 14 1 = 2
UPGRADEUSERITEM 14 2 = 2
UPGRADEUSERITEM 14 3 = 2
UPGRADEUSERITEM 14 4 = 2
UPGRADEUSERITEM 14 5 = 2
UPGRADEUSERITEM 14 15 = 15
Break
#IF
EQUAL P0 4
#ACT
UPGRADEUSERITEM 14 0 = 4
UPGRADEUSERITEM 14 1 = 4
UPGRADEUSERITEM 14 2 = 4
UPGRADEUSERITEM 14 3 = 4
UPGRADEUSERITEM 14 4 = 2
UPGRADEUSERITEM 14 5 = 2
UPGRADEUSERITEM 14 15 = 25
Break
#IF
EQUAL P0 5
#ACT
UPGRADEUSERITEM 14 0 = 5
UPGRADEUSERITEM 14 1 = 5
UPGRADEUSERITEM 14 2 = 5
UPGRADEUSERITEM 14 3 = 5
UPGRADEUSERITEM 14 4 = 4
UPGRADEUSERITEM 14 5 = 4
UPGRADEUSERITEM 14 15 = 35
Break
#IF
EQUAL P0 6
#ACT
UPGRADEUSERITEM 14 0 = 6
UPGRADEUSERITEM 14 1 = 6
UPGRADEUSERITEM 14 2 = 6
UPGRADEUSERITEM 14 3 = 6
UPGRADEUSERITEM 14 4 = 4
UPGRADEUSERITEM 14 5 = 4
UPGRADEUSERITEM 14 15 = 45
Break
#IF
EQUAL P0 7
#ACT
UPGRADEUSERITEM 14 0 = 7
UPGRADEUSERITEM 14 1 = 7
UPGRADEUSERITEM 14 2 = 7
UPGRADEUSERITEM 14 3 = 7
UPGRADEUSERITEM 14 4 = 5
UPGRADEUSERITEM 14 5 = 5
UPGRADEUSERITEM 14 15 = 55
Break
#IF
EQUAL P0 8
#ACT
UPGRADEUSERITEM 14 0 = 7
UPGRADEUSERITEM 14 1 = 7
UPGRADEUSERITEM 14 2 = 7
UPGRADEUSERITEM 14 3 = 7
UPGRADEUSERITEM 14 4 = 5
UPGRADEUSERITEM 14 5 = 5
UPGRADEUSERITEM 14 15 = 65
Break
#IF
EQUAL P0 9
#ACT
UPGRADEUSERITEM 14 0 = 8
UPGRADEUSERITEM 14 1 = 8
UPGRADEUSERITEM 14 2 = 8
UPGRADEUSERITEM 14 3 = 8
UPGRADEUSERITEM 14 4 = 5
UPGRADEUSERITEM 14 5 = 5
UPGRADEUSERITEM 14 15 = 85
#IF
EQUAL P0 10
#ACT
UPGRADEUSERITEM 14 0 = 9
UPGRADEUSERITEM 14 1 = 9
UPGRADEUSERITEM 14 2 = 9
UPGRADEUSERITEM 14 3 = 9
UPGRADEUSERITEM 14 4 = 6
UPGRADEUSERITEM 14 5 = 6
UPGRADEUSERITEM 14 15 = 100
Break
}

jinxun 发表于 2022-10-9 04:51:10

激动人心，无法言表！

ningking 发表于 2022-10-9 19:01:01

真是被感动的痛哭流涕……

roach_work 发表于 2022-10-11 11:35:39

真是被感动的痛哭流涕……

gmgmlj 发表于 2022-10-11 15:38:45

激动人心，无法言表！

jz641268 发表于 2022-10-14 16:13:48

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

lujie701 发表于 2022-10-15 13:01:17

真是被感动的痛哭流涕……

lengweijun 发表于 2022-10-16 01:10:37

我只是路过打酱油的。

meidou. 发表于 2022-10-16 08:57:01

真是被感动的痛哭流涕……

1092427021 发表于 2022-10-22 13:39:52

真是被感动的痛哭流涕……

查看完整版本: 传奇世界2真魂珠设置方法与技巧案例