;'Priest' NPC in starting graveyard, map 752

If GetUserFlag(#USERID,45) = 9
	If IsInvFull(#USERID) = 1
		SendMessageToUser(#USERID,"Inventory full! Discard a item before trying again.",#MSG_CRITICAL)
		GoTo END
	EndIf
	SetUserFlag(#USERID,45,10)
	SetUserSkill(#USERID,34,1)
	SendMessageToUser(#USERID,"The Priest says, 'You are almost out of here, "+GetUserName(#USERID)+". Take this skill, and this key.'",#MSG_SAY)
	SendMessageToUser(#USERID,"The priest taught you the 'Lesser Restore' skill!",#MSG_EMOTE)
	GiveItem(#USERID,508)
	SendMessageToUser(#USERID,"The priest handed you a 'Crypt Key'.",#MSG_TELL)
	SendMessageToUser(#USERID,"The Priest says, 'The skill can heal you when you're low on HP, and the key can be used to leave this graveyard. Good luck!'",#MSG_SAY)
Else
	If HasItem(#USERID,508)	= 0
		GiveItem(#USERID,508)	
		SendMessageToUser(#USERID,"The priest handed you a 'Crypt Key'!",#MSG_TELL)
	EndIf
	SendMessageToUser(#USERID,"The Priest says, 'Go with God, my friend!'",#MSG_SAY)
EndIf

Label END

Continue = 1