;"Book of Knowledge" Item

;SendMessageToUser(#USERID,"What Book of Knowledge? I know no such book...",#MSG_SAY)

;GoTo END

;Level of access to the secrets contained in the book
Level = GetUserWisdom(#USERID)

MaxSecret = 26

If Level > MaxSecret
	Level = MaxSecret
EndIf

;Which secret to reveal
Secret = Random(0,Level)

;SendMessageToUser(#USERID,"You read the book of knowledge. It says:",#MSG_SAY)

If Secret = 0
   SendMessageToUser(#USERID,"Your blood recovers naturally, but if you stop a moment to regenerate, it recovers three times as fast.",#MSG_SAY)
ElseIf Secret = 1
   SendMessageToUser(#USERID,"Some skills require you to first learn different skills, others require you to have a certain amount of wisdom.",#MSG_SAY)
ElseIf Secret = 2
   SendMessageToUser(#USERID,"Some people prefer the night, and may only offer quests at that time.",#MSG_SAY)
ElseIf Secret = 3
   SendMessageToUser(#USERID,"Humans and zombies naturally distrust each other so soon after the war. It might be benificial to not appear undead.",#MSG_SAY)
ElseIf Secret = 4
   SendMessageToUser(#USERID,"You can loot guildhalls if you can trick someone to open the door and let you in.",#MSG_SAY)
ElseIf Secret = 5
   SendMessageToUser(#USERID,"Your wisdom often directly effects the potency of your skills, and sometimes your defense against enemy skills.",#MSG_SAY)
ElseIf Secret = 6
   SendMessageToUser(#USERID,"Always keep a spare weapon and a suit of armor on you, you never know when yours might break.",#MSG_SAY)
ElseIf Secret = 7
   SendMessageToUser(#USERID,"Some accesories effect your stats, so do not be turned off if it appears to have +0 defense.",#MSG_SAY)
ElseIf Secret = 8
   SendMessageToUser(#USERID,"Legends speak of a hidden gate under the city which is now called Oisvo.",#MSG_SAY)
ElseIf Secret = 9
   SendMessageToUser(#USERID,"There are many things hidden in the world, you should go explore and search out dungeons.",#MSG_SAY)
ElseIf Secret = 10
   SendMessageToUser(#USERID,"The city Oisvo used to be called Magulank, but after the zombie-human wars, this name was forgotten.",#MSG_SAY)
ElseIf Secret = 11
   SendMessageToUser(#USERID,"A traveler is wise not to travel alone. Even the most powerful warrior may be killed.",#MSG_SAY)
ElseIf Secret = 12
   SendMessageToUser(#USERID,"You should have someone you trust alongside you at all times. If you die, he could guard your equipment.",#MSG_SAY)
ElseIf Secret = 13
   SendMessageToUser(#USERID,"Wise warriors gather allies to them that they can trust, only a fool lets the untrustworthy guard the guildhall.",#MSG_SAY)
ElseIf Secret = 14
   SendMessageToUser(#USERID,"Legends speak of a man defying death, so great was his dark power power, just the sound of his name being spoken was enough to awaken the dead.",#MSG_SAY)
ElseIf Secret = 15
   SendMessageToUser(#USERID,"Humans and zombies warred against each other for many years, and even now mistrust lurks between the races.",#MSG_SAY)
ElseIf Secret = 16
   SendMessageToUser(#USERID,"While many things are better than death, many things are also much worse.",#MSG_SAY)
ElseIf Secret = 17
   SendMessageToUser(#USERID,"Darkness may yet coat the sky, and monsters wander the earth, but safety still exists in numbers.",#MSG_SAY)
ElseIf Secret = 18
   SendMessageToUser(#USERID,"Although Magulank was once a human, what he is now can't easily be described.",#MSG_SAY)
ElseIf Secret = 19
   SendMessageToUser(#USERID,"Always talk to townsfolk, some may have information worthy of your time.",#MSG_SAY)
ElseIf Secret = 20
   SendMessageToUser(#USERID,"The best equipment can't be bought from merchants, nor can it be easily sold.",#MSG_SAY)
ElseIf Secret = 21
   SendMessageToUser(#USERID,"Through careful bartering, a person might make his fortune, but it can also be made through thievery.",#MSG_SAY)
ElseIf Secret = 22
   SendMessageToUser(#USERID,"Hot spring water can dispell positive or negative effects inside your body, if you dip yourself in it.",#MSG_SAY)
ElseIf Secret = 23
   SendMessageToUser(#USERID,"Never brag about the raids your guild went on, news of it will surely get back to the enemy.",#MSG_SAY)
ElseIf Secret = 24
   SendMessageToUser(#USERID,"Always carry a Path Forger with you, they are extremely useful, and may give you access to new areas..",#MSG_SAY)
ElseIf Secret = 25
   SendMessageToUser(#USERID,"Rumors abound about the one named Magulank, many think he still exists in some form or another.",#MSG_SAY)
ElseIf Secret = 26
   SendMessageToUser(#USERID,"There is a book somewhere which contains many useful pieces of information.",#MSG_SAY)
ElseIf Secret = 27
   SendMessageToUser(#USERID,"",#MSG_SAY)
EndIf

Label END

Continue = 1