ClosetWarOutfit.ash

void unequip(item it)
{
    foreach s in $slots[]
    {
        if (s.equipped_item() != it)
            continue;
        equip(s, $item[none]);
    }
}

void main()
{
	foreach it in $items[beer helmet,distressed denim pants,bejeweled pledge pin,reinforced beaded headband,bullet-proof corduroys,round purple sunglasses]
	{
		if (it.equipped_amount() > 0)
		{
			unequip(it);
		}
	}
	cli_execute("closet put * beer helmet");
	cli_execute("closet put * distressed denim pants");
	cli_execute("closet put * bejeweled pledge pin");
	cli_execute("closet put * reinforced beaded headband");
	cli_execute("closet put * bullet-proof corduroys");
	cli_execute("closet put * round purple sunglasses");
}