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

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