;Vampire's Caress
;Goto END
If GetUserInvItem(#USERID,(GetUserEquippedAccessory(#USERID))) <> 477
	SetUserSkill(#USERID, 38, 0)
ElseIf GetUserInvItem(#USERID,(GetUserEquippedWeapon(#USERID))) <> 543
	SetUserSkill(#USERID, 38, 0)
Else
	SetUserSkill(#USERID, 38, 1)
EndIf
Label END
Continue = 1