gnu: Add duke-nukem-3d-eduke32-addon-compilation.

* .guix-packages/ambrevar/games.scm (duke-nukem-3d-eduke32-addon-compilation): New variable.

.guix-packages/ambrevar/games.scm

@@ -324,3 +324,41 @@ used!)")
     (license ((@@ (guix licenses) license) "No license"
               "No URL"
               ""))))
+
+(define-public duke-nukem-3d-eduke32-addon-compilation
+  (package
+    (name "duke-nukem-3d-eduke32-addon-compilation")
+    (version "3.13")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://www.duke4.org/files/nightfright/misc/eduke32_addons"
+                           (version-major version) (version-minor version) ".exe"))
+       (sha256
+        (base32 "067gdlm3xwbih4ygvwz5bfq6hi9j9zy8pr44m527i3icr5jsq02k"))))
+    (build-system trivial-build-system)
+    (native-inputs
+     `(("p7zip" ,p7zip)))
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (setenv "PATH" (string-append
+                         (assoc-ref %build-inputs "p7zip") "/bin" ":"))
+         (invoke "7z" "x" (assoc-ref %build-inputs "source"))
+         (let ((dir (string-append (assoc-ref %outputs "out")
+                                   "/" ,duke-nukem-3d-directory)))
+           (mkdir-p dir)
+           (copy-recursively "addons" dir)
+           (copy-recursively (string-append dir "/readme")
+                             (string-append dir "/doc"))
+           (delete-file-recursively (string-append dir "/readme")))
+         #t)))
+    (synopsis "Selection of mods for Duke Nukem 3D")
+    (description "This pack is is a compilation of great episodes and/or total
+conversions for Duke Nukem 3D.")
+    (home-page "http://hrp.duke4.net/")
+    (license ((@@ (guix licenses) license) "Custom license"
+              "http://hrp.duke4.net/misc/addons_readme.txt"
+              ""))))