热点推荐

小喇叭+ 发布

01-16 02:17
01-16 02:04
01-13 17:30
查看: 744|回复: 0

[脚本示例] 传奇装备注灵脚本,注灵可以获得隐藏属性百分比加成

[复制链接]
avatar

签到天数: 350 天

[LV.8]以坛为家I

7651

主题

255

回帖

31万

积分

司徒主管

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
1
司徒币
260195
传世币
3000
元宝
0
在线时间
266 小时

最佳新人灌水之王

QQ
online_admin 发表于 2022-1-22 06:55:35 | 显示全部楼层 |阅读模式
[@MAIN]
       
       
        #IF
        #ACT
        MOV S$当前注灵装备名称 无
        MOV S$当前注灵装备价格 无
       
        #IF
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        #ACT
        MOV S$当前注灵装备名称
        MOV S$当前注灵装备价格 50000灵石
       
        ;脚本来自冰点传说单职业传奇版本
       
        #IF
        #SAY
         {特殊装备 注灵可以获得隐藏属性百分比加成!/SCOLOR=253}
         {放入 特殊装备 会提示相关信息/SCOLOR=254}
       
       
       
       
       
         
       
         {[/SCOLOR=250}{]/SCOLOR=250} {提示:注灵过程中 请勿重复点击 或 进行其他操作/SCOLOR=249}
       
       
       
        [@ItemOutBox0]
        #IF
        #ACT
        GOTO @MAIN
        BREAK
       
       
        [@ItemIntoBox0]
        #IF
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        #ACT
        GOTO @MAIN
        #ELSEACT
        ReturnBoxItem 0
        MESSAGEBOX {操作失败:/SCOLOR=249}这件装备无法注灵...
        BREAK
       
       
       
       
        [@开始特殊注灵]
        #IF
        NOT CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal
        #ACT
        MESSAGEBOX 操作失败:你放入的物品无法注灵.
        BREAK
       
        #IF
        NOT Equal  注灵神石
        #ACT
        MESSAGEBOX 操作失败:请放入[注灵神石*1个]
        BREAK
       
       
        #IF
        RANDOM 20
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal  注灵神石
        CHECKGAMEGOLD > 49999
        #ACT
        SetUpgradeItem 0
        SetUpgradeItem 1
        SCREENEFFECT 0 25 219 1740 11 1 100 0 0 1
        DelBoxItem 1 1
        GAMEGOLD - 50000
        MOVR N$特殊注灵防御 30 101
        MOVR N$特殊注灵魔御 30 101
        MOVR N$特殊注灵攻击 30 101
        MOVR N$特殊注灵生命 30 101
        SetCustomItemText boxitem0
        SetCustomItemTextColor boxitem0 146
        SetCustomItemAbil boxitem0 0 0 146
        SetCustomItemAbil boxitem0 1 0 146
        SetCustomItemAbil boxitem0 2 0 146
        SetCustomItemAbil boxitem0 3 0 146
        SetCustomItemAbil boxitem0 0 1 1
        SetCustomItemAbil boxitem0 1 1 2
        SetCustomItemAbil boxitem0 2 1 3
        SetCustomItemAbil boxitem0 3 1 6
        SetCustomItemAbil boxitem0 0 2 0
        SetCustomItemAbil boxitem0 1 2 1
        SetCustomItemAbil boxitem0 2 2 2
        SetCustomItemAbil boxitem0 3 2 3
        SetCustomItemAbil boxitem0 0 3 1
        SetCustomItemAbil boxitem0 1 3 1
        SetCustomItemAbil boxitem0 2 3 1
        SetCustomItemAbil boxitem0 3 3 1
        SetCustomItemValue boxitem0 0 =
        SetCustomItemValue boxitem0 1 =
        SetCustomItemValue boxitem0 2 =
        SetCustomItemValue boxitem0 3 =
        UpdateItem boxitem0
        BREAK
       
       
        #IF
        RANDOM 15
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal  注灵神石
        CHECKGAMEGOLD > 49999
        #ACT
        SetUpgradeItem 0
        SetUpgradeItem 1
        SCREENEFFECT 0 25 219 1740 11 1 100 0 0 1
        DelBoxItem 1 1
        GAMEGOLD - 50000
        MOVR N$特殊注灵防御 30 81
        MOVR N$特殊注灵魔御 30 81
        MOVR N$特殊注灵攻击 30 81
        MOVR N$特殊注灵生命 30 81
        SetCustomItemText boxitem0
        SetCustomItemTextColor boxitem0 146
        SetCustomItemAbil boxitem0 0 0 146
        SetCustomItemAbil boxitem0 1 0 146
        SetCustomItemAbil boxitem0 2 0 146
        SetCustomItemAbil boxitem0 3 0 146
        SetCustomItemAbil boxitem0 0 1 1
        SetCustomItemAbil boxitem0 1 1 2
        SetCustomItemAbil boxitem0 2 1 3
        SetCustomItemAbil boxitem0 3 1 6
        SetCustomItemAbil boxitem0 0 2 0
        SetCustomItemAbil boxitem0 1 2 1
        SetCustomItemAbil boxitem0 2 2 2
        SetCustomItemAbil boxitem0 3 2 3
        SetCustomItemAbil boxitem0 0 3 1
        SetCustomItemAbil boxitem0 1 3 1
        SetCustomItemAbil boxitem0 2 3 1
        SetCustomItemAbil boxitem0 3 3 1
        SetCustomItemValue boxitem0 0 =
        SetCustomItemValue boxitem0 1 =
        SetCustomItemValue boxitem0 2 =
        SetCustomItemValue boxitem0 3 =
        UpdateItem boxitem0
        BREAK
       
        #IF
        RANDOM 10
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal  注灵神石
        CHECKGAMEGOLD > 49999
        #ACT
        SetUpgradeItem 0
        SetUpgradeItem 1
        SCREENEFFECT 0 25 219 1740 11 1 100 0 0 1
        DelBoxItem 1 1
        GAMEGOLD - 50000
        MOVR N$特殊注灵防御 20 61
        MOVR N$特殊注灵魔御 20 61
        MOVR N$特殊注灵攻击 20 61
        MOVR N$特殊注灵生命 20 61
        SetCustomItemText boxitem0
        SetCustomItemTextColor boxitem0 146
        SetCustomItemAbil boxitem0 0 0 146
        SetCustomItemAbil boxitem0 1 0 146
        SetCustomItemAbil boxitem0 2 0 146
        SetCustomItemAbil boxitem0 3 0 146
        SetCustomItemAbil boxitem0 0 1 1
        SetCustomItemAbil boxitem0 1 1 2
        SetCustomItemAbil boxitem0 2 1 3
        SetCustomItemAbil boxitem0 3 1 6
        SetCustomItemAbil boxitem0 0 2 0
        SetCustomItemAbil boxitem0 1 2 1
        SetCustomItemAbil boxitem0 2 2 2
        SetCustomItemAbil boxitem0 3 2 3
        SetCustomItemAbil boxitem0 0 3 1
        SetCustomItemAbil boxitem0 1 3 1
        SetCustomItemAbil boxitem0 2 3 1
        SetCustomItemAbil boxitem0 3 3 1
        SetCustomItemValue boxitem0 0 =
        SetCustomItemValue boxitem0 1 =
        SetCustomItemValue boxitem0 2 =
        SetCustomItemValue boxitem0 3 =
        UpdateItem boxitem0
        BREAK
       
       
        #IF
        RANDOM 5
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal  注灵神石
        CHECKGAMEGOLD > 49999
        #ACT
        SetUpgradeItem 0
        SetUpgradeItem 1
        SCREENEFFECT 0 25 219 1740 11 1 100 0 0 1
        DelBoxItem 1 1
        GAMEGOLD - 50000
        MOVR N$特殊注灵防御 10 41
        MOVR N$特殊注灵魔御 10 41
        MOVR N$特殊注灵攻击 10 41
        MOVR N$特殊注灵生命 10 41
        SetCustomItemText boxitem0
        SetCustomItemTextColor boxitem0 146
        SetCustomItemAbil boxitem0 0 0 146
        SetCustomItemAbil boxitem0 1 0 146
        SetCustomItemAbil boxitem0 2 0 146
        SetCustomItemAbil boxitem0 3 0 146
        SetCustomItemAbil boxitem0 0 1 1
        SetCustomItemAbil boxitem0 1 1 2
        SetCustomItemAbil boxitem0 2 1 3
        SetCustomItemAbil boxitem0 3 1 6
        SetCustomItemAbil boxitem0 0 2 0
        SetCustomItemAbil boxitem0 1 2 1
        SetCustomItemAbil boxitem0 2 2 2
        SetCustomItemAbil boxitem0 3 2 3
        SetCustomItemAbil boxitem0 0 3 1
        SetCustomItemAbil boxitem0 1 3 1
        SetCustomItemAbil boxitem0 2 3 1
        SetCustomItemAbil boxitem0 3 3 1
        SetCustomItemValue boxitem0 0 =
        SetCustomItemValue boxitem0 1 =
        SetCustomItemValue boxitem0 2 =
        SetCustomItemValue boxitem0 3 =
        UpdateItem boxitem0
        BREAK
       
       
        #IF
        CHECKTEXTLIST ..QuestDiary小心同学新鉴定特殊装备注灵列表.txt
        Equal  注灵神石
        CHECKGAMEGOLD > 49999
        #ACT
        SetUpgradeItem 0
        SetUpgradeItem 1
        SCREENEFFECT 0 25 219 1740 11 1 100 0 0 1
        DelBoxItem 1 1
        GAMEGOLD - 50000
        MOVR N$特殊注灵防御 1 21
        MOVR N$特殊注灵魔御 1 21
        MOVR N$特殊注灵攻击 1 21
        MOVR N$特殊注灵生命 1 21
        SetCustomItemText boxitem0
        SetCustomItemTextColor boxitem0 146
        SetCustomItemAbil boxitem0 0 0 146
        SetCustomItemAbil boxitem0 1 0 146
        SetCustomItemAbil boxitem0 2 0 146
        SetCustomItemAbil boxitem0 3 0 146
        SetCustomItemAbil boxitem0 0 1 1
        SetCustomItemAbil boxitem0 1 1 2
        SetCustomItemAbil boxitem0 2 1 3
        SetCustomItemAbil boxitem0 3 1 6
        SetCustomItemAbil boxitem0 0 2 0
        SetCustomItemAbil boxitem0 1 2 1
        SetCustomItemAbil boxitem0 2 2 2
        SetCustomItemAbil boxitem0 3 2 3
        SetCustomItemAbil boxitem0 0 3 1
        SetCustomItemAbil boxitem0 1 3 1
        SetCustomItemAbil boxitem0 2 3 1
        SetCustomItemAbil boxitem0 3 3 1
        SetCustomItemValue boxitem0 0 =
        SetCustomItemValue boxitem0 1 =
        SetCustomItemValue boxitem0 2 =
        SetCustomItemValue boxitem0 3 =
        UpdateItem boxitem0
        BREAK
       
       
        #ELSEACT
        ReturnBoxItem 0
        ReturnBoxItem 1
        MESSAGEBOX {操作失败:/SCOLOR=249}条件不足...
        BREAK

帖子地址: 





上一篇:十年仙剑传奇宠物服务领养脚本
下一篇:gm基地玄冰剑法脚本开关模式,对目标造成200%伤害80%几率使目标
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【乱回复灌水将给予禁言处理】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则