;Books in the Underworks, to add a bit more
;depth to the area. 

;Player map
Map = #MAPID
;Player"s X corridinates
X = #XPOS
;Player"s Y corridinates
Y = #YPOS
;Player"s Wisdom
Wisdom = GetUserWisdom(#USERID)


;If player doesn"t have enough wisdom to read text
If Wisdom < 15
   SendMessageToUser(#USERID,"Unknown characters cover this book",#MSG_EMOTE)
   Goto END
Endif

HasBloodLink = GetUserSkill(#USERID,5)

If Map = 321
	If X = 4
        If Y = 8
           SendMessageToUser(#USERID,"This book tells of the history of Oisvo.",#MSG_EMOTE)
        Endif
	Elseif X = 6
        If Y = 4
           SendMessageToUser(#USERID,"This book is stamped with the title 'Hafilanti' in gold lettering.",#MSG_EMOTE)
        Endif
     Endif
Elseif Map = 320
	If X = 9 
        If Y = 12
           SendMessageToUser(#USERID,"This book appears to give insight into the latin and greek languages.",#MSG_EMOTE)
        Endif
	Elseif X = 12
        If Y = 12
           SendMessageToUser(#USERID,"This book tells of the 'Dread Pirate Roberts' and his successors",#MSG_EMOTE)
        Elseif Y = 5
		  If HasBloodLink = 0
              SendMessageToUser(#USERID,"The writing on this book is barely legible, but you can make out the skills described.",#MSG_EMOTE)
              
              SetUserSkill(#USERID,4,1)
              SetUserSkill(#USERID,5,1)

              SendMessageToUser(#USERID,"Your blood carries power of sorts, you now know this power.",#MSG_CRITICAL)

              GoTo END
		  EndIf
		  SendMessageToUser(#USERID,"You already known the Bloodlink skills.",#MSG_EMOTE)
        Endif
     Endif
ElseIf Map = 330
	If X = 8
        If Y = 9
           SendMessageToUser(#USERID,"This book speaks of the history of a hidden gate below Oisvo.",#MSG_EMOTE)
        Elseif Y = 11
           SendMessageToUser(#USERID,"This book speaks of the history of a hidden gate below Oisvo.",#MSG_EMOTE)
        Endif
     Endif
ElseIf Map = 346
    If X = 15
        If Y = 6
           String="This book speaks of the unfortunate death of a person named " + GetUserName(#USERID) +"."
           
           SendMessageToUser(#USERID,String,#MSG_EMOTE)
        Endif
    Endif
ElseIf Map = 1159
    If X = 15
        If Y = 5
           SendMessageToUser(#USERID,"This book is entitled 'That Hideous Strength', and appears to be part of a trilogy.",#MSG_EMOTE)
        Endif
    Endif
Endif

Label END

Continue = 1