Patrick Elliott patrl

A brief guide for how to set up Ultima Underworld for use with dosbox staging on linux. This guide assumes that you already have dosbox staging for linux installed and configured.

Create dosbox directory structure

Under the directory where you keep dos games, GAMEDIR, create the following directory structure:

.
└── ultima-underworld

	\documentclass{article}

	% this is necessary for the denotation brackets [[.]]
	\usepackage{stmaryrd}

	% this is necessary for syntactic trees. There are other packages too,
	% this is just the one I prefer.
	\usepackage[linguistics]{forest}

	\begin{document}

	{ pkgs ? import <nixpkgs> {} }:

	pkgs.stdenv.mkDerivation {
	pname = "inweb";
	version = "7.2.0";
	srcs = [ ./inweb-7.2.0.tar.gz ./intest-2.1.0.tar.gz ];
	setSourceRoot = ''
	mkdir work
	mv inweb-7.2.0 ./work/inweb
	mv intest-2.1.0 ./work/intest

	{-# LANGUAGE OverloadedLists #-}

	import Data.IntMap ((!?)) -- safe lookup
	import qualified Data.IntMap as M -- data structure for assignments
	import qualified Data.Set as S
	import Control.Applicative
	import Data.Maybe
	import Control.Monad (replicateM)

	newtype E = E Char deriving (Eq,Show,Ord) -- type for individuals

	data PropL = PVar String \| PNot PropL \| PropL `PAnd` PropL \| PropL `POr` PropL deriving Eq

	instance Show PropL where
	show (PVar s) = s
	show (PNot p) = "~" ++ show p
	show (p `PAnd` q) = "(" ++ show p ++ " & " ++ show q ++ ")"
	show (p `POr` q) = "(" ++ show p ++ " \| " ++ show q ++ ")"

	-- recursive de Morgan's

	{-# LANGUAGE TemplateHaskell #-}

	-- Xp format specification: https://steveasleep.com/rexpaint_manual.html#appendix-b:-.xp-format-specification-(and-import-libraries)

	module Data.Xp where

	import Data.Colour.RGBSpace
	import qualified Codec.Compression.GZip as GZip
	import qualified Data.ByteString.Lazy as BL
	import Data.Binary.Get

	computeQ :: TileMap -> Transform -> Slope -> Slope -> Int -> Visible ()
	computeQ m t s e y = do
	let xmin = roundTiesUp (fromIntegral y * s) -- compute the initial x coordinate bounded by the starting slope
	let xmax = roundTiesDown (fromIntegral y * e) -- compute the ending x coordinate bounded by the ending slope
	let xys = (coord . (,y)) <$> [xmin..xmax] -- create a list of coordinates to recurse through by pairing xs with the depth

	-- a helper function to recurse through a list of coordinates, and potentially create branching row computations
	-- the first argument is a Maybe Bool which tracks whether the previous coordinate was a wall
	-- Nothing indicates that there was no previous coordinate (we're at the beginning of the list)
	-- s indicates the starting slope; this can change as the recursion proceeds.

	#!/bin/sh

	# exit as soon as any line in the script fails, print each command that's going to be executed
	set -ex

	# wipe disk
	sgdisk --zap-all ${DISK}

	# create GPT partition table
	parted ${DISK} -- mklabel gpt

	(defun patrl/org-latex-special-block (special-block contents info)
	"Transcode a SPECIAL-BLOCK element from Org to LaTeX.
	CONTENTS holds the contents of the block. INFO is a plist
	holding contextual information."
	(let ((type (org-element-property :type special-block))
	(opt (org-export-read-attribute :attr_latex special-block :options))
	(caption (org-latex--caption/label-string special-block info))
	(caption-above-p (org-latex--caption-above-p special-block info)))
	(if
	(equal (format "%s" type) "exe")

	\RequirePackage{microtype}

	\RequirePackage{fontspec}
	\defaultfontfeatures{Scale=MatchLowercase}
	\setmainfont[%
	UprightFeatures={
	SizeFeatures={
	{Size={-8.4},Font=MinionPro-Capt},
	{Size={8.4-13},Font=MinionPro-Regular},
	{Size={13-19.9},Font=MinionPro-Subh},