anchor.diff:      The := GetDescThe(Items.GetName(Items.GetItemEnum(AItem.ItemID)));
       MsgLog.Add(Format(_('You unequip %s.'), [The]));
       Self.Calc;
  -    Move(0, 0);
  +    Wait;
     end;
   end;
   
  
positive.code:     //Items.GetItemEnum(AUnEquipItem.ItemID)
      The := GetDescThe(Items.GetName(Items.GetItemEnum(AUnEquipItem.ItemID)));
      MsgLog.Add(Format(_('You unequip %s.'), [The]));
      Move(0, 0);
    end;
    // Equip
    AItem := Items_Inventory_GetItem(Index);
    The := GetDescThe(Items.GetName(Items.GetItemEnum(AItem.ItemID)));
    MsgLog.Add(Format(_('You equip %s.'), [The]));
    Self.Calc;
    Move(0, 0);
  end;
  
  procedure TPlayer.UnEquip(Index: Integer);
  
negative.code:       Items_Dungeon_AppendItem(AItem);
        The := GetDescThe(Items.GetName(TItemEnum(AItem.ItemID)));
        MsgLog.Add(Format(_('You drop %s.'), [The]));
        Wait;
      end;
    end;
  
  