穿戴装备触发对方有几率红名的脚本制作方法

QF内容如下：
;======================================
[@Attack]
#IF
Random 120
CHECKCURRTARGETRACE = 0
checkitemw 天怒宝石 1
#ACT
PLAYEFFECT 补丁 1401 6 1 100
<$CURRRTARGETNAME>.CHANGEPKPOINT + 200
SENDMSG 6 你把目标红名了！
<$CURRRTARGETNAME>.SENDMSG 6 你进入红名状态，！
SendCenterMsg 255 215 【<$USERNAME>】的★天怒宝石★触发的天怒神罚技能击中了人物【<$CURRRTARGETNAME>】使对方红名.死了大爆！！！ 1 4
break