Added support for bookshelves
This commit is contained in:
parent
812dfa556a
commit
6db4016f9b
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -214,7 +214,7 @@ namespace Papyrus::ArtifactTracker
|
|||||||
const auto baseObj = a_ref->GetBaseObject();
|
const auto baseObj = a_ref->GetBaseObject();
|
||||||
|
|
||||||
if (baseObj->formType == RE::FormType::Container || (baseObj->formType == RE::FormType::NPC && !a_ref->IsDisabled() && baseObj->As<RE::TESNPC>()->GetRace()->formID == 0x0010760A)) {
|
if (baseObj->formType == RE::FormType::Container || (baseObj->formType == RE::FormType::NPC && !a_ref->IsDisabled() && baseObj->As<RE::TESNPC>()->GetRace()->formID == 0x0010760A)) {
|
||||||
if (a_excludeContainers->HasForm(a_ref->formID)) {
|
if (a_excludeContainers->HasForm(a_ref->formID) || baseObj->formID == 0xDC9E7) { // skip persistent and PlayerBookShelfContainer
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@ -8,6 +8,7 @@ FormList Property ETR_ItemsStored Auto
|
|||||||
FormList Property ETR_PersistentStorageList Auto
|
FormList Property ETR_PersistentStorageList Auto
|
||||||
|
|
||||||
Container Property ETR_CellStorageContainer Auto
|
Container Property ETR_CellStorageContainer Auto
|
||||||
|
Container Property PlayerBookShelfContainer Auto
|
||||||
|
|
||||||
Keyword Property LocTypePlayerHouse Auto
|
Keyword Property LocTypePlayerHouse Auto
|
||||||
|
|
||||||
@ -86,6 +87,21 @@ Event OnUpdate()
|
|||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
bRescanHome = false
|
bRescanHome = false
|
||||||
|
|
||||||
|
ObjectReference bookShelf
|
||||||
|
if lastDestContainer && lastDestContainer.GetBaseObject() == PlayerBookShelfContainer
|
||||||
|
bookShelf = lastDestContainer
|
||||||
|
endif
|
||||||
|
|
||||||
|
if bookShelf && bookShelf as PlayerBookShelfContainerScript
|
||||||
|
int iLimit = 10
|
||||||
|
while iLimit >= 0 && (bookShelf as PlayerBookShelfContainerScript).GetState() == "PlacingBooks"
|
||||||
|
Debug.Notification("Waiting for shelf update")
|
||||||
|
iLimit -= 1
|
||||||
|
Utility.wait(0.5)
|
||||||
|
endwhile
|
||||||
|
endif
|
||||||
|
|
||||||
ObjectReference cellStorage = ETR_Functions.GetCellStorage(PlayerRef, ETR_PersistentStorageList, ETR_CellStorageContainer)
|
ObjectReference cellStorage = ETR_Functions.GetCellStorage(PlayerRef, ETR_PersistentStorageList, ETR_CellStorageContainer)
|
||||||
ETR_Functions.SyncCellStorage(cellStorage, ETR_PersistentStorageList)
|
ETR_Functions.SyncCellStorage(cellStorage, ETR_PersistentStorageList)
|
||||||
if ! bRescanPersistent
|
if ! bRescanPersistent
|
||||||
|
|||||||
@ -8,6 +8,7 @@ FormList Property ETR_ItemsStored Auto
|
|||||||
FormList Property ETR_PersistentStorageList Auto
|
FormList Property ETR_PersistentStorageList Auto
|
||||||
|
|
||||||
Container Property ETR_CellStorageContainer Auto
|
Container Property ETR_CellStorageContainer Auto
|
||||||
|
Container Property PlayerBookShelfContainer Auto
|
||||||
|
|
||||||
Keyword Property LocTypePlayerHouse Auto
|
Keyword Property LocTypePlayerHouse Auto
|
||||||
|
|
||||||
@ -77,11 +78,30 @@ Event OnUpdate()
|
|||||||
lastSourceContainer = None
|
lastSourceContainer = None
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
bRescanHome = false
|
||||||
|
|
||||||
|
ObjectReference bookShelf
|
||||||
|
if lastDestContainer && lastDestContainer.GetBaseObject() == PlayerBookShelfContainer
|
||||||
|
bookShelf = lastDestContainer
|
||||||
|
elseif lastSourceContainer && lastSourceContainer.GetBaseObject() == PlayerBookShelfContainer
|
||||||
|
bookShelf = lastSourceContainer
|
||||||
|
endif
|
||||||
|
|
||||||
|
if bookShelf && bookShelf as PlayerBookShelfContainerScript
|
||||||
|
int iLimit = 10
|
||||||
|
while iLimit >= 0 && (bookShelf as PlayerBookShelfContainerScript).GetState() == "PlacingBooks"
|
||||||
|
Debug.Notification("Waiting for shelf update")
|
||||||
|
iLimit -= 1
|
||||||
|
Utility.wait(0.5)
|
||||||
|
endwhile
|
||||||
|
endif
|
||||||
|
|
||||||
ObjectReference cellStorage = ETR_Functions.GetCellStorage(PlayerRef, ETR_PersistentStorageList, ETR_CellStorageContainer)
|
ObjectReference cellStorage = ETR_Functions.GetCellStorage(PlayerRef, ETR_PersistentStorageList, ETR_CellStorageContainer)
|
||||||
ETR_Functions.SyncCellStorage(cellStorage, ETR_PersistentStorageList)
|
ETR_Functions.SyncCellStorage(cellStorage, ETR_PersistentStorageList)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if bRescanPersistent
|
if bRescanPersistent
|
||||||
|
bRescanPersistent = false
|
||||||
|
|
||||||
ETR_ItemsStored.Revert()
|
ETR_ItemsStored.Revert()
|
||||||
Form[] aContainers = ETR_PersistentStorageList.ToArray()
|
Form[] aContainers = ETR_PersistentStorageList.ToArray()
|
||||||
|
|||||||
621
Source/Scripts/PlayerBookShelfContainerScript.psc
Normal file
621
Source/Scripts/PlayerBookShelfContainerScript.psc
Normal file
@ -0,0 +1,621 @@
|
|||||||
|
Scriptname PlayerBookShelfContainerScript extends ObjectReference
|
||||||
|
|
||||||
|
import debug
|
||||||
|
import utility
|
||||||
|
|
||||||
|
Form Property LItemBookClutter Auto
|
||||||
|
{Clutter item list to fill the shelf with}
|
||||||
|
|
||||||
|
Keyword Property BookShelfBook01 Auto
|
||||||
|
Keyword Property BookShelfBook02 Auto
|
||||||
|
Keyword Property BookShelfBook03 Auto
|
||||||
|
Keyword Property BookShelfBook04 Auto
|
||||||
|
Keyword Property BookShelfBook05 Auto
|
||||||
|
Keyword Property BookShelfBook06 Auto
|
||||||
|
Keyword Property BookShelfBook07 Auto
|
||||||
|
Keyword Property BookShelfBook08 Auto
|
||||||
|
Keyword Property BookShelfBook09 Auto
|
||||||
|
Keyword Property BookShelfBook10 Auto
|
||||||
|
Keyword Property BookShelfBook11 Auto
|
||||||
|
Keyword Property BookShelfBook12 Auto
|
||||||
|
Keyword Property BookShelfBook13 Auto
|
||||||
|
Keyword Property BookShelfBook14 Auto
|
||||||
|
Keyword Property BookShelfBook15 Auto
|
||||||
|
Keyword Property BookShelfBook16 Auto
|
||||||
|
Keyword Property BookShelfBook17 Auto
|
||||||
|
Keyword Property BookShelfBook18 Auto
|
||||||
|
Keyword Property BookShelfTrigger01 Auto
|
||||||
|
Keyword Property BookShelfTrigger02 Auto
|
||||||
|
Keyword Property BookShelfTrigger03 Auto
|
||||||
|
Keyword Property BookShelfTrigger04 Auto
|
||||||
|
{List of required Keywords}
|
||||||
|
|
||||||
|
ObjectReference Property BookMarker01 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker02 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker03 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker04 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker05 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker06 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker07 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker08 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker09 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker10 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker11 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker12 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker13 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker14 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker15 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker16 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker17 Auto Hidden
|
||||||
|
ObjectReference Property BookMarker18 Auto Hidden
|
||||||
|
ObjectReference Property BookShelfTrigger01Ref Auto Hidden
|
||||||
|
ObjectReference Property BookShelfTrigger02Ref Auto Hidden
|
||||||
|
ObjectReference Property BookShelfTrigger03Ref Auto Hidden
|
||||||
|
ObjectReference Property BookShelfTrigger04Ref Auto Hidden
|
||||||
|
|
||||||
|
Int Property MaxBooksAllowed Auto Hidden
|
||||||
|
{Max books allowed on this partciular shelf}
|
||||||
|
|
||||||
|
Int Property CurrentBookAmount Auto Hidden
|
||||||
|
{The current amount of books placed on the shelf}
|
||||||
|
|
||||||
|
Form Property EmptyForm Auto Hidden
|
||||||
|
{Null Form}
|
||||||
|
|
||||||
|
ObjectReference Property EmptyRef Auto Hidden
|
||||||
|
{Null Ref}
|
||||||
|
|
||||||
|
Form Property CurrentBookForm Auto Hidden
|
||||||
|
{Book Form we are working with at any one time}
|
||||||
|
|
||||||
|
ObjectReference Property CurrentBookRef Auto Hidden
|
||||||
|
{Book Ref we are working with at any one time}
|
||||||
|
|
||||||
|
Form Property PlacedBook01 Auto Hidden
|
||||||
|
Form Property PlacedBook02 Auto Hidden
|
||||||
|
Form Property PlacedBook03 Auto Hidden
|
||||||
|
Form Property PlacedBook04 Auto Hidden
|
||||||
|
Form Property PlacedBook05 Auto Hidden
|
||||||
|
Form Property PlacedBook06 Auto Hidden
|
||||||
|
Form Property PlacedBook07 Auto Hidden
|
||||||
|
Form Property PlacedBook08 Auto Hidden
|
||||||
|
Form Property PlacedBook09 Auto Hidden
|
||||||
|
Form Property PlacedBook10 Auto Hidden
|
||||||
|
Form Property PlacedBook11 Auto Hidden
|
||||||
|
Form Property PlacedBook12 Auto Hidden
|
||||||
|
Form Property PlacedBook13 Auto Hidden
|
||||||
|
Form Property PlacedBook14 Auto Hidden
|
||||||
|
Form Property PlacedBook15 Auto Hidden
|
||||||
|
Form Property PlacedBook17 Auto Hidden
|
||||||
|
Form Property PlacedBook16 Auto Hidden
|
||||||
|
Form Property PlacedBook18 Auto Hidden
|
||||||
|
{List of Placed Book Forms}
|
||||||
|
|
||||||
|
ObjectReference Property PlacedBook01Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook02Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook03Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook04Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook05Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook06Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook07Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook08Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook09Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook10Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook11Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook12Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook13Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook14Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook15Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook17Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook16Ref Auto Hidden
|
||||||
|
ObjectReference Property PlacedBook18Ref Auto Hidden
|
||||||
|
{List of Placed Book Refs}
|
||||||
|
|
||||||
|
Bool Property AlreadyLoaded = FALSE Auto Hidden
|
||||||
|
{Whether this scritp has already went through it's OnCellLoad() Event}
|
||||||
|
|
||||||
|
Bool Property BlockBooks = FALSE Auto Hidden
|
||||||
|
{Used for when you can't place any more books}
|
||||||
|
|
||||||
|
Message Property BookShelfFirstActivateMESSAGE Auto
|
||||||
|
{Display message when the player activates a bookshelf for the first time. Only displays once.}
|
||||||
|
|
||||||
|
Message Property BookShelfNoMoreRoomMESSAGE Auto
|
||||||
|
{Displayed message for when the amount of books the player is placing excedes the shelf limit.}
|
||||||
|
|
||||||
|
Message Property BookShelfNotABookMESSAGE Auto
|
||||||
|
{Message displayed when the player places a non book form in the container.}
|
||||||
|
|
||||||
|
Message Property BookShelfRoomLeftMESSAGE Auto
|
||||||
|
{Notification that tells the player how much room is left on the shelf upon first activating it.}
|
||||||
|
|
||||||
|
GlobalVariable Property BookShelfGlobal Auto
|
||||||
|
{Global showing whether or not the player has ever activated a bookshelf}
|
||||||
|
|
||||||
|
|
||||||
|
EVENT OnCellLoad()
|
||||||
|
if AlreadyLoaded == FALSE
|
||||||
|
;Trace("BOOKCASE - Running OnCellLoad()")
|
||||||
|
; Get all the book markers
|
||||||
|
BookMarker01 = GetLinkedRef(BookShelfBook01)
|
||||||
|
BookMarker02 = GetLinkedRef(BookShelfBook02)
|
||||||
|
BookMarker03 = GetLinkedRef(BookShelfBook03)
|
||||||
|
BookMarker04 = GetLinkedRef(BookShelfBook04)
|
||||||
|
BookMarker05 = GetLinkedRef(BookShelfBook05)
|
||||||
|
BookMarker06 = GetLinkedRef(BookShelfBook06)
|
||||||
|
BookMarker07 = GetLinkedRef(BookShelfBook07)
|
||||||
|
BookMarker08 = GetLinkedRef(BookShelfBook08)
|
||||||
|
BookMarker09 = GetLinkedRef(BookShelfBook09)
|
||||||
|
BookMarker10 = GetLinkedRef(BookShelfBook10)
|
||||||
|
BookMarker11 = GetLinkedRef(BookShelfBook11)
|
||||||
|
BookMarker12 = GetLinkedRef(BookShelfBook12)
|
||||||
|
BookMarker13 = GetLinkedRef(BookShelfBook13)
|
||||||
|
BookMarker14 = GetLinkedRef(BookShelfBook14)
|
||||||
|
BookMarker15 = GetLinkedRef(BookShelfBook15)
|
||||||
|
BookMarker16 = GetLinkedRef(BookShelfBook16)
|
||||||
|
BookMarker17 = GetLinkedRef(BookShelfBook17)
|
||||||
|
BookMarker18 = GetLinkedRef(BookShelfBook18)
|
||||||
|
BookShelfTrigger01Ref = (GetLinkedRef(BookShelfTrigger01) as PlayerBookShelfTriggerSCRIPT)
|
||||||
|
BookShelfTrigger02Ref = (GetLinkedRef(BookShelfTrigger02) as PlayerBookShelfTriggerSCRIPT)
|
||||||
|
BookShelfTrigger03Ref = (GetLinkedRef(BookShelfTrigger03) as PlayerBookShelfTriggerSCRIPT)
|
||||||
|
BookShelfTrigger04Ref = (GetLinkedRef(BookShelfTrigger04) as PlayerBookShelfTriggerSCRIPT)
|
||||||
|
; Count how many books can be placed on this shelf
|
||||||
|
CountMaxBooks()
|
||||||
|
|
||||||
|
AlreadyLoaded = TRUE
|
||||||
|
endif
|
||||||
|
endEVENT
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
EVENT OnActivate(ObjectReference akActionRef)
|
||||||
|
; Removing all items from container as a precaution
|
||||||
|
;Trace("BOOKCASE - I've been ACTIVATED!")
|
||||||
|
BlockActivate()
|
||||||
|
;Trace("BOOKCASE - Blocking activate on all books")
|
||||||
|
;Trace("BOOKCASE - BookShelfTrigger01Ref = " + BookShelfTrigger01Ref)
|
||||||
|
BookShelfRoomLeftMESSAGE.Show((MaxBooksAllowed - CurrentBookAmount))
|
||||||
|
;debug.Notification("You can place " + (MaxBooksAllowed - CurrentBookAmount) + " more books on this shelf.")
|
||||||
|
|
||||||
|
if (BookShelfGlobal.GetValue() == 0)
|
||||||
|
BookShelfFirstActivateMESSAGE.Show()
|
||||||
|
BookShelfGlobal.SetValue(1)
|
||||||
|
endif
|
||||||
|
;CurrentBookAmount = 0
|
||||||
|
|
||||||
|
if BookShelfTrigger01Ref
|
||||||
|
;Trace("BOOKCASE - Setting FIRST trigger to GoToState IgnoreBooks")
|
||||||
|
BookShelfTrigger01Ref.GoToState("IgnoreBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger02Ref
|
||||||
|
;Trace("BOOKCASE - Setting SECOND trigger to GoToState IgnoreBooks")
|
||||||
|
BookShelfTrigger02Ref.GoToState("IgnoreBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger03Ref
|
||||||
|
;Trace("BOOKCASE - Setting THIRD trigger to GoToState IgnoreBooks")
|
||||||
|
BookShelfTrigger03Ref.GoToState("IgnoreBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger04Ref
|
||||||
|
;Trace("BOOKCASE - Setting FOURTH trigger to GoToState IgnoreBooks")
|
||||||
|
BookShelfTrigger04Ref.GoToState("IgnoreBooks")
|
||||||
|
endif
|
||||||
|
|
||||||
|
Wait(0.25)
|
||||||
|
; The following will fire when the player leaves inventory
|
||||||
|
;Trace("BOOKCASE - Out of Inventory so placing all the books")
|
||||||
|
UpdateBooks()
|
||||||
|
|
||||||
|
if BookShelfTrigger01Ref
|
||||||
|
;Trace("BOOKCASE - Setting FIRST trigger to GoToState WaitForBooks")
|
||||||
|
BookShelfTrigger01Ref.GoToState("WaitForBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger02Ref
|
||||||
|
;Trace("BOOKCASE - Setting SECOND trigger to GoToState WaitForBooks")
|
||||||
|
BookShelfTrigger02Ref.GoToState("WaitForBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger03Ref
|
||||||
|
;Trace("BOOKCASE - Setting THIRD trigger to GoToState WaitForBooks")
|
||||||
|
BookShelfTrigger03Ref.GoToState("WaitForBooks")
|
||||||
|
endif
|
||||||
|
if BookShelfTrigger04Ref
|
||||||
|
;Trace("BOOKCASE - Setting FOURTH trigger to GoToState WaitForBooks")
|
||||||
|
BookShelfTrigger04Ref.GoToState("WaitForBooks")
|
||||||
|
endif
|
||||||
|
endEVENT
|
||||||
|
|
||||||
|
|
||||||
|
Event OnItemRemoved(Form akBaseItem, int aiItemCount, ObjectReference akItemReference, ObjectReference akDestContainer)
|
||||||
|
if (akBaseItem as Book)
|
||||||
|
if BlockBooks == FALSE
|
||||||
|
; If the item is a book find the corresponding book reference and remove it.
|
||||||
|
;Trace("BOOKCASE - Form being Removed " + akBaseItem + " is a Book! Remove it from the list")
|
||||||
|
RemoveBooks(akBaseItem, aiItemCount)
|
||||||
|
CurrentBookAmount = CurrentBookAmount - aiItemCount
|
||||||
|
else
|
||||||
|
BlockBooks = FALSE
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
endEvent
|
||||||
|
|
||||||
|
|
||||||
|
Event OnItemAdded(Form akBaseItem, int aiItemCount, ObjectReference akItemReference, ObjectReference akSourceContainer)
|
||||||
|
;Trace("BOOKCASE - Adding " + akBaseItem + " to the Book Container")
|
||||||
|
|
||||||
|
if (akBaseItem as Book)
|
||||||
|
; If the item being added is a book then check to see if there is room in on the shelf.
|
||||||
|
;Trace("BOOKCASE - Form being Added " + akBaseItem + " is a Book!")
|
||||||
|
if ((aiItemCount + CurrentBookAmount) <= MaxBooksAllowed)
|
||||||
|
; There's room on teh shelf, manage the book placement
|
||||||
|
;Trace("BOOKCASE - " + CurrentBookAmount + "/" + MaxBooksAllowed + " There is room for another book, lets place it on the shelf.")
|
||||||
|
AddBooks(akBaseItem, aiItemCount)
|
||||||
|
CurrentBookAmount = CurrentBookAmount + aiItemCount
|
||||||
|
else
|
||||||
|
; There is no room on the shelf. Tell the player this and give him his book back.
|
||||||
|
;Trace("BOOKCASE - " + CurrentBookAmount + "/" + MaxBooksAllowed + " There's no more room for books on this shelf.")
|
||||||
|
utility.waitMenuMode(0)
|
||||||
|
;MessageBox("You can't place that many books on this shelf")
|
||||||
|
BookShelfNoMoreRoomMESSAGE.Show()
|
||||||
|
;Trace("BOOKCASE - Remove it from this container...")
|
||||||
|
BlockBooks = TRUE
|
||||||
|
self.RemoveItem(akBaseItem, aiItemCount, true, Game.GetPlayer())
|
||||||
|
;Trace("BOOKCASE - ...and give it back to the player")
|
||||||
|
endif
|
||||||
|
else
|
||||||
|
; The item placed in the container isn't a book, so give the player back and tell him only books are allowed.
|
||||||
|
;Trace("BOOKCASE - Form " + akBaseItem + " is NOT a Book!")
|
||||||
|
;Trace("BOOKCASE - Since the placed item wasn't a book remove it from the container...")
|
||||||
|
|
||||||
|
self.RemoveItem(akBaseItem, aiItemCount, true, Game.GetPlayer())
|
||||||
|
;Trace("BOOKCASE - ...and give it back to the player")
|
||||||
|
|
||||||
|
;(Game.GetPlayer()).AddItem(akBaseItem, aiItemCount, True)
|
||||||
|
utility.WaitMenuMode(0)
|
||||||
|
;MessageBox("You can only place books on this shelf")
|
||||||
|
BookShelfNotABookMESSAGE.Show()
|
||||||
|
endif
|
||||||
|
|
||||||
|
endEvent
|
||||||
|
|
||||||
|
Function BlockActivate()
|
||||||
|
if Placedbook01Ref
|
||||||
|
PlacedBook01Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook02Ref
|
||||||
|
PlacedBook02Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook03Ref
|
||||||
|
PlacedBook03Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook04Ref
|
||||||
|
PlacedBook04Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook05Ref
|
||||||
|
PlacedBook05Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook06Ref
|
||||||
|
PlacedBook06Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook07Ref
|
||||||
|
PlacedBook07Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook08Ref
|
||||||
|
PlacedBook08Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook09Ref
|
||||||
|
PlacedBook09Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook10Ref
|
||||||
|
PlacedBook10Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook11Ref
|
||||||
|
PlacedBook11Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook12Ref
|
||||||
|
PlacedBook12Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook13Ref
|
||||||
|
PlacedBook13Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook14Ref
|
||||||
|
PlacedBook14Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook15Ref
|
||||||
|
PlacedBook15Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook16Ref
|
||||||
|
PlacedBook16Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook17Ref
|
||||||
|
PlacedBook17Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
if Placedbook18Ref
|
||||||
|
PlacedBook18Ref.BlockActivation(TRUE)
|
||||||
|
endif
|
||||||
|
;Trace("BOOKCASE - All book activation has been blocked")
|
||||||
|
endFunction
|
||||||
|
|
||||||
|
Function UnBlockActivate()
|
||||||
|
if Placedbook01Ref
|
||||||
|
PlacedBook01Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook02Ref
|
||||||
|
PlacedBook02Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook03Ref
|
||||||
|
PlacedBook03Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook04Ref
|
||||||
|
PlacedBook04Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook05Ref
|
||||||
|
PlacedBook05Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook06Ref
|
||||||
|
PlacedBook06Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook07Ref
|
||||||
|
PlacedBook07Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook08Ref
|
||||||
|
PlacedBook08Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook09Ref
|
||||||
|
PlacedBook09Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook10Ref
|
||||||
|
PlacedBook10Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook11Ref
|
||||||
|
PlacedBook11Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook12Ref
|
||||||
|
PlacedBook12Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook13Ref
|
||||||
|
PlacedBook13Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook14Ref
|
||||||
|
PlacedBook14Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook15Ref
|
||||||
|
PlacedBook15Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook16Ref
|
||||||
|
PlacedBook16Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook17Ref
|
||||||
|
PlacedBook17Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
if Placedbook18Ref
|
||||||
|
PlacedBook18Ref.BlockActivation(FALSE)
|
||||||
|
endif
|
||||||
|
;Trace("BOOKCASE - All book activation has been UNblocked")
|
||||||
|
endFunction
|
||||||
|
|
||||||
|
|
||||||
|
Function RemoveBooks(Form BookBase, Int BookAmount)
|
||||||
|
; Find an empty book form and place the new book there
|
||||||
|
While BookAmount > 0
|
||||||
|
if PlacedBook01 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook01 matches, Removing this book")
|
||||||
|
PlacedBook01 = EmptyForm
|
||||||
|
elseif PlacedBook02 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook02 matches, Removing this book")
|
||||||
|
PlacedBook02 = EmptyForm
|
||||||
|
elseif PlacedBook03 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook03 matches, Removing this book")
|
||||||
|
PlacedBook03 = EmptyForm
|
||||||
|
elseif PlacedBook04 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook04 matches, Removing this book")
|
||||||
|
PlacedBook04 = EmptyForm
|
||||||
|
elseif PlacedBook05 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook05 matches, Removing this book")
|
||||||
|
PlacedBook05 = EmptyForm
|
||||||
|
elseif PlacedBook06 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook06 matches, Removing this book")
|
||||||
|
PlacedBook06 = EmptyForm
|
||||||
|
elseif PlacedBook07 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook07 matches, Removing this book")
|
||||||
|
PlacedBook07 = EmptyForm
|
||||||
|
elseif PlacedBook08 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook08 matches, Removing this book")
|
||||||
|
PlacedBook08 = EmptyForm
|
||||||
|
elseif PlacedBook09 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook09 matches, Removing this book")
|
||||||
|
PlacedBook09 = EmptyForm
|
||||||
|
elseif PlacedBook10 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook10 matches, Removing this book")
|
||||||
|
PlacedBook10 = EmptyForm
|
||||||
|
elseif PlacedBook11 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook11 matches, Removing this book")
|
||||||
|
PlacedBook11 = EmptyForm
|
||||||
|
elseif PlacedBook12 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook12 matches, Removing this book")
|
||||||
|
PlacedBook12 = EmptyForm
|
||||||
|
elseif PlacedBook13 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook13 matches, Removing this book")
|
||||||
|
PlacedBook13 = EmptyForm
|
||||||
|
elseif PlacedBook14 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook14 matches, Removing this book")
|
||||||
|
PlacedBook14 = EmptyForm
|
||||||
|
elseif PlacedBook15 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook15 matches, Removing this book")
|
||||||
|
PlacedBook15 = EmptyForm
|
||||||
|
elseif PlacedBook16 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook16 matches, Removing this book")
|
||||||
|
PlacedBook16 = EmptyForm
|
||||||
|
elseif PlacedBook17 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook17 matches, Removing this book")
|
||||||
|
PlacedBook17 = EmptyForm
|
||||||
|
elseif PlacedBook18 == BookBase
|
||||||
|
;Trace("BOOKCASE - PlacedBook18 matches, Removing this book")
|
||||||
|
PlacedBook18 = EmptyForm
|
||||||
|
endif
|
||||||
|
|
||||||
|
BookAmount = BookAmount - 1
|
||||||
|
|
||||||
|
endWhile
|
||||||
|
endFunction
|
||||||
|
|
||||||
|
Function AddBooks(Form BookBase, Int BookAmount)
|
||||||
|
; Find an empty book form and place the new book there
|
||||||
|
While BookAmount > 0
|
||||||
|
if PlacedBook01 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook01 is empty, placing book there")
|
||||||
|
PlacedBook01 = BookBase
|
||||||
|
elseif PlacedBook02 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook02 is empty, placing book there")
|
||||||
|
PlacedBook02 = BookBase
|
||||||
|
elseif PlacedBook03 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook03 is empty, placing book there")
|
||||||
|
PlacedBook03 = BookBase
|
||||||
|
elseif PlacedBook04 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook04 is empty, placing book there")
|
||||||
|
PlacedBook04 = BookBase
|
||||||
|
elseif PlacedBook05 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook05 is empty, placing book there")
|
||||||
|
PlacedBook05 = BookBase
|
||||||
|
elseif PlacedBook06 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook06 is empty, placing book there")
|
||||||
|
PlacedBook06 = BookBase
|
||||||
|
elseif PlacedBook07 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook07 is empty, placing book there")
|
||||||
|
PlacedBook07 = BookBase
|
||||||
|
elseif PlacedBook08 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook08 is empty, placing book there")
|
||||||
|
PlacedBook08 = BookBase
|
||||||
|
elseif PlacedBook09 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook09 is empty, placing book there")
|
||||||
|
PlacedBook09 = BookBase
|
||||||
|
elseif PlacedBook10 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook10 is empty, placing book there")
|
||||||
|
PlacedBook10 = BookBase
|
||||||
|
elseif PlacedBook11 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook11 is empty, placing book there")
|
||||||
|
PlacedBook11 = BookBase
|
||||||
|
elseif PlacedBook12 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook12 is empty, placing book there")
|
||||||
|
PlacedBook12 = BookBase
|
||||||
|
elseif PlacedBook13 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook13 is empty, placing book there")
|
||||||
|
PlacedBook13 = BookBase
|
||||||
|
elseif PlacedBook14 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook14 is empty, placing book there")
|
||||||
|
PlacedBook14 = BookBase
|
||||||
|
elseif PlacedBook15 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook15 is empty, placing book there")
|
||||||
|
PlacedBook15 = BookBase
|
||||||
|
elseif PlacedBook16 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook16 is empty, placing book there")
|
||||||
|
PlacedBook16 = BookBase
|
||||||
|
elseif PlacedBook17 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook17 is empty, placing book there")
|
||||||
|
PlacedBook17 = BookBase
|
||||||
|
elseif PlacedBook18 == EmptyForm
|
||||||
|
;Trace("BOOKCASE - PlacedBook18 is empty, placing book there")
|
||||||
|
PlacedBook18 = BookBase
|
||||||
|
endif
|
||||||
|
|
||||||
|
BookAmount = BookAmount - 1
|
||||||
|
|
||||||
|
endWhile
|
||||||
|
endFunction
|
||||||
|
|
||||||
|
|
||||||
|
Function CountMaxBooks()
|
||||||
|
; Checks how many books can be placed on this shelf
|
||||||
|
if BookMarker01 == EmptyRef
|
||||||
|
MaxBooksAllowed = 0
|
||||||
|
elseif BookMarker02 == EmptyRef
|
||||||
|
MaxBooksAllowed = 1
|
||||||
|
elseif BookMarker03 == EmptyRef
|
||||||
|
MaxBooksAllowed = 2
|
||||||
|
elseif BookMarker04 == EmptyRef
|
||||||
|
MaxBooksAllowed = 3
|
||||||
|
elseif BookMarker05 == EmptyRef
|
||||||
|
MaxBooksAllowed = 4
|
||||||
|
elseif BookMarker06 == EmptyRef
|
||||||
|
MaxBooksAllowed = 5
|
||||||
|
elseif BookMarker07 == EmptyRef
|
||||||
|
MaxBooksAllowed = 6
|
||||||
|
elseif BookMarker08 == EmptyRef
|
||||||
|
MaxBooksAllowed = 7
|
||||||
|
elseif BookMarker09 == EmptyRef
|
||||||
|
MaxBooksAllowed = 8
|
||||||
|
elseif BookMarker10 == EmptyRef
|
||||||
|
MaxBooksAllowed = 9
|
||||||
|
elseif BookMarker11 == EmptyRef
|
||||||
|
MaxBooksAllowed = 10
|
||||||
|
elseif BookMarker12 == EmptyRef
|
||||||
|
MaxBooksAllowed = 11
|
||||||
|
elseif BookMarker13 == EmptyRef
|
||||||
|
MaxBooksAllowed = 12
|
||||||
|
elseif BookMarker14 == EmptyRef
|
||||||
|
MaxBooksAllowed = 13
|
||||||
|
elseif BookMarker15 == EmptyRef
|
||||||
|
MaxBooksAllowed = 14
|
||||||
|
elseif BookMarker16 == EmptyRef
|
||||||
|
MaxBooksAllowed = 15
|
||||||
|
elseif BookMarker17 == EmptyRef
|
||||||
|
MaxBooksAllowed = 16
|
||||||
|
elseif BookMarker18 == EmptyRef
|
||||||
|
MaxBooksAllowed = 17
|
||||||
|
elseif BookMarker18
|
||||||
|
MaxBooksAllowed = 18
|
||||||
|
endif
|
||||||
|
;Trace("BOOKCASE - " + MaxBooksAllowed + " books can be placed on this shelf")
|
||||||
|
endFunction
|
||||||
|
|
||||||
|
|
||||||
|
ObjectReference Function UpdateSingleBook(Form TargetBook, ObjectReference PlacedBookRef, ObjectReference TargetMarker)
|
||||||
|
ObjectReference retVal ; We return the book we placed (or None)
|
||||||
|
; Note - it would be more efficient to move the book to its home position if the desired
|
||||||
|
; book matches the placed book, but MoveTo doesn't work correctly with multi-part dynamic
|
||||||
|
; objects. So we sidestep the issue by always deleting and placing
|
||||||
|
if PlacedBookRef
|
||||||
|
PlacedBookRef.Disable()
|
||||||
|
PlacedBookRef.Delete()
|
||||||
|
endIf
|
||||||
|
if TargetBook
|
||||||
|
retVal = TargetMarker.PlaceAtMe(TargetBook)
|
||||||
|
retVal.BlockActivation()
|
||||||
|
endIf
|
||||||
|
return retVal
|
||||||
|
EndFunction
|
||||||
|
|
||||||
|
|
||||||
|
Function UpdateBooks()
|
||||||
|
GoToState("PlacingBooks") ; Future calls should not mess with this stuff
|
||||||
|
|
||||||
|
PlacedBook01Ref = UpdateSingleBook(PlacedBook01, PlacedBook01Ref, BookMarker01)
|
||||||
|
PlacedBook02Ref = UpdateSingleBook(PlacedBook02, PlacedBook02Ref, BookMarker02)
|
||||||
|
PlacedBook03Ref = UpdateSingleBook(PlacedBook03, PlacedBook03Ref, BookMarker03)
|
||||||
|
PlacedBook04Ref = UpdateSingleBook(PlacedBook04, PlacedBook04Ref, BookMarker04)
|
||||||
|
PlacedBook05Ref = UpdateSingleBook(PlacedBook05, PlacedBook05Ref, BookMarker05)
|
||||||
|
|
||||||
|
PlacedBook06Ref = UpdateSingleBook(PlacedBook06, PlacedBook06Ref, BookMarker06)
|
||||||
|
PlacedBook07Ref = UpdateSingleBook(PlacedBook07, PlacedBook07Ref, BookMarker07)
|
||||||
|
PlacedBook08Ref = UpdateSingleBook(PlacedBook08, PlacedBook08Ref, BookMarker08)
|
||||||
|
PlacedBook09Ref = UpdateSingleBook(PlacedBook09, PlacedBook09Ref, BookMarker09)
|
||||||
|
PlacedBook10Ref = UpdateSingleBook(PlacedBook10, PlacedBook10Ref, BookMarker10)
|
||||||
|
|
||||||
|
PlacedBook11Ref = UpdateSingleBook(PlacedBook11, PlacedBook11Ref, BookMarker11)
|
||||||
|
PlacedBook12Ref = UpdateSingleBook(PlacedBook12, PlacedBook12Ref, BookMarker12)
|
||||||
|
PlacedBook13Ref = UpdateSingleBook(PlacedBook13, PlacedBook13Ref, BookMarker13)
|
||||||
|
PlacedBook14Ref = UpdateSingleBook(PlacedBook14, PlacedBook14Ref, BookMarker14)
|
||||||
|
PlacedBook15Ref = UpdateSingleBook(PlacedBook15, PlacedBook15Ref, BookMarker15)
|
||||||
|
|
||||||
|
PlacedBook16Ref = UpdateSingleBook(PlacedBook16, PlacedBook16Ref, BookMarker16)
|
||||||
|
PlacedBook17Ref = UpdateSingleBook(PlacedBook17, PlacedBook17Ref, BookMarker17)
|
||||||
|
PlacedBook18Ref = UpdateSingleBook(PlacedBook18, PlacedBook18Ref, BookMarker18)
|
||||||
|
|
||||||
|
UnBlockActivate() ; Allow the player to mess with them
|
||||||
|
GoToState("") ; Now allow books to be updated again
|
||||||
|
EndFunction
|
||||||
|
|
||||||
|
State PlacingBooks
|
||||||
|
Function UpdateBooks()
|
||||||
|
; Already updating books, so ignore
|
||||||
|
EndFunction
|
||||||
|
EndState
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user