Add black-box game from my youth

1 files changed, 39 insertions, 0 deletions

diff --git a/crn/packages/games.scm b/crn/packages/games.scm
new file mode 100644
index 0000000..c41106a
--- /dev/null
+++ b/crn/packages/games.scm
@@ -0,0 +1,39 @@
+(define-module (crn packages games)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages sdl)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (srfi srfi-26))
+
+(define-public black-box
+  (package
+    (name "black-box")
+    (version "1.4.8")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://www.linux-games.com/" name "/" name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1gbkkf05qy6zz0s2v1yyjrhrnw0nxl1ldzm4fdlwi1z4jqda7xlw"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'build 'set-SDL
+           (lambda* (#:key inputs #:allow-other-keys)
+             (setenv "CPATH"
+                     (string-append
+                      (assoc-ref inputs "sdl-union") "/include/SDL:"
+                      (or (getenv "CPATH") ""))))))))
+    (inputs (list (sdl-union (list sdl sdl-mixer sdl-image))))
+    (synopsis "Guess where the crystals are!")
+    (description "There's a black box.
+You can shoot in and watch, where the shot leaves the box.  In the box,
+crystals are reflecting the shots.  You have to guess where the crystals
+are hidden, by watching your shots.")
+    (home-page "https://www.linux-games.com/black-box/")
+    (license license:gpl2+)))