开启辅助访问
切换到窄版
登录
立即注册
论坛
BBS
服务器空间
精品版本库入口
搜索
搜索
本版
帖子
传世单机,传奇世界单机版,传世单机论坛,传世开服,传世一条龙,传世版本库,单机论坛,传世服务端,传世资源站
»
论坛
›
传世资源区
›
功能脚本
›
黑暗系统+黑暗转移
返回列表
发新帖
[案例脚本]
黑暗系统+黑暗转移
[复制链接]
发表于 2025-9-18 13:01:04
|
显示全部楼层
|
阅读模式
[@main]
<color=db0505 ╭┈┈┈┈┈┈┈┈><COLOR=GREEN [黑暗☉强化]><color=db0505 ┈┈┈┈┈┈┈┈┈╮>\
黑暗<color=green +1><color=red 200黑暗魔力成功率100%> 您黑暗魔力为[<$GAMEPOINT>]点\
黑暗<color=green +2><color=red 800黑暗魔力成功率 50%> {color=~$
#0xff00ff00$
$=========================================================================================================================#0xFF00BFFF$
$推荐1:玩家可进,特殊终极地图,比如魔龙巢穴等20张地图,4小时刷新一次,建议和朋友一起进去打,因为怪的属性很高,必出黑暗魔力100点#0xFFFF1493$#0xFFFF1493$
$推荐2:土豪玩家可进通天不周塔,黑暗魔力爆率超高,特殊层必爆#0xFFFF1493$#0xFFFF1493$
$推荐3:其次,可在充值回馈地图,黑暗魔力,爆率也很高#0xFFFF1493$#0xFFFF1493$
$推荐4:当然普通玩家,可在各大地图的BOSS身上获得,#0xFFFF1493$#0xFFFF1493$
$=========================================================================================================================#0xFF00BFFF$#0xFF00BFFF$ 黑暗出处说明} \
黑暗<color=green +3><color=red 1600黑暗魔力成功率 30%>\
;黑暗<color=green +4><color=red 2000黑暗魔力成功率20%>
;黑暗<color=green +5><color=red 3000黑暗魔力成功率10%>
\
<COLOR=F400FF 防御、魔御,只针对戒指、腰带、靴子、衣服>\
<COLOR=F400FF 攻击、魔法、道术,针对所有装备。勋章和宝石除外>\
<打造黑暗装备/@打造> <黑暗属性转移/@黑暗转移> 1000元宝一次 \
<color=db0505 ╰┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╯>\
[@黑暗转移]
#if
CHECKGAMEGOLD < 1000
#act
MessageBox 你的元宝不足1000无法转移
break
#IF
True
#ACT
ShowSpotDlg 6 请放入被转移的装备: @黑暗转移_1
break
#SAY
\
\
请放入被转移的装备:
[@黑暗转移_1]
#IF
True
#ACT
mov P10 $ITEMINFO[$PARAM(1)].ITEMEXT(29)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(30)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(31)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(32)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(33)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(45)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(46)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(47)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(48)
inc P10 $ITEMINFO[$PARAM(1)].ITEMEXT(49)
#IF
small P10 1
#ACT
MessageBox <$PARAM(0)>没有黑暗属性!
break
#ELSEACT
CalcVar HUMAN 黑暗转移 = $PARAM(1)
ShowSpotDlg 6 请放入转移到的装备: @黑暗转移_2
break
#ELSESAY
\
\
请放入转移到的装备:
[@黑暗转移_2]
#IF
!CheckitemID $HUMAN(黑暗转移)
#ACT
CalcVar HUMAN 黑暗转移 = 0
goto @main
break
#IF
!PosInList |<$ITEMINFO[$HUMAN(黑暗转移)].Stdmode>| \..\..\..\..\永恒数据\游戏功能\Stdmode.txt S5
#ACT
CalcVar HUMAN 黑暗转移 = 0
goto @main
break
#IF
!pos $STR(S5) |<$ITEMINFO[$PARAM(1)].Stdmode>|
#ACT
MessageBox <$ITEMINFO[$HUMAN(黑暗转移)].NAME>与<$PARAM(0)>不是同类装备,无法转移!
break
#ELSEACT
GAMEGOLD - 1000
UPGRADEUSERITEM $PARAM(1) 29 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(29)
UPGRADEUSERITEM $PARAM(1) 30 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(30)
UPGRADEUSERITEM $PARAM(1) 31 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(31)
UPGRADEUSERITEM $PARAM(1) 32 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(32)
UPGRADEUSERITEM $PARAM(1) 33 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(33)
UPGRADEUSERITEM $PARAM(1) 45 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(45)
UPGRADEUSERITEM $PARAM(1) 46 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(46)
UPGRADEUSERITEM $PARAM(1) 47 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(47)
UPGRADEUSERITEM $PARAM(1) 48 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(48)
UPGRADEUSERITEM $PARAM(1) 49 = $ITEMINFO[$HUMAN(黑暗转移)].ITEMEXT(49)
;takem $HUMAN(黑暗转移)
UPGRADEUSERITEM $HUMAN(黑暗转移) 29 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 30 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 31 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 32 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 33 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 45 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 46 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 47 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 48 = 0
UPGRADEUSERITEM $HUMAN(黑暗转移) 49 = 0
MessageBox 转移成功!
break
[@打造]
<color=db0505 ╭┈┈┈┈┈┈┈┈><COLOR=GREEN [黑暗☉强化]><color=db0505 ┈┈┈┈┈┈┈┈┈╮>\
黑暗<color=green +1><color=red 500黑暗魔力成功率100%> 您黑暗魔力为[<$GAMEPOINT>]点\
黑暗<color=green +2><color=red 1500黑暗魔力成功率 50%>\
黑暗<color=green +3><color=red 3000黑暗魔力成功率 30%>\
;黑暗<color=green +4><color=red 2000黑暗魔力成功率20%>
;黑暗<color=green +5><color=red 2500黑暗魔力成功率10%>
╭<增加/@增加攻击上限> <COLOR=Ce9e4e 黑暗攻击上限> ┊ <增加/@增加攻击下限> <COLOR=Ce9e4e 黑暗攻击下限>╮\
┊<增加/@增加魔法上限> <COLOR=Ce9e4e 黑暗魔法上限> ┊ <增加/@增加魔法下限> <COLOR=Ce9e4e 黑暗魔法下限>┊\
┊<增加/@增加道术上限> <COLOR=Ce9e4e 黑暗道术上限> ┊ <增加/@增加道术下限> <COLOR=Ce9e4e 黑暗道术下限>┊\
┊<增加/@增加防御上限> <COLOR=Ce9e4e 黑暗防御上限> ┊ <增加/@增加防御下限> <COLOR=Ce9e4e 黑暗防御下限>┊\
╰<增加/@增加魔防上限> <COLOR=Ce9e4e 黑暗魔御上限> ┊ <增加/@增加魔防下限> <COLOR=Ce9e4e 黑暗魔御下限>╯\\\\
;================================================================================================================
[@增加攻击上限]
#ACT
ShowSpotDlg 6 放想升攻击上限首饰 @getboxitem249
[@getboxitem249]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].HIGLOOM(6) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(6) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @攻击上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(6) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @攻击上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(6) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @攻击上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(6) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @攻击上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(6) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @攻击上限成功机率
BREAK
[@攻击上限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].HIGLOOM(6)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 45 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性上限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
[@增加攻击下限]
#ACT
ShowSpotDlg 6 放想升攻击下限首饰 @getboxitem250
[@getboxitem250]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].LOGLOOM(6) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(6) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @攻击下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(6) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @攻击下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(6) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @攻击下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(6) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @攻击下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(6) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @攻击下限成功机率
BREAK
[@攻击下限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].LOGLOOM(6)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 29 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗攻击属性下限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
;================================================================================================================
;================================================================================================================
[@增加魔法上限]
#ACT
ShowSpotDlg 6 放想升魔法上限首饰 @getboxitem251
[@getboxitem251]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].HIGLOOM(7) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(7) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @魔法上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(7) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @魔法上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(7) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @魔法上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(7) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @魔法上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(7) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @魔法上限成功机率
BREAK
[@魔法上限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
MOV P11 $ITEMINFO[$PARAM(1)].HIGLOOM(7)
INC P11 1
GamePoint - $STR(S10)
UPGRADEUSERITEM $PARAM(1) 46 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性上限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
[@增加魔法下限]
#ACT
ShowSpotDlg 6 放想升魔法下限首饰 @getboxitem252
[@getboxitem252]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].LOGLOOM(7) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(7) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @魔法下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(7) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @魔法下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(7) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @魔法下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(7) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @魔法下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(7) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @魔法下限成功机率
BREAK
[@魔法下限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].LOGLOOM(7)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 30 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔法属性下限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
;================================================================================================================
;================================================================================================================
[@增加道术上限]
#ACT
ShowSpotDlg 6 放想升道术上限首饰 @getboxitem253
[@getboxitem253]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].HIGLOOM(8) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(8) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @道术上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(8) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @道术上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(8) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @道术上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(8) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @道术上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(8) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @道术上限成功机率
BREAK
[@道术上限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].HIGLOOM(8)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 47 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性上限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
[@增加道术下限]
#ACT
ShowSpotDlg 6 放想升道术下限首饰 @getboxitem254
[@getboxitem254]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型1.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].LOGLOOM(8) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(8) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @道术下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(8) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @道术下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(8) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @道术下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(8) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @道术下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(8) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @道术下限成功机率
BREAK
[@道术下限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].LOGLOOM(8)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 31 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗道术属性下限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
;================================================================================================================
;================================================================================================================
[@增加防御上限]
#ACT
ShowSpotDlg 6 放想升防御上限首饰 @getboxitem255
[@getboxitem255]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].HIGLOOM(9) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(9) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @防御上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(9) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @防御上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(9) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @防御上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(9) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @防御上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(9) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @防御上限成功机率
BREAK
[@防御上限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].HIGLOOM(9)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 48 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性上限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
[@增加防御下限]
#ACT
ShowSpotDlg 6 放想升防御下限首饰 @getboxitem256
[@getboxitem256]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].LOGLOOM(9) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(9) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @防御下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(9) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @防御下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(9) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @防御下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(9) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @防御下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(9) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @防御下限成功机率
BREAK
[@防御下限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].LOGLOOM(9)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 32 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗防御属性下限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
;================================================================================================================
;================================================================================================================
[@增加魔防上限]
#ACT
ShowSpotDlg 6 放想升魔防上限首饰 @getboxitem257
[@getboxitem257]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].HIGLOOM(10) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(10) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @魔防上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(10) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @魔防上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(10) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @魔防上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(10) 3
#ACT
MOV S10 1500
MOV P10 50
GOTO @魔防上限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].HIGLOOM(10) 4
#ACT
MOV S10 3000
MOV P10 10
GOTO @魔防上限成功机率
BREAK
[@魔防上限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].HIGLOOM(10)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 49 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性上限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
[@增加魔防下限]
#ACT
ShowSpotDlg 6 放想升魔防下限首饰 @getboxitem258
[@getboxitem258]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE \..\..\..\..\永恒数据\游戏功能\首饰类型.txt
#ACT
#ELSEACT
messagebox 当前装备不能进行黑暗属性升级!
break
#IF
LARGE $ITEMINFO[$PARAM(1)].LOGLOOM(10) 2
#SAY
\\\\当前装备的黑暗属性值已经达到最高限制3点了,不能进行升级\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(10) 0
#ACT
MOV S10 500
MOV P10 1
GOTO @魔防下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(10) 1
#ACT
MOV S10 1500
MOV P10 11
GOTO @魔防下限成功机率
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(10) 2
#ACT
MOV S10 3000
MOV P10 30
GOTO @魔防下限成功机率
BREAK
;#IF
;EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(10) 3
;#ACT
;MOV S10 1500
;MOV P10 50
;GOTO @魔防下限成功机率
;BREAK
;#IF
;EQUAL $ITEMINFO[$PARAM(1)].LOGLOOM(10) 4
;#ACT
;MOV S10 3000
;MOV P10 10
;GOTO @魔防下限成功机率
;BREAK
[@魔防下限成功机率]
#IF
CheckGamePoint < $STR(S10)
#SAY
\\\\对不起,当前人物黑暗魔力不足<$STR(S10)>,无法帮你升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ACT
BREAK
#IF
Random $STR(P10)
#ACT
GamePoint - $STR(S10)
MOV P11 $ITEMINFO[$PARAM(1)].LOGLOOM(10)
INC P11 1
UPGRADEUSERITEM $PARAM(1) 33 + 1
SENDMSG 5 恭喜您,您的运气太好了,升级成功了!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功!
SENDMSG 14 ★系统提示★:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功,在黑暗升级处升级!
SENDMSG 1 <[游戏玩家]>:恭喜游戏玩家<%s>升级黑暗魔防属性下限+<$STR(P11)>成功,在黑暗升级处升级!
GOTO @打造
BREAK
#ELSESAY
\\\\ 对不起,当前装备升级黑暗属性失败,请重新升级黑暗属性\
[<返回上页/@打造>] [<关闭此页/@EXIT>]
#ELSEACT
GamePoint - $STR(S10)
BREAK
;================================================================================================================
复制代码
文件名称:
黑暗系统.zip
下载次数:
0
文件大小:
4.49 KB
下载权限:
最高权限
以上或
VIP会员
[购买VIP]
安全检测,请放心下载
论坛免责声明
⚠️ 本文为个人观点,不代表论坛及平台立场
内容仅作参考,不构成投资/法律/医疗等专业建议
据此操作或决策产生的风险,作者不承担责任
转载请注明来源,侵权请联系删除
下载内容请于24小时内删除,仅供学习交流使用
回复
举报
发表于 2026-9-21 02:21:28
|
显示全部楼层
楼主66666666666666666
回复
举报
发表于 2026-9-22 00:07:39
|
显示全部楼层
楼主太厉害了!楼主,I*老*虎*U!我觉得
老姚资源社区
真是个好地方!
回复
举报
发表于 2026-9-23 01:21:28
|
显示全部楼层
楼主太厉害了!楼主,I*老*虎*U!我觉得
老姚资源社区
真是个好地方!
回复
举报
发表于 2026-9-23 23:31:50
|
显示全部楼层
这东西我收了!谢谢楼主!
老姚资源社区
真好!
回复
举报
发表于 2026-9-25 20:28:50
|
显示全部楼层
感谢楼主的无私分享!要想
老姚资源社区
好 就靠你我他
回复
举报
返回列表
发新帖
懒得打字嘛,点击右侧快捷回复
选择快捷回复
楼主发贴辛苦了,谢谢楼主分享!
楼主太厉害了!楼主,I*老*虎*U!
这个帖子不回对不起自己!
这东西我收了!谢谢楼主!
我看不错噢 谢谢楼主!
既然你诚信诚意的推荐了,那我就勉为其难的看看吧!
其实我一直觉得楼主的品味不错!呵呵!
感谢楼主的无私分享!
楼主,大恩不言谢了!
楼主,我太崇拜你了!
社区不能没有像楼主这样的人才啊!
【右侧内容,后台自定义】
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
回帖后跳转到最后一页
浏览过的版块
月卡VIP
单机版本[免费]
工具中心
NPC素材
年卡VIP
会员折扣
长久VIP
教程板块
狂暴素材