Aantioch_Infernum/_module/nss/asg_temp_rbooksd.nss
Jaysyn904 22947ad4b6 Initial Upload
Initial Upload
2023-08-08 16:22:17 -04:00

23 lines
609 B
Plaintext

void main()
{
object oPC = GetLastUsedBy();
object oArcaneBooks = GetObjectByTag("ASG_DVCHEST");
int iCount = 0;
int iRandom;
int iK;
object oBook = GetFirstItemInInventory(oArcaneBooks);
while (GetIsObjectValid(oBook))
{
iCount++;
oBook = GetNextItemInInventory(oArcaneBooks);
}
iRandom = Random(iCount);
oBook = GetFirstItemInInventory(oArcaneBooks);
for (iK=0;iK<=iRandom;iK++)
{
oBook = GetNextItemInInventory(oArcaneBooks);
}
object oNewBook = CopyObject(oBook,GetLocation(oPC),oPC);
SetIdentified(oNewBook,TRUE);
}