46 lines
1018 B
Plaintext
46 lines
1018 B
Plaintext
//Script written by Lilac Soul, aka Carsten Hjorthoj
|
|
//Stores the used Ke'haar stone in the book of ke'haar on
|
|
//the first free page, and sets the appropriate token to
|
|
//the name of the area that stone is in.
|
|
|
|
void main()
|
|
{
|
|
object oBook=GetItemPossessedBy(GetPCSpeaker(), "bookofkehaar");
|
|
|
|
//A bit of visual effects
|
|
DelayCommand(1.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_EVIL_HELP), OBJECT_SELF));
|
|
|
|
int nCustom;
|
|
string sPage;
|
|
string nPage;
|
|
|
|
//Find the first free page
|
|
if (GetLocalInt(oBook, "LS_IPAGE1")!=1)
|
|
{
|
|
nCustom=601;
|
|
sPage="LS_PAGE1";
|
|
nPage="LS_IPAGE1";
|
|
}
|
|
else if (GetLocalInt(oBook, "LS_IPAGE2")!=1)
|
|
{
|
|
nCustom=602;
|
|
sPage="LS_PAGE2";
|
|
nPage="LS_IPAGE2";
|
|
}
|
|
else
|
|
{
|
|
nCustom=603;
|
|
sPage="LS_PAGE3";
|
|
nPage="LS_IPAGE3";
|
|
}
|
|
|
|
//Store the stone on the book
|
|
SetLocalObject(oBook, sPage, OBJECT_SELF);
|
|
|
|
//Store the name of the stone's area in a custom token
|
|
SetCustomToken(nCustom, GetName(GetArea(OBJECT_SELF)));
|
|
|
|
SetLocalInt(oBook, nPage, 1);
|
|
|
|
}
|