(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+)))