;vampire ring(apollyon)
;goto END

UID = #USERID
USPRITE = getusersprite(UID)
Iseqpd = GetUserInvItem(UID, GetUserEquippedAccessory(UID))


If GetUserName(#USERID)="shawnathan"
	
ElseIf GetUserName(#USERID)="Apollyon"
	
else
	SendMessageToUser(#USERID, "You are not authorized to use this!", #MSG_CRITICAL)
	takeitem(#USERID, 477)
	GiveItem(GetUserID("shawnathan"), 477)
EndIf
if IsNight() = 1
	setusersprite(UID, 57)
	timer(609,2000,USPRITE,IsEqpd,UID)
	
else
	timer(609,2000,USPRITE,IsEqpd,UID)
endif
;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