彩虹拾取装备鉴定脚本
[@拾取物品]
#IF
Small $PARAM(23) 11 ;怪物掉落
#ACT
;SENDMSG 6 不是怪物掉落
BREAK
#IF
RANDOM 5 ;概率
#ACT
;SENDMSG 6 <$PARAM(21)>----<$PARAM(22)>----<$PARAM(23)>----<$PARAM(24)>
;SENDMSG 6 <$ITEMINFO[$PARAM(21)].STDMODE>
; 5/6 武器| 10/11 衣服| 15 头盔 shape 0| 19/20 项链 shape 0|21 特殊项链 |22 戒指 shape 0| 26 手镯 shape 0 |58腰带 |81 靴子
#ELSEACT
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 5
#ACT
GOTO @武器加属性
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 6
#ACT
GOTO @武器加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 10
#ACT
GOTO @衣盔靴腰勋加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 11
#ACT
GOTO @衣盔靴腰勋加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 15
EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
#ACT
GOTO @衣盔靴腰勋加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 81
#ACT
GOTO @衣盔靴腰勋加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 58
#ACT
GOTO @衣盔靴腰勋加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 19
EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
#ACT
GOTO @项链手镯戒指加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 20
EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
#ACT
GOTO @项链手镯戒指加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 22
EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
#ACT
GOTO @项链手镯戒指加属性
#IF
EQUAL $ITEMINFO[$PARAM(21)].STDMODE 26
EQUAL $ITEMINFO[$PARAM(21)].SHAPE 0
#ACT
GOTO @项链手镯戒指加属性
BREAK
[@衣盔靴腰勋加属性]
#IF
TRUE
#ACT
MOV S1 极·
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 防
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 1 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 魔防
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 3 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 攻
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 法
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 道
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 9 + $STR(M1)
#IF
!EQUAL S1 极·
#ACT
SENDMSG 6 <$PARAM(22)>极品鉴定成功
SETITEMSEAL $PARAM(21) = 1 $STR(S1)
#ELSEACT
SENDMSG 6 <$PARAM(22)>极品鉴定失败
BREAK
[@武器加属性]
#IF
TRUE
#ACT
;SENDMSG 6 武器加属性 ;$PARAM(22)
MOV S1 极·
;SENDMSG 6 $STR(S1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 攻
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 1 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 法
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 3 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 道
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 命
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
#IF
!EQUAL S1 极·
#ACT
;SENDMSG 6 <$STR(S1)>
;MOV S2 $PARAM(22)
;INC S2 ·极
;SetUseItemName $PARAM(21) $STR(S2) ;设置名字标注极品
SENDMSG 6 <$PARAM(22)>极品鉴定成功
SETITEMSEAL $PARAM(21) = 1 $STR(S1)
#ELSEACT
SENDMSG 6 <$PARAM(22)>极品鉴定失败
BREAK
[@项链手镯戒指加属性]
#IF
TRUE
#ACT
MOV S1 极·
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 攻
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 5 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 法
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 7 + $STR(M1)
#IF
RANDOM 30 100
#ACT
MOV M1 $RANDOM(9) ;取一个10以内随机数
INC M1 1
INC S1 道
INC S1 (
INC S1 $STR(M1)
INC S1 )
UPGRADEUSERITEM $PARAM(21) 9 + $STR(M1)
#IF
!EQUAL S1 极·
#ACT
SENDMSG 6 <$PARAM(22)>极品鉴定成功
SETITEMSEAL $PARAM(21) = 1 $STR(S1)
#ELSEACT
SENDMSG 6 <$PARAM(22)>极品鉴定失败
BREAK
页:
[1]