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
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
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