Function ExamineEquipments(Actor akTarget)
	String s

	Int iThisSlot = 0x01
	Int iSlotsChecked = 0x00100000 + 0x00200000	; チェックを省くスロット

	while iThisSlot < 0x80000000
		if Math.LogicalAnd(iSlotsChecked, iThisSlot) != iThisSlot
			Armor kArmor = akTarget.GetWornForm(iThisSlot) as Armor

			if kArmor
				iSlotsChecked += kArmor.GetSlotMask()

				if kArmor.IsPlayable() &amp;&amp; ( kArmor.IsHeavyArmor() || kArmor.IsLightArmor() )
					if s
						s += &quot;\n&quot;
					endif

					s += ExamineThisArmor(kArmor, akTarget, iThisSlot)
				endif
			else
				iSlotsChecked += iThisSlot
			endif
		endif

		iThisSlot *= 2
	endwhile

	if s
		Debug.MessageBox(s)
	endif
EndFunction

String Function ExamineThisArmor(Armor akArmor, ObjectReference akTargetRef, Int aiSlotMask = 0)
	String s = akArmor.GetName()
	Float fHealth

	if akTargetRef as Actor
		fHealth = WornObject.GetItemHealthPercent(akTargetRef as Actor, handSlot = 0, slotMask = aiSlotMask)
	else
		fHealth = akTargetRef.GetItemHealthPercent()
	endif

	s += &quot; (&quot; + Math.Floor( (fHealth - 1.0) * 1000.0 ) + &quot;)&quot;	; 切り下げないとEDSの表示と合わない

	if Game.GetModByName(KYE_File) != 255
		if akArmor.HasKeywordString(&quot;kye_armor_warm&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_warm&quot;, &quot;\nWarm : weak to arrows, resist ice&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_leathery&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_leathery&quot;, &quot;\nLeathery : weak to arrows, resist fire&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_brittle&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_brittle&quot;, &quot;\nBrittle : weak to maces&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_nonconductive&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_nonconductive&quot;, &quot;\nNonconductive : resist shock, weak to fire and ice&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_thick&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_thick&quot;, &quot;\nThick : resist arrows, daggers and swords&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_metal&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_metal&quot;, &quot;\nMetal : resist arrows, daggers and swords, weak to fire, ice and shock&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_layered&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_layered&quot;, &quot;\nLayered : resist arrows&quot;)
		endif

		if akArmor.HasKeywordString(&quot;kye_armor_deep&quot;)
			s += JsonUtil.GetStringValue(MessageFile, &quot;armor_deep&quot;, &quot;\nDeep : resist maces and axes&quot;)
		endif
	endif

	return s
EndFunction