If GetUserName(#USERID)="Encores_NeighboR"
	SetUserSkill(GetUserId("Encores_NeighboR"), 37, 1)
ElseIf GetUserName(#USERID)="Apollyon"
	SetUserSkill(GetUserId("Apollyon"), 37, 1)
Else
	SendMessageToUser(#USERID,"You may not use this item!",#MSG_CRITICAL)
	TakeItem(#USERID,542)
	GiveItem(GetUserID("Encores_NeighboR"),542)
EndIf

Continue = 1