gnu: Add duke-nukem-3d-duke-it-out-in-dc-music-pack.

* .guix-packages/ambrevar/games.scm (duke-nukem-3d-duke-it-out-in-dc-music-pack): New variable.

.guix-packages/ambrevar/games.scm

@@ -287,3 +287,40 @@ The music was recorded by MusicallyInspired with a Roland SC-55 synthesizer.")
     (license ((@@ (guix licenses) license) "GPLv2?"
               "No URL"
               ""))))
+
+(define-public duke-nukem-3d-duke-it-out-in-dc-music-pack
+  (package
+    (name "duke-nukem-3d-duke-it-out-in-dc-music-pack")
+    (version "2.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://www.duke4.org/files/nightfright/music/dukedc_music"
+                           (version-major version) (version-minor version)
+                           ".zip"))
+       (file-name (string-append name "-" version))
+       (sha256
+        (base32 "1i3hcc4j1m6pwkb919qjam0gq6q6ixnaz911xrcjd1dyyp8jpzyf"))))
+    (build-system trivial-build-system)
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let ((dir (string-append (assoc-ref %outputs "out")
+                                   "/" ,duke-nukem-3d-directory)))
+           (mkdir-p dir)
+           (copy-file (assoc-ref %build-inputs "source")
+                      (string-append dir "/duke3d_music"
+                                     ,(version-major version)
+                                     ,(version-minor version)
+                                     ".zip")))
+         #t)))
+    (synopsis "Custom soundtrack for Duke Nukem 3D's Duke It Out in D.C.")
+    (description "This music pack is optional since it features music which was
+not part of the addon at all.  (Standard Duke Nukem 3D music from episode 3 was
+used!)")
+    (home-page "http://hrp.duke4.net/")
+    (license ((@@ (guix licenses) license) "No license"
+              "No URL"
+              ""))))