Scriptname NNWQuestitemsSkript extends ObjectReference  
{Raeumt alle QuestItems in die verlinkte Kiste zur spaeteren Abholung}

Import Utility

Int Menge = 0

MiscObject[] Property QItem Auto  
{Beinhaltet 11 Misc - Quest - Items die einem das Inventar zumuellen}

Weapon[] Property WQItem Auto
{Beinhaltet 5 Waffen - Quest - Items die einem das Inventar zumuellen}

ObjectReference Property NNWQuestItemsChestREF  Auto  
{Eine Kiste zum Einlagern der Items}
Message Property NNWFertigText Auto
{Da die Meldung beim entfernen / hinzufuegen unterdrueckt wird....}
Actor Property PlayerRef Auto

Event OnActivate(ObjectReference akActionRef)
;================Waffen
Menge = PlayerRef.GetItemCount(WQItem[0])
if (Menge >0)
PlayerRef.RemoveItem(WQItem[0], Menge, True)
NNWQuestItemsChestREF.AddItem(WQItem[0], Menge, True)
EndIf
Menge = PlayerRef.GetItemCount(WQItem[1])
if (Menge >0)
PlayerRef.RemoveItem(WQItem[1], Menge, True)
NNWQuestItemsChestREF.AddItem(WQItem[1], Menge, True)
EndIf
Menge = PlayerRef.GetItemCount(WQItem[2])
if (Menge >0)
PlayerRef.RemoveItem(WQItem[2], Menge, True)
NNWQuestItemsChestREF.AddItem(WQItem[2], Menge, True)
EndIf
Menge = PlayerRef.GetItemCount(WQItem[3])
if (Menge >0)
PlayerRef.RemoveItem(WQItem[3], Menge, True)
NNWQuestItemsChestREF.AddItem(WQItem[3], Menge, True)
EndIf
Menge = PlayerRef.GetItemCount(WQItem[4])
if (Menge >0)
PlayerRef.RemoveItem(WQItem[4], Menge, True)
NNWQuestItemsChestREF.AddItem(WQItem[4], Menge, True)
EndIf
;Debug.Trace("Waffenabschnitt beendet und Menge war: " + Menge) 
Wait(1)

;===============Misc Item
Int s = 0
Int e = (QItem.Length - 1)

;Debug.Trace("e ist: " + e)

While(s <= e)
Menge = PlayerRef.GetItemCount(QItem[s])
if (Menge >0)
PlayerRef.RemoveItem(QItem[s], Menge, True)
NNWQuestItemsChestREF.AddItem(QItem[s], Menge, True)
EndIf
;Debug.Trace("s ist: " + s)
s += 1
EndWhile
;Debug.Trace("Miscabschnitt beendet und Menge war: " + Menge)
NNWFertigText.Show()
EndEvent