gnu/packages/games.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013 John Darrington <jmd@gnu.org>
   3 ;;; Copyright © 2014, 2015 David Thompson <dthompson2@worcester.edu>
   4 ;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org>
   5 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   6 ;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net>
   7 ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
   8 ;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
   9 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
  10 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
  11 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  12 ;;; Copyright © 2015 Christopher Allan Webber <cwebber@dustycloud.org>
  13 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
  14 ;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
  15 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
  16 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
  17 ;;;
  18 ;;; This file is part of GNU Guix.
  19 ;;;
  20 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  21 ;;; under the terms of the GNU General Public License as published by
  22 ;;; the Free Software Foundation; either version 3 of the License, or (at
  23 ;;; your option) any later version.
  24 ;;;
  25 ;;; GNU Guix is distributed in the hope that it will be useful, but
  26 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  27 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28 ;;; GNU General Public License for more details.
  29 ;;;
  30 ;;; You should have received a copy of the GNU General Public License
  31 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  32
  33 (define-module (gnu packages games)
  34   #:use-module ((guix licenses) #:prefix license:)
  35   #:use-module (guix utils)
  36   #:use-module (guix packages)
  37   #:use-module (guix download)
  38   #:use-module (guix git-download)
  39   #:use-module (guix svn-download)
  40   #:use-module (gnu packages)
  41   #:use-module (gnu packages algebra)
  42   #:use-module (gnu packages autotools)
  43   #:use-module (gnu packages backup)
  44   #:use-module (gnu packages base)
  45   #:use-module (gnu packages admin)
  46   #:use-module (gnu packages audio)
  47   #:use-module (gnu packages boost)
  48   #:use-module (gnu packages fribidi)
  49   #:use-module (gnu packages game-development)
  50   #:use-module (gnu packages gettext)
  51   #:use-module (gnu packages gl)
  52   #:use-module (gnu packages glib)
  53   #:use-module (gnu packages gnome)
  54   #:use-module (gnu packages gtk)
  55   #:use-module (gnu packages guile)
  56   #:use-module (gnu packages libcanberra)
  57   #:use-module (gnu packages libunwind)
  58   #:use-module (gnu packages haskell)
  59   #:use-module (gnu packages mp3)
  60   #:use-module (gnu packages image)
  61   #:use-module (gnu packages ncurses)
  62   #:use-module (gnu packages python)
  63   #:use-module (gnu packages readline)
  64   #:use-module (gnu packages xorg)
  65   #:use-module (gnu packages pkg-config)
  66   #:use-module (gnu packages databases)
  67   #:use-module (gnu packages sdl)
  68   #:use-module (gnu packages texinfo)
  69   #:use-module (gnu packages check)
  70   #:use-module (gnu packages fontutils)
  71   #:use-module (gnu packages gstreamer)
  72   #:use-module (gnu packages bash)
  73   #:use-module (gnu packages perl)
  74   #:use-module (gnu packages qt)
  75   #:use-module (gnu packages compression)
  76   #:use-module (gnu packages pulseaudio)
  77   #:use-module (gnu packages linux)
  78   #:use-module (gnu packages zip)
  79   #:use-module (gnu packages xiph)
  80   #:use-module (gnu packages curl)
  81   #:use-module (gnu packages lua)
  82   #:use-module (gnu packages video)
  83   #:use-module (gnu packages xml)
  84   #:use-module (gnu packages tcl)
  85   #:use-module (gnu packages fribidi)
  86   #:use-module (guix build-system trivial)
  87   #:use-module (guix build-system gnu)
  88   #:use-module (guix build-system haskell)
  89   #:use-module (guix build-system cmake)
  90   #:use-module (guix build-system trivial))
  91
  92 (define-public gnubg
  93   (package
  94     (name "gnubg")
  95     (version "1.02")
  96     (source
  97      (origin
  98        (method url-fetch)
  99        (uri (string-append "http://files.gnubg.org/media/sources/gnubg-release-"
 100                            version ".000-sources." "tar.gz"))
 101        (sha256
 102         (base32
 103          "015mvjk2iw1cg1kxwxfnvp2rxb9cylf6yc39i30fdy414k07zkky"))))
 104     (build-system gnu-build-system)
 105     (inputs `(("glib" ,glib)
 106               ("readline" ,readline)
 107               ("gtk+" ,gtk+-2)
 108               ("mesa" ,mesa)
 109               ("glu" ,glu)
 110               ("gtkglext" ,gtkglext)
 111               ("sqlite" ,sqlite)
 112               ("libcanberra" ,libcanberra)))
 113     (native-inputs `(("python-2" ,python-2)
 114                      ("pkg-config" ,pkg-config)))
 115     (home-page "http://gnubg.org")
 116     (synopsis "Backgammon game")
 117     (description "The GNU backgammon application can be used for playing, analyzing and
 118 teaching the game.  It has an advanced evaluation engine based on artificial
 119 neural networks suitable for both beginners and advanced players.  In
 120 addition to a command-line interface, it also features an attractive, 3D
 121 representation of the playing board.")
 122     (license license:gpl3+)))
 123
 124 (define-public gnubik
 125   (package
 126     (name "gnubik")
 127     (version "2.4.2")
 128     (source
 129      (origin
 130       (method url-fetch)
 131       (uri (string-append "mirror://gnu/gnubik/gnubik-"
 132                           version ".tar.gz"))
 133       (sha256
 134        (base32
 135         "0mhpfnxzbns0wfrsjv5vafqr34770rbvkmdzxk0x0aq67hb3zyl5"))))
 136     (build-system gnu-build-system)
 137     (inputs `(("gtk+" ,gtk+-2)
 138               ("mesa" ,mesa)
 139               ("glu" ,glu)
 140               ("libx11" ,libx11)
 141               ("guile" ,guile-2.0)
 142               ("gtkglext" ,gtkglext)))
 143     (native-inputs `(("gettext" ,gnu-gettext)
 144                      ("pkg-config" ,pkg-config)))
 145     (home-page "https://www.gnu.org/software/gnubik/")
 146     (synopsis "3d Rubik's cube game")
 147     (description
 148      "GNUbik is a puzzle game in which you must manipulate a cube to make
 149 each of its faces have a uniform color.  The game is customizable, allowing
 150 you to set the size of the cube (the default is 3x3) or to change the colors.
 151 You may even apply photos to the faces instead of colors.  The game is
 152 scriptable with Guile.")
 153     (license license:gpl3+)))
 154
 155 (define-public abbaye
 156   (package
 157     (name "abbaye")
 158     (version "1.13")
 159     (source
 160      (origin
 161        (method url-fetch)
 162        (uri (string-append "http://abbaye-for-linux.googlecode.com/files/"
 163                            "abbaye-for-linux-src-" version ".tar.gz"))
 164        (sha256
 165         (base32
 166          "1wgvckgqa2084rbskxif58wbb83xbas8s1i8s7d57xbj08ryq8rk"))))
 167     (build-system gnu-build-system)
 168     (arguments
 169      '(#:modules ((ice-9 match)
 170                   (guix build gnu-build-system)
 171                   (guix build utils))
 172        #:phases (modify-phases %standard-phases
 173                   (add-after 'set-paths 'set-sdl-paths
 174                     (lambda* (#:key inputs #:allow-other-keys)
 175                       (setenv "CPATH"
 176                               (string-append (assoc-ref inputs "sdl-union")
 177                                              "/include/SDL"))))
 178                   (add-after 'patch-source-shebangs 'patch-makefile
 179                     (lambda* (#:key outputs #:allow-other-keys)
 180                       ;; Replace /usr with package output directory.
 181                       (for-each (lambda (file)
 182                                   (substitute* file
 183                                     (("/usr") (assoc-ref outputs "out"))))
 184                                 '("makefile" "src/pantallas.c" "src/comun.h"))))
 185                   (add-before 'install 'make-install-dirs
 186                     (lambda* (#:key outputs #:allow-other-keys)
 187                       (let ((prefix (assoc-ref outputs "out")))
 188                         ;; Create directories that the makefile assumes exist.
 189                         (mkdir-p (string-append prefix "/bin"))
 190                         (mkdir-p (string-append prefix "/share/applications"))
 191                         (mkdir-p (string-append prefix "/share/pixmaps")))))
 192                   ;; No configure script.
 193                   (delete 'configure))
 194        #:tests? #f)) ;; No check target.
 195     (native-inputs `(("pkg-config" ,pkg-config)))
 196     (inputs `(("sdl-union" ,(sdl-union))))
 197     (home-page "http://code.google.com/p/abbaye-for-linux/")
 198     (synopsis "GNU/Linux port of the indie game \"l'Abbaye des Morts\"")
 199     (description "L'Abbaye des Morts is a 2D platform game set in 13th century
 200 France.  The Cathars, who preach about good Christian beliefs, were being
 201 expelled by the Catholic Church out of the Languedoc region in France.  One of
 202 them, called Jean Raymond, found an old church in which to hide, not knowing
 203 that beneath its ruins lay buried an ancient evil.")
 204     (license license:gpl3+)))
 205
 206 (define-public pingus
 207   (package
 208     (name "pingus")
 209     (version "0.7.6")
 210     (source
 211      (origin
 212        (method url-fetch)
 213        (uri (string-append "http://pingus.googlecode.com/files/pingus-"
 214                            version ".tar.bz2"))
 215        (sha256
 216         (base32
 217          "0q34d2k6anzqvb0mf67x85q92lfx9jr71ry13dlp47jx0x9i573m"))
 218        (patches (list (search-patch "pingus-sdl-libs-config.patch")))))
 219     (build-system gnu-build-system)
 220     (native-inputs `(("pkg-config" ,pkg-config)
 221                      ("scons" ,scons)))
 222     (inputs `(("sdl" ,sdl)
 223               ("sdl-image" ,sdl-image)
 224               ("sdl-mixer" ,sdl-mixer)
 225               ("mesa" ,mesa)
 226               ("glu" ,glu)
 227               ("libpng" ,libpng)
 228               ("boost" ,boost)))
 229     (arguments
 230      '(#:tests? #f                      ;no check target
 231        #:phases
 232        (alist-delete
 233         'configure
 234         (alist-replace
 235          'install
 236          (lambda* (#:key outputs #:allow-other-keys)
 237            (zero? (system* "make" "install"
 238                            (string-append "PREFIX="
 239                                           (assoc-ref outputs "out")))))
 240          %standard-phases))))
 241     (home-page "http://pingus.seul.org/welcome.html")
 242     (synopsis "Lemmings clone")
 243     (description
 244      "Pingus is a free Lemmings-like puzzle game in which the player takes
 245 command of a bunch of small animals and has to guide them through levels.
 246 Since the animals walk on their own, the player can only influence them by
 247 giving them commands, like build a bridge, dig a hole, or redirect all animals
 248 in the other direction.  Multiple such commands are necessary to reach the
 249 level's exit.  The game is presented in a 2D side view.")
 250     ;; Some source files are under bsd-3 and gpl2+ licenses.
 251     (license license:gpl3+)))
 252
 253 (define-public talkfilters
 254   (package
 255     (name "talkfilters")
 256     (version "2.3.8")
 257     (source
 258      (origin
 259        (method url-fetch)
 260        (uri (string-append "http://www.hyperrealm.com/" name "/"
 261                            name  "-" version  ".tar.gz"))
 262        (sha256
 263         (base32 "19nc5vq4bnkjvhk8srqddzhcs93jyvpm9r6lzjzwc1mgf08yg0a6"))))
 264     (build-system gnu-build-system)
 265     (home-page "http://www.gnu.org/software/talkfilters")
 266     (synopsis "Convert English text to humorous dialects")
 267     (description "The GNU Talk Filters are programs that convert English text
 268 into stereotyped or otherwise humorous dialects.  The filters are provided as
 269 a C library, so they can easily be integrated into other programs.")
 270     (license license:gpl2+)))
 271
 272 (define-public cmatrix
 273   (package
 274     (name "cmatrix")
 275     (version "1.2a")
 276     (source
 277      (origin
 278        (method url-fetch)
 279        (uri (string-append "http://www.asty.org/cmatrix/dist/cmatrix-" version
 280                            ".tar.gz"))
 281        (sha256
 282         (base32
 283          "0k06fw2n8nzp1pcdynhajp5prba03gfgsbj91bknyjr5xb5fd9hz"))))
 284     (build-system gnu-build-system)
 285     (arguments
 286      '(#:phases
 287        (alist-replace 'configure
 288                       (lambda* (#:key outputs #:allow-other-keys)
 289                         ;; This old `configure' script doesn't support
 290                         ;; variables passed as arguments.
 291                         (let ((out (assoc-ref outputs "out")))
 292                           (setenv "CONFIG_SHELL" (which "bash"))
 293                           (zero?
 294                            (system* "./configure"
 295                                     (string-append "--prefix=" out)))))
 296                       %standard-phases)))
 297     (inputs `(("ncurses" ,ncurses)))
 298     (home-page "http://www.asty.org/cmatrix")
 299     (synopsis "Simulate the display from \"The Matrix\"")
 300     (description "CMatrix simulates the display from \"The Matrix\" and is
 301 based on the screensaver from the movie's website.  It works with terminal
 302 settings up to 132x300 and can scroll lines all at the same rate or
 303 asynchronously and at a user-defined speed.")
 304     (license license:gpl2+)))
 305
 306 (define-public chess
 307   (package
 308     (name "chess")
 309     (version "6.2.2")
 310     (source
 311      (origin
 312        (method url-fetch)
 313        (uri (string-append "mirror://gnu/chess/gnuchess-" version
 314                            ".tar.gz"))
 315        (sha256
 316         (base32
 317          "1a41ag03q66pwy3pjrmbxxjpzi9fcaiiaiywd7m9v25mxqac2xkp"))))
 318     (build-system gnu-build-system)
 319     (home-page "http://www.gnu.org/software/chess")
 320     (synopsis "Full chess implementation")
 321     (description "GNU Chess is a chess engine.  It allows you to compete
 322 against the computer in a game of chess, either through the default terminal
 323 interface or via an external visual interface such as GNU XBoard.")
 324     (license license:gpl3+)))
 325
 326 (define freedink-engine
 327   (package
 328     (name "freedink-engine")
 329     (version "108.4")
 330     (source (origin
 331               (method url-fetch)
 332               (uri (string-append "mirror://gnu/freedink/freedink-" version
 333                                   ".tar.gz"))
 334               (sha256
 335                (base32
 336                 "08c51imfjfcydm7h0va09z8qfw5nc837bi2x754ni2z737hb5kw2"))))
 337     (build-system gnu-build-system)
 338     (arguments `(#:configure-flags '("--disable-embedded-resources")))
 339     (native-inputs `(("gettext" ,gnu-gettext)
 340                      ("pkg-config" ,pkg-config)))
 341     (inputs `(("sdl" ,sdl)
 342               ("sdl-image" ,sdl-image)
 343               ("sdl-mixer" ,sdl-mixer)
 344               ("sdl-ttf" ,sdl-ttf)
 345               ("sdl-gfx" ,sdl-gfx)
 346               ("fontconfig" ,fontconfig)
 347               ("check" ,check)))
 348     (home-page "http://www.gnu.org/software/freedink/")
 349     (synopsis "Twisted adventures of young pig farmer Dink Smallwood")
 350     (description
 351      "GNU FreeDink is a free and portable re-implementation of the engine
 352 for the role-playing game Dink Smallwood.  It supports not only the original
 353 game data files but it also supports user-produced game mods or \"D-Mods\".
 354 To that extent, it also includes a front-end for managing all of your D-Mods.")
 355     (license license:gpl3+)))
 356
 357 (define freedink-data
 358   (package
 359     (name "freedink-data")
 360     (version "1.08.20140901")
 361     (source (origin
 362               (method url-fetch)
 363               (uri (string-append "mirror://gnu/freedink/freedink-data-"
 364                                   version ".tar.gz"))
 365               (sha256
 366                (base32
 367                 "04f1aa8gfz30qkgv7chjz5n1s8v5hbqs01h2113cq1ylm3isd5sp"))))
 368     (build-system gnu-build-system)
 369     (arguments
 370      `(#:phases (alist-delete 'configure (alist-delete 'check %standard-phases))
 371        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
 372     (home-page "http://www.gnu.org/software/freedink/")
 373     (synopsis "Game data for GNU Freedink")
 374     (description
 375      "This package contains the game data of GNU Freedink.")
 376     (license license:gpl3+)))
 377
 378 ;; TODO: Add freedink-dfarc when there's a wxWidgets package.
 379
 380 (define-public freedink
 381   ;; This is a wrapper that tells the engine where to find the data.
 382   (package (inherit freedink-engine)
 383     (name "freedink")
 384     (build-system trivial-build-system)
 385     (arguments
 386      '(#:builder (begin
 387                    (use-modules (guix build utils))
 388
 389                    (let* ((output     (assoc-ref %outputs "out"))
 390                           (bin        (string-append output "/bin"))
 391                           (executable (string-append bin "/freedink")))
 392                      (mkdir-p bin)
 393                      (call-with-output-file executable
 394                        (lambda (port)
 395                          (format port "#!~a/bin/sh
 396 exec ~a/bin/freedink -refdir ~a/share/dink\n"
 397                                  (assoc-ref %build-inputs "bash")
 398                                  (assoc-ref %build-inputs "engine")
 399                                  (assoc-ref %build-inputs "data"))
 400                          (chmod port #o777)))))
 401        #:modules ((guix build utils))))
 402     (inputs `(("engine" ,freedink-engine)
 403               ("data" ,freedink-data)
 404               ("bash" ,bash)))
 405     (native-inputs '())))
 406
 407 (define-public xboard
 408   (package
 409     (name "xboard")
 410     (version "4.8.0")
 411     (source
 412      (origin
 413        (method url-fetch)
 414        (uri (string-append "mirror://gnu/xboard/xboard-" version
 415                            ".tar.gz"))
 416        (sha256
 417         (base32
 418          "05rdj0nyirc4g1qi5hhrjy45y52ihp1j3ldq2c5bwrz0gzy4i3y8"))))
 419     (build-system gnu-build-system)
 420     (inputs `(("cairo" ,cairo)
 421               ("librsvg" ,librsvg)
 422               ("libxt" ,libxt)
 423               ("libxaw" ,libxaw)))
 424     (native-inputs `(("texinfo" ,texinfo)
 425                      ("pkg-config" ,pkg-config)))
 426     (home-page "http://www.gnu.org/software/xboard")
 427     (synopsis "Graphical user interface for chess programs")
 428     (description "GNU XBoard is a graphical board for all varieties of chess,
 429 including international chess, xiangqi (Chinese chess), shogi (Japanese chess)
 430 and Makruk.  Several lesser-known variants are also supported.  It presents a
 431 fully interactive graphical interface and it can load and save games in the
 432 Portable Game Notation.")
 433     (license license:gpl3+)))
 434
 435
 436 (define-public xboing
 437   (package
 438     (name "xboing")
 439     (version "2.4")
 440     (source
 441      (origin
 442        (method url-fetch)
 443        (uri (string-append "http://www.techrescue.org/xboing/xboing"
 444                            version ".tar.gz"))
 445        (sha256
 446         (base32 "16m2si8wmshxpifk861vhpqviqxgcg8bxj6wfw8hpnm4r2w9q0b7"))))
 447     (arguments
 448      `(#:tests? #f
 449        #:phases
 450        (alist-replace
 451         'configure
 452         (lambda* (#:key outputs #:allow-other-keys)
 453
 454           (substitute* "Imakefile"
 455             (("XPMINCLUDE[\t ]*= -I/usr/X11/include/X11")
 456              (string-append "XPMINCLUDE = -I" (assoc-ref %build-inputs "libxpm")
 457                             "/include/X11")))
 458
 459           (substitute* "Imakefile"
 460             (("XBOING_DIR = \\.") "XBOING_DIR=$(PROJECTROOT)"))
 461
 462           ;; FIXME: HIGH_SCORE_FILE should be set to somewhere writeable
 463
 464           (zero? (system* "xmkmf" "-a"
 465                           (string-append "-DProjectRoot="
 466                                          (assoc-ref outputs "out")))))
 467         (alist-replace 'install
 468                        (lambda* (#:key outputs #:allow-other-keys)
 469                          (and
 470                           (zero? (system* "make" "install.man"))
 471                           (zero? (system* "make" "install"))))
 472                        %standard-phases))))
 473     (inputs `(("libx11" ,libx11)
 474               ("libxext" ,libxext)
 475               ("libxpm" ,libxpm)))
 476     (native-inputs `(("imake" ,imake)
 477                      ("inetutils" ,inetutils)
 478                      ("makedepend" ,makedepend)))
 479     (build-system gnu-build-system)
 480     (home-page "http://www.techrescue.org/xboing")
 481     (synopsis "Ball and paddle game")
 482     (description "XBoing is a blockout type game where you have a paddle which
 483 you control to bounce a ball around the game zone destroying blocks with a
 484 proton ball.  Each block carries a different point value.  The more blocks you
 485 destroy, the better your score.  The person with the highest score wins.")
 486     (license (license:x11-style "file://COPYING"
 487                                 "Very similar to the X11 licence."))))
 488
 489 (define-public gtypist
 490   (package
 491     (name "gtypist")
 492     (version "2.9.5")
 493     (source (origin
 494               (method url-fetch)
 495               (uri (string-append "mirror://gnu/gtypist/gtypist-"
 496                                   version ".tar.xz"))
 497               (sha256
 498                (base32
 499                 "0xzrkkmj0b1dw3yr0m9hml2y634cc4h61im6zwcq57s7285z8fn1"))
 500               (modules '((guix build utils)))
 501               (snippet
 502                ;; We do not provide `ncurses.h' within an `ncursesw'
 503                ;; sub-directory, so patch the source accordingly.  See
 504                ;; <http://bugs.gnu.org/19018>.
 505                '(for-each (lambda (file)
 506                             (substitute* file
 507                               (("ncursesw/ncurses.h")
 508                                "ncurses.h")))
 509                           (find-files "." "configure$|\\.c$")))))
 510     (build-system gnu-build-system)
 511     (inputs `(("ncurses" ,ncurses)
 512               ("perl" ,perl)))
 513     (home-page "http://www.gnu.org/software/gtypist/")
 514     (synopsis "Typing tutor")
 515     (description
 516      "GNU Typist is a universal typing tutor.  It can be used to learn and
 517 practice touch-typing.  Several tutorials are included; in addition to
 518 tutorials for the standard QWERTY layout, there are also tutorials for the
 519 alternative layouts Dvorak and Colemak, as well as for the numpad.  Tutorials
 520 are primarily in English, however some in other languages are provided.")
 521     (license license:gpl3+)))
 522
 523 (define-public irrlicht
 524   (package
 525     (name "irrlicht")
 526     (version "1.8.1")
 527     (source (origin
 528               (method url-fetch)
 529               (uri (string-append
 530                     "mirror://sourceforge/irrlicht/Irrlicht%20SDK/"
 531                     (version-major+minor version)
 532                     "/" version "/irrlicht-" version ".zip"))
 533               (sha256
 534                (base32
 535                 "0yz9lvsc8aqk8wj4rnpanxrw90gqpwn9w5hxp94r8hnm2q0vjjw1"))))
 536     (build-system gnu-build-system)
 537     (arguments
 538      '(#:phases (alist-cons-after
 539                  'unpack 'fix-build-env
 540                  (lambda* (#:key outputs #:allow-other-keys)
 541                    (let ((out (assoc-ref outputs "out")))
 542                      (substitute* "Makefile"
 543                        (("INSTALL_DIR = /usr/local/lib")
 544                         (string-append "INSTALL_DIR = " out "/lib")))
 545                      ;; The Makefile assumes these directories exist.
 546                      (mkdir-p (string-append out "/lib"))
 547                      (mkdir-p (string-append out "/include"))))
 548                  (alist-replace
 549                   'unpack
 550                   (lambda* (#:key source #:allow-other-keys)
 551                     (and (zero? (system* "unzip" source))
 552                          ;; The actual source is buried a few directories deep.
 553                          (chdir "irrlicht-1.8.1/source/Irrlicht/")))
 554                   (alist-cons-after
 555                    'unpack 'apply-patch/mesa-10-fix
 556                    (lambda* (#:key inputs #:allow-other-keys)
 557                      (zero? (system* "patch" "--force" "-p3" "-i"
 558                                      (assoc-ref inputs "patch/mesa-10-fix"))))
 559                    ;; No configure script
 560                    (alist-delete 'configure %standard-phases))))
 561        #:tests? #f ; no check target
 562        #:make-flags '("CC=gcc" "sharedlib")))
 563     (native-inputs
 564      `(("patch/mesa-10-fix" ,(search-patch "irrlicht-mesa-10.patch"))
 565        ("unzip" ,unzip)))
 566     (inputs
 567      `(("mesa" ,mesa)
 568        ("glu" ,glu)))
 569     (synopsis "3D game engine written in C++")
 570     (description
 571      "The Irrlicht Engine is a high performance realtime 3D engine written in
 572 C++.  Features include an OpenGL renderer, extensible materials, scene graph
 573 management, character animation, particle and other special effects, support
 574 for common mesh file formats, and collision detection.")
 575     (home-page "http://irrlicht.sourceforge.net/")
 576     (license license:zlib)))
 577
 578 (define-public mars
 579   ;; The latest release on SourceForge relies on an unreleased version of SFML
 580   ;; with a different API, so we take the latest version from the official
 581   ;; repository on Github.
 582   (let ((commit   "c855d04409")
 583         (revision "1"))
 584     (package
 585       (name "mars")
 586       (version (string-append "0.7.5." revision "." commit ))
 587       (source (origin
 588                 (method git-fetch)
 589                 (uri (git-reference
 590                       (url "https://github.com/thelaui/M.A.R.S..git")
 591                       (commit commit)))
 592                 (file-name (string-append name "-" version))
 593                 (sha256
 594                  (base32
 595                   "1r4c5gap1z2zsv4yjd34qriqkxaq4lb4rykapyzkkdf4g36lc3nh"))
 596                 (patches (list (search-patch "mars-sfml-2.3.patch")
 597                                (search-patch "mars-install.patch")))))
 598       (build-system cmake-build-system)
 599       (arguments
 600        `(#:tests? #f        ; There are no tests
 601          #:phases
 602          (modify-phases %standard-phases
 603            (add-after 'unpack 'fix-install-path
 604             (lambda _
 605               (substitute* "src/CMakeLists.txt"
 606                 (("\\$\\{CMAKE_INSTALL_PREFIX\\}/games")
 607                  "${CMAKE_INSTALL_PREFIX}/bin"))
 608               #t))
 609            (add-after 'unpack 'fix-data-path
 610             (lambda* (#:key outputs #:allow-other-keys)
 611               (substitute* "src/System/settings.cpp"
 612                 (("C_dataPath = \"./data/\";")
 613                  (string-append "C_dataPath = \""
 614                                 (assoc-ref outputs "out")
 615                                 "/share/games/marsshooter/\";")))
 616               #t)))))
 617       (inputs
 618        `(("mesa" ,mesa)
 619          ("fribidi" ,fribidi)
 620          ("taglib" ,taglib)
 621          ("sfml" ,sfml)))
 622       (home-page "http://marsshooter.org")
 623       (synopsis "2D space shooter")
 624       (description
 625        "M.A.R.S. is a 2D space shooter with pretty visual effects and
 626 attractive physics.  Players can battle each other or computer controlled
 627 enemies in different game modes such as space ball, death match, team death
 628 match, cannon keep, and grave-itation pit.")
 629       (license license:gpl3+))))
 630
 631 (define minetest-data
 632   (package
 633     (name "minetest-data")
 634     (version "0.4.13")
 635     (source (origin
 636               (method url-fetch)
 637               (uri (string-append
 638                     "https://github.com/minetest/minetest_game/archive/"
 639                     version ".tar.gz"))
 640               (file-name (string-append name "-" version ".tar.gz"))
 641               (sha256
 642                (base32
 643                 "04xnyfap75v3p818kpqb07xshqwqzpws5xjvw5m96qnd9x4725ld"))))
 644     (build-system trivial-build-system)
 645     (native-inputs
 646      `(("source" ,source)
 647        ("tar" ,tar)
 648        ("gzip" ,(@ (gnu packages compression) gzip))))
 649     (arguments
 650      `(#:modules ((guix build utils))
 651        #:builder (begin
 652                    (use-modules (guix build utils))
 653                    (let ((tar (string-append (assoc-ref %build-inputs "tar")
 654                                              "/bin/tar"))
 655                          (install-dir (string-append
 656                                        %output
 657                                        "/share/minetest/games/minetest_game"))
 658                          (path (string-append (assoc-ref %build-inputs
 659                                                          "gzip")
 660                                               "/bin")))
 661                      (setenv "PATH" path)
 662                      (system* tar "xvf" (assoc-ref %build-inputs "source"))
 663                      (chdir (string-append "minetest_game-" ,version))
 664                      (mkdir-p install-dir)
 665                      (copy-recursively "." install-dir)))))
 666     (synopsis "Main game data for the Minetest game engine")
 667     (description
 668      "Game data for the Minetest infinite-world block sandox game.")
 669     (home-page "http://minetest.net")
 670     (license license:lgpl2.1+)))
 671
 672 (define-public minetest
 673   (package
 674     (name "minetest")
 675     (version "0.4.13")
 676     (source (origin
 677               (method url-fetch)
 678               (uri (string-append
 679                     "https://github.com/minetest/minetest/archive/"
 680                     version ".tar.gz"))
 681               (file-name (string-append name "-" version ".tar.gz"))
 682               (sha256
 683                (base32
 684                 "1xzrvsg0fpbj5p4pz6lls11m3ab4y2bnjlsm4gnw68x9006ffznp"))))
 685     (build-system cmake-build-system)
 686     (arguments
 687      '(#:configure-flags
 688          (list "-DRUN_IN_PLACE=0"
 689                "-DENABLE_FREETYPE=1"
 690                "-DENABLE_GETTEXT=1"
 691                (string-append "-DIRRLICHT_INCLUDE_DIR="
 692                               (assoc-ref %build-inputs "irrlicht")
 693                               "/include/irrlicht")
 694                (string-append "-DCURL_INCLUDE_DIR="
 695                               (assoc-ref %build-inputs "curl")
 696                               "/include/curl"))
 697        #:tests? #f)) ; no check target
 698     (native-search-paths
 699      (list (search-path-specification
 700             (variable "MINETEST_SUBGAME_PATH")
 701             (files '("share/minetest/games")))))
 702     (native-inputs
 703      `(("pkg-config" ,pkg-config)))
 704     (inputs
 705      `(("irrlicht" ,irrlicht)
 706        ("libpng" ,libpng)
 707        ("libjpeg" ,libjpeg)
 708        ("libxxf86vm" ,libxxf86vm)
 709        ("mesa" ,mesa)
 710        ("libogg" ,libogg)
 711        ("libvorbis" ,libvorbis)
 712        ("openal" ,openal)
 713        ("freetype" ,(@ (gnu packages fontutils) freetype))
 714        ("curl" ,curl)
 715        ("luajit" ,luajit)
 716        ("gettext" ,gnu-gettext)
 717        ("sqlite" ,sqlite)))
 718     (propagated-inputs
 719      `(("minetest-data" ,minetest-data)))
 720     (synopsis "Infinite-world block sandbox game")
 721     (description
 722      "Minetest is a sandbox construction game.  Players can create and destroy
 723 various types of blocks in a three-dimensional open world.  This allows
 724 forming structures in every possible creation, on multiplayer servers or as a
 725 single player.  Mods and texture packs allow players to personalize the game
 726 in different ways.")
 727     (home-page "http://minetest.net")
 728     (license license:lgpl2.1+)))
 729
 730 (define glkterm
 731   (package
 732    (name "glkterm")
 733    (version "1.0.4")
 734    (source
 735     (origin
 736      (method url-fetch)
 737      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
 738                          "glk/implementations/glkterm-104.tar.gz"))
 739      (sha256
 740       (base32
 741        "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7"))))
 742    (build-system gnu-build-system)
 743    (propagated-inputs `(("ncurses" ,ncurses))) ; required by Make.glkterm
 744    (arguments
 745     '(#:tests? #f ; no check target
 746       #:phases
 747       (alist-replace
 748        'install
 749        (lambda* (#:key outputs #:allow-other-keys)
 750          (let* ((out (assoc-ref outputs "out"))
 751                 (inc (string-append out "/include")))
 752            (mkdir-p inc)
 753            (for-each
 754             (lambda (file)
 755               (copy-file file (string-append inc "/" file)))
 756             '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
 757            (mkdir (string-append out "/lib"))
 758            (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a"))))
 759        (alist-delete 'configure %standard-phases))))
 760    (home-page "http://www.eblong.com/zarf/glk/")
 761    (synopsis "Curses Implementation of the Glk API")
 762    (description
 763     "Glk defines a portable API for applications with text UIs.  It was
 764 primarily designed for interactive fiction, but it should be suitable for many
 765 interactive text utilities, particularly those based on a command line.
 766 This is an implementation of the Glk library which runs in a terminal window,
 767 using the curses.h library for screen control.")
 768    (license (license:fsf-free "file://README"))))
 769
 770 (define-public glulxe
 771   (package
 772    (name "glulxe")
 773    (version "0.5.2")
 774    (source
 775     (origin
 776      (method url-fetch)
 777      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
 778                          "glulx/interpreters/glulxe/glulxe-052.tar.gz"))
 779      (sha256
 780       (base32
 781        "19iw6kl8ncqcy9pv4gsqfh3xsa1n94zd234rqavvmxccnf3nj19g"))))
 782    (build-system gnu-build-system)
 783    (inputs `(("glk" ,glkterm)))
 784    (arguments
 785     '(#:tests? #f ; no check target
 786       #:make-flags
 787       (let* ((glk (assoc-ref %build-inputs "glk")))
 788         (list (string-append "GLKINCLUDEDIR=" glk "/include")
 789               (string-append "GLKLIBDIR=" glk "/lib")
 790               (string-append "GLKMAKEFILE=" "Make.glkterm")))
 791       #:phases
 792       (alist-replace
 793        'install
 794        (lambda* (#:key outputs #:allow-other-keys)
 795          (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
 796            (mkdir-p bin)
 797            (copy-file "glulxe" (string-append bin "/glulxe"))))
 798        (alist-delete 'configure %standard-phases))))
 799    (home-page "http://www.eblong.com/zarf/glulx/")
 800    (synopsis "Interpreter for Glulx VM")
 801    (description
 802     "Glulx is a 32-bit portable virtual machine intended for writing and
 803 playing interactive fiction.  It was designed by Andrew Plotkin to relieve
 804 some of the restrictions in the venerable Z-machine format.  This is the
 805 reference interpreter, using Glk API.")
 806    (license (license:fsf-free "file://README"))))
 807
 808 (define-public fizmo
 809   (package
 810     (name "fizmo")
 811     (version "0.7.9")
 812     (source (origin
 813               (method url-fetch)
 814               (uri (string-append "https://christoph-ender.de/fizmo/source/"
 815                                   name "-" version ".tar.gz"))
 816               (sha256
 817                (base32
 818                 "1w7cgyjrhgkadjrazijzhq7zh0pl5bfc6wl7mdpgh020y4kp46d7"))))
 819     (build-system gnu-build-system)
 820     (arguments
 821      '(#:configure-flags
 822        (let ((libjpeg (assoc-ref %build-inputs "libjpeg"))
 823              (ncurses (assoc-ref %build-inputs "ncurses")))
 824          (list (string-append "jpeg_CFLAGS=-I" libjpeg "/include")
 825                (string-append "jpeg_LIBS=-ljpeg")
 826                (string-append "ncursesw_CFLAGS=-I" ncurses "/include")
 827                (string-append "ncursesw_LIBS=-lncursesw")))))
 828     (native-inputs
 829      `(("pkg-config" ,pkg-config)))
 830     (inputs
 831      `(("libjpeg" ,libjpeg)
 832        ("libpng" ,libpng)
 833        ("libsndfile" ,libsndfile)
 834        ("libxml2" ,libxml2)
 835        ("ncurses" ,ncurses)
 836        ("sdl" ,sdl)))
 837     (home-page "https://christoph-ender.de/fizmo/")
 838     (synopsis "Z-machine interpreter")
 839     (description
 840      "Fizmo is a console-based Z-machine interpreter.  It is used to play
 841 interactive fiction, also known as text adventures, which were implemented
 842 either by Infocom or created using the Inform compiler.")
 843     (license license:bsd-3)))
 844
 845 (define-public retroarch
 846   (package
 847     (name "retroarch")
 848     (version "1.2.2")
 849     (source
 850      (origin
 851        (method url-fetch)
 852        (uri (string-append "https://github.com/libretro/RetroArch/archive/v"
 853                            version ".tar.gz"))
 854        (file-name (string-append name "-" version ".tar.gz"))
 855        (sha256
 856         (base32 "1bxr8yhk3ad4df544qljsfjfhxa8zy1grq7rn1s02yfvdmgzf4qi"))))
 857     (build-system gnu-build-system)
 858     (arguments
 859      '(#:tests? #f ; no tests
 860        #:phases
 861        (alist-replace
 862         'configure
 863         (lambda _
 864           (substitute* "qb/qb.libs.sh"
 865             (("/bin/true") (which "true")))
 866           (zero? (system*
 867                   "./configure"
 868                   (string-append "--prefix=" %output)
 869                   (string-append "--global-config-dir=" %output "/etc"))))
 870         %standard-phases)))
 871     (inputs
 872      `(("alsa-lib" ,alsa-lib)
 873        ("ffmpeg" ,ffmpeg)
 874        ("freetype" ,freetype)
 875        ("libxinerama" ,libxinerama)
 876        ("libxkbcommon" ,libxkbcommon)
 877        ("libxml2" ,libxml2)
 878        ("libxv" ,libxv)
 879        ("mesa" ,mesa)
 880        ("openal" ,openal)
 881        ("pulseaudio" ,pulseaudio)
 882        ("python" ,python)
 883        ("sdl" ,sdl2)
 884        ("udev" ,eudev)
 885        ("zlib" ,zlib)))
 886     (native-inputs
 887      `(("pkg-config" ,pkg-config)
 888        ("which" ,which)))
 889     (home-page "http://www.libretro.com/")
 890     (synopsis "Reference frontend for the libretro API")
 891     (description
 892      "Libretro is a simple but powerful development interface that allows for
 893 the easy creation of emulators, games and multimedia applications that can plug
 894 straight into any libretro-compatible frontend.  RetroArch is the official
 895 reference frontend for the libretro API, currently used by most as a modular
 896 multi-system game/emulator system.")
 897     (license license:gpl3+)))
 898
 899 (define-public gnugo
 900   (package
 901     (name "gnugo")
 902     (version "3.8")
 903     (source (origin
 904              (method url-fetch)
 905              (uri (string-append "mirror://gnu/gnugo/gnugo-" version
 906                                  ".tar.gz"))
 907              (sha256
 908               (base32
 909                "0wkahvqpzq6lzl5r49a4sd4p52frdmphnqsfdv7gdp24bykdfs6s"))))
 910     (build-system gnu-build-system)
 911     (inputs `(("readline" ,readline)))
 912     (synopsis "Play the game of Go")
 913     (description
 914      "GNU Go is a program that plays the game of Go, in which players
 915 place stones on a grid to form territory or capture other stones.  While
 916 it can be played directly from the terminal, rendered in ASCII characters,
 917 it is also possible to play GNU Go with 3rd party graphical interfaces or
 918 even in Emacs.  It supports the standard game storage format (SGF, Smart
 919 Game Format) and inter-process communication format (GMP, Go Modem
 920 Protocol).")
 921     (home-page "http://www.gnu.org/software/gnugo/")
 922     (license license:gpl3+)))
 923
 924 (define-public extremetuxracer
 925   (package
 926     (name "extremetuxracer")
 927     (version "0.6.0")
 928     (source (origin
 929               (method url-fetch)
 930               (uri (string-append
 931                     "http://downloads.sourceforge.net/project/extremetuxracer/releases/"
 932                     version "/etr-" version ".tar.xz"))
 933               (sha256
 934                (base32
 935                 "0fl9pwkywqnsmgr6plfj9zb05xrdnl5xb2hcmbjk7ap9l4cjfca4"))))
 936     (build-system gnu-build-system)
 937     (native-inputs
 938      `(("pkg-config" ,pkg-config)))
 939     (inputs
 940      `(("freetype" ,freetype)
 941        ("mesa" ,mesa)
 942        ("glu" ,glu)
 943        ("libice" ,libice)
 944        ("libpng" ,libpng)
 945        ("sdl" ,sdl)
 946        ("sdl-mixer" ,sdl-mixer)
 947        ("sdl-image" ,sdl-image)
 948        ("libsm" ,libsm)
 949        ("libunwind" ,libunwind)
 950        ("libx11" ,libx11)
 951        ("libxext" ,libxext)
 952        ("libxi" ,libxi)
 953        ("libxmu" ,libxmu)
 954        ("libxt" ,libxt)
 955        ("tcl" ,tcl)
 956        ("zlib" ,zlib)))
 957     (arguments
 958      '(#:phases
 959        (modify-phases %standard-phases
 960          (add-after 'configure 'patch-makefile
 961            (lambda _
 962              (substitute* "Makefile"
 963                (("CXXFLAGS =") "CXXFLAGS = ${CFLAGS}")))))))
 964     (synopsis "High speed arctic racing game based on Tux Racer")
 965     ;; Snarfed straight from Debian
 966     (description "Extreme Tux Racer, or etracer as it is called for short, is
 967 a simple OpenGL racing game featuring Tux, the Linux mascot.  The goal of the
 968 game is to slide down a snow- and ice-covered mountain as quickly as possible,
 969 avoiding the trees and rocks that will slow you down.
 970
 971 Collect herrings and other goodies while sliding down the hill, but avoid fish
 972 bones.
 973
 974 This game is based on the GPL version of the famous game TuxRacer.")
 975     (home-page "http://sourceforge.net/projects/extremetuxracer/")
 976     (license license:gpl2+)))
 977
 978 (define-public gnujump
 979   (package
 980     (name "gnujump")
 981     (version "1.0.8")
 982     (source (origin
 983               (method url-fetch)
 984               (uri (string-append "mirror://gnu/gnujump/gnujump-"
 985                                   version ".tar.gz"))
 986               (sha256
 987                (base32
 988                 "05syy9mzbyqcfnm0hrswlmhwlwx54f0l6zhcaq8c1c0f8dgzxhqk"))))
 989     (build-system gnu-build-system)
 990     (arguments
 991      '(#:phases
 992        (modify-phases %standard-phases
 993          (add-before
 994           'configure 'link-libm
 995           (lambda _ (setenv "LIBS" "-lm"))))))
 996     (inputs
 997      `(("glu" ,glu)
 998        ("mesa", mesa)
 999        ("sdl" ,sdl)
1000        ("sdl-image" ,sdl-image)
1001        ("sdl-mixer" ,sdl-mixer)))
1002     (home-page "http://gnujump.es.gnu.org/")
1003     (synopsis
1004      "Game of jumping to the next floor, trying not to fall")
1005     (description
1006      "GNUjump is a simple, yet addictive game in which you must jump from
1007 platform to platform to avoid falling, while the platforms drop at faster rates
1008 the higher you go.  The game features multiplayer, unlimited FPS, smooth floor
1009 falling, themeable graphics and sounds, and replays.")
1010     (license license:gpl3+)))
1011
1012 (define-public wesnoth
1013   (package
1014     (name "wesnoth")
1015     (version "1.12.4")
1016     (source (origin
1017               (method url-fetch)
1018               (uri (string-append "mirror://sourceforge/wesnoth/"
1019                                   name "-" version ".tar.bz2"))
1020               (sha256
1021                (base32
1022                 "19qyylylaljhk45lk2ja0xp7cx9iy4hx07l65zkg20a2v9h50lmz"))))
1023     (build-system cmake-build-system)
1024     (arguments
1025      '(#:tests? #f ; no check target
1026        #:configure-flags
1027        ;; XXX: Failed to compile with '-Werror=old-style-cast'.
1028        ;;   boost/mpl/assert.hpp:313:58: error:
1029        ;;     use of old-style cast [-Werror=old-style-cast]
1030        ;;   [...]
1031        ;;   cc1plus: all warnings being treated as errors
1032        '("-DENABLE_STRICT_COMPILATION=OFF")))
1033     (native-inputs
1034      `(("gettext" ,gnu-gettext)
1035        ("pkg-config" ,pkg-config)))
1036     (inputs
1037      `(("boost" ,boost)
1038        ("dbus" ,dbus)
1039        ("fribidi" ,fribidi)
1040        ("libvorbis" ,libvorbis)
1041        ("pango" ,pango)
1042        ("sdl-image" ,sdl-image)
1043        ("sdl-mixer" ,sdl-mixer)
1044        ("sdl-net" ,sdl-net)
1045        ("sdl-ttf" ,sdl-ttf)))
1046     (home-page "http://www.wesnoth.org/")
1047     (synopsis "Turn-based strategy game")
1048     (description
1049      "The Battle for Wesnoth is a fantasy, turn based tactical strategy game,
1050 with several single player campaigns, and multiplayer games (both networked and
1051 local).
1052
1053 Battle for control on a range of maps, using variety of units which have
1054 advantages and disadvantages against different types of attacks.  Units gain
1055 experience and advance levels, and are carried over from one scenario to the
1056 next campaign.")
1057     (license license:gpl2+)))
1058
1059 (define-public dosbox
1060   (package
1061     (name "dosbox")
1062     (version "0.74.svn3947")
1063     (source (origin
1064               (method svn-fetch)
1065               (uri (svn-reference
1066                     (url "http://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk/")
1067                     (revision 3947)))
1068               (file-name (string-append name "-" version "-checkout"))
1069               ;; Use SVN head, since the last release (2010) is incompatible
1070               ;; with GCC 4.8+ (see
1071               ;; <https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=624976>).
1072               (sha256
1073                (base32
1074                 "1p918j6090d1nkvgq7ifvmn506zrdmyi32y7p3ms40d5ssqjg8fj"))))
1075     (build-system gnu-build-system)
1076     (arguments
1077      `(#:phases (modify-phases %standard-phases
1078                   (add-after
1079                    'unpack 'autogen.sh
1080                    (lambda _
1081                      (zero? (system* "sh" "autogen.sh")))))))
1082     (native-inputs
1083      `(("autoconf" ,autoconf)
1084        ("automake" ,automake)))
1085     (inputs
1086      `(("sdl" ,sdl)
1087        ("libpng" ,libpng)
1088        ("zlib" ,zlib)
1089        ("alsa-lib" ,alsa-lib)
1090        ("glu" ,glu)
1091        ("mesa" ,mesa)))
1092     (home-page "http://www.dosbox.com")
1093     (synopsis "X86 emulator with CGA/EGA/VGA/etc. graphics and sound")
1094     (description "DOSBox is a DOS-emulator that uses the SDL library.  DOSBox
1095 also emulates CPU:286/386 realmode/protected mode, Directory
1096 FileSystem/XMS/EMS, Tandy/Hercules/CGA/EGA/VGA/VESA graphics, a
1097 SoundBlaster/Gravis Ultra Sound card for excellent sound compatibility with
1098 older games.")
1099     (license license:gpl2+)))
1100
1101 (define-public gamine
1102   (package
1103     (name "gamine")
1104     (version "1.4")
1105     (source (origin
1106               (method url-fetch)
1107               (uri (string-append "mirror://sourceforge/gamine-game/"
1108                                   "gamine-" version ".tar.gz"))
1109               (sha256
1110                (base32
1111                 "1iny959i1kl2ab6z5xi4s66mrvrwcarxyvjfp2k1sx532s8knk8h"))))
1112     (build-system gnu-build-system)
1113     (native-inputs
1114      `(("pkg-config" ,pkg-config)
1115        ("intltool" ,intltool)))
1116     (inputs
1117      `(("gstreamer" ,gstreamer)
1118        ("gst-plugins-base" ,gst-plugins-base) ;playbin plugin
1119        ("gst-plugins-good" ,gst-plugins-good) ;for wav playback
1120        ("gtk+" ,gtk+)))
1121     (arguments
1122      `(#:tests? #f
1123        #:make-flags
1124        (let ((out (assoc-ref %outputs "out")))
1125          (list (string-append "PREFIX=" out)
1126                (string-append "SYSCONFDIR=" out "/etc")))
1127        #:phases
1128        (modify-phases %standard-phases
1129          (delete 'configure)
1130          (add-after
1131           'install 'wrap-gamine
1132           (lambda* (#:key outputs #:allow-other-keys)
1133             (let ((out             (assoc-ref outputs "out"))
1134                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
1135               (wrap-program (string-append out "/bin/gamine")
1136                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
1137             #t)))))
1138     (home-page "http://gamine-game.sourceforge.net/")
1139     (synopsis "Mouse and keyboard discovery for children")
1140     (description
1141      "Gamine is a game designed for young children who are learning to use the
1142 mouse and keyboard.  The child uses the mouse to draw colored dots and lines
1143 on the screen and keyboard to display letters.")
1144     ;; Most files under gpl2+ or gpl3+, but eat.wav under gpl3
1145     (license license:gpl3)))
1146
1147 (define-public raincat
1148   (package
1149     (name "raincat")
1150     (version "1.1.1.3")
1151     (source
1152      (origin
1153        (method url-fetch)
1154        (uri (string-append
1155              "http://hackage.haskell.org/package/Raincat/Raincat-"
1156              version
1157              ".tar.gz"))
1158        (sha256
1159         (base32
1160          "1aalh68h6799mv4vyg30zpskl5jkn6x2j1jza7p4lrflyifxzar8"))))
1161     (build-system haskell-build-system)
1162     (inputs
1163      `(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
1164        ("ghc-mtl" ,ghc-mtl)
1165        ("ghc-random" ,ghc-random)
1166        ("ghc-glut" ,ghc-glut)
1167        ("ghc-opengl" ,ghc-opengl)
1168        ("ghc-sdl" ,ghc-sdl)
1169        ("ghc-sdl-image" ,ghc-sdl-image)
1170        ("ghc-sdl-mixer" ,ghc-sdl-mixer)))
1171     (home-page "http://raincat.bysusanlin.com/")
1172     (synopsis "Puzzle game with a cat in lead role")
1173     (description "Project Raincat is a game developed by Carnegie Mellon
1174 students through GCS during the Fall 2008 semester.  Raincat features game
1175 play inspired from classics Lemmings and The Incredible Machine.  The project
1176 proved to be an excellent learning experience for the programmers.  Everything
1177 is programmed in Haskell.")
1178     (license license:bsd-3)))
1179
1180 (define-public manaplus
1181   (package
1182     (name "manaplus")
1183     (version "1.6.1.16")
1184     (source (origin
1185               (method url-fetch)
1186               (uri (string-append
1187                     "http://repo.manaplus.org/manaplus/download/"
1188                     version "/manaplus-" version ".tar.xz"))
1189               (sha256
1190                (base32
1191                 "1vrsjvdbdzbnqmr8sp110b2d93kp5yfnifsn6zjm60kdvvbphdir"))))
1192     (build-system gnu-build-system)
1193     (arguments
1194      '(#:configure-flags
1195        (list (string-append "CPPFLAGS=-I"
1196                             (assoc-ref %build-inputs "sdl-union")
1197                             "/include/SDL"))))
1198     (native-inputs
1199      `(("pkg-config" ,pkg-config)))
1200     (inputs
1201      `(("glu" ,glu)
1202        ("curl" ,curl)
1203        ("libxml2" ,libxml2)
1204        ("mesa" ,mesa)
1205        ("physfs" ,physfs)
1206        ("sdl-union" ,(sdl-union))))
1207     (home-page "http://manaplus.org")
1208     (synopsis "Client for 'The Mana World' and similar games")
1209     (description
1210      "ManaPlus is a 2D MMORPG client for game servers.  It is the only
1211 fully supported client for @uref{http://www.themanaworld.org, The mana
1212 world}, @uref{http://evolonline.org, Evol Online} and
1213 @uref{http://landoffire.org, Land of fire}.")
1214     ;; "src/debug/*" and "src/sdl2gfx/*" are under Zlib.
1215     ;; "data/themes/{golden-delicious,jewelry}/*" are under CC-BY-SA.
1216     ;; The rest is under GPL2+.
1217     (license (list license:gpl2+ license:zlib license:cc-by-sa4.0))))
1218
1219 (define-public mupen64plus-core
1220   (package
1221     (name "mupen64plus-core")
1222     (version "2.5")
1223     (source
1224      (origin
1225        (method url-fetch)
1226        (uri (string-append
1227              "https://github.com/mupen64plus/mupen64plus-core/archive/"
1228              version ".tar.gz"))
1229        (file-name (string-append name "-" version ".tar.gz"))
1230        (sha256
1231         (base32 "0dg2hksm5qni2hcha93k7n4fqr92888p946f7phb0ndschzfh9kk"))))
1232     (build-system gnu-build-system)
1233     (native-inputs
1234      `(("pkg-config" ,pkg-config)
1235        ("which" ,which)))
1236     (inputs
1237      `(("freetype" ,freetype)
1238        ("glu" ,glu)
1239        ("libpng" ,libpng)
1240        ("mesa" ,mesa)
1241        ("sdl2" ,sdl2)
1242        ("zlib" ,zlib)))
1243     (arguments
1244      '(#:phases
1245        (modify-phases %standard-phases
1246          ;; The mupen64plus build system has no configure phase.
1247          (delete 'configure)
1248          ;; Makefile is in a subdirectory.
1249          (add-before
1250           'build 'cd-to-project-dir
1251           (lambda _
1252             (chdir "projects/unix"))))
1253        #:make-flags (let ((out (assoc-ref %outputs "out")))
1254                       (list "all" (string-append "PREFIX=" out)))
1255        ;; There are no tests.
1256        #:tests? #f))
1257     ;; As per the Makefile (in projects/unix/Makefile):
1258     (supported-systems '("i686-linux" "x86_64-linux"))
1259     (home-page "http://www.mupen64plus.org/")
1260     (synopsis "Nintendo 64 emulator core library")
1261     (description
1262      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1263 which is capable of accurately playing many games.  This package contains the
1264 core library.")
1265     (license license:gpl2+)))
1266
1267 (define-public mupen64plus-audio-sdl
1268   (package
1269     (name "mupen64plus-audio-sdl")
1270     (version "2.5")
1271     (source
1272      (origin
1273        (method url-fetch)
1274        (uri (string-append
1275              "https://github.com/mupen64plus/mupen64plus-audio-sdl/archive/"
1276              version ".tar.gz"))
1277        (file-name (string-append name "-" version ".tar.gz"))
1278        (sha256
1279         (base32 "0ss6w92n2rpfnazhg9lbq0nvs3fqx93nliz3k3wjxdlx4dpi7h3a"))))
1280     (build-system gnu-build-system)
1281     (native-inputs
1282      `(("pkg-config" ,pkg-config)
1283        ("which" ,which)))
1284     (inputs
1285      `(("mupen64plus-core" ,mupen64plus-core)
1286        ("sdl2" ,sdl2)))
1287     (arguments
1288      '(#:phases
1289        (modify-phases %standard-phases
1290          ;; The mupen64plus build system has no configure phase.
1291          (delete 'configure)
1292          ;; Makefile is in a subdirectory.
1293          (add-before
1294           'build 'cd-to-project-dir
1295           (lambda _
1296             (chdir "projects/unix"))))
1297        #:make-flags
1298        (let ((out (assoc-ref %outputs "out"))
1299              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1300          (list "all"
1301                (string-append "PREFIX=" out)
1302                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1303        ;; There are no tests.
1304        #:tests? #f))
1305     (home-page "http://www.mupen64plus.org/")
1306     (synopsis "Mupen64Plus SDL input plugin")
1307     (description
1308      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1309 which is capable of accurately playing many games.  This package contains the
1310 SDL audio plugin.")
1311     (license license:gpl2+)))
1312
1313 (define-public mupen64plus-input-sdl
1314   (package
1315     (name "mupen64plus-input-sdl")
1316     (version "2.5")
1317     (source
1318      (origin
1319        (method url-fetch)
1320        (uri (string-append
1321              "https://github.com/mupen64plus/mupen64plus-input-sdl/archive/"
1322              version ".tar.gz"))
1323        (file-name (string-append name "-" version ".tar.gz"))
1324        (sha256
1325         (base32 "11sj5dbalp2nrlmki34vy7wy28vc175pnnkdk65p8599hnyq37ri"))))
1326     (build-system gnu-build-system)
1327     (native-inputs
1328      `(("which" ,which)))
1329     (inputs
1330      `(("mupen64plus-core" ,mupen64plus-core)
1331        ("sdl2" ,sdl2)))
1332     (arguments
1333      '(#:phases
1334        (modify-phases %standard-phases
1335          ;; The mupen64plus build system has no configure phase.
1336          (delete 'configure)
1337          ;; Makefile is in a subdirectory.
1338          (add-before
1339           'build 'cd-to-project-dir
1340           (lambda _
1341             (chdir "projects/unix"))))
1342        #:make-flags
1343        (let ((out (assoc-ref %outputs "out"))
1344              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1345          (list "all"
1346                (string-append "PREFIX=" out)
1347                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1348        ;; There are no tests.
1349        #:tests? #f))
1350     (home-page "http://www.mupen64plus.org/")
1351     (synopsis "Mupen64Plus SDL input plugin")
1352     (description
1353      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1354 which is capable of accurately playing many games.  This package contains the
1355 SDL input plugin.")
1356     (license license:gpl2+)))
1357
1358 (define-public mupen64plus-rsp-hle
1359   (package
1360     (name "mupen64plus-rsp-hle")
1361     (version "2.5")
1362     (source
1363      (origin
1364        (method url-fetch)
1365        (uri (string-append
1366              "https://github.com/mupen64plus/mupen64plus-rsp-hle/archive/"
1367              version ".tar.gz"))
1368        (file-name (string-append name "-" version ".tar.gz"))
1369        (sha256
1370         (base32 "15h7mgz6xd2zjzm6l3f96sbs8kwr3xvbwzgikhnka79m6c69hsxv"))))
1371     (build-system gnu-build-system)
1372     (inputs
1373      `(("mupen64plus-core" ,mupen64plus-core)))
1374     (arguments
1375      '(#:phases
1376        (modify-phases %standard-phases
1377          ;; The mupen64plus build system has no configure phase.
1378          (delete 'configure)
1379          ;; Makefile is in a subdirectory.
1380          (add-before
1381           'build 'cd-to-project-dir
1382           (lambda _
1383             (chdir "projects/unix"))))
1384        #:make-flags
1385        (let ((out (assoc-ref %outputs "out"))
1386              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1387          (list "all"
1388                (string-append "PREFIX=" out)
1389                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1390        ;; There are no tests.
1391        #:tests? #f))
1392     (home-page "http://www.mupen64plus.org/")
1393     (synopsis "Mupen64Plus SDL input plugin")
1394     (description
1395      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1396 which is capable of accurately playing many games.  This package contains the
1397 high-level emulation (HLE) RSP processor plugin.")
1398     (license license:gpl2+)))
1399
1400 (define-public mupen64plus-rsp-z64
1401   (package
1402     (name "mupen64plus-rsp-z64")
1403     (version "2.0.0")
1404     (source
1405      (origin
1406        (method url-fetch)
1407        (uri (string-append
1408              "https://github.com/mupen64plus/mupen64plus-rsp-z64/archive/"
1409              version ".tar.gz"))
1410        (file-name (string-append name "-" version ".tar.gz"))
1411        (sha256
1412         (base32 "10jz1w2dhx5slhyk4m8mdqlpsd6cshchslr1fckb2ayzb1ls3ghi"))))
1413     (build-system gnu-build-system)
1414     (inputs
1415      `(("mupen64plus-core" ,mupen64plus-core)))
1416     (arguments
1417      '(#:phases
1418        (modify-phases %standard-phases
1419          ;; The mupen64plus build system has no configure phase.
1420          (delete 'configure)
1421          ;; Makefile is in a subdirectory.
1422          (add-before
1423           'build 'cd-to-project-dir
1424           (lambda _
1425             (chdir "projects/unix"))))
1426        #:make-flags
1427        (let ((out (assoc-ref %outputs "out"))
1428              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1429          (list "all"
1430                (string-append "PREFIX=" out)
1431                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1432        ;; There are no tests.
1433        #:tests? #f))
1434     (home-page "http://www.mupen64plus.org/")
1435     (synopsis "Mupen64Plus SDL input plugin")
1436     (description
1437      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1438 which is capable of accurately playing many games.  This package contains the
1439 Z64 RSP processor plugin.")
1440     (license license:gpl2+)))
1441
1442 (define-public mupen64plus-video-arachnoid
1443   (package
1444     (name "mupen64plus-video-arachnoid")
1445     (version "2.0.0")
1446     (source
1447      (origin
1448        (method url-fetch)
1449        (uri (string-append
1450              "https://github.com/mupen64plus/mupen64plus-video-arachnoid/archive/"
1451              version ".tar.gz"))
1452        (file-name (string-append name "-" version ".tar.gz"))
1453        (sha256
1454         (base32 "0jjwf144rihznm4lnqbhgigxw664v3v32wy94adaa6imk8z6gslh"))))
1455     (build-system gnu-build-system)
1456     (native-inputs
1457      `(("pkg-config" ,pkg-config)
1458        ("which" ,which)))
1459     (inputs
1460      `(("mesa" ,mesa)
1461        ("mupen64plus-core" ,mupen64plus-core)))
1462     (arguments
1463      '(#:phases
1464        (modify-phases %standard-phases
1465          ;; The mupen64plus build system has no configure phase.
1466          (delete 'configure)
1467          ;; Makefile is in a subdirectory.
1468          (add-before
1469           'build 'cd-to-project-dir
1470           (lambda _
1471             (chdir "projects/unix"))))
1472        #:make-flags
1473        (let ((out (assoc-ref %outputs "out"))
1474              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1475          (list "all"
1476                (string-append "PREFIX=" out)
1477                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1478        ;; There are no tests.
1479        #:tests? #f))
1480     (home-page "http://www.mupen64plus.org/")
1481     (synopsis "Mupen64Plus Rice Video plugin")
1482     (description
1483      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1484 which is capable of accurately playing many games.  This package contains the
1485 Arachnoid video plugin.")
1486     (license license:gpl2+)))
1487
1488 (define-public mupen64plus-video-glide64
1489   (package
1490     (name "mupen64plus-video-glide64")
1491     (version "2.0.0")
1492     (source
1493      (origin
1494        (method url-fetch)
1495        (uri (string-append
1496              "https://github.com/mupen64plus/mupen64plus-video-glide64/archive/"
1497              version ".tar.gz"))
1498        (file-name (string-append name "-" version ".tar.gz"))
1499        (sha256
1500         (base32 "1rm55dbf6xgsq1blbzs6swa2ajv0qkn38acbljj346abnk6s3dla"))))
1501     (build-system gnu-build-system)
1502     (native-inputs
1503      `(("pkg-config" ,pkg-config)
1504        ("which" ,which)))
1505     (inputs
1506      `(("mesa" ,mesa)
1507        ("mupen64plus-core" ,mupen64plus-core)
1508        ("sdl2" ,sdl2)))
1509     (arguments
1510      '(#:phases
1511        (modify-phases %standard-phases
1512          ;; The mupen64plus build system has no configure phase.
1513          (delete 'configure)
1514          ;; Makefile is in a subdirectory.
1515          (add-before
1516           'build 'cd-to-project-dir
1517           (lambda _
1518             (chdir "projects/unix")))
1519          ;; XXX Should be unnecessary with the next release.
1520          (add-before
1521           'build 'use-sdl2
1522           (lambda _
1523             (substitute* "Makefile"
1524               (("SDL_CONFIG = (.*)sdl-config" all prefix)
1525                (string-append "SDL_CONFIG = " prefix "sdl2-config"))))))
1526        #:make-flags
1527        (let ((out (assoc-ref %outputs "out"))
1528              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1529          (list "all"
1530                (string-append "PREFIX=" out)
1531                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1532        ;; There are no tests.
1533        #:tests? #f))
1534     (home-page "http://www.mupen64plus.org/")
1535     (synopsis "Mupen64Plus Rice Video plugin")
1536     (description
1537      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1538 which is capable of accurately playing many games.  This package contains the
1539 Glide64 video plugin.")
1540     (license license:gpl2+)))
1541
1542 (define-public mupen64plus-video-glide64mk2
1543   (package
1544     (name "mupen64plus-video-glide64mk2")
1545     (version "2.5")
1546     (source
1547      (origin
1548        (method url-fetch)
1549        (uri (string-append
1550              "https://github.com/mupen64plus/mupen64plus-video-glide64mk2/archive/"
1551              version ".tar.gz"))
1552        (file-name (string-append name "-" version ".tar.gz"))
1553        (sha256
1554         (base32 "1ihl4q293d6svba26b4mhapjcdg12p90gibz79b4mx423jlcxxj9"))))
1555     (build-system gnu-build-system)
1556     (native-inputs
1557      `(("pkg-config" ,pkg-config)
1558        ("which" ,which)))
1559     (inputs
1560      `(("boost" ,boost)
1561        ("libpng" ,libpng)
1562        ("mesa" ,mesa)
1563        ("mupen64plus-core" ,mupen64plus-core)
1564        ("sdl2" ,sdl2)
1565        ("zlib" ,zlib)))
1566     (arguments
1567      '(#:phases
1568        (modify-phases %standard-phases
1569          ;; The mupen64plus build system has no configure phase.
1570          (delete 'configure)
1571          ;; Makefile is in a subdirectory.
1572          (add-before
1573           'build 'cd-to-project-dir
1574           (lambda _
1575             (chdir "projects/unix"))))
1576        #:make-flags
1577        (let ((out (assoc-ref %outputs "out"))
1578              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1579          (list "all"
1580                (string-append "PREFIX=" out)
1581                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1582        ;; There are no tests.
1583        #:tests? #f))
1584     (home-page "http://www.mupen64plus.org/")
1585     (synopsis "Mupen64Plus Rice Video plugin")
1586     (description
1587      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1588 which is capable of accurately playing many games.  This package contains the
1589 Glide64MK2 video plugin.")
1590     (license license:gpl2+)))
1591
1592 (define-public mupen64plus-video-rice
1593   (package
1594     (name "mupen64plus-video-rice")
1595     (version "2.5")
1596     (source
1597      (origin
1598        (method url-fetch)
1599        (uri (string-append
1600              "https://github.com/mupen64plus/mupen64plus-video-rice/archive/"
1601              version ".tar.gz"))
1602        (file-name (string-append name "-" version ".tar.gz"))
1603        (sha256
1604         (base32 "0rd2scjmh285w61aj3mgx71whg5rqrjbry3cdgicczrnyvf8wdvk"))))
1605     (build-system gnu-build-system)
1606     (native-inputs
1607      `(("pkg-config" ,pkg-config)
1608        ("which" ,which)))
1609     (inputs
1610      `(("libpng" ,libpng)
1611        ("mesa" ,mesa)
1612        ("mupen64plus-core" ,mupen64plus-core)
1613        ("sdl2" ,sdl2)))
1614     (arguments
1615      '(#:phases
1616        (modify-phases %standard-phases
1617          ;; The mupen64plus build system has no configure phase.
1618          (delete 'configure)
1619          ;; Makefile is in a subdirectory.
1620          (add-before
1621           'build 'cd-to-project-dir
1622           (lambda _
1623             (chdir "projects/unix"))))
1624        #:make-flags
1625        (let ((out (assoc-ref %outputs "out"))
1626              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1627          (list "all"
1628                (string-append "PREFIX=" out)
1629                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1630        ;; There are no tests.
1631        #:tests? #f))
1632     (home-page "http://www.mupen64plus.org/")
1633     (synopsis "Mupen64Plus Rice Video plugin")
1634     (description
1635      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1636 which is capable of accurately playing many games.  This package contains the
1637 Rice Video plugin.")
1638     (license license:gpl2+)))
1639
1640 (define-public mupen64plus-video-z64
1641   (package
1642     (name "mupen64plus-video-z64")
1643     (version "2.0.0")
1644     (source
1645      (origin
1646        (method url-fetch)
1647        (uri (string-append
1648              "https://github.com/mupen64plus/mupen64plus-video-z64/archive/"
1649              version ".tar.gz"))
1650        (file-name (string-append name "-" version ".tar.gz"))
1651        (sha256
1652         (base32 "1x7wsjs5gx2iwx20p4cjcbf696zsjlh31qxmghwv0ifrq8x58s1b"))))
1653     (build-system gnu-build-system)
1654     (native-inputs
1655      `(("pkg-config" ,pkg-config)
1656        ("which" ,which)))
1657     (inputs
1658      `(("glew" ,glew)
1659        ("mupen64plus-core" ,mupen64plus-core)
1660        ("sdl2" ,sdl2)))
1661     (arguments
1662      '(#:phases
1663        (modify-phases %standard-phases
1664          ;; The mupen64plus build system has no configure phase.
1665          (delete 'configure)
1666          ;; Makefile is in a subdirectory.
1667          (add-before
1668           'build 'cd-to-project-dir
1669           (lambda _
1670             (chdir "projects/unix")))
1671          ;; XXX Should be unnecessary with the next release.
1672          (add-before
1673           'build 'use-sdl2
1674           (lambda _
1675             (substitute* "Makefile"
1676               (("SDL_CONFIG = (.*)sdl-config" all prefix)
1677                (string-append "SDL_CONFIG = " prefix "sdl2-config"))))))
1678        #:make-flags
1679        (let ((out (assoc-ref %outputs "out"))
1680              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1681          (list "all"
1682                (string-append "PREFIX=" out)
1683                (string-append "APIDIR=" m64p "/include/mupen64plus")))
1684        ;; There are no tests.
1685        #:tests? #f))
1686     (home-page "http://www.mupen64plus.org/")
1687     (synopsis "Mupen64Plus Z64 video plugin")
1688     (description
1689      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1690 which is capable of accurately playing many games.  This package contains the
1691 Z64 video plugin.")
1692     (license license:gpl2+)))
1693
1694 (define-public mupen64plus-ui-console
1695   (package
1696     (name "mupen64plus-ui-console")
1697     (version "2.5")
1698     (source
1699      (origin
1700        (method url-fetch)
1701        (uri (string-append
1702              "https://github.com/mupen64plus/mupen64plus-ui-console/archive/"
1703              version ".tar.gz"))
1704        (file-name (string-append name "-" version ".tar.gz"))
1705        (sha256
1706         (base32 "04qkpd8ic7xsgnqz7spl00wxdygf79m7d1k8rabbygjk5lg6p8z2"))
1707        (patches
1708         (list (search-patch "mupen64plus-ui-console-notice.patch")))))
1709     (build-system gnu-build-system)
1710     (native-inputs
1711      `(("pkg-config" ,pkg-config)
1712        ("which" ,which)))
1713     (inputs
1714      `(("sdl2" ,sdl2)))
1715     ;; Mupen64Plus supports a single data directory and a single plugin
1716     ;; directory in its configuration, yet we need data and plugin files from
1717     ;; a variety of packages.  The best way to deal with this is to install
1718     ;; all packages from which data and plugin files are needed into one's
1719     ;; profile, and point the configuration there.  Hence, propagate the most
1720     ;; important packages here to save the user from the bother.  The patch
1721     ;; mupen64plus-ui-console-notice also gives users instructions on what
1722     ;; they need to do in order to point the configuration to their profile.
1723     (propagated-inputs
1724      `(("mupen64plus-core" ,mupen64plus-core)
1725        ("mupen64plus-audio-sdl" ,mupen64plus-audio-sdl)
1726        ("mupen64plus-input-sdl" ,mupen64plus-input-sdl)
1727        ("mupen64plus-rsp-hle" ,mupen64plus-rsp-hle)
1728        ("mupen64plus-video-glide64" ,mupen64plus-video-glide64)
1729        ("mupen64plus-video-glide64mk2" ,mupen64plus-video-glide64mk2)
1730        ("mupen64plus-video-rice" ,mupen64plus-video-rice)))
1731     (arguments
1732      '(#:phases
1733        (modify-phases %standard-phases
1734          ;; The mupen64plus build system has no configure phase.
1735          (delete 'configure)
1736          ;; Makefile is in a subdirectory.
1737          (add-before
1738           'build 'cd-to-project-dir
1739           (lambda _
1740             (chdir "projects/unix"))))
1741        #:make-flags
1742        (let ((out (assoc-ref %outputs "out"))
1743              (m64p (assoc-ref %build-inputs "mupen64plus-core")))
1744          (list "all"
1745                (string-append "PREFIX=" out)
1746                (string-append "APIDIR=" m64p "/include/mupen64plus")
1747                ;; Trailing slash matters here.
1748                (string-append "COREDIR=" m64p "/lib/")))
1749        ;; There are no tests.
1750        #:tests? #f))
1751     (home-page "http://www.mupen64plus.org/")
1752     (synopsis "Mupen64Plus SDL input plugin")
1753     (description
1754      "Mupen64Plus is a cross-platform plugin-based Nintendo 64 (N64) emulator
1755 which is capable of accurately playing many games.  This package contains the
1756 command line user interface.  Installing this package is the easiest way
1757 towards a working Mupen64Plus for casual users.")
1758     (license license:gpl2+)))
1759
1760 (define-public nestopia-ue
1761   (package
1762     (name "nestopia-ue")
1763     (version "1.46.2")
1764     (source (origin
1765               (method url-fetch)
1766               (uri (string-append
1767                     "https://github.com/rdanbrook/nestopia/archive/"
1768                     version ".tar.gz"))
1769               (file-name (string-append name "-" version ".tar.gz"))
1770               (sha256
1771                (base32
1772                 "07h49xwvg61dx20rk5p4r3ax2ar5y0ppvm60cqwqljyi9rdfbh7p"))
1773               (modules '((guix build utils)))
1774               (snippet
1775                '(begin
1776                   ;; We don't need libretro for the GNU/Linux build.
1777                   (delete-file-recursively "libretro")
1778                   ;; Use system zlib.
1779                   (delete-file-recursively "source/zlib")
1780                   (substitute* "source/core/NstZlib.cpp"
1781                     (("#include \"../zlib/zlib.h\"") "#include <zlib.h>"))))))
1782     (build-system gnu-build-system)
1783     (native-inputs
1784      `(("pkg-config" ,pkg-config)))
1785     (inputs
1786      `(("ao" ,ao)
1787        ("glu" ,glu)
1788        ("gtk+" ,gtk+)
1789        ("libarchive" ,libarchive)
1790        ("mesa" ,mesa)
1791        ("sdl2" ,sdl2)
1792        ("zlib" ,zlib)))
1793     (arguments
1794      '(#:phases
1795        (modify-phases %standard-phases
1796          ;; The Nestopia build system consists solely of a Makefile.
1797          (delete 'configure)
1798          ;; XXX Should be unnecessary with the next release.
1799          (add-before
1800           'build 'patch-makefile
1801           (lambda _
1802             (substitute* "Makefile"
1803               (("@mkdir \\$@") "@mkdir -p $@")
1804               (("CC =") "CC ?=")
1805               (("CXX =") "CXX ?=")
1806               (("PREFIX =") "PREFIX ?=")
1807               (("^install:\n$") "install:\n\tmkdir -p $(BINDIR)\n"))))
1808          (add-before
1809           'build 'remove-xdg-desktop-menu-call
1810           (lambda _
1811             (substitute* "Makefile"
1812               (("xdg-desktop-menu install .*") "")))))
1813        #:make-flags (let ((out (assoc-ref %outputs "out")))
1814                       (list "CC=gcc" "CXX=g++" (string-append "PREFIX=" out)))
1815        ;; There are no tests.
1816        #:tests? #f))
1817     (home-page "http://0ldsk00l.ca/nestopia/")
1818     (synopsis "Nintendo Entertainment System (NES/Famicom) emulator")
1819     (description
1820      "Nestopia UE (Undead Edition) is a fork of the Nintendo Entertainment
1821 System (NES/Famicom) emulator Nestopia, with enhancements from members of the
1822 emulation community.  It provides highly accurate emulation.")
1823     (license license:gpl2+)))
1824
1825 (define-public emulation-station
1826   (package
1827     (name "emulation-station")
1828     (version "2.0.1")
1829     (source (origin
1830               (method git-fetch) ; no tarball available
1831               (uri (git-reference
1832                     (url "https://github.com/Aloshi/EmulationStation.git")
1833                     (commit "646bede"))) ; no version tag
1834               (sha256
1835                (base32
1836                 "0cm0sq2wri2l9cvab1l0g02za59q7klj0h3p028vr96n6njj4w9v"))))
1837     (build-system cmake-build-system)
1838     (arguments
1839      '(#:tests? #f)) ; no tests
1840     (inputs
1841      `(("alsa-lib" ,alsa-lib)
1842        ("boost" ,boost)
1843        ("curl" ,curl)
1844        ("eigin" ,eigen)
1845        ("freeimage" ,freeimage)
1846        ("freetype" ,freetype)
1847        ("mesa" ,mesa)
1848        ("sdl2" ,sdl2)))
1849     (synopsis "Video game console emulator front-end")
1850     (description "EmulationStation provides a graphical front-end to a large
1851 number of video game console emulators.  It features an interface that is
1852 usable with any game controller that has at least 4 buttons, theming support,
1853 and a game metadata scraper.")
1854     (home-page "http://www.emulationstation.org")
1855     (license license:expat)))
1856
1857 (define-public pinball
1858   (package
1859     (name "pinball")
1860     (version "0.3.1")
1861     (source
1862      (origin (method url-fetch)
1863              (uri (string-append "mirror://sourceforge/pinball/pinball/"
1864                                  "pinball-" version "/"
1865                                  "pinball-" version ".tar.gz"))
1866              (sha256
1867               (base32
1868                "1f2whlrfidwfh8lvr8cspcyirc6840r5d1ajm7x99qmngygrhixs"))
1869              (patches (map search-patch
1870                            '("pinball-const-fix.patch"
1871                              "pinball-cstddef.patch"
1872                              "pinball-missing-separators.patch"
1873                              "pinball-src-deps.patch"
1874                              "pinball-system-ltdl.patch")))))
1875     (build-system gnu-build-system)
1876     (inputs
1877      `(("glu" ,glu)
1878        ("mesa" ,mesa)
1879        ("sdl" ,sdl)
1880        ("sdl-image" ,sdl-image)
1881        ("sdl-mixer" ,sdl-mixer)))
1882     (arguments
1883      '(#:configure-flags
1884        (list (string-append "CPPFLAGS=-I"
1885                             (assoc-ref %build-inputs "sdl-image")
1886                             "/include/SDL -I"
1887                             (assoc-ref %build-inputs "sdl-mixer")
1888                             "/include/SDL"))))
1889     (home-page "http://pinball.sourceforge.net")
1890     (synopsis "Pinball simulator")
1891     (description "The Emilia Pinball Project is a pinball simulator.  There
1892 are only two levels to play with, but they are very addictive.")
1893     (license license:gpl2)))