#include "nw_i0_tool"
/*   Script generated by
Lilac Soul's NWN Script Generator, v. 1.5

For download info, please visit:
http://www.lilacsoul.revility.com    */

//Put this OnUsed
void main()
{

object oPC = GetLastUsedBy();

if (!GetIsPC(oPC)) return;

int DoOnce = GetLocalInt(oPC, GetTag(OBJECT_SELF));

if (DoOnce==TRUE) return;

SetLocalInt(oPC, GetTag(OBJECT_SELF), TRUE);


string sDeny;

if (!GetIsSkillSuccessful(oPC, SKILL_LORE, 20))
   {
   sDeny="You cannot understand the writing in this book.";

   SendMessageToPC(oPC, sDeny);

   return;
   }


FloatingTextStringOnCreature("The book contains an invocation to a god called Baphomet...", oPC);

RewardPartyXP(50, oPC, FALSE);

}