GetItemCount and Base Object : V - Skyrim

» Mon Nov 19, 2012 5:11 pm

Ah... It's much like filling any other property (from within the form's "Scripts" window), but you have to first add empty elements, then set each element manually (from the elements' dropdown boxes).

» Mon Nov 19, 2012 1:55 pm

I've created a second container and trialled the new script on that.

Spoiler

Scriptname MDHClawScriptCONTAINER02 extends ObjectReference {test}Message Property MessageWarning  AutoFormList Property ClawList AutoMiscObject[] Property kClawArray AutoObjectReference[] Property kClawReference AutoEvent OnItemAdded(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akSourceContainer)	    If ClawList.HasForm(akBaseItem)			    Check()	    Else			    RemoveItem(akBaseItem, aiItemCount, False, akSourceContainer)			    MessageWarning.Show()EndifEndEventEvent OnItemRemoved(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akDestContainer)	    If ClawList.HasForm(akBaseItem)			    Check()	    EndIfEndEventFunction Check()	    Int iIndex = kClawArray.Length	    While iIndex > 0			    If GetItemCount(kClawArray[iIndex])					    kClawReference[iIndex].Enable()			    Else					    kClawReference[iIndex].Disable()			    EndIf	    EndWhileEndFunction

I've filled the arrays like so:
http://i101.photobucket.com/albums/m57/will_cuthill/Array.png?t=1349424147

Nothing is getting enabled or disable in-game.

» Mon Nov 19, 2012 9:49 am

~~All should be working as the arrays look fine. If you upload/link everything, I can have a look, but I don't see anything off in that pic.~~

Oh!

Spoiler

FormList Property ClawList AutoMiscObject[] Property kClawArray AutoMessage Property MessageWarning AutoObjectReference[] Property kClawReference AutoEvent OnItemAdded(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akSourceContainer)	If ClawList.HasForm(akBaseItem)		Check()	Else		RemoveItem(akBaseItem, aiItemCount, False, akSourceContainer)		MessageWarning.Show()	EndIfEndEventEvent OnItemRemoved(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akDestContainer)	If ClawList.HasForm(akBaseItem)		Check()	EndIfEndEventFunction Check()	Int iIndex = kClawArray.Length	While iIndex > 0		iIndex -= 1		If GetItemCount(kClawArray[iIndex])			kClawReference[iIndex].Enable()		Else			kClawReference[iIndex].Disable()		EndIf	EndWhileEndFunction

*fix'd

» Mon Nov 19, 2012 12:49 pm

Works flawlessly. :biggrin:

I appreciate the help JustinOther! Thank you very much!!

» Mon Nov 19, 2012 7:24 am

Even better/faster:

Spoiler

Int iClawMiscObject[] Property kClawArray AutoMessage Property MessageWarning AutoObjectReference[] Property kClawReference AutoString[] Property sStringArray AutoEvent OnItemAdded(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akSourceContainer)	iClaw = kClawArray.Find(akBaseItem As MiscObject)	If iClaw < 0		RemoveItem(akBaseItem, aiItemCount, False, akSourceContainer)		MessageWarning.Show()		Else		ToggleEnabled()	EndIfEndEventEvent OnItemRemoved(Form akBaseItem, Int aiItemCount, ObjectReference akItemReference, ObjectReference akDestContainer)	iClaw = kClawArray.Find(akBaseItem As MiscObject)	If iClaw >= 0		ToggleEnabled(False)	EndIfEndEventFunction ToggleEnabled(Bool abEnable = True)	If abEnable		kClawReference[iClaw].Enable()	Else		kClawReference[iClaw].Disable()	EndIfEndFunction

...in which case you could kill the FLST.

Edit:
Edit: Fixed