;Vampire ring(apollyon)
; goto END

Sprite = GetClassSprite(GetUserClass(#PARAM3))
Guild = GetUserGuild(#PARAM3)
If Guild > 0
	GuildSprite = GetGuildSprite(Guild) 
	If GuildSprite > 0
		Sprite = GuildSprite
	EndIf 
EndIf


if isnight() = 0
	timer(609,15000,#PARAM1,#PARAM2,#PARAM2)
	SetUserSprite(#PARAM3,Sprite)
	SetUserDisplayName(#PARAM3,GetUserName(#PARAM3))
elseif GetUserEquippedAccessory(#PARAM2) > 0
	timer(609,2500,#PARAM1,#PARAM2,#PARAM2)
else
	SetUserSprite(#PARAM3,Sprite)
	SetUserDisplayName(#PARAM3,GetUserName(#PARAM3))
endif	


label END
Continue = 1