summaryrefslogtreecommitdiff
path: root/gnu/packages/games.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/games.scm')
-rw-r--r--gnu/packages/games.scm104
1 files changed, 60 insertions, 44 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 8207b92dc9..2afe5b58ba 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -113,7 +113,6 @@
#:use-module (gnu packages libunwind)
#:use-module (gnu packages linux)
#:use-module (gnu packages lua)
- #:use-module (gnu packages haskell)
#:use-module (gnu packages man)
#:use-module (gnu packages maths)
#:use-module (gnu packages mp3)
@@ -156,7 +155,6 @@
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
- #:use-module (guix build-system haskell)
#:use-module (guix build-system meson)
#:use-module (guix build-system scons)
#:use-module (guix build-system python)
@@ -2291,48 +2289,6 @@ on the screen and keyboard to display letters.")
;; Most files under gpl2+ or gpl3+, but eat.wav under gpl3
(license license:gpl3)))
-(define-public raincat
- (package
- (name "raincat")
- (version "1.2.1")
- (source
- (origin
- (method url-fetch)
- (uri (string-append "http://hackage.haskell.org/package/Raincat/"
- "Raincat-" version ".tar.gz"))
- (sha256
- (base32
- "10y9zi22m6hf13c9h8zd9vg7mljpwbw0r3djb6r80bna701fdf6c"))))
- (build-system haskell-build-system)
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'install 'wrap-executable
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (wrap-program (string-append out "/bin/raincat")
- `("LD_LIBRARY_PATH" ":" =
- (,(string-append (assoc-ref inputs "freeglut")
- "/lib"))))
- #t))))))
- (inputs
- `(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
- ("ghc-random" ,ghc-random)
- ("ghc-glut" ,ghc-glut)
- ("freeglut" ,freeglut)
- ("ghc-opengl" ,ghc-opengl)
- ("ghc-sdl2" ,ghc-sdl2)
- ("ghc-sdl2-image" ,ghc-sdl2-image)
- ("ghc-sdl2-mixer" ,ghc-sdl2-mixer)))
- (home-page "http://www.bysusanlin.com/raincat/")
- (synopsis "Puzzle game with a cat in lead role")
- (description "Project Raincat is a game developed by Carnegie Mellon
-students through GCS during the Fall 2008 semester. Raincat features game
-play inspired from classics Lemmings and The Incredible Machine. The project
-proved to be an excellent learning experience for the programmers. Everything
-is programmed in Haskell.")
- (license license:bsd-3)))
-
(define-public manaplus
(package
(name "manaplus")
@@ -6749,3 +6705,63 @@ exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
(description "Flare is a single-player 2D action RPG with
fast-paced action and a dark fantasy style.")
(license license:cc-by-sa3.0)))
+
+(define-public meritous
+ (package
+ (name "meritous")
+ (version "1.5")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://gitlab.com/meritous/meritous.git")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ;no test
+ #:make-flags
+ (list "CC=gcc"
+ (string-append "prefix=" (assoc-ref %outputs "out")))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'fix-sdl-path
+ ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
+ ;; directory, not SDL-union provided as an input to the package.
+ ;; We force the latter with "--prefix=" option.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "Makefile"
+ (("sdl-config" command)
+ (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
+ #t))
+ (add-after 'unpack 'fix-crash
+ ;; XXX: Songs are not present in the repository, due to licensing
+ ;; issues. Yet, the game tries to load them, and, since it cannot
+ ;; find them, crashes. Users cannot add them back, the store being
+ ;; read-only, so we turn off background music altogether.
+ (lambda _
+ (substitute* "src/audio.c"
+ (("PlayBackgroundMusic\\(new_track\\);" all)
+ (string-append "// " all)))
+ #t)))))
+ (native-inputs
+ `(("intltool" ,intltool)))
+ (inputs
+ `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
+ ("zlib" ,zlib)))
+ (home-page "https://gitlab.com/meritous/meritous")
+ (synopsis "Action-adventure dungeon crawl game")
+ (description "Far below the surface of the planet is a place of limitless
+power. Those that seek to control such a utopia will soon bring an end to
+themselves. Seeking an end to the troubles that plague him, PSI user Merit
+journeys into the hallowed Orcus Dome in search of answers.
+
+Meritous is a action-adventure game with simple controls but a challenge to
+find a balance of power versus recovery time during real-time battles. Set in
+a procedurally generated world, the player can explore thousands of rooms in
+search of powerful artifacts, tools to help them, and to eventually free the
+Orcus Dome from evil.")
+ (license license:gpl3+)))