DUSActorUnequipEvent

ScriptName DUSActorUnequipEvent

ref targetActor
ref unequippedItem
short unequippedItemSlot

Begin Function { targetActor unequippedItem }

	If targetActor == PlayerRef
		;Let unequippedItemSlot := GetEquipmentSlot unequippedItem

		;If unequippedItemSlot == 2 || unequippedItemSlot == 22
		;	Let DUSEngine.playerPreviousTopObject := unequippedItem
		;ElseIf unequippedItemSlot == 3
		;	Let DUSEngine.playerPreviousBottomObject := unequippedItem
		;ElseIf 18 <= unequippedItemSlot && unequippedItemSlot <= 21
		;	Let DUSEngine.playerPreviousTopObject := unequippedItem
		;	Let DUSEngine.playerPreviousBottomObject := unequippedItem
		;EndIf

		Let unequippedItemSlot := GetBipedSlotMask unequippedItem

		If eval (unequippedItemSlot & 12) == 12
			Let DUSEngine.playerPreviousTopObject := unequippedItem
			Let DUSEngine.playerPreviousBottomObject := unequippedItem
		ElseIf eval (unequippedItemSlot & 4) == 4
			Let DUSEngine.playerPreviousTopObject := unequippedItem
		ElseIf eval (unequippedItemSlot & 8) == 8
			Let DUSEngine.playerPreviousBottomObject := unequippedItem
		EndIf

		Return
	EndIf

	If Eval(Call DUSIsUnderwearItem unequippedItem) == 0
		If targetActor.GetItemCount DUSNPCUpdateToken == 0
			targetActor.AddItemNS DUSNPCUpdateToken 1
		EndIf
	EndIf

	Return

End