GEE引擎附魔系统脚本，传奇私服版本添加首饰附魔的教程和范例

admin

                               
登录/注册后可看大图

[@main]
#IF
CheckLevelEx < 400
#ACT
MessageBox 附魔系统后开启！
Break
#IF
CheckLevelEx > 0
#ACT
OPENMERCHANTBIGDLG 44 9 1 4 0 -80 0 0 0 1
Goto @首饰附魔
Break



[@首饰附魔]
#IF
CheckLevelEx > 0
#ACT
Break
#SAY
\
　\
\
\
\
　\
\
　\
;
　\
\
\
\
\
\




[@fmshcnpc]
#IF
CheckLevelEx > 0
#ACT
OPENMERCHANTBIGDLG 73 267 1 4 0 -100 0 0 0 1
Break
#SAY
\
　\
　\
　\
　\
　　       \
　\
　　       \
　\
　　              \
　\



[@fmshcnpc1]
#IF
CheckItem 魔级附魔石 2
#ACT
Take 魔级附魔石 2
Give 仙级附魔石 1
LINKGIVEITEM
SetItemFrom -1 0 4
SetItemFrom -1 1
SetItemFrom -1 2 此物品来自-附魔石合成
SetItemFrom -1 3
updateitem -1
clearLinkItem
MessageBox 合成成功！获得一个
Break
#ELSEACT
MessageBox 合成失败！条件不足！
Break


[@fmshcnpc2]
#IF
CheckItem 仙级附魔石 2
#ACT
Take 仙级附魔石 2
Give 尊级附魔石 1
LINKGIVEITEM
SetItemFrom -1 0 4
SetItemFrom -1 1
SetItemFrom -1 2 此物品来自-附魔石合成
SetItemFrom -1 3
updateitem -1
clearLinkItem
MessageBox 合成成功！获得一个
Break
#ELSEACT
MessageBox 合成失败！条件不足！
Break


[@fmshcnpc3]
#IF
CheckItem 尊级附魔石 2
#ACT
Take 尊级附魔石 2
Give 神级附魔石 1
LINKGIVEITEM
SetItemFrom -1 0 4
SetItemFrom -1 1
SetItemFrom -1 2 此物品来自-附魔石合成
SetItemFrom -1 3
updateitem -1
clearLinkItem
MessageBox 合成成功！获得一个
Break
#ELSEACT
MessageBox 合成失败！条件不足！
Break


[@ItemIntoBox0]
#IF
NOT Equal
#ACT
ReadConfigFileItem ..\QuestDiary\quyoubbs论坛\附魔\附魔数据.txt  附魔首饰
ReadConfigFileItem ..\QuestDiary\quyoubbs论坛\附魔\附魔数据.txt  附魔材料

#OR
Equal S$附魔首饰
Equal S$附魔材料
#ACT
UNALLOWITEMINTOBOX
MessageBox 此首饰不可附魔！
Break

#IF
NOT Equal S$附魔首饰
#ACT
GetDBItemFieldValue S$附魔首饰 Idx
Break
#SAY
\
　\
\
\
\
　\
\
　\
　\
　\
　\
　\
　\





















[@ItemOutBox0]
#IF
CheckLevelEx > 0
#ACT
Goto @首饰附魔
Break


[@立即附魔]
#IF
NOT Equal
#ACT
Mov M11 0
ReadConfigFileItem ..\QuestDiary\quyoubbs论坛\附魔\附魔数据.txt  附魔首饰
ReadConfigFileItem ..\QuestDiary\quyoubbs论坛\附魔\附魔数据.txt  附魔材料


#OR
Equal
Equal S$附魔首饰
Equal S$附魔材料
#ACT
Break

#IF
NOT CheckItem   10
#ACT
MessageBox 附魔失败：你没有足够的附魔材料！
Break

;#IF
;CheckItem   10
;random 2
;#ACT
;Take   10
;MessageBox
;Break

#IF
Equal  19
#ACT
SetUpgradeItem 0
GETITEMADDVALUE -1 1

#IF
CheckItem   10
Equal  19
Large M11 0
#ACT
Take   10
DelBoxItem 0
Give  1 0  0 0 0 0
LINKGIVEITEM
SetItemFrom -1 0 4
SetItemFrom -1 1
SetItemFrom -1 2 此装备来自-首饰附魔
SetItemFrom -1 3
updateitem -1
clearLinkItem
MessageBox 恭喜你附魔成功！！获得附魔首饰
Goto @首饰附魔
Break

#IF
CheckItem   10
#ACT
Take   10
DelBoxItem 0
Give  1
LINKGIVEITEM
SetItemFrom -1 0 4
SetItemFrom -1 1
SetItemFrom -1 2 此装备来自-首饰附魔
SetItemFrom -1 3
updateitem -1
clearLinkItem
MessageBox 恭喜你附魔成功！！获得附魔首饰
Goto @首饰附魔
Break


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！