拾取装备根据攻魔道的高低附加极品属性值

林晓馨

把脚本复制粘贴到  Mir200\Envir\market_def \QFunction-0.txt  文本里面就行
如果之前版本里面有极品脚本删除就行 搜索 @拾取极品
自己按照路径建一个txt  Mir200\Envir\QuestDiary\极品装备\极品装备名字.txt   
把需要拾取极品的装备名字放进去 一行一个名字
比如 极品装备名字.txt  里放的是以下三个装备：
战神戒指
战神手镯
战神靴子
那么 拾取这三个装备的时候，脚本就会执行极品附加.
顺便提醒一下新手，脚本自己检查没写错但是不执行或者乱码，
请检查脚本所在TXT的编码是否为ANSI，不是的话另存为ANSI即可！



[@拾取物品]
#IF
LARGE $PARAM(23) 10     ;=怪物爆出
RANDOM 2 3   ;=2/3的几率  可以自己设置
POSINLIST <$PARAM(22)>  ..\QuestDiary\极品装备\极品装备名字.txt  ;=把需要拾取极品的装备名字放到路径里的txt里 也可以自己设置路径！
#ACT
GOTO @检测职业
break

[@检测职业]
#IF
EQUAL $JOB 战士
#ACT
GOTO @检测攻击
break
#IF
EQUAL $JOB 法师
#ACT
GOTO @检测魔攻
break
#IF
EQUAL $JOB 道士
#ACT
GOTO @检测道术
break

[@检测攻击]
#IF
LARGE $HUMANINFO[$USERNAME].$MAXDC 801  ;=检测攻击大于801  可以按自己需求设置
#ACT
GOTO @战5
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXDC 800   ;=检测攻击大于601小于800  可以按自己需求设置
LARGE $HUMANINFO[$USERNAME].$MAXDC 601
#ACT
GOTO @战4
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXDC 600
LARGE $HUMANINFO[$USERNAME].$MAXDC 401
#ACT
GOTO @战3
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXDC 400
LARGE $HUMANINFO[$USERNAME].$MAXDC 201
#ACT
GOTO @战2
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXDC 200
LARGE $HUMANINFO[$USERNAME].$MAXDC 1
#ACT
GOTO @战1
break


[@检测魔攻]
#IF
LARGE $HUMANINFO[$USERNAME].$MAXMC 801  ;=检测魔法大于801
#ACT
GOTO @法5
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXMC 800  ;=检测魔法大于601小于800
LARGE $HUMANINFO[$USERNAME].$MAXMC 601
#ACT
GOTO @法4
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXMC 600
LARGE $HUMANINFO[$USERNAME].$MAXMC 401
#ACT
GOTO @法3
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXMC 400
LARGE $HUMANINFO[$USERNAME].$MAXMC 201
#ACT
GOTO @法2
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXMC 200
LARGE $HUMANINFO[$USERNAME].$MAXMC 1
#ACT
GOTO @法1
break

[@检测道术]
#IF
LARGE $HUMANINFO[$USERNAME].$MAXSC 801  ;=检测道术大于801
#ACT
GOTO @道5
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXSC 800  ;=检测道术大于601小于800
LARGE $HUMANINFO[$USERNAME].$MAXSC 601
#ACT
GOTO @道4
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXSC 600
LARGE $HUMANINFO[$USERNAME].$MAXSC 401
#ACT
GOTO @道3
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXSC 400
LARGE $HUMANINFO[$USERNAME].$MAXSC 201
#ACT
GOTO @道2
break
#IF
SMALL $HUMANINFO[$USERNAME].$MAXSC 200
LARGE $HUMANINFO[$USERNAME].$MAXSC 1
#ACT
GOTO @道1
break

[@战1]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=设置装备颜色为 橙色 也可以不设置删除这行就行
MOVR P21 25   ;= 设置P21变量为0到25的随机数  (25这个数字越大，极品属性越大，可以根据自己需求改变数值大小)
MOVR P20 25  ;= 设置P20变量为0到25的随机数
MOVR P30 25  ;= 设置P30变量为0到25的随机数
MOVR P32 25  ;= 设置P32变量为0到25的随机数
MOVR P33 25  ;= 设置P33变量为0到25的随机数
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 0 = $STR(P20) ；设置白色攻击下限为P20随机获取的值
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 1 = $STR(P21) ；白攻击上限
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化等级 就是装备后面+多少根据职业加属性
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 112 = $STR(P32)                      ;黄色最低攻击
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 113 = $STR(P33)                      ;黄色最高攻击
SendMsg 14 恭喜【<$USERNAME>】拾取了附加极品属性的【<$PARAM(22)>】！
break

[@战2]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P21 50
MOVR P20 50
MOVR P30 50
MOVR P32 50
MOVR P33 50
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 0 = $STR(P20) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 1 = $STR(P21) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 112 = $STR(P32)                      ;最低攻击
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 113 = $STR(P33)                      ;最高攻击
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@战3]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P21 100
MOVR P20 100
MOVR P30 100
MOVR P32 100
MOVR P33 100
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 0 = $STR(P20) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 1 = $STR(P21) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 112 = $STR(P32)                      ;最低攻击
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 113 = $STR(P33)                      ;最高攻击
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@战4]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P21 150
MOVR P20 150
MOVR P30 150
MOVR P32 150
MOVR P33 150
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 0 = $STR(P20) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 1 = $STR(P21) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 112 = $STR(P32)                      ;最低攻击
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 113 = $STR(P33)                      ;最高攻击
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break


[@战5]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P21 200
MOVR P20 200
MOVR P30 200
MOVR P32 200
MOVR P33 200
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 0 = $STR(P20) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 1 = $STR(P21) ；攻击白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 112 = $STR(P32)                      ;最低攻击
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 113 = $STR(P33)                      ;最高攻击
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break


[@法1]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P22 25
MOVR P23 25
MOVR P30 25
MOVR P34 25
MOVR P35 25
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 2 = $STR(P22) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 3 = $STR(P23) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 114 = $STR(P34)                      ;最低魔法
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 115 = $STR(P35)                      ;最高魔法
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@法2]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P22 50
MOVR P23 50
MOVR P30 50
MOVR P34 50
MOVR P35 50
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 2 = $STR(P22) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 3 = $STR(P23) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 114 = $STR(P34)                      ;最低魔法
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 115 = $STR(P35)                      ;最高魔法
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@法3]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P22 100
MOVR P23 100
MOVR P30 100
MOVR P34 100
MOVR P35 100
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 2 = $STR(P22) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 3 = $STR(P23) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 114 = $STR(P34)                      ;最低魔法
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 115 = $STR(P35)                      ;最高魔法
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@法4]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P22 150
MOVR P23 150
MOVR P30 150
MOVR P34 150
MOVR P35 150
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 2 = $STR(P22) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 3 = $STR(P23) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 114 = $STR(P34)                      ;最低魔法
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 115 = $STR(P35)                      ;最高魔法
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break


[@法5]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P22 200
MOVR P23 200
MOVR P30 200
MOVR P34 200
MOVR P35 200
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 2 = $STR(P22) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 3 = $STR(P23) ；魔法白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 114 = $STR(P34)                      ;最低魔法
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 115 = $STR(P35)                      ;最高魔法
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@道1]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P24 25
MOVR P25 25
MOVR P30 25
MOVR P36 25
MOVR P37 25
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 4 = $STR(P24) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 5 = $STR(P25) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 116 = $STR(P36)                      ;最低道术
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 117 = $STR(P37)                      ;最高道术
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@道2]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P24 50
MOVR P25 50
MOVR P30 50
MOVR P36 50
MOVR P37 50
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 4 = $STR(P24) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 5 = $STR(P25) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 116 = $STR(P36)                      ;最低道术
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 117 = $STR(P37)                      ;最高道术
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@道3]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P24 100
MOVR P25 100
MOVR P30 100
MOVR P36 100
MOVR P37 100
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 4 = $STR(P24) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 5 = $STR(P25) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 116 = $STR(P36)                      ;最低道术
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 117 = $STR(P37)                      ;最高道术
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

[@道4]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P24 150
MOVR P25 150
MOVR P30 150
MOVR P36 150
MOVR P37 150
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 4 = $STR(P24) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 5 = $STR(P25) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 116 = $STR(P36)                      ;最低道术
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 117 = $STR(P37)                      ;最高道术
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break


[@道5]
#IF
True
#ACT
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 100 = 4              ;4=橙色
MOVR P24 200
MOVR P25 200
MOVR P30 200
MOVR P36 200
MOVR P37 200
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 4 = $STR(P24) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 5 = $STR(P25) ；道术白
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 92 = $STR(P30)；强化
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 116 = $STR(P36)                      ;最低道术
UPGRADEUSERITEM $ITEMMAKEINDEX[$PARAM(22)] 117 = $STR(P37)                      ;最高道术
SendMsg 14 恭喜<$USERNAME>拾取了的<$PARAM(22)>带有极品属性！
break

灰灰_hui

路过，支持一下

步新荣

感谢楼主，顶。