gnu/packages/games.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013 John Darrington <jmd@gnu.org>
   3 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
   4 ;;; Copyright © 2014, 2016 David Thompson <dthompson2@worcester.edu>
   5 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   7 ;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net>
   8 ;;; Copyright © 2014, 2015, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
   9 ;;; Copyright © 2014, 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
  10 ;;; Copyright © 2014, 2015, 2019 Mark H Weaver <mhw@netris.org>
  11 ;;; Copyright © 2015, 2016 Andreas Enge <andreas@enge.fr>
  12 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  13 ;;; Copyright © 2015, 2017, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org>
  14 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
  15 ;;; Copyright © 2015, 2016, 2017 Alex Kost <alezost@gmail.com>
  16 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
  17 ;;; Copyright © 2016, 2017 Rodger Fox <thylakoid@openmailbox.org>
  18 ;;; Copyright © 2016, 2017, 2018 Nikita <nikita@n0.is>
  19 ;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org>
  20 ;;; Copyright © 2016, 2017, 2018, 2019 Kei Kebreau <kkebreau@posteo.net>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
  23 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  24 ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com>
  25 ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info>
  26 ;;; Copyright © 2017, 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
  27 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  28 ;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue>
  29 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
  30 ;;; Copyright © 2017, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
  33 ;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  34 ;;; Copyright © 2018 okapi <okapi@firemail.cc>
  35 ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  36 ;;; Copyright © 2018 Madalin Ionel-Patrascu <madalinionel.patrascu@mdc-berlin.de>
  37 ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
  38 ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
  39 ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
  40 ;;; Copyright © 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
  41 ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
  42 ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
  43 ;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
  44 ;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
  45 ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
  46 ;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
  47 ;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
  48 ;;; Copyright © 2017, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
  49 ;;; Copyright © 2020 Alberto Eleuterio Flores Guerrero <barbanegra+guix@posteo.mx>
  50 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  51 ;;; Copyright © 2020 Vitaliy Shatrov <D0dyBo0D0dyBo0@protonmail.com>
  52 ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
  53 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  54 ;;;
  55 ;;; This file is part of GNU Guix.
  56 ;;;
  57 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  58 ;;; under the terms of the GNU General Public License as published by
  59 ;;; the Free Software Foundation; either version 3 of the License, or (at
  60 ;;; your option) any later version.
  61 ;;;
  62 ;;; GNU Guix is distributed in the hope that it will be useful, but
  63 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  64 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  65 ;;; GNU General Public License for more details.
  66 ;;;
  67 ;;; You should have received a copy of the GNU General Public License
  68 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  69
  70 (define-module (gnu packages games)
  71   #:use-module (ice-9 match)
  72   #:use-module ((guix licenses) #:prefix license:)
  73   #:use-module (guix utils)
  74   #:use-module (guix packages)
  75   #:use-module (guix download)
  76   #:use-module (guix git-download)
  77   #:use-module (guix svn-download)
  78   #:use-module (guix gexp)
  79   #:use-module (gnu packages)
  80   #:use-module (gnu packages algebra)
  81   #:use-module (gnu packages autotools)
  82   #:use-module (gnu packages backup)
  83   #:use-module (gnu packages base)
  84   #:use-module (gnu packages build-tools)
  85   #:use-module (gnu packages admin)
  86   #:use-module (gnu packages audio)
  87   #:use-module (gnu packages avahi)
  88   #:use-module (gnu packages assembly)
  89   #:use-module (gnu packages bash)
  90   #:use-module (gnu packages bison)
  91   #:use-module (gnu packages boost)
  92   #:use-module (gnu packages check)
  93   #:use-module (gnu packages cmake)
  94   #:use-module (gnu packages compression)
  95   #:use-module (gnu packages curl)
  96   #:use-module (gnu packages crypto)
  97   #:use-module (gnu packages cyrus-sasl)
  98   #:use-module (gnu packages documentation)
  99   #:use-module (gnu packages docbook)
 100   #:use-module (gnu packages emulators)
 101   #:use-module (gnu packages flex)
 102   #:use-module (gnu packages fltk)
 103   #:use-module (gnu packages fonts)
 104   #:use-module (gnu packages fontutils)
 105   #:use-module (gnu packages freedesktop)
 106   #:use-module (gnu packages fribidi)
 107   #:use-module (gnu packages game-development)
 108   #:use-module (gnu packages gcc)
 109   #:use-module (gnu packages gettext)
 110   #:use-module (gnu packages ghostscript)
 111   #:use-module (gnu packages gimp)
 112   #:use-module (gnu packages gl)
 113   #:use-module (gnu packages glib)
 114   #:use-module (gnu packages gnome)
 115   #:use-module (gnu packages gnuzilla)
 116   #:use-module (gnu packages gperf)
 117   #:use-module (gnu packages graphics)
 118   #:use-module (gnu packages gstreamer)
 119   #:use-module (gnu packages gtk)
 120   #:use-module (gnu packages guile)
 121   #:use-module (gnu packages haskell)
 122   #:use-module (gnu packages haskell-crypto)
 123   #:use-module (gnu packages haskell-xyz)
 124   #:use-module (gnu packages icu4c)
 125   #:use-module (gnu packages image)
 126   #:use-module (gnu packages imagemagick)
 127   #:use-module (gnu packages kde)
 128   #:use-module (gnu packages kde-frameworks)
 129   #:use-module (gnu packages less)
 130   #:use-module (gnu packages libcanberra)
 131   #:use-module (gnu packages libedit)
 132   #:use-module (gnu packages libunwind)
 133   #:use-module (gnu packages linux)
 134   #:use-module (gnu packages llvm)
 135   #:use-module (gnu packages lua)
 136   #:use-module (gnu packages man)
 137   #:use-module (gnu packages maths)
 138   #:use-module (gnu packages mp3)
 139   #:use-module (gnu packages music)
 140   #:use-module (gnu packages multiprecision)
 141   #:use-module (gnu packages ncurses)
 142   #:use-module (gnu packages netpbm)
 143   #:use-module (gnu packages networking)
 144   #:use-module (gnu packages ocaml)
 145   #:use-module (gnu packages opencl)
 146   #:use-module (gnu packages pcre)
 147   #:use-module (gnu packages perl)
 148   #:use-module (gnu packages perl-check)
 149   #:use-module (gnu packages pkg-config)
 150   #:use-module (gnu packages pulseaudio)
 151   #:use-module (gnu packages python)
 152   #:use-module (gnu packages python-xyz)
 153   #:use-module (gnu packages qt)
 154   #:use-module (gnu packages readline)
 155   #:use-module (gnu packages shells)
 156   #:use-module (gnu packages sdl)
 157   #:use-module (gnu packages serialization)
 158   #:use-module (gnu packages sqlite)
 159   #:use-module (gnu packages squirrel)
 160   #:use-module (gnu packages swig)
 161   #:use-module (gnu packages tcl)
 162   #:use-module (gnu packages terminals)
 163   #:use-module (gnu packages texinfo)
 164   #:use-module (gnu packages textutils)
 165   #:use-module (gnu packages tls)
 166   #:use-module (gnu packages upnp)
 167   #:use-module (gnu packages video)
 168   #:use-module (gnu packages vulkan)
 169   #:use-module (gnu packages web)
 170   #:use-module (gnu packages wget)
 171   #:use-module (gnu packages wxwidgets)
 172   #:use-module (gnu packages xdisorg)
 173   #:use-module (gnu packages xorg)
 174   #:use-module (gnu packages xiph)
 175   #:use-module (gnu packages xml)
 176   #:use-module (gnu packages messaging)
 177   #:use-module (gnu packages networking)
 178   #:use-module (guix build-system copy)
 179   #:use-module (guix build-system glib-or-gtk)
 180   #:use-module (guix build-system gnu)
 181   #:use-module (guix build-system go)
 182   #:use-module (guix build-system meson)
 183   #:use-module (guix build-system scons)
 184   #:use-module (guix build-system python)
 185   #:use-module (guix build-system cmake)
 186   #:use-module (guix build-system qt)
 187   #:use-module (guix build-system trivial)
 188   #:use-module ((srfi srfi-1) #:hide (zip))
 189   #:use-module (srfi srfi-26))
 190
 191 ;; Data package for adanaxisgpl.
 192 (define adanaxis-mush
 193   (let ((version "1.1.0"))
 194     (origin
 195       (method url-fetch)
 196       (uri (string-append "http://www.mushware.com/files/adanaxis-mush-"
 197                           version ".tar.gz"))
 198       (sha256
 199        (base32 "0mk9ibis5nkdcalcg1lkgnsdxxbw4g5w2i3icjzy667hqirsng03")))))
 200
 201 (define-public adanaxisgpl
 202   (package
 203     (name "adanaxisgpl")
 204     (version "1.2.5")
 205     (source
 206      (origin
 207        (method url-fetch)
 208        (uri (string-append "http://www.mushware.com/files/adanaxisgpl-"
 209                            version ".tar.gz"))
 210        (sha256
 211         (base32 "0jkn637jaabvlhd6hpvzb57vvjph94l6fbf7qxbjlw9zpr19dw1f"))
 212        (modules '((guix build utils)))
 213        (snippet
 214         '(begin
 215            ;; Necessary for building with gcc >=4.7.
 216            (substitute* "src/Mushcore/MushcoreSingleton.h"
 217              (("SingletonPtrSet\\(new SingletonType\\);")
 218               "MushcoreSingleton::SingletonPtrSet(new SingletonType);"))
 219            ;; Avoid an "invalid conversion from const char* to char*" error.
 220            (substitute* "src/Platform/X11/PlatformMiscUtils.cpp"
 221              (("char \\*end, \\*result;")
 222               (string-append "const char *end;"
 223                              "\n"
 224                              "char *result;")))
 225            #t))))
 226     (build-system gnu-build-system)
 227     (arguments
 228      `(#:tests? #f ; no check target
 229        #:phases
 230        (modify-phases %standard-phases
 231          (add-after 'install 'install-data
 232            (lambda* (#:key inputs outputs #:allow-other-keys)
 233              (let ((data (assoc-ref inputs "adanaxis-mush"))
 234                    (share (string-append (assoc-ref outputs "out")
 235                                          "/share/" ,name "-" ,version)))
 236                (mkdir-p share)
 237                (invoke "tar" "xvf" data "-C" share)))))))
 238     (native-inputs
 239      `(("adanaxis-mush" ,adanaxis-mush))) ; game data
 240     (inputs
 241      `(("expat" ,expat)
 242        ("freeglut" ,freeglut)
 243        ("glu" ,glu)
 244        ("libjpeg" ,libjpeg-turbo)
 245        ("libogg" ,libogg)
 246        ("libtiff" ,libtiff)
 247        ("libvorbis" ,libvorbis)
 248        ("libx11" ,libx11)
 249        ("libxext" ,libxext)
 250        ("pcre" ,pcre)
 251        ("sdl" ,sdl)
 252        ("sdl-mixer" ,sdl-mixer)))
 253     (home-page "https://www.mushware.com")
 254     (synopsis "Action game in four spatial dimensions")
 255     (description
 256      "Adanaxis is a fast-moving first person shooter set in deep space, where
 257 the fundamentals of space itself are changed.  By adding another dimension to
 258 space this game provides an environment with movement in four directions and
 259 six planes of rotation.  Initially the game explains the 4D control system via
 260 a graphical sequence, before moving on to 30 levels of gameplay with numerous
 261 enemy, ally, weapon and mission types.  Features include simulated 4D texturing,
 262 mouse and joystick control, and original music.")
 263     (license license:gpl2)))
 264
 265 (define-public alex4
 266   (package
 267     (name "alex4")
 268     (version "1.2.1")
 269     (source
 270      (origin
 271        (method git-fetch)
 272        (uri (git-reference
 273              (url "https://github.com/carstene1ns/alex4.git")
 274              (commit version)))
 275        (file-name (git-file-name name version))
 276        (sha256
 277         (base32 "098wy72mh4lsvq3gm0rhamjssf9l1hp6hhkpzrv7klpb97cwwc3h"))))
 278     (build-system gnu-build-system)
 279     (arguments
 280      `(#:tests? #f                      ; no check target
 281        #:make-flags
 282        (list "CC=gcc"
 283              "CFLAGS=-D_FILE_OFFSET_BITS=64"
 284              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 285        #:phases
 286        (modify-phases %standard-phases
 287          (delete 'configure)            ; no configure script
 288          (add-after 'install 'install-data
 289            (lambda* (#:key outputs #:allow-other-keys)
 290              (let ((share (string-append (assoc-ref outputs "out")
 291                                          "/share/" ,name)))
 292                (install-file "alex4.ini" share)
 293                #t))))))
 294     (inputs
 295      `(("allegro" ,allegro-4)
 296        ("dumb" ,dumb-allegro4)))
 297     (home-page "http://allegator.sourceforge.net/")
 298     (synopsis "Retro platform game")
 299     (description
 300      "Guide Alex the Allegator through the jungle in order to save his
 301 girlfriend Lola from evil humans who want to make a pair of shoes out of her.
 302 Plenty of classic platforming in four nice colors guaranteed!
 303
 304 The game includes a built-in editor so you can design and share your own maps.")
 305     (license license:gpl2+)))
 306
 307 (define-public armagetronad
 308   (package
 309     (name "armagetronad")
 310     (version "0.2.8.3.5")
 311     (source (origin
 312               (method url-fetch)
 313               (uri (string-append "mirror://sourceforge/armagetronad/stable/"
 314                                   version "/armagetronad-" version ".src.tar.gz"))
 315               (sha256
 316                (base32
 317                 "1z266haq22n5b0733h7qsg1rpzhz8lvm82f7wd06r008iiar7jdl"))))
 318     (build-system gnu-build-system)
 319     (inputs
 320      `(("libxml2" ,libxml2)
 321        ("sdl" ,sdl)
 322        ("sdl-image" ,sdl-image)
 323        ("freeglut" ,freeglut)
 324        ("libpng" ,libpng)
 325        ("libjpeg-turbo" ,libjpeg-turbo)))
 326     (home-page "http://www.armagetronad.org")
 327     (synopsis "Tron clone in 3D")
 328     (description "Armagetron Advanced is a multiplayer game in 3d that
 329 attempts to emulate and expand on the lightcycle sequence from the movie Tron.
 330 It's an old school arcade game slung into the 21st century.  Highlights
 331 include a customizable playing arena, HUD, unique graphics, and AI bots.  For
 332 the more advanced player there are new game modes and a wide variety of
 333 physics settings to tweak as well.")
 334     (license license:gpl2+)))
 335
 336 (define-public bastet
 337   (package
 338     (name "bastet")
 339     (version "0.43.2")
 340     (source
 341      (origin
 342        (method git-fetch)
 343        (uri (git-reference
 344              (url "https://github.com/fph/bastet.git")
 345              (commit version)))
 346        (file-name (git-file-name name version))
 347        (sha256
 348         (base32 "09kamxapm9jw9przpsgjfg33n9k94bccv65w95dakj0br33a75wn"))
 349        (patches
 350         (search-patches "bastet-change-source-of-unordered_set.patch"))))
 351     (build-system gnu-build-system)
 352     (arguments
 353      `(#:make-flags
 354        (list (string-append "CXXFLAGS=-I"
 355                             (assoc-ref %build-inputs "boost") "/include"))
 356        #:phases
 357        (modify-phases %standard-phases
 358          (delete 'configure)            ; no configure script
 359          (replace 'check
 360            ;; The 'Test' target builds the tests, but doesn't actually run them.
 361            (lambda* (#:key make-flags #:allow-other-keys)
 362              (apply invoke "make" "Test" make-flags)
 363              (setenv "HOME" ".")
 364              (invoke "./Test")))
 365          (replace 'install
 366            (lambda* (#:key outputs #:allow-other-keys)
 367              (let* ((out     (assoc-ref outputs "out"))
 368                     (share   (string-append out "/share"))
 369                     (hicolor (string-append share "/icons/hicolor")))
 370                (install-file "bastet"
 371                              (string-append out "/bin"))
 372
 373                (install-file "bastet.desktop"
 374                              (string-append share "/applications"))
 375                (install-file "bastet.svg"
 376                              (string-append hicolor "/scalable/apps"))
 377
 378                (install-file "bastet.appdata.xml"
 379                              (string-append share "/appdata"))
 380
 381                (install-file "bastet.6"
 382                              (string-append out "/share/man/man6"))
 383                #t))))))
 384     (native-inputs
 385      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 386     (inputs
 387      `(("boost" ,boost)
 388        ("ncurses" ,ncurses)))
 389     (home-page "https://fph.altervista.org/prog/bastet.html")
 390     (synopsis "Antagonistic Tetris-style falling brick game for text terminals")
 391     (description
 392      "Bastet (short for Bastard Tetris) is a simple ncurses-based falling brick
 393 game.  Unlike normal Tetris, Bastet does not choose the next brick at random.
 394 Instead, it uses a special algorithm to choose the worst brick possible.
 395
 396 Playing bastet can be a painful experience, especially if you usually make
 397 canyons and wait for the long I-shaped block to clear four rows at a time.")
 398     (license license:gpl3+)))
 399
 400 (define-public blobwars
 401   (package
 402     (name "blobwars")
 403     (version "2.00")
 404     (source
 405      (origin
 406        (method url-fetch)
 407        (uri (string-append "mirror://sourceforge/blobwars/"
 408                            "blobwars-" version ".tar.gz"))
 409        (sha256
 410         (base32 "16aagvkx6azf75gm5kaa94bh5npydvhqp3fvdqyfsanzdjgjf1n4"))))
 411     (build-system gnu-build-system)
 412     (arguments
 413      `(#:tests? #f                      ;no test
 414        #:make-flags
 415        (let ((out (assoc-ref %outputs "out")))
 416          (list (string-append "PREFIX=" out)
 417                (string-append "BINDIR=" out "/bin/")
 418                "USEPAK=1"
 419                "RELEASE=1"))
 420        #:phases
 421        (modify-phases %standard-phases
 422          (add-after 'unpack 'werror-begone
 423            (lambda _
 424              (substitute* "Makefile" (("-Werror") ""))
 425              #t))
 426          (delete 'configure))))         ;no configure script
 427     (native-inputs
 428      `(("gettext" ,gettext-minimal)
 429        ("pkg-config" ,pkg-config)))
 430     (inputs
 431      `(("hicolor-icon-theme" ,hicolor-icon-theme)
 432        ("sdl" ,(sdl-union (list sdl2
 433                                 sdl2-image
 434                                 sdl2-mixer
 435                                 sdl2-ttf
 436                                 sdl2-net)))))
 437     (home-page "https://sourceforge.net/projects/blobwars/")
 438     (synopsis "Platform action game featuring a blob with a lot of weapons")
 439     (description "Blobwars: Metal Blob Solid is a 2D platform game, the first
 440 in the Blobwars series.  You take on the role of a fearless Blob agent.  Your
 441 mission is to infiltrate various enemy bases and rescue as many MIAs as
 442 possible, while battling many vicious aliens.")
 443     (license (list license:gpl2      ; For code and graphics
 444                    license:cc0       ; Music and sounds have specific licenses
 445                    license:cc-by3.0  ; see /doc/readme
 446                    license:cc-by-sa3.0
 447                    license:lgpl2.1+
 448                    license:bsd-2))))
 449
 450 (define-public cataclysm-dda
 451   (package
 452     (name "cataclysm-dda")
 453     (version "0.E-2")
 454     (source
 455      (origin
 456        (method git-fetch)
 457        (uri (git-reference
 458              (url "https://github.com/CleverRaven/Cataclysm-DDA.git")
 459              (commit version)))
 460        (sha256
 461         (base32 "15l6w6lxays7qmsv0ci2ry53asb9an9dh7l7fc13256k085qcg68"))
 462        (file-name (git-file-name name version))))
 463     (build-system gnu-build-system)
 464     (arguments
 465      '(#:make-flags
 466        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 467              "USE_HOME_DIR=1" "DYNAMIC_LINKING=1" "RELEASE=1"
 468              "LOCALIZE=1" "LANGUAGES=all")
 469        #:phases
 470        (modify-phases %standard-phases
 471          (delete 'configure)
 472          (add-after 'build 'build-tiles
 473            (lambda* (#:key make-flags outputs #:allow-other-keys)
 474              ;; Change prefix directory and enable tile graphics and sound.
 475              (apply invoke "make" "TILES=1" "SOUND=1"
 476                     (string-append "PREFIX="
 477                                    (assoc-ref outputs "tiles"))
 478                     (cdr make-flags))))
 479          (add-after 'install 'install-tiles
 480            (lambda* (#:key make-flags outputs #:allow-other-keys)
 481              (apply invoke "make" "install" "TILES=1" "SOUND=1"
 482                     (string-append "PREFIX="
 483                                    (assoc-ref outputs "tiles"))
 484                     (cdr make-flags)))))
 485        ;; TODO: Add libtap++ from https://github.com/cbab/libtappp as a native
 486        ;;       input in order to support tests.
 487        #:tests? #f))
 488     (outputs '("out"
 489                "tiles"))                ;for tile graphics and sound support
 490     (native-inputs
 491      `(("gettext" ,gettext-minimal)
 492        ("pkg-config" ,pkg-config)))
 493     (inputs
 494      `(("freetype" ,freetype)
 495        ("libogg" ,libogg)
 496        ("libvorbis" ,libvorbis)
 497        ("ncurses" ,ncurses)
 498        ("sdl2" ,sdl2)
 499        ("sdl2-image" ,sdl2-image)
 500        ("sdl2-ttf" ,sdl2-ttf)
 501        ("sdl2-mixer" ,sdl2-mixer)))
 502     (home-page "https://cataclysmdda.org/")
 503     (synopsis "Survival horror roguelike video game")
 504     (description
 505      "Cataclysm: Dark Days Ahead (or \"DDA\" for short) is a roguelike set
 506 in a post-apocalyptic world.  Struggle to survive in a harsh, persistent,
 507 procedurally generated world.  Scavenge the remnants of a dead civilization
 508 for food, equipment, or, if you are lucky, a vehicle with a full tank of gas
 509 to get you out of Dodge.  Fight to defeat or escape from a wide variety of
 510 powerful monstrosities, from zombies to giant insects to killer robots and
 511 things far stranger and deadlier, and against the others like yourself, that
 512 want what you have.")
 513     (license license:cc-by-sa3.0)))
 514
 515 (define-public corsix-th
 516   (package
 517     (name "corsix-th")
 518     (version "0.63")
 519     (source
 520      (origin
 521        (method git-fetch)
 522        (uri (git-reference
 523              (url "https://github.com/CorsixTH/CorsixTH.git")
 524              (commit (string-append "v" version))))
 525        (file-name (git-file-name name version))
 526        (sha256
 527         (base32 "1rkyk8g55xny276s0hr5k8mq6f4nzz56d3k2mp09dzfymrqb8hgi"))))
 528     (build-system cmake-build-system)
 529     (arguments
 530      `(#:phases
 531        (modify-phases %standard-phases
 532          (add-after 'install 'wrap-binary
 533            (lambda _
 534              ;; Set Lua module paths and default MIDI soundfont on startup.
 535              (let* ((out (assoc-ref %outputs "out"))
 536                     (fluid (assoc-ref %build-inputs "fluid-3"))
 537                     (lua-version ,(version-major+minor (package-version lua)))
 538                     (lua-cpath
 539                      (map (lambda (lib)
 540                             (string-append
 541                              (assoc-ref %build-inputs (string-append "lua-" lib))
 542                              "/lib/lua/" lua-version "/?.so"))
 543                           '("filesystem" "lpeg"))))
 544                (wrap-program (string-append out "/bin/corsix-th")
 545                  `("LUA_CPATH" ";" = ,lua-cpath)
 546                  `("SDL_SOUNDFONTS" ":" suffix
 547                    (,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3")))))
 548              #t)))
 549        #:tests? #f)) ; TODO need busted package to run tests
 550     ;; Omit Lua-Socket dependency to disable automatic updates.
 551     (inputs
 552      `(("ffmpeg" ,ffmpeg)
 553        ("fluid-3" ,fluid-3)
 554        ("freetype" ,freetype)
 555        ("lua" ,lua)
 556        ("lua-filesystem" ,lua-filesystem)
 557        ("lua-lpeg" ,lua-lpeg)
 558        ("sdl2" ,sdl2)
 559        ("sdl2-mixer" ,sdl2-mixer)))
 560     (home-page "https://corsixth.com")
 561     (synopsis "Implementation of the @i{Theme Hospital} game engine")
 562     (description
 563      "This package provides a reimplementation of the 1997 Bullfrog business
 564 simulation game @i{Theme Hospital}.  As well as faithfully recreating the
 565 original engine, CorsixTH adds support for high resolutions, custom levels and
 566 more.  This package does @emph{not} provide the game assets.")
 567     (license (list
 568               license:expat ; main license
 569               license:bsd-3)))) ; CorsixTH/Src/random.c
 570
 571 (define-public cowsay
 572   (package
 573     (name "cowsay")
 574     (version "3.04")
 575     (source (origin
 576               (method git-fetch)
 577               (uri (git-reference
 578                      (url "https://github.com/tnalpgge/rank-amateur-cowsay.git")
 579                      (commit (string-append name "-" version))))
 580               (file-name (git-file-name name version))
 581               (sha256
 582                (base32
 583                 "06455kq37hvq1xb7adyiwrx0djs50arsxvjgixyxks16lm1rlc7n"))))
 584     (build-system gnu-build-system)
 585     (arguments
 586      `(#:phases
 587        (modify-phases %standard-phases
 588          (delete 'configure)            ; no configure script
 589          (delete 'build)                ; nothing to be built
 590          (replace 'install
 591            (lambda* (#:key outputs #:allow-other-keys)
 592              (invoke "sh" "install.sh"
 593                      (assoc-ref outputs "out"))))
 594          (delete 'check)
 595          (add-after 'install 'check
 596            (lambda* (#:key outputs #:allow-other-keys)
 597              (invoke (string-append (assoc-ref outputs "out")
 598                                     "/bin/cowsay")
 599                      "We're done!"))))))
 600     (inputs
 601      `(("perl" ,perl)))
 602     (home-page (string-append "https://web.archive.org/web/20071026043648/"
 603                               "http://www.nog.net:80/~tony/warez/cowsay.shtml"))
 604     (synopsis "Speaking cow text filter")
 605     (description "Cowsay is basically a text filter.  Send some text into it,
 606 and you get a cow saying your text.  If you think a talking cow isn't enough,
 607 cows can think too: all you have to do is run @command{cowthink}.  If you're
 608 tired of cows, a variety of other ASCII-art messengers are available.")
 609     (license license:gpl3+)))
 610
 611 (define-public lolcat
 612   (let ((commit "35dca3d0a381496d7195cd78f5b24aa7b62f2154")
 613         (revision "0"))
 614     (package
 615       (name "lolcat")
 616       (version (git-version "1.0" revision commit))
 617       (source
 618        (origin
 619          (method git-fetch)
 620          (uri (git-reference
 621                (url "https://github.com/jaseg/lolcat.git")
 622                (commit commit)))
 623          (sha256
 624           (base32
 625            "0jjbkqcc2ikjxd1xgdyv4rb0vsw218181h89f2ywg29ffs3ypd8g"))
 626          (file-name (git-file-name name version))))
 627       (build-system gnu-build-system)
 628       (arguments
 629        `(#:tests? #f                    ; no check target
 630          #:make-flags
 631          (list ,(string-append "CC=" (cc-for-target)))
 632          #:phases
 633          (modify-phases %standard-phases
 634            (delete 'bootstrap)
 635            (delete 'configure)
 636            (replace 'install
 637              (lambda* (#:key outputs #:allow-other-keys)
 638                (let* ((out  (assoc-ref outputs "out"))
 639                       (dest (string-append out "/bin")))
 640                  (mkdir-p dest)
 641                  (install-file "lolcat" dest)
 642                  (install-file "censor" dest)
 643                  #t))))))
 644       (home-page "https://github.com/jaseg/lolcat")
 645       (synopsis "Rainbow coloring effect for text console display")
 646       (description "@command{lolcat} concatenates files and streams like
 647 regular @command{cat}, but it also adds terminal escape codes between
 648 characters and lines resulting in a rainbow effect.")
 649       (license license:wtfpl2))))
 650
 651 (define-public foobillard++
 652   ;; Even though this latest revision is old already, stable release is
 653   ;; lagging way behind it, and has issues with textures rendering.
 654   (let ((svn-revision 170))
 655     (package
 656       (name "foobillard++")
 657       (version (string-append "3.43-r" (number->string svn-revision)))
 658       (source
 659        (origin
 660          (method svn-fetch)
 661          (uri (svn-reference
 662                (url "svn://svn.code.sf.net/p/foobillardplus/code/")
 663                (revision svn-revision)))
 664          (file-name (git-file-name name version))
 665          (sha256
 666           (base32 "00b693ys5zvzjbjzzj3dqfzm5xw64gwjf9m8qv6bkmf0klbhmayk"))
 667          (patches
 668           (search-patches "foobillard++-pkg-config.patch"))
 669          (modules '((guix build utils)))
 670          (snippet
 671           '(begin
 672              ;; Unfortunately, the game includes background music with
 673              ;; a non-commercial clause.  Delete it.
 674              (for-each delete-file (find-files "data/music" "\\.ogg$"))
 675              #t))))
 676       (build-system gnu-build-system)
 677       (arguments
 678        `(#:configure-flags
 679          (list
 680           ;; Install data in a less exotic location.
 681           (string-append "--prefix=" (assoc-ref %outputs "out") "/share")
 682           ;; Prevent a build error about undefined trigonometric functions.
 683           "--enable-fastmath=no")
 684          #:phases
 685          (modify-phases %standard-phases
 686            (add-after 'unpack 'fix-makefile
 687              ;; Remove hard-coded directories.  Also fix installation
 688              ;; rule: it tries to move around non-existent files or
 689              ;; files already moved.
 690              (lambda* (#:key outputs #:allow-other-keys)
 691                (substitute* "Makefile.am"
 692                  (("/usr") (assoc-ref outputs "out"))
 693                  (("cp .*?/foobillardplus\\.desktop.*") "")
 694                  (("cp .*?/foobillardplus\\.(png|xbm) \\$\\(datarootdir\\).*")
 695                   ""))
 696                #t))
 697            (add-after 'unpack 'unbundle-font
 698              ;; XXX: The package ships with LinBiolinum_aSB.ttf and
 699              ;; LinBiolinum_aS.ttf, which are not provided by
 700              ;; `font-linuxlibertine' package.  Therefore, we cannot replace
 701              ;; them yet.
 702              (lambda* (#:key inputs #:allow-other-keys)
 703                (let ((dejavu (string-append (assoc-ref inputs "font-dejavu")
 704                                             "/share/fonts/truetype/")))
 705                  (with-directory-excursion "data"
 706                    (for-each (lambda (f)
 707                                (delete-file f)
 708                                (symlink (string-append dejavu f) f))
 709                              '("DejaVuSans-Bold.ttf" "DejaVuSans.ttf"))))
 710                #t))
 711            (replace 'bootstrap
 712              (lambda _
 713                (invoke "aclocal" "--force")
 714                (invoke "autoconf" "-f")
 715                (invoke "autoheader" "-f")
 716                (invoke "automake" "-a" "-c" "-f")))
 717            (add-before 'build 'prepare-build
 718              ;; Set correct environment for SDL.
 719              (lambda* (#:key inputs #:allow-other-keys)
 720                (setenv "CPATH"
 721                        (string-append (assoc-ref inputs "sdl")
 722                                       "/include/SDL:"
 723                                       (or (getenv "CPATH") "")))
 724                #t))
 725            (add-before 'build 'fix-settings-directory
 726              ;; Hide foobillardplus settings directory in $HOME.
 727              (lambda _
 728                (substitute* "src/history.c"
 729                  (("/foobillardplus-data") "/.foobillardplus"))
 730                #t))
 731            (add-before 'install 'create-directories
 732              ;; Install process does not create directories before
 733              ;; trying to move file in it.
 734              (lambda* (#:key outputs #:allow-other-keys)
 735                (let ((out (assoc-ref outputs "out")))
 736                  (mkdir-p (string-append out "/share/icons"))
 737                  (mkdir-p (string-append out "/share/applications")))
 738                #t))
 739            (add-after 'install 'symlink-executable
 740              ;; Symlink executable to $out/bin.
 741              (lambda* (#:key outputs #:allow-other-keys)
 742                (let* ((out (assoc-ref outputs "out"))
 743                       (bin (string-append out "/bin")))
 744                  (mkdir-p bin)
 745                  (with-directory-excursion bin
 746                    (symlink "../share/foobillardplus/bin/foobillardplus"
 747                             "foobillardplus"))
 748                  #t))))))
 749       (native-inputs
 750        `(("autoconf" ,autoconf)
 751          ("automake" ,automake)
 752          ("pkg-config" ,pkg-config)))
 753       (inputs
 754        `(("font-dejavu" ,font-dejavu)
 755          ("freetype" ,freetype)
 756          ("glu" ,glu)
 757          ("libpng" ,libpng)
 758          ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net)))))
 759       (home-page "http://foobillardplus.sourceforge.net/")
 760       (synopsis "3D billiard game")
 761       (description "FooBillard++ is an advanced 3D OpenGL billiard game
 762 based on the original foobillard 3.0a sources from Florian Berger.
 763 You can play it with one or two players or against the computer.
 764
 765 The game features:
 766
 767 @itemize
 768 @item Wood paneled table with gold covers and gold diamonds.
 769 @item Reflections on balls.
 770 @item Zoom in and out, rotation, different angles and bird's eye view.
 771 @item Different game modes: 8 or 9-ball, Snooker or Carambole.
 772 @item Tournaments.  Compete against other players.
 773 @item Animated cue with strength and eccentric hit adjustment.
 774 @item Jump shots and snipping.
 775 @item Realistic gameplay and billiard sounds.
 776 @item Red-Green stereo.
 777 @item And much more.
 778 @end itemize")
 779       (license (list license:gpl2 license:silofl1.1)))))
 780
 781 (define-public freedoom
 782   (package
 783     (name "freedoom")
 784     (version "0.12.1")
 785     (source
 786      (origin
 787        (method git-fetch)
 788        (uri (git-reference
 789              (url "https://github.com/freedoom/freedoom.git")
 790              (commit (string-append "v" version))))
 791        (file-name (git-file-name name version))
 792        (sha256
 793         (base32 "1mq60lfwaaxmch7hsz8403pwafnlsmsd5z2df2j77ppwndwcrypb"))))
 794     (build-system gnu-build-system)
 795     (arguments
 796      '(#:make-flags
 797        (list (string-append "prefix=" (assoc-ref %outputs "out")))
 798        #:tests? #f                      ; no check target
 799        #:phases
 800        (modify-phases %standard-phases
 801          (delete 'bootstrap)
 802          (replace 'configure
 803            (lambda* (#:key inputs outputs #:allow-other-keys)
 804              (let* ((freedoom (assoc-ref outputs "out"))
 805                     (wad-dir (string-append freedoom "/share/games/doom")))
 806                ;; Make sure that the install scripts know where to find
 807                ;; the appropriate WAD files.
 808                (substitute* "dist/freedoom"
 809                  (("IWAD=freedm.wad")
 810                   (string-append "IWAD=" wad-dir "/freedm.wad"))
 811                  (("IWAD=freedoom1.wad")
 812                   (string-append "IWAD=" wad-dir "/freedoom1.wad"))
 813                  (("IWAD=freedoom2.wad")
 814                   (string-append "IWAD=" wad-dir "/freedoom2.wad")))
 815                #t))))))
 816     (native-inputs
 817      `(("asciidoc" ,asciidoc)
 818        ("deutex" ,deutex)
 819        ("python" ,python)
 820        ("python-pillow" ,python-pillow)))
 821     (home-page "https://freedoom.github.io/")
 822     (synopsis "Free content game based on the Doom engine")
 823     (native-search-paths
 824      (list (search-path-specification
 825             (variable "DOOMWADDIR")
 826             (files '("share/games/doom")))
 827            (search-path-specification
 828             (variable "DOOMWADPATH")
 829             (files '("share/games/doom")))))
 830     (description
 831      "The Freedoom project aims to create a complete free content first person
 832 shooter game.  Freedoom by itself is just the raw material for a game: it must
 833 be paired with a compatible game engine (such as @code{prboom-plus}) to be
 834 played.  Freedoom complements the Doom engine with free levels, artwork, sound
 835 effects and music to make a completely free game.")
 836     (license license:bsd-3)))
 837
 838 (define-public freedroidrpg
 839   (package
 840     (name "freedroidrpg")
 841     (version "0.16.1")
 842     (source
 843      (origin
 844        (method url-fetch)
 845        (uri (string-append "http://ftp.osuosl.org/pub/freedroid/"
 846                            "freedroidRPG-" (version-major+minor version) "/"
 847                            "freedroidRPG-" version ".tar.gz"))
 848        (sha256
 849         (base32 "0n4kn38ncmcy3lrxmq8fjry6c1z50z4q1zcqfig0j4jb0dsz2va2"))))
 850     (build-system gnu-build-system)
 851     (arguments
 852      `(#:configure-flags
 853        (list
 854         (string-append "CFLAGS="
 855                        "-I" (assoc-ref %build-inputs "sdl-gfx") "/include/SDL "
 856                        "-I" (assoc-ref %build-inputs "sdl-image") "/include/SDL "
 857                        "-I" (assoc-ref %build-inputs "sdl-mixer") "/include/SDL")
 858         "--enable-opengl")
 859        ;; FIXME: the test suite fails with the following error output:
 860        ;;   4586 Segmentation fault      env SDL_VIDEODRIVER=dummy \
 861        ;;   SDL_AUDIODRIVER=dummy ./src/freedroidRPG -nb text
 862        #:tests? #f))
 863     (native-inputs
 864      `(("pkg-config" ,pkg-config)))
 865     (inputs
 866      `(("glu" ,glu)
 867        ("libjpeg" ,libjpeg-turbo)
 868        ("libogg" ,libogg)
 869        ("libpng" ,libpng)
 870        ("libvorbis" ,libvorbis)
 871        ("mesa" ,mesa)
 872        ("python" ,python-wrapper)
 873        ("sdl" ,sdl)
 874        ("sdl-gfx" ,sdl-gfx)
 875        ("sdl-image" ,sdl-image)
 876        ("sdl-mixer" ,sdl-mixer)
 877        ("zlib" ,zlib)))
 878     (home-page "http://www.freedroid.org/")
 879     (synopsis "Isometric role-playing game against killer robots")
 880     (description
 881      "Freedroid RPG is an @dfn{RPG} (Role-Playing Game) with isometric graphics.
 882 The game tells the story of a world destroyed by a conflict between robots and
 883 their human masters.  To restore peace to humankind, the player must complete
 884 numerous quests while fighting off rebelling robots---either by taking control
 885 of them, or by simply blasting them to pieces with melee and ranged weapons in
 886 real-time combat.")
 887     (license (list license:expat        ; lua/
 888                    license:gpl3         ; src/gen_savestruct.py
 889                    license:gpl2+))))    ; the rest
 890
 891 (define-public golly
 892   (package
 893     (name "golly")
 894     (version "3.3")
 895     (source (origin
 896               (method url-fetch)
 897               (uri (string-append "mirror://sourceforge/golly/golly/golly-"
 898                                   version "/golly-" version
 899                                   "-src.tar.gz"))
 900               (sha256
 901                (base32
 902                 "1j3ksnar4rdam4xiyspgyrs1pifbvxfxkrn65brkwxpx39mpgzc8"))))
 903     (build-system gnu-build-system)
 904     (arguments
 905      '(#:make-flags (list "CC=gcc"
 906                           (string-append "GOLLYDIR="
 907                                          (assoc-ref %outputs "out")
 908                                          "/share/golly"))
 909        #:tests? #f ; no check target
 910        #:phases
 911        (modify-phases %standard-phases
 912          (replace 'configure
 913            (lambda* (#:key inputs #:allow-other-keys)
 914              ;; For some reason, setting the PYTHON_SHLIB make flag doesn't
 915              ;; properly set the path to the Python shared library. This
 916              ;; substitution acheives the same end by different means.
 917              (substitute* "gui-wx/wxprefs.cpp"
 918                (("pythonlib = wxT\\(STRINGIFY\\(PYTHON_SHLIB\\)\\)")
 919                 (string-append "pythonlib = \""
 920                                (assoc-ref inputs "python")
 921                                "/lib/libpython-2.7.so\"")))
 922              #t))
 923          (replace 'build
 924            (lambda* (#:key make-flags outputs #:allow-other-keys)
 925              (with-directory-excursion "gui-wx"
 926                (apply invoke `("make" ,@make-flags "-f" "makefile-gtk")))))
 927          (replace 'install
 928            (lambda* (#:key outputs #:allow-other-keys)
 929              (let* ((out (assoc-ref outputs "out"))
 930                     (bin (string-append out "/bin"))
 931                     (doc (string-append out "/share/doc/golly"))
 932                     (pixmaps (string-append out "/share/pixmaps"))
 933                     (share (string-append out "/share/golly")))
 934                (for-each (lambda (binary)
 935                            (install-file binary bin))
 936                          '("bgolly" "golly"))
 937                (for-each (lambda (document)
 938                            (install-file
 939                             (string-append "docs/" document ".html")
 940                             doc))
 941                          '("License" "ReadMe" "ToDo"))
 942                (install-file "gui-wx/icons/appicon.xpm" pixmaps)
 943                (for-each (lambda (folder)
 944                            (copy-recursively
 945                             folder
 946                             (string-append share "/" folder)))
 947                          '("Help" "Patterns" "Rules" "Scripts")))
 948              #t)))))
 949     (native-inputs
 950      `(("lua" ,lua)))
 951     (inputs
 952      `(("glu" ,glu)
 953        ("mesa" ,mesa)
 954        ("python" ,python-2)
 955        ("wxwidgets" ,wxwidgets-gtk2)
 956        ("zlib" ,zlib)))
 957     (home-page "http://golly.sourceforge.net/")
 958     (synopsis "Software for exploring cellular automata")
 959     (description
 960      "Golly simulates Conway's Game of Life and many other types of cellular
 961 automata.  The following features are available:
 962 @enumerate
 963 @item Support for bounded and unbounded universes, with cells of up to 256
 964   states.
 965 @item Support for multiple algorithms, including Bill Gosper's Hashlife
 966   algorithm.
 967 @item Loading patterns from BMP, PNG, GIF and TIFF image files.
 968 @item Reading RLE, macrocell, Life 1.05/1.06, dblife and MCell files.
 969 @item Scriptable via Lua or Python.
 970 @item Extracting patterns, rules and scripts from zip files.
 971 @item Downloading patterns, rules and scripts from online archives.
 972 @item Pasting patterns from the clipboard.
 973 @item Unlimited undo/redo.
 974 @item Configurable keyboard shortcuts.
 975 @item Auto fit option to keep patterns within the view.
 976 @end enumerate")
 977     (license license:gpl2+)))
 978
 979 (define-public julius
 980   (package
 981     (name "julius")
 982     (version "1.4.0")
 983     (source
 984      (origin
 985        (method git-fetch)
 986        (uri (git-reference
 987              (url "https://github.com/bvschaik/julius.git")
 988              (commit (string-append "v" version))))
 989        (file-name (git-file-name name version))
 990        (sha256
 991         (base32 "01rygr592ar530qv1flmaiq8icl0qdxgc8lhkcdyn1g09941z47v"))
 992        ;; Remove unused bundled libraries.
 993        (modules '((guix build utils)))
 994        (snippet
 995         '(begin
 996            (with-directory-excursion "ext"
 997              (for-each delete-file-recursively '("dirent" "png" "SDL2" "zlib")))
 998            #t))))
 999     (build-system cmake-build-system)
1000     (inputs
1001      `(("libpng" ,libpng)
1002        ("sdl2" ,sdl2)
1003        ("sdl2-mixer" ,sdl2-mixer)))
1004     (home-page "https://github.com/bvschaik/julius")
1005     (synopsis "Re-implementation of Caesar III game engine")
1006     (description
1007      "Engine for Caesar III, a city-building real-time strategy game.
1008 Julius includes some UI enhancements while preserving the logic (including
1009 bugs) of the original game, so that saved games are compatible.  This package
1010 does not include game data.")
1011     (license (list license:agpl3
1012                    license:zlib))))     ; ext/tinyfiledialogs
1013
1014 (define-public meandmyshadow
1015   (package
1016     (name "meandmyshadow")
1017     (version "0.5a")
1018     (source (origin
1019               (method url-fetch)
1020               (uri (string-append "mirror://sourceforge/meandmyshadow/"
1021                                   version "/meandmyshadow-" version
1022                                   "-src.tar.gz"))
1023               (sha256
1024                (base32
1025                 "0i98v6cgmpsxy7mbb0s2y6f6qq6mkwzk2nrv1nz39ncf948aky2h"))))
1026     (build-system cmake-build-system)
1027     (arguments
1028      `(#:tests? #f))                    ; there are no tests
1029     (native-inputs
1030      `(("pkg-config" ,pkg-config)))
1031     (inputs
1032      `(("curl" ,curl)
1033        ("libarchive" ,libarchive)
1034        ("lua" ,lua)
1035        ("sdl" ,(sdl-union (list sdl2
1036                                 sdl2-image
1037                                 sdl2-mixer
1038                                 sdl2-ttf)))))
1039     (home-page "https://acmepjz.github.io/meandmyshadow/")
1040     (synopsis "Puzzle/platform game")
1041     (description "Me and My Shadow is a puzzle/platform game in which you try
1042 to reach the exit by solving puzzles.  Spikes, moving blocks, fragile blocks
1043 and much more stand between you and the exit.  Record your moves and let your
1044 shadow mimic them to reach blocks you couldn't reach alone.")
1045     (license license:gpl3+)))
1046
1047 (define-public opensurge
1048   (package
1049     (name "opensurge")
1050     (version "0.5.1.2")
1051     (source
1052      (origin
1053        (method git-fetch)
1054        (uri (git-reference
1055              (url "https://github.com/alemart/opensurge.git")
1056              (commit (string-append "v" version))))
1057        (file-name (git-file-name name version))
1058        (sha256
1059         (base32 "0ih7hlqjnp9rv0m4lqf7c0s1ai532way5i4pk45jq1gqm8325dbv"))))
1060     (build-system cmake-build-system)
1061     (arguments
1062      `(#:tests? #f                      ;there are no tests
1063        #:configure-flags
1064        (let* ((out (assoc-ref %outputs "out"))
1065               (share (string-append out "/share")))
1066          (list (string-append "-DCMAKE_INSTALL_PREFIX=" out "/bin")
1067                (string-append "-DGAME_DATADIR=" share "/" ,name)
1068                (string-append "-DDESKTOP_ENTRY_PATH=" share "/applications")
1069                (string-append "-DDESKTOP_ICON_PATH=" share "/pixmaps")
1070                (string-append "-DDESKTOP_METAINFO_PATH=" share "/metainfo")))
1071        #:phases
1072        (modify-phases %standard-phases
1073          (add-after 'unpack 'fix-xdg-open-path
1074            (lambda* (#:key inputs #:allow-other-keys)
1075              ;; Look for xdg-open in the store.
1076              (substitute* "src/core/web.c"
1077                (("/usr(/bin/xdg-open)" _ bin)
1078                 (string-append (assoc-ref inputs "xdg-utils") bin)))
1079              #t))
1080          (add-after 'unpack 'unbundle-fonts
1081            (lambda* (#:key inputs #:allow-other-keys)
1082              ;; Replace bundled Roboto fonts with links to the store.
1083              (with-directory-excursion "fonts"
1084                (let ((roboto-dir (string-append
1085                                   (assoc-ref inputs "font-google-roboto")
1086                                   "/share/fonts/truetype/")))
1087                  (for-each
1088                   (lambda (font)
1089                     (delete-file font)
1090                     (symlink (string-append roboto-dir font) font))
1091                   '("Roboto-Black.ttf" "Roboto-Bold.ttf" "Roboto-Medium.ttf")))
1092                #t))))))
1093     (inputs
1094      `(("allegro" ,allegro)
1095        ("font-google-roboto" ,font-google-roboto)
1096        ("surgescript" ,surgescript)
1097        ("xdg-utils" ,xdg-utils)))
1098     (home-page "https://opensurge2d.org")
1099     (synopsis "2D retro side-scrolling game")
1100     (description "@code{Open Surge} is a 2D retro side-scrolling platformer
1101 inspired by the Sonic games.  The player runs at high speeds through each
1102 level while collecting items and avoiding obstacles.  The game includes a
1103 built-in level editor.")
1104     (license
1105      ;; Code is under GPL 3+, assets are under various licenses.
1106      ;; See src/misc/credits.c for details.
1107      (list license:gpl3+
1108            license:cc0
1109            license:cc-by3.0
1110            license:cc-by-sa3.0
1111            license:expat
1112            license:public-domain
1113            license:silofl1.1))))
1114
1115 (define-public knights
1116   (package
1117     (name "knights")
1118     (version "025")
1119     (source (origin
1120               (method url-fetch)
1121               (uri (string-append "http://www.knightsgame.org.uk/files/knights_"
1122                                   version "_src.tar.gz"))
1123               (sha256
1124                (base32
1125                 "18vp2ygvn0s0jz8rm585jqf6hjqkam1ximq81k0r9hpmfj7wb88f"))))
1126     (build-system gnu-build-system)
1127     (arguments
1128      '(#:make-flags
1129        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1130        #:phases
1131        (modify-phases %standard-phases
1132          ;; No configure script.
1133          (delete 'configure))
1134        #:tests? #f)) ;; No check target.
1135     (inputs
1136      `(("boost" ,boost)
1137        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
1138        ("freetype" ,freetype)
1139        ("fontconfig" ,fontconfig)
1140        ("curl" ,curl)))
1141     (native-inputs
1142      `(("pkg-config" ,pkg-config)))
1143     (home-page "http://www.knightsgame.org.uk/")
1144     (synopsis "Multiplayer dungeon game involving knights and quests")
1145     (description "Knights is a multiplayer game involving several knights who
1146 must run around a dungeon and complete various quests.  Each game revolves
1147 around a quest – for example, you might have to find some items and carry them
1148 back to your starting point.  This may sound easy, but as there are only
1149 enough items in the dungeon for one player to win, you may end up having to
1150 kill your opponents to get their stuff!  Other quests involve escaping from
1151 the dungeon, fighting a duel to the death against the enemy knights, or
1152 destroying an ancient book using a special wand.")
1153     ;; This package includes modified sources of lua (X11), enet (Expat), and
1154     ;; guichan (BSD-3).  The "Coercri" library is released under the Boost
1155     ;; license.  The whole package is released under GPLv3+.
1156     (license license:gpl3+)))
1157
1158 (define-public gnome-chess
1159   (package
1160     (name "gnome-chess")
1161     (version "3.36.0")
1162     (source (origin
1163               (method url-fetch)
1164               (uri (string-append "mirror://gnome/sources/" name "/"
1165                                   (version-major+minor version)  "/"
1166                                   name "-" version ".tar.xz"))
1167               (sha256
1168                (base32
1169                 "1a9fgi749gy1f60vbcyrqqkab9vqs42hji70q73k1xx8rv0agmg0"))))
1170     (build-system meson-build-system)
1171     (arguments
1172      '(#:glib-or-gtk? #t
1173        #:phases
1174        (modify-phases %standard-phases
1175          (add-after 'unpack 'skip-gtk-update-icon-cache
1176            ;; Don't create 'icon-theme.cache'.
1177            (lambda _
1178              (substitute* "meson_post_install.py"
1179                (("gtk-update-icon-cache") "true"))
1180              #t)))))
1181     (inputs
1182      `(("gtk+" ,gtk+)
1183        ("librsvg" ,librsvg)))
1184     (native-inputs
1185      `(("gettext" ,gettext-minimal)
1186        ("glib:bin" ,glib "bin") ; for desktop-file-validate and appstream-util
1187        ("itstool" ,itstool)
1188        ("pkg-config" ,pkg-config)
1189        ("vala" ,vala)))
1190     (home-page "https://wiki.gnome.org/Apps/Chess")
1191     (synopsis "Chess board for GNOME")
1192     (description "GNOME Chess provides a 2D board for playing chess games
1193 against human or computer players.  It supports loading and saving games in
1194 Portable Game Notation.  To play against a computer, install a chess engine
1195 such as chess or stockfish.")
1196     (license license:gpl3+)))
1197
1198 (define-public gnubg
1199   (package
1200     (name "gnubg")
1201     (version "1.06.002")
1202     (source
1203      (origin
1204        (method url-fetch)
1205        (uri (string-append "mirror://gnu/gnubg/gnubg-release-"
1206                            version "-sources.tar.gz"))
1207        (sha256
1208         (base32
1209          "11xwhcli1h12k6rnhhyq4jphzrhfik7i8ah3k32pqw803460n6yf"))))
1210     (build-system gnu-build-system)
1211     (inputs `(;; XXX: Build with an older Pango for 'pango_font_get_hb_font' and
1212               ;; 'pango_coverage_get_type'.  Try removing this for versions > 1.06.002.
1213               ("pango" ,pango-1.42)
1214
1215               ("glib" ,glib)
1216               ("readline" ,readline)
1217               ("gtk+" ,gtk+-2)
1218               ("mesa" ,mesa)
1219               ("glu" ,glu)
1220               ("gtkglext" ,gtkglext)
1221               ("sqlite" ,sqlite)
1222               ("libcanberra" ,libcanberra)))
1223     (native-inputs `(("python-2" ,python-2)
1224                      ("pkg-config" ,pkg-config)))
1225     (arguments
1226      `(#:phases
1227        (modify-phases %standard-phases
1228          (add-after 'install 'install-desktop-file
1229            (lambda* (#:key outputs #:allow-other-keys)
1230              (let* ((out (assoc-ref outputs "out"))
1231                     (apps (string-append out "/share/applications")))
1232                (mkdir-p apps)
1233                (with-output-to-file (string-append apps "/gnubg.desktop")
1234                  (lambda _
1235                    (format #t
1236                            "[Desktop Entry]~@
1237                             Name=GNU Backgammon~@
1238                             Exec=~a/bin/gnubg -w~@
1239                             Icon=gnubg~@
1240                             Categories=Game;~@
1241                             Terminal=false~@
1242                             Type=Application~%"
1243                            out))))
1244              #t)))))
1245     (home-page "https://www.gnu.org/software/gnubg/")
1246     (synopsis "Backgammon game")
1247     (description "The GNU backgammon application (also known as \"gnubg\") can
1248 be used for playing, analyzing and teaching the game.  It has an advanced
1249 evaluation engine based on artificial neural networks suitable for both
1250 beginners and advanced players.  In addition to a command-line interface, it
1251 also features an attractive, 3D representation of the playing board.")
1252     (license license:gpl3+)))
1253
1254 (define-public gnubik
1255   (package
1256     (name "gnubik")
1257     (version "2.4.3")
1258     (source
1259      (origin
1260       (method url-fetch)
1261       (uri (string-append "mirror://gnu/gnubik/gnubik-"
1262                           version ".tar.gz"))
1263       (sha256
1264        (base32
1265         "1vlf924mq8hg93bsjj0rzvs0crc6psmlxyc6zn0fr7msnmpx6gib"))))
1266     (build-system gnu-build-system)
1267     (arguments
1268      '(#:phases (modify-phases %standard-phases
1269                   (add-after 'unpack 'skip-gtk-update-icon-cache
1270                     (lambda _
1271                       ;; Do not attempt to run 'gtk-update-icon-cache', which is
1272                       ;; unnecessary and causes a needless dependency on glib.
1273                       (substitute* "Makefile.in"
1274                         (("gtk-update-icon-cache")
1275                          "true"))
1276                       #t)))))
1277     (inputs `(("gtk+" ,gtk+-2)
1278               ("mesa" ,mesa)
1279               ("glu" ,glu)
1280               ("libx11" ,libx11)
1281               ("guile" ,guile-2.0)
1282               ("gtkglext" ,gtkglext)))
1283     (native-inputs `(("gettext" ,gettext-minimal)
1284                      ("pkg-config" ,pkg-config)))
1285     (home-page "https://www.gnu.org/software/gnubik/")
1286     (synopsis "3d Rubik's cube game")
1287     (description
1288      "GNUbik is a puzzle game in which you must manipulate a cube to make
1289 each of its faces have a uniform color.  The game is customizable, allowing
1290 you to set the size of the cube (the default is 3x3) or to change the colors.
1291 You may even apply photos to the faces instead of colors.  The game is
1292 scriptable with Guile.")
1293     (license license:gpl3+)))
1294
1295 (define-public gnushogi
1296   (package
1297     (name "gnushogi")
1298     (version "1.4.2")
1299     (source
1300      (origin
1301       (method url-fetch)
1302       (uri (string-append "mirror://gnu/gnushogi/gnushogi-"
1303                           version ".tar.gz"))
1304       (sha256
1305        (base32
1306         "0a9bsl2nbnb138lq0h14jfc5xvz7hpb2bcsj4mjn6g1hcsl4ik0y"))))
1307     (arguments `(#:tests? #f)) ;; No check target.
1308     (build-system gnu-build-system)
1309     (home-page "https://www.gnu.org/software/gnushogi/")
1310     (synopsis "The game of Shogi (Japanese chess)")
1311     (description  "GNU Shogi is a program that plays the game Shogi (Japanese
1312 Chess).  It is similar to standard chess but this variant is far more complicated.")
1313     (license license:gpl3+)))
1314
1315 (define-public ltris
1316   (package
1317     (name "ltris")
1318     (version "1.0.19")
1319     (source
1320      (origin
1321        (method url-fetch)
1322        (uri (string-append "http://prdownloads.sourceforge.net/lgames/"
1323                            "ltris-" version ".tar.gz"))
1324        (sha256
1325         (base32
1326          "1895wv1fqklrj4apkz47rnkcfhfav7zjknskw6p0886j35vrwslg"))))
1327     (build-system gnu-build-system)
1328     (arguments
1329      '(;; The code in LTris uses traditional GNU semantics for inline functions
1330        #:configure-flags '("CFLAGS=-fgnu89-inline")
1331        #:phases
1332        (modify-phases %standard-phases
1333          (add-after 'set-paths 'set-sdl-paths
1334            (lambda* (#:key inputs #:allow-other-keys)
1335              (setenv "CPATH"
1336                      (string-append (assoc-ref inputs "sdl-union")
1337                                     "/include/SDL:"
1338                                     (or (getenv "CPATH") "")))
1339              #t)))))
1340     (inputs
1341      `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))))
1342     (home-page "http://lgames.sourceforge.net/LTris/")
1343     (synopsis "Tetris clone based on the SDL library")
1344     (description
1345      "LTris is a tetris clone: differently shaped blocks are falling down the
1346 rectangular playing field and can be moved sideways or rotated by 90 degree
1347 units with the aim of building lines without gaps which then disappear (causing
1348 any block above the deleted line to fall down).  LTris has three game modes: In
1349 Classic you play until the stack of blocks reaches the top of the playing field
1350 and no new blocks can enter.  In Figures the playing field is reset to a new
1351 figure each level and later on tiles and lines suddenly appear.  In Multiplayer
1352 up to three players (either human or CPU) compete with each other sending
1353 removed lines to all opponents.  There is also a Demo mode in which you can
1354 watch your CPU playing while enjoying a cup of tea!")
1355     (license license:gpl2+)))
1356
1357 (define-public nethack
1358   (package
1359     (name "nethack")
1360     (version "3.6.6")
1361     (source
1362       (origin
1363         (method url-fetch)
1364         (uri
1365          (string-append "https://www.nethack.org/download/" version "/nethack-"
1366                         (string-join (string-split version #\.) "") "-src.tgz"))
1367         (sha256
1368           (base32 "1liyckjp34j354qnxc1zn9730lh1p2dabrg1hap24z6xnqx0rpng"))))
1369     (native-inputs
1370       `(("bison" ,bison)
1371         ("flex" ,flex)))
1372     (inputs
1373       `(("ncurses" ,ncurses)
1374         ("less" ,less)))
1375     (build-system gnu-build-system)
1376     (arguments
1377       '(#:make-flags
1378         `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
1379         #:phases
1380         (modify-phases %standard-phases
1381           (add-before 'configure 'patch-paths
1382             (lambda _
1383               (substitute* "sys/unix/nethack.sh"
1384                 (("^ *cd .*$") ""))
1385               (substitute* "sys/unix/Makefile.utl"
1386                 (("^YACC *=.*$") "YACC = bison -y\n")
1387                 (("^LEX *=.*$") "LEX = flex\n")
1388                 (("^# CC = gcc") "CC = gcc"))
1389               (substitute* "sys/unix/hints/linux"
1390                 (("/bin/gzip") (string-append
1391                                  (assoc-ref %build-inputs "gzip")
1392                                  "/bin/gzip"))
1393                 (("^WINTTYLIB=.*") "WINTTYLIB=-lncurses"))
1394               (substitute* "include/config.h"
1395                 (("^.*define CHDIR.*$") "")
1396                 (("^/\\* *#*define *REPRODUCIBLE_BUILD *\\*/")
1397                  ;; Honor SOURCE_DATE_EPOCH.
1398                  "#define REPRODUCIBLE_BUILD"))
1399
1400               ;; Note: 'makedefs' rejects and ignores dates that are too old
1401               ;; or too new, so we must choose something reasonable here.
1402               (setenv "SOURCE_DATE_EPOCH" "1531865062")
1403
1404               (substitute* "sys/unix/Makefile.src"
1405                  (("^# CC = gcc") "CC = gcc"))
1406               #t))
1407           (replace 'configure
1408             (lambda _
1409               (let ((bash (string-append
1410                             (assoc-ref %build-inputs "bash")
1411                             "/bin/bash")))
1412                 (with-directory-excursion "sys/unix"
1413                   (substitute* "setup.sh" (("/bin/sh") bash))
1414                   (invoke bash "setup.sh" "hints/linux"))
1415                 #t)))
1416           (add-after 'install 'fixup-paths
1417             (lambda _
1418               (let* ((output (assoc-ref %outputs "out"))
1419                      (nethack-script (string-append output "/bin/nethack")))
1420                 (mkdir-p (string-append output "/games/lib/nethackuserdir"))
1421                 (for-each
1422                   (lambda (file)
1423                     (rename-file
1424                       (string-append output "/games/lib/nethackdir/" file)
1425                       (string-append output "/games/lib/nethackuserdir/"
1426                                      file)))
1427                   '("xlogfile" "logfile" "perm" "record" "save"))
1428                 (mkdir-p (string-append output "/bin"))
1429                 (call-with-output-file nethack-script
1430                   (lambda (port)
1431                     (format port "#!~a/bin/sh
1432 PATH=~a:$PATH
1433 if [ ! -d ~~/.config/nethack ]; then
1434   mkdir -p ~~/.config/nethack
1435   cp -r ~a/games/lib/nethackuserdir/* ~~/.config/nethack
1436   chmod -R +w ~~/.config/nethack
1437 fi
1438
1439 RUNDIR=$(mktemp -d)
1440
1441 cleanup() {
1442   rm -rf $RUNDIR
1443 }
1444 trap cleanup EXIT
1445
1446 cd $RUNDIR
1447 for i in ~~/.config/nethack/*; do
1448   ln -s $i $(basename $i)
1449 done
1450 for i in ~a/games/lib/nethackdir/*; do
1451   ln -s $i $(basename $i)
1452 done
1453 ~a/games/nethack"
1454                       (assoc-ref %build-inputs "bash")
1455                       (list->search-path-as-string
1456                         (list
1457                           (string-append
1458                             (assoc-ref %build-inputs "coreutils") "/bin")
1459                           (string-append
1460                             (assoc-ref %build-inputs "less") "/bin"))
1461                         ":")
1462                       output
1463                       output
1464                       output)))
1465                 (chmod nethack-script #o555)
1466                 #t)))
1467           (delete 'check))))
1468     (home-page "https://nethack.org")
1469     (synopsis "Classic dungeon crawl game")
1470     (description "NetHack is a single player dungeon exploration game that runs
1471 on a wide variety of computer systems, with a variety of graphical and text
1472 interfaces all using the same game engine.  Unlike many other Dungeons &
1473 Dragons-inspired games, the emphasis in NetHack is on discovering the detail of
1474 the dungeon and not simply killing everything in sight - in fact, killing
1475 everything in sight is a good way to die quickly.  Each game presents a
1476 different landscape - the random number generator provides an essentially
1477 unlimited number of variations of the dungeon and its denizens to be discovered
1478 by the player in one of a number of characters: you can pick your race, your
1479 role, and your gender.")
1480     (license
1481       (license:fsdg-compatible
1482         "https://nethack.org/common/license.html"))))
1483
1484 (define-public pipewalker
1485   (package
1486     (name "pipewalker")
1487     (version "0.9.4")
1488     (source
1489      (origin
1490        (method url-fetch)
1491        (uri (string-append "http://downloads.sourceforge.net/pipewalker/"
1492                            "pipewalker-" version ".tar.gz"))
1493        (sha256
1494         (base32 "1x46wgk0s55562pd96cxagxkn6wpgglq779f9b64ff1k3xzp3myn"))))
1495     (build-system gnu-build-system)
1496     (arguments
1497      `(#:configure-flags
1498        (list (string-append "--docdir=" (assoc-ref %outputs "out")
1499                             "/share/doc/" ,name "-" ,version))
1500        #:phases
1501        (modify-phases %standard-phases
1502          (add-after 'configure 'patch-docdir
1503            ;; Makefile.in ignores configure's ‘--docdir=...’ option.  Fix that.
1504            (lambda _
1505              (substitute* "Makefile"
1506                (("(pkgdocdatadir = ).*" _ assignment)
1507                 (string-append assignment "$(docdir)\n")))
1508              #t)))))
1509     (inputs
1510      `(("libpng" ,libpng)
1511        ("mesa" ,mesa)
1512        ("sdl" ,sdl)))
1513     (home-page "http://pipewalker.sourceforge.net/")
1514     (synopsis "Logical tile puzzle")
1515     (description
1516      "PipeWalker is a simple puzzle game with many diffent themes: connect all
1517 computers to one network server, bring water from a source to the taps, etc.
1518 The underlying mechanism is always the same: you must turn each tile in the
1519 grid in the right direction to combine all components into a single circuit.
1520 Every puzzle has a complete solution, although there may be more than one.")
1521     (license license:gpl3+)))
1522
1523 (define-public prboom-plus
1524   (package
1525    (name "prboom-plus")
1526    (version "2.5.1.4")
1527    (source (origin
1528             (method url-fetch)
1529             (uri (string-append "mirror://sourceforge/prboom-plus/prboom-plus/"
1530                                 version "/prboom-plus-" version ".tar.gz"))
1531             (sha256
1532              (base32 "151v6nign86m1a2vqz27krsccpc9m4d1jax4y43v2fa82wfj9qp0"))
1533             (modules '((guix build utils)))
1534             (snippet
1535              '(begin
1536                 (substitute* "src/version.c"
1537                   (("__DATE__") "")
1538                   (("__TIME__") ""))
1539                 #t))))
1540    (build-system gnu-build-system)
1541    (arguments
1542     '(#:configure-flags '("--disable-cpu-opt")
1543       #:make-flags `(,(string-append "gamesdir="
1544                                      (assoc-ref %outputs "out") "/bin"))
1545       #:phases
1546       (modify-phases %standard-phases
1547         (add-after 'set-paths 'set-sdl'paths
1548           (lambda* (#:key inputs #:allow-other-keys)
1549             (setenv "CPATH"
1550                     (string-append (assoc-ref inputs "sdl-union")
1551                                    "/include/SDL:"
1552                                    (or (getenv "CPATH") "")))
1553             #t)))))
1554    (inputs
1555     `(("fluidsynth" ,fluidsynth)
1556       ("glu" ,glu)
1557       ("libmad" ,libmad)
1558       ("libpng" ,libpng)
1559       ("libvorbis" ,libvorbis)
1560       ("pcre" ,pcre)
1561       ("portmidi" ,portmidi)
1562       ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net)))))
1563    (home-page "http://prboom-plus.sourceforge.net/")
1564    (synopsis "Version of the classic 3D shoot'em'up game Doom")
1565    (description
1566     "PrBoom+ is a Doom source port developed from the original PrBoom project.")
1567    (license license:gpl2+)))
1568
1569 (define-public retux
1570   (package
1571     (name "retux")
1572     (version "1.3.6")
1573     (source (origin
1574               (method url-fetch)
1575               (uri (string-append "mirror://savannah/retux/"
1576                                   (version-major+minor version) "/retux-"
1577                                   version "-src.tar.gz"))
1578               (sha256
1579                (base32
1580                 "01bidh4zisjp3nc436x0g85v60dvwb3ig37i7y01sa71j8fm4fmb"))))
1581     (build-system python-build-system)
1582     (arguments
1583      `(#:tests? #f ; no check target
1584        #:phases
1585        (modify-phases %standard-phases
1586          ;; no setup.py script
1587          (delete 'build)
1588          (replace 'install
1589            (lambda* (#:key outputs #:allow-other-keys)
1590              (let* ((out    (assoc-ref outputs "out"))
1591                     (bin    (string-append out "/bin"))
1592                     (data   (string-append out "/share/retux"))
1593                     (doc    (string-append out "/share/doc/retux")))
1594                (mkdir-p bin)
1595
1596                (substitute* "retux.py"
1597                  ;; Use the correct data directory.
1598                  (("os\\.path\\.join\\(os\\.path\\.dirname\\(__file__\\), \"data\"\\),")
1599                   (string-append "\"" data "\","))
1600                  ;; Use Python 3 so the patch-shebangs phase works properly.
1601                  ((".*python2.*") "#!/usr/bin/python3"))
1602
1603                (copy-file "retux.py" (string-append bin "/retux"))
1604
1605                (copy-recursively "data" data)
1606
1607                (install-file "COPYING" doc)
1608                #t))))))
1609     (inputs
1610      `(("python-sge-pygame" ,python-sge-pygame)
1611        ("python-six" ,python-six)
1612        ("python-xsge" ,python-xsge)))
1613     (home-page "http://retux.nongnu.org")
1614     (synopsis "Action platformer game")
1615     (description
1616      "ReTux is an action platformer loosely inspired by the Mario games,
1617 utilizing the art assets from the @code{SuperTux} project.")
1618     ;; GPL version 3 or later is the license for the code and some art.
1619     ;; The rest of the licenses are for the art exclusively, as listed in
1620     ;; data/LICENSES.
1621     (license (list license:cc0
1622                    license:cc-by3.0
1623                    license:cc-by-sa3.0
1624                    license:cc-by-sa4.0
1625                    license:gpl2+
1626                    license:gpl3+))))
1627
1628 (define-public roguebox-adventures
1629   (package
1630     (name "roguebox-adventures")
1631     (version "3.0.1")
1632     (source
1633      (origin
1634        (method url-fetch)
1635        (uri (string-append
1636              "http://download.tuxfamily.org/rba/RogueBoxAdventures_v"
1637              (string-join (string-split version #\.) "_") "_Source.zip"))
1638        (file-name (string-append name "-" version ".zip"))
1639        (sha256
1640         (base32
1641          "05zd03s5w9kcpklfgcggbaa6rwf59nm0q9vcj6gh9v2lh402k067"))))
1642     (build-system python-build-system)
1643     (arguments
1644      `(#:tests? #f ; no check target
1645        #:phases
1646        (modify-phases %standard-phases
1647          (replace 'unpack
1648            (lambda* (#:key source #:allow-other-keys)
1649              (and (invoke "unzip" source)
1650                   ;; The actual source is buried a few directories deep.
1651                   (chdir (string-append "RogueBoxAdventures_v"
1652                                         (string-join
1653                                          (string-split ,version #\.) "_")
1654                                         "_Source")))))
1655          ;; no setup.py script
1656          (replace 'build
1657            (lambda* (#:key outputs #:allow-other-keys)
1658              (let* ((out (assoc-ref outputs "out"))
1659                     (data (string-append
1660                            out "/share/games/roguebox-adventures")))
1661                ;; Use the correct data directory.
1662                (substitute* '("main.py" "LIB/getch.py" "LIB/getch_gcwz.py")
1663                  (("basic_path + os\\.sep + 'DATA'")
1664                   (string-append "'" data "'"))
1665                  (("^basic_path.*$")
1666                   (string-append "basic_path ='" data "'\n")))
1667                (substitute* "LIB/dialog.py"
1668                  (("d_path = os\\.path\\.dirname\\(.*\\)\\)")
1669                   (string-append "d_path = '" data "'")))
1670                (substitute* "LIB/gra_files.py"
1671                  (("basic_path = b_path\\.replace\\('/LIB',''\\)")
1672                   (string-append "basic_path ='" data "'\n")))
1673
1674                ;; The game must save in the user's home directory because
1675                ;; the store is read-only.
1676                (substitute* "main.py"
1677                  (("home_save = False") "home_save = True")
1678                  (("'icon_small.png'")
1679                   (string-append "'" data "/icon_small.png'"))))
1680              #t))
1681          (replace 'install
1682            (lambda* (#:key outputs #:allow-other-keys)
1683              (let* ((out (assoc-ref outputs "out"))
1684                     (bin (string-append out "/bin"))
1685                     (roguebox-adventures
1686                      (string-append bin "/roguebox-adventures"))
1687                     (data (string-append
1688                            out "/share/games/roguebox-adventures"))
1689                     (lib (string-append data "/LIB"))
1690                     (doc (string-append
1691                           out "/share/doc/roguebox-adventures")))
1692                (mkdir-p bin)
1693                (mkdir-p doc)
1694
1695                (for-each (lambda (file)
1696                            (copy-recursively file
1697                                              (string-append data "/" file)))
1698                          '("AUDIO" "FONT" "GRAPHIC" "LIB" "LICENSE"
1699                            "icon_big.png" "icon_small.png"))
1700                (for-each (lambda (file)
1701                            (chmod file #o555)
1702                            (install-file file lib))
1703                          '("main.py" "run.py"))
1704
1705                (copy-recursively "DOC" doc)
1706
1707                (call-with-output-file
1708                    roguebox-adventures
1709                  (lambda (p)
1710                    (format p "\
1711 #!~a
1712 export PYTHONPATH=~a/LIB:~a
1713 exec -a \"~a\" ~a \"$@\"\n"
1714                            (which "bash") data (getenv "PYTHONPATH")
1715                            (which "python3")
1716                            (string-append lib "/main.py"))))
1717                (chmod roguebox-adventures #o555))
1718              #t)))))
1719     (native-inputs
1720      `(("unzip" ,unzip)))
1721     (inputs
1722      `(("python-pygame" ,python-pygame)
1723        ("python-tmx" ,python-tmx)))
1724     (home-page "https://rogueboxadventures.tuxfamily.org")
1725     (synopsis "A classical roguelike/sandbox game")
1726     (description
1727      "RogueBox Adventures is a graphical roguelike with strong influences
1728 from sandbox games like Minecraft or Terraria.  The main idea of RogueBox
1729 Adventures is to offer the player a kind of roguelike toy-world.  This world
1730 can be explored and changed freely.")
1731     ;; The GPL3+ is for code, the rest are for art.
1732     (license (list license:cc0
1733                    license:cc-by3.0
1734                    license:gpl3+
1735                    license:silofl1.1))))
1736
1737 (define-public superstarfighter
1738   (package
1739     (name "superstarfighter")
1740     (version "0.6.4")
1741     (source
1742      (origin
1743        (method git-fetch)
1744        (uri (git-reference
1745              (url "https://github.com/notapixelstudio/superstarfighter.git")
1746              (commit (string-append "v" version))))
1747        (file-name (git-file-name name version))
1748        (sha256
1749         (base32 "1fly63yf5ls1xwm15if4lxwy67wi84k4gvjllljpykrl18vw2y0y"))))
1750     (build-system gnu-build-system)
1751     (arguments
1752      `(#:tests? #f                      ;there are no tests
1753        #:phases
1754        (modify-phases %standard-phases
1755          (replace 'configure
1756            (lambda _
1757              (chdir "godot")
1758              (setenv "HOME" (getcwd))
1759              (with-output-to-file "export_presets.cfg"
1760                (lambda ()
1761                  (display
1762                   "[preset.0]
1763 name=\"Guix\"
1764 platform=\"Linux/X11\"
1765 runnable=true
1766 [preset.0.options]")))
1767              #t))
1768          (replace 'build
1769            (lambda _
1770              (let ((godot (assoc-ref %build-inputs "godot-headless")))
1771                (invoke (string-append godot "/bin/godot_server")
1772                        "--export-pack" "Guix"
1773                        "superstarfighter.pck" "project.godot"))
1774              #t))
1775          (replace 'install
1776            (lambda* (#:key inputs outputs #:allow-other-keys)
1777              (let* ((out (assoc-ref outputs "out"))
1778                     (bin (string-append out "/bin"))
1779                     (share (string-append out "/share"))
1780                     (data (string-append share "/superstarfighter"))
1781                     (icons (string-append share "/icons/hicolor/256x256/apps")))
1782                (install-file "superstarfighter.pck" data)
1783                (mkdir-p bin)
1784                (call-with-output-file (string-append bin "/superstarfighter")
1785                  (lambda (port)
1786                    (format port
1787                            "#!/bin/sh~@
1788                             exec ~a/bin/godot --main-pack ~a/superstarfighter.pck~%"
1789                            (assoc-ref inputs "godot")
1790                            data)
1791                    (chmod port #o755)))
1792                (mkdir-p icons)
1793                (copy-file "icon.png" (string-append icons "/" ,name ".png"))
1794                (make-desktop-entry-file
1795                 (string-append share "/applications/" ,name ".desktop")
1796                 #:name "SuperStarfighter"
1797                 #:comment "Fast-paced arcade combat game"
1798                 #:exec ,name
1799                 #:icon ,name
1800                 #:categories '("Game" "ArcadeGame")))
1801              #t)))))
1802     (native-inputs
1803      `(("godot-headless" ,godot "headless")))
1804     (inputs
1805      `(("godot" ,godot)))
1806     (home-page "https://notapixel.itch.io/superstarfighter")
1807     (synopsis "Fast-paced local multiplayer arcade game")
1808     (description "In SuperStarfighter, up to four local players compete in a
1809 2D arena with fast-moving ships and missiles.  Different game types are
1810 available, as well as a single-player mode with AI-controlled ships.")
1811     (license (list license:expat         ; game
1812                    license:silofl1.1)))) ; fonts
1813
1814 (define-public xshogi
1815   (package
1816     (name "xshogi")
1817     (version "1.4.2")
1818     (source
1819      (origin
1820       (method url-fetch)
1821       (uri (string-append "mirror://gnu/gnushogi/xshogi-"
1822                           version ".tar.gz"))
1823       (sha256
1824        (base32
1825         "1dns0nhymak44by18sv48m4xb2skiwbi2i3nb9hl6w9iwd2i2brf"))))
1826     (build-system gnu-build-system)
1827     (inputs
1828      `(("libxaw" ,libxaw)
1829        ("libxt" ,libxt)))
1830     (home-page "https://www.gnu.org/software/gnushogi/")
1831     (synopsis "User interface for gnushogi")
1832     (description  "A graphical user interface for the package @code{gnushogi}.")
1833     ;; Contains a copy of GPLv3 but the licence notices simply
1834     ;; state "GNU General Public Licence" without specifying a version.
1835     (license license:gpl1+)))
1836
1837 (define-public abbaye
1838   (package
1839     (name "abbaye")
1840     (version "2.0.1")
1841     (source
1842      (origin
1843        (method git-fetch)
1844        (uri (git-reference
1845              (url "https://github.com/nevat/abbayedesmorts-gpl.git")
1846              (commit (string-append "v" version))))
1847        (file-name (git-file-name name version))
1848        (sha256
1849         (base32 "1pwqf7r9bqb2p3xrw9i7y8pgr1401fy3mnnqpb1qkhmdl3gqi9hb"))
1850        (modules '((guix build utils)))
1851        (snippet
1852         ;; Unbundle fonts.
1853         '(begin
1854            (delete-file-recursively "fonts")
1855            #t))))
1856     (build-system gnu-build-system)
1857     (arguments
1858      '(#:make-flags '("CC=gcc")
1859        #:phases (modify-phases %standard-phases
1860                   (add-after 'set-paths 'set-sdl-paths
1861                     (lambda* (#:key inputs #:allow-other-keys)
1862                       (setenv "CPATH"
1863                               (string-append (assoc-ref inputs "sdl-union")
1864                                              "/include/SDL:"
1865                                              (or (getenv "CPATH") "")))))
1866                   (add-after 'patch-source-shebangs 'patch-makefile
1867                     (lambda* (#:key outputs #:allow-other-keys)
1868                       ;; Replace /usr with package output directory.
1869                       (substitute* "Makefile"
1870                         (("/usr") (assoc-ref outputs "out")))))
1871                   (add-before 'install 'make-install-dirs
1872                     (lambda* (#:key outputs #:allow-other-keys)
1873                       (let ((prefix (assoc-ref outputs "out")))
1874                         ;; Create directories that the makefile assumes exist.
1875                         (mkdir-p (string-append prefix "/bin"))
1876                         (mkdir-p (string-append prefix "/share/applications"))
1877                         (mkdir-p (string-append prefix "/share/pixmaps")))))
1878                   ;; No configure script.
1879                   (delete 'configure))
1880        #:tests? #f)) ;; No check target.
1881     (native-inputs `(("pkg-config" ,pkg-config)))
1882     (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer)))))
1883     (home-page "https://github.com/nevat/abbayedesmorts-gpl")
1884     (synopsis "GNU/Linux port of the indie game \"l'Abbaye des Morts\"")
1885     (description "L'Abbaye des Morts is a 2D platform game set in 13th century
1886 France.  The Cathars, who preach about good Christian beliefs, were being
1887 expelled by the Catholic Church out of the Languedoc region in France.  One of
1888 them, called Jean Raymond, found an old church in which to hide, not knowing
1889 that beneath its ruins lay buried an ancient evil.")
1890     (license license:gpl3)))
1891
1892 (define-public angband
1893   (package
1894     (name "angband")
1895     (version "4.2.0")
1896     (source
1897      (origin
1898        (method url-fetch)
1899        (uri (string-append "http://rephial.org/downloads/"
1900                            (version-major+minor version)
1901                            "/angband-" version ".tar.gz"))
1902        (sha256
1903         (base32
1904          "0vdm1ymm28wawp94nl1p5q3lhc0k7cnn2kkvvrkfx962gif4kqfk"))
1905        (modules '((guix build utils)))
1906        (snippet
1907         ;; So, some of the sounds/graphics/tilesets are under different
1908         ;; licenses... some of them even nonfree!  This is a console-only
1909         ;; version of this package so we just remove them.
1910         ;; In the future, if someone tries to make a graphical variant of
1911         ;; this package, they can deal with that mess themselves. :)
1912         '(begin
1913            (for-each (lambda (subdir)
1914                        (let ((lib-subdir (string-append "lib/" subdir)))
1915                          (delete-file-recursively lib-subdir)))
1916                      '("fonts" "icons" "sounds" "tiles"))
1917            (substitute* "lib/Makefile"
1918              ;; And don't try to invoke makefiles in the directories we removed.
1919              (("gamedata customize help screens fonts tiles sounds icons user")
1920               "gamedata customize help screens user"))
1921            #t))))
1922     (build-system gnu-build-system)
1923     (arguments
1924      `(#:tests? #f                      ; no check target
1925        #:configure-flags (list (string-append "--bindir=" %output "/bin"))
1926        #:phases
1927        (modify-phases %standard-phases
1928          (replace 'bootstrap
1929            (lambda _
1930              (substitute* "acinclude.m4"
1931                (("ncursesw5-config") "ncursesw6-config"))
1932              (invoke "sh" "autogen.sh"))))))
1933     (native-inputs
1934      `(("autoconf" ,autoconf)
1935        ("automake" ,automake)))
1936     (inputs `(("ncurses" ,ncurses)))
1937     (home-page "http://rephial.org/")
1938     (synopsis "Dungeon exploration roguelike")
1939     (description "Angband is a Classic dungeon exploration roguelike.  Explore
1940 the depths below Angband, seeking riches, fighting monsters, and preparing to
1941 fight Morgoth, the Lord of Darkness.")
1942     (license license:gpl2)))
1943
1944 (define-public pingus
1945   (package
1946     (name "pingus")
1947     (version "0.7.6")
1948     (source
1949      (origin
1950        (method git-fetch)
1951        (uri (git-reference
1952               (url "https://gitlab.com/pingus/pingus.git")
1953               (commit (string-append "v" version))))
1954        (file-name (git-file-name name version))
1955        (sha256
1956         (base32
1957          "0wp06kcmknsnxz7bjnsndb8x062z7r23fb3yrnbfnj68qhz18y74"))
1958        (patches (search-patches "pingus-boost-headers.patch"
1959                                 "pingus-sdl-libs-config.patch"))
1960        (modules '((guix build utils)))
1961        (snippet
1962         '(begin
1963            (substitute* "src/pingus/screens/demo_session.cpp"
1964              (("#include <iostream>")
1965               ;; std::function moved to <functional> with C++ 11.
1966               ;; Remove this for versions newer than 0.7.6.
1967               "#include <iostream>\n#include <functional>"))
1968            #t))))
1969     (build-system gnu-build-system)
1970     (native-inputs `(("pkg-config" ,pkg-config)
1971                      ("scons-python2" ,scons-python2)))
1972     (inputs `(("sdl" ,sdl)
1973               ("sdl-image" ,sdl-image)
1974               ("sdl-mixer" ,sdl-mixer)
1975               ("mesa" ,mesa)
1976               ("glu" ,glu)
1977               ("libpng" ,libpng)
1978               ("boost" ,boost)))
1979     (arguments
1980      '(#:make-flags (list (string-append "PREFIX=" %output))
1981        #:tests? #f                      ; no check target
1982        #:phases
1983        (modify-phases %standard-phases
1984          (delete 'configure)))) ; no configure script
1985     (home-page "https://pingus.seul.org/")
1986     (synopsis "Lemmings clone")
1987     (description
1988      "Pingus is a free Lemmings-like puzzle game in which the player takes
1989 command of a bunch of small animals and has to guide them through levels.
1990 Since the animals walk on their own, the player can only influence them by
1991 giving them commands, like build a bridge, dig a hole, or redirect all animals
1992 in the other direction.  Multiple such commands are necessary to reach the
1993 level's exit.  The game is presented in a 2D side view.")
1994     ;; Some source files are under bsd-3 and gpl2+ licenses.
1995     (license license:gpl3+)))
1996
1997 (define-public talkfilters
1998   (package
1999     (name "talkfilters")
2000     (version "2.3.8")
2001     (source
2002      (origin
2003        (method url-fetch)
2004        (uri (string-append "http://www.hyperrealm.com/talkfilters/"
2005                            "talkfilters-" version  ".tar.gz"))
2006        (sha256
2007         (base32 "19nc5vq4bnkjvhk8srqddzhcs93jyvpm9r6lzjzwc1mgf08yg0a6"))))
2008     (build-system gnu-build-system)
2009     (home-page "https://www.gnu.org/software/talkfilters/")
2010     (synopsis "Convert English text to humorous dialects")
2011     (description "The GNU Talk Filters are programs that convert English text
2012 into stereotyped or otherwise humorous dialects.  The filters are provided as
2013 a C library, so they can easily be integrated into other programs.")
2014     (license license:gpl2+)))
2015
2016 (define-public cmatrix
2017   (package
2018     (name "cmatrix")
2019     (version "2.0")
2020     (source
2021      (origin
2022        (method git-fetch)
2023        (uri (git-reference
2024              (url "https://github.com/abishekvashok/cmatrix.git")
2025              (commit (string-append "v" version))))
2026        (file-name (git-file-name name version))
2027        (sha256
2028         (base32
2029          "1h9jz4m4s5l8c3figaq46ja0km1gimrkfxm4dg7mf4s84icmasbm"))))
2030     (build-system gnu-build-system)
2031     (native-inputs
2032      `(("autoconf" ,autoconf)
2033        ("automake" ,automake)))
2034     (arguments
2035      '(#:phases
2036        (modify-phases %standard-phases
2037          (replace 'configure
2038            (lambda* (#:key outputs #:allow-other-keys)
2039              ;; This old ‘configure’ script doesn't support
2040              ;; variables passed as arguments.
2041              (let ((out (assoc-ref outputs "out")))
2042                (setenv "CONFIG_SHELL" (which "bash"))
2043                (invoke "./configure"
2044                        (string-append "--prefix=" out))))))))
2045     (inputs `(("ncurses" ,ncurses)))
2046     (home-page "http://www.asty.org/cmatrix")
2047     (synopsis "Simulate the display from \"The Matrix\"")
2048     (description "CMatrix simulates the display from \"The Matrix\" and is
2049 based on the screensaver from the movie's website.  It works with terminal
2050 settings up to 132x300 and can scroll lines all at the same rate or
2051 asynchronously and at a user-defined speed.")
2052     (license license:gpl2+)))
2053
2054 (define-public chess
2055   (package
2056     (name "chess")
2057     (version "6.2.7")
2058     (source
2059      (origin
2060        (method url-fetch)
2061        (uri (string-append "mirror://gnu/chess/gnuchess-" version
2062                            ".tar.gz"))
2063        (sha256
2064         (base32
2065          "0ilq4bfl0lwyzf11q7n2skydjhalfn3bgxhrp5hjxs5bc5d6fdp5"))))
2066     (build-system gnu-build-system)
2067     (home-page "https://www.gnu.org/software/chess/")
2068     (synopsis "Full chess implementation")
2069     (description "GNU Chess is a chess engine.  It allows you to compete
2070 against the computer in a game of chess, either through the default terminal
2071 interface or via an external visual interface such as GNU XBoard.")
2072     (properties '((upstream-name . "gnuchess")
2073                   (ftp-directory . "/chess")))
2074     (license license:gpl3+)))
2075
2076 (define freedink-engine
2077   (package
2078     (name "freedink-engine")
2079     (version "109.6")
2080     (source (origin
2081               (method url-fetch)
2082               (uri (string-append "mirror://gnu/freedink/freedink-" version
2083                                   ".tar.gz"))
2084               (sha256
2085                (base32
2086                 "00hhk1bjdrc1np2qz44sa5n1mb62qzwxbvsnws3vpms6iyn3a2sy"))))
2087     (build-system gnu-build-system)
2088     (arguments
2089      `(#:configure-flags '("--disable-embedded-resources")
2090        #:phases
2091        (modify-phases %standard-phases
2092          (add-after 'unpack 'disable-graphical-tests
2093            (lambda _
2094              ;; These tests require a graphical interface.
2095              (substitute* "src/Makefile.am"
2096                (("test_gfx_fonts TestIOGfxDisplay") ""))
2097              #t)))))
2098     (native-inputs `(("autoconf" ,autoconf)
2099                      ("automake" ,automake)
2100                      ("cxxtest" ,cxxtest)
2101                      ("gettext" ,gettext-minimal)
2102                      ("help2man" ,help2man)
2103                      ("pkg-config" ,pkg-config)))
2104     (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer
2105                                              sdl2-ttf sdl2-gfx)))
2106               ("fontconfig" ,fontconfig)
2107               ("glm" ,glm)))
2108     (properties '((ftp-directory . "/freedink")
2109                   (upstream-name . "freedink")))
2110     (home-page "https://www.gnu.org/software/freedink/")
2111     (synopsis "Twisted adventures of young pig farmer Dink Smallwood")
2112     (description
2113      "GNU FreeDink is a free and portable re-implementation of the engine
2114 for the role-playing game Dink Smallwood.  It supports not only the original
2115 game data files but it also supports user-produced game mods or \"D-Mods\".
2116 To that extent, it also includes a front-end for managing all of your D-Mods.")
2117     (license license:gpl3+)))
2118
2119 (define freedink-data
2120   (package
2121     (name "freedink-data")
2122     (version "1.08.20190120")
2123     (source (origin
2124               (method url-fetch)
2125               (uri (string-append "mirror://gnu/freedink/freedink-data-"
2126                                   version ".tar.gz"))
2127               (sha256
2128                (base32
2129                 "17gvryadlxk172mblbsil7hina1z5wahwaxnr6g3mdq57dvl8pvi"))))
2130     (build-system gnu-build-system)
2131     (arguments
2132      `(#:phases
2133        (modify-phases %standard-phases
2134          (delete 'configure)            ; no configure script
2135          (delete 'check))               ; no tests
2136        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
2137     (properties '((ftp-directory . "/freedink")))
2138     (home-page "https://www.gnu.org/software/freedink/")
2139     (synopsis "Game data for GNU Freedink")
2140     (description
2141      "This package contains the game data of GNU Freedink.")
2142     (license license:gpl3+)))
2143
2144 (define-public freedink-dfarc
2145   (package
2146     (name "freedink-dfarc")
2147     (version "3.14")
2148     (source (origin
2149               (method url-fetch)
2150               (uri (string-append "mirror://gnu/freedink/dfarc-"
2151                                   version ".tar.gz"))
2152               (sha256
2153                (base32
2154                 "1yp8n3w426xnlp10xk06vfi2y3k9xrcfyck7s7qs1v0ys7n284d5"))))
2155     (build-system gnu-build-system)
2156     (native-inputs
2157      `(("intltool" ,intltool)))
2158     (inputs
2159      `(("bzip2" ,bzip2)
2160        ("wxwidgets" ,wxwidgets)))
2161     (properties '((ftp-directory . "/freedink")
2162                   (upstream-name . "dfarc")))
2163     (home-page "https://www.gnu.org/software/freedink/")
2164     (synopsis "Front-end for managing and playing Dink Modules")
2165     (description "DFArc makes it easy to play and manage the GNU FreeDink game
2166 and its numerous D-Mods.")
2167     (license license:gpl3+)))
2168
2169 (define-public freedink
2170   ;; This is a wrapper that tells the engine where to find the data.
2171   (package (inherit freedink-engine)
2172     (name "freedink")
2173     (build-system trivial-build-system)
2174     (arguments
2175      '(#:builder (begin
2176                    (use-modules (guix build utils))
2177
2178                    (let* ((output     (assoc-ref %outputs "out"))
2179                           (bin        (string-append output "/bin"))
2180                           (executable (string-append bin "/freedink")))
2181                      (mkdir-p bin)
2182                      (call-with-output-file executable
2183                        (lambda (port)
2184                          (format port "#!~a/bin/sh
2185 exec ~a/bin/freedink -refdir ~a/share/dink\n"
2186                                  (assoc-ref %build-inputs "bash")
2187                                  (assoc-ref %build-inputs "engine")
2188                                  (assoc-ref %build-inputs "data"))
2189                          (chmod port #o777)))
2190                      #t))
2191        #:modules ((guix build utils))))
2192     (inputs `(("engine" ,freedink-engine)
2193               ("data" ,freedink-data)
2194               ("bash" ,bash)))
2195     (native-inputs '())))
2196
2197 (define-public xboard
2198   (package
2199     (name "xboard")
2200     (version "4.9.1")
2201     (source
2202      (origin
2203        (method url-fetch)
2204        (uri (string-append "mirror://gnu/xboard/xboard-" version
2205                            ".tar.gz"))
2206        (sha256
2207         (base32
2208          "1mkh36xnnacnz9r00b5f9ld9309k32jv6mcavklbdnca8bl56bib"))))
2209     (build-system gnu-build-system)
2210     (inputs
2211      `(("gtk+" ,gtk+-2)
2212        ("librsvg" ,librsvg)))
2213     (native-inputs
2214      `(("texinfo" ,texinfo)
2215        ("pkg-config" ,pkg-config)))
2216     (home-page "https://www.gnu.org/software/xboard/")
2217     (synopsis "Graphical user interface for chess programs")
2218     (description "GNU XBoard is a graphical board for all varieties of chess,
2219 including international chess, xiangqi (Chinese chess), shogi (Japanese chess)
2220 and Makruk.  Several lesser-known variants are also supported.  It presents a
2221 fully interactive graphical interface and it can load and save games in the
2222 Portable Game Notation.")
2223     (license license:gpl3+)))
2224
2225 (define-public gtypist
2226   (package
2227     (name "gtypist")
2228     (version "2.9.5")
2229     (source (origin
2230               (method url-fetch)
2231               (uri (string-append "mirror://gnu/gtypist/gtypist-"
2232                                   version ".tar.xz"))
2233               (sha256
2234                (base32
2235                 "0xzrkkmj0b1dw3yr0m9hml2y634cc4h61im6zwcq57s7285z8fn1"))
2236               (modules '((guix build utils)))
2237               (snippet
2238                ;; We do not provide `ncurses.h' within an `ncursesw'
2239                ;; sub-directory, so patch the source accordingly.  See
2240                ;; <http://bugs.gnu.org/19018>.
2241                '(begin
2242                   (for-each (lambda (file)
2243                               (substitute* file
2244                                 (("ncursesw/ncurses.h")
2245                                  "ncurses.h")))
2246                             (find-files "." "configure$|\\.c$"))
2247                   #t))))
2248     (build-system gnu-build-system)
2249     (inputs `(("ncurses" ,ncurses)
2250               ("perl" ,perl)))
2251     (home-page "https://www.gnu.org/software/gtypist/")
2252     (synopsis "Typing tutor")
2253     (description
2254      "GNU Typist is a universal typing tutor.  It can be used to learn and
2255 practice touch-typing.  Several tutorials are included; in addition to
2256 tutorials for the standard QWERTY layout, there are also tutorials for the
2257 alternative layouts Dvorak and Colemak, as well as for the numpad.  Tutorials
2258 are primarily in English, however some in other languages are provided.")
2259     (license license:gpl3+)))
2260
2261 (define-public irrlicht
2262   (package
2263     (name "irrlicht")
2264     (version "1.8.4")
2265     (source (origin
2266               (method url-fetch)
2267               (uri (string-append
2268                     "mirror://sourceforge/irrlicht/Irrlicht%20SDK/"
2269                     (version-major+minor version)
2270                     "/" version "/irrlicht-" version ".zip"))
2271               (sha256
2272                (base32
2273                 "0cz4z4dwrv5ypl19ll67wl6jjpy5k6ly4vr042w4br88qq5jhazl"))
2274               (patches (search-patches "irrlicht-use-system-libs.patch"))
2275               (modules '((guix build utils)))
2276               (snippet
2277                '(begin
2278                   (for-each delete-file-recursively
2279                      '("bin" ; bundled compiled Windows binaries"
2280                        "source/Irrlicht/MacOSX"
2281                        "source/Irrlicht/bzip2"
2282                        "source/Irrlicht/jpeglib"
2283                        "source/Irrlicht/libpng"
2284                        "source/Irrlicht/lzma"
2285                        "source/Irrlicht/zlib"))
2286                   (delete-file "source/Irrlicht/glext.h")
2287                   (delete-file "source/Irrlicht/glxext.h")
2288                   (delete-file "source/Irrlicht/wglext.h")
2289                   #t))))
2290     (build-system gnu-build-system)
2291     (arguments
2292      `(#:phases
2293        (modify-phases %standard-phases
2294          (add-after 'unpack 'chdir-to-source
2295            (lambda _
2296              ;; The actual source is buried a few directories deep.
2297              (chdir "source/Irrlicht/")
2298              #t))
2299          (add-after 'chdir-to-source 'fix-build-env
2300            (lambda* (#:key outputs #:allow-other-keys)
2301              (let ((out (assoc-ref outputs "out")))
2302                (substitute* "Makefile"
2303                  (("INSTALL_DIR = /usr/local/lib")
2304                   (string-append "INSTALL_DIR = " out "/lib"))
2305                  ;; Add '-fpermissive' to the CXXFLAGS
2306                  (("-Wall") "-Wall -fpermissive")) ; CImageLoaderJPG.cpp
2307                ;; The Makefile assumes these directories exist.
2308                (mkdir-p (string-append out "/lib"))
2309                (mkdir-p (string-append out "/include")))))
2310          (delete 'configure))           ; no configure script
2311        #:tests? #f                      ; no check target
2312        #:make-flags '("CC=gcc" "sharedlib")))
2313     (inputs
2314      `(("bzip2" ,bzip2)
2315        ("libjpeg" ,libjpeg-turbo)
2316        ("libpng" ,libpng)
2317        ("libx11" ,libx11)
2318        ("libxxf86vm" ,libxxf86vm)
2319        ("mesa" ,mesa)))
2320     (synopsis "3D game engine written in C++")
2321     (description
2322      "The Irrlicht Engine is a high performance realtime 3D engine written in
2323 C++.  Features include an OpenGL renderer, extensible materials, scene graph
2324 management, character animation, particle and other special effects, support
2325 for common mesh file formats, and collision detection.")
2326     (home-page "http://irrlicht.sourceforge.net/")
2327     (license license:zlib)))
2328
2329 (define-public mars
2330   ;; The latest release on SourceForge relies on an unreleased version of SFML
2331   ;; with a different API, so we take the latest version from the official
2332   ;; repository on Github.
2333   (let ((commit   "c855d044094a1d92317e38935d81ba938946132e")
2334         (revision "1"))
2335     (package
2336       (name "mars")
2337       (version (string-append "0.7.5." revision "." (string-take commit 7) ))
2338       (source (origin
2339                 (method git-fetch)
2340                 (uri (git-reference
2341                       (url "https://github.com/thelaui/M.A.R.S..git")
2342                       (commit commit)))
2343                 (file-name (git-file-name name version))
2344                 (sha256
2345                  (base32
2346                   "1r4c5gap1z2zsv4yjd34qriqkxaq4lb4rykapyzkkdf4g36lc3nh"))
2347                 (patches (search-patches "mars-sfml-2.3.patch"
2348                                          "mars-install.patch"))))
2349       (build-system cmake-build-system)
2350       (arguments
2351        `(#:tests? #f        ; There are no tests
2352          #:phases
2353          (modify-phases %standard-phases
2354            (add-after 'unpack 'fix-install-path
2355             (lambda _
2356               (substitute* "src/CMakeLists.txt"
2357                 (("\\$\\{CMAKE_INSTALL_PREFIX\\}/games")
2358                  "${CMAKE_INSTALL_PREFIX}/bin"))
2359               #t))
2360            (add-after 'unpack 'fix-data-path
2361             (lambda* (#:key outputs #:allow-other-keys)
2362               (substitute* "src/System/settings.cpp"
2363                 (("C_dataPath = \"./data/\";")
2364                  (string-append "C_dataPath = \""
2365                                 (assoc-ref outputs "out")
2366                                 "/share/games/marsshooter/\";")))
2367               #t)))))
2368       (inputs
2369        `(("mesa" ,mesa)
2370          ("fribidi" ,fribidi)
2371          ("taglib" ,taglib)
2372          ("sfml" ,sfml)))
2373       (home-page "http://mars-game.sourceforge.net/")
2374       (synopsis "2D space shooter")
2375       (description
2376        "M.A.R.S. is a 2D space shooter with pretty visual effects and
2377 attractive physics.  Players can battle each other or computer controlled
2378 enemies in different game modes such as space ball, death match, team death
2379 match, cannon keep, and grave-itation pit.")
2380       (license license:gpl3+))))
2381
2382 (define minetest-data
2383   (package
2384     (name "minetest-data")
2385     (version "5.1.1")
2386     (source (origin
2387               (method git-fetch)
2388               (uri (git-reference
2389                      (url "https://github.com/minetest/minetest_game")
2390                      (commit version)))
2391               (file-name (git-file-name name version))
2392               (sha256
2393                (base32
2394                 "1r9fxz2j24q74a9injvbxbf2xk67fzabv616i676zw2cvgv9hn39"))))
2395     (build-system trivial-build-system)
2396     (native-inputs
2397      `(("source" ,source)))
2398     (arguments
2399      `(#:modules ((guix build utils))
2400        #:builder (begin
2401                    (use-modules (guix build utils))
2402                    (let ((install-dir (string-append
2403                                        %output
2404                                        "/share/minetest/games/minetest_game")))
2405                      (mkdir-p install-dir)
2406                      (copy-recursively
2407                        (assoc-ref %build-inputs "source")
2408                        install-dir)
2409                      #t))))
2410     (synopsis "Main game data for the Minetest game engine")
2411     (description
2412      "Game data for the Minetest infinite-world block sandbox game.")
2413     (home-page "https://www.minetest.net/")
2414     (license license:lgpl2.1+)))
2415
2416 (define-public minetest
2417   (package
2418     (name "minetest")
2419     (version "5.1.1")
2420     (source (origin
2421               (method git-fetch)
2422               (uri (git-reference
2423                     (url "https://github.com/minetest/minetest")
2424                     (commit version)))
2425               (file-name (git-file-name name version))
2426               (sha256
2427                (base32
2428                 "0cjj63333b7j4ydfq0h9yc6d2jvmyjd7n7zbd08yrf0rcibrj2k0"))
2429               (modules '((guix build utils)))
2430               (snippet
2431                '(begin
2432                   ;; Delete bundled libraries.
2433                   (delete-file-recursively "lib")
2434                   #t))))
2435     (build-system cmake-build-system)
2436     (arguments
2437      '(#:configure-flags
2438        (list "-DRUN_IN_PLACE=0"
2439              "-DENABLE_FREETYPE=1"
2440              "-DENABLE_GETTEXT=1"
2441              "-DENABLE_SYSTEM_JSONCPP=TRUE"
2442              (string-append "-DIRRLICHT_INCLUDE_DIR="
2443                             (assoc-ref %build-inputs "irrlicht")
2444                             "/include/irrlicht")
2445              (string-append "-DCURL_INCLUDE_DIR="
2446                             (assoc-ref %build-inputs "curl")
2447                             "/include/curl"))
2448        #:tests? #f))                    ;no check target
2449     (native-search-paths
2450      (list (search-path-specification
2451             (variable "MINETEST_SUBGAME_PATH")
2452             (files '("share/minetest/games")))))
2453     (native-inputs
2454      `(("pkg-config" ,pkg-config)))
2455     (inputs
2456      `(("curl" ,curl)
2457        ("freetype" ,freetype)
2458        ("gettext" ,gettext-minimal)
2459        ("gmp" ,gmp)
2460        ("irrlicht" ,irrlicht)
2461        ("jsoncpp" ,jsoncpp)
2462        ("libjpeg" ,libjpeg-turbo)
2463        ("libpng" ,libpng)
2464        ("libogg" ,libogg)
2465        ("libvorbis" ,libvorbis)
2466        ("libxxf86vm" ,libxxf86vm)
2467        ("luajit" ,luajit)
2468        ("mesa" ,mesa)
2469        ("ncurses" ,ncurses)
2470        ("openal" ,openal)
2471        ("sqlite" ,sqlite)))
2472     (propagated-inputs
2473      `(("minetest-data" ,minetest-data)))
2474     (synopsis "Infinite-world block sandbox game")
2475     (description
2476      "Minetest is a sandbox construction game.  Players can create and destroy
2477 various types of blocks in a three-dimensional open world.  This allows
2478 forming structures in every possible creation, on multiplayer servers or as a
2479 single player.  Mods and texture packs allow players to personalize the game
2480 in different ways.")
2481     (home-page "https://www.minetest.net/")
2482     (license license:lgpl2.1+)))
2483
2484 (define glkterm
2485   (package
2486    (name "glkterm")
2487    (version "1.0.4")
2488    (source
2489     (origin
2490      (method url-fetch)
2491      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
2492                          "glk/implementations/glkterm-104.tar.gz"))
2493      (sha256
2494       (base32
2495        "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7"))))
2496    (build-system gnu-build-system)
2497    (propagated-inputs `(("ncurses" ,ncurses))) ; required by Make.glkterm
2498    (arguments
2499     '(#:tests? #f ; no check target
2500       #:phases
2501       (modify-phases %standard-phases
2502         (replace 'install
2503           (lambda* (#:key outputs #:allow-other-keys)
2504             (let* ((out (assoc-ref outputs "out"))
2505                    (inc (string-append out "/include"))
2506                    (lib (string-append out "/lib")))
2507               (for-each
2508                (lambda (file)
2509                  (install-file file inc))
2510                '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
2511               (install-file "libglkterm.a" lib))
2512             #t))
2513         (delete 'configure))))          ; no configure script
2514    (home-page "http://www.eblong.com/zarf/glk/")
2515    (synopsis "Curses Implementation of the Glk API")
2516    (description
2517     "Glk defines a portable API for applications with text UIs.  It was
2518 primarily designed for interactive fiction, but it should be suitable for many
2519 interactive text utilities, particularly those based on a command line.
2520 This is an implementation of the Glk library which runs in a terminal window,
2521 using the @code{curses.h} library for screen control.")
2522    (license (license:fsf-free "file://README"))))
2523
2524 (define-public glulxe
2525   (package
2526    (name "glulxe")
2527    (version "0.5.4")
2528    (source
2529     (origin
2530      (method url-fetch)
2531      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
2532                          "glulx/interpreters/glulxe/glulxe-054.tar.gz"))
2533      (sha256
2534       (base32
2535        "0vipydg6ra90yf9b3ipgppwxyb2xdhcxwvirgjy0v20wlf56zhhz"))))
2536    (build-system gnu-build-system)
2537    (inputs `(("glk" ,glkterm)))
2538    (arguments
2539     '(#:tests? #f                       ; no check target
2540       #:make-flags
2541       (let* ((glk (assoc-ref %build-inputs "glk")))
2542         (list (string-append "GLKINCLUDEDIR=" glk "/include")
2543               (string-append "GLKLIBDIR=" glk "/lib")
2544               (string-append "GLKMAKEFILE=" "Make.glkterm")))
2545       #:phases
2546       (modify-phases %standard-phases
2547         (replace 'install
2548           (lambda* (#:key outputs #:allow-other-keys)
2549             (let* ((out (assoc-ref outputs "out"))
2550                    (bin (string-append out "/bin")))
2551               (install-file "glulxe" bin))
2552             #t))
2553         (delete 'configure))))          ; no configure script
2554    (home-page "https://www.eblong.com/zarf/glulx/")
2555    (synopsis "Interpreter for Glulx VM")
2556    (description
2557     "Glulx is a 32-bit portable virtual machine intended for writing and
2558 playing interactive fiction.  It was designed by Andrew Plotkin to relieve
2559 some of the restrictions in the venerable Z-machine format.  This is the
2560 reference interpreter, using the Glk API.")
2561    (license license:expat)))
2562
2563 (define-public fifechan
2564   (package
2565     (name "fifechan")
2566     (version "0.1.5")
2567     (source (origin
2568               (method url-fetch)
2569               (uri (string-append "https://codeload.github.com/fifengine/"
2570                                   "fifechan/tar.gz/" version))
2571               (file-name (string-append name "-" version ".tar.gz"))
2572               (sha256
2573                (base32
2574                 "0wxs9vz5x9y8chghd8vp7vfk089lfb0qnzggi17zrqkrngs5zgi9"))))
2575     (build-system cmake-build-system)
2576     (inputs
2577      `(("sdl2" ,sdl2)
2578        ("sdl2-image" ,sdl2-image)
2579        ("mesa" ,mesa)))
2580     (arguments
2581      '(#:tests? #f))                    ; No included tests
2582     (home-page "https://fifengine.github.io/fifechan/")
2583     (synopsis "Cross platform GUI library specifically for games")
2584     (description
2585      "Fifechan is a lightweight cross platform GUI library written in C++
2586 specifically designed for games.  It has a built in set of extendable GUI
2587 Widgets, and allows users to create more.")
2588     (license license:lgpl2.1+)))
2589
2590 (define-public fifengine
2591   (package
2592     (name "fifengine")
2593     (version "0.4.2")
2594     (source (origin
2595               (method url-fetch)
2596               (uri (string-append "https://codeload.github.com/fifengine/"
2597                                   "fifengine/tar.gz/" version))
2598               (file-name (string-append name "-" version ".tar.gz"))
2599               (patches (search-patches "fifengine-swig-compat.patch"))
2600               (sha256
2601                (base32
2602                 "1y4grw25cq5iqlg05rnbyxw1njl11ypidnlsm3qy4sm3xxdvb0p8"))))
2603     (build-system cmake-build-system)
2604     (arguments
2605      `(#:tests? #f            ; TODO The test running fails to run some tests.
2606        #:modules ((srfi srfi-1)
2607                   (guix build cmake-build-system)
2608                   (guix build utils))
2609        #:configure-flags
2610        (list
2611         (string-append "-DOPENALSOFT_INCLUDE_DIR="
2612                        (assoc-ref %build-inputs "openal")
2613                        "/include/AL")
2614         (string-append "-DPYTHON_SITE_PACKAGES="
2615                        (assoc-ref %outputs "out")
2616                        "/lib/python"
2617                        ,(version-major+minor (package-version python))
2618                        "/site-packages"))
2619        #:phases
2620        (modify-phases %standard-phases
2621          (add-after 'unpack 'patch-run_tests.py
2622            (lambda _
2623              ;; Patch the test runner to exit with a status of 1 if any test
2624              ;; fails, to allow detecting failures.
2625              (substitute* "run_tests.py"
2626                (("ERROR\\. One or more tests failed!'\\)")
2627                 "ERROR. One or more tests failed!')
2628 \t\texit(1)"))
2629              #t))
2630          ;; Run tests after installation so that we can make use of the built
2631          ;; python modules.
2632          (delete 'check)
2633          (add-after 'install 'check
2634            (lambda* (#:key inputs outputs tests? #:allow-other-keys)
2635              (define python-version
2636                (let* ((version     (last (string-split
2637                                           (assoc-ref inputs "python")
2638                                           #\-)))
2639                       (components  (string-split version #\.))
2640                       (major+minor (take components 2)))
2641                  (string-join major+minor ".")))
2642
2643              (when tests?
2644                ;; Set PYTHONPATH so that python finds the installed modules.
2645                (setenv "PYTHONPATH"
2646                        (string-append (getenv "PYTHONPATH") ":"
2647                                       (assoc-ref outputs "out")
2648                                       "/lib/python"
2649                                       python-version
2650                                       "/site-packages"))
2651                ;; The tests require an X server.
2652                (system "Xvfb :1 &")
2653                (setenv "DISPLAY" ":1")
2654                (setenv "XDG_RUNTIME_DIR" "/tmp")
2655                ;; Run tests
2656                (chdir ,(string-append "../" name "-" version))
2657                (invoke "python3" "run_tests.py" "-a"))
2658              #t)))))
2659     (inputs
2660      `(("sdl2" ,sdl2)
2661        ("sdl2-image" ,sdl2-image)
2662        ("sdl2-ttf" ,sdl2-ttf)
2663        ("tinyxml" ,tinyxml)
2664        ("openal" ,openal)
2665        ("libogg" ,libogg)
2666        ("glew" ,glew)
2667        ("libvorbis" ,libvorbis)
2668        ("boost" ,boost)
2669        ("fifechan" ,fifechan)
2670        ("swig" ,swig)
2671        ("python" ,python)))
2672     (native-inputs
2673      `(("python" ,python)
2674        ("swig" ,swig)
2675        ("xvfb" ,xorg-server)))
2676     (propagated-inputs
2677      `(("python-future" ,python-future)))
2678     (home-page "https://www.fifengine.net/")
2679     (synopsis "FIFE is a multi-platform isometric game engine written in C++")
2680     (description
2681      "@acronym{FIFE, Flexible Isometric Free Engine} is a multi-platform
2682 isometric game engine.  Python bindings are included allowing users to create
2683 games using Python as well as C++.")
2684     (license license:lgpl2.1+)))
2685
2686 (define-public fizmo
2687   (package
2688     (name "fizmo")
2689     (version "0.8.5")
2690     (source (origin
2691               (method url-fetch)
2692               (uri (string-append "https://fizmo.spellbreaker.org/source/"
2693                                   "fizmo-" version ".tar.gz"))
2694               (sha256
2695                (base32
2696                 "1amyc4n41jf08kxmdgkk30bzzx54miaxa97w28f417qwn8lrl98w"))))
2697     (build-system gnu-build-system)
2698     (arguments
2699      '(#:configure-flags
2700        (let ((libjpeg (assoc-ref %build-inputs "libjpeg"))
2701              (ncurses (assoc-ref %build-inputs "ncurses")))
2702          (list (string-append "--with-jpeg-includedir=" libjpeg "/include")))))
2703     (native-inputs
2704      `(("pkg-config" ,pkg-config)))
2705     (inputs
2706      `(("freetype" ,freetype)
2707        ("libjpeg" ,libjpeg-turbo)
2708        ("libpng" ,libpng)
2709        ("libsndfile" ,libsndfile)
2710        ("libxml2" ,libxml2)
2711        ("ncurses" ,ncurses)
2712        ("sdl2" ,sdl2)))
2713     (home-page "https://fizmo.spellbreaker.org/")
2714     (synopsis "Z-machine interpreter")
2715     (description
2716      "Fizmo is a console-based Z-machine interpreter.  It is used to play
2717 interactive fiction, also known as text adventures, which were implemented
2718 either by Infocom or created using the Inform compiler.")
2719     (license license:bsd-3)))
2720
2721 (define-public gnugo
2722   (package
2723     (name "gnugo")
2724     (version "3.8")
2725     (source (origin
2726              (method url-fetch)
2727              (uri (string-append "mirror://gnu/gnugo/gnugo-" version
2728                                  ".tar.gz"))
2729              (sha256
2730               (base32
2731                "0wkahvqpzq6lzl5r49a4sd4p52frdmphnqsfdv7gdp24bykdfs6s"))))
2732     (build-system gnu-build-system)
2733     (inputs `(("readline" ,readline)))
2734     (synopsis "Play the game of Go")
2735     (description
2736      "GNU Go is a program that plays the game of Go, in which players
2737 place stones on a grid to form territory or capture other stones.  While
2738 it can be played directly from the terminal, rendered in ASCII characters,
2739 it is also possible to play GNU Go with 3rd party graphical interfaces or
2740 even in Emacs.  It supports the standard game storage format (SGF, Smart
2741 Game Format) and inter-process communication format (GMP, Go Modem
2742 Protocol).")
2743     (home-page "https://www.gnu.org/software/gnugo/")
2744     (license license:gpl3+)))
2745
2746 (define-public extremetuxracer
2747   (package
2748     (name "extremetuxracer")
2749     (version "0.8.0")
2750     (source (origin
2751               (method url-fetch)
2752               (uri (string-append
2753                     "mirror://sourceforge/extremetuxracer/releases/"
2754                     version "/etr-" version ".tar.xz"))
2755               (sha256
2756                (base32
2757                 "05ysaxvsgps9fxc421kdifsxmc1sn6n79cjaa0k0i3fs9qqrja2b"))))
2758     (build-system gnu-build-system)
2759     (native-inputs
2760      `(("pkg-config" ,pkg-config)))
2761     (inputs
2762      `(("glu" ,glu)
2763        ("sfml" ,sfml)))
2764     (synopsis "High-speed arctic racing game based on Tux Racer")
2765     ;; Snarfed straight from Debian.
2766     (description "Extreme Tux Racer, or etracer as it is called for short, is
2767 a simple OpenGL racing game featuring Tux, the Linux mascot.  The goal of the
2768 game is to slide down a snow- and ice-covered mountain as quickly as possible,
2769 avoiding the trees and rocks that will slow you down.
2770
2771 Collect herrings and other goodies while sliding down the hill, but avoid fish
2772 bones.
2773
2774 This game is based on the GPL version of the famous game TuxRacer.")
2775     (home-page "https://sourceforge.net/projects/extremetuxracer/")
2776     (license license:gpl2+)))
2777
2778 (define-public supertuxkart
2779   (package
2780     (name "supertuxkart")
2781     (version "1.1")
2782     (source
2783      (origin
2784        (method url-fetch)
2785        (uri (string-append "mirror://sourceforge/supertuxkart/SuperTuxKart/"
2786                            version "/supertuxkart-" version "-src.tar.xz"))
2787        (sha256
2788         (base32
2789          "1s0ai07g3sswck9mr0142989mrgzzq1njc1qxk5als5b245jpc79"))
2790        (modules '((guix build utils)))
2791        (snippet
2792         ;; Delete bundled library sources
2793         '(begin
2794            ;; Supertuxkart uses modified versions of the Irrlicht engine
2795            ;; and the bullet library.  The developers gave an explanation
2796            ;; here: http://forum.freegamedev.net/viewtopic.php?f=17&t=3906
2797            ;; FIXME: try to unbundle angelscript and libraqm
2798            (for-each delete-file-recursively
2799                      '("lib/zlib"
2800                        "lib/libpng"
2801                        "lib/jpeglib"
2802                        "lib/glew"
2803                        "lib/wiiuse"
2804                        "lib/enet"))
2805            #t))))
2806     (build-system cmake-build-system)
2807     (arguments
2808      `(#:tests? #f ; no check target
2809        #:configure-flags
2810        (list "-DUSE_WIIUSE=0"
2811              ;; Do not use the bundled zlib, glew and enet.
2812              "-DNO_IRR_COMPILE_WITH_ZLIB_=TRUE"
2813              "-DUSE_SYSTEM_GLEW=TRUE"
2814              "-DUSE_SYSTEM_ENET=TRUE"
2815              ;; In order to use the system ENet library, IPv6 support (added in
2816              ;; SuperTuxKart version 1.1) must be disabled.
2817              "-DUSE_IPV6=FALSE"
2818              ;; FIXME: needs libopenglrecorder
2819              "-DBUILD_RECORDER=0"
2820              ;; Irrlicht returns an integer instead of a boolean
2821              "-DCMAKE_C_FLAGS=-fpermissive")))
2822     (inputs
2823      `(("glew" ,glew)
2824        ("zlib" ,zlib)
2825        ("openal" ,openal)
2826        ("libvorbis" ,libvorbis)
2827        ("freetype" ,freetype)
2828        ("fribidi" ,fribidi)
2829        ("harfbuzz" ,harfbuzz)
2830        ("mesa" ,mesa)
2831        ("libx11" ,libx11)
2832        ("libxrandr" ,libxrandr)
2833        ("curl" ,curl)
2834        ;; The following input is needed to build the bundled and modified
2835        ;; version of irrlicht.
2836        ("libjpeg" ,libjpeg-turbo)
2837        ("openssl" ,openssl)
2838        ("enet" ,enet)))
2839     (native-inputs
2840      `(("pkg-config" ,pkg-config)))
2841     (home-page "https://supertuxkart.net/Main_Page")
2842     (synopsis "3D kart racing game")
2843     (description "SuperTuxKart is a 3D kart racing game, with a focus on
2844 having fun over realism.  You can play with up to 4 friends on one PC, racing
2845 against each other or just trying to beat the computer; single-player mode is
2846 also available.")
2847     (license license:gpl3+)))
2848
2849 (define-public unknown-horizons
2850   (package
2851     (name "unknown-horizons")
2852     (version "2019.1")
2853     (source (origin
2854               (method url-fetch)
2855               (uri (string-append "https://codeload.github.com/unknown-horizons/"
2856                                   "unknown-horizons/tar.gz/" version))
2857               (file-name (string-append name "-" version ".tar.gz"))
2858               (sha256
2859                (base32
2860                 "1n747p7h0qp48szgp262swg0xh8kxy1bw8ag1qczs4i26hyzs5x4"))))
2861     (build-system python-build-system)
2862     (arguments
2863      '(#:phases
2864        (modify-phases %standard-phases
2865          (add-before 'build 'set-HOME
2866            (lambda _
2867              (setenv "HOME" "/tmp")))
2868          (add-after 'build 'build-extra
2869            (lambda _
2870              (invoke "python3" "./setup.py" "build_i18n")
2871              (invoke "python3" "horizons/engine/generate_atlases.py" "2048")
2872              #t))
2873          (add-after 'install 'patch
2874            (lambda* (#:key outputs #:allow-other-keys)
2875              (let ((out (assoc-ref outputs "out")))
2876                (substitute* (string-append out "/bin/unknown-horizons")
2877                  (("os\\.chdir\\(get\\_content\\_dir\\_parent_path\\(\\)\\)")
2878                   (string-append "os.chdir(\""
2879                                  (assoc-ref outputs "out")
2880                                  "/share/unknown-horizons\")"))))
2881              #t))
2882          ;; TODO: Run GUI tests as well
2883          (replace 'check
2884            (lambda _
2885              (substitute* "horizons/constants.py"
2886                (("IS_DEV_VERSION = False")
2887                 "IS_DEV_VERSION = True"))
2888              (invoke "pytest" "tests")
2889              (substitute* "horizons/constants.py"
2890                (("IS_DEV_VERSION = True")
2891                 "IS_DEV_VERSION = False"))
2892              #t)))))
2893     (inputs
2894      `(("fifengine" ,fifengine)
2895        ("python:tk" ,python "tk")
2896        ("python-pillow" ,python-pillow)
2897        ("python-pyyaml" ,python-pyyaml)))
2898     (native-inputs
2899      `(("intltool" ,intltool)
2900
2901        ;; Required for tests
2902        ("python-greenlet" ,python-greenlet)
2903        ("python-polib" ,python-polib)
2904        ("python-pytest" ,python-pytest)
2905        ("python-pytest-mock" ,python-pytest-mock)))
2906     (home-page "http://unknown-horizons.org/")
2907     (synopsis "Isometric realtime strategy, economy and city building simulation")
2908     (description
2909      "Unknown Horizons is a 2D realtime strategy simulation with an emphasis
2910 on economy and city building.  Expand your small settlement to a strong and
2911 wealthy colony, collect taxes and supply your inhabitants with valuable
2912 goods.  Increase your power with a well balanced economy and with strategic
2913 trade and diplomacy.")
2914     (license (list
2915               license:gpl2+        ; Covers code
2916               license:expat        ; tests/dummy.py, ext/polib.py
2917               license:cc-by-sa3.0  ; Covers some media content
2918               license:cc-by3.0     ; Covers some media content
2919               license:bsd-3))))    ; horizons/ext/speaklater.py
2920
2921 (define-public gnujump
2922   (package
2923     (name "gnujump")
2924     (version "1.0.8")
2925     (source (origin
2926               (method url-fetch)
2927               (uri (string-append "mirror://gnu/gnujump/gnujump-"
2928                                   version ".tar.gz"))
2929               (sha256
2930                (base32
2931                 "05syy9mzbyqcfnm0hrswlmhwlwx54f0l6zhcaq8c1c0f8dgzxhqk"))))
2932     (build-system gnu-build-system)
2933     (arguments
2934      '(#:phases
2935        (modify-phases %standard-phases
2936          (add-before
2937           'configure 'link-libm
2938           (lambda _ (setenv "LIBS" "-lm")))
2939          (add-after 'install 'create-desktop-entry
2940            (lambda* (#:key outputs #:allow-other-keys)
2941              (let* ((out (assoc-ref outputs "out"))
2942                     (apps (string-append out "/share/applications")))
2943                (mkdir-p apps)
2944                (with-output-to-file
2945                  (string-append apps "/gnujump.desktop")
2946                  (lambda _
2947                    (format #t
2948                            "[Desktop Entry]~@
2949                            Name=GNUjump~@
2950                            Comment=Jump up the tower to survive~@
2951                            Exec=~a/bin/gnujump~@
2952                            Terminal=false~@
2953                            Type=Application~@
2954                            Categories=Game;ArcadeGame~%"
2955                            out)))))))))
2956     (inputs
2957      `(("glu" ,glu)
2958        ("mesa" ,mesa)
2959        ("sdl" ,sdl)
2960        ("sdl-image" ,sdl-image)
2961        ("sdl-mixer" ,sdl-mixer)))
2962     (home-page "http://gnujump.es.gnu.org/")
2963     (synopsis
2964      "Game of jumping to the next floor, trying not to fall")
2965     (description
2966      "GNUjump is a simple, yet addictive game in which you must jump from
2967 platform to platform to avoid falling, while the platforms drop at faster rates
2968 the higher you go.  The game features multiplayer, unlimited FPS, smooth floor
2969 falling, themeable graphics and sounds, and replays.")
2970     (license license:gpl3+)))
2971
2972 (define-public wesnoth
2973   (package
2974     (name "wesnoth")
2975     (version "1.14.11")
2976     (source (origin
2977               (method url-fetch)
2978               (uri (string-append "mirror://sourceforge/wesnoth/wesnoth-"
2979                                   (version-major+minor version)
2980                                   "/wesnoth-" version "/"
2981                                   "wesnoth-" version ".tar.bz2"))
2982               (sha256
2983                (base32
2984                 "1i8mz6gw3qar09bscczhki0g4scj8pl58v85rp0g55r4bcq41l5v"))))
2985     (build-system cmake-build-system)
2986     (arguments
2987      `(#:tests? #f))                    ;no check target
2988     (native-inputs
2989      `(("gettext" ,gettext-minimal)
2990        ("pkg-config" ,pkg-config)))
2991     (inputs
2992      `(("boost" ,boost)
2993        ("dbus" ,dbus)
2994        ("fribidi" ,fribidi)
2995        ("libvorbis" ,libvorbis)
2996        ("openssl" ,openssl)
2997        ("pango" ,pango)
2998        ("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
2999     (home-page "https://www.wesnoth.org/")
3000     (synopsis "Turn-based strategy game")
3001     (description
3002      "The Battle for Wesnoth is a fantasy, turn based tactical strategy game,
3003 with several single player campaigns, and multiplayer games (both networked and
3004 local).
3005
3006 Battle for control on a range of maps, using variety of units which have
3007 advantages and disadvantages against different types of attacks.  Units gain
3008 experience and advance levels, and are carried over from one scenario to the
3009 next campaign.")
3010     (license license:gpl2+)))
3011
3012 (define-public wesnoth-server
3013   (package
3014     (inherit wesnoth)
3015     (name "wesnoth-server")
3016     (inputs
3017      `(("boost" ,boost)
3018        ("icu4c" ,icu4c)
3019        ("openssl" ,openssl)
3020        ("sdl2" ,sdl2)))
3021     (arguments
3022      `(#:configure-flags '("-DENABLE_GAME=OFF")
3023        ,@(package-arguments wesnoth)))
3024     (synopsis "Dedicated @emph{Battle for Wesnoth} server")
3025     (description "This package contains a dedicated server for @emph{The
3026 Battle for Wesnoth}.")))
3027
3028 (define-public gamine
3029   (package
3030     (name "gamine")
3031     (version "1.6")
3032     (source (origin
3033               (method url-fetch)
3034               (uri (string-append "mirror://sourceforge/gamine-game/"
3035                                   "gamine-" version ".tar.gz"))
3036               (sha256
3037                (base32
3038                 "1sc6f4445ciigd6yw0ri92746k4hk6ps0bvj9fm1gbp3c3fslk5n"))))
3039     (build-system gnu-build-system)
3040     (native-inputs
3041      `(("pkg-config" ,pkg-config)
3042        ("intltool" ,intltool)))
3043     (inputs
3044      `(("gstreamer" ,gstreamer)
3045        ("gst-plugins-base" ,gst-plugins-base) ; playbin plugin
3046        ("gst-plugins-good" ,gst-plugins-good) ; for wav playback
3047        ("gtk+" ,gtk+)))
3048     (arguments
3049      `(#:tests? #f
3050        #:make-flags
3051        (let ((out (assoc-ref %outputs "out")))
3052          (list (string-append "PREFIX=" out)
3053                (string-append "SYSCONFDIR=" out "/etc")))
3054        #:phases
3055        (modify-phases %standard-phases
3056          (delete 'configure)
3057          (add-after
3058           'install 'wrap-gamine
3059           (lambda* (#:key outputs #:allow-other-keys)
3060             (let ((out             (assoc-ref outputs "out"))
3061                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
3062               (wrap-program (string-append out "/bin/gamine")
3063                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
3064             #t)))))
3065     (home-page "http://gamine-game.sourceforge.net/")
3066     (synopsis "Mouse and keyboard discovery for children")
3067     (description
3068      "Gamine is a game designed for young children who are learning to use the
3069 mouse and keyboard.  The child uses the mouse to draw colored dots and lines
3070 on the screen and keyboard to display letters.")
3071     ;; Most files under gpl2+ or gpl3+, but eat.wav under gpl3
3072     (license license:gpl3)))
3073
3074 (define-public manaplus
3075   (package
3076     (name "manaplus")
3077     (version "1.9.3.23")
3078     (source (origin
3079               (method url-fetch)
3080               (uri (string-append
3081                     "https://repo.manaplus.org/manaplus/download/"
3082                     version "/manaplus-" version ".tar.xz"))
3083               (sha256
3084                (base32
3085                 "1ky182p4svwdqm6cf7jbns85hidkhkhq4s17cs2p381f0klapfjz"))))
3086     (build-system gnu-build-system)
3087     (arguments
3088      '(#:configure-flags
3089        (list (string-append "CPPFLAGS=-I"
3090                             (assoc-ref %build-inputs "sdl-union")
3091                             "/include/SDL"))))
3092     (native-inputs
3093      `(("pkg-config" ,pkg-config)))
3094     (inputs
3095      `(("glu" ,glu)
3096        ("curl" ,curl)
3097        ("libxml2" ,libxml2)
3098        ("mesa" ,mesa)
3099        ("sdl-union" ,(sdl-union))))
3100     (home-page "https://manaplus.org")
3101     (synopsis "Client for 'The Mana World' and similar games")
3102     (description
3103      "ManaPlus is a 2D MMORPG client for game servers.  It is the only
3104 fully supported client for @uref{http://www.themanaworld.org, The mana
3105 world}, @uref{http://evolonline.org, Evol Online} and
3106 @uref{http://landoffire.org, Land of fire}.")
3107     ;; "src/debug/*" and "src/sdl2gfx/*" are under Zlib.
3108     ;; "data/themes/{golden-delicious,jewelry}/*" are under CC-BY-SA.
3109     ;; The rest is under GPL2+.
3110     (license (list license:gpl2+ license:zlib license:cc-by-sa4.0))))
3111
3112 (define openttd-engine
3113   (package
3114     (name "openttd-engine")
3115     (version "1.10.0")
3116     (source
3117      (origin (method url-fetch)
3118              (uri (string-append "https://cdn.openttd.org/openttd-releases/"
3119                                  version "/openttd-" version "-source.tar.xz"))
3120              (sha256
3121               (base32
3122                "0lz2y2rjc23k0d97y65cqhy2splw9cmrbvhgz0iqps8xkan1m8hv"))))
3123     (build-system gnu-build-system)
3124     (arguments
3125      `(#:tests? #f              ; no "check" target
3126        #:phases
3127        (modify-phases %standard-phases
3128          ;; The build process fails if the configure script is passed the
3129          ;; option "--enable-fast-install".
3130          (replace 'configure
3131            (lambda* (#:key inputs outputs (configure-flags '())
3132                      #:allow-other-keys)
3133              (let ((out (assoc-ref outputs "out"))
3134                    (lzo (assoc-ref inputs "lzo")))
3135                (apply invoke "./configure"
3136                       (string-append "--prefix=" out)
3137                       ;; Provide the "lzo" path.
3138                       (string-append "--with-liblzo2="
3139                                      lzo "/lib/liblzo2.a")
3140                       ;; Put the binary in 'bin' instead of 'games'.
3141                       "--binary-dir=bin"
3142                       configure-flags)))))))
3143     (native-inputs `(("pkg-config" ,pkg-config)))
3144     (inputs
3145      `(("allegro" ,allegro)
3146        ("fontconfig" ,fontconfig)
3147        ("freetype" ,freetype)
3148        ("icu4c" ,icu4c)
3149        ("libpng" ,libpng)
3150        ("lzo" ,lzo)
3151        ("sdl" ,sdl)
3152        ("xz" ,xz)
3153        ("zlib" ,zlib)))
3154     (synopsis "Transportation economics simulator game")
3155     (description "OpenTTD is a game in which you transport goods and
3156 passengers by land, water and air.  It is a re-implementation of Transport
3157 Tycoon Deluxe with many enhancements including multiplayer mode,
3158 internationalization support, conditional orders and the ability to clone,
3159 autoreplace and autoupdate vehicles.  This package only includes the game
3160 engine.  When you start it you will be prompted to download a graphics set.")
3161     (home-page "https://www.openttd.org/")
3162     ;; This package is GPLv2, except for a few files located in
3163     ;; "src/3rdparty/" which are under the 3-clause BSD, LGPLv2.1+ and Zlib
3164     ;; licenses.  In addition, this software contains an in-game downloader
3165     ;; from which the user may find non-functional data licensed under
3166     ;; different terms.
3167     (license (list license:bsd-3 license:gpl2 license:lgpl2.1+ license:zlib))))
3168
3169 (define openttd-opengfx
3170   (package
3171     (name "openttd-opengfx")
3172     (version "0.6.0")
3173     (source
3174      (origin
3175        (method url-fetch)
3176        (uri (string-append "https://cdn.openttd.org/opengfx-releases/"
3177                            version "/opengfx-" version "-source.tar.xz"))
3178        (sha256
3179         (base32
3180          "0qxc6gl2gxcrn1np88dnjgbaaakkkx96b13rcmy1spryc8c09hyr"))))
3181     (build-system gnu-build-system)
3182     (arguments
3183      '(#:make-flags (list "CC=gcc"
3184                           (string-append "INSTALL_DIR="
3185                                          (assoc-ref %outputs "out")
3186                                          "/share/games/openttd/baseset/opengfx"))
3187        #:phases
3188        (modify-phases %standard-phases
3189          (replace 'configure
3190            (lambda _
3191              ;; Make sure HOME is writable for GIMP.
3192              (setenv "HOME" (getcwd))
3193
3194              ;; Redirect stdout, not stderr, to /dev/null. This prevents
3195              ;; dos2unix from receiving its version information as a flag.
3196              (substitute* "Makefile"
3197                (("\\$\\(UNIX2DOS\\) -q --version 2>/dev/null")
3198                 "$(UNIX2DOS) -q --version 1>/dev/null")))))
3199        ;; The check phase for this package only checks the md5sums of the built
3200        ;; GRF files against the md5sums of the release versions. Because we use
3201        ;; different software versions than upstream does, some of the md5sums
3202        ;; are different. However, the package is still reproducible, it's safe
3203        ;; to disable this test.
3204        #:tests? #f
3205        #:parallel-build? #f))
3206     (native-inputs `(("dos2unix" ,dos2unix)
3207                      ("gimp" ,gimp)
3208                      ("grfcodec" ,grfcodec)
3209                      ("nml" ,nml)
3210                      ("which" ,which)
3211                      ("python" ,python-2)))
3212     (home-page "http://dev.openttdcoop.org/projects/opengfx")
3213     (synopsis "Base graphics set for OpenTTD")
3214     (description
3215      "The OpenGFX projects is an implementation of the OpenTTD base grahics
3216 set that aims to ensure the best possible out-of-the-box experience.
3217
3218 OpenGFX provides you with...
3219 @enumerate
3220 @item All graphics you need to enjoy OpenTTD.
3221 @item Uniquely drawn rail vehicles for every climate.
3222 @item Completely snow-aware rivers.
3223 @item Different river and sea water.
3224 @item Snow-aware buoys.
3225 @end enumerate")
3226     (license license:gpl2)))
3227
3228 (define openttd-opensfx
3229   (package
3230     (name "openttd-opensfx")
3231     (version "0.2.3")
3232     (source
3233      (origin
3234        (method url-fetch)
3235        (uri (string-append
3236              "https://binaries.openttd.org/extra/opensfx/"
3237              version "/opensfx-" version "-source.tar.gz"))
3238        (sha256
3239         (base32
3240          "03jxgp02ks31hmsdh4xh0xcpkb70ds8jakc9pfc1y9vdrdavh4p5"))))
3241     (build-system gnu-build-system)
3242     (native-inputs
3243      `(("catcodec" ,catcodec)
3244        ("python" ,python-2)))
3245     (arguments
3246      `(#:make-flags
3247        (list (string-append "INSTALL_DIR=" %output
3248                             "/share/games/openttd/baseset/opensfx"))
3249        #:phases
3250        (modify-phases %standard-phases
3251          (add-after 'unpack 'make-reproducible
3252            (lambda _
3253              ;; Remove the time dependency of the installed tarball by setting
3254              ;; the modification times if its members to 0.
3255              (substitute* "scripts/Makefile.def"
3256                (("-cf") " --mtime=@0 -cf"))
3257              #t))
3258          (delete 'configure))))
3259     (home-page "http://dev.openttdcoop.org/projects/opensfx")
3260     (synopsis "Base sounds for OpenTTD")
3261     (description "OpenSFX is a set of free base sounds for OpenTTD which make
3262 it possible to play OpenTTD without requiring the proprietary sound files from
3263 the original Transport Tycoon Deluxe.")
3264     (license license:cc-sampling-plus-1.0)))
3265
3266 (define openttd-openmsx
3267   (package
3268     (name "openttd-openmsx")
3269     (version "0.3.1")
3270     (source
3271      (origin
3272        (method url-fetch)
3273        (uri (string-append
3274              "https://binaries.openttd.org/extra/openmsx/"
3275              version "/openmsx-" version "-source.tar.gz"))
3276        (sha256
3277         (base32
3278          "0nskq97a6fsv1v6d62zf3yb8whzhqnlh3lap3va3nzvj7csjgf7c"))))
3279     (build-system gnu-build-system)
3280     (native-inputs
3281      `(("python" ,python-2)))
3282     (arguments
3283      `(#:make-flags
3284        (list (string-append "INSTALL_DIR=" %output
3285                             "/share/games/openttd/baseset"))
3286        #:phases
3287        (modify-phases %standard-phases
3288          (delete 'configure)
3289          (add-after 'install 'post-install
3290            ;; Rename openmsx-version to openmsx
3291            (lambda* (#:key outputs #:allow-other-keys)
3292              (let ((install-directory (string-append (assoc-ref outputs "out")
3293                                                      "/share/games/openttd/baseset")))
3294                (rename-file (string-append install-directory "/openmsx-" ,version)
3295                             (string-append install-directory "/openmsx"))
3296                #t))))))
3297     (home-page "http://dev.openttdcoop.org/projects/openmsx")
3298     (synopsis "Music set for OpenTTD")
3299     (description "OpenMSX is a music set for OpenTTD which makes it possible
3300 to play OpenTTD without requiring the proprietary music from the original
3301 Transport Tycoon Deluxe.")
3302     (license license:gpl2)))
3303
3304 (define-public openttd
3305   (package
3306     (inherit openttd-engine)
3307     (name "openttd")
3308     (arguments
3309      `(#:configure-flags
3310        (list (string-append "--with-midi=" (assoc-ref %build-inputs "timidity++")
3311                             "/bin/timidity"))
3312        ,@(substitute-keyword-arguments (package-arguments openttd-engine)
3313            ((#:phases phases)
3314             `(modify-phases ,phases
3315                (add-after 'install 'install-data
3316                  (lambda* (#:key inputs outputs #:allow-other-keys)
3317                    (for-each
3318                     (lambda (input)
3319                       (copy-recursively (assoc-ref inputs input)
3320                                         (assoc-ref outputs "out")))
3321                     (list "opengfx" "openmsx" "opensfx"))
3322                    #t)))))))
3323     (inputs
3324      `(("timidity++" ,timidity++)
3325        ,@(package-inputs openttd-engine)))
3326     (native-inputs
3327      `(("opengfx" ,openttd-opengfx)
3328        ("openmsx" ,openttd-openmsx)
3329        ("opensfx" ,openttd-opensfx)
3330        ,@(package-native-inputs openttd-engine)))))
3331
3332 (define openrct2-title-sequences
3333   (package
3334    (name "openrct2-title-sequences")
3335    (version "0.1.2")
3336    (source
3337     (origin
3338      (method url-fetch)
3339      (uri (string-append "https://github.com/OpenRCT2/title-sequences/releases/download/v"
3340                          version "/title-sequence-v" version ".zip"))
3341      (file-name (string-append name "-" version ".zip"))
3342      (sha256
3343       (base32
3344        "0qbyxrsw8hlgaq0r5d7lx7an3idy4qbfv7yiw9byhldk763n9cfw"))))
3345    (build-system trivial-build-system)
3346    (native-inputs
3347     `(("bash" ,bash)
3348       ("coreutils" ,coreutils)
3349       ("unzip" ,unzip)))
3350    (arguments
3351     `(#:modules ((guix build utils))
3352       #:builder
3353       (begin
3354         (use-modules (guix build utils))
3355         (let* ((out (assoc-ref %outputs "out"))
3356                (openrct2-title-sequences (string-append out
3357                                          "/share/openrct2/title-sequences"))
3358                (source (assoc-ref %build-inputs "source"))
3359                (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
3360           (copy-file source (string-append ,name "-" ,version ".zip"))
3361           (invoke unzip (string-append ,name "-" ,version ".zip"))
3362           (delete-file (string-append ,name "-" ,version ".zip"))
3363           (mkdir-p openrct2-title-sequences)
3364           (copy-recursively "."
3365                             openrct2-title-sequences)
3366           #t))))
3367    (home-page "https://github.com/OpenRCT2/OpenRCT2")
3368    (synopsis "Title sequences for OpenRCT2")
3369    (description
3370     "openrct2-title-sequences is a set of title sequences for OpenRCT2.")
3371    (license license:gpl3+)))
3372
3373 (define openrct2-objects
3374   (package
3375    (name "openrct2-objects")
3376    (version "1.0.9")
3377    (source
3378     (origin
3379      (method url-fetch)
3380      (uri (string-append "https://github.com/OpenRCT2/objects/releases/download/v"
3381                          version "/objects.zip"))
3382      (file-name (string-append name "-" version ".zip"))
3383      (sha256
3384       (base32 "02apb8h553m7d6jvysgb1zahvxc1yzyygfca2iclb21b3fhpsas4"))))
3385    (build-system trivial-build-system)
3386    (native-inputs
3387     `(("bash" ,bash)
3388       ("coreutils" ,coreutils)
3389       ("unzip" ,unzip)))
3390    (arguments
3391     `(#:modules ((guix build utils))
3392       #:builder
3393       (begin
3394         (use-modules (guix build utils))
3395         (let* ((out (assoc-ref %outputs "out"))
3396                (openrct2-objects (string-append out
3397                                          "/share/openrct2/objects"))
3398                (source (assoc-ref %build-inputs "source"))
3399                (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
3400           (copy-file source (string-append ,name "-" ,version ".zip"))
3401           (invoke unzip (string-append ,name "-" ,version ".zip"))
3402           (delete-file (string-append ,name "-" ,version ".zip"))
3403           (mkdir-p openrct2-objects)
3404           (copy-recursively "."
3405                             openrct2-objects)
3406           #t))))
3407    (home-page "https://github.com/OpenRCT2/OpenRCT2")
3408    (synopsis "Objects for OpenRCT2")
3409    (description
3410     "openrct2-objects is a set of objects for OpenRCT2.")
3411    (license license:gpl3+)))
3412
3413 (define-public openrct2
3414   (package
3415     (name "openrct2")
3416     (version "0.2.6")
3417     (source
3418      (origin
3419        (method git-fetch)
3420        (uri (git-reference
3421              (url "https://github.com/OpenRCT2/OpenRCT2.git")
3422              (commit (string-append "v" version))))
3423        (file-name (git-file-name name version))
3424        (sha256
3425         (base32 "1vikbkg3wh5ngzdfilb6irbh6nqinf138qpdz8wz9izlvl8s36k4"))))
3426     (build-system cmake-build-system)
3427     (arguments
3428      `(#:configure-flags (list "-DDOWNLOAD_OBJECTS=OFF"
3429                                "-DDOWNLOAD_TITLE_SEQUENCES=OFF")
3430        #:tests? #f                      ; tests require network access
3431        #:phases
3432        (modify-phases %standard-phases
3433          (add-after 'unpack 'fix-usr-share-paths&add-data
3434            (lambda* (#:key inputs outputs #:allow-other-keys)
3435              (let ((titles (assoc-ref inputs "openrct2-title-sequences"))
3436                    (objects (assoc-ref inputs "openrct2-objects")))
3437                ;; Fix some references to /usr/share.
3438                (substitute* "src/openrct2/platform/Platform.Linux.cpp"
3439                  (("/usr/share")
3440                   (string-append (assoc-ref %outputs "out") "/share")))
3441                (copy-recursively
3442                 (string-append titles "/share/openrct2/title-sequences")
3443                 "data/title")
3444                (copy-recursively
3445                 (string-append objects "/share/openrct2/objects")
3446                 "data/object"))))
3447          (add-before 'configure 'get-rid-of-errors
3448            (lambda _
3449              ;; Don't treat warnings as errors.
3450              (substitute* "CMakeLists.txt"
3451                (("-Werror") ""))
3452              #t)))))
3453     (inputs `(("curl" ,curl)
3454               ("fontconfig" ,fontconfig)
3455               ("freetype" ,freetype)
3456               ("icu4c" ,icu4c)
3457               ("jansson" ,jansson)
3458               ("libpng" ,libpng)
3459               ("libzip" ,libzip)
3460               ("mesa" ,mesa)
3461               ("openrct2-objects" ,openrct2-objects)
3462               ("openrct2-title-sequences" ,openrct2-title-sequences)
3463               ("openssl" ,openssl)
3464               ("sdl2" ,sdl2)
3465               ("speexdsp" ,speexdsp)
3466               ("zlib" ,zlib)))
3467     (native-inputs
3468      `(("pkg-config" ,pkg-config)))
3469     (home-page "https://github.com/OpenRCT2/OpenRCT2")
3470     (synopsis "Free software re-implementation of RollerCoaster Tycoon 2")
3471     (description "OpenRCT2 is a free software re-implementation of
3472 RollerCoaster Tycoon 2 (RCT2).  The gameplay revolves around building and
3473 maintaining an amusement park containing attractions, shops and facilities.
3474
3475 Note that this package does @emph{not} provide the game assets (sounds,
3476 images, etc.)")
3477     ;; See <https://github.com/OpenRCT2/OpenRCT2/wiki/Required-RCT2-files>
3478     ;; regarding assets.
3479     (license license:gpl3+)))
3480
3481 (define-public pinball
3482   (package
3483     (name "pinball")
3484     (version "0.3.1")
3485     (source
3486      (origin (method url-fetch)
3487              (uri (string-append "mirror://sourceforge/pinball/pinball/"
3488                                  "pinball-" version "/"
3489                                  "pinball-" version ".tar.gz"))
3490              (sha256
3491               (base32
3492                "1f2whlrfidwfh8lvr8cspcyirc6840r5d1ajm7x99qmngygrhixs"))
3493              (patches (search-patches "pinball-const-fix.patch"
3494                                       "pinball-cstddef.patch"
3495                                       "pinball-missing-separators.patch"
3496                                       "pinball-src-deps.patch"
3497                                       "pinball-system-ltdl.patch"))))
3498     (build-system gnu-build-system)
3499     (inputs
3500      `(("glu" ,glu)
3501        ("mesa" ,mesa)
3502        ("sdl" ,sdl)
3503        ("sdl-image" ,sdl-image)
3504        ("sdl-mixer" ,sdl-mixer)))
3505     (arguments
3506      '(#:configure-flags
3507        (list (string-append "CPPFLAGS=-I"
3508                             (assoc-ref %build-inputs "sdl-image")
3509                             "/include/SDL -I"
3510                             (assoc-ref %build-inputs "sdl-mixer")
3511                             "/include/SDL"))))
3512     (home-page "http://pinball.sourceforge.net")
3513     (synopsis "Pinball simulator")
3514     (description "The Emilia Pinball Project is a pinball simulator.  There
3515 are only two levels to play with, but they are very addictive.")
3516     (license license:gpl2)))
3517
3518 (define-public pioneers
3519   (package
3520     (name "pioneers")
3521     (version "15.5")
3522     (source (origin
3523               (method url-fetch)
3524               (uri (string-append "http://downloads.sourceforge.net/pio/"
3525                                   "pioneers-" version ".tar.gz"))
3526               (sha256
3527                (base32
3528                 "037gdiiw690jw3wd1s9lxmkqx0caxyk0b4drpm7i9p28gig43q9y"))))
3529     (build-system gnu-build-system)
3530     (inputs `(("avahi" ,avahi)
3531               ("gtk+" ,gtk+)
3532               ("librsvg" ,librsvg)))
3533     (native-inputs `(("intltool" ,intltool)
3534                      ("itstool" ,itstool)
3535                      ("libxml2" ,libxml2)
3536                      ("pkg-config" ,pkg-config)))
3537     (synopsis "Board game inspired by The Settlers of Catan")
3538     (description "Pioneers is an emulation of the board game The Settlers of
3539 Catan.  It can be played on a local network, on the internet, and with AI
3540 players.")
3541     (home-page "http://pio.sourceforge.net/")
3542     (license license:gpl2+)))
3543
3544 (define-public einstein
3545   (package
3546     (name "einstein")
3547     (version "2.0")
3548     (source (origin
3549               (method url-fetch)
3550               (uri (string-append "mirror://debian/pool/main/e/"
3551                                   "einstein/einstein_2.0.dfsg.2.orig.tar.gz"))
3552               (sha256
3553                (base32
3554                 "1hxrlv6n8py48j487i6wbb4n4vd55w0na69r7ccmmr9vmrsw5mlk"))
3555               (patches (search-patches "einstein-build.patch"))))
3556     (build-system gnu-build-system)
3557     (inputs
3558      `(("freetype" ,freetype)
3559        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf)))
3560        ("zlib" ,zlib)))
3561     (native-inputs
3562      `(("font-dejavu" ,font-dejavu)))
3563     (arguments
3564      `(#:tests? #f ; no check target
3565        #:phases
3566         (modify-phases %standard-phases
3567           (replace 'configure
3568           (lambda* (#:key outputs inputs #:allow-other-keys)
3569             (let ((out (assoc-ref outputs "out"))
3570                   (dejavu (string-append (assoc-ref inputs "font-dejavu")
3571                                          "/share/fonts/truetype/DejaVuSans.ttf")))
3572               (substitute* "Makefile"
3573                 (("PREFIX=/usr/local") (string-append "PREFIX=" out)))
3574               ;; The patch above registers a free font for use by the binary,
3575               ;; but the font is copied during the compile phase into a
3576               ;; resources file, so we need to make the ttf file available.
3577               (symlink dejavu "res/DejaVuSans.ttf")
3578               #t))))))
3579     (synopsis "Logic puzzle game")
3580     (description "The goal of this logic game is to open all cards in a 6x6
3581 grid, using a number of hints as to their relative position.  The game idea
3582 is attributed to Albert Einstein.")
3583     ;; The original home page has disappeared.
3584     (home-page (string-append "http://web.archive.org/web/20120521062745/"
3585                               "http://games.flowix.com/en/index.html"))
3586     ;; License according to
3587     ;; http://web.archive.org/web/20150222180355/http://www.babichev.info/en/projects/index.html
3588     ;; The source code is a DFSG-sanitized tarball and does not contain any
3589     ;; license information.
3590     (license license:gpl3+)))
3591
3592 (define-public powwow
3593   (package
3594     (name "powwow")
3595     (version "1.2.19")
3596     (source (origin
3597               (method url-fetch)
3598               (uri (string-append
3599                     "https://www.hoopajoo.net/static/projects/powwow-"
3600                     version ".tar.gz"))
3601               (sha256
3602                (base32
3603                 "10rjl63hmf62qslyhzqrbw3i2zf09dgxv65avhj0iiz0m4pbc9wy"))))
3604     (inputs
3605      `(("ncurses" ,ncurses)))
3606     (build-system gnu-build-system)
3607     (home-page "https://www.hoopajoo.net/projects/powwow.html")
3608     (synopsis "MUD and telnet client")
3609     (description
3610      "POWWOW is a client software which can be used for telnet as well as for
3611 @dfn{Multi-User Dungeon} (MUD).  Additionally it can serve as a nice client for
3612 the chat server psyced with the specific config located at
3613 http://lavachat.symlynx.com/unix/")
3614     (license license:gpl2+)))
3615
3616 (define-public red-eclipse
3617   (let ((release "2.0.0")
3618         (revision 0))
3619     (package
3620       (name "red-eclipse")
3621       (version (if (zero? revision)
3622                    release
3623                    (string-append release "-"
3624                                   (number->string revision))))
3625       (source
3626        (origin
3627          (method git-fetch)
3628          (uri (git-reference
3629                (url "https://github.com/redeclipse/base.git")
3630                (commit (string-append "v" release))
3631                (recursive? #t))) ; for game data
3632          (file-name (git-file-name name version))
3633          (sha256
3634           (base32 "0sz0mqhwx8r9n4mk3qrxw420nlsm3y0n48gd0lazgd64lfqjh3ab"))
3635          (modules '((guix build utils)))
3636          (snippet
3637           ;; Remove proprietary libraries and other pre-compiled binaries.
3638           '(begin
3639              (delete-file-recursively "bin")
3640              #t))))
3641       (build-system gnu-build-system)
3642       (arguments
3643        `(#:tests? #f            ; no check target
3644          #:make-flags (list "CC=gcc" "-Csrc"
3645                             (string-append "INSTDIR="
3646                                            (assoc-ref %outputs "out") "/bin")
3647                             (string-append "prefix="
3648                                            (assoc-ref %outputs "out")))
3649          #:phases
3650          (modify-phases %standard-phases
3651            (add-after 'unpack 'add-store-data-package-path-as-default
3652              (lambda* (#:key outputs #:allow-other-keys)
3653                (substitute* "src/engine/server.cpp"
3654                  (("data = \"data\"")
3655                   (string-append "data = \""
3656                                  (assoc-ref outputs "out")
3657                                  "/share/redeclipse/data\"")))
3658                #t))
3659            (delete 'configure)  ; no configure script
3660            (add-after 'set-paths 'set-sdl-paths
3661              (lambda* (#:key inputs #:allow-other-keys)
3662                (setenv "CPATH"
3663                        (string-append (assoc-ref inputs "sdl-union")
3664                                       "/include/SDL2:"
3665                                       (or (getenv "CPATH") "")))
3666                #t))
3667            (add-after 'install 'copy-data
3668              (lambda* (#:key outputs #:allow-other-keys)
3669                (let ((out (assoc-ref outputs "out")))
3670                  (copy-recursively "config"
3671                                    (string-append out "/config"))
3672                  (copy-file "doc/examples/servinit.cfg"
3673                             (string-append out "/config/servinit.cfg"))
3674                  (copy-recursively "data"
3675                                    (string-append out "/share/redeclipse/data"))
3676                  (mkdir-p (string-append out "/lib/redeclipse"))
3677                  (symlink (string-append out "/share/redeclipse/data")
3678                           (string-append out "/lib/redeclipse/data")))
3679                #t))
3680            (add-after 'copy-data 'wrap-program
3681              (lambda* (#:key inputs outputs #:allow-other-keys)
3682                (let* ((out (assoc-ref outputs "out"))
3683                       (bin (string-append out "/bin")))
3684                  (with-directory-excursion bin
3685                    (rename-file "redeclipse_linux"
3686                                 ".redeclipse_linux-real")
3687                    (rename-file "redeclipse_server_linux"
3688                                 ".redeclipse_server_linux-real")
3689                    (call-with-output-file "redeclipse_linux"
3690                      (lambda (port)
3691                        (format port "#!~a/bin/sh
3692 # Run the thing from its home, otherwise it just bails out.
3693 cd \"~a\"
3694 exec -a \"$0\" ~a/.redeclipse_linux-real~%"
3695                                (assoc-ref inputs "bash") ;implicit input
3696                                (string-append out)
3697                                (string-append bin))))
3698                    (call-with-output-file "redeclipse_server_linux"
3699                      (lambda (port)
3700                        (format port "#!~a/bin/sh
3701 # Run the thing from its home, otherwise it just bails out.
3702 cd \"~a\"
3703 exec -a \"$0\" ~a/.redeclipse_server_linux-real~%"
3704                                (assoc-ref inputs "bash") ;implicit input
3705                                (string-append out)
3706                                (string-append bin))))
3707                    (chmod "redeclipse_linux" #o555)
3708                    (chmod "redeclipse_server_linux" #o555)))
3709                #t)))))
3710       (native-inputs
3711        `(("pkg-config" ,pkg-config)))
3712       (inputs
3713        `(("curl" ,curl)
3714          ("freetype" ,freetype)
3715          ("glu" ,glu)
3716          ("sdl-union" ,(sdl-union (list sdl2
3717                                         sdl2-image
3718                                         sdl2-mixer)))))
3719       (home-page "https://redeclipse.net/")
3720       (synopsis "Arena shooter derived from the Cube 2 engine")
3721       (description
3722        "Red Eclipse is an arena shooter, created from the Cube2 engine.
3723 Offering an innovative parkour system and distinct but all potent weapons,
3724 Red Eclipse provides fast paced and accessible gameplay.")
3725       ;; The engine is under Zlib; data files are covered by the other
3726       ;; licenses.  More details at file:///doc/all-licenses.txt.
3727       (license (list license:expat
3728                      license:zlib
3729                      license:cc-by-sa4.0
3730                      license:cc-by-sa3.0
3731                      license:cc-by3.0
3732                      license:cc0
3733                      license:public-domain
3734                      license:silofl1.1)))))
3735
3736 (define-public grue-hunter
3737   (package
3738     (name "grue-hunter")
3739     (version "1.0")
3740     (source (origin
3741               (method url-fetch)
3742               (uri (string-append "https://jxself.org/grue-hunter.tar.gz"))
3743               (sha256
3744                (base32
3745                 "1hjcpy5439qs3v2zykis7hsi0i17zjs62gks3zd8mnfw9ni4i2h3"))))
3746     (build-system trivial-build-system) ; no Makefile.PL
3747     (arguments `(#:modules ((guix build utils))
3748                  #:builder
3749                  (begin
3750                    (use-modules (guix build utils))
3751                    (use-modules (srfi srfi-1))
3752
3753                    (let* ((tarball (assoc-ref %build-inputs "tarball"))
3754                           (perl    (string-append (assoc-ref %build-inputs
3755                                                              "perl")
3756                                                   "/bin"))
3757                           (gzip    (string-append (assoc-ref %build-inputs
3758                                                              "gzip")
3759                                                   "/bin/gzip"))
3760                           (tar     (string-append (assoc-ref %build-inputs
3761                                                              "tar")
3762                                                   "/bin/tar"))
3763                           (out     (assoc-ref %outputs "out"))
3764                           (bin     (string-append out "/bin"))
3765                           (doc     (string-append out
3766                                                   "/share/doc/grue-hunter")))
3767                      (copy-file tarball "grue-hunter.tar.gz")
3768                      (invoke gzip "-d" "grue-hunter.tar.gz")
3769                      (invoke tar "xvf" "grue-hunter.tar")
3770
3771                      (mkdir-p bin)
3772                      (copy-file "grue-hunter/gh.pl"
3773                                 (string-append bin "/grue-hunter"))
3774                      (patch-shebang (string-append bin "/grue-hunter")
3775                                     (list perl))
3776
3777                      (install-file "grue-hunter/AGPLv3.txt" doc)
3778
3779                      #t))))
3780     (inputs `(("perl" ,perl)
3781               ("tar" ,tar)
3782               ("gzip" ,gzip)
3783               ("tarball" ,source)))
3784     (home-page "https://jxself.org/grue-hunter.shtml")
3785     (synopsis "Text adventure game")
3786     (description
3787      "Grue Hunter is a text adventure game written in Perl.  You must make
3788 your way through an underground cave system in search of the Grue.  Can you
3789 capture it and get out alive?")
3790     (license license:agpl3+)))
3791
3792 (define-public lierolibre
3793   (package
3794     (name "lierolibre")
3795     (version "0.5")
3796     (source (origin
3797               (method url-fetch)
3798               (uri (string-append "https://launchpad.net/lierolibre/trunk/"
3799                                   version "/+download/lierolibre-"
3800                                   version ".tar.xz"))
3801               (sha256
3802                (base32
3803                 "1cf1gvsn4qq190lrf9k5bpjnqwlcfw7pajvdnh7z5r4jqw0rsbl9"))
3804               (patches
3805                (search-patches "lierolibre-check-unaligned-access.patch"
3806                                "lierolibre-try-building-other-arch.patch"
3807                                "lierolibre-remove-arch-warning.patch"
3808                                "lierolibre-newer-libconfig.patch"
3809                                "lierolibre-is-free-software.patch"))
3810               (modules '((guix build utils)))
3811               (snippet
3812                '(begin
3813                   ;; Delete pre-compiled files.
3814                   (delete-file "data/LIERO.CHR")
3815                   (delete-file "data/LIERO.SND")
3816                   #t))))
3817     (build-system gnu-build-system)
3818     (native-inputs
3819      `(("imagemagick" ,imagemagick)
3820        ("pkg-config" ,pkg-config)
3821        ("util-linux" ,util-linux)
3822        ("sox" ,sox)))
3823     (inputs
3824      `(("boost" ,boost)
3825        ("libconfig" ,libconfig)
3826        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
3827        ("zlib" ,zlib)))
3828     (home-page "https://gitlab.com/lierolibre/lierolibre")
3829     (synopsis "Old-school earthworm action game")
3830     (description
3831      "lierolibre is an earthworm action game where you fight another player
3832 (or the computer) underground using a wide array of weapons.
3833
3834 Features:
3835 @itemize
3836 @item 2 worms, 40 weapons, great playability, two game modes: Kill'em All
3837 and Game of Tag, plus AI-players without true intelligence!
3838 @item Dat nostalgia.
3839 @item Extensions via a hidden F1 menu:
3840 @itemize
3841 @item Replays
3842 @item Game controller support
3843 @item Powerlevel palettes
3844 @end itemize
3845 @item Ability to write game variables to plain text files.
3846 @item Ability to load game variables from both EXE and plain text files.
3847 @item Scripts to extract and repack graphics, sounds and levels.
3848 @end itemize
3849
3850 To switch between different window sizes, use F6, F7 and F8, to switch to
3851 fullscreen, use F5 or Alt+Enter.")
3852     ;; Code mainly BSD-2, some parts under Boost 1.0. All assets are WTFPL2.
3853     (license (list license:bsd-2 license:boost1.0 license:wtfpl2))))
3854
3855 (define-public tennix
3856   (package
3857     (name "tennix")
3858     (version "1.3.1")
3859     (source
3860      (origin
3861        (method git-fetch)
3862        (uri (git-reference
3863              (url "https://repo.or.cz/tennix.git")
3864              (commit (string-append "tennix-" version))))
3865        (file-name (git-file-name name version))
3866        (sha256
3867         (base32 "02cj4lrdrisal5s9pnbf2smx7qz9czczjzndfkhfx0qy67b957sk"))
3868        ;; Remove non-free images.
3869        (modules '((guix build utils)))
3870        (snippet
3871         '(begin
3872            (for-each delete-file
3873                      '("data/loc_training_camp.png"
3874                        "data/loc_austrian_open.png"
3875                        "data/loc_olympic_green_tennis.png"))
3876            #t))))
3877     (build-system gnu-build-system)
3878     (arguments
3879      `(#:tests? #f                      ;no test
3880        #:phases
3881        (modify-phases %standard-phases
3882          (add-after 'unpack 'fix-include
3883            (lambda _
3884              (substitute* '("src/graphics.h" "src/sound.h")
3885                (("#include \"(SDL_(image|ttf|mixer)\\.h)\"" _ header)
3886                 (string-append "#include \"SDL/" header "\"")))
3887              (substitute* '("src/tennix.h" "src/network.h" "src/SDL_rotozoom.h")
3888                (("#include <SDL.h>") "#include <SDL/SDL.h>")
3889                (("#include <SDL_net.h>") "#include <SDL/SDL_net.h>"))
3890              #t))
3891          (add-after 'unpack 'locate-install
3892            ;; Build process cannot expand "$(INSTALL)" in Makefile.
3893            (lambda _
3894              (substitute* "makefile"
3895                (("^CONFIGURE_OUTPUT :=.*" all)
3896                 (string-append "INSTALL := install -c\n" all)))
3897              #t))
3898          (replace 'configure
3899            ;; The "configure" script is picky about the arguments it
3900            ;; gets.  Call it ourselves.
3901            (lambda _
3902              (invoke "./configure" "--prefix" (assoc-ref %outputs "out")))))))
3903     (native-inputs
3904      `(("which" ,which)))
3905     (inputs
3906      `(("python" ,python-wrapper)
3907        ("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf sdl-net)))))
3908     (home-page "http://icculus.org/tennix/")
3909     (synopsis "Play tennis against the computer or a friend")
3910     (description "Tennix is a 2D tennis game.  You can play against the
3911 computer or against another player using the keyboard.  The game runs
3912 in-window at 640x480 resolution or fullscreen.")
3913     ;; Project is licensed under GPL2+ terms.  It includes images
3914     ;; released under Public Domain terms, and SDL_rotozoom, released
3915     ;; under LGPL2.1 terms.
3916     (license (list license:gpl2+ license:public-domain license:lgpl2.1))))
3917
3918 (define-public warzone2100
3919   (package
3920     (name "warzone2100")
3921     (version "3.2.3")
3922     (source
3923      (origin
3924        (method url-fetch)
3925        (uri (string-append "mirror://sourceforge/warzone2100/archives/"
3926                            "unsupported/Warzone2100-"
3927                            (version-major+minor version) "/" version
3928                            "/warzone2100-" version ".tar.xz"))
3929        (sha256
3930         (base32 "10kmpr4cby95zwqsl1zwx95d9achli6khq7flv6xmrq30a39xazw"))))
3931     (build-system gnu-build-system)
3932     (arguments
3933      `(#:configure-flags '("--with-distributor=Guix")
3934        #:phases
3935        (modify-phases %standard-phases
3936          (add-after 'unpack 'link-tests-with-qt
3937            (lambda _
3938              (substitute* "tests/Makefile.in"
3939                (("(framework_linktest_LDADD|maptest_LDADD) = " prefix)
3940                 (string-append prefix "$(QT5_LIBS) ")))
3941              #t))
3942          (add-after 'unpack 'fix-ivis-linktest
3943            (lambda _
3944              (substitute* "tests/ivis_linktest.cpp"
3945                (("iV_DrawTextRotated.*;")
3946                 (string-append "iV_DrawTextRotated(\"Press ESC to exit.\", "
3947                                "100, 100, 0.0f, font_regular);")))
3948              #t)))))
3949     (native-inputs `(("gettext" ,gettext-minimal)
3950                      ("pkg-config" ,pkg-config)
3951                      ("unzip" ,unzip)
3952                      ("zip" ,zip)))
3953     (inputs `(("fontconfig" ,fontconfig)
3954               ("freetype" ,freetype)
3955               ("fribidi" ,fribidi)
3956               ("glew" ,glew)
3957               ("harfbuzz" ,harfbuzz)
3958               ("libtheora" ,libtheora)
3959               ("libvorbis" ,libvorbis)
3960               ("libxrandr" ,libxrandr)
3961               ("openal" ,openal)
3962               ("physfs" ,physfs)
3963               ("qtbase" ,qtbase)
3964               ("qtscript" ,qtscript)
3965               ("openssl" ,openssl)
3966               ("sdl2" ,sdl2)))
3967     (home-page "https://wz2100.net")
3968     (synopsis "3D Real-time strategy and real-time tactics game")
3969     (description
3970      "Warzone 2100 offers campaign, multi-player, and single-player skirmish
3971 modes. An extensive tech tree with over 400 different technologies, combined
3972 with the unit design system, allows for a wide variety of possible units and
3973 tactics.")
3974                                         ; Everything is GPLv2+ unless otherwise specified in COPYING.NONGPL
3975     (license (list license:bsd-3
3976                    license:cc0
3977                    license:cc-by-sa3.0
3978                    license:expat
3979                    license:gpl2+
3980                    license:lgpl2.1+))))
3981
3982 (define-public starfighter
3983   (package
3984     (name "starfighter")
3985     (version "2.0.0.3")
3986     (source (origin
3987               (method url-fetch)
3988               (uri (string-append
3989                     "https://github.com/pr-starfighter/starfighter/releases"
3990                     "/download/v" version "/starfighter-"
3991                     (version-major+minor version) "-src.tar.gz"))
3992               (sha256
3993                (base32
3994                 "13vi5kh9ahws4f52421cbyw0jn7pmbnld358lqfmr6flql7ilj3b"))))
3995     (build-system gnu-build-system)
3996     (native-inputs
3997      `(("pkg-config" ,pkg-config)))
3998     (inputs
3999      `(("pango" ,pango)
4000        ("sdl2" ,sdl2)
4001        ("sdl2-image" ,sdl2-image)
4002        ("sdl2-mixer" ,sdl2-mixer)
4003        ("sdl2-ttf" ,sdl2-ttf)))
4004     (home-page "https://pr-starfighter.github.io/")
4005     (synopsis "2D scrolling shooter game")
4006     (description
4007      "In the year 2579, the intergalactic weapons corporation, WEAPCO, has
4008 dominated the galaxy.  Guide Chris Bainfield and his friend Sid Wilson on
4009 their quest to liberate the galaxy from the clutches of WEAPCO.  Along the
4010 way, you will encounter new foes, make new allies, and assist local rebels
4011 in strikes against the evil corporation.")
4012     ;; gfx and music are under CC-BY 3.0, CC-BY-SA 3.0, CC0 or Public Domain.
4013     (license (list license:gpl3+
4014                    license:cc-by3.0
4015                    license:cc-by-sa3.0
4016                    license:cc0
4017                    license:public-domain))))
4018
4019 (define-public chromium-bsu
4020   (package
4021     (name "chromium-bsu")
4022     (version "0.9.16.1")
4023     (source (origin
4024               (method url-fetch)
4025               (uri (string-append "mirror://sourceforge/chromium-bsu"
4026                                   "/Chromium B.S.U. source code/"
4027                                   "chromium-bsu-" version ".tar.gz"))
4028               (sha256
4029                (base32
4030                 "0jk2w5b6s6nkzri585bbz16cif2fhqcnl5l1mq3rd98r9nil3hd1"))))
4031     (build-system gnu-build-system)
4032     (native-inputs `(("pkg-config" ,pkg-config)))
4033     (inputs `(("gettext" ,gettext-minimal)
4034               ("glu" ,glu)
4035               ("quesoglc" ,quesoglc)
4036               ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))))
4037     (home-page "http://chromium-bsu.sourceforge.net/")
4038     (synopsis "Fast-paced, arcade-style, top-scrolling space shooter")
4039     (description
4040      "In this game you are the captain of the cargo ship Chromium B.S.U. and
4041 are responsible for delivering supplies to the troops on the front line.  Your
4042 ship has a small fleet of robotic fighters which you control from the relative
4043 safety of the Chromium vessel.")
4044     ;; Clarified Artistic License for everything but sound, which is covered
4045     ;; by the Expat License.
4046     (license (list license:clarified-artistic license:expat))))
4047
4048 (define-public tuxpaint
4049   (package
4050     (name "tuxpaint")
4051     (version "0.9.23")                  ;keep VER_DATE below in sync
4052     (source
4053      (origin
4054        (method url-fetch)
4055        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint/"
4056                            version "/tuxpaint-" version ".tar.gz"))
4057        (sha256
4058         (base32
4059          "09k9pxi88r3dx6dyjwf9h85d4qpva4i29qz63dc558hg9v21k69l"))
4060        (modules '((guix build utils)))
4061        (snippet
4062         '(begin
4063            ;; Remove win32 directory which contains binary dll's and the
4064            ;; deprecated visualc directory.
4065            (for-each delete-file-recursively '("win32" "visualc"))
4066            (substitute* "Makefile"
4067              ;; Do not rely on $(GPERF) being an absolute file name
4068              (("\\[ -x \\$\\(GPERF\\) \\]")
4069               "$(GPERF) --version >/dev/null 2>&1"))
4070            #t))
4071        (patches (search-patches "tuxpaint-stamps-path.patch"))))
4072     (build-system gnu-build-system)
4073     (native-inputs
4074      `(("gperf" ,gperf)
4075        ("pkg-config" ,pkg-config)))
4076     (inputs
4077      `(("cairo" ,cairo)
4078        ("fribidi" ,fribidi)
4079        ("gettext" ,gettext-minimal)
4080        ("libpng" ,libpng)
4081        ("librsvg" ,librsvg)
4082        ("libpaper" ,libpaper)
4083        ("netpbm" ,netpbm)
4084        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf sdl-image)))))
4085     ;; TODO: Use system fonts rather than those in data/fonts
4086     (arguments
4087      `(#:make-flags `("VER_DATE=2018-09-02"
4088                       "GPERF=gperf" "CC=gcc"
4089                       "SDL_PCNAME=sdl SDL_image SDL_mixer SDL_ttf"
4090                       ,(string-append "PREFIX=" %output)
4091                       "KDE_PREFIX=$(PREFIX)/share/applications"
4092                       "KDE_ICON_PREFIX=$(PREFIX)/share/icons/"
4093                       "COMPLETIONDIR=$(PREFIX)/etc/bash_completion.d")
4094        #:parallel-build? #f             ;fails on some systems
4095        #:tests? #f                      ;No tests
4096        #:phases (modify-phases %standard-phases
4097                   (delete 'configure)   ;no configure phase
4098                   (add-before 'install 'no-sys-cache
4099                     (lambda _           ;do not rebuild system conf cache
4100                       (substitute* "Makefile"
4101                         (("kbuildsycoca4") ""))
4102                       #t))
4103                   (add-after 'install 'fix-import
4104                     (lambda* (#:key inputs outputs #:allow-other-keys)
4105                       (let* ((out (assoc-ref outputs "out"))
4106                              (net (assoc-ref inputs "netpbm"))
4107                              (tpi (string-append out "/bin/tuxpaint-import")))
4108                         (substitute* tpi
4109                           ;; Point to installation prefix so that the default
4110                           ;; configure file is found.
4111                           (("/usr/local") out))
4112                         ;; tuxpaint-import uses a bunch of programs from
4113                         ;; netpbm, so make sure it knows where those are
4114                         (wrap-program tpi
4115                           `("PATH" ":" prefix
4116                             (,(string-append net "/bin"))))))))))
4117     (native-search-paths
4118      (list (search-path-specification
4119             (variable "TUXPAINT_STAMPS_PATH")
4120             (files '("share/tuxpaint/stamps")))))
4121     (home-page "http://www.tuxpaint.org")
4122     (synopsis "Drawing software for children")
4123     (description
4124      "Tux Paint is a free drawing program designed for young children (kids
4125 ages 3 and up).  It has a simple, easy-to-use interface; fun sound effects;
4126 and an encouraging cartoon mascot who helps guide children as they use the
4127 program.  It provides a blank canvas and a variety of drawing tools to help
4128 your child be creative.")
4129     (license license:gpl2+)))
4130
4131 (define-public tuxpaint-stamps
4132   (package
4133     (name "tuxpaint-stamps")
4134     (version "2018.09.01")
4135     (source
4136      (origin
4137        (method url-fetch)
4138        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-stamps/"
4139                            (string-map (λ (x) (if (eq? x #\.) #\- x)) version)
4140                            "/tuxpaint-stamps-" version ".tar.gz"))
4141        (sha256
4142         (base32
4143          "1skr23k27yj3vgwfazpzxp90lb2a278gxrkr3bxw7az6zpkmb3yp"))))
4144     (build-system trivial-build-system)
4145     (native-inputs
4146      `(("tar" ,tar)
4147        ("gzip" ,gzip)))
4148     (arguments
4149      `(#:modules ((guix build utils))
4150        #:builder (begin
4151                    (use-modules (guix build utils))
4152                    (setenv "PATH"
4153                            (string-append
4154                             (assoc-ref %build-inputs "tar") "/bin" ":"
4155                             (assoc-ref %build-inputs "gzip") "/bin"))
4156                    (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
4157                    (chdir (string-append ,name "-" ,version))
4158                    (let ((dir (string-append %output "/share/tuxpaint/stamps")))
4159                      (mkdir-p dir)
4160                      (copy-recursively "stamps" dir))
4161                    #t)))
4162     (home-page (package-home-page tuxpaint))
4163     (synopsis "Stamp images for Tux Paint")
4164     (description
4165      "This package contains a set of \"Rubber Stamp\" images which can be used
4166 with the \"Stamp\" tool within Tux Paint.")
4167     (license license:gpl2+)))
4168
4169 (define-public tuxpaint-config
4170   (package
4171     (name "tuxpaint-config")
4172     (version "0.0.14")                  ;keep VER_DATE below in sync
4173     (source
4174      (origin
4175        (method url-fetch)
4176        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-config/"
4177                            version "/tuxpaint-config-" version ".tar.gz"))
4178        (sha256
4179         (base32
4180          "0zkgxk436nqcp43zghkfmh397c7dvh5bwn2as7gwvv208bzyij6g"))))
4181     (build-system gnu-build-system)
4182     (native-inputs
4183      `(("gettext" ,gettext-minimal)))
4184     (inputs
4185      `(("fltk" ,fltk)
4186        ("libpaper" ,libpaper)
4187        ;; TODO: Should the following be propagated by fltk?
4188        ("libx11" ,libx11)
4189        ("libxft" ,libxft)
4190        ("mesa" ,mesa)))
4191     (arguments
4192      `(#:make-flags `("VER_DATE=2018-09-01"
4193                       "CONFDIR=/etc/tuxpaint" ;don't write to store
4194                       ,(string-append "PREFIX=" %output)
4195                       "GNOME_PREFIX=$(PREFIX)")
4196        #:parallel-build? #f             ;race conditions
4197        #:tests? #f                      ;no tests
4198        #:phases (modify-phases %standard-phases
4199                   (delete 'configure)   ;no configure phase
4200                   (add-before 'install 'gzip-no-name
4201                     (lambda* _
4202                       (substitute* "Makefile"
4203                         ;; tuxpaint-config compresses its own documentation;
4204                         ;; make sure it uses flags for reproducibility.
4205                         (("gzip") "gzip --no-name"))))
4206                   (add-before 'install 'make-install-dirs
4207                     (lambda* (#:key outputs #:allow-other-keys)
4208                       (let ((out (assoc-ref outputs "out")))
4209                         (mkdir-p (string-append out "/bin"))
4210                         #t))))))
4211     (home-page (package-home-page tuxpaint))
4212     (synopsis "Configure Tux Paint")
4213     (description
4214      "Tux Paint Config is a graphical configuration editor for Tux Paint.")
4215     (license license:gpl2)))            ;no "or later" present
4216
4217 (define-public supertux
4218   (package
4219    (name "supertux")
4220    (version "0.6.2")
4221    (source (origin
4222             (method url-fetch)
4223             (uri (string-append "https://github.com/SuperTux/supertux/"
4224                                 "releases/download/v" version "/SuperTux-v"
4225                                 version "-Source.tar.gz"))
4226             (file-name (string-append name "-" version ".tar.gz"))
4227             (sha256
4228              (base32
4229               "167m3z4m8n76dvbv42m1fnvabpbpsxvr28zk9641916jl9pfba96"))
4230             (patches
4231              (search-patches "supertux-unbundle-squirrel.patch"))))
4232    (arguments
4233     '(#:tests? #f
4234       #:configure-flags '("-DINSTALL_SUBDIR_BIN=bin"
4235                           "-DUSE_SYSTEM_PHYSFS=ON")
4236       #:phases
4237       (modify-phases %standard-phases
4238         (add-after 'unpack 'patch-squirrel-path
4239           (lambda* (#:key inputs #:allow-other-keys)
4240             (let ((squirrel (assoc-ref inputs "squirrel")))
4241               (substitute* "CMakeLists.txt"
4242                 (("set\\(SQUIRREL_PREFIX.*")
4243                  (string-append "set(SQUIRREL_PREFIX " squirrel ")"))
4244                 (("add_dependencies\\(supertux2_lib squirrel\\)") "")
4245                 (("\\$\\{SQUIRREL_PREFIX\\}/include")
4246                  (string-append "${SQUIRREL_PREFIX}/include/squirrel"))))
4247             #t)))))
4248    (build-system cmake-build-system)
4249    (inputs `(("sdl2" ,sdl2)
4250              ("sdl2-image" ,sdl2-image)
4251              ("sdl2-mixer" ,sdl2-mixer)
4252              ("openal" ,openal)
4253              ("mesa" ,mesa)
4254              ("glew" ,glew)
4255              ("libvorbis" ,libvorbis)
4256              ("libogg" ,libogg)
4257              ("physfs" ,physfs)
4258              ("curl" ,curl)
4259              ("boost" ,boost)
4260              ("freetype" ,freetype)
4261              ("squirrel" ,squirrel)))
4262    (native-inputs
4263     `(("pkg-config" ,pkg-config)))
4264    (synopsis "2D platformer game")
4265    (description "SuperTux is a classic 2D jump'n run sidescroller game in
4266 a style similar to the original Super Mario games.")
4267    (home-page "https://supertux.org/")
4268    (license license:gpl3+)))
4269
4270 (define-public tintin++
4271   (package
4272     (name "tintin++")
4273     (version "2.02.02")
4274     (source
4275      (origin
4276        (method url-fetch)
4277        (uri (string-append "mirror://sourceforge/tintin/TinTin++ Source Code/"
4278                            (string-drop-right version 1)
4279                            "/tintin-" version ".tar.gz"))
4280        (sha256
4281         (base32 "11ylbp8ip7dwmh4gzb53z147pcfxkl3lwhyy8ngyn2zc634vdn65"))))
4282     (inputs
4283      `(("gnutls" ,gnutls)
4284        ("pcre" ,pcre)
4285        ("readline" ,readline)
4286        ("zlib" ,zlib)))
4287     (arguments
4288      '(#:tests? #f                      ; no test suite
4289        #:phases
4290        (modify-phases %standard-phases
4291          ;; The source is in tt/src.
4292          (add-before 'configure 'chdir
4293            (lambda _
4294              (chdir "src")
4295              #t)))))
4296     (build-system gnu-build-system)
4297     (home-page "https://tintin.mudhalla.net/")
4298     (synopsis "MUD client")
4299     (description
4300      "TinTin++ is a MUD client which supports MCCP (Mud Client Compression
4301 Protocol), MMCP (Mud Master Chat Protocol), xterm 256 colors, most TELNET
4302 options used by MUDs, as well as those required to login via telnet on
4303 Linux / Mac OS X servers, and an auto mapper with a VT100 map display.")
4304     (license license:gpl3+)))
4305
4306 (define-public laby
4307   (package
4308     (name "laby")
4309     (version "0.6.4")
4310     (source
4311      (origin (method git-fetch)
4312              (uri (git-reference
4313                     (url "https://github.com/sgimenez/laby.git")
4314                     (commit (string-append name "-" version))))
4315              (file-name (git-file-name name version))
4316              (sha256
4317               (base32
4318                "12fq9hhrxpzgfinmj9ra9ckss9yficwdlrmgjvvsq7agvh3sgyl1"))
4319              (patches (search-patches "laby-make-install.patch"))))
4320     (build-system gnu-build-system)
4321     (inputs
4322      `(("lablgtk" ,lablgtk)
4323        ("ocaml" ,ocaml)
4324        ("ocaml-findlib" ,ocaml-findlib)
4325        ("ocamlbuild" ,ocamlbuild)))
4326     (arguments
4327      '(#:phases
4328        (modify-phases %standard-phases
4329          (delete 'configure)
4330          (add-before 'build 'allow-unsafe-strings
4331            ;; Fix a build failure with ocaml >=4.06.0.
4332            ;; See <https://github.com/sgimenez/laby/issues/53>.
4333            (lambda _
4334              (setenv "OCAMLPARAM" "safe-string=0,_")
4335              #t))
4336          (add-before 'build 'set-library-path
4337            (lambda* (#:key inputs #:allow-other-keys)
4338              (let ((lablgtk (assoc-ref inputs "lablgtk")))
4339                (setenv "LD_LIBRARY_PATH"
4340                        (string-append lablgtk "/lib/ocaml/stublibs"))))))
4341        #:tests? #f ; no 'check' target
4342        #:make-flags
4343        (list (string-append "PREFIX=" (assoc-ref %outputs "out")) "all")))
4344     (home-page "https://sgimenez.github.io/laby/")
4345     (synopsis "Programming game")
4346     (description "Learn programming, playing with ants and spider webs ;-)
4347 Your robot ant can be programmed in many languages: OCaml, Python, C, C++,
4348 Java, Ruby, Lua, JavaScript, Pascal, Perl, Scheme, Vala, Prolog.  Experienced
4349 programmers may also add their own favorite language.")
4350     (license license:gpl3+)))
4351
4352 (define-public bambam
4353   (package
4354     (name "bambam")
4355     (version "1.0.0")
4356     (source
4357       (origin
4358         (method git-fetch)
4359         (uri (git-reference
4360               (url "https://github.com/porridge/bambam")
4361               (commit (string-append "v" version))))
4362         (file-name (git-file-name name version))
4363         (sha256
4364          (base32 "18cwd1wpyyx8y61cags9bkdhx9x858xicc4y1c9c2s0xjmgzhl3i"))))
4365     (build-system python-build-system)
4366     (arguments
4367      `(#:tests? #f                      ; no tests
4368        #:phases
4369        (modify-phases %standard-phases
4370          (delete 'build)                ; nothing to build
4371          (replace 'install
4372            (lambda* (#:key outputs #:allow-other-keys)
4373              (let* ((out   (assoc-ref outputs "out"))
4374                     (bin   (string-append out "/bin"))
4375                     (share (string-append out "/share")))
4376                (mkdir-p bin)
4377                (copy-file "bambam.py" (string-append bin "/bambam"))
4378                (install-file "bambam.6" (string-append share "/man/man6"))
4379                (copy-recursively "data" (string-append share "/bambam/data")))
4380              #t)))))
4381     (inputs
4382      `(("python-pygame" ,python-pygame)))
4383     (home-page "https://github.com/porridge/bambam")
4384     (synopsis "Keyboard mashing and doodling game for babies")
4385     (description "Bambam is a simple baby keyboard (and gamepad) masher
4386 application that locks the keyboard and mouse and instead displays bright
4387 colors, pictures, and sounds.")
4388     (license license:gpl3+)))
4389
4390 (define-public mrrescue
4391   (package
4392     (name "mrrescue")
4393     (version "1.02e")
4394     (source (origin
4395               (method url-fetch)
4396               (uri (string-append
4397                     "https://github.com/SimonLarsen/mrrescue/releases/"
4398                     "download/" version "/mrrescue" version ".love"))
4399               (file-name (string-append name "-" version ".love"))
4400               (sha256
4401                (base32
4402                 "0jwzbwkgp1l5ia6c7s760gmdirbsncp6nfqp7vqdqsfb63la9gl2"))))
4403     (build-system trivial-build-system)
4404     (arguments
4405      `(#:modules ((guix build utils))
4406        #:builder
4407        (begin
4408          (use-modules (guix build utils))
4409          (let* ((out    (assoc-ref %outputs "out"))
4410                 (script (string-append out "/bin/" ,name))
4411                 (data   (string-append out "/share/" ,name))
4412                 (source (assoc-ref %build-inputs "source"))
4413                 (unzip  (string-append (assoc-ref %build-inputs "unzip")
4414                                        "/bin/unzip"))
4415                 (patch  (string-append (assoc-ref %build-inputs "patch")
4416                                        "/bin/patch"))
4417                 (bash   (string-append (assoc-ref %build-inputs "bash")
4418                                        "/bin/bash"))
4419                 (love   (string-append (assoc-ref %build-inputs "love")
4420                                        "/bin/love")))
4421
4422            (mkdir-p (dirname script))
4423            (with-output-to-file script
4424              (lambda ()
4425                (format #t "#!~a~%" bash)
4426                (format #t "exec -a ~a \"~a\" \"~a\"~%" ,name love data)))
4427            (chmod script #o755)
4428
4429            ;; The better way to package this game would be to install *only* the
4430            ;; script above, pointing to the unextracted .love file in the store.
4431            ;; However, mrrescue 1.02e needs to be patched to work with Love 11.
4432            ;; Instead of extracting the .love file, patching it, and re-zipping
4433            ;; it to the store, simply point the script to the extracted patched
4434            ;; data directory directly.
4435            (mkdir-p data)
4436            (with-directory-excursion data
4437              (invoke unzip source)
4438              (invoke patch "-p1" "-i"
4439                      (assoc-ref %build-inputs "love-11.patch")))
4440            #t))))
4441     (native-inputs
4442      `(("unzip" ,unzip)
4443        ("patch" ,patch)
4444        ("love-11.patch" ,(search-patch "mrrescue-support-love-11.patch"))))
4445     (inputs
4446      `(("bash" ,bash)
4447        ("love" ,love)))
4448     (home-page "https://tangramgames.dk/games/mrrescue")
4449     (synopsis "Arcade-style fire fighting game")
4450     (description
4451      "Mr. Rescue is an arcade styled 2d action game centered around evacuating
4452 civilians from burning buildings.  The game features fast-paced fire
4453 extinguishing action, intense boss battles, a catchy soundtrack, and lots of
4454 throwing people around in pseudo-randomly generated buildings.")
4455     (license (list license:zlib             ; for source code
4456                    license:cc-by-sa3.0))))  ; for graphics and music assets
4457
4458 (define-public hyperrogue
4459   (package
4460     (name "hyperrogue")
4461     (version "11.3a")
4462     ;; When updating this package, be sure to update the "hyperrogue-data"
4463     ;; origin in native-inputs.
4464     (source (origin
4465               (method url-fetch)
4466               (uri (string-append
4467                     "https://www.roguetemple.com/z/hyper/hyperrogue"
4468                     (string-join (string-split version #\.) "")
4469                     "-src.tgz"))
4470               (sha256
4471                (base32
4472                 "1yxabbswq02fc5frigvs43f83m5vlxybc7n5mynkwzj2c70lfp2k"))))
4473     (build-system gnu-build-system)
4474     (arguments
4475      `(#:tests? #f ; no check target
4476        #:make-flags '("HYPERROGUE_USE_GLEW=1"
4477                       "HYPERROGUE_USE_PNG=1")
4478        #:phases
4479        (modify-phases %standard-phases
4480          (add-after 'set-paths 'set-sdl-paths
4481            (lambda* (#:key inputs #:allow-other-keys)
4482              (setenv "CPATH"
4483                      (string-append (or (getenv "CPATH") "") ":"
4484                                     (assoc-ref inputs "sdl-union")
4485                                     "/include/SDL"))))
4486          (replace 'configure
4487            (lambda* (#:key inputs outputs #:allow-other-keys)
4488              (let* ((out (assoc-ref outputs "out"))
4489                     (share-dir (string-append out "/share/hyperrogue"))
4490                     (dejavu-dir (string-append
4491                                  (assoc-ref inputs "font-dejavu")
4492                                  "/share/fonts/truetype"))
4493                     (dejavu-font "DejaVuSans-Bold.ttf")
4494                     (music-file "hyperrogue-music.txt"))
4495                ;; Fix font and music paths.
4496                (substitute* "basegraph.cpp"
4497                  ((dejavu-font)
4498                   (string-append dejavu-dir "/" dejavu-font)))
4499                (substitute* music-file
4500                  (("\\*/")
4501                   (string-append share-dir "/sounds/")))
4502                (substitute* "sound.cpp"
4503                  (("musicfile = \"\"")
4504                   (string-append "musicfile = \""
4505                                  share-dir "/" music-file "\"")))
4506                ;; Disable build machine CPU optimizations and warnings treated
4507                ;; as errors.
4508                (substitute* "Makefile"
4509                  (("-march=native") "")
4510                  (("-Werror") "")))
4511              #t))
4512          (replace 'install
4513            (lambda* (#:key inputs outputs #:allow-other-keys)
4514              (let* ((out (assoc-ref outputs "out"))
4515                     (bin (string-append out "/bin"))
4516                     (share-dir (string-append out "/share/hyperrogue")))
4517                (mkdir-p bin)
4518                (install-file "hyperrogue" bin)
4519                (install-file "hyperrogue-music.txt" share-dir))
4520              #t))
4521          (add-after 'install 'install-data
4522            (lambda* (#:key inputs outputs #:allow-other-keys)
4523              (let* ((data (assoc-ref inputs "hyperrogue-data"))
4524                     (out (assoc-ref outputs "out"))
4525                     (sounds (string-append out "/share/hyperrogue/sounds"))
4526                     (unzip (string-append (assoc-ref inputs "unzip") "/bin/unzip")))
4527                ;; Extract media license information into sounds directory.
4528                (invoke unzip "-j" data
4529                        (string-append
4530                         "hyperrogue"
4531                         (string-join (string-split ,version #\.) "")
4532                         "/sounds/credits.txt") "-d" sounds)
4533                ;; Extract sounds and music into sounds directory.
4534                (invoke "unzip" "-j" data
4535                        (string-append
4536                         "hyperrogue"
4537                         (string-join (string-split ,version #\.) "")
4538                         "/*.ogg") "-d" sounds)))))))
4539     (native-inputs
4540      `(("hyperrogue-data"
4541         ,(origin
4542            (method url-fetch)
4543            (uri
4544             (string-append
4545              "https://www.roguetemple.com/z/hyper/hyperrogue"
4546              (string-join (string-split version #\.) "")
4547              "-win.zip"))
4548            (sha256
4549             (base32
4550              "11yhbia45f1w9z0j67h9nynwjqmvakr9l6rnrmdrdkzin6lvzzj4"))))
4551        ("unzip" ,unzip)))
4552     (inputs
4553      `(("font-dejavu" ,font-dejavu)
4554        ("glew" ,glew)
4555        ("libpng" ,libpng)
4556        ("sdl-union" ,(sdl-union (list sdl
4557                                       sdl-gfx
4558                                       sdl-mixer
4559                                       sdl-ttf)))))
4560     (home-page "https://www.roguetemple.com/z/hyper/")
4561     (synopsis "Non-euclidean graphical rogue-like game")
4562     (description
4563      "HyperRogue is a game in which the player collects treasures and fights
4564 monsters -- rogue-like but for the fact that it is played on the hyperbolic
4565 plane and not in euclidean space.
4566
4567 In HyperRogue, the player can move through different parts of the world, which
4568 are home to particular creatures and may be subject to their own rules of
4569 \"physics\".
4570
4571 While the game can use ASCII characters to display the the classical rogue
4572 symbols, it still needs graphics to render the non-euclidean world.")
4573     (license (list license:bsd-3         ; glew.c, mtrand.*
4574                    license:cc-by-sa3.0   ; music
4575                    license:cc-by-sa4.0   ; sounds
4576                    license:cc0
4577                    license:public-domain ; direntx.*, some sounds
4578                    license:zlib          ; savepng.*
4579                    license:gpl2+))))     ; remaining files
4580
4581 (define-public kobodeluxe
4582   (package
4583     (name "kobodeluxe")
4584     (version "0.5.1")
4585     (source (origin
4586               (method url-fetch)
4587               (uri (string-append "http://olofson.net/kobodl/download/KoboDeluxe-"
4588                                   version ".tar.bz2"))
4589               (sha256
4590                (base32
4591                 "0b2wvdpnmaibsy419c16dfwj5kvd3pccby2aaqvm964x74592yqg"))
4592               (patches (search-patches
4593                         "kobodeluxe-const-charp-conversion.patch"
4594                         "kobodeluxe-enemies-pipe-decl.patch"
4595                         "kobodeluxe-graphics-window-signed-char.patch"
4596                         "kobodeluxe-manpage-minus-not-hyphen.patch"
4597                         "kobodeluxe-midicon-segmentation-fault.patch"
4598                         "kobodeluxe-paths.patch"))))
4599     (build-system gnu-build-system)
4600     (arguments
4601      '(#:configure-flags
4602        (list (string-append "CPPFLAGS=-I"
4603                             (assoc-ref %build-inputs "sdl-union")
4604                             "/include/SDL"))))
4605     (inputs
4606      `(("glu" ,glu)
4607        ("sdl-union" ,(sdl-union (list sdl sdl-image)))))
4608     (synopsis "Shooter with space station destruction")
4609     (description
4610      "Kobo Deluxe is an enhanced version of Akira Higuchi's XKobo graphical game
4611 for Un*x systems with X11.")
4612     (home-page "http://olofson.net/kobodl/")
4613     (license license:gpl2+)))
4614
4615 (define-public freeciv
4616   (package
4617    (name "freeciv")
4618    (version "2.6.2")
4619    (source
4620     (origin
4621      (method url-fetch)
4622      (uri (list (string-append
4623                   "http://files.freeciv.org/stable/freeciv-"
4624                   version ".tar.bz2")
4625                 (string-append
4626                   "mirror://sourceforge/freeciv/Freeciv%20"
4627                   (version-major+minor version) "/" version
4628                   "/freeciv-" version ".tar.bz2")))
4629      (sha256
4630       (base32 "13vc2xg1cf19rhbnr7k38b56b2hdapqymq5vma1l69kn7hyyz0b1"))))
4631    (build-system gnu-build-system)
4632    (inputs
4633     `(("curl" ,curl)
4634       ("cyrus-sasl" ,cyrus-sasl)
4635       ("gtk+" ,gtk+)
4636       ("sdl-mixer" ,sdl-mixer)
4637       ("zlib" ,zlib)))
4638    (native-inputs
4639     `(("pkg-config" ,pkg-config)))
4640    (home-page "http://www.freeciv.org/")
4641    (synopsis "Turn-based empire building strategy game")
4642    (description "Freeciv is a turn-based empire building strategy game
4643 inspired by the history of human civilization.  The game commences in
4644 prehistory and your mission is to lead your tribe from the Stone Age
4645 into the Space Age.")
4646    (license license:gpl2+)))
4647
4648 (define-public no-more-secrets
4649   (package
4650     (name "no-more-secrets")
4651     (version "0.3.3")
4652     (source
4653      (origin
4654        (method git-fetch)
4655        (uri (git-reference
4656              (url "https://github.com/bartobri/no-more-secrets.git")
4657              (commit (string-append "v" version))))
4658        (file-name (git-file-name name version))
4659        (sha256
4660         (base32 "1zfv4qabikf8w9winsr4brxrdvs3f0d7xvydksyx8bydadsm2v2h"))))
4661     (build-system gnu-build-system)
4662     (arguments
4663      `(#:tests? #f
4664        #:make-flags (list "CC=gcc" "all-ncurses"
4665                           (string-append "prefix="
4666                                          (assoc-ref %outputs "out")))
4667        #:phases
4668        (modify-phases %standard-phases
4669          (delete 'configure))))
4670     (inputs
4671      `(("ncurses" ,ncurses)))
4672     (home-page "https://github.com/bartobri/no-more-secrets")
4673     (synopsis "Recreation of data decryption effect in \"Sneakers\"")
4674     (description
4675      "@code{No More Secrets} provides a command line tool called \"nms\"
4676 that recreates the famous data decryption effect seen on screen in the 1992
4677 movie \"Sneakers\".
4678
4679 This command works on piped data.  Pipe any ASCII or UTF-8 text to nms, and
4680 it will apply the hollywood effect, initially showing encrypted data, then
4681 starting a decryption sequence to reveal the original plaintext characters.")
4682     (license license:expat)))
4683
4684 (define-public megaglest-data
4685   (package
4686     (name "megaglest-data")
4687     (version "3.13.0")
4688     (source
4689      (origin
4690        (method url-fetch)
4691        (uri (string-append
4692              "https://github.com/MegaGlest/megaglest-data"
4693              "/releases/download/" version "/megaglest-data-"
4694              version ".tar.xz"))
4695        (sha256
4696         (base32
4697          "0ipgza33z89fw3si32iafm981f3fvm0zldvbxj29whghd2k3rpj3"))))
4698     (build-system cmake-build-system)
4699     (arguments
4700      `(#:tests? #f))
4701     (home-page "https://megaglest.org/")
4702     (synopsis "Data files for MegaGlest")
4703     (description "This package contains the data files required for MegaGlest.")
4704     (license license:cc-by-sa3.0)))
4705
4706 (define-public megaglest
4707   (package
4708     (name "megaglest")
4709     (version "3.13.0")
4710     (source
4711      (origin
4712        (method url-fetch)
4713        (uri (string-append
4714              "https://github.com/MegaGlest/megaglest-source"
4715              "/releases/download/" version "/megaglest-source-"
4716              version ".tar.xz"))
4717        (sha256
4718         (base32
4719          "1ffck3ii1wp5k3nn5p0ga06jgp7pzk4zw0xln3xim2w7qrxzdzh9"))))
4720     (build-system cmake-build-system)
4721     (inputs
4722      `(("curl" ,curl)
4723        ("fontconfig" ,fontconfig)
4724        ("ftgl" ,ftgl)
4725        ("glew" ,glew)
4726        ("libjpeg-turbo" ,libjpeg-turbo)
4727        ("megaglest-data" ,megaglest-data)
4728        ("mesa" ,mesa)
4729        ("miniupnpc" ,miniupnpc)
4730        ("openal" ,openal)
4731        ("libircclient" ,libircclient)
4732        ("libpng" ,libpng)
4733        ("libvorbis" ,libvorbis)
4734        ("lua" ,lua)
4735        ("sdl2" ,sdl2)
4736        ("wxwidgets" ,wxwidgets)))
4737     (native-inputs
4738      `(("cppunit" ,cppunit)
4739        ("pkg-config" ,pkg-config)))
4740     (arguments
4741      `(#:configure-flags
4742        (list (string-append "-DCUSTOM_DATA_INSTALL_PATH="
4743                             (assoc-ref %build-inputs "megaglest-data")
4744                             "/share/megaglest")
4745              "-DBUILD_MEGAGLEST_TESTS=ON")
4746        #:phases
4747        (modify-phases %standard-phases
4748          (add-after 'unpack 'fix-ini-search-path
4749                     (lambda* (#:key outputs #:allow-other-keys)
4750                       (substitute* "source/glest_game/global/config.cpp"
4751                         (("/usr/share/megaglest/")
4752                          (string-append (assoc-ref outputs "out")
4753                                         "/share/megaglest/"))))))
4754        #:test-target "megaglest_tests"))
4755     (home-page "https://megaglest.org/")
4756     (synopsis "3D real-time strategy (RTS) game")
4757     (description "MegaGlest is a cross-platform 3D real-time strategy (RTS)
4758 game, where you control the armies of one of seven different factions: Tech,
4759 Magic, Egypt, Indians, Norsemen, Persian or Romans.")
4760     (license license:gpl2+)))
4761
4762 (define-public freegish
4763   (let ((commit "8795cd7adc95957883f2d3465eb9036a774667a7")
4764         (revision "1"))
4765     (package
4766       (name "freegish")
4767       (version (string-append "0-" revision "." (string-take commit 9)))
4768       (source (origin
4769                 (method git-fetch)
4770                 (uri (git-reference
4771                       (url "https://github.com/freegish/freegish.git")
4772                       (commit commit)))
4773                 (file-name (git-file-name name version))
4774                 (sha256
4775                  (base32
4776                   "1p1zf5qqagmcpi1db2bs02cnalpy3qiymp6yzan7k1bhmv859gsx"))
4777                 (modules '((guix build utils)))
4778                 ;; The audio files in the "music" directory are licensed under
4779                 ;; CC-BY-NC, so we delete them.
4780                 (snippet
4781                  '(begin
4782                     (delete-file-recursively "music")
4783                     #t))))
4784       (build-system cmake-build-system)
4785       (arguments
4786        `(#:tests? #f ; no tests included
4787          #:configure-flags
4788          (list "-DCMAKE_INSTALL_FHS=ON")
4789          #:phases
4790          (modify-phases %standard-phases
4791            (add-after 'unpack 'set-DATAPATH
4792              (lambda* (#:key outputs #:allow-other-keys)
4793                (substitute* "CMakeLists.txt"
4794                  (("^option\\(INSTALL_FHS" line)
4795                   (string-append "add_definitions(-DDATAPATH=\""
4796                                  (assoc-ref outputs "out") "/share/freegish\")\n"
4797                                  line)))
4798                #t)))))
4799       (inputs
4800        `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))
4801          ("openal" ,openal)
4802          ("libvorbis" ,libvorbis)
4803          ("libogg" ,libogg)
4804          ("mesa" ,mesa)
4805          ("libpng" ,libpng)
4806          ("zlib" ,zlib)))
4807       (home-page "https://github.com/freegish/freegish")
4808       (synopsis "Side-scrolling physics platformer with a ball of tar")
4809       (description "In FreeGish you control Gish, a ball of tar who lives
4810 happily with his girlfriend Brea, until one day a mysterious dark creature
4811 emerges from a sewer hole and pulls her below ground.")
4812       ;; The textures are available under the Expat license.  All other assets
4813       ;; (including levels) are covered under CC-BY-SA or public domain.  The
4814       ;; source code is under GPLv2+.
4815       (license (list license:gpl2+
4816                      license:expat
4817                      license:public-domain
4818                      license:cc-by-sa3.0)))))
4819
4820 (define-public cdogs-sdl
4821   (package
4822     (name "cdogs-sdl")
4823     (version "0.8.0")
4824     (source
4825      (origin
4826        (method git-fetch)
4827        (uri (git-reference
4828              (url "https://github.com/cxong/cdogs-sdl.git")
4829              (commit version)))
4830        (file-name (git-file-name name version))
4831        (sha256
4832         (base32 "0vx37zb2iw7sfw5a2bs97ydlmb301nvy485ybdm8g46c5hn9s13c"))))
4833     (build-system cmake-build-system)
4834     (arguments
4835      `(#:configure-flags
4836        (list (string-append "-DCDOGS_DATA_DIR="
4837                             (assoc-ref %outputs "out")
4838                             "/share/cdogs-sdl/"))))
4839     (native-inputs
4840      `(("pkg-config" ,pkg-config)))
4841     (inputs
4842      `(("gtk+" ,gtk+)
4843        ("mesa" ,mesa)
4844        ("sdl2" ,sdl2)
4845        ("sdl2-image" ,sdl2-image)
4846        ("sdl2-mixer" ,sdl2-mixer)))
4847     (home-page "https://cxong.github.io/cdogs-sdl/")
4848     (synopsis "Classic overhead run-and-gun game")
4849     (description "C-Dogs SDL is a classic overhead run-and-gun game,
4850 supporting up to 4 players in co-op and deathmatch modes.  Customize your
4851 player, choose from many weapons, and blast, slide and slash your way through
4852 over 100 user-created campaigns.")
4853     ;; GPLv2+ for code (includes files under BSD-2 and BSD-3),
4854     ;; CC0/CC-BY/CC-BY-SA for assets.
4855     (license (list license:gpl2+
4856                    license:bsd-2
4857                    license:bsd-3
4858                    license:cc0
4859                    license:cc-by3.0
4860                    license:cc-by-sa3.0))))
4861
4862 (define-public kiki
4863   (package
4864     (name "kiki")
4865     (version "1.0.2")
4866     (source (origin
4867               (method url-fetch)
4868               (uri (string-append "mirror://sourceforge/kiki/kiki-src/"
4869                                   version "/kiki-" version "-src.tgz"))
4870               (sha256
4871                (base32
4872                 "0ihjdsxbn8z3cz0gpcprafiipcqaiskgdnh1rhmw4qff8dszalbn"))
4873               (modules '((guix build utils)))
4874               (snippet
4875                '(begin
4876                   (for-each delete-file (find-files "." "\\.dll$"))
4877                   #t))
4878               (patches
4879                (search-patches "kiki-level-selection-crash.patch"
4880                                "kiki-makefile.patch"
4881                                "kiki-missing-includes.patch"
4882                                "kiki-portability-64bit.patch"))))
4883     (build-system gnu-build-system)
4884     (arguments
4885      `(#:tests? #f ; there are no tests
4886        #:make-flags '("CXX=g++")
4887        #:phases
4888        (modify-phases %standard-phases
4889          (replace 'configure
4890            (lambda* (#:key inputs outputs #:allow-other-keys)
4891              (setenv "CPLUS_INCLUDE_PATH"
4892                      (string-append (assoc-ref inputs "sdl-union")
4893                                     "/include/SDL:"
4894                                     (assoc-ref inputs "python")
4895                                     "/include/python2.7:"
4896                                     (or (getenv "CPLUS_INCLUDE_PATH") "")))
4897              (substitute* "src/main/main.cpp"
4898                (("#include <SDL.h>" line)
4899                 (string-append line "
4900 #define K_INCLUDE_GLUT
4901 #include \"KIncludeTools.h\""))
4902                (("// initialize SDL" line)
4903                 (string-append "glutInit(&argc,argv);\n" line)))
4904              (substitute* "src/main/KikiController.cpp"
4905                (("getenv\\(\"KIKI_HOME\"\\)")
4906                 (string-append "\"" (assoc-ref outputs "out") "/share/kiki/\"")))
4907              (substitute* "linux/Makefile"
4908                (("CXXOPTS =" line)
4909                 (string-append line " -fpermissive"))
4910                (("PYTHON_VERSION=.*") "PYTHON_VERSION=2.7")
4911                (("PYTHONHOME =.*")
4912                 (string-append "PYTHONHOME = "
4913                                (assoc-ref inputs "python")
4914                                "/lib/python2.7/"))
4915                (("\\$\\(GLLIBS\\)" line)
4916                 (string-append line " -lm -lpython2.7")))
4917              (substitute* "src/main/KikiPythonWidget.h"
4918                (("#define __KikiPythonWidget" line)
4919                 (string-append line "\n#include \"KikiPython.h\"")))
4920              #t))
4921          (add-before 'build 'build-kodilib
4922            (lambda* (#:key make-flags #:allow-other-keys)
4923              (with-directory-excursion "kodilib/linux"
4924                (apply invoke "make" make-flags))))
4925          (add-after 'build-kodilib 'chdir
4926            (lambda _ (chdir "linux") #t))
4927          (replace 'install
4928            (lambda* (#:key outputs #:allow-other-keys)
4929              (let* ((out   (assoc-ref outputs "out"))
4930                     (bin   (string-append out "/bin"))
4931                     (share (string-append out "/share/kiki")))
4932                (mkdir-p bin)
4933                (mkdir-p share)
4934                (install-file "kiki" bin)
4935                (copy-recursively "../py" (string-append share "/py"))
4936                (copy-recursively "../sound" (string-append share "/sound"))
4937                #t))))))
4938     (inputs
4939      `(("glu" ,glu)
4940        ;; Kiki builds fine with freeglut 3.0.0 but segfaults on start.
4941        ("freeglut" ,freeglut-2.8)
4942        ("sdl-union" ,(sdl-union (list sdl
4943                                       sdl-mixer
4944                                       sdl-image)))
4945        ("python" ,python-2)))
4946     (native-inputs
4947      `(("swig" ,swig)))
4948     (home-page "http://kiki.sourceforge.net/")
4949     (synopsis "3D puzzle game")
4950     (description "Kiki the nano bot is a 3D puzzle game.  It is basically a
4951 mixture of the games Sokoban and Kula-World.  Your task is to help Kiki, a
4952 small robot living in the nano world, repair its maker.")
4953     ;; See <http://metadata.ftp-master.debian.org/changelogs/main/k/
4954     ;; kiki-the-nano-bot/kiki-the-nano-bot_1.0.2+dfsg1-4_copyright>
4955     ;; for a statement from the author.
4956     (license license:public-domain)))
4957
4958 (define-public teeworlds
4959   (package
4960     (name "teeworlds")
4961     (version "0.7.5")
4962     (source (origin
4963               (method git-fetch)
4964               (uri (git-reference
4965                     (url "https://github.com/teeworlds/teeworlds.git")
4966                     (commit version)))
4967               (file-name (git-file-name name version))
4968               (sha256
4969                (base32
4970                 "169dl83q08zl4h813az8hjs4rs3dms9yjn6bnsld4fjcj0imvvc6"))
4971               (modules '((guix build utils)
4972                          (ice-9 ftw)
4973                          (ice-9 regex)
4974                          (srfi srfi-1)
4975                          (srfi srfi-26)))
4976               (snippet ; remove bundled libraries except md5
4977                '(let ((base-dir "src/engine/external/"))
4978                   (for-each (compose (cut delete-file-recursively <>)
4979                                      (cut string-append base-dir <>))
4980                             (remove (cut string-match "(^.)|(^md5$)" <>)
4981                                     (scandir base-dir)))
4982                   #t))))
4983     (build-system gnu-build-system)
4984     (arguments
4985      `(#:tests? #f                      ; no tests included
4986        #:modules ((guix build gnu-build-system)
4987                   (guix build utils)
4988                   (srfi srfi-26))
4989        #:phases
4990        (modify-phases %standard-phases
4991          (replace 'configure
4992            (lambda* (#:key outputs #:allow-other-keys)
4993              ;; Embed path to assets.
4994              (substitute* "src/engine/shared/storage.cpp"
4995                (("#define DATA_DIR.*")
4996                 (string-append "#define DATA_DIR \""
4997                                (assoc-ref outputs "out")
4998                                "/share/teeworlds/data"
4999                                "\"")))
5000
5001              ;; Bam expects all files to have a recent time stamp.
5002              (for-each (cut utime <> 1 1)
5003                        (find-files "."))
5004
5005              ;; Do not use bundled libraries.
5006              (substitute* "bam.lua"
5007                (("local json = Compile.+$")
5008                 "local json = nil
5009 settings.link.libs:Add(\"jsonparser\")")
5010                (("local png = Compile.+$")
5011                 "local png = nil
5012 settings.link.libs:Add(\"pnglite\")")
5013                (("local wavpack = Compile.+$")
5014                 "local wavpack = nil
5015 settings.link.libs:Add(\"wavpack\")")
5016                (("if config\\.zlib\\.value == 1")
5017                 "if config.zlib.value"))
5018              (substitute* "src/engine/client/graphics_threaded.cpp"
5019                (("engine/external/pnglite/pnglite\\.h")
5020                 "pnglite.h"))
5021              (substitute* "src/engine/client/sound.cpp"
5022                (("engine/external/wavpack/wavpack\\.h")
5023                 "wavpack/wavpack.h"))
5024              #t))
5025          (replace 'build
5026            (lambda _
5027              (invoke "bam" "-a" "-v" "conf=release")))
5028          (replace 'install
5029            (lambda* (#:key outputs #:allow-other-keys)
5030              (let* ((arch ,(system->linux-architecture
5031                             (or (%current-target-system)
5032                                 (%current-system))))
5033                     (build (string-append "build/" (if (string=? arch "i386")
5034                                                        "x86" arch)
5035                                           "/release/"))
5036                     (data-built (string-append build "data/"))
5037                     (out (assoc-ref outputs "out"))
5038                     (bin (string-append out "/bin/"))
5039                     (data (string-append out "/share/teeworlds/data/")))
5040                (for-each (cut install-file <> bin)
5041                          (map (cut string-append build <>)
5042                               '("teeworlds" "teeworlds_srv")))
5043                (copy-recursively data-built data)
5044                #t))))))
5045     (inputs
5046      `(("freetype" ,freetype)
5047        ("glu" ,glu)
5048        ("json-parser" ,json-parser)
5049        ("mesa" ,mesa)
5050        ("pnglite" ,pnglite)
5051        ("sdl2" ,sdl2)
5052        ("sdl2-image" ,sdl2-image)
5053        ("sdl2-mixer" ,sdl2-mixer)
5054        ("wavpack" ,wavpack)
5055        ("zlib" ,zlib)))
5056     (native-inputs
5057      `(("bam" ,bam)
5058        ("python" ,python-wrapper)
5059        ("pkg-config" ,pkg-config)))
5060     (home-page "https://www.teeworlds.com")
5061     (synopsis "2D retro multiplayer shooter game")
5062     (description "Teeworlds is an online multiplayer game.  Battle with up to
5063 16 players in a variety of game modes, including Team Deathmatch and Capture
5064 The Flag.  You can even design your own maps!")
5065     (license license:bsd-3)))
5066
5067 (define-public enigma
5068   (package
5069     (name "enigma")
5070     (version "1.21")
5071     (source (origin
5072               (method url-fetch)
5073               (uri (string-append "mirror://sourceforge/enigma-game/"
5074                                   "Release%20" version "/enigma-"
5075                                   version ".tar.gz"))
5076               (sha256
5077                (base32
5078                 "00ffh9pypj1948pg3q9sjp1nmiabh52p5c8wpg9n1dcfgl3cywnq"))))
5079     (build-system gnu-build-system)
5080     (arguments
5081      `(#:configure-flags
5082        (list "--with-system-enet")
5083        #:phases
5084        (modify-phases %standard-phases
5085          (add-after 'unpack 'find-sdl
5086            (lambda _
5087              (substitute* "configure"
5088                (("SDL_ttf.h") "SDL/SDL_ttf.h"))
5089              (substitute* '("tools/ttf2bmf.cc"
5090                             "lib-src/enigma-core/ecl_font.cc"
5091                             "lib-src/enigma-core/ecl_video.cc"
5092                             "lib-src/enigma-core/ecl_buffer.hh"
5093                             "src/SoundEngine.cc"
5094                             "src/SoundEngine.hh"
5095                             "src/MusicManager.cc"
5096                             "src/MusicManager.hh"
5097                             "src/d_models.cc"
5098                             "src/main.cc"
5099                             "src/network.cc")
5100                (("#include \"SDL_(image|ttf|mixer|types|syswm|mutex).h\"" line header)
5101                 (string-append "#include \"SDL/SDL_" header ".h\"")))
5102              (substitute* "src/main.cc"
5103                (("#include <SDL_(image|ttf|mixer).h>" line header)
5104                 (string-append "#include \"SDL/SDL_" header ".h\"")))
5105              #t)))))
5106     (inputs
5107      `(("xerces-c" ,xerces-c)
5108        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
5109        ("curl" ,curl)
5110        ("enet" ,enet)))
5111     (native-inputs
5112      `(("pkg-config" ,pkg-config)
5113        ("imagemagick" ,imagemagick)))
5114     (home-page "https://www.nongnu.org/enigma")
5115     (synopsis "Puzzle game with a dexterity component")
5116     (description "Enigma is a puzzle game with 550 unique levels.  The object
5117 of the game is to find and uncover pairs of identically colored ‘Oxyd’ stones.
5118 Simple?  Yes.  Easy?  Certainly not!  Hidden traps, vast mazes, laser beams,
5119 and most of all, countless hairy puzzles usually block your direct way to the
5120 Oxyd stones.  Enigma’s game objects (and there are hundreds of them, lest you
5121 get bored) interact in many unexpected ways, and since many of them follow the
5122 laws of physics (Enigma’s special laws of physics, that is), controlling them
5123 with the mouse isn’t always trivial.")
5124     (license license:gpl2+)))
5125
5126 (define-public chroma
5127   (package
5128     (name "chroma")
5129     (version "1.17")
5130     (source (origin
5131               (method url-fetch)
5132               (uri (string-append "http://level7.org.uk/chroma/download/chroma-"
5133                                   version ".tar.bz2"))
5134               (sha256
5135                (base32
5136                 "047sf00x71xbmi8bqrhfbmr9bk89l2gbykkqsfpw4wz6yfjscs6y"))))
5137     (build-system gnu-build-system)
5138     (arguments
5139      `(#:tests? #f))                    ; no tests included
5140     (inputs
5141      `(("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
5142        ("freetype" ,freetype)
5143        ("ncurses" ,ncurses)
5144        ("fontconfig" ,fontconfig)
5145        ("libxft" ,libxft)))
5146     (native-inputs
5147      `(("pkg-config" ,pkg-config)))
5148     (home-page "http://level7.org.uk/chroma/")
5149     (synopsis "Abstract puzzle game")
5150     (description "Chroma is an abstract puzzle game. A variety of colourful
5151 shapes are arranged in a series of increasingly complex patterns, forming
5152 fiendish traps that must be disarmed and mysterious puzzles that must be
5153 manipulated in order to give up their subtle secrets.  Initially so
5154 straightforward that anyone can pick it up and begin to play, yet gradually
5155 becoming difficult enough to tax even the brightest of minds.")
5156     (license license:gpl2+)))
5157
5158 (define-public fillets-ng
5159   (package
5160     (name "fillets-ng")
5161     (version "1.0.1")
5162     (source (origin
5163               (method url-fetch)
5164               (uri (string-append "mirror://sourceforge/fillets/"
5165                                   "Fish%20Fillets%20-%20Next%20Generation/"
5166                                   version "/fillets-ng-" version ".tar.gz"))
5167               (sha256
5168                (base32
5169                 "1nljp75aqqb35qq3x7abhs2kp69vjcj0h1vxcpdyn2yn2nalv6ij"))))
5170     (build-system gnu-build-system)
5171     (arguments
5172      `(#:configure-flags
5173        (list (string-append "--with-lua="
5174                             (assoc-ref %build-inputs "lua")))
5175        #:make-flags
5176        (list (string-append "CFLAGS=-I"
5177                             (assoc-ref %build-inputs "sdl-union")
5178                             "/include/SDL")
5179              (string-append "CXXFLAGS=-I"
5180                             (assoc-ref %build-inputs "sdl-union")
5181                             "/include/SDL"))
5182        #:phases
5183        (modify-phases %standard-phases
5184          ;; Lua 5.1 does not provide it.
5185          (add-after 'unpack 'do-not-link-with-lualib
5186            (lambda _
5187              (substitute* "configure"
5188                (("-llualib") ""))
5189              #t))
5190          (add-after 'install 'install-data
5191            (lambda* (#:key inputs outputs #:allow-other-keys)
5192              (let ((data (string-append (assoc-ref outputs "out")
5193                                         "/share/games/fillets-ng")))
5194                (mkdir-p data)
5195                (invoke "tar" "-xvf"
5196                        (assoc-ref inputs "fillets-ng-data")
5197                        "--strip-components=1"
5198                        "-C" data)))))))
5199     (inputs
5200      `(("sdl-union" ,(sdl-union (list sdl
5201                                       sdl-mixer
5202                                       sdl-image
5203                                       sdl-ttf)))
5204        ("fribidi" ,fribidi)
5205        ("libx11" ,libx11)
5206        ("lua" ,lua-5.1)))
5207     (native-inputs
5208      `(("pkg-config" ,pkg-config)
5209        ("fillets-ng-data"
5210         ,(origin
5211            (method url-fetch)
5212            (uri (string-append "mirror://sourceforge/fillets/"
5213                                "Fish%20Fillets%20-%20Next%20Generation/"
5214                                version "/fillets-ng-data-" version ".tar.gz"))
5215            (sha256
5216             (base32
5217              "169p0yqh2gxvhdilvjc2ld8aap7lv2nhkhkg4i1hlmgc6pxpkjgh"))))))
5218     (home-page "http://fillets.sourceforge.net/")
5219     (synopsis "Puzzle game")
5220     (description "Fish Fillets NG is strictly a puzzle game.  The goal in
5221 every of the seventy levels is always the same: find a safe way out.  The fish
5222 utter witty remarks about their surroundings, the various inhabitants of their
5223 underwater realm quarrel among themselves or comment on the efforts of your
5224 fish.  The whole game is accompanied by quiet, comforting music.")
5225     (license license:gpl2+)))
5226
5227 (define-public crawl
5228   (package
5229     (name "crawl")
5230     (version "0.24.0")
5231     (source
5232      (origin
5233        (method url-fetch)
5234        (uri (list
5235              ;; Older releases get moved into a versioned directory
5236              (string-append "http://crawl.develz.org/release/"
5237                             (version-major+minor version) "/stone_soup-"
5238                             version "-nodeps.tar.xz")
5239              ;; Only the latest release is in this directory
5240              (string-append "http://crawl.develz.org/release/stone_soup-"
5241                             version "-nodeps.tar.xz")))
5242        (sha256
5243         (base32 "0kdq6s12myxfdg75ma9x3ys2nd0xwb3xm2ynlmhg4628va0pnixr"))
5244        (patches (search-patches "crawl-upgrade-saves.patch"))))
5245     (build-system gnu-build-system)
5246     (inputs
5247      `(("lua51" ,lua-5.1)
5248        ("ncurses" ,ncurses)
5249        ("sqlite" ,sqlite)
5250        ("zlib" ,zlib)))
5251     (native-inputs
5252      `(("bison" ,bison)
5253        ("flex" ,flex)
5254        ("perl" ,perl)
5255        ("python" ,python-wrapper)
5256        ("python-pyyaml" ,python-pyyaml)
5257        ("pkg-config" ,pkg-config)))
5258     (arguments
5259      `(#:make-flags
5260        (let* ((sqlite (assoc-ref %build-inputs "sqlite"))
5261               (out (assoc-ref %outputs "out")))
5262          (list (string-append "SQLITE_INCLUDE_DIR=" sqlite "/include")
5263                (string-append "prefix=" out)
5264                "SAVEDIR=~/.crawl"
5265                ;; Don't compile with SSE on systems which don't have it.
5266                ,@(match (%current-system)
5267                    ((or "i686-linux" "x86_64-linux")
5268                     '())
5269                    (_ '("NOSSE=TRUE")))
5270                ;; don't build any bundled dependencies
5271                "BUILD_LUA="
5272                "BUILD_SQLITE="
5273                "BUILD_ZLIB="
5274                "-Csource"))
5275        #:phases
5276        (modify-phases %standard-phases
5277          (add-after 'unpack 'find-SDL-image
5278            (lambda _
5279              (substitute* "source/windowmanager-sdl.cc"
5280                (("SDL_image.h") "SDL2/SDL_image.h"))
5281              #t))
5282          (delete 'configure)
5283          (replace 'check
5284            (lambda* (#:key inputs outputs make-flags #:allow-other-keys)
5285              (setenv "HOME" (getcwd))
5286              ;; Fake a terminal for the test cases.
5287              (setenv "TERM" "xterm-256color")
5288              ;; Run the tests that don't require a debug build.
5289              (apply invoke "make" "nondebugtest"
5290                     (format #f "-j~d" (parallel-job-count))
5291                     ;; Force command line build for test cases.
5292                     (append make-flags '("GAME=crawl" "TILES="))))))))
5293     (synopsis "Roguelike dungeon crawler game")
5294     (description "Dungeon Crawl Stone Soup (also known as \"Crawl\" or DCSS
5295 for short) is a roguelike adventure through dungeons filled with dangerous
5296 monsters in a quest to find the mystifyingly fabulous Orb of Zot.")
5297     (home-page "https://crawl.develz.org")
5298     (license (list license:gpl2+
5299                    license:bsd-2
5300                    license:bsd-3
5301                    license:cc0
5302                    license:expat
5303                    license:zlib
5304                    license:asl2.0))))
5305
5306 ;; The linter here claims that patch file names should start with the package
5307 ;; name. But, in this case, the patches are inherited from crawl with the
5308 ;; "crawl-" prefix instead of "crawl-tiles-".
5309 (define-public crawl-tiles
5310   (package
5311     (inherit crawl)
5312     (name "crawl-tiles")
5313     (arguments
5314      (substitute-keyword-arguments
5315          (package-arguments crawl)
5316        ((#:make-flags flags)
5317         `(let ((dejavu (assoc-ref %build-inputs "font-dejavu")))
5318            (cons*
5319             (string-append "PROPORTIONAL_FONT=" dejavu
5320                            "/share/fonts/truetype/DejaVuSans.ttf")
5321             (string-append "MONOSPACED_FONT=" dejavu
5322                            "/share/fonts/truetype/DejaVuSansMono.ttf")
5323             "TILES=y"
5324             ;; Rename the executable to allow parallel installation with crawl.
5325             "GAME=crawl-tiles"
5326             ,flags)))))
5327     (inputs
5328      `(,@(package-inputs crawl)
5329        ("font-dejavu" ,font-dejavu)
5330        ("freetype6" ,freetype)
5331        ("glu" ,glu)
5332        ("libpng" ,libpng)
5333        ("sdl2" ,sdl2)
5334        ("sdl2-image" ,sdl2-image)
5335        ("sdl2-mixer" ,sdl2-mixer)))
5336     (native-inputs
5337      `(,@(package-native-inputs crawl)
5338        ("pngcrush" ,pngcrush)
5339        ("which" ,which)))
5340     (synopsis "Graphical roguelike dungeon crawler game")))
5341
5342 (define-public lugaru
5343   (package
5344     (name "lugaru")
5345     (version "1.2")
5346     (source (origin
5347               (method url-fetch)
5348               (uri (string-append "https://bitbucket.org/osslugaru/lugaru/downloads/"
5349                                   "lugaru-" version ".tar.xz"))
5350               (sha256
5351                (base32
5352                 "15zgcshy22q51rm72zi6y9z7qlgnz5iw3gczjdlir4bqmxy4gspk"))))
5353     (build-system cmake-build-system)
5354     (arguments
5355      `(#:configure-flags
5356        (list "-DSYSTEM_INSTALL=ON")
5357        ;; no test target
5358        #:tests? #f))
5359     (native-inputs
5360      `(("pkg-config" ,pkg-config)))
5361     (inputs
5362      `(("sdl2" ,sdl2)
5363        ("glu" ,glu)
5364        ("libjpeg" ,libjpeg-turbo)
5365        ("libpng" ,libpng)
5366        ("openal" ,openal)
5367        ("vorbis" ,libvorbis)
5368        ("zlib" ,zlib)))
5369     (home-page "https://osslugaru.gitlab.io")
5370     (synopsis "Cross-platform third-person action game")
5371     (description "Lugaru is a third-person action game.  The main character,
5372 Turner, is an anthropomorphic rebel bunny rabbit with impressive combat skills.
5373 In his quest to find those responsible for slaughtering his village, he uncovers
5374 a far-reaching conspiracy involving the corrupt leaders of the rabbit republic
5375 and the starving wolves from a nearby den.  Turner takes it upon himself to
5376 fight against their plot and save his fellow rabbits from slavery.")
5377     (license (list license:gpl2+ ; code
5378                    ;; assets:
5379                    license:cc-by-sa3.0
5380                    license:cc-by-sa4.0))))
5381
5382 (define-public 0ad-data
5383   (package
5384     (name "0ad-data")
5385     (version "0.0.23b-alpha")
5386     (source
5387      (origin
5388        (method url-fetch)
5389        (uri (string-append "https://releases.wildfiregames.com/0ad-"
5390                            version "-unix-data.tar.xz"))
5391        (file-name (string-append name "-" version ".tar.xz"))
5392        (sha256
5393         (base32
5394          "04x7729hk6zw1xj3n4s4lvaviijsnbjf5rhzvjxlr5fygvg4l6z1"))
5395        (modules '((guix build utils)))
5396        (snippet
5397         #~(begin
5398             (for-each (lambda (name)
5399                         (let* ((dir (string-append "binaries/data/mods/" name))
5400                                (file (string-append dir "/" name ".zip"))
5401                                (unzip #$(file-append unzip "/bin/unzip")))
5402                           (invoke unzip "-d" dir file)
5403                           (delete-file file)))
5404                       '("mod" "public"))
5405             #t))))
5406     (build-system trivial-build-system)
5407     (native-inputs `(("tar" ,tar)
5408                      ("xz" ,xz)))
5409     (arguments
5410      `(#:modules ((guix build utils))
5411        #:builder
5412        (begin
5413          (use-modules (guix build utils))
5414          (let ((out (assoc-ref %outputs "out"))
5415                (source (assoc-ref %build-inputs "source"))
5416                (tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
5417                (xz-path (string-append (assoc-ref %build-inputs "xz") "/bin")))
5418            (setenv "PATH" xz-path)
5419            (mkdir out)
5420            (invoke tar "xvf" source "-C" out "--strip=3")))))
5421     (synopsis "Data files for 0ad")
5422     (description "0ad-data provides the data files required by the game 0ad.")
5423     (home-page "https://play0ad.com")
5424     (license (list (license:fsdg-compatible
5425                     "http://tavmjong.free.fr/FONTS/ArevCopyright.txt"
5426                     "Similar to the license of the Bitstream Vera fonts.")
5427                    (license:fsdg-compatible
5428                     "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts")
5429                    license:cc-by-sa3.0
5430                    license:expat
5431                    license:gfl1.0
5432                    license:gpl2+
5433                    license:gpl3+))))
5434
5435 (define-public 0ad
5436   (package
5437     (name "0ad")
5438     (version "0.0.23b-alpha")
5439     (source
5440      (origin
5441        (method url-fetch)
5442        (uri (string-append "https://releases.wildfiregames.com/0ad-"
5443                            version "-unix-build.tar.xz"))
5444        (file-name (string-append name "-" version ".tar.xz"))
5445        (sha256
5446         (base32
5447          "0draa53xg69i5qhqym85658m45xhwkbiimaldj4sr3703rjgggq1"))))
5448        ;; A snippet here would cause a build failure because of timestamps
5449        ;; reset.  See https://bugs.gnu.org/26734.
5450     (inputs
5451      `(("0ad-data" ,0ad-data)
5452        ("curl" ,curl)
5453        ("enet" ,enet)
5454        ("gloox" ,gloox)
5455        ("icu4c" ,icu4c)
5456        ("libpng" ,libpng)
5457        ("libsodium" ,libsodium)
5458        ("libvorbis" ,libvorbis)
5459        ("libxcursor" ,libxcursor)
5460        ("libxml2" ,libxml2)
5461        ("miniupnpc" ,miniupnpc)
5462        ("mozjs-38" ,mozjs-38)
5463        ("openal" ,openal)
5464        ("sdl2" ,sdl2)
5465        ("wxwidgets" ,wxwidgets)
5466        ("zlib" ,zlib)))
5467     (native-inputs
5468      `(("boost" ,boost)
5469        ("cmake" ,cmake-minimal)
5470        ("mesa" ,mesa)
5471        ("pkg-config" ,pkg-config)
5472        ("python-2" ,python-2)))
5473     (build-system gnu-build-system)
5474     (arguments
5475      `(#:make-flags '("config=release" "verbose=1" "-C" "build/workspaces/gcc")
5476        #:phases
5477        (modify-phases %standard-phases
5478          (add-after 'unpack 'delete-bundles
5479            (lambda _
5480              (delete-file-recursively "libraries/source/spidermonkey")
5481              #t))
5482          (add-after 'unpack 'fix-x11-includes
5483            (lambda _
5484              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5485                (("<Xlib.h>") "<X11/Xlib.h>"))
5486              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5487                (("<Xatom.h>") "<X11/Xatom.h>"))
5488              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5489                (("<Xcursor/Xcursor.h>") "<X11/Xcursor/Xcursor.h>"))
5490              #t))
5491          (replace 'configure
5492            (lambda* (#:key inputs outputs #:allow-other-keys)
5493              (let* ((jobs (number->string (parallel-job-count)))
5494                     (out (assoc-ref outputs "out"))
5495                     (lib (string-append out "/lib"))
5496                     (data (string-append out "/share/0ad")))
5497                (setenv "JOBS" (string-append "-j" jobs))
5498                (setenv "CC" "gcc")
5499                (with-directory-excursion "build/workspaces"
5500                  (invoke "./update-workspaces.sh"
5501                          (string-append "--libdir=" lib)
5502                          (string-append "--datadir=" data)
5503                          ;; TODO: "--with-system-nvtt"
5504                          "--with-system-mozjs38")))))
5505          (delete 'check)
5506          (replace 'install
5507            (lambda* (#:key inputs outputs #:allow-other-keys)
5508              (chdir "binaries")
5509              (let* ((out (assoc-ref outputs "out"))
5510                     (bin (string-append out "/bin"))
5511                     (lib (string-append out "/lib"))
5512                     (data (string-append out "/share/0ad"))
5513                     (applications (string-append out "/share/applications"))
5514                     (pixmaps (string-append out "/share/pixmaps"))
5515                     (0ad-data (assoc-ref inputs "0ad-data")))
5516                ;; data
5517                (copy-recursively "data" data)
5518                (for-each (lambda (file)
5519                            (symlink (string-append 0ad-data "/" file)
5520                                     (string-append data "/" file)))
5521                          '("config" "mods/mod" "mods/public" "tools"))
5522                ;; libraries
5523                (for-each (lambda (file)
5524                            (install-file file lib))
5525                          (find-files "system" "\\.so$"))
5526                ;; binaries
5527                (install-file "system/pyrogenesis" bin)
5528                (with-directory-excursion bin
5529                  (symlink "pyrogenesis" "0ad"))
5530                ;; resources
5531                (with-directory-excursion "../build/resources"
5532                  (install-file "0ad.desktop" applications)
5533                  (install-file "0ad.png" pixmaps))
5534                #t)))
5535          (add-after 'install 'check
5536            (lambda _
5537              (with-directory-excursion "system"
5538                (invoke "./test")))))))
5539     (home-page "https://play0ad.com")
5540     (synopsis "3D real-time strategy game of ancient warfare")
5541     (description "0 A.D. is a real-time strategy (RTS) game of ancient
5542 warfare.  It's a historically-based war/economy game that allows players to
5543 relive or rewrite the history of twelve ancient civilizations, each depicted
5544 at their peak of economic growth and military prowess.
5545
5546 0ad needs a window manager that supports 'Extended Window Manager Hints'.")
5547     (license (list license:bsd-2
5548                    license:bsd-3
5549                    license:expat
5550                    license:gpl2+
5551                    license:ibmpl1.0
5552                    license:isc
5553                    license:lgpl2.1
5554                    license:lgpl3
5555                    license:mpl2.0
5556                    license:zlib))))
5557
5558 ;; There have been no official releases.
5559 (define-public open-adventure
5560   (let* ((commit "d43854f0f6bb8e9eea7fbce80348150e7e7fc34d")
5561          (revision "2"))
5562     (package
5563       (name "open-adventure")
5564       (version (string-append "2.5-" revision "." (string-take commit 7)))
5565       (source (origin
5566                 (method git-fetch)
5567                 (uri (git-reference
5568                       (url "https://gitlab.com/esr/open-adventure")
5569                       (commit commit)))
5570                 (file-name (string-append name "-" version "-checkout"))
5571                 (sha256
5572                  (base32
5573                   "08bwrvf4axb1rsfd6ia1fddsky9pc1p350vjskhaakg2czc6dsk0"))))
5574       (build-system gnu-build-system)
5575       (arguments
5576        `(#:make-flags (list "CC=gcc")
5577          #:parallel-build? #f ; not supported
5578          #:phases
5579          (modify-phases %standard-phases
5580            (replace 'configure
5581              (lambda* (#:key inputs outputs #:allow-other-keys)
5582                ;; Linenoise is meant to be included, so we have to
5583                ;; copy it into the working directory.
5584                (let* ((linenoise (assoc-ref inputs "linenoise"))
5585                       (noisepath (string-append linenoise "/include/linenoise"))
5586                       (out (assoc-ref outputs "out")))
5587                  (copy-recursively noisepath "linenoise"))
5588                #t))
5589            (add-before 'build 'use-echo
5590              (lambda _
5591                (substitute* "tests/Makefile"
5592                  (("/bin/echo") (which "echo")))
5593                #t))
5594            (add-after 'build 'build-manpage
5595              (lambda _
5596                ;; This target is missing a dependency
5597                (substitute* "Makefile"
5598                  ((".adoc.6:" line)
5599                   (string-append line " advent.adoc")))
5600                (invoke "make" ".adoc.6")))
5601            ;; There is no install target
5602            (replace 'install
5603              (lambda* (#:key outputs #:allow-other-keys)
5604                (let* ((out (assoc-ref outputs "out"))
5605                       (bin (string-append out "/bin"))
5606                       (man (string-append out "/share/man/man6")))
5607                  (install-file "advent" bin)
5608                  (install-file "advent.6" man))
5609                #t)))))
5610       (native-inputs
5611        `(("asciidoc" ,asciidoc)
5612          ("linenoise" ,linenoise)
5613          ("python" ,python)
5614          ("python-pyyaml" ,python-pyyaml)))
5615       (home-page "https://gitlab.com/esr/open-adventure")
5616       (synopsis "Colossal Cave Adventure")
5617       (description "The original Colossal Cave Adventure from 1976 was the
5618 origin of all text adventures, dungeon-crawl (computer) games, and
5619 computer-hosted roleplaying games.  This is the last version released by
5620 Crowther & Woods, its original authors, in 1995.  It has been known as
5621 \"adventure 2.5\" and \"430-point adventure\".")
5622       (license license:bsd-2))))
5623
5624 (define-public tome4
5625   (package
5626     (name "tome4")
5627     (version "1.6.7")
5628     (synopsis "Single-player, RPG roguelike game set in the world of Eyal")
5629     (source
5630      (origin
5631        (method url-fetch)
5632        (uri (string-append "https://te4.org/dl/t-engine/t-engine4-src-"
5633                            version ".tar.bz2"))
5634        (sha256
5635         (base32 "0283hvms5hr29zr0grd6gq059k0hg8hcz3fsmwjmysiih8790i68"))
5636        (modules '((guix build utils)))
5637        (snippet
5638         '(begin
5639            (substitute* '("src/music.h" "src/tSDL.h")
5640              (("#elif defined(__FreeBSD__)" line)
5641               (string-append
5642                line " || defined(__GNUC__)")))
5643            (substitute* '("src/tgl.h")
5644              (("#include <GL/glext.h>") ""))
5645            #t))))
5646     (build-system gnu-build-system)
5647     (native-inputs
5648      `(("unzip" ,unzip)))
5649     (inputs
5650      `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
5651        ("glu" ,glu)
5652        ("premake4" ,premake4)
5653        ("openal" ,openal)
5654        ("vorbis" ,libvorbis)
5655        ("luajit" ,luajit)))
5656     (arguments
5657      `(#:make-flags '("CC=gcc" "config=release")
5658        ;; XXX: Building in parallel occasionally causes this build failure:
5659        ;;   ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h:
5660        ;;   No such file or directory
5661        #:parallel-build? #f
5662        #:phases (modify-phases %standard-phases
5663                   (delete 'bootstrap)
5664                   (replace 'configure
5665                     (lambda _
5666                       (invoke "premake4" "gmake")
5667                       #t))
5668                   (add-after 'set-paths 'set-sdl-paths
5669                     (lambda* (#:key inputs #:allow-other-keys)
5670                       (setenv "CPATH"
5671                               (string-append (assoc-ref inputs "sdl-union")
5672                                              "/include/SDL2:"
5673                                              (or (getenv "CPATH") "")))
5674                       #t))
5675                   (delete 'check)
5676                   ;; premake doesn't provide install target
5677                   (replace 'install
5678                     (lambda* (#:key inputs outputs #:allow-other-keys)
5679                       (let* ((out (assoc-ref outputs "out"))
5680                              (usr (string-append out "/usr"))
5681                              (bin (string-append out "/bin"))
5682                              (licenses (string-append out "/share/licenses"))
5683                              (documents (string-append out "/share/doc"))
5684                              (pixmaps (string-append out "/share/pixmaps"))
5685                              (icon "te4-icon.png")
5686                              (data (string-append out "/share/" ,name))
5687                              (applications (string-append
5688                                             out "/share/applications"))
5689                              (unzip (string-append
5690                                      (assoc-ref inputs "unzip") "/bin/unzip"))
5691                              (wrapper (string-append bin "/" ,name)))
5692                         ;; icon
5693                         (mkdir-p pixmaps)
5694                         (invoke unzip "-j"
5695                                 (string-append
5696                                  "game/engines/te4-" ,version ".teae")
5697                                 (string-append
5698                                  "data/gfx/" icon) "-d" pixmaps)
5699                         ;; game executable
5700                         (install-file "t-engine" data)
5701                         (mkdir-p bin)
5702                         (with-output-to-file wrapper
5703                           (lambda ()
5704                             (display
5705                              (string-append
5706                               "#!/bin/sh\n"
5707                               ;; No bootstrap code found,
5708                               ;; defaulting to working directory
5709                               ;; for engine code!
5710                               "cd " data "\n"
5711                               "exec -a tome4 ./t-engine \"$@\"\n"))))
5712                         (chmod wrapper #o555)
5713                         ;; licenses
5714                         (for-each (lambda (file)
5715                                     (install-file file licenses))
5716                                   '("COPYING" "COPYING-MEDIA"))
5717                         ;; documents
5718                         (for-each (lambda (file)
5719                                     (install-file file documents))
5720                                   '("CONTRIBUTING" "CREDITS"))
5721                         ;; data
5722                         (copy-recursively "bootstrap" (string-append
5723                                                        data "/bootstrap"))
5724                         (copy-recursively "game" (string-append data "/game"))
5725                         ;; launcher
5726                         (mkdir-p applications)
5727                         (make-desktop-entry-file
5728                          (string-append applications "/" ,name ".desktop")
5729                          #:name "ToME4"
5730                          #:comment ,synopsis
5731                          #:exec ,name
5732                          #:icon icon
5733                          #:categories '("Game" "RolePlaying")))
5734                       #t)))))
5735     (home-page "https://te4.org")
5736     (description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based
5737 combat and advanced character building.  Play as one of many unique races and
5738 classes in the lore-filled world of Eyal, exploring random dungeons, facing
5739 challenging battles, and developing characters with your own tailored mix of
5740 abilities and powers.  With a modern graphical and customisable interface,
5741 intuitive mouse control, streamlined mechanics and deep, challenging combat,
5742 Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
5743     (license license:gpl3+)))
5744
5745 (define-public quakespasm
5746   (package
5747     (name "quakespasm")
5748     (version "0.93.2")
5749     (source
5750      (origin
5751        (method url-fetch)
5752        (uri (string-append "mirror://sourceforge/quakespasm/Source/quakespasm-"
5753                            version ".tgz"))
5754        (sha256
5755         (base32 "0qm0j5drybvvq8xadfyppkpk3rxqsxbywzm6iwsjwdf0iia3gss5"))))
5756     (arguments
5757      `(#:tests? #f
5758        #:make-flags '("CC=gcc"
5759                       "MP3LIB=mpg123"
5760                       "USE_CODEC_FLAC=1"
5761                       "USE_CODEC_MIKMOD=1"
5762                       "USE_SDL2=1"
5763                       "-CQuake")
5764        #:phases (modify-phases %standard-phases
5765                   (delete 'configure)
5766                   (add-after 'unpack 'fix-makefile-paths
5767                     (lambda* (#:key outputs #:allow-other-keys)
5768                       (let ((out (assoc-ref outputs "out")))
5769                         (mkdir-p (string-append out "/bin"))
5770                         (substitute* "Quake/Makefile"
5771                           (("/usr/local/games")
5772                            (string-append out "/bin")))
5773                         #t))))))
5774     (build-system gnu-build-system)
5775     (inputs `(("libmikmod" ,libmikmod)
5776               ("libvorbis" ,libvorbis)
5777               ("flac" ,flac)
5778               ("mesa" ,mesa)
5779               ("mpg123" ,mpg123)
5780               ("sdl2" ,sdl2)))
5781     (synopsis "First person shooter engine for Quake 1")
5782     (description "Quakespasm is a modern engine for id software's Quake 1.
5783 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5784 some graphical niceities, and numerous bug-fixes and other improvements.")
5785     (home-page "http://quakespasm.sourceforge.net/")
5786     (license license:gpl2+)))
5787
5788 (define-public vkquake
5789   (package
5790     (inherit quakespasm)
5791     (name "vkquake")
5792     (version "1.01.0")
5793     (source
5794      (origin
5795        (method git-fetch)
5796        (uri (git-reference
5797              (url "https://github.com/Novum/vkQuake.git")
5798              (commit version)))
5799        (file-name (git-file-name name version))
5800        (sha256
5801         (base32 "1iwin8j5kbyrknbkhjgpy8nmm7pxqzr0daa9gn7p38qhg2mh0a39"))))
5802     (arguments
5803      `(#:make-flags
5804        (let ((vulkanlib (string-append (assoc-ref %build-inputs
5805                                                   "vulkan-loader") "/lib")))
5806          (list "CC=gcc"
5807                "MP3LIB=mpg123"
5808                "USE_CODEC_FLAC=1"
5809                "USE_CODEC_MIKMOD=1"
5810                "USE_SDL2=1"
5811                (string-append "LDFLAGS=-Wl,-rpath=" vulkanlib)
5812                "-CQuake"))
5813        #:phases (modify-phases %standard-phases
5814                   (add-after 'unpack 'patch-for-new-vulkan
5815                     (lambda _
5816                       ;; Mimic upstream commit a869a22d9b51c68e for
5817                       ;; compatibility with newer vulkan-headers.
5818                       (substitute* "Quake/gl_rmisc.c"
5819                         (("VK_DYNAMIC_STATE_RANGE_SIZE")
5820                          "3"))
5821                       #t))
5822                   (delete 'configure)
5823                   (add-after 'unpack 'fix-makefile-paths
5824                     (lambda* (#:key outputs #:allow-other-keys)
5825                       (let ((vulkan (assoc-ref %build-inputs
5826                                                "vulkan-loader"))
5827                             (out (assoc-ref outputs "out")))
5828                         (mkdir-p (string-append out "/bin"))
5829                         (substitute* "Quake/Makefile" ((" /usr")
5830                                                        (string-append " " out)))
5831                         (substitute* "Quake/Makefile" (("/games")
5832                                                        (string-append "/bin")))
5833                         (substitute* "Quake/Makefile" (("..VULKAN_SDK.") vulkan))
5834                         #t))))
5835        ,@(strip-keyword-arguments '(#:make-flags #:phases)
5836                                   (package-arguments quakespasm))))
5837     (inputs `(("vulkan-headers" ,vulkan-headers)
5838               ("vulkan-loader" ,vulkan-loader)
5839               ,@(package-inputs quakespasm)))
5840     (description "vkquake is a modern engine for id software's Quake 1.
5841 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5842 some graphical niceities, and numerous bug-fixes and other improvements.")
5843     (home-page "https://github.com/Novum/vkQuake")))
5844
5845 (define-public yamagi-quake2
5846   (package
5847     (name "yamagi-quake2")
5848     (version "7.10")
5849     (source
5850      (origin
5851        (method url-fetch)
5852        (uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
5853                            version ".tar.xz"))
5854        (sha256
5855         (base32
5856          "0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
5857     (build-system gnu-build-system)
5858     (arguments
5859      `(#:tests? #f
5860        #:make-flags
5861        (list "CC=gcc"
5862              ;; link openAL instead of using dlopen at runtime
5863              "DLOPEN_OPENAL=\"no\""
5864              ;; an optional directory where it will look for quake2 data files
5865              ;; in addition to the current working directory
5866              "WITH_SYSTEMWIDE=yes"
5867              "WITH_SYSTEMDIR=\"/opt/quake2\"")
5868        #:phases
5869        (modify-phases %standard-phases
5870          (delete 'configure)
5871          (replace 'install
5872            (lambda* (#:key outputs #:allow-other-keys)
5873              (let ((out (assoc-ref outputs "out")))
5874                (mkdir-p (string-append out "/lib"))
5875                (mkdir-p (string-append out "/bin"))
5876                ;; The yamagi-quake2 binary must be in the same directory
5877                ;; as it's engine libraries, but symlinking it to /bin is okay
5878                ;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
5879                (copy-recursively "release"
5880                                  (string-append out "/lib/yamagi-quake2"))
5881                (symlink (string-append out "/lib/yamagi-quake2/quake2")
5882                         (string-append out "/bin/yamagi-quake2"))
5883                (symlink (string-append out "/lib/yamagi-quake2/q2ded")
5884                         (string-append out "/bin/yamagi-q2ded"))))))))
5885     (inputs `(("sdl2" ,sdl2)
5886               ("mesa" ,mesa)
5887               ("libvorbis" ,libvorbis)
5888               ("zlib" ,zlib)
5889               ("openal" ,openal)))
5890     (native-inputs `(("pkg-config" ,pkg-config)))
5891     (synopsis "First person shooter engine based on quake2")
5892     (description "Yamagi Quake II is an enhanced client for id Software's Quake II.
5893 The main focus is an unchanged single player experience like back in 1997,
5894 thus the gameplay and the graphics are unaltered.  However the user may use one
5895 of the unofficial retexturing packs.  In comparison with the official client,
5896 over 1000 bugs were fixed and an extensive code audit done,
5897 making Yamagi Quake II one of the most solid Quake II implementations available.")
5898     (home-page "https://www.yamagi.org/quake2/")
5899     (license (list license:gpl2+         ; game and server
5900                    (license:non-copyleft ; info-zip
5901                     "file://LICENSE"
5902                     "See Info-Zip section.")
5903                    license:public-domain)))) ; stb
5904
5905 (define-public nudoku
5906   (package
5907     (name "nudoku")
5908     (version "1.0.0")
5909     (source (origin
5910               (method url-fetch)
5911               (uri (string-append "https://github.com/jubalh/nudoku/"
5912                                   "releases/download/" version
5913                                   "/nudoku-" version ".tar.xz"))
5914               (sha256
5915                (base32
5916                 "0nr2j2z07nxk70s8xnmmpzccxicf7kn5mbwby2kg6aq8paarjm8k"))))
5917     (build-system gnu-build-system)
5918     (inputs `(("ncurses" ,ncurses)))
5919     (home-page "https://jubalh.github.io/nudoku/")
5920     (synopsis "Sudoku for your terminal")
5921     (description "Nudoku is a ncurses-based Sudoku game for your terminal.")
5922     (license license:gpl3+)))
5923
5924 (define-public the-butterfly-effect
5925   (package
5926     (name "the-butterfly-effect")
5927     (version "0.9.3.1")
5928     (source
5929      (origin
5930        (method git-fetch)
5931        (uri (git-reference
5932               (url "https://github.com/the-butterfly-effect/tbe.git")
5933               (commit (string-append "v" version))))
5934        (file-name (git-file-name name version))
5935        (sha256
5936         (base32
5937          "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj"))))
5938     (build-system gnu-build-system)
5939     (arguments
5940      `(#:phases
5941        (modify-phases %standard-phases
5942          (delete 'configure)
5943          ;; There is no "install" phase.  By default, tbe is installed
5944          ;; in the build directory.  Provide our own installation.
5945          (replace 'install
5946            (lambda* (#:key outputs #:allow-other-keys)
5947              (let* ((out (assoc-ref outputs "out"))
5948                     (bin (string-append out "/bin"))
5949                     (share (string-append out "/share")))
5950                (install-file "usr/games/tbe" bin)
5951                (mkdir-p share)
5952                (copy-recursively "usr/share" share)
5953                #t))))
5954        ;; Test suite requires a running Xorg server. Even when
5955        ;; provided, it fails with "D-Bus library appears to be
5956        ;; incorrectly set up; failed to read machine uuid: Failed to
5957        ;; open "/etc/machine-id": No such file or directory" along
5958        ;; with multiple "QPainter:: ... Painter not active" warnings.
5959        #:tests? #f))
5960     (inputs
5961      `(("qtbase" ,qtbase)
5962        ("qtsvg" ,qtsvg)))
5963     (native-inputs
5964      `(("cmake" ,cmake-minimal)
5965        ("gettext-minimal" ,gettext-minimal)
5966        ("qttools" ,qttools)))
5967     (synopsis "Realistic physics puzzle game")
5968     (description "The Butterfly Effect (tbe) is a game that uses
5969 realistic physics simulations to combine lots of simple mechanical
5970 elements to achieve a simple goal in the most complex way possible.")
5971     (home-page "http://the-butterfly-effect.org/")
5972     ;; Main license is GPL2-only.  However, artwork is distributed
5973     ;; under various licenses, listed here.
5974     (license (list license:gpl2 license:public-domain license:expat
5975                    license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
5976
5977 (define-public pioneer
5978   (package
5979     (name "pioneer")
5980     (version "20200203")
5981     (source (origin
5982               (method git-fetch)
5983               (uri (git-reference
5984                     (url "https://github.com/pioneerspacesim/pioneer.git")
5985                     (commit version)))
5986               (file-name (git-file-name name version))
5987               (sha256
5988                (base32
5989                 "1011xsi94jhw98mhm8kryq8ajig0qfbrdx5xdasi92bd4nk7lcp8"))))
5990     (build-system cmake-build-system)
5991     (native-inputs
5992      `(("pkg-config" ,pkg-config)))
5993     (inputs
5994      `(("assimp" ,assimp)
5995        ("curl" ,curl)
5996        ("freetype" ,freetype)
5997        ("glew" ,glew)
5998        ("glu" ,glu)
5999        ("libpng" ,libpng)
6000        ("libsigc++" ,libsigc++)
6001        ("libvorbis" ,libvorbis)
6002        ("lua" ,lua-5.2)                 ;not compatible with 5.3
6003        ("mesa" ,mesa)
6004        ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
6005     (arguments
6006      `(#:tests? #f                      ;tests are broken
6007        #:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
6008                                (string-append "-DPIONEER_DATA_DIR="
6009                                               %output "/share/games/pioneer"))))
6010     (home-page "https://pioneerspacesim.net")
6011     (synopsis "Game of lonely space adventure")
6012     (description
6013      "Pioneer is a space adventure game set in our galaxy at the turn of the
6014 31st century.  The game is open-ended, and you are free to eke out whatever
6015 kind of space-faring existence you can think of.  Look for fame or fortune by
6016 exploring the millions of star systems.  Turn to a life of crime as a pirate,
6017 smuggler or bounty hunter.  Forge and break alliances with the various
6018 factions fighting for power, freedom or self-determination.  The universe is
6019 whatever you make of it.")
6020     (license license:gpl3)))
6021
6022 (define-public badass
6023   (let ((commit "3c3cd669b4fc8f73a102e3702788f7b28dc47dbb")
6024         (revision "0"))
6025   (package
6026     (name "badass")
6027     (version (git-version "0.0" revision commit))
6028     (source (origin
6029               (method git-fetch)
6030               (uri (git-reference
6031                      (url "https://github.com/umayr/badass.git")
6032                      (commit commit)))
6033               (file-name (git-file-name name version))
6034               (sha256
6035                (base32
6036                 "05c9vdcb5ym3z0n5ll3v39mw4yl9jcjnlydmn0yl89ai9pv71zb6"))))
6037     (build-system go-build-system)
6038     (arguments
6039      '(#:import-path "github.com/umayr/badass"))
6040     (synopsis "Hacking contribution graphs in git")
6041     (description
6042      "Badass generates false commits for a range of dates, essentially
6043 hacking the gamification of contribution graphs on platforms such as
6044 Github or Gitlab.")
6045     (home-page "https://github.com/umayr/badass")
6046     (license license:expat))))
6047
6048 (define-public colobot
6049   (package
6050     (name "colobot")
6051     (version "0.1.12-alpha")
6052     (source
6053      (origin
6054        (method git-fetch)
6055        (uri (git-reference
6056              (url "https://github.com/colobot/colobot.git")
6057              (commit (string-append "colobot-gold-" version))
6058              (recursive? #t)))          ;for "data/" subdir
6059        (file-name (git-file-name name version))
6060        (sha256
6061         (base32
6062          "1c181cclkrnspgs07lvndg2c81cjq3smkv7qim8c470cj88rcrp2"))))
6063     (build-system cmake-build-system)
6064     (arguments
6065      `(#:tests? #f                      ;no test
6066        #:phases
6067        (modify-phases %standard-phases
6068          (add-after 'unpack 'make-git-checkout-writable
6069            (lambda _
6070              (for-each make-file-writable (find-files "."))
6071              #t))
6072          (add-after 'unpack 'fix-directories
6073            (lambda _
6074              (substitute* "CMakeLists.txt"
6075                (("(\\$\\{CMAKE_INSTALL_PREFIX\\})/games" _ prefix)
6076                 (string-append prefix "/bin"))
6077                (("(\\$\\{CMAKE_INSTALL_PREFIX\\}/share)/games/colobot" _ prefix)
6078                 (string-append prefix "/colobot")))
6079              #t))
6080          (add-after 'fix-directories 'install-music
6081            ;; Retrieve and install music files.
6082            (lambda* (#:key inputs #:allow-other-keys)
6083              ;; Installation process tries to download music files using
6084              ;; "wget" if not already present.  Since we are going another
6085              ;; route, skip "wget" command check.
6086              (substitute* "data/music/CMakeLists.txt"
6087                (("find_program\\(WGET wget\\)") ""))
6088              ;; Populate "music/" directory.
6089              (let ((data (assoc-ref inputs "colobot-music")))
6090                (invoke "tar" "-xvf" data "-Cdata/music"))
6091              #t)))))
6092     (native-inputs
6093      `(("colobot-music"
6094         ,(origin
6095            (method url-fetch)
6096            (uri (string-append "https://colobot.info/files/music/"
6097                                "colobot-music_ogg_" version ".tar.gz"))
6098            (sha256
6099             (base32
6100              "1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
6101        ("gettext" ,gettext-minimal)
6102        ("librsvg" ,librsvg)
6103        ("po4a" ,po4a)
6104        ("python" ,python-wrapper)))
6105     (inputs
6106      `(("boost" ,boost)
6107        ("glew" ,glew)
6108        ("libogg" ,libogg)
6109        ("libpng" ,libpng)
6110        ("libsndfile" ,libsndfile)
6111        ("libvorbis" ,libvorbis)
6112        ("openal" ,openal)
6113        ("physfs" ,physfs)
6114        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-ttf)))))
6115     (synopsis "Educational programming strategy game")
6116     (description "Colobot: Gold Edition is a real-time strategy game, where
6117 you can program your units (bots) in a language called CBOT, which is similar
6118 to C++ and Java.  Your mission is to find a new planet to live and survive.
6119 You can save humanity and get programming skills!")
6120     (home-page "https://colobot.info")
6121     (license license:gpl3+)))
6122
6123 (define-public gzdoom
6124   (package
6125     (name "gzdoom")
6126     (version "4.3.2")
6127     (source
6128      (origin
6129        (method git-fetch)
6130        (uri (git-reference
6131              (url "https://github.com/coelckers/gzdoom.git")
6132              (commit (string-append "g" version))))
6133        (file-name (git-file-name name version))
6134        (sha256
6135         (base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
6136        (patches (search-patches "gzdoom-search-in-installed-share.patch"
6137                                 "gzdoom-find-system-libgme.patch"))
6138        (modules '((guix build utils)))
6139        (snippet
6140         '(begin
6141            ;; Remove some bundled libraries.  XXX There are more, but removing
6142            ;; them would require, at least, patching the build system.
6143            (with-directory-excursion "libraries"
6144              (delete-file-recursively "bzip2")
6145              (delete-file-recursively "game-music-emu")
6146              (delete-file-recursively "jpeg")
6147              (delete-file-recursively "zlib"))
6148            #t))))
6149     (arguments
6150      '(#:tests? #f
6151        #:configure-flags
6152        (let ((out (assoc-ref %outputs "out")))
6153          (list
6154           (string-append
6155            "-DCMAKE_CXX_FLAGS:="
6156            "-DSHARE_DIR=\\\"" out "/share/\\\" "
6157            "-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
6158
6159           ;; The build requires some extra convincing not to use the bundled
6160           ;; libgme previously deleted in the soure snippet.
6161           "-DFORCE_INTERNAL_GME=OFF"
6162
6163           ;; Link libraries at build time instead of loading them at run time.
6164           "-DDYN_OPENAL=OFF"
6165           "-DDYN_FLUIDSYNTH=OFF"
6166           "-DDYN_GTK=OFF"
6167           "-DDYN_MPG123=OFF"
6168           "-DDYN_SNDFILE=OFF"))
6169        #:phases
6170        (modify-phases %standard-phases
6171          (add-before 'configure 'fix-referenced-paths
6172            (lambda* (#:key inputs outputs #:allow-other-keys)
6173              (let ((fluid-3 (assoc-ref inputs "fluid-3"))
6174                    (timidity++ (assoc-ref inputs "timidity++"))
6175                    (out (assoc-ref outputs "out")))
6176
6177                (substitute*
6178                    "src/CMakeLists.txt"
6179                  (("COMMAND /bin/sh")
6180                   (string-append "COMMAND " (which "sh"))))
6181
6182                (substitute*
6183                    "libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
6184                  (("/usr/share/sounds/sf2/FluidR3_GM.sf2")
6185                   (string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
6186
6187                (substitute*
6188                    "libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
6189                  (("exename = \"timidity\"")
6190                   (string-append "exename = \"" timidity++ "/bin/timidity\"")))
6191                #t))))))
6192     (build-system cmake-build-system)
6193     (inputs `(("bzip2" ,bzip2)
6194               ("fluid-3" ,fluid-3)
6195               ("fluidsynth" ,fluidsynth)
6196               ("gtk+3" ,gtk+)
6197               ("libgme" ,libgme)
6198               ("libjpeg" ,libjpeg-turbo)
6199               ("libsndfile" ,libsndfile)
6200               ("mesa" ,mesa)
6201               ("mpg123" ,mpg123)
6202               ("openal" ,openal)
6203               ("sdl2" ,sdl2)
6204               ("timidity++" ,timidity++)
6205               ("zlib" ,zlib)))
6206     (native-inputs `(("pkg-config" ,pkg-config)
6207                      ("unzip" ,unzip)))
6208     (synopsis "Modern Doom 2 source port")
6209     (description "GZdoom is a port of the Doom 2 game engine, with a modern
6210 renderer.  It improves modding support with ZDoom's advanced mapping features
6211 and the new ZScript language.  In addition to Doom, it supports Heretic, Hexen,
6212 Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
6213     (home-page "https://zdoom.org/index")
6214     ;; The source uses x86 assembly
6215     (supported-systems '("x86_64-linux" "i686-linux"))
6216     (license (list license:gpl3+         ; gzdoom game
6217                    license:lgpl3+        ; gzdoom renderer
6218                    license:expat         ; gdtoa
6219                    (license:non-copyleft ; modified dumb
6220                     "file://dumb/licence.txt"
6221                     "Dumb license, explicitly GPL compatible.")))))
6222
6223 (define-public odamex
6224   (package
6225     (name "odamex")
6226     (version "0.8.1")
6227     (source
6228      (origin
6229        (method url-fetch)
6230        (uri (string-append
6231              "mirror://sourceforge/odamex/Odamex/" version "/"
6232              "odamex-src-" version ".tar.gz"))
6233        (sha256
6234         (base32 "1ywbqkfacc9fc5di3dn95y5ah2ys9i241j64q3f37a73x92llw1i"))))
6235     (build-system cmake-build-system)
6236     (arguments `(#:tests? #f))          ; no tests
6237     (inputs
6238      `(("sdl" ,sdl)
6239        ("sdl-mixer" ,sdl-mixer)
6240        ("zlib" ,zlib)
6241        ("libpng" ,libpng)
6242        ("alsa-lib" ,alsa-lib)))
6243     (home-page "https://odamex.net/")
6244     (synopsis "Multiplayer Doom port")
6245     (description "Odamex is a modification of the Doom engine that
6246 allows players to easily join servers dedicated to playing Doom
6247 online.")
6248     (license license:gpl2+)))
6249
6250 (define-public chocolate-doom
6251   (package
6252     (name "chocolate-doom")
6253     (version "3.0.0")
6254     (source (origin
6255               (method url-fetch)
6256               (uri (string-append "https://www.chocolate-doom.org/downloads/"
6257                                   version
6258                                   "/chocolate-doom-"
6259                                   version
6260                                   ".tar.gz"))
6261               (sha256
6262                (base32
6263                 "1f6sw6qa9z0a70dsjh5cs45fkyyxw68s7vkqlykihz8cjcisdbkk"))))
6264     (build-system gnu-build-system)
6265     (inputs `(("sdl2-net" ,sdl2-net)
6266               ("sdl2-mixer" , sdl2-mixer)
6267               ("sdl2" ,sdl2)))
6268     (native-inputs
6269      `(("pkg-config" ,pkg-config)))
6270     (synopsis "Doom source port preserving the look, feel, and bugs of vanilla
6271 Doom")
6272     (description
6273      "Chocolate Doom takes a different approach to other source ports.  Its
6274 aim is to accurately reproduce the experience of playing Vanilla Doom.  It is
6275 a conservative, historically accurate Doom source port, which is compatible
6276 with the thousands of mods and levels that were made before the Doom source
6277 code was released.  Rather than flashy new graphics, Chocolate Doom's main
6278 features are its accurate reproduction of the game as it was played in the
6279 1990s.  The project is developed around a carefully-considered philosophy that
6280 intentionally restricts which features may be added (and rejects any that
6281 affect gameplay).")
6282     (home-page "https://www.chocolate-doom.org/wiki/index.php/Chocolate_Doom")
6283     (license license:gpl2)))
6284
6285 (define-public crispy-doom
6286   (package
6287     (inherit chocolate-doom)
6288     (name "crispy-doom")
6289     (version "5.8.0")
6290     (source (origin
6291               (method git-fetch)
6292               (uri (git-reference
6293                     (url "https://github.com/fabiangreffrath/crispy-doom.git")
6294                     (commit (string-append "crispy-doom-" version))))
6295               (file-name (git-file-name name version))
6296               (sha256
6297                (base32 "1b6gn0dysv631jynh769whww9xcss1gms78sz3nrn855q1dsvcb4"))))
6298     (native-inputs
6299      (append
6300       (package-native-inputs chocolate-doom)
6301       `(("automake" ,automake)
6302         ("autoreconf" ,autoconf))))
6303     (arguments
6304      `(#:phases
6305        (modify-phases %standard-phases
6306          (replace 'bootstrap
6307            ;; The bundled autogen.sh script unconditionally runs ./configure.
6308            (lambda _ (invoke "autoreconf" "-vif"))))))
6309     (synopsis "Limit-removing enhanced-resolution Doom source port based on
6310 Chocolate Doom")
6311     (description
6312      "Crispy Doom is a friendly fork of Chocolate Doom that provides a higher
6313 display resolution, removes the static limits of the Doom engine and offers
6314 further optional visual, tactical and physical enhancements while remaining
6315 entirely config file, savegame, netplay and demo compatible with the
6316 original.")
6317     (home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
6318
6319 (define shlomif-cmake-modules
6320   (origin
6321     (method url-fetch)
6322     (uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
6323                         "raw/c505713d7a7cda608f97f01577e5868a711b883e/"
6324                         "shlomif-cmake-modules/Shlomif_Common.cmake"))
6325     (sha256
6326      (base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
6327
6328 (define-public rinutils
6329   (package
6330     (name "rinutils")
6331     (version "0.2.0")
6332     (source (origin
6333               (method git-fetch)
6334               (uri (git-reference
6335                     (url "https://github.com/shlomif/rinutils.git")
6336                     (commit version)))
6337               (file-name (git-file-name name version))
6338               (sha256
6339                (base32
6340                 "1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
6341     (native-inputs
6342      `(("perl" ,perl)
6343        ;; The following is only needed for tests.
6344        ("perl-file-find-object" ,perl-file-find-object)
6345        ("perl-test-differences" ,perl-test-differences)
6346        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6347        ("perl-io-all" ,perl-io-all)
6348        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6349        ("cmake-rules" ,shlomif-cmake-modules)
6350        ("pkg-config" ,pkg-config)))
6351     (inputs
6352      `(("cmocka" ,cmocka)
6353        ("perl-env-path", perl-env-path)
6354        ("perl-inline" ,perl-inline)
6355        ("perl-inline-c" ,perl-inline-c)
6356        ("perl-string-shellquote" ,perl-string-shellquote)
6357        ("perl-test-trailingspace" ,perl-test-trailingspace)
6358        ("perl-file-find-object-rule" ,perl-file-find-object-rule)
6359        ("perl-text-glob" ,perl-text-glob)
6360        ("perl-number-compare" ,perl-number-compare)
6361        ("perl-moo" ,perl-moo)))
6362     (arguments
6363      `(#:phases
6364        (modify-phases %standard-phases
6365          (add-after 'unpack 'fix-build-env
6366            (lambda* (#:key inputs #:allow-other-keys)
6367              (use-modules (guix build utils))
6368              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
6369                (copy-file cmake-rules
6370                           (string-append "cmake/"
6371                                          (strip-store-file-name cmake-rules)))
6372                #t)))
6373          (replace 'check
6374            (lambda _
6375              (with-directory-excursion "../source"
6376                (setenv "FCS_TEST_BUILD" "1")
6377                (setenv "RINUTILS_TEST_BUILD" "1")
6378                ;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
6379                ;; which requires tidy-all.
6380                ;; (setenv "RINUTILS_TEST_TIDY" "1")
6381                (invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
6382     (build-system cmake-build-system)
6383     (home-page "https://www.shlomifish.org/open-source/projects/")
6384     (synopsis "C11 / gnu11 utilities C library")
6385     (description "This package provides C11 / gnu11 utilities C library")
6386     (license license:expat)))
6387
6388 (define-public fortune-mod
6389   (package
6390     (name "fortune-mod")
6391     (version "2.28.0")
6392     (source
6393      (origin
6394        (method git-fetch)
6395        (uri (git-reference
6396              (url "https://github.com/shlomif/fortune-mod")
6397              (commit (string-append "fortune-mod-" version))))
6398        (file-name (git-file-name name version))
6399        (sha256
6400         (base32 "1ppzgnffgdcmq6fq4gmdq2ig10ip2bnfgklkb3i8nc6bdxm7pb89"))))
6401     (build-system cmake-build-system)
6402     (arguments
6403      `(#:test-target "check"
6404        #:phases
6405        (modify-phases %standard-phases
6406          (add-after 'unpack 'fix-build-env
6407            (lambda* (#:key inputs #:allow-other-keys)
6408              (use-modules (guix build utils))
6409              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
6410                (copy-file cmake-rules
6411                           (string-append "fortune-mod/cmake/"
6412                                          (strip-store-file-name cmake-rules)))
6413                (chdir "fortune-mod")
6414                ;; TODO: Valgrind tests fail for some reason.
6415                ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
6416                (delete-file "tests/t/valgrind.t")
6417                #t)))
6418          (add-after 'install 'fix-install-directory
6419            (lambda* (#:key outputs #:allow-other-keys)
6420              ;; Move binary from "games/" to "bin/" and remove the latter.  This
6421              ;; is easier than patching CMakeLists.txt since the tests hard-code
6422              ;; the location as well.
6423              (let* ((out   (assoc-ref outputs "out"))
6424                     (bin   (string-append out "/bin"))
6425                     (games (string-append out "/games")))
6426                (rename-file (string-append games "/fortune")
6427                             (string-append bin "/fortune"))
6428                (rmdir games)
6429                #t))))))
6430     (inputs `(("recode" ,recode)))
6431     (native-inputs
6432      `(("perl" ,perl)
6433        ;; The following is only needed for tests.
6434        ("perl-file-find-object" ,perl-file-find-object)
6435        ("perl-test-differences" ,perl-test-differences)
6436        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6437        ("perl-io-all" ,perl-io-all)
6438        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6439        ("cmake-rules" ,shlomif-cmake-modules)
6440        ("rinutils" ,rinutils)))
6441     (home-page "https://www.shlomifish.org/open-source/projects/fortune-mod/")
6442     (synopsis "The Fortune Cookie program from BSD games")
6443     (description "Fortune is a command-line utility which displays a random
6444 quotation from a collection of quotes.")
6445     (license license:bsd-4)))
6446
6447 (define xonotic-data
6448   (package
6449     (name "xonotic-data")
6450     (version "0.8.2")
6451     (source
6452      (origin
6453        (method url-fetch)
6454        (uri (string-append "http://dl.xonotic.org/xonotic-"
6455                            version ".zip"))
6456        (file-name (string-append name "-" version ".zip"))
6457        (sha256
6458         (base32
6459          "1mcs6l4clvn7ibfq3q69k2p0z6ww75rxvnngamdq5ic6yhq74bx2"))))
6460     (build-system trivial-build-system)
6461     (native-inputs
6462      `(("unzip" ,unzip)))
6463     (arguments
6464      `(#:modules ((guix build utils))
6465        #:builder
6466        (begin
6467          (use-modules (guix build utils))
6468          (let* ((out (assoc-ref %outputs "out"))
6469                 (xonotic (string-append out "/share/xonotic"))
6470                 (source (assoc-ref %build-inputs "source"))
6471                 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
6472            (copy-file source (string-append ,name "-" ,version ".zip"))
6473            (invoke unzip (string-append ,name "-" ,version ".zip"))
6474            (mkdir-p out)
6475            (mkdir-p xonotic)
6476            (chdir "Xonotic")
6477            (copy-recursively "data"
6478                              (string-append xonotic "/data"))
6479            (copy-recursively "server"
6480                              (string-append xonotic "/server"))
6481            (install-file "key_0.d0pk" xonotic)))))
6482     (home-page "http://xonotic.org")
6483     (synopsis "Data files for Xonotic")
6484     (description
6485      "Xonotic-data provides the data files required by the game Xonotic.")
6486     (license (list license:gpl2+
6487                    (license:x11-style "file://server/rcon.pl")))))
6488
6489 (define-public xonotic
6490   (package
6491     (name "xonotic")
6492     (version "0.8.2")
6493     (source
6494      (origin
6495        (method url-fetch)
6496        (uri (string-append "http://dl.xonotic.org/xonotic-"
6497                            version "-source.zip"))
6498        (file-name (string-append name "-" version ".zip"))
6499        (sha256
6500         (base32
6501          "0axxw04fyz6jlfqd0kp7hdrqa0li31sx1pbipf2j5qp9wvqicsay"))))
6502     (build-system gnu-build-system)
6503     (arguments
6504      `(#:configure-flags (list (string-append "--prefix="
6505                                               (assoc-ref %outputs "out"))
6506                                "--disable-rijndael")
6507        #:phases
6508        (modify-phases %standard-phases
6509          (add-before 'configure 'make-darkplaces
6510            (lambda* (#:key outputs #:allow-other-keys)
6511              (let* ((out (assoc-ref outputs "out"))
6512                     (sharedir (string-append out "/share/xonotic/")))
6513                (invoke "make" "-C" "source/darkplaces"
6514                        (string-append "DP_FS_BASEDIR="
6515                                       sharedir)
6516                        "DP_LINK_TO_LIBJPEG=1"
6517                        "DP_SOUND_API=ALSA"
6518                        "CC=gcc"
6519                        "-f" "makefile"
6520                        "cl-release")
6521                (invoke "make" "-C" "source/darkplaces"
6522                        (string-append "DP_FS_BASEDIR="
6523                                       sharedir)
6524                        "DP_LINK_TO_LIBJPEG=1"
6525                        "DP_SOUND_API=ALSA"
6526                        "CC=gcc"
6527                        "-f" "makefile"
6528                        "sdl-release")
6529                (invoke "make" "-C" "source/darkplaces"
6530                        (string-append "DP_FS_BASEDIR="
6531                                       sharedir)
6532                        "DP_LINK_TO_LIBJPEG=1"
6533                        "DP_SOUND_API=ALSA"
6534                        "CC=gcc"
6535                        "-f" "makefile"
6536                        "sv-release"))))
6537          (add-before 'configure 'bootstrap
6538            (lambda _
6539              (chdir "source/d0_blind_id")
6540              (invoke "sh" "autogen.sh")))
6541          (add-after 'build 'install-desktop-entry
6542            (lambda* (#:key outputs #:allow-other-keys)
6543              ;; Add .desktop files for the 2 variants and the symlink
6544              (let* ((output (assoc-ref outputs "out"))
6545                     (apps (string-append output "/share/applications")))
6546                (mkdir-p apps)
6547                (with-output-to-file
6548                    (string-append apps "/xonotic-glx.desktop")
6549                  (lambda _
6550                    (format #t
6551                            "[Desktop Entry]~@
6552                      Name=xonotic-glx~@
6553                      Comment=Xonotic glx~@
6554                      Exec=~a/bin/xonotic-glx~@
6555                      TryExec=~@*~a/bin/xonotic-glx~@
6556                      Icon=xonotic~@
6557                      Categories=Game~@
6558                      Type=Application~%"
6559                            output)))
6560                (with-output-to-file
6561                    (string-append apps "/xonotic-sdl.desktop")
6562                  (lambda _
6563                    (format #t
6564                            "[Desktop Entry]~@
6565                      Name=xonotic-sdl~@
6566                      Comment=Xonotic sdl~@
6567                      Exec=~a/bin/xonotic-sdl~@
6568                      TryExec=~@*~a/bin/xonotic-sdl~@
6569                      Icon=xonotic~@
6570                      Categories=Game~@
6571                      Type=Application~%"
6572                            output)))
6573                (with-output-to-file
6574                    (string-append apps "/xonotic.desktop")
6575                  (lambda _
6576                    (format #t
6577                            "[Desktop Entry]~@
6578                      Name=xonotic~@
6579                      Comment=Xonotic~@
6580                      Exec=~a/bin/xonotic-glx~@
6581                      TryExec=~@*~a/bin/xonotic~@
6582                      Icon=xonotic~@
6583                      Categories=Game~@
6584                      Type=Application~%"
6585                            output)))
6586                #t)))
6587          (add-after 'install-desktop-entry 'install-icons
6588            (lambda* (#:key outputs #:allow-other-keys)
6589              (let ((out (assoc-ref outputs "out")))
6590                (with-directory-excursion "../../misc/logos/icons_png/"
6591                  (for-each
6592                   (lambda (file)
6593                     (let* ((size (string-filter char-numeric? file))
6594                            (icons (string-append out "/share/icons/hicolor/"
6595                                                  size "x" size "/apps")))
6596                       (mkdir-p icons)
6597                       (copy-file file (string-append icons "/xonotic.png"))))
6598                   '("xonotic_16.png" "xonotic_22.png" "xonotic_24.png"
6599                     "xonotic_32.png" "xonotic_48.png" "xonotic_64.png"
6600                     "xonotic_128.png" "xonotic_256.png" "xonotic_512.png"))))))
6601          (add-after 'install-icons 'install-binaries
6602            (lambda* (#:key outputs #:allow-other-keys)
6603              (let ((out (assoc-ref outputs "out")))
6604                (define (install src dst)
6605                  (let ((dst (string-append out dst)))
6606                    (mkdir-p (dirname dst))
6607                    (copy-file src dst)))
6608                (mkdir-p (string-append out "/bin"))
6609                (install "../darkplaces/darkplaces-dedicated"
6610                         "/bin/xonotic-dedicated")
6611                (install "../darkplaces/darkplaces-glx"
6612                         "/bin/xonotic-glx")
6613                (install "../darkplaces/darkplaces-sdl"
6614                         "/bin/xonotic-sdl")
6615                ;; Provide a default xonotic executable, defaulting to SDL.
6616                (symlink (string-append out "/bin/xonotic-sdl")
6617                         (string-append out "/bin/xonotic"))
6618                #t)))
6619          (add-after 'install-binaries 'install-data
6620            (lambda* (#:key outputs inputs #:allow-other-keys)
6621              (let* ((out (assoc-ref outputs "out"))
6622                     (data (assoc-ref inputs "xonotic-data")))
6623                (symlink (string-append data "/share/xonotic")
6624                         (string-append out "/share/xonotic"))
6625                #t)))
6626          (add-after 'install-binaries 'wrap-binaries
6627            (lambda* (#:key outputs inputs #:allow-other-keys)
6628              ;; Curl and libvorbis need to be wrapped so that we get
6629              ;; sound and networking.
6630              (let* ((out (assoc-ref outputs "out"))
6631                     (bin (string-append out "/bin/xonotic"))
6632                     (bin-sdl (string-append out "/bin/xonotic-sdl"))
6633                     (bin-glx (string-append out "/bin/xonotic-glx"))
6634                     (bin-dedicated (string-append out "/bin/xonotic-dedicated"))
6635                     (curl (assoc-ref inputs "curl"))
6636                     (vorbis (assoc-ref inputs "libvorbis")))
6637                (wrap-program bin
6638                  `("LD_LIBRARY_PATH" ":" prefix
6639                    (,(string-append curl "/lib:" vorbis "/lib"))))
6640                (wrap-program bin-sdl
6641                  `("LD_LIBRARY_PATH" ":" prefix
6642                    (,(string-append curl "/lib:" vorbis "/lib"))))
6643                (wrap-program bin-glx
6644                  `("LD_LIBRARY_PATH" ":" prefix
6645                    (,(string-append curl "/lib:" vorbis "/lib"))))
6646                (wrap-program bin-dedicated
6647                  `("LD_LIBRARY_PATH" ":" prefix
6648                    (,(string-append curl "/lib:" vorbis "/lib"))))
6649                #t))))))
6650     (inputs
6651      `(("xonotic-data" ,xonotic-data)
6652        ("alsa-lib" ,alsa-lib)
6653        ("curl" ,curl)
6654        ("libjpeg" ,libjpeg-turbo)
6655        ("libmodplug" ,libmodplug)
6656        ("libvorbis" ,libvorbis)
6657        ("libogg" ,libogg)
6658        ("libxpm" ,libxpm)
6659        ("libxxf86dga" ,libxxf86dga)
6660        ("libxxf86vm" ,libxxf86vm)
6661        ("libx11" ,libx11)
6662        ("libxext" ,libxext)
6663        ("libxau" ,libxau)
6664        ("libxdmcp" ,libxdmcp)
6665        ("mesa" ,mesa)
6666        ("glu" ,glu)
6667        ("freetype" ,freetype)
6668        ("sdl2" ,sdl2)
6669        ("libpng" ,libpng)
6670        ("hicolor-icon-theme" ,hicolor-icon-theme)))
6671     (native-inputs
6672      `(("unzip" ,unzip)
6673        ("autoconf" ,autoconf)
6674        ("automake" ,automake)
6675        ("pkg-config" ,pkg-config)
6676        ("libtool" ,libtool)
6677        ("gmp" ,gmp)))
6678     (home-page "https://xonotic.org")
6679     (synopsis "Fast-paced first-person shooter game")
6680     (description
6681      "Xonotic is a free, fast-paced first-person shooter.
6682 The project is geared towards providing addictive arena shooter
6683 gameplay which is all spawned and driven by the community itself.
6684 Xonotic is a direct successor of the Nexuiz project with years of
6685 development between them, and it aims to become the best possible
6686 open-source FPS of its kind.")
6687     (license (list license:gpl2+
6688                    license:bsd-3 ; /source/d0_blind_id folder and others
6689                    (license:x11-style "" "See file rcon.pl.")))))
6690
6691 (define-public frotz
6692   (package
6693     (name "frotz")
6694     (version "2.44")
6695     (source (origin
6696               (method url-fetch)
6697               (uri (list (string-append
6698                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6699                           "frotz/frotz-" version ".tar.gz")
6700                          (string-append
6701                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6702                           "frotz/frotz-" version ".tar.gz")))
6703               (sha256
6704                (base32
6705                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6706     (build-system gnu-build-system)
6707     (arguments
6708      `(#:tests? #f                      ; there are no tests
6709        #:phases
6710        (modify-phases %standard-phases
6711          (delete 'configure)
6712          (add-before 'build 'curses
6713            (lambda _
6714              (substitute* "Makefile"
6715                (("lcurses") "lncurses"))
6716              #t))
6717          (replace 'install
6718            (lambda* (#:key outputs #:allow-other-keys)
6719              (let* ((out (assoc-ref outputs "out"))
6720                     (bin (string-append out "/bin"))
6721                     (man (string-append out "/share/man/man6")))
6722                (install-file "frotz" bin)
6723                (mkdir-p man)
6724                (install-file "doc/frotz.6" man)
6725                #t))))))
6726     (inputs `(("libmodplug" ,libmodplug)
6727               ("libsamplerate" ,libsamplerate)
6728               ("libsndfile" ,libsndfile)
6729               ("libvorbis" ,libvorbis)
6730               ("ncurses" ,ncurses)))
6731     (synopsis "Portable Z-machine interpreter (ncurses version) for text adventure games")
6732     (description "Frotz is an interpreter for Infocom games and other Z-machine
6733 games in the text adventure/interactive fiction genre.  This version of Frotz
6734 complies with standard 1.0 of Graham Nelson's specification.  It plays all
6735 Z-code games V1-V8, including V6, with sound support through libao, and uses
6736 ncurses for text display.")
6737     (home-page "http://frotz.sourceforge.net")
6738     (license license:gpl2+)))
6739
6740 (define-public frotz-dumb-terminal
6741   (package
6742     (name "frotz-dumb-terminal")
6743     (version "2.44")
6744     (source (origin
6745               (method url-fetch)
6746               (uri (list (string-append
6747                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6748                           "frotz/frotz-" version ".tar.gz")
6749                          (string-append
6750                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6751                           "frotz/frotz-" version ".tar.gz")))
6752               (sha256
6753                (base32
6754                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6755     (build-system gnu-build-system)
6756     (arguments
6757      `(#:tests? #f                      ; there are no tests
6758        #:phases
6759        (modify-phases %standard-phases
6760          (delete 'configure)
6761          (replace 'build
6762            (lambda _
6763              (invoke "make" "dumb")))
6764          (replace 'install
6765            (lambda* (#:key outputs #:allow-other-keys)
6766              (let* ((out (assoc-ref outputs "out"))
6767                     (bin (string-append out "/bin"))
6768                     (man (string-append out "/share/man/man6")))
6769                (install-file "dfrotz" bin)
6770                (mkdir-p man)
6771                (install-file "doc/dfrotz.6" man)
6772                #t))))))
6773     (synopsis "Portable Z-machine dumb interpreter for text adventure games")
6774     (description "Frotz is an interpreter for Infocom games and
6775 other Z-machine games in the text adventure/interactive fiction genre.
6776 dfrotz is the dumb interface version.  You get no screen control; everything
6777 is just printed to the terminal line by line.  The terminal handles all the
6778 scrolling.  Maybe you'd like to experience what it's like to play Adventure on
6779 a teletype.  A much cooler use for compiling Frotz with the dumb interface is
6780 that it can be wrapped in CGI scripting, PHP, and the like to allow people
6781 to play games on webpages.  It can also be made into a chat bot.")
6782     (home-page "http://frotz.sourceforge.net")
6783     (license license:gpl2+)))
6784
6785 (define-public frotz-sdl
6786   (let* ((commit "4de8c34f2116fff554af6216c30ec9d41bf50b24"))
6787     (package
6788       (name "frotz-sdl")
6789       (version "2.45pre")
6790       (source (origin
6791                 (method git-fetch)
6792                 (uri (git-reference
6793                       (url "https://gitlab.com/DavidGriffith/frotz")
6794                       (commit commit)))
6795                 (sha256
6796                  (base32
6797                   "18ms21pcrl7ipcnyqnf8janamkryzx78frsgd9kfk67jvbj0z2k8"))
6798                 (file-name (git-file-name name version))))
6799       (build-system gnu-build-system)
6800       (arguments
6801        `(#:tests? #f                    ; there are no tests
6802          #:phases
6803          (modify-phases %standard-phases
6804            (delete 'configure)
6805            (add-before 'build 'patch-makefile
6806              (lambda _
6807                (substitute* "Makefile"
6808                  (("lcurses") "lncurses")
6809                  (("^BUILD_DATE_TIME =.*$")
6810                   "BUILD_DATE_TIME = \"2.45pre-20180907.00000\"\n"))
6811                #t))
6812            (replace 'build
6813              (lambda _
6814                (invoke "make" "sdl")))
6815            (replace 'install
6816              (lambda* (#:key outputs #:allow-other-keys)
6817                (let* ((out (assoc-ref outputs "out"))
6818                       (bin (string-append out "/bin"))
6819                       (man (string-append out "/share/man/man6")))
6820                  (install-file "sfrotz" bin)
6821                  (mkdir-p man)
6822                  (install-file "doc/sfrotz.6" man)
6823                  #t))))))
6824       (native-inputs
6825        `(("pkg-config" ,pkg-config)
6826          ("which" ,which)
6827          ("perl" ,perl)))
6828       (inputs `(("sdl2" ,sdl2)
6829                 ("sdl2-mixer" ,sdl2-mixer)
6830                 ("libmodplug" ,libmodplug)
6831                 ("libsamplerate" ,libsamplerate)
6832                 ("libsndfile" ,libsndfile)
6833                 ("libvorbis" ,libvorbis)
6834                 ("ncurses" ,ncurses)
6835                 ("freetype" ,freetype)
6836                 ("libjpeg-turbo" ,libjpeg-turbo)))
6837       (synopsis "Portable Z-machine interpreter (SDL port) for text adventure games")
6838       (description "Frotz is an interpreter for Infocom games and other Z-machine
6839 games in the text adventure/interactive fiction genre.  This version of Frotz
6840 using SDL fully supports all these versions of the Z-Machine including the
6841 graphical version 6.  Graphics and sound are created through the use of the SDL
6842 libraries.  AIFF sound effects and music in MOD and OGG formats are supported
6843 when packaged in Blorb container files or optionally from individual files.")
6844       (home-page "http://frotz.sourceforge.net")
6845       (license license:gpl2+))))
6846
6847 (define-public libmanette
6848   (package
6849     (name "libmanette")
6850     (version "0.2.4")
6851     (source (origin
6852               (method url-fetch)
6853               (uri (string-append "mirror://gnome/sources/libmanette/"
6854                                   (version-major+minor version) "/"
6855                                   "libmanette-" version ".tar.xz"))
6856               (sha256
6857                (base32
6858                 "1xrc6rh73v5w3kbkflzv1yg8sbxk4wf06hfk95raxhxlssza9q2g"))))
6859     (build-system meson-build-system)
6860     (native-inputs
6861      `(("glib" ,glib "bin")             ; for glib-compile-resources
6862        ("gobject-introspection" ,gobject-introspection)
6863        ("pkg-config" ,pkg-config)
6864        ("vala" ,vala)))
6865     (inputs
6866      `(("libevdev" ,libevdev)
6867        ("libgudev" ,libgudev)))
6868     (home-page "https://wiki.gnome.org/Apps/Games")
6869     (synopsis "Game controller library")
6870     (description "Libmanette is a small GObject library giving you simple
6871 access to game controllers.  It supports the de-facto standard gamepads as
6872 defined by the W3C standard Gamepad specification or as implemented by the SDL
6873 GameController.")
6874     (license license:lgpl2.1+)))
6875
6876 (define-public quadrapassel
6877   (package
6878     (name "quadrapassel")
6879     (version "3.32.0")
6880     (source (origin
6881               (method url-fetch)
6882               (uri (string-append "mirror://gnome/sources/quadrapassel/"
6883                                   (version-major+minor version) "/"
6884                                   "quadrapassel-" version ".tar.xz"))
6885               (sha256
6886                (base32
6887                 "1zhi1957knz9dm98drn2dh95mr33sdch590yddh1f8r6bzsfjvpy"))))
6888     (build-system meson-build-system)
6889     (arguments
6890      '(#:glib-or-gtk? #t
6891        #:phases
6892        (modify-phases %standard-phases
6893          (add-after 'unpack 'skip-gtk-update-icon-cache
6894            ;; Don't create 'icon-theme.cache'.
6895            (lambda _
6896              (substitute* "build-aux/meson_post_install.py"
6897                (("gtk-update-icon-cache") (which "true")))
6898              #t)))))
6899     (native-inputs
6900      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
6901        ("gettext" ,gettext-minimal)
6902        ("glib" ,glib "bin")             ;for glib-compile-resources
6903        ("itstool" ,itstool)
6904        ("libxml2" ,libxml2)             ;for xmllint
6905        ("pkg-config" ,pkg-config)
6906        ("vala" ,vala)))
6907     (inputs
6908      `(("clutter" ,clutter)
6909        ("clutter-gtk" ,clutter-gtk)
6910        ("gtk+" ,gtk+)
6911        ("libcanberra" ,libcanberra)
6912        ("libmanette" ,libmanette)
6913        ("librsvg" ,librsvg)))
6914     (home-page "https://wiki.gnome.org/Apps/Quadrapassel")
6915     (synopsis "GNOME version of Tetris")
6916     (description "Quadrapassel comes from the classic falling-block game,
6917 Tetris.  The goal of the game is to create complete horizontal lines of
6918 blocks, which will disappear.  The blocks come in seven different shapes made
6919 from four blocks each: one straight, two L-shaped, one square, and two
6920 S-shaped.  The blocks fall from the top center of the screen in a random
6921 order.  You rotate the blocks and move them across the screen to drop them in
6922 complete lines.  You score by dropping blocks fast and completing lines.  As
6923 your score gets higher, you level up and the blocks fall faster.")
6924     (license license:gpl2+)))
6925
6926 (define-public endless-sky
6927   (package
6928     (name "endless-sky")
6929     (version "0.9.12")
6930     (source
6931       (origin
6932         (method git-fetch)
6933         (uri (git-reference
6934                (url "https://github.com/endless-sky/endless-sky")
6935                (commit (string-append "v" version))))
6936         (file-name (git-file-name name version))
6937         (sha256
6938          (base32 "18nkl4s3r5sy3sd9lhbdg9160c7fggklklprx0d5azifc8g6k0wj"))))
6939     (build-system scons-build-system)
6940     (arguments
6941      `(#:scons ,scons-python2
6942        #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6943        #:tests? #f ; no tests
6944        #:phases
6945        (modify-phases %standard-phases
6946          (add-after 'unpack 'patch-resource-locations
6947            (lambda* (#:key outputs #:allow-other-keys)
6948              (substitute* "source/Files.cpp"
6949                (("/usr/local/")
6950                 (string-append (assoc-ref outputs "out") "/")))
6951              #t))
6952          (add-after 'unpack 'patch-scons
6953            (lambda _
6954              (substitute* "SConstruct"
6955                ;; Keep environmental variables
6956                (("Environment\\(\\)")
6957                 "Environment(ENV = os.environ)")
6958                ;; Install into %out/bin
6959                (("games\"") "bin\""))
6960              #t)))))
6961     (inputs
6962      `(("glew" ,glew)
6963        ("libjpeg" ,libjpeg-turbo)
6964        ("libmad" ,libmad)
6965        ("libpng" ,libpng)
6966        ("openal" ,openal)
6967        ("sdl2" ,sdl2)))
6968     (home-page "https://endless-sky.github.io/")
6969     (synopsis "2D space trading and combat game")
6970     (description "Endless Sky is a 2D space trading and combat game.  Explore
6971 other star systems.  Earn money by trading, carrying passengers, or completing
6972 missions.  Use your earnings to buy a better ship or to upgrade the weapons and
6973 engines on your current one.  Blow up pirates.  Take sides in a civil war.  Or
6974 leave human space behind and hope to find friendly aliens whose culture is more
6975 civilized than your own.")
6976     (license (list license:gpl3+
6977                    license:cc-by-sa3.0
6978                    license:cc-by-sa4.0
6979                    license:public-domain))))
6980
6981 (define-public stepmania
6982   (package
6983     (name "stepmania")
6984     (version "5.1.0-b2")
6985     (source
6986      (origin
6987        (method git-fetch)
6988        (uri (git-reference
6989              (url "https://github.com/stepmania/stepmania.git")
6990              (commit (string-append "v" version))))
6991        (file-name (git-file-name name version))
6992        (sha256
6993         (base32
6994          "0a7y9l7xm510vgnpmj1is7p9m6d6yd0fcaxrjcickz295k5w3rdn"))
6995        (modules '((guix build utils)))
6996        (snippet
6997         '(begin
6998            ;; Remove song files, which are licensed under a non-commercial
6999            ;; clause, and a course pointing to them.
7000            (for-each delete-file-recursively
7001                      '("Songs/StepMania 5/Goin' Under"
7002                        "Songs/StepMania 5/MechaTribe Assault"
7003                        "Songs/StepMania 5/Springtime"))
7004            (for-each delete-file '("Courses/Default/Jupiter.crs"
7005                                    "Courses/Default/Jupiter.png"))
7006            ;; Unbundle libpng.
7007            (substitute* "extern/CMakeLists.txt"
7008              (("include\\(CMakeProject-png.cmake\\)") ""))
7009            (delete-file-recursively "extern/libpng")
7010            #t))))
7011     (build-system cmake-build-system)
7012     (arguments
7013      `(#:tests? #f                      ;FIXME: couldn't find how to run tests
7014        #:build-type "Release"
7015        #:out-of-source? #f              ;for the 'install-desktop' phase
7016        #:configure-flags
7017        (list "-DWITH_SYSTEM_FFMPEG=1"
7018              ;; SSE instructions are available on Intel systems only.
7019              ,@(if (any (cute string-prefix? <> (or (%current-target-system)
7020                                                     (%current-system)))
7021                         '("x64_64" "i686"))
7022                    '()
7023                    '("-DWITH_SSE2=NO"))
7024              ;; Configuration cannot find GTK2 without the two following
7025              ;; flags.
7026              (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
7027                             (assoc-ref %build-inputs "gtk+")
7028                             "/lib/gtk-2.0/include")
7029              (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
7030                             (assoc-ref %build-inputs "glib")
7031                             "/lib/glib-2.0/include"))
7032        #:phases
7033        (modify-phases %standard-phases
7034          (add-after 'unpack 'ensure-application-files-can-be-found
7035            (lambda* (#:key outputs #:allow-other-keys)
7036              (let ((out (assoc-ref outputs "out")))
7037                (substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
7038                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
7039                   (string-append "\"" out
7040                                  "/share/stepmania/GtkModule.so\"")))
7041                (substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
7042                  (("Root = sDirOfExecutable")
7043                   (string-append "Root = \"" out "/share/stepmania/\""))
7044                  (("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
7045                   (string-append "\"" out "/share/stepmania/" dir "\"")))
7046                (substitute* "src/RageFileManager.cpp"
7047                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
7048                   (string-append "\"" out "/share/stepmania/\""))))
7049              #t))
7050          (add-after 'unpack 'fix-install-subdir
7051            ;; Installation would be done in "%out/stepmania-X.Y", but we
7052            ;; prefer the more common layout "%out/share/stepmania".
7053            (lambda _
7054              (substitute* "src/CMakeLists.txt"
7055                (("\"stepmania-.*?\"") "\"share/stepmania\""))
7056              #t))
7057          (add-after 'unpack 'unbundle-libpng
7058            (lambda* (#:key inputs #:allow-other-keys)
7059              (substitute* "src/CMakeLists.txt"
7060                (("\\$\\{SM_EXTERN_DIR\\}/libpng/include")
7061                 (string-append (assoc-ref inputs "libpng") "/include")))
7062              #t))
7063          (add-after 'install 'install-executable
7064            (lambda* (#:key outputs #:allow-other-keys)
7065              (let* ((out (assoc-ref outputs "out"))
7066                     (bin (string-append out "/bin"))
7067                     (exe (string-append out "/share/stepmania/stepmania")))
7068                (mkdir-p bin)
7069                (symlink exe (string-append bin "/stepmania"))
7070                #t)))
7071          (add-after 'install-executable 'install-desktop
7072            (lambda* (#:key outputs #:allow-other-keys)
7073              (let* ((out (assoc-ref outputs "out"))
7074                     (share (string-append out "/share"))
7075                     (applications (string-append share "/applications"))
7076                     (icons (string-append share "/icons")))
7077                (install-file "stepmania.desktop" applications)
7078                (mkdir-p icons)
7079                (copy-recursively "icons" icons)
7080                #t)))
7081          ;; Move documentation in a more usual place, i.e.,
7082          ;; "%out/share/doc/stepmania/".
7083          (add-after 'install-desktop 'install-doc
7084            (lambda* (#:key outputs #:allow-other-keys)
7085              (let* ((out (assoc-ref outputs "out"))
7086                     (share (string-append out "/share")))
7087                (with-directory-excursion share
7088                  (mkdir-p "doc")
7089                  (symlink "../stepmania/Docs" "doc/stepmania"))
7090                #t))))))
7091     (native-inputs
7092      `(("pkg-config" ,pkg-config)
7093        ("yasm" ,yasm)))
7094     (inputs
7095      `(("alsa-lib" ,alsa-lib)
7096        ;; Per upstream, StepMania is only guaranteed to work with a very
7097        ;; specific FFmpeg version, which is included in the repository as
7098        ;; a Git submodule.  This particular version requirement usually
7099        ;; changes every few years.
7100        ("ffmpeg" ,ffmpeg-for-stepmania)
7101        ("glib" ,glib)
7102        ("glew" ,glew)
7103        ("gtk+" ,gtk+-2)
7104        ("jsoncpp" ,jsoncpp)
7105        ("libpng" ,libpng)
7106        ("libjpeg" ,libjpeg-turbo)
7107        ("libmad" ,libmad)
7108        ("libogg" ,libogg)
7109        ("libva" ,libva)
7110        ("libvorbis" ,libvorbis)
7111        ("libxinerama" ,libxinerama)
7112        ("libxrandr" ,libxrandr)
7113        ("mesa" ,mesa)
7114        ("pcre" ,pcre)
7115        ("pulseaudio" ,pulseaudio)
7116        ("sdl" ,sdl2)
7117        ("udev" ,eudev)
7118        ("zlib" ,zlib)))
7119     (synopsis "Advanced rhythm game designed for both home and arcade use")
7120     (description "StepMania is a dance and rhythm game.  It features 3D
7121 graphics, keyboard and dance pad support, and an editor for creating your own
7122 steps.
7123
7124 This package provides the core application, but no song is shipped.  You need
7125 to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
7126     (home-page "https://www.stepmania.com")
7127     (license license:expat)))
7128
7129 (define-public btanks
7130   (package
7131     (name "btanks")
7132     (version "0.9.8083")
7133     (source
7134      (origin
7135        (method url-fetch)
7136        (uri (string-append "mirror://sourceforge/btanks/btanks-source/"
7137                            "btanks-" version ".tar.bz2"))
7138        (sha256
7139         (base32
7140          "0ha35kxc8xlbg74wsrbapfgxvcrwy6psjkqi7c6adxs55dmcxliz"))))
7141     (build-system scons-build-system)
7142     (arguments
7143      `(#:tests? #f                      ; there are none
7144        #:scons ,scons-python2
7145        #:scons-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
7146        #:phases
7147        (modify-phases %standard-phases
7148          (add-after 'unpack 'replace-removed-scons-syntax
7149            (lambda _
7150              (substitute* "SConstruct"
7151                (("Options") "Variables")
7152                (("opts.Add\\(BoolOption.*") "opts.Add('gcc_visibility', 'gcc visibility', 'true')")
7153                (("opts.Add\\(EnumOption.*") "opts.Add('mode', 'build mode', 'release')"))
7154              #t))
7155          (add-after 'set-paths 'set-sdl-paths
7156            (lambda* (#:key inputs #:allow-other-keys)
7157              (setenv "CPATH"
7158                      (string-append (assoc-ref inputs "sdl")
7159                                     "/include/SDL:"
7160                                     (or (getenv "CPATH") "")))
7161              #t))
7162          (add-after 'unpack 'fix-compilation-errors
7163            (lambda _
7164              (substitute* "mrt/base_file.h"
7165                (("#include <string>" m)
7166                 (string-append m "\n#include <sys/types.h>")))
7167              (substitute* '("engine/sl08/sl08.h"
7168                             "engine/sl08/sl08.py")
7169                (("signal = NULL") "signal = 0")
7170                (("object\\(NULL\\)") "object(0)")
7171                (("func\\(NULL\\)") "func(0)")
7172                ((" connect\\(signal_ref\\)")
7173                 " this->connect(signal_ref)"))
7174              (substitute* "math/range_list.h"
7175                ((" lower_bound\\(value\\)")
7176                 " this->lower_bound(value)")
7177                (("      erase\\(i\\)")
7178                 "       this->erase(i)"))
7179              (substitute* "clunk/source.cpp"
7180                (("using namespace clunk" m)
7181                 (string-append "# define pow10f(x) exp10f(x)\n" m)))
7182              #t))
7183          (add-after 'unpack 'find-lua
7184            (lambda _
7185              (substitute* "engine/SConscript"
7186                (("lua5.1") "lua-5.1")
7187                (("bt_libs.append\\(lua\\)")
7188                 "bt_libs.append(\"lua\")"))
7189              #t)))))
7190     (inputs
7191      `(("expat" ,expat)
7192        ("glu" ,glu)
7193        ("libsmpeg" ,libsmpeg-with-sdl1)
7194        ("libvorbis" ,libvorbis)
7195        ("lua51" ,lua-5.1)
7196        ("sdl" ,(sdl-union (list sdl
7197                                 sdl-mixer
7198                                 sdl-image
7199                                 sdl-ttf)))
7200        ("zlib" ,zlib)))
7201     (native-inputs
7202      `(("pkg-config" ,pkg-config)
7203        ("zip" ,zip)))
7204     (home-page "http://btanks.sourceforge.net")
7205     (synopsis "Multiplayer tank battle game")
7206     (description "Battle Tanks (also known as \"btanks\") is a funny battle
7207 game, where you can choose one of three vehicles and eliminate your enemy
7208 using the whole arsenal of weapons.  It has original cartoon-like graphics and
7209 cool music, it’s fun and dynamic, it has several network modes for deathmatch
7210 and cooperative.")
7211     ;; Some parts (e.g. mrt/b64.cpp) are LGPLv2.1+, but the whole package is
7212     ;; released under GPLv2 or later.  It comes with extra exceptions for the
7213     ;; developers.
7214     (license (list license:gpl2+ license:lgpl2.1+))))
7215
7216 (define-public slingshot
7217   (package
7218     (name "slingshot")
7219     (version "0.9")
7220     (source
7221      (origin
7222        (method git-fetch)
7223        (uri (git-reference
7224              (url "https://github.com/ryanakca/slingshot.git")
7225              (commit version)))
7226        (file-name (git-file-name name version))
7227        (sha256
7228         (base32
7229          "19m8b6nsi786bc6gmkp185mwri3r5y249gjmqd5qsc23nnfhgrs1"))))
7230     (build-system python-build-system)
7231     (arguments
7232      `(#:python ,python-2))
7233     (inputs
7234      `(("python-pygame" ,python2-pygame)))
7235     (home-page "https://github.com/ryanakca/slingshot")
7236     (synopsis "Simple 2D shooting strategy game set in space")
7237     (description "Slingshot is a two-dimensional strategy game where two
7238 players attempt to shoot one another through a section of space populated by
7239 planets.  The main feature of the game is that the shots, once fired, are
7240 affected by the gravity of the planets.")
7241     (license license:gpl2+)))
7242
7243 (define-public 4dtris
7244   (package
7245     (name "4dtris")
7246     (version "0.4.3")
7247     (source
7248      (origin
7249        (method url-fetch)
7250        (uri (string-append "https://launchpad.net/4dtris/"
7251                            (version-major+minor version)
7252                            "/" version "/+download/4dtris_"
7253                            version ".orig.tar.gz"))
7254        (sha256
7255         (base32
7256          "1nfkhcm0l89jyw8yr65na97g4l385zhjf7whkyg47c3v5sdqq2g7"))))
7257     (build-system gnu-build-system)
7258     (arguments
7259      `(#:phases
7260        (modify-phases %standard-phases
7261          (add-after 'unpack 'fix-install-directories
7262            (lambda* (#:key outputs #:allow-other-keys)
7263              (let ((out (assoc-ref outputs "out")))
7264                (substitute* "Makefile.in"
7265                  (("bindir = /usr/games")
7266                   (string-append "bindir = " out "/bin"))
7267                  (("/usr/share/applications")
7268                   (string-append out "/share/applications"))
7269                  (("/usr/share/games/4dtris")
7270                   (string-append out "/share/4dtris"))))
7271              #t))
7272          (add-after 'set-paths 'set-sdl-paths
7273            (lambda* (#:key inputs #:allow-other-keys)
7274              (setenv "CPATH"
7275                      (string-append (assoc-ref inputs "sdl")
7276                                     "/include/SDL:"
7277                                     (or (getenv "CPATH") "")))
7278              #t)))))
7279     (inputs
7280      `(("fontconfig" ,fontconfig)
7281        ("freeglut" ,freeglut)
7282        ("sdl" ,(sdl-union (list sdl sdl-ttf)))))
7283     (home-page "https://launchpad.net/4dtris/")
7284     (synopsis "4D Tetris")
7285     (description "4D-TRIS is an alteration of the well-known Tetris game.  The
7286 game field is extended to 4D space, which has to filled up by the gamer with
7287 4D hyper cubes.")
7288     (license license:gpl3)))
7289
7290 (define-public arx-libertatis
7291   (package
7292     (name "arx-libertatis")
7293     (version "1.1.2")
7294     (source
7295      (origin
7296        (method url-fetch)
7297        (uri (string-append "http://arx-libertatis.org/files/arx-libertatis-"
7298                            version ".tar.xz"))
7299        (sha256
7300         (base32
7301          "0hjfxlsmp8wwqr06snv2dlly2s79ra0d9aw49gkp6rn8m50b9bc2"))))
7302     (build-system cmake-build-system)
7303     (outputs '("out" "installer"))
7304     (arguments
7305      '(#:tests? #f                      ; No tests.
7306        #:phases
7307        (modify-phases %standard-phases
7308          (add-after 'unpack 'fix-install-helper-paths
7309            (lambda* (#:key inputs #:allow-other-keys)
7310              (let ((p7zip (assoc-ref inputs "p7zip"))
7311                    (innoextract (assoc-ref inputs "innoextract"))
7312                    (wget (assoc-ref inputs "wget"))
7313                    (zenity (assoc-ref inputs "zenity")))
7314                (substitute* "scripts/arx-install-data"
7315                  (("have innoextract")
7316                   (string-append "have " innoextract "/bin/innoextract"))
7317                  (("then innoextract")
7318                   (string-append "then " innoextract "/bin/innoextract"))
7319                  (("else innoextract")
7320                   (string-append "else " innoextract "/bin/innoextract"))
7321                  (("for _extract_zip_sz in 7za 7z")
7322                   (string-append "for _extract_zip_sz in " p7zip "/bin/7za"))
7323                  (("else if have 7z")
7324                   (string-append "else if have " p7zip "/bin/7za"))
7325                  (("7z x -tiso")
7326                   (string-append p7zip "/bin/7z x -tiso"))
7327                  (("if have wget")
7328                   (string-append "if have " wget "/bin/wget"))
7329                  (("wget -O")
7330                   (string-append wget "/bin/wget -O"))
7331                  (("for backend in \\$preferred zenity")
7332                   (string-append "for backend in $preferred " zenity "/bin/zenity"))
7333                  (("zenity +--title")
7334                   (string-append zenity "/bin/zenity --title"))
7335                  (("^zenity\\)")
7336                   (string-append zenity "/bin/zenity)"))))
7337              #t))
7338          (add-after 'install 'move-installer
7339            (lambda* (#:key outputs #:allow-other-keys)
7340              (let ((out (assoc-ref outputs "out"))
7341                    (installer (assoc-ref outputs "installer")))
7342                (mkdir-p (string-append installer "/bin"))
7343                (rename-file (string-append out "/bin/arx-install-data")
7344                             (string-append installer "/bin/arx-install-data"))))))))
7345     (inputs
7346      `(("sdl" ,sdl)                     ; Switch to sdl2 in >1.1.2.
7347        ("mesa" ,mesa)                   ; Switch to libepoxy in >1.1.2.
7348        ("glew" ,glew)
7349        ("openal" ,openal)
7350        ("zlib" ,zlib)
7351        ("boost" ,boost)
7352        ("glm" ,glm)
7353        ("freetype" ,freetype)
7354        ;; The following are only needed by the arx-install-data script.
7355        ("p7zip" ,p7zip) ; Install-helper uses it to extract ISO and .cab archives.
7356        ("zenity" ,zenity)           ; GUI for install-helper.
7357        ("wget" ,wget)     ; Used by the install-helper to download the patch.
7358        ;; The install-helper needs it to extract the patch.
7359        ("innoextract" ,innoextract)))
7360     (home-page "https://arx-libertatis.org/")
7361     (synopsis "Port of Arx Fatalis, a first-person role-playing game")
7362     (description "Arx Libertatis is a cross-platform port of Arx Fatalis, a 2002
7363 first-person role-playing game / dungeon crawler developed by Arkane Studios.
7364 This port however does not include the game data, so you need to obtain a copy
7365 of the original Arx Fatalis or its demo to play Arx Libertatis.  Arx Fatalis
7366 features crafting, melee and ranged combat, as well as a unique casting system
7367 where the player draws runes in real time to effect the desired spell.")
7368     (license license:gpl3+)))
7369
7370 (define-public edgar
7371   (package
7372     (name "edgar")
7373     (version "1.33")
7374     (source
7375      (origin
7376        (method url-fetch)
7377        (uri
7378         (string-append "https://github.com/riksweeney/edgar/releases/download/"
7379                        version "/edgar-" version "-1.tar.gz"))
7380        (sha256
7381         (base32 "1mbx7dvizdca4g1blcv3bdh6yxd13k47rkya4rdzg0nvvz24m175"))))
7382     (build-system gnu-build-system)
7383     (arguments '(#:tests? #f            ; there are no tests
7384                  #:make-flags
7385                  (list "CC=gcc"
7386                        (string-append "PREFIX=" (assoc-ref %outputs "out"))
7387                        (string-append "BIN_DIR=" (assoc-ref %outputs "out") "/bin/"))
7388                  #:phases
7389                  (modify-phases %standard-phases
7390                    (delete 'configure)
7391                    (add-before 'build 'fix-env
7392                      (lambda* (#:key inputs #:allow-other-keys)
7393                        (setenv "CPATH"
7394                                (string-append (assoc-ref inputs "sdl2-union")
7395                                               "/include/SDL2:"
7396                                               (or (getenv "CPATH") "")))
7397                        #t)))))
7398     (inputs
7399      `(("sdl2-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
7400        ("zlib" ,zlib)))
7401     (native-inputs
7402      `(("pkg-config" ,pkg-config)
7403        ("autoconf" ,autoconf)
7404        ("automake" ,automake)
7405        ("gnu-gettext" ,gettext-minimal)
7406        ("libtool" ,libtool)
7407        ("which" ,which)))
7408     (synopsis "2d action platformer game")
7409     (description "The Legend of Edgar is a 2D platform game with a persistent world.
7410 When Edgar's father fails to return home after venturing out one dark and stormy night,
7411 Edgar fears the worst: he has been captured by the evil sorcerer who lives in
7412 a fortress beyond the forbidden swamp.")
7413     (home-page "https://www.parallelrealities.co.uk/games/edgar/")
7414     (license license:gpl2+)))
7415
7416 (define-public openclonk
7417   (package
7418     (name "openclonk")
7419     (version "8.1")
7420     (source (origin
7421               (method url-fetch)
7422               (uri (string-append
7423                     "https://www.openclonk.org/builds/release/" version "/"
7424                     "openclonk-" version "-src.tar.bz2"))
7425               (sha256
7426                (base32
7427                 "0imkqjp8lww5p0cnqf4k4mb2v682mnsas63qmiz17rspakr7fxik"))))
7428     (build-system cmake-build-system)
7429     (arguments
7430      `(#:configure-flags '("-DAudio_TK=OpenAL")
7431        #:test-target "tests"
7432        #:phases
7433        (modify-phases %standard-phases
7434          (add-after 'unpack 'prepare-gmock
7435            (lambda* (#:key inputs #:allow-other-keys)
7436              (mkdir "gmock")
7437              (copy-recursively (assoc-ref inputs "googlemock") "gmock")
7438              (substitute* "tests/CMakeLists.txt"
7439                (("/usr/src/gmock")
7440                 (string-append (getcwd) "/gmock/googlemock"))
7441                (("/usr/src/gtest")
7442                 (string-append (getcwd) "/gmock/googletest"))
7443                (("PATH_SUFFIXES \"src\" \"gtest\"")
7444                 "PATH_SUFFIXES \"src\""))
7445              #t))
7446          (add-after 'unpack 'adjust-backward-cpp-includes
7447            (lambda _
7448              ;; XXX: The bundled backward-cpp exports a CMake "interface"
7449              ;; that includes external libraries such as libdl from glibc.
7450              ;; By default, CMake interface includes are treated as "system
7451              ;; headers", and GCC behaves poorly when glibc is passed as a
7452              ;; system header (causing #include_next failures).
7453
7454              ;; Here we prevent targets that consume the Backward::Backward
7455              ;; interface from treating it as "system includes".
7456              (substitute* "CMakeLists.txt"
7457                (("target_link_libraries\\((.+) Backward::Backward\\)" all target)
7458                 (string-append "set_property(TARGET " target " PROPERTY "
7459                                "NO_SYSTEM_FROM_IMPORTED true)\n"
7460                                all)))
7461              #t))
7462          (add-after 'unpack 'add-libiberty
7463            ;; Build fails upon linking executables without this.
7464            (lambda _
7465              (substitute* "thirdparty/backward-cpp/BackwardConfig.cmake"
7466                (("set\\(LIBBFD_LIBRARIES (.*?)\\)" _ libraries)
7467                 (string-append "set(LIBBFD_LIBRARIES " libraries " iberty)")))
7468              #t))
7469          (add-after 'add-libiberty 'lax-freealut-requirement
7470            ;; TODO: We provide freealut 1.1.0, but pkg-config somehow detects
7471            ;; it as 1.0.1.  Force minimal version.
7472            (lambda _
7473              (substitute* "cmake/FindAudio.cmake"
7474                (("freealut>=1.1.0") "freealut>=1.0.1"))
7475              #t))
7476          (add-after 'lax-freealut-requirement 'fix-directories
7477            ;; Prefer "$out/share/openclonk" over
7478            ;; "$out/share/games/openclonk". Also install "openclonk"
7479            ;; binary in "bin/", not "games/".
7480            (lambda _
7481              (substitute* "CMakeLists.txt"
7482                (("share/games/openclonk") "share/openclonk")
7483                (("TARGETS openclonk DESTINATION games")
7484                 "TARGETS openclonk DESTINATION bin"))
7485              #t)))))
7486     (native-inputs
7487      `(("googlemock" ,(package-source googletest))
7488        ("googletest" ,googletest)
7489        ("pkg-config" ,pkg-config)))
7490     (inputs
7491      `(("freealut" ,freealut)
7492        ("freetype" ,freetype)
7493        ("glew" ,glew)
7494        ("libiberty" ,libiberty)
7495        ("libjpeg" ,libjpeg-turbo)
7496        ("libogg" ,libogg)
7497        ("libpng" ,libpng)
7498        ("libvorbis" ,libvorbis)
7499        ("libxrandr" ,libxrandr)
7500        ("mesa" ,mesa)
7501        ("miniupnpc" ,miniupnpc)
7502        ("openal" ,openal)
7503        ("qtbase" ,qtbase)
7504        ("readline" ,readline)
7505        ("sdl" ,sdl2)
7506        ("tinyxml" ,tinyxml)
7507        ("zlib" ,zlib)))
7508     (home-page "https://www.openclonk.org/")
7509     (synopsis
7510      "Multiplayer action game where you control small and nimble humanoids")
7511     (description "OpenClonk is a multiplayer action/tactics/skill game.  It is
7512 often referred to as a mixture of The Settlers and Worms.  In a simple 2D
7513 antfarm-style landscape, the player controls a crew of Clonks, small but
7514 robust humanoid beings.  The game encourages free play but the normal goal is
7515 to either exploit valuable resources from the earth by building a mine or
7516 fight each other on an arena-like map.")
7517     ;; Software as a whole is licensed under ISC, artwork under CC-BY.
7518     (license (list license:isc license:cc-by3.0))))
7519
7520 (define-public flare-engine
7521   (package
7522     (name "flare-engine")
7523     (version "1.11")
7524     (source (origin
7525               (method git-fetch)
7526               (uri (git-reference
7527                     (url "https://github.com/flareteam/flare-engine.git")
7528                     (commit (string-append "v" version))))
7529               (file-name (git-file-name name version))
7530               (sha256
7531                (base32
7532                 "1mqr1s72p5bdh4kq2a8hg72dk8lwnddicjnd2cdp1sbfa9lmjym8"))))
7533     (build-system cmake-build-system)
7534     (arguments
7535      `(#:tests? #f                      ;no test
7536        #:configure-flags '("-DBINDIR=bin" "-DDATADIR=share/flare")))
7537     (inputs
7538      `(("hicolor-icon-theme" ,hicolor-icon-theme)
7539        ("python" ,python-wrapper)
7540        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
7541     (home-page "http://www.flarerpg.org/")
7542     (synopsis "Action Roleplaying Engine")
7543     (description "Flare (Free Libre Action Roleplaying Engine) is a simple
7544 game engine built to handle a very specific kind of game: single-player 2D
7545 action RPGs.")
7546     (license license:gpl3+)))
7547
7548 (define-public flare-game
7549   (package
7550     (name "flare-game")
7551     (version "1.11")
7552     (source (origin
7553               (method git-fetch)
7554               (uri (git-reference
7555                     (url "https://github.com/flareteam/flare-game.git")
7556                     (commit (string-append "v" version))))
7557               (file-name (git-file-name name version))
7558               (sha256
7559                (base32
7560                 "0bd5g7sd89a9176ilr408hdqzdfv4j7wj0idd685c1n6s01c3h6p"))))
7561     (build-system cmake-build-system)
7562     (arguments
7563      `(#:tests? #f                      ;no test
7564        #:configure-flags '("-DDATADIR=share/flare")
7565        #:phases
7566        (modify-phases %standard-phases
7567          ;; Flare expects the mods to be located in the same folder.
7568          ;; Yet, "default" mod is in the engine, whereas the others
7569          ;; are in the current package.  Merge everything here with
7570          ;; a symlink.
7571          (add-after 'install 'add-default-mod
7572            (lambda* (#:key inputs outputs #:allow-other-keys)
7573              (let* ((out (assoc-ref outputs "out"))
7574                     (mods (string-append out "/share/flare/mods")))
7575                (with-directory-excursion mods
7576                  (symlink (string-append (assoc-ref inputs "flare-engine")
7577                                          "/share/flare/mods/default")
7578                           "default")))
7579              #t))
7580          (add-after 'install 'install-executable
7581            ;; The package only provides assets for the game, the
7582            ;; executable coming from "flare-engine".  Since more than
7583            ;; one game may use the engine, we create a new executable,
7584            ;; "flare-game", which launches the engine with appropriate
7585            ;; parameters.
7586            (lambda* (#:key inputs outputs #:allow-other-keys)
7587              (let* ((out (assoc-ref outputs "out"))
7588                     (bash (string-append (assoc-ref inputs "bash")
7589                                          "/bin/bash"))
7590                     (flare (string-append (assoc-ref inputs "flare-engine")
7591                                           "/bin/flare"))
7592                     (script (string-append out "/bin/flare-game")))
7593                (mkdir-p (dirname script))
7594                (call-with-output-file script
7595                  (lambda (port)
7596                    (format port
7597                            "#!~a
7598 exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
7599                            bash
7600                            flare
7601                            out)))
7602                (chmod script #o755))
7603              #t)))))
7604     (inputs
7605      `(("flare-engine" ,flare-engine)))
7606     (home-page "http://www.flarerpg.org/")
7607     (synopsis "Fantasy action RPG using the FLARE engine")
7608     (description "Flare is a single-player 2D action RPG with
7609 fast-paced action and a dark fantasy style.")
7610     (license license:cc-by-sa3.0)))
7611
7612 (define-public meritous
7613   (package
7614     (name "meritous")
7615     (version "1.5")
7616     (source (origin
7617               (method git-fetch)
7618               (uri (git-reference
7619                     (url "https://gitlab.com/meritous/meritous.git")
7620                     (commit (string-append "v" version))))
7621               (file-name (git-file-name name version))
7622               (sha256
7623                (base32
7624                 "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
7625     (build-system gnu-build-system)
7626     (arguments
7627      `(#:tests? #f                      ;no test
7628        #:make-flags
7629        (list "CC=gcc"
7630              (string-append "prefix=" (assoc-ref %outputs "out")))
7631        #:phases
7632        (modify-phases %standard-phases
7633          (delete 'configure)
7634          (add-after 'unpack 'fix-sdl-path
7635            ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
7636            ;; directory, not SDL-union provided as an input to the package.
7637            ;; We force the latter with "--prefix=" option.
7638            (lambda* (#:key inputs #:allow-other-keys)
7639              (substitute* "Makefile"
7640                (("sdl-config" command)
7641                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7642              #t))
7643          (add-after 'unpack 'fix-crash
7644            ;; XXX: Songs are not present in the repository, due to licensing
7645            ;; issues.  Yet, the game tries to load them, and, since it cannot
7646            ;; find them, crashes.  Users cannot add them back, the store being
7647            ;; read-only, so we turn off background music altogether.
7648            (lambda _
7649              (substitute* "src/audio.c"
7650                (("PlayBackgroundMusic\\(new_track\\);" all)
7651                 (string-append "// " all)))
7652              #t)))))
7653     (native-inputs
7654      `(("intltool" ,intltool)))
7655     (inputs
7656      `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
7657        ("zlib" ,zlib)))
7658     (home-page "https://gitlab.com/meritous/meritous")
7659     (synopsis "Action-adventure dungeon crawl game")
7660     (description "Far below the surface of the planet is a place of limitless
7661 power.  Those that seek to control such a utopia will soon bring an end to
7662 themselves.  Seeking an end to the troubles that plague him, PSI user Merit
7663 journeys into the hallowed Orcus Dome in search of answers.
7664
7665 Meritous is a action-adventure game with simple controls but a challenge to
7666 find a balance of power versus recovery time during real-time battles.  Set in
7667 a procedurally generated world, the player can explore thousands of rooms in
7668 search of powerful artifacts, tools to help them, and to eventually free the
7669 Orcus Dome from evil.")
7670     (license license:gpl3+)))
7671
7672 (define-public marble-marcher
7673   (let ((commit "e580460a0c3826f9b28ab404607942a8ecb625d7")
7674         (revision "1"))
7675     (package
7676       (name "marble-marcher")
7677       (version (git-version "0" revision commit))
7678       (source (origin
7679                 (method git-fetch)
7680                 (uri (git-reference
7681                       (url "https://github.com/HackerPoet/MarbleMarcher.git")
7682                       (commit commit)))
7683                 (file-name (git-file-name name version))
7684                 (sha256
7685                  (base32
7686                   "0jjv832hl1v170n6gryp2sr3lgqndi9ab841qvgqk68bks8701mx"))))
7687       (build-system cmake-build-system)
7688       (arguments
7689        `(#:tests? #f  ; there are none
7690          #:phases
7691          (modify-phases %standard-phases
7692            (add-after 'unpack 'embed-asset-directory
7693              (lambda* (#:key outputs #:allow-other-keys)
7694                (let ((assets (string-append (assoc-ref outputs "out")
7695                                             "/share/marble-marcher/assets/")))
7696                  ;; Some of the files we're patching are
7697                  ;; ISO-8859-1-encoded, so choose it as the default
7698                  ;; encoding so the byte encoding is preserved.
7699                  (with-fluids ((%default-port-encoding #f))
7700                    (substitute* "src/Resource.rc"
7701                      (("../assets/icon.ico")
7702                       (string-append assets "icon.ico")))
7703                    (substitute* "src/Res.h"
7704                      (("assets/") assets))))
7705                #t))
7706            (replace 'install
7707              (lambda* (#:key outputs #:allow-other-keys)
7708                (let* ((out (assoc-ref outputs "out"))
7709                       (assets (string-append out "/share/marble-marcher/assets"))
7710                       (bin (string-append out "/bin/")))
7711                  (mkdir-p bin)
7712                  (mkdir-p assets)
7713                  (copy-recursively "../source/assets" assets)
7714                  (install-file "MarbleMarcher" bin))
7715                #t)))))
7716       (inputs
7717        `(("eigen" ,eigen)
7718          ("mesa" ,mesa)
7719          ("sfml" ,sfml)))
7720       (native-inputs
7721        `(("pkg-config" ,pkg-config)))
7722       (home-page "https://codeparade.itch.io/marblemarcher")
7723       (synopsis "Guide a marble across fractal landscapes")
7724       (description "Marble Marcher is a video game that uses a fractal physics
7725 engine and fully procedural rendering to produce beautiful and unique
7726 gameplay.  The game is played on the surface of evolving fractals.  The goal
7727 of the game is to get your marble to the flag as quickly as possible.  But be
7728 careful not to fall off the level or get crushed by the fractal!  There are 24
7729 levels to unlock.")
7730       ;; Code is under GPLv2+, assets are under CC-BY-SA 3.0 and OFL 1.1.
7731       (license (list license:gpl2+
7732                      license:silofl1.1
7733                      license:cc-by-sa3.0)))))
7734
7735 ;; This must be updated together with flightgear.
7736 (define simgear
7737   (package
7738     (name "simgear")
7739     (version "2018.3.2")
7740     (source (origin
7741               (method url-fetch)
7742               (uri (string-append "mirror://sourceforge/flightgear/release-"
7743                                   (version-major+minor version) "/"
7744                                   "simgear-" version ".tar.bz2"))
7745               (sha256
7746                (base32
7747                 "1941ay8rngz4vwsx37bbpxr48hpcvcbj3xw1hy264lq4qnl99c68"))))
7748     (build-system cmake-build-system)
7749     (arguments
7750      `(#:phases
7751        (modify-phases %standard-phases
7752          (replace 'check
7753            (lambda _
7754              ;; Skip tests that require internet access.
7755              (invoke "ctest" "-E" "(http|dns)"))))))
7756     (inputs
7757      `(("boost" ,boost-for-mysql) ; fails with 1.69
7758        ("curl" ,curl)
7759        ("expat" ,expat)
7760        ("mesa" ,mesa)
7761        ("openal" ,openal)
7762        ("openscenegraph" ,openscenegraph-3.4)
7763        ("zlib" ,zlib)))
7764     (home-page "https://home.flightgear.org/")
7765     (synopsis "Libraries for 3D simulations and games")
7766     (description "SimGear is a set of libraries designed to be used as
7767 building blocks for quickly assembling 3D simulations, games, and
7768 visualization applications.  SimGear is developed by the FlightGear project
7769 and also provides the base for the FlightGear Flight Simulator.")
7770     (license license:lgpl2.0+)))
7771
7772 (define-public flightgear
7773   (package
7774     (name "flightgear")
7775     (version (package-version simgear))
7776     (source (origin
7777               (method url-fetch)
7778               (uri (string-append "mirror://sourceforge/flightgear/release-"
7779                                   (version-major+minor version) "/"
7780                                   "flightgear-" version ".tar.bz2"))
7781               (sha256
7782                (base32
7783                 "0lzy524cjzs8vldcjcc750bgg5c4mq9fkymxxxzqf68ilc4d1jss"))
7784               (modules '((guix build utils)))
7785               (snippet
7786                '(begin
7787                   ;; There are some bundled libraries.
7788                   (for-each delete-file-recursively
7789                             '("3rdparty/sqlite3/"))
7790                   #t))))
7791     (build-system cmake-build-system)
7792     (arguments
7793      `(#:configure-flags
7794        (list "-DSYSTEM_SQLITE=ON"
7795              (string-append "-DFG_DATA_DIR="
7796                             (assoc-ref %outputs "out")
7797                             "/share/flightgear"))
7798        ;; TODO: test cannot be run because the "run_test_suite" executable
7799        ;; does not seem to be built.
7800        #:tests? #f
7801        #:phases
7802        (modify-phases %standard-phases
7803          (add-after 'install 'wrap-executable
7804            (lambda* (#:key inputs outputs #:allow-other-keys)
7805              (let ((out (assoc-ref outputs "out")))
7806                (wrap-program (string-append out "/bin/fgfs")
7807                  `("QT_PLUGIN_PATH" ":" prefix
7808                    ,(map (lambda (label)
7809                            (string-append (assoc-ref inputs label)
7810                                           "/lib/qt5/plugins"))
7811                          '("qtbase" "qtdeclarative" "qtsvg")))
7812                  `("QML2_IMPORT_PATH" ":" prefix
7813                    ,(map (lambda (label)
7814                            (string-append (assoc-ref inputs label)
7815                                           "/lib/qt5/qml"))
7816                          '("qtdeclarative" "qtsvg"))))
7817                #t)))
7818          (add-after 'install 'install-data
7819            (lambda* (#:key inputs outputs #:allow-other-keys)
7820              (let ((share (string-append (assoc-ref outputs "out") "/share/flightgear")))
7821                (mkdir-p share)
7822                (with-directory-excursion share
7823                  (invoke "tar" "xf" (assoc-ref inputs "flightgear-data")
7824                          "--strip-components=1")))
7825              #t)))))
7826     (inputs
7827      `(("boost" ,boost-for-mysql)       ; same as simgear
7828        ("dbus" ,dbus)
7829        ("eudev" ,eudev)
7830        ("freeglut" ,freeglut)
7831        ("freetype" ,freetype)
7832        ("glew" ,glew)
7833        ("libpng" ,libpng)
7834        ("openal" ,openal)
7835        ("openscenegraph" ,openscenegraph-3.4)
7836        ("plib" ,plib)
7837        ("qtbase" ,qtbase)
7838        ("qtdeclarative" ,qtdeclarative)
7839        ("qtsvg" ,qtsvg)
7840        ("simgear" ,simgear)
7841        ("speexdsp" ,speexdsp)
7842        ("sqlite" ,sqlite)
7843        ("zlib" ,zlib)))
7844     (native-inputs
7845      `(("cppunit" ,cppunit)
7846        ("pkg-config" ,pkg-config)
7847        ("qttools" ,qttools)
7848        ("flightgear-data"
7849         ,(origin
7850            (method url-fetch)
7851            (uri (string-append "mirror://sourceforge/flightgear/release-"
7852                                (version-major+minor version) "/"
7853                                "FlightGear-" version "-data.tar.bz2"))
7854            (sha256
7855             (base32
7856              "0h4npa7gqpf5fw6pv2bpw0wbwr7fa2vhia21cjbigfgd75x82zi7"))))))
7857     (home-page "https://home.flightgear.org/")
7858     (synopsis "Flight simulator")
7859     (description "The goal of the FlightGear project is to create a
7860 sophisticated flight simulator framework for use in research or academic
7861 environments, pilot training, as an industry engineering tool, for DIY-ers to
7862 pursue their favorite interesting flight simulation idea, and last but
7863 certainly not least as a fun, realistic, and challenging desktop flight
7864 simulator.")
7865     (license license:gpl2+)))
7866
7867 (define-public jumpnbump
7868   (package
7869     (name "jumpnbump")
7870     (version "1.61")
7871     (source (origin
7872               (method git-fetch)
7873               (uri (git-reference
7874                     (url "https://gitlab.com/LibreGames/jumpnbump.git")
7875                     (commit version)))
7876               (file-name (git-file-name name version))
7877               (sha256
7878                (base32
7879                 "12lwl5sl5n009nb83r8l4lakb9286csqdf1ynpmwwydy17giqsdp"))))
7880     (build-system gnu-build-system)
7881     (arguments
7882      `(#:make-flags
7883        (list "CC=gcc"
7884              (string-append "PREFIX=" (assoc-ref %outputs "out")))
7885        #:tests? #f                      ;no test
7886        #:phases
7887        (modify-phases %standard-phases
7888          (delete 'configure)            ;no configure script
7889          (add-after 'unpack 'fix-sdl-path
7890            ;; XXX: For some reason, `sdl2-config' reports stand-alone SDL
7891            ;; directory, not SDL-union provided as an input to the package.
7892            ;; We force the latter with "--prefix=" option.
7893            (lambda* (#:key inputs #:allow-other-keys)
7894              (substitute* "Makefile"
7895                (("sdl2-config" command)
7896                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7897              #t)))))
7898     (inputs
7899      `(("bzip2" ,bzip2)
7900        ("sdl" ,(sdl-union (list sdl2 sdl2-mixer sdl2-net)))
7901        ("zlib" ,zlib)))
7902     (native-inputs
7903      `(("gettext" ,gettext-minimal)))   ;for msgfmt
7904     (home-page "https://gitlab.com/LibreGames/jumpnbump")
7905     (synopsis "Multiplayer platform game with bunnies")
7906     (description "You, as a bunny, have to jump on your opponents to make them
7907 explode.  It is a true multiplayer game; you cannot play this alone.  You can
7908 play with up to four players simultaneously.  It has network support.")
7909     (license license:gpl2+)))
7910
7911 (define-public hedgewars
7912   (package
7913     (name "hedgewars")
7914     (version "1.0.0")
7915     (source (origin
7916               (method url-fetch)
7917               (uri (string-append "https://www.hedgewars.org/download/releases/"
7918                                   "hedgewars-src-" version ".tar.bz2"))
7919               (sha256
7920                (base32
7921                 "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1"))))
7922     (build-system cmake-build-system)
7923     (arguments
7924      ;; XXX: Engine is built as Pascal source code, requiring Free Pascal
7925      ;; Compiler, which we haven't packaged yet.  With the flag below, we use
7926      ;; a Pascal to C translator and Clang instead.
7927      `(#:configure-flags (list "-DBUILD_ENGINE_C=ON")
7928        #:phases
7929        (modify-phases %standard-phases
7930          (replace 'check
7931            (lambda _ (invoke "ctest"))))))
7932     (inputs
7933      `(("ffmpeg" ,ffmpeg)
7934        ("freeglut" ,freeglut)
7935        ("ghc-entropy" ,ghc-entropy)
7936        ("ghc-hslogger" ,ghc-hslogger)
7937        ("ghc-network" ,ghc-network)
7938        ("ghc-random" ,ghc-random)
7939        ("ghc-regex-tdfa" ,ghc-regex-tdfa)
7940        ("ghc-sandi" ,ghc-sandi)
7941        ("ghc-sha" ,ghc-sha)
7942        ("ghc-utf8-string" ,ghc-utf8-string)
7943        ("ghc-vector" ,ghc-vector)
7944        ("ghc-zlib" ,ghc-zlib)
7945        ("glew" ,glew)
7946        ("libpng" ,libpng)
7947        ("lua" ,lua-5.1)
7948        ("physfs" ,physfs)
7949        ("qtbase" ,qtbase)
7950        ("sdl" ,(sdl-union
7951                 (list sdl2 sdl2-mixer sdl2-net sdl2-ttf sdl2-image)))))
7952     (native-inputs
7953      `(("clang" ,clang)
7954        ("ghc" ,ghc)
7955        ("pkg-config" ,pkg-config)
7956        ("qttools" ,qttools)))
7957     (home-page "https://hedgewars.org/")
7958     (synopsis "Turn-based artillery game featuring fighting hedgehogs")
7959     (description
7960      "Hedgewars is a turn based strategy, artillery, action and comedy game,
7961 featuring the antics of pink hedgehogs with attitude as they battle from the
7962 depths of hell to the depths of space.
7963
7964 As commander, it's your job to assemble your crack team of hedgehog soldiers
7965 and bring the war to your enemy.")
7966     ;; Software as a whole is licensed under GPL-2 terms.  Artwork and
7967     ;; scripts are distributed under various terms.
7968     (license (list license:gpl2
7969                    license:bsd-2 license:bsd-3 license:cc-by3.0 license:cc0
7970                    license:expat license:fdl1.3+ license:public-domain
7971                    license:zlib))))
7972
7973 (define-public harmonist
7974   (package
7975     (name "harmonist")
7976     (version "0.3.0")
7977     (source (origin
7978               (method git-fetch)
7979               (uri (git-reference
7980                      (url "https://git.tuxfamily.org/harmonist/harmonist.git")
7981                      (commit (string-append "v" version))))
7982               (file-name (git-file-name name version))
7983               (sha256
7984                (base32
7985                 "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
7986     (build-system go-build-system)
7987     (arguments
7988      '(#:import-path "git.tuxfamily.org/harmonist/harmonist"))
7989     (inputs
7990      `(("go-github.com-nsf-termbox-go" ,go-github.com-nsf-termbox-go)))
7991     (home-page "https://harmonist.tuxfamily.org/")
7992     (synopsis "Stealth coffee-break roguelike game")
7993     (description "Harmonist: Dayoriah Clan Infiltration is a stealth
7994 coffee-break roguelike game.  The game has a heavy focus on tactical
7995 positioning, light and noise mechanisms, making use of various terrain types
7996 and cones of view for monsters.  Aiming for a replayable streamlined experience,
7997 the game avoids complex inventory management and character building, relying
7998 on items and player adaptability for character progression.")
7999     (license license:isc)))
8000
8001 (define-public harmonist-tk
8002   (package
8003     (inherit harmonist)
8004     (name "harmonist-tk")
8005     (arguments
8006       (append
8007         (package-arguments harmonist)
8008         `(#:phases
8009           (modify-phases %standard-phases
8010             (replace 'build
8011               (lambda _
8012                 (invoke "go" "install" "-v" "-x" "--tags" "tk"
8013                         "git.tuxfamily.org/harmonist/harmonist")))
8014             (replace 'check
8015               (lambda _
8016                 (invoke "go" "test" "--tags" "tk"
8017                         "git.tuxfamily.org/harmonist/harmonist")))))))
8018     (inputs
8019      `(("go-github.com-nsf-gothic" ,go-github.com-nsf-gothic)))))
8020
8021 (define-public drascula
8022   (package
8023     (name "drascula")
8024     (version "1.0")
8025     (source (origin
8026               (method url-fetch)
8027               (uri (string-append "mirror://sourceforge/scummvm/extras/"
8028                                   "Drascula_%20The%20Vampire%20Strikes%20Back/"
8029                                   "drascula-" version ".zip"))
8030               (sha256
8031                (base32
8032                 "1pj29rpb754sn6a56f8brfv6f2m1p5qgaqik7d68pfi2bb5zccdp"))))
8033     (build-system trivial-build-system)
8034     (arguments
8035      `(#:modules ((guix build utils))
8036        #:builder
8037        (begin
8038          (use-modules (guix build utils)
8039                       (ice-9 match))
8040          (let* ((out (assoc-ref %outputs "out"))
8041                 (share (string-append out "/share/drascula"))
8042                 (scummvm (assoc-ref %build-inputs "scummvm")))
8043            ;; Install data.
8044            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8045                                        "/bin/unzip"))
8046                  (doc (string-append out "/share/doc/" ,name "-" ,version)))
8047              (for-each
8048               (lambda (input)
8049                 (invoke unzip
8050                         "-j"
8051                         (assoc-ref %build-inputs input)
8052                         "-x" "__MACOSX")
8053                 ;; Every input provides "readme.txt", and we want to
8054                 ;; preserve them all.  Therefore we rename them first.
8055                 (match input
8056                   ("drascula-int"
8057                    (rename-file "readme.txt" "readme-international.txt"))
8058                   ("drascula-audio"
8059                    (rename-file "readme.txt" "readme-audio.txt"))
8060                   (_ #f))
8061                 ;; Install documentation.
8062                 (for-each (lambda (f) (install-file f doc))
8063                           (find-files "." "\\.(txt|doc)$"))
8064                 ;; Install data.
8065                 (for-each (lambda (f) (install-file f share))
8066                           (find-files "." "\\.(ogg|00[0-9])$")))
8067               '("drascula-audio" "drascula-int" "source")))
8068            ;; Create standalone executable.
8069            (let* ((bin (string-append out "/bin"))
8070                   (executable (string-append bin "/drascula"))
8071                   (bash (string-append (assoc-ref %build-inputs "bash")
8072                                        "/bin/bash")))
8073              (mkdir-p bin)
8074              (with-output-to-file executable
8075                (lambda ()
8076                  (format #t "#!~a~%" bash)
8077                  (format #t
8078                          "exec ~a/bin/scummvm --path=~a drascula~%"
8079                          scummvm share)))
8080              (chmod executable #o755))
8081            ;; Create desktop file.  There is no dedicated icon for the
8082            ;; game, so we borrow SCUMMVM's.
8083            (let ((apps (string-append out "/share/applications")))
8084              (mkdir-p apps)
8085              (make-desktop-entry-file
8086               (string-append apps "/drascula.desktop")
8087               #:name "Drascula: The Vampire Strikes Back"
8088               #:generic-name "Drascula"
8089               #:exec (string-append out "/bin/drascula")
8090               #:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
8091               #:categories '("AdventureGame" "Game" "RolePlaying")
8092               #:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
8093               #:comment '((#f "Classic 2D point and click adventure game")
8094                           ("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
8095                           ("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
8096                           ("it" "Gioco classico di avventura punta e clicca 2D"))))
8097            #t))))
8098     (native-inputs
8099      `(("bash" ,bash)
8100        ("unzip" ,unzip)))
8101     (inputs
8102      `(("scummvm" ,scummvm)
8103        ("drascula-int"
8104         ,(let ((version "1.1"))
8105            (origin
8106              (method url-fetch)
8107              (uri (string-append "mirror://sourceforge/scummvm/extras/"
8108                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
8109                                  "drascula-int-" version ".zip"))
8110              (sha256
8111               (base32
8112                "12236i7blamal92p1i8dgp3nhp2yicics4whsl63v682bj999n14")))))
8113        ("drascula-audio"
8114         ,(let ((version "2.0"))
8115            (origin
8116              (method url-fetch)
8117              (uri (string-append "mirror://sourceforge/scummvm/extras/"
8118                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
8119                                  "drascula-audio-" version ".zip"))
8120              (sha256
8121               (base32
8122                "00g4izmsqzxb8ry1vhfx6jrygl58lvlij09nw01ds4zddsiznsky")))))))
8123     (home-page "https://www.scummvm.org")
8124     (synopsis "Classic 2D point and click adventure game")
8125     (description "Drascula: The Vampire Strikes Back is a classic humorous 2D
8126 point and click adventure game.
8127
8128 In Drascula you play the role of John Hacker, a British estate agent, that
8129 gets to meet a gorgeous blond girl who is kidnapped by the notorious vampire
8130 Count Drascula and embark on a fun yet dangerous quest to rescue her.
8131 Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING
8132 the World and demonstrating that he is even more evil than his brother Vlad.")
8133     ;; Drascula uses a BSD-like license.
8134     (license (license:non-copyleft "file:///readme.txt"))))
8135
8136 (define (make-lure-package name language hash)
8137   (package
8138     (name name)
8139     (version "1.1")
8140     (source
8141      (origin
8142        (method url-fetch)
8143        (uri (string-append
8144              "mirror://sourceforge/scummvm/extras/"
8145              "Lure%20of%20the%20Temptress/"
8146              name "-" version ".zip"))
8147        (sha256
8148         (base32 hash))))
8149     (build-system trivial-build-system)
8150     (arguments
8151      `(#:modules ((guix build utils))
8152        #:builder
8153        (begin
8154          (use-modules (guix build utils))
8155          (let* ((out (assoc-ref %outputs "out"))
8156                 (share (string-append out "/share"))
8157                 (data (string-append share "/" ,name "/" ,language))
8158                 (apps (string-append share "/applications"))
8159                 (bin (string-append out "/bin"))
8160                 (executable (string-append bin "/" ,name))
8161                 (scummvm (assoc-ref %build-inputs "scummvm")))
8162            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8163                                        "/bin/unzip")))
8164              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8165            (let ((doc (string-append share "/doc/" ,name "-" ,version)))
8166              (for-each (lambda (f) (install-file f doc))
8167                        (find-files "." "\\.(txt|PDF|pdf)$")))
8168            (for-each (lambda (f) (install-file f data))
8169                      (find-files "." "\\.(vga|VGA)$"))
8170            ;; Build the executable.
8171            (mkdir-p bin)
8172            (let ((bash (assoc-ref %build-inputs "bash")))
8173              (with-output-to-file executable
8174                (lambda ()
8175                  (format #t "#!~a/bin/bash~%" bash)
8176                  (format #t "exec ~a/bin/scummvm -q ~a -p ~a lure~%"
8177                          scummvm ,language data))))
8178            (chmod executable #o755)
8179            ;; Create desktop file.  There is no dedicated
8180            ;; icon for the game, so we borrow SCUMMVM's.
8181            (mkdir-p apps)
8182            (with-output-to-file (string-append apps "/" ,name ".desktop")
8183              (lambda _
8184                (format #t
8185                        "[Desktop Entry]~@
8186                      Name=Lure of the Temptress~@
8187                      GenericName=Lure~@
8188                      Exec=~a~@
8189                      Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8190                      Categories=AdventureGame;Game;RolePlaying;~@
8191                      Keywords=game;adventure;roleplaying;2D,fantasy;~@
8192                      Comment=Classic 2D point and click adventure game~@
8193                      Comment[de]=klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier~@
8194                      Comment[fr]=Jeu classique d'aventure pointer-et-cliquer en 2D~@
8195                      Comment[it]=Gioco classico di avventura punta e clicca 2D~@
8196                      Type=Application~%"
8197                        executable scummvm)))
8198            #t))))
8199     (native-inputs
8200      `(("unzip" ,unzip)))
8201     (inputs
8202      `(("bash" ,bash)
8203        ("scummvm" ,scummvm)))
8204     (home-page "https://www.scummvm.org")
8205     (synopsis "2D point and click fantasy adventure game")
8206     (description
8207      "Lure of the Temptress is a classic 2D point and click adventure game.
8208
8209 You are Diermot, an unwilling hero who'd prefer a quiet life, and are, to all
8210 intents and purposes, a good man.  After decades of unrest the King has united
8211 the warring factions in his kingdom and all his lands are at peace, except
8212 a remote region around a town called Turnvale.  A revolt has recently taken
8213 place in Turnvale, a revolt orchestrated by an apprentice sorceress called
8214 Selena, the titular temptress.  The king calls together his finest horsemen
8215 and heads off (with you in tow) to Turnvale just to witness how hellish
8216 mercenary monsters called Skorl are invading the town.
8217
8218 The king's men are defeated, the king is killed and you fall of your horse and
8219 bang your head heavily on the ground.  You have been *unconscious for a while
8220 when you realize that you are in a dingy cell guarded by a not so friendly
8221 Skorl.  Maybe it would be an idea to try and escape...")
8222     (license (license:non-copyleft "file:///README"))))
8223
8224 (define-public lure
8225   (make-lure-package
8226    "lure" "en" "0201i70qcs1m797kvxjx3ygkhg6kcl5yf49sihba2ga8l52q45zk"))
8227
8228 (define-public lure-de
8229   (make-lure-package
8230    "lure-de" "de" "0sqq7h5llml6rv85x0bfv4bgzwhs4c82p4w4zmfcaab6cjlad0sy"))
8231
8232 (define-public lure-es
8233   (make-lure-package
8234    "lure-es" "es" "1dvv5znvlsakw6w5r16calv9jkgw27aymgybsf4q22lcmpxbj1lk"))
8235
8236 (define-public lure-fr
8237   (make-lure-package
8238    "lure-fr" "fr" "1y51jjb7f8023832g44vd1jsb6ni85586pi2n5hjg9qjk6gi90r9"))
8239
8240 (define-public lure-it
8241   (make-lure-package
8242    "lure-it" "it" "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj"))
8243
8244 (define (make-queen-package name file-prefix release language hash)
8245   (package
8246     (name name)
8247     (version release)
8248     (source
8249      (origin
8250        (method url-fetch)
8251        (uri (string-append "mirror://sourceforge/scummvm/extras/"
8252                            "Flight%20of%20the%20Amazon%20Queen/"
8253                            file-prefix release ".zip"))
8254        (sha256
8255         (base32 hash))))
8256     (build-system trivial-build-system)
8257     (arguments
8258      `(#:modules ((guix build utils))
8259        #:builder
8260        (begin
8261          (use-modules (guix build utils))
8262          (let* ((out (assoc-ref %outputs "out"))
8263                 (share (string-append out "/share"))
8264                 (data (string-append share "/" ,name))
8265                 (apps (string-append share "/applications"))
8266                 (bin (string-append out "/bin"))
8267                 (executable (string-append bin "/" ,name))
8268                 (scummvm (assoc-ref %build-inputs "scummvm")))
8269            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8270                                        "/bin/unzip")))
8271              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8272            (let ((doc (string-append share "/doc/" ,name "-" ,version)))
8273              (install-file "readme.txt" doc))
8274            (install-file "queen.1c" data)
8275            (mkdir-p bin)
8276            (let ((bash (assoc-ref %build-inputs "bash")))
8277              (with-output-to-file executable
8278                (lambda ()
8279                  (format #t "#!~a/bin/bash~%" bash)
8280                  (format #t "exec ~a/bin/scummvm -q fr -p ~a queen~%"
8281                          scummvm data))))
8282            (chmod executable #o755)
8283            ;; Create desktop file.  There is no dedicated
8284            ;; icon for the game, so we borrow SCUMMVM's.
8285            (mkdir-p apps)
8286            (with-output-to-file (string-append apps "/" ,name ".desktop")
8287              (lambda _
8288                (format #t
8289                        "[Desktop Entry]~@
8290                        Name=Flight of the Amazon Queen~@
8291                        GenericName=Queen~@
8292                        Comment=Embark on a quest to rescue a kidnapped princess and in the process, discover the true sinister intentions of a suspiciously located Lederhosen company~@
8293                        Comment[de]=Begib dich auf ein Abenteuer, um eine entführte Prinzessin zu retten und entdecke die wahren, finsteren Absichten eines verdächtig erscheinenden Lederhosen-Unternehmens~@
8294                        Type=Application~@
8295                        Exec=~a~@
8296                        Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8297                        Categories=AdventureGame;Game;RolePlaying;~@
8298                        Keywords=adventure;game;roleplaying;fantasy;~%"
8299                        executable scummvm))))
8300          #t)))
8301     (native-inputs
8302      `(("unzip" ,unzip)))
8303     (inputs
8304      `(("bash" ,bash)
8305        ("scummvm" ,scummvm)))
8306     (home-page "https://www.scummvm.org/")
8307     (synopsis "Classic 2D point and click adventure game")
8308     (description "Flight of the Amazon Queen is a 2D point-and-click
8309 adventure game set in the 1940s.
8310
8311 You assume the role of Joe King, a pilot for hire who is given the job
8312 of flying Faye Russell (a famous movie star) into the Amazon jungle
8313 for a photo shoot.  Of course, things never go according to plans.
8314 After an unfortunate turn of events they find themselves stranded in
8315 the heart of the Amazon jungle, where Joe will embark on a quest to
8316 rescue a kidnapped princess and in the process, discover the true
8317 sinister intentions of a suspiciously located Lederhosen company.  In
8318 a rich 2D environment, Joe will cross paths with a variety of unlikely
8319 jungle inhabitants including, but not limited to, a tribe of Amazon
8320 women and 6-foot-tall pygmies.")
8321     (license (license:non-copyleft "file:///readme.txt"))))
8322
8323 (define-public queen
8324   (make-queen-package
8325    "queen" "FOTAQ_Talkie-" "1.1" "en"
8326    "1a6q71q1dl9vvw2qqsxk5h1sv0gaqy6236zr5905w2is01gdsp52"))
8327
8328 (define-public queen-de
8329   (make-queen-package
8330    "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de"
8331    "13vn43x7214vyprlpqabvv71k890nff3d6fjscflr1ll7acjca3f"))
8332
8333 (define-public queen-fr
8334   (make-queen-package
8335    "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr"
8336    "0hq5g4qrkcwm2kn5i4kv4hijs9hi7bw9xl1vrwd1l69qqn30crwy"))
8337
8338 (define-public queen-it
8339   (make-queen-package
8340    "queen-it" "FOTAQ_It_Talkie_" "1.0" "it"
8341    "1h76y70lrpzfjkm53n4nr364nhyka54vbz9r7sadzyzl7c7ilv4d"))
8342
8343 (define-public sky
8344   (package
8345     (name "sky")
8346     (version "1.2")                     ;1.3 is floppy version
8347     (source
8348      (origin
8349        (method url-fetch)
8350        (uri (string-append "mirror://sourceforge/scummvm/extras/"
8351                            "Beneath%20a%20Steel%20Sky/"
8352                            "bass-cd-" version ".zip"))
8353        (sha256
8354         (base32 "14s5jz67kavm8l15gfm5xb7pbpn8azrv460mlxzzvdpa02a9n82k"))))
8355     (build-system trivial-build-system)
8356     (arguments
8357      `(#:modules ((guix build utils))
8358        #:builder
8359        (begin
8360          (use-modules (guix build utils))
8361          (let* ((out (assoc-ref %outputs "out"))
8362                 (share (string-append out "/share"))
8363                 (data (string-append share "/" ,name))
8364                 (apps (string-append share "/applications"))
8365                 (bin (string-append out "/bin"))
8366                 (executable (string-append bin "/" ,name))
8367                 (scummvm (assoc-ref %build-inputs "scummvm")))
8368            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8369                                        "/bin/unzip")))
8370              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8371            (let ((doc (string-append share "/doc/bass-" ,version)))
8372              (install-file "readme.txt" doc))
8373            (for-each (lambda (f) (install-file f data))
8374                      (find-files "." "^sky\\."))
8375            ;; Build the executable.
8376            (mkdir-p bin)
8377            (let ((bash (assoc-ref %build-inputs "bash")))
8378              (with-output-to-file executable
8379                (lambda ()
8380                  (format #t "#!~a/bin/bash~%" bash)
8381                  (format #t "exec ~a/bin/scummvm -p ~a sky~%" scummvm data))))
8382            (chmod executable #o755)
8383            ;; Create desktop file.  There is no dedicated
8384            ;; icon for the game, so we borrow SCUMMVM's.
8385            (mkdir-p apps)
8386            (with-output-to-file (string-append apps "/" ,name ".desktop")
8387              (lambda _
8388                (format #t
8389                        "[Desktop Entry]~@
8390                        Name=Beneath a Steel Sky~@
8391                        GenericName=Bass~@
8392                        Exec=~a~@
8393                        Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8394                        Categories=AdventureGame;Game;RolePlaying;~@
8395                        Keywords=adventure;game;roleplaying;cyberpunk;~@
8396                        Comment=A science-fiction adventure game set in a bleak post-apocalyptic vision of the future~@
8397                        Comment[de]=Ein Science-Fiction-Abenteuerspiel \
8398 angesiedelt in einer düsteren, postapokalyptischen Vision der Zukunft~@
8399                        Type=Application~%"
8400                        executable scummvm)))
8401            #t))))
8402     (native-inputs
8403      `(("unzip" ,unzip)))
8404     (inputs
8405      `(("bash" ,bash)
8406        ("scummvm" ,scummvm)))
8407     (home-page "https://www.scummvm.org/")
8408     (synopsis "Classic 2D point an click science-fiction adventure game")
8409     (description
8410      "Beneath a Steel Sky is a science-fiction thriller set in a bleak
8411 post-apocalyptic vision of the future.  It revolves around Union City,
8412 where selfishness, rivalry, and corruption by its citizens seems to be
8413 all too common, those who can afford it live underground, away from
8414 the pollution and social problems which are plaguing the city.
8415
8416 You take on the role of Robert Foster, an outcast of sorts from the
8417 city since a boy who was raised in a remote environment outside of
8418 Union City simply termed ``the gap''.  Robert's mother took him away
8419 from Union City as a child on their way to ``Hobart'' but the
8420 helicopter crashed on its way.  Unfortunately, Robert's mother died,
8421 but he survived and was left to be raised by a local tribe from the
8422 gap.
8423
8424 Years later, Union City security drops by and abducts Robert, killing
8425 his tribe in the process; upon reaching the city the helicopter taking
8426 him there crashes with him escaping, high upon a tower block in the
8427 middle of the city.  He sets out to discover the truth about his past,
8428 and to seek vengeance for the killing of his tribe.")
8429     (license (license:non-copyleft "file:///readme.txt"))))
8430
8431 (define-public gnurobots
8432   (package
8433     (name "gnurobots")
8434     (version "1.2.0")
8435     (source
8436      (origin
8437        (method url-fetch)
8438        (uri (string-append "mirror://gnu/gnurobots/gnurobots-"
8439                            version ".tar.gz"))
8440        (sha256
8441         (base32
8442          "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb"))))
8443     (build-system gnu-build-system)
8444     (inputs
8445      `(("glib" ,glib)
8446        ("gtk+" ,gtk+-2)
8447        ("vte" ,vte/gtk+-2)
8448        ("readline" ,readline)
8449        ("guile" ,guile-1.8)))
8450     (native-inputs
8451      `(("pkg-config" ,pkg-config)))
8452     (arguments
8453      `(#:make-flags
8454        (list
8455         ;; Do not abort build on "deprecated-declarations" warnings.
8456         "CFLAGS=-Wno-error=deprecated-declarations"
8457         ;; Find readline headers in sub-directory.
8458         (string-append "READLINE_CFLAGS=-I"
8459                        (assoc-ref %build-inputs "readline")
8460                        "/include/readline/"))
8461        #:phases
8462        (modify-phases %standard-phases
8463          (add-after 'install 'install-doc
8464            (lambda* (#:key outputs #:allow-other-keys)
8465              (install-file "doc/Robots-HOWTO"
8466                            (string-append (assoc-ref outputs "out")
8467                                           "/share/doc/gnurobots-"
8468                                           ,version))
8469              #t)))))
8470     (home-page "https://www.gnu.org/software/gnurobots/")
8471     (synopsis "Program a little robot and watch it explore a world")
8472     (description
8473      "GNU Robots is a game in which you program a robot to explore a world
8474 full of enemies that can hurt it, obstacles and food to be eaten.  The goal of
8475 the game is to stay alive and collect prizes.  The robot program conveniently
8476 may be written in a plain text file in the Scheme programming language.")
8477     (license license:gpl3+)))
8478
8479 (define-public ri-li
8480   (package
8481     (name "ri-li")
8482     (version "2.0.1")
8483     (source (origin
8484               (method url-fetch)
8485               (uri (string-append "mirror://sourceforge/ri-li/"
8486                                   "Ri-li%20Linux_Unix/Ri-li%20V" version "/"
8487                                   "Ri-li-" version ".tar.bz2"))
8488               (sha256
8489                (base32
8490                 "1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
8491               ;; Taken from
8492               ;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
8493               ;; It doesn't build otherwise.
8494               (patches (search-patches "ri-li-modernize_cpp.patch"))))
8495     (build-system gnu-build-system)
8496     (arguments
8497      `(#:phases
8498        (modify-phases %standard-phases
8499          ;; Remove "gentoo" subdirectory from Makefile, as it is
8500          ;; missing a make file and generates a build failure.
8501          (add-after 'configure 'fix-build
8502            (lambda _
8503              (substitute* "Makefile"
8504                ((" gentoo") ""))
8505              #t))
8506          (add-after 'install 'install-desktop-file
8507            (lambda* (#:key outputs #:allow-other-keys)
8508              (let* ((out (assoc-ref outputs "out"))
8509                     (apps (string-append out "/share/applications"))
8510                     (pixmaps (string-append out "/share/pixmaps")))
8511                (for-each (lambda (f) (install-file f pixmaps))
8512                          (find-files "data" "\\.(png|ico)$"))
8513                (mkdir-p apps)
8514                (with-output-to-file (string-append apps "/ri-li.desktop")
8515                  (lambda _
8516                    (format #t
8517                            "[Desktop Entry]~@
8518                      Name=Ri-li~@
8519                      Exec=~a/bin/Ri_li~@
8520                      Icon=~a/Ri-li-icon-32x32.png~@
8521                      Categories=Game;ArcadeGame;~@
8522                      Keywords=toy;train;wooden;snake-like;engine;~@
8523                      Comment=a toy simulator game~@
8524                      Comment[de]=Ein Spiel mit einem kleinen Zug~@
8525                      Comment[fr]=un jeu de petit train~@
8526                      Comment[ro_RO]=un joc cu un tren de jucărie~@
8527                      Terminal=false~@
8528                      Type=Application~%"
8529                            out pixmaps))))
8530              #t))
8531          (add-after 'install-desktop-file 'remove-spurious-files
8532            ;; Delete redundant files already installed somewhere else.
8533            (lambda* (#:key outputs #:allow-other-keys)
8534              (let ((out (assoc-ref outputs "out")))
8535                (for-each delete-file
8536                          (find-files (string-append out "/share/Ri-li")
8537                                      "\\.(png|ico)|COPYING"))
8538                #t))))))
8539     (inputs
8540      `(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
8541     (home-page "http://www.ri-li.org")
8542     (synopsis "Toy train simulation game")
8543     (description "Ri-li is a game in which you drive a wooden toy
8544 steam locomotive across many levels and collect all the coaches to
8545 win.")
8546     ;; The project is dual-licensed GPL2+ and GPL3+.
8547     (license (list license:gpl2+ license:gpl3+))))
8548
8549 (define-public freeorion
8550   (package
8551     (name "freeorion")
8552     (version "0.4.9")
8553     (source
8554      (origin
8555        (method url-fetch)
8556        (uri (string-append "https://github.com/freeorion/freeorion/releases/"
8557                            "download/v" version "/FreeOrion_v" version
8558                            "_2020-02-02.db53471_Source.tar.gz"))
8559        (sha256
8560         (base32 "1qfnqkysagh8dw26plk229qh17mv4prjxs6qhfyczrmrrakb72an"))
8561        (modules '((guix build utils)))
8562        (snippet
8563         '(begin
8564            ;; There are some bundled fonts.
8565            (for-each delete-file-recursively '("default/data/fonts"))
8566            #t))))
8567     (build-system cmake-build-system)
8568     (arguments
8569      '(#:tests? #f                      ;no test
8570        #:phases
8571        (modify-phases %standard-phases
8572          (add-after 'unpack 'unbundle-fonts
8573            (lambda* (#:key inputs #:allow-other-keys)
8574              (let ((roboto-dir (string-append (assoc-ref inputs "font-roboto")
8575                                               "/share/fonts/truetype/")))
8576                (substitute* "UI/ClientUI.cpp"
8577                  (("\\(GetRootDataDir.*?Roboto-(Bold|Regular)\\.ttf\"\\)\\.string\\(\\)\\);"
8578                    all type)
8579                   (string-append "\"" roboto-dir "Roboto-" type ".ttf\");")))
8580                #t))))))
8581     (inputs
8582      `(("boost" ,boost)
8583        ("boost_signals" ,boost-signals2)
8584        ("font-dejavu" ,font-dejavu)
8585        ("font-roboto" ,font-google-roboto)
8586        ("freetype2" ,freetype)
8587        ("glew" ,glew)
8588        ("glu" ,glu)
8589        ("libogg" ,libogg)
8590        ("libpng" ,libpng)
8591        ("libvorbis" ,libvorbis)
8592        ("openal" ,openal)
8593        ("python2" ,python-2.7)
8594        ("sdl2" ,sdl2)
8595        ("zlib" ,zlib)))
8596     (home-page "https://www.freeorion.org/index.php/Main_Page")
8597     (synopsis "Turn-based space empire and galactic conquest computer game")
8598     (description
8599      "FreeOrion is a turn-based space empire and galactic conquest (4X)
8600 computer game being designed and built by the FreeOrion project.  Control an
8601 empire with the goal of exploring the galaxy, expanding your territory,
8602 exploiting the resources, and exterminating rival alien empires.  FreeOrion is
8603 inspired by the tradition of the Master of Orion games, but is not a clone or
8604 remake of that series or any other game.")
8605     ;; Source code is released under gpl2.  Artwork, music and sounds, and
8606     ;; in-game text are released under cc-by-sa3.0.  Game content scripts are
8607     ;; released under both gpl2 and cc-by-sa3.0.  Bundled Gigi library is
8608     ;; released under lgpl2.1+.
8609     (license (list license:gpl2 license:cc-by-sa3.0 license:lgpl2.1+))))
8610
8611 (define-public leela-zero
8612   (package
8613    (name "leela-zero")
8614    (version "0.17")
8615    (source
8616     (origin
8617      (method git-fetch)
8618      (uri (git-reference
8619            (url "https://github.com/leela-zero/leela-zero.git")
8620            (commit (string-append "v" version))))
8621      (file-name (git-file-name name version))
8622      (sha256
8623       (base32
8624        "17px5iny8mql5c01bymcli7zfssswkzvb2i8gnsmjcck6i2n8srl"))
8625      (patches (search-patches "leela-zero-gtest.patch"))))
8626    (build-system cmake-build-system)
8627    (native-inputs
8628     `(("googletest" ,googletest)))
8629    (inputs
8630     `(("boost" ,boost)
8631       ("ocl-icd" ,ocl-icd)
8632       ("openblas" ,openblas)
8633       ("opencl-headers" ,opencl-headers)
8634       ("qtbase" ,qtbase)
8635       ("zlib" ,zlib)))
8636    (arguments
8637     '(#:configure-flags '("-DUSE_BLAS=YES")
8638       #:phases (modify-phases %standard-phases
8639                  (add-before 'configure 'fix-tests
8640                    (lambda* (#:key outputs #:allow-other-keys)
8641                      (let ((home (getcwd)))
8642                        (setenv "HOME" home)
8643                        (substitute* "src/tests/gtests.cpp"
8644                          (("\\.\\./src/tests/0k\\.txt")
8645                           (string-append home "/src/tests/0k.txt"))
8646                          (("cfg_gtp_mode = true;")
8647                           "cfg_gtp_mode = true; cfg_cpu_only = true;")))
8648                      #t))
8649                  (replace 'check
8650                    (lambda _
8651                      (invoke "./tests"))))))
8652    (home-page "https://github.com/leela-zero/leela-zero")
8653    (synopsis "Program playing the game of Go")
8654    (description
8655     "Leela-zero is a Go engine with no human-provided knowledge, modeled after
8656 the AlphaGo Zero paper.  The current best network weights file for the engine
8657 can be downloaded from @url{https://zero.sjeng.org/best-network}.")
8658    (license license:gpl3+)))
8659
8660 (define-public q5go
8661   (package
8662    (name "q5go")
8663    (version "1.0")
8664    (source (origin
8665             (method git-fetch)
8666             (uri (git-reference
8667                   (url "https://github.com/bernds/q5Go.git")
8668                   (commit (string-append "q5go-" version))))
8669             (file-name (git-file-name name version))
8670             (sha256
8671              (base32
8672               "1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
8673    (build-system gnu-build-system)
8674    (native-inputs
8675     `(("pkg-config" ,pkg-config)))
8676    (inputs
8677     `(("qtbase" ,qtbase)
8678       ("qtmultimedia" ,qtmultimedia)
8679       ("qtsvg" ,qtsvg)))
8680    (arguments
8681     '(#:phases
8682       (modify-phases %standard-phases
8683         (add-after 'unpack 'fix-configure-script
8684           (lambda _
8685             ;; Bypass the unavailable qtchooser program.
8686             (substitute* "configure"
8687               (("test -z \"QTCHOOSER\"")
8688                "false")
8689               (("qtchooser -run-tool=(.*) -qt=qt5" _ command)
8690                command))
8691             #t))
8692         (add-after 'unpack 'fix-paths
8693           (lambda _
8694             (substitute* '("src/pics/Makefile.in"
8695                            "src/translations/Makefile.in")
8696               (("\\$\\(datadir\\)/qGo/")
8697                "$(datadir)/q5go/"))
8698             #t))
8699         (add-after 'install 'install-desktop-file
8700           (lambda* (#:key outputs #:allow-other-keys)
8701             (let* ((out (assoc-ref outputs "out"))
8702                    (apps (string-append out "/share/applications"))
8703                    (pics (string-append out "/share/q5go/pics")))
8704               (delete-file-recursively (string-append out "/share/applnk"))
8705               (delete-file-recursively (string-append out "/share/mimelnk"))
8706               (install-file "../source/src/pics/Bowl.ico" pics)
8707               (mkdir-p apps)
8708               (with-output-to-file (string-append apps "/q5go.desktop")
8709                 (lambda _
8710                   (format #t
8711                           "[Desktop Entry]~@
8712                            Name=q5go~@
8713                            Exec=~a/bin/q5go~@
8714                            Icon=~a/Bowl.ico~@
8715                            Categories=Game;~@
8716                            Comment=Game of Go~@
8717                            Comment[de]=Spiel des Go~@
8718                            Comment[eo]=Goo~@
8719                            Comment[es]=Juego de Go~@
8720                            Comment[fr]=Jeu de Go~@
8721                            Comment[ja]=囲碁~@
8722                            Comment[ko]=바둑~@
8723                            Comment[zh]=围棋~@
8724                            Terminal=false~@
8725                            Type=Application~%"
8726                           out pics))))
8727              #t)))))
8728    (synopsis "Qt GUI to play the game of Go")
8729    (description
8730     "This a tool for Go players which performs the following functions:
8731 @itemize
8732 @item SGF editor,
8733 @item Analysis frontend for Leela Zero (or compatible engines),
8734 @item GTP interface (to play against an engine),
8735 @item IGS client (to play on the internet),
8736 @item Export games to a variety of formats.
8737 @end itemize")
8738    (home-page "https://github.com/bernds/q5Go")
8739    (license license:gpl2+)))
8740
8741 (define-public ktuberling
8742   (package
8743     (name "ktuberling")
8744     (version "19.08.3")
8745     (source
8746      (origin
8747       (method url-fetch)
8748       (uri (string-append "mirror://kde/stable/applications/" version
8749                           "/src/ktuberling-" version ".tar.xz"))
8750       (sha256
8751        (base32 "1qdf4q6wjh1lnlqw5c8z4rpj9w5vbyjfri1dah6yjm3mwppbc12j"))))
8752     (build-system qt-build-system)
8753     (native-inputs
8754      `(("extra-cmake-modules" ,extra-cmake-modules)
8755        ("perl" ,perl)))
8756     (inputs
8757      `(("kcompletion" ,kcompletion)
8758        ("kconfigwidgets" ,kconfigwidgets)
8759        ("kcoreaddons" ,kcoreaddons)
8760        ("kcrash" ,kcrash)
8761        ("kdbusaddons" ,kdbusaddons)
8762        ("kdelibs4support" ,kdelibs4support)
8763        ("ki18n" ,ki18n)
8764        ("kwidgetsaddons" ,kwidgetsaddons)
8765        ("kxmlgui" ,kxmlgui)
8766        ("libkdegames" ,libkdegames)
8767        ("qtbase" ,qtbase)
8768        ("qtmultimedia" ,qtmultimedia)
8769        ("qtdeclarative" ,qtdeclarative)
8770        ("qtsvg" ,qtsvg)))
8771     (home-page "https://games.kde.org/")
8772     (synopsis "Stamp drawing toy")
8773     (description "KTuberling is a drawing toy intended for small children and
8774 adults who remain young at heart.  The game has no winner; the only purpose is
8775 to make the funniest faces you can.  Several activites are possible, e.g.:
8776
8777 @itemize
8778 @item Give the potato a funny face, clothes, and other goodies
8779 @item Build a small town, complete with school, zoo, and fire department
8780 @item Create a fantastic moonscape with spaceships and aliens
8781 @item Top a pizza
8782 @end itemize
8783
8784 KTuberling can speak the name of each the object in several languages,
8785 to assist in learning basic vocabulary.
8786
8787 This package is part of the KDE games module.")
8788     (license (list license:gpl2+ license:fdl1.2+))))
8789
8790 (define-public picmi
8791   (package
8792     (name "picmi")
8793     (version "19.08.3")
8794     (source
8795      (origin
8796       (method url-fetch)
8797       (uri (string-append "mirror://kde/stable/applications/" version
8798                           "/src/picmi-" version ".tar.xz"))
8799       (sha256
8800        (base32 "0z9mpmv49w914gqdx274brdzl6d1bz9j9nkvbwgmr3iq1ba49m3f"))))
8801     (build-system qt-build-system)
8802     (native-inputs
8803      `(("extra-cmake-modules" ,extra-cmake-modules)
8804        ("kdoctools" ,kdoctools)))
8805     (inputs
8806      `(("kcoreaddons" ,kcoreaddons)
8807        ("kcrash" ,kcrash)
8808        ("kdbusaddons" ,kdbusaddons)
8809        ("kdeclarative" ,kdeclarative)
8810        ("ki18n" ,ki18n)
8811        ("kio" ,kio)
8812        ("knewstuff" ,knewstuff)
8813        ("kxmlgui" ,kxmlgui)
8814        ("libkdegames" ,libkdegames)
8815        ("qtbase" ,qtbase)
8816        ("qtdeclarative" ,qtdeclarative)
8817        ("qtsvg" ,qtsvg)))
8818     (home-page "https://games.kde.org/")
8819     (synopsis "Number logic game")
8820     (description "Picmi is a number logic game in which cells in a grid have
8821 to be colored or left blank according to numbers given at the side of the
8822 grid.  The aim is to reveal a hidden picture.
8823
8824 This package is part of the KDE games module.")
8825     (license (list license:gpl2+ license:fdl1.2+))))
8826
8827 (define-public kolf
8828   (package
8829     (name "kolf")
8830     (version "19.08.3")
8831     (source
8832      (origin
8833        (method url-fetch)
8834        (uri (string-append "mirror://kde/stable/applications/" version
8835                            "/src/kolf-" version ".tar.xz"))
8836        (sha256
8837         (base32 "06sfd0llr5cc3zf1vrpcxgw9bm009ky7y8822kynic9ipcd4z1hw"))))
8838     (build-system qt-build-system)
8839     (native-inputs
8840      `(("extra-cmake-modules" ,extra-cmake-modules)
8841        ("kdoctools" ,kdoctools)))
8842     (inputs
8843      `(("kcompletion" ,kcompletion)
8844        ("kconfigwidgets" ,kconfigwidgets)
8845        ("kcoreaddons" ,kcoreaddons)
8846        ("kcrash" ,kcrash)
8847        ("kdbusaddons" ,kdbusaddons)
8848        ("ki18n" ,ki18n)
8849        ("kio" ,kio)
8850        ("kwidgetsaddons" ,kwidgetsaddons)
8851        ("kxmlgui" ,kxmlgui)
8852        ("ktextwidgets" ,ktextwidgets)
8853        ("libkdegames" ,libkdegames)
8854        ("qtbase" ,qtbase)
8855        ("qtdeclarative" ,qtdeclarative)))
8856     (home-page "https://games.kde.org/")
8857     (synopsis "Miniature golf game")
8858     (description "Kolf is a miniature golf game for one to ten players.  The
8859 game is played from an overhead view, with a short bar representing the golf
8860 club.  Kolf features many different types of objects, such as water hazards,
8861 slopes, sand traps, and black holes (warps), among others.
8862
8863 Features are:
8864 @itemize
8865 @item Single and Multi-player (up to ten players) modes
8866 @item High scores table
8867 @item Dynamic courses
8868 @item Third-party courses
8869 @item Course editor
8870 @end itemize
8871
8872 This package is part of the KDE games module.")
8873     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8874
8875 (define-public libkmahjongg
8876   (package
8877     (name "libkmahjongg")
8878     (version "19.08.3")
8879     (source
8880      (origin
8881       (method url-fetch)
8882       (uri (string-append "mirror://kde/stable/applications/"
8883                           version "/src/libkmahjongg-" version ".tar.xz"))
8884       (sha256
8885        (base32 "0rdimk11hrc8qrmiv26z0ddjzi1k6806c0rfskx4cwmildmh6zgx"))))
8886     (build-system qt-build-system)
8887     (native-inputs
8888      `(("extra-cmake-modules" ,extra-cmake-modules)))
8889     (inputs
8890      `(("kauth" ,kauth)
8891        ("kcompletion" ,kcompletion)
8892        ;("kconfig" ,kconfig)
8893        ("kcodecs" ,kcodecs)
8894        ("kconfigwidgets" ,kconfigwidgets)
8895        ("kcoreaddons" ,kcoreaddons)
8896        ("ki18n" ,ki18n)
8897        ("kwidgetsaddons" ,kwidgetsaddons)
8898        ("qtbase" ,qtbase)
8899        ("qtsvg" ,qtsvg)))
8900     (home-page "https://games.kde.org/")
8901     (synopsis "Shared library for kmahjongg and kshisen")
8902     (description "Shared library and common files for kmahjongg, kshisen and
8903 other Mah Jongg like games.")
8904     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8905
8906 (define-public kmahjongg
8907   (package
8908     (name "kmahjongg")
8909     (version "19.08.3")
8910     (source
8911      (origin
8912       (method url-fetch)
8913       (uri (string-append "mirror://kde/stable/applications/"
8914                           version "/src/kmahjongg-" version ".tar.xz"))
8915       (sha256
8916        (base32 "08na845h0nhmfrszdmvfq5y1dy7kgbrlzjp0f5snvbbf7w44ci6p"))))
8917     (build-system qt-build-system)
8918     (native-inputs
8919      `(("extra-cmake-modules" ,extra-cmake-modules)
8920        ("kdoctools" ,kdoctools)))
8921     (inputs
8922      `(("kcompletion" ,kcompletion)
8923        ("kcrash" ,kcrash)
8924        ("kdbusaddons" ,kdbusaddons)
8925        ("kdeclarative" ,kdeclarative)
8926        ("ki18n" ,ki18n)
8927        ("knewstuff" ,knewstuff)
8928        ("kxmlgui" ,kxmlgui)
8929        ("libkdegames" ,libkdegames)
8930        ("libkmahjongg" ,libkmahjongg)
8931        ("qtbase" ,qtbase)
8932        ("qtdeclarative" ,qtdeclarative)
8933        ("qtsvg" ,qtsvg)))
8934     (home-page "https://games.kde.org/")
8935     (synopsis "Tile laying patience")
8936     (description "In KMahjongg the tiles are scrambled and staked on top of
8937 each other to resemble a certain shape.  The player is then expected to remove
8938 all the tiles off the game board by locating each tile's matching pair.
8939
8940 A variety of tile layouts are included, as well as an editor to create new
8941 layouts.
8942
8943 This package is part of the KDE games module.")
8944     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8945
8946 (define-public kshisen
8947   (package
8948     (name "kshisen")
8949     (version "19.08.3")
8950     (source
8951      (origin
8952       (method url-fetch)
8953       (uri (string-append "mirror://kde/stable/applications/"
8954                           version "/src/kshisen-" version ".tar.xz"))
8955       (sha256
8956        (base32 "1bq5m48af4h5apfp3bfsp76nlpv6h5sc0gd544zv7cgpfznz1sds"))))
8957     (build-system qt-build-system)
8958     (native-inputs
8959      `(("extra-cmake-modules" ,extra-cmake-modules)
8960        ;("perl" ,perl)
8961        ;("pkg-config" ,pkg-config)
8962        ("kdoctools" ,kdoctools)))
8963     (inputs
8964      `(("kauth" ,kauth)
8965        ("kcompletion" ,kcompletion)
8966        ("kconfigwidgets" ,kconfigwidgets)
8967        ("kcoreaddons" ,kcoreaddons)
8968        ("kcrash" ,kcrash)
8969        ("kdbusaddons" ,kdbusaddons)
8970        ("ki18n" ,ki18n)
8971        ("kxmlgui" ,kxmlgui)
8972        ("libkdegames" ,libkdegames)
8973        ("libkmahjongg" ,libkmahjongg)
8974        ("qtbase" ,qtbase)
8975        ("qtdeclarative" ,qtdeclarative)))
8976     (home-page "https://games.kde.org/")
8977     (synopsis "Shisen-Sho solitaire game")
8978     (description "KShisen is a solitaire-like game played using the standard
8979 set of Mahjong tiles.  Unlike Mahjong however, KShisen has only one layer of
8980 scrambled tiles
8981
8982 This package is part of the KDE games module.")
8983     (license license:gpl2+)))
8984
8985 (define-public kajongg
8986   (package
8987     (name "kajongg")
8988     (version "19.08.3")
8989     (source
8990      (origin
8991       (method url-fetch)
8992       (uri (string-append "mirror://kde/stable/applications/"
8993                           version "/src/kajongg-" version ".tar.xz"))
8994       (sha256
8995        (base32 "0ql6p5zifdpdf65r7ki9ml123azpwwk9x3x8r9ij6xhjnf7p7x6w"))))
8996     (build-system qt-build-system)
8997     (native-inputs
8998      `(("extra-cmake-modules" ,extra-cmake-modules)
8999        ;("perl" ,perl)
9000        ("kdoctools" ,kdoctools)))
9001     (inputs
9002      `(("kconfig" ,kconfig)
9003        ("kconfigwidgets" ,kconfigwidgets)
9004        ("kcoreaddons" ,kcoreaddons)
9005        ("ki18n" ,ki18n)
9006        ("libkmahjongg" ,libkmahjongg)
9007        ("python" ,python)
9008        ("qtbase" ,qtbase)
9009        ("qtsvg" ,qtsvg)))
9010     (propagated-inputs
9011      `(("python-twisted" ,python-twisted)
9012        ("python-pyqt" ,python-pyqt)))
9013     ;; FIXME: Need to wrap PYTHONPATH
9014     (home-page "https://games.kde.org/")
9015     (synopsis "Classical Mah Jongg game for 4 players")
9016     (description "Kajongg is the ancient Chinese board game for 4 players.
9017
9018 If you are looking for the Mah Jongg solitaire please use the application
9019 kmahjongg.
9020
9021 Kajongg can be used in two different ways: Scoring a manual game where you
9022 play as always and use Kajongg for the computation of scores and for
9023 bookkeeping.  Or you can use Kajongg to play against any combination of other
9024 human players or computer players.
9025
9026 This package is part of the KDE games module.")
9027     (license (list license:gpl2+ license:fdl1.2+))))
9028
9029 (define-public kbreakout
9030   (package
9031     (name "kbreakout")
9032     (version "19.08.3")
9033     (source
9034      (origin
9035       (method url-fetch)
9036       (uri (string-append "mirror://kde/stable/applications/" version
9037                           "/src/kbreakout-" version ".tar.xz"))
9038       (sha256
9039        (base32 "0gwzx1z9mxrjlcjzglg8cxkyd6900whcar3b5j9laxxarc6xhj8w"))))
9040     (build-system qt-build-system)
9041     (native-inputs
9042      `(("extra-cmake-modules" ,extra-cmake-modules)
9043        ("kdoctools" ,kdoctools)))
9044     (inputs
9045      `(("kcompletion" ,kcompletion)
9046        ("kconfig" ,kconfig)
9047        ("kconfigwidgets" ,kconfigwidgets)
9048        ("kcoreaddons" ,kcoreaddons)
9049        ("kcrash" ,kcrash)
9050        ("kdbusaddons" ,kdbusaddons)
9051        ("ki18n" ,ki18n)
9052        ("kwidgetsaddons" ,kwidgetsaddons)
9053        ("kxmlgui" ,kxmlgui)
9054        ("libkdegames" ,libkdegames)
9055        ("qtbase" ,qtbase)
9056        ("qtdeclarative" ,qtdeclarative)))
9057     (home-page "https://games.kde.org/")
9058     (synopsis "Breakout like game")
9059     (description "KBreakout is similar to the classics breakout and xboing,
9060 featuring a number of added graphical enhancements and effects.  You control a
9061 paddle at the bottom of the playing-field, and must destroy bricks at the top
9062 by bouncing balls against them.
9063
9064 This package is part of the KDE games module.")
9065     (license (list license:gpl2+ license:fdl1.2+))))
9066
9067 (define-public kmines
9068   (package
9069     (name "kmines")
9070     (version "19.08.3")
9071     (source
9072      (origin
9073       (method url-fetch)
9074       (uri (string-append "mirror://kde/stable/applications/" version
9075                           "/src/kmines-" version ".tar.xz"))
9076       (sha256
9077        (base32 "0ac3za36lh8hpx6mqfic9amwmzhzhzplm9hg3pw12gxl5a9mvfsf"))))
9078     (build-system qt-build-system)
9079     (native-inputs
9080      `(("extra-cmake-modules" ,extra-cmake-modules)
9081        ("kdoctools" ,kdoctools)))
9082     (inputs
9083      `(("kcompletion" ,kcompletion)
9084        ("kconfig" ,kconfig)
9085        ("kconfigwidgets" ,kconfigwidgets)
9086        ("kcoreaddons" ,kcoreaddons)
9087        ("kcrash" ,kcrash)
9088        ("kdbusaddons" ,kdbusaddons)
9089        ("ki18n" ,ki18n)
9090        ("ktextwidgets" ,ktextwidgets)
9091        ("kwidgetsaddons" ,kwidgetsaddons)
9092        ("kxmlgui" ,kxmlgui)
9093        ("libkdegames" ,libkdegames)
9094        ("qtbase" ,qtbase)
9095        ("qtdeclarative" ,qtdeclarative)))
9096     (home-page "https://games.kde.org/")
9097     (synopsis "Classical mine sweeper game")
9098     (description "KMines is a classic Minesweeper game.  The idea is to
9099 uncover all the squares without blowing up any mines.  When a mine is blown
9100 up, the game is over.
9101
9102 This package is part of the KDE games module.")
9103     (license (list license:gpl2+ license:fdl1.2+))))
9104
9105 (define-public konquest
9106   (package
9107     (name "konquest")
9108     (version "19.08.3")
9109     (source
9110      (origin
9111       (method url-fetch)
9112       (uri (string-append "mirror://kde/stable/applications/"
9113                           version "/src/konquest-" version ".tar.xz"))
9114       (sha256
9115        (base32 "02gjxskhi10a1sqh3skcild8zria7wncz1a4sbz7ax1p851q76k1"))))
9116     (build-system qt-build-system)
9117     (native-inputs
9118      `(("extra-cmake-modules" ,extra-cmake-modules)
9119        ("kdoctools" ,kdoctools)))
9120     (inputs
9121      `(("kcompletion" ,kcompletion)
9122        ("kconfig" ,kconfig)
9123        ("kcoreaddons" ,kcoreaddons)
9124        ("kcrash" ,kcrash)
9125        ("kdbusaddons" ,kdbusaddons)
9126        ("kguiaddons" ,kguiaddons)
9127        ("ki18n" ,ki18n)
9128        ("kwidgetsaddons" ,kwidgetsaddons)
9129        ("kxmlgui" ,kxmlgui)
9130        ("libkdegames" ,libkdegames)
9131        ("qtbase" ,qtbase)
9132        ("qtdeclarative" ,qtdeclarative)
9133        ("qtsvg" ,qtsvg)))
9134     (home-page "https://games.kde.org/")
9135     (synopsis "Simple turn-based strategy game")
9136     (description "Konquest is the KDE version of Gnu-Lactic Konquest.  Players
9137 conquer other planets by sending ships to them.  The goal is to build an
9138 interstellar empire and ultimately conquer all other player's planets.  The
9139 game can be played with up to nine empires, commanded either by the computer
9140 or by puny earthlings.
9141
9142 This package is part of the KDE games module.")
9143     (license (list license:gpl2+ license:fdl1.2+))))
9144
9145 (define-public kbounce
9146   (package
9147     (name "kbounce")
9148     (version "19.08.3")
9149     (source
9150      (origin
9151       (method url-fetch)
9152       (uri (string-append "mirror://kde/stable/applications/"
9153                           version "/src/kbounce-" version ".tar.xz"))
9154       (sha256
9155        (base32 "02rfv0qzz5cmyfx8f56a45hbm9gsp6m3dcy8ajwx88rw5wpbrr11"))))
9156     (build-system qt-build-system)
9157     (native-inputs
9158      `(("extra-cmake-modules" ,extra-cmake-modules)
9159        ("kdoctools" ,kdoctools)))
9160     (inputs
9161      `(("kcompletion" ,kcompletion)
9162        ("kconfigwidgets" ,kconfigwidgets)
9163        ("kcoreaddons" ,kcoreaddons)
9164        ("kcrash" ,kcrash)
9165        ("kdbusaddons" ,kdbusaddons)
9166        ("ki18n" ,ki18n)
9167        ("kio" ,kio)
9168        ("kwidgetsaddons" ,kwidgetsaddons)
9169        ("kxmlgui" ,kxmlgui)
9170        ("libkdegames" ,libkdegames)
9171        ("qtbase" ,qtbase)
9172        ("qtdeclarative" ,qtdeclarative)
9173        ("qtsvg" ,qtsvg)))
9174     (home-page "https://games.kde.org/")
9175     (synopsis "Jezzball arcade game")
9176     (description "KBounce is a single player arcade game with the elements of
9177 puzzle.  It is played on a field, surrounded by wall, with two or more balls
9178 bouncing around within the walls.  The object of the game is to build new
9179 walls to decrease the size of the active field.
9180
9181 This package is part of the KDE games module.")
9182     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9183
9184 (define-public kblocks
9185   (package
9186     (name "kblocks")
9187     (version "19.08.3")
9188     (source
9189      (origin
9190       (method url-fetch)
9191       (uri (string-append "mirror://kde/stable/applications/"
9192                           version "/src/kblocks-" version ".tar.xz"))
9193       (sha256
9194        (base32 "0qrm0dihzhkxsq9l49ndzms802x6jn92vvabb2zf2q9z593m69cx"))))
9195     (build-system qt-build-system)
9196     (native-inputs
9197      `(("extra-cmake-modules" ,extra-cmake-modules)
9198        ("kdoctools" ,kdoctools)))
9199     (inputs
9200      `(("kcompletion" ,kcompletion)
9201        ("kconfig" ,kconfig)
9202        ("kconfigwidgets" ,kconfigwidgets)
9203        ("kcoreaddons" ,kcoreaddons)
9204        ("kcrash" ,kcrash)
9205        ("kdbusaddons" ,kdbusaddons)
9206        ("ki18n" ,ki18n)
9207        ("kwidgetsaddons" ,kwidgetsaddons)
9208        ("kxmlgui" ,kxmlgui)
9209        ("libkdegames" ,libkdegames)
9210        ("qtbase" ,qtbase)
9211        ("qtdeclarative" ,qtdeclarative)
9212        ("qtsvg" ,qtsvg)))
9213     (home-page "https://games.kde.org/")
9214     (synopsis "Single player falling blocks puzzle game")
9215     (description "KBlocks is the classic Tetris-like falling blocks game.
9216
9217 The idea is to stack the falling blocks to create horizontal lines without any
9218 gaps.  When a line is completed it is removed, and more space is available in
9219 the play area.  When there is not enough space for blocks to fall, the game is
9220 over.
9221
9222 This package is part of the KDE games module.")
9223     (license (list license:gpl2+ license:fdl1.2+))))
9224
9225 (define-public ksudoku
9226   (package
9227     (name "ksudoku")
9228     (version "19.08.3")
9229     (source
9230      (origin
9231       (method url-fetch)
9232       (uri (string-append "mirror://kde/stable/applications/"
9233                           version "/src/ksudoku-" version ".tar.xz"))
9234       (sha256
9235        (base32 "0rcscz91hilm7l3am5w02n0n8l7xhi4l0n4sskznh68kblw0ggw2"))))
9236     (build-system qt-build-system)
9237     (native-inputs
9238      `(("extra-cmake-modules" ,extra-cmake-modules)
9239        ("kdoctools" ,kdoctools)))
9240     (inputs
9241      `(("karchive", karchive)
9242        ("kconfig" ,kconfig)
9243        ("kconfigwidgets" ,kconfigwidgets)
9244        ("kcoreaddons" ,kcoreaddons)
9245        ("kcrash" ,kcrash)
9246        ("kguiaddons" ,kguiaddons)
9247        ("ki18n" ,ki18n)
9248        ("kiconthemes" ,kiconthemes)
9249        ("kio" ,kio)
9250        ("kwidgetsaddons" ,kwidgetsaddons)
9251        ("kxmlgui" ,kxmlgui)
9252        ("libkdegames" ,libkdegames)
9253        ("glu" ,glu)
9254        ("qtbase" ,qtbase)
9255        ("qtdeclarative" ,qtdeclarative)
9256        ("qtsvg" ,qtsvg)))
9257     (home-page "https://games.kde.org/")
9258     (synopsis "Sudoku puzzle game and solver")
9259     (description "KSudoku is a Sudoku game and solver, supporting a range of
9260 2D and 3D Sudoku variants.  In addition to playing Sudoku, it can print Sudoku
9261 puzzle sheets and find the solution to any Sudoku puzzle.
9262
9263 The word Sudoku means \"single number in an allotted place\" in Japanese.
9264 These are the basic rules: Every Sudoku is a square divided into 3x3
9265 subsquares with 3x3 cells each.
9266
9267 Some cells are filled with a number at the beginning.  The remaining ones are
9268 to be filled by the player using numbers from 1 to 9, without repeating a
9269 number twice on each column, row or subsquare (each of them must contain only
9270 one 1, one 2, one 3, and so on).  The game requires logic and patience.
9271 Solving takes usually 10 to 30 minutes, depending on puzzle level, your skill
9272 and experience.
9273
9274 The numerals in Sudoku puzzles are used for convenience (for example in 16x16
9275 board we use letters): arithmetic relationships between numbers are
9276 irrelevant.
9277
9278 This program supports also 16x16 games with numbers from 1 to 16 and 256
9279 cells with 16 cols, rows and subsquares!
9280
9281 More information at http://en.wikipedia.org/wiki/Sudoku
9282
9283 This package is part of the KDE games module.")
9284     (license (list license:gpl2+ license:fdl1.2+))))
9285
9286 (define-public klines
9287   (package
9288     (name "klines")
9289     (version "19.08.3")
9290     (source
9291      (origin
9292       (method url-fetch)
9293       (uri (string-append "mirror://kde/stable/applications/" version
9294                           "/src/klines-" version ".tar.xz"))
9295       (sha256
9296        (base32 "1g1f46jp0rb8gpqkgcf915ydpsscn1sxk3gjvm8bcqgx9ddq59xa"))))
9297     (build-system qt-build-system)
9298     (native-inputs
9299      `(("extra-cmake-modules" ,extra-cmake-modules)
9300        ("kdoctools" ,kdoctools)))
9301     (inputs
9302      `(("kcompletion" ,kcompletion)
9303        ("kconfigwidgets" ,kconfigwidgets)
9304        ("kcoreaddons" ,kcoreaddons)
9305        ("kcrash" ,kcrash)
9306        ("kdbusaddons" ,kdbusaddons)
9307        ("ki18n" ,ki18n)
9308        ("kwidgetsaddons" ,kwidgetsaddons)
9309        ("kxmlgui" ,kxmlgui)
9310        ("libkdegames" ,libkdegames)
9311        ("qtbase" ,qtbase)
9312        ("qtdeclarative" ,qtdeclarative)))
9313     (home-page "https://games.kde.org/")
9314     (synopsis "Place 5 equal pieces together, but wait, there are 3 new ones")
9315     (description "KLines is a simple but highly addictive one player game.
9316
9317 The player has to move the colored balls around the game board, gathering them
9318 into the lines of the same color by five.  Once the line is complete it is
9319 removed from the board, therefore freeing precious space.  In the same time
9320 the new balls keep arriving by three after each move, filling up the game
9321 board.
9322
9323 KLines is a single-player game where the player removes colored balls from the
9324 board by arranging them into lines of five or more.  However, every time the
9325 player moves a ball, three more balls are added to the board.
9326
9327 This package is part of the KDE games module.")
9328     (license (list license:gpl2+ license:fdl1.2+))))
9329
9330 (define-public kgoldrunner
9331   (package
9332     (name "kgoldrunner")
9333     (version "19.08.3")
9334     (source
9335      (origin
9336       (method url-fetch)
9337       (uri (string-append "mirror://kde/stable/applications/" version "/src/kgoldrunner-"
9338                            version ".tar.xz"))
9339       (sha256
9340        (base32 "16rcvq796r3asz4v4ap75xvwnxd3dd2nsq5r9vxvzl6rrf1w9bj4"))))
9341     (build-system qt-build-system)
9342     (native-inputs
9343      `(("extra-cmake-modules" ,extra-cmake-modules)
9344        ("kdoctools" ,kdoctools)))
9345     (inputs
9346      `(("kcompletion" ,kcompletion)
9347        ("kcoreaddons" ,kcoreaddons)
9348        ("kcrash" ,kcrash)
9349        ("kdbusaddons" ,kdbusaddons)
9350        ("ki18n" ,ki18n)
9351        ("kio" ,kio)
9352        ("kwidgetsaddons" ,kwidgetsaddons)
9353        ("kxmlgui" ,kxmlgui)
9354        ("libkdegames" ,libkdegames)
9355        ("qtbase" ,qtbase)
9356        ("qtdeclarative" ,qtdeclarative)))
9357     (home-page "https://games.kde.org/")
9358     (synopsis "Action and puzzle solving game")
9359     (description "KGoldrunner is an action game where the hero runs through a
9360 maze, climbs stairs, dig holes and dodges enemies in order to collect all the
9361 gold nuggets and escape to the next level.  Your enemies are also after the
9362 gold.  Worse still, they are after you!.
9363
9364 KGoldrunner is a fast-paced platform game where the player must navigate a
9365 maze while collecting gold nuggets and avoiding enemies.  A variety of level
9366 packs are included, as well as an editor to create new levels.
9367
9368 This package is part of the KDE games module.")
9369     (license (list license:gpl2+ license:fdl1.2+))))
9370
9371 (define-public kdiamond
9372   (package
9373     (name "kdiamond")
9374     (version "19.08.3")
9375     (source
9376      (origin
9377       (method url-fetch)
9378       (uri (string-append "mirror://kde/stable/applications/" version
9379                           "/src/kdiamond-" version ".tar.xz"))
9380       (sha256
9381        (base32 "1v5yb9hb26lk277zhw8d37ks829yfqr5anzx1qhms44gca5kqhva"))))
9382     (build-system qt-build-system)
9383     (native-inputs
9384      `(("extra-cmake-modules" ,extra-cmake-modules)
9385        ("kdoctools" ,kdoctools)))
9386     (inputs
9387      `(("kcompletion", kcompletion)
9388        ("kconfig" ,kconfig)
9389        ("kconfigwidgets" ,kconfigwidgets)
9390        ("kcoreaddons" ,kcoreaddons)
9391        ("kcrash" ,kcrash)
9392        ("kdbusaddons" ,kdbusaddons)
9393        ("ki18n" ,ki18n)
9394        ("knotifications" ,knotifications)
9395        ("knotifyconfig" ,knotifyconfig)
9396        ("kwidgetsaddons" ,kwidgetsaddons)
9397        ("kxmlgui" ,kxmlgui)
9398        ("libkdegames" ,libkdegames)
9399        ("qtbase" ,qtbase)
9400        ("qtdeclarative" ,qtdeclarative)))
9401     (home-page "https://games.kde.org/")
9402     (synopsis "Three-in-a-row game")
9403     (description "KDiamond is a three-in-a-row game like Bejeweled.  It
9404 features unlimited fun with randomly generated games and five difficulty
9405 levels with varying number of diamond colors and board sizes.
9406
9407 This package is part of the KDE games module.")
9408     (license (list license:gpl2+ license:fdl1.2+))))
9409
9410 (define-public kfourinline
9411   (package
9412     (name "kfourinline")
9413     (version "19.08.3")
9414     (source
9415      (origin
9416       (method url-fetch)
9417       (uri (string-append "mirror://kde/stable/applications/" version
9418                           "/src/kfourinline-" version ".tar.xz"))
9419       (sha256
9420        (base32 "1vprs6dc1ccn3g6k594i9s94xy4b91vzlqjysyc6fqcq2fs54ny3"))))
9421     (build-system qt-build-system)
9422     (native-inputs
9423      `(("extra-cmake-modules" ,extra-cmake-modules)
9424        ("kdoctools" ,kdoctools)))
9425     (inputs
9426      `(("kcompletion" ,kcompletion)
9427        ("kconfig" ,kconfig)
9428        ("kconfigwidgets" ,kconfigwidgets)
9429        ("kcoreaddons" ,kcoreaddons)
9430        ("kcrash" ,kcrash)
9431        ("kdelibs4support" ,kdelibs4support)
9432        ("kdnssd" ,kdnssd)
9433        ("ki18n" ,ki18n)
9434        ("kxmlgui" ,kxmlgui)
9435        ("libkdegames" ,libkdegames)
9436        ("qtbase" ,qtbase)
9437        ("qtdeclarative" ,qtdeclarative)
9438        ("qtsvg" ,qtsvg)))
9439     (home-page "https://games.kde.org/")
9440     (synopsis "Place 4 pieces in a row")
9441     (description "KFourInLine is a board game for two players based on the
9442 Connect-Four game.
9443
9444 KFourInLine is a game where two players take turns dropping pieces into a
9445 grid, the winner being the first to place four pieces in a line.
9446
9447 This package is part of the KDE games module.")
9448     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9449
9450 (define-public kblackbox
9451   (package
9452     (name "kblackbox")
9453     (version "19.08.3")
9454     (source
9455      (origin
9456       (method url-fetch)
9457       (uri (string-append "mirror://kde/stable/applications/" version
9458                           "/src/kblackbox-" version ".tar.xz"))
9459       (sha256
9460        (base32 "1x42sfpf75c6mavwkc7g7dm11y9s5dpj8igphly5kvm0pajqby0n"))))
9461     (build-system qt-build-system)
9462     (native-inputs
9463      `(("extra-cmake-modules" ,extra-cmake-modules)
9464        ("kdoctools" ,kdoctools)))
9465     (inputs
9466      `(("karchive" ,karchive)
9467        ("kcompletion" ,kcompletion)
9468        ("kconfig" ,kconfig)
9469        ("kcoreaddons" ,kcoreaddons)
9470        ("kcrash" ,kcrash)
9471        ("kdbusaddons" ,kdbusaddons)
9472        ("ki18n" ,ki18n)
9473        ("ktextwidgets" ,ktextwidgets)
9474        ("kxmlgui" ,kxmlgui)
9475        ("libkdegames" ,libkdegames)
9476        ("qtbase" ,qtbase)
9477        ("qtdeclarative" ,qtdeclarative)
9478        ("qtsvg" ,qtsvg)))
9479     (home-page "https://games.kde.org/")
9480     (synopsis "Find atoms in a grid by shooting electrons")
9481     (description "KBlackbox is a game of hide and seek played on a grid of
9482 boxes where the computer has hidden several balls.  The position of the hidden
9483 balls can be deduced by shooting beams into the box
9484
9485 KBlackBox is a game of hide and seek played on an grid of boxes, where the
9486 player shoots rays into the grid to deduce the positions of hidden objects.
9487
9488 This package is part of the KDE games module.")
9489     (license (list license:gpl2+ license:fdl1.2+))))
9490
9491 (define-public knetwalk
9492   (package
9493     (name "knetwalk")
9494     (version "19.08.3")
9495     (source
9496      (origin
9497       (method url-fetch)
9498       (uri (string-append "mirror://kde/stable/applications/" version
9499                           "/src/knetwalk-" version ".tar.xz"))
9500       (sha256
9501        (base32 "1i340salzgqdw8y33wrrydmpgx3pvwf5wrbljlh67cjf6s4csx7d"))))
9502     (build-system qt-build-system)
9503     (native-inputs
9504      `(("extra-cmake-modules" ,extra-cmake-modules)
9505        ("kdoctools" ,kdoctools)))
9506     (inputs
9507      `(("kcompletion" ,kcompletion)
9508        ("kconfig" ,kconfig)
9509        ("kconfigwidgets" ,kconfigwidgets)
9510        ("kcoreaddons" ,kcoreaddons)
9511        ("kcrash" ,kcrash)
9512        ("kdbusaddons" ,kdbusaddons)
9513        ("ki18n" ,ki18n)
9514        ("ktextwidgets" ,ktextwidgets)
9515        ("kwidgetsaddons" ,kwidgetsaddons)
9516        ("kxmlgui" ,kxmlgui)
9517        ("libkdegames" ,libkdegames)
9518        ("qtbase" ,qtbase)
9519        ("qtdeclarative" ,qtdeclarative)))
9520     (home-page "https://games.kde.org/")
9521     (synopsis "Turn the board pieces to get all computers connected")
9522     (description "KNetWalk is a small game where you have to build up a
9523 computer network by rotating the wires to connect the terminals to the server.
9524 When the network is build, a highscore-list comes up where competitions can be
9525 fought out.
9526
9527 KNetwalk is a puzzle game where the player arranges sections of wire to
9528 connect all the computers on the board.
9529
9530 This package is part of the KDE games module.")
9531     (license (list license:gpl2+ license:fdl1.2+))))
9532
9533 (define-public bomber
9534   (package
9535     (name "bomber")
9536     (version "19.08.3")
9537     (source
9538      (origin
9539        (method url-fetch)
9540        (uri (string-append "mirror://kde/stable/applications/" version
9541                            "/src/bomber-" version ".tar.xz"))
9542        (sha256
9543         (base32 "1lvzd0mzgq25akvwvkm57l3plm65k731v2i1ahakn985bb5gc3is"))))
9544     (build-system qt-build-system)
9545     (native-inputs
9546      `(("extra-cmake-modules" ,extra-cmake-modules)
9547        ("kdoctools" ,kdoctools)))
9548     (inputs
9549      `(("kcompletiom" ,kcompletion)
9550        ("kconfig" ,kconfig)
9551        ("kcoreaddons" ,kcoreaddons)
9552        ("kcrash" ,kcrash)
9553        ("kdbusaddons" ,kdbusaddons)
9554        ("ki18n" ,ki18n)
9555        ("kxmlgui" ,kxmlgui)
9556        ("libkdegames" ,libkdegames)
9557        ("qtbase" ,qtbase)
9558        ("qtdeclarative" ,qtdeclarative)))
9559     (home-page "https://games.kde.org/")
9560     (synopsis "Arcade bombing game")
9561     (description "Bomber is a single player arcade game.
9562
9563 The player is invading various cities in a plane that is decreasing in height.
9564 The goal of the game is to destroy all the buildings and advance to the next
9565 level.  Each level gets a bit harder by increasing the speed of the plane and
9566 the height of the buildings.
9567
9568 Bomber is a game where you fly a spaceship and attempt to bomb the buildings
9569 below you.  Each pass the spaceship makes, it gets lower and lower.  If you've
9570 not destroyed a building in your path, you will crash into it.
9571
9572 This package is part of the KDE games module.")
9573     (license (list license:gpl2+ license:fdl1.2+))))
9574
9575 (define-public granatier
9576   (package
9577     (name "granatier")
9578     (version "19.08.3")
9579     (source
9580      (origin
9581       (method url-fetch)
9582       (uri (string-append "mirror://kde/stable/applications/" version
9583                           "/src/granatier-" version ".tar.xz"))
9584       (sha256
9585        (base32 "141qmdinz7ikbbrs8dq6cap3nl22sl7pw62r80pf3xxwn2q4phpa"))))
9586     (build-system qt-build-system)
9587     (native-inputs
9588      `(("extra-cmake-modules" ,extra-cmake-modules)
9589        ("kdoctools" ,kdoctools)))
9590     (inputs
9591      `(("kcompletion" ,kcompletion)
9592        ("kconfig" ,kconfig)
9593        ("kconfigwidgets" ,kconfigwidgets)
9594        ("kcoreaddons" ,kcoreaddons)
9595        ("kcrash" ,kcrash)
9596        ("kdbusaddons" ,kdbusaddons)
9597        ("ki18n" ,ki18n)
9598        ("knewstuff" ,knewstuff)
9599        ("kwidgetsaddons" ,kwidgetsaddons)
9600        ("kxmlgui" ,kxmlgui)
9601        ("libkdegames" ,libkdegames)
9602        ("qtbase" ,qtbase)
9603        ("qtdeclarative" ,qtdeclarative)
9604        ("qtsvg" ,qtsvg)))
9605     (home-page "https://games.kde.org/")
9606     (synopsis "Bomberman clone")
9607     (description "Granatier is a clone of the classic Bomberman game,
9608 inspired by the work of the Clanbomber clone.
9609
9610 This package is part of the KDE games module.")
9611     (license (list license:gpl2+ license:fdl1.2+))))
9612
9613 (define-public ksirk
9614   (package
9615     (name "ksirk")
9616     (version "19.08.3")
9617     (source
9618      (origin
9619        (method url-fetch)
9620        (uri (string-append "mirror://kde/stable/applications/" version
9621                           "/src/ksirk-" version ".tar.xz"))
9622        (sha256
9623         (base32 "1b1wixs2hp5qnvdygfwa3kvy0kn94ysa4ifmx90q6r3yfr2lpfca"))))
9624     (build-system qt-build-system)
9625     (native-inputs
9626      `(("extra-cmake-modules" ,extra-cmake-modules)
9627        ("kdoctools" ,kdoctools)))
9628     (inputs
9629      `(("kcrash" ,kcrash)
9630        ("ki18n" ,ki18n)
9631        ("kiconthemes" ,kiconthemes)
9632        ("kio" ,kio)
9633        ("knewstuff" ,knewstuff)
9634        ("kwallet" ,kwallet)
9635        ("kxmlgui" ,kxmlgui)
9636        ("libkdegames" ,libkdegames)
9637        ("phonon" ,phonon)
9638        ("qca" ,qca)
9639        ("qtbase" ,qtbase)
9640        ("qtdeclarative" ,qtdeclarative)
9641        ("qtsvg" ,qtsvg)
9642        ("zlib" ,zlib)))
9643     (home-page "https://games.kde.org/")
9644     (synopsis "Computerized version of the well known strategy board game
9645 'Risk'")
9646     (description "KsirK is a multi-player network-enabled game.  The goal of
9647 the game is simply to conquer the world by attacking your neighbors with your
9648 armies.
9649
9650 At the beginning of the game, countries are distributed to all the players.
9651 Each country contains one army represented by an infantryman.  Each player has
9652 some armies to distribute to his countries.  On each turn, each player can
9653 attack his neighbours, eventually conquering one or more countries.  At the
9654 end of each turn, some bonus armies are distributed to the players in function
9655 of the number of countries they own.  The winner is the player that conquered
9656 all the world.
9657
9658 Features:
9659 @itemize
9660 @item Support for 1-6 human or computer players
9661 @item Multi-player gaming over a network
9662 @item You can easily create new skins with SVG graphics and the skin editor
9663 @item Hot New Stuff support.  You can easily download and install new skins
9664 @end itemize
9665
9666 This package is part of the KDE games module.")
9667     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9668
9669 (define-public palapeli
9670   (package
9671     (name "palapeli")
9672     (version "19.08.3")
9673     (source
9674      (origin
9675        (method url-fetch)
9676        (uri (string-append "mirror://kde/stable/applications/" version
9677                            "/src/palapeli-" version ".tar.xz"))
9678        (sha256
9679         (base32 "1g91ydbc0x2y2gn3lcb5w03mn7k78l5bq4cb1s59kx6yjbflv3pw"))))
9680     (build-system qt-build-system)
9681     (native-inputs
9682      `(("extra-cmake-modules" ,extra-cmake-modules)
9683        ("kdoctools" ,kdoctools)))
9684     (inputs
9685      `(("karchive" ,karchive)
9686        ("kcompletion" ,kcompletion)
9687        ("kconfig" ,kconfig)
9688        ("kconfigwidgets" ,kconfigwidgets)
9689        ("kcoreaddons" ,kcoreaddons)
9690        ("kcrash" ,kcrash)
9691        ("kcrash" ,kcrash)
9692        ("ki18n" ,ki18n)
9693        ("ki18n" ,ki18n)
9694        ("kio" ,kio)
9695        ("kitemviews" ,kitemviews)
9696        ("knotifications" ,knotifications)
9697        ("kservice" ,kservice)
9698        ("kwidgetsaddons" ,kwidgetsaddons)
9699        ("kxmlgui" ,kxmlgui)
9700        ("libkdegames" ,libkdegames)
9701        ("qtbase" ,qtbase)
9702        ("qtdeclarative" ,qtdeclarative)
9703        ("qtsvg" ,qtsvg)
9704        ("shared-mime-info" ,shared-mime-info)))
9705     (home-page "https://games.kde.org/")
9706     (synopsis "Jigsaw puzzle game")
9707     (description "Palapeli is a jigsaw puzzle game.  Unlike other games in
9708 that genre, you are not limited to aligning pieces on imaginary grids.  The
9709 pieces are freely moveable.  Also, Palapeli features real persistency, i.e.
9710 everything you do is saved on your disk immediately.
9711
9712 Palapeli is the Finnish word for jigsaw puzzle.
9713
9714 This package is part of the KDE games module.")
9715     (license license:gpl2+)))
9716
9717 (define-public kiriki
9718   (package
9719     (name "kiriki")
9720     (version "19.08.3")
9721     (source
9722      (origin
9723        (method url-fetch)
9724        (uri (string-append "mirror://kde/stable/applications/" version
9725                            "/src/kiriki-" version ".tar.xz"))
9726        (sha256
9727         (base32 "1xg25dj95g81dc5l7k47am4j52abrwwfx4h73lvsbn4lc8lfmshw"))))
9728     (build-system qt-build-system)
9729     (native-inputs
9730      `(("extra-cmake-modules" ,extra-cmake-modules)
9731        ("kdoctools" ,kdoctools)))
9732     (inputs
9733      `(("kcompletion" ,kcompletion)
9734        ("kconfig" ,kconfig)
9735        ("kconfigwidgets" ,kconfigwidgets)
9736        ("kcoreaddons" ,kcoreaddons)
9737        ("kcrash" ,kcrash)
9738        ("kdbusaddons" ,kdbusaddons)
9739        ("ki18n" ,ki18n)
9740        ("kiconthemes" ,kiconthemes)
9741        ("kxmlgui" ,kxmlgui)
9742        ("libkdegames" ,libkdegames)
9743        ("qtbase" ,qtbase)
9744        ("qtdeclarative" ,qtdeclarative)))
9745     (home-page "https://games.kde.org/")
9746     (synopsis "Yahtzee dice game")
9747     (description "Kiriki is an addictive and fun dice game, designed to be
9748 played by as many as six players.
9749
9750 Participants have to collect points by rolling five dice for up to three times
9751 per single turn to make combinations with the highest score.
9752
9753 This package is part of the KDE games module.")
9754     (license (list license:gpl2+ license:fdl1.2+))))
9755
9756 (define-public kigo
9757   (package
9758     (name "kigo")
9759     (version "19.08.3")
9760     (source
9761      (origin
9762        (method url-fetch)
9763        (uri (string-append "mirror://kde/stable/applications/" version
9764                            "/src/kigo-" version ".tar.xz"))
9765        (sha256
9766         (base32 "00l5gcbi8xyj9c1lngkrddka3a4m4cd78prfplrpq32ma9xq681f"))))
9767     (build-system qt-build-system)
9768     (native-inputs
9769      `(("extra-cmake-modules" ,extra-cmake-modules)
9770        ("kdoctools" ,kdoctools)))
9771     (inputs
9772      `(("kconfig" ,kconfig)
9773        ("kconfigwidgets" ,kconfigwidgets)
9774        ("kcoreaddons" ,kcoreaddons)
9775        ("kcrash" ,kcrash)
9776        ("kdbusaddons" ,kdbusaddons)
9777        ("ki18n" ,ki18n)
9778        ("kio" ,kio)
9779        ("knewstuff", knewstuff)
9780        ("ktextwidgets" ,ktextwidgets)
9781        ("kxmlgui" ,kxmlgui)
9782        ("libkdegames" ,libkdegames)
9783        ("qtbase" ,qtbase)
9784        ("qtdeclarative" ,qtdeclarative)
9785        ("qtsvg" ,qtsvg)))
9786     (home-page "https://games.kde.org/")
9787     (synopsis "Go board game")
9788     (description "Kigo is an open-source implementation of the popular Go
9789 game.
9790
9791 Go is a strategic board game for two players.  It is also known as
9792 igo (Japanese), weiqi or wei ch'i (Chinese) or baduk (Korean).  Go is noted
9793 for being rich in strategic complexity despite its simple rules.  The game is
9794 played by two players who alternately place black and white stones (playing
9795 pieces, now usually made of glass or plastic) on the vacant intersections of a
9796 grid of 19x19 lines (9x9 or 13x13 for easier games).
9797
9798 You also need to install a go engine, e.g. @code{gnugo}.
9799
9800 This package is part of the KDE games module.")
9801     (license license:gpl3+)))
9802
9803 (define-public kubrick
9804   (package
9805     (name "kubrick")
9806     (version "19.08.3")
9807     (source
9808      (origin
9809        (method url-fetch)
9810        (uri (string-append "mirror://kde/stable/applications/" version
9811                            "/src/kubrick-" version ".tar.xz"))
9812        (sha256
9813         (base32 "0ma8wja4rqlsmsr8cyicfpkwlgqva4450ls4c0ql53p0kabf04gx"))))
9814     (build-system qt-build-system)
9815     (native-inputs
9816      `(("extra-cmake-modules" ,extra-cmake-modules)
9817        ("kdoctools" ,kdoctools)))
9818     (inputs
9819      `(("glu" ,glu)
9820        ("kconfig" ,kconfig)
9821        ("kconfigwidgets" ,kconfigwidgets)
9822        ("kcoreaddons" ,kcoreaddons)
9823        ("kcrash" ,kcrash)
9824        ("ki18n" ,ki18n)
9825        ("kio" ,kio)
9826        ("kwidgetsaddons" ,kwidgetsaddons)
9827        ("kxmlgui" ,kxmlgui)
9828        ("libkdegames" ,libkdegames)
9829        ("qtbase" ,qtbase)
9830        ("qtdeclarative" ,qtdeclarative)
9831        ("qtsvg" ,qtsvg)))
9832     (home-page "https://games.kde.org/")
9833     (synopsis "Game based on Rubik's Cube")
9834     (description "Kubrick is a game based on the Rubik's Cube puzzle.
9835
9836 The cube sizes range from 2x2x2 up to 6x6x6, or you can play with irregular
9837 \"bricks\" such as 5x3x2 or \"mats\" such as 6x4x1 or 2x2x1.  The game has a
9838 selection of puzzles at several levels of difficulty, as well as demos of
9839 pretty patterns and solution moves, or you can make up your own puzzles.  The
9840 game has unlimited undo, redo, save and reload capabilities.
9841
9842 This package is part of the KDE games module.")
9843     (license (list license:gpl2+ license:fdl1.2+))))
9844
9845 (define-public lskat
9846   (package
9847     (name "lskat")
9848     (version "19.08.3")
9849     (source
9850      (origin
9851        (method url-fetch)
9852        (uri (string-append "mirror://kde/stable/applications/" version
9853                            "/src/lskat-" version ".tar.xz"))
9854        (sha256
9855         (base32 "1qk5hd27zb42pbcxq5wyzz62nj5f0qdmgy54r9rnk92pzzzk94s9"))))
9856     (build-system qt-build-system)
9857     (native-inputs
9858      `(("extra-cmake-modules" ,extra-cmake-modules)
9859        ("kdoctools" ,kdoctools)))
9860     (inputs
9861      `(("kcompletion" ,kcompletion)
9862        ("kconfig" ,kconfig)
9863        ("kcoreaddons" ,kcoreaddons)
9864        ("kcrash" ,kcrash)
9865        ("kguiaddons" ,kguiaddons)
9866        ("ki18n" ,ki18n)
9867        ("kwidgetsaddons" ,kwidgetsaddons)
9868        ("kxmlgui" ,kxmlgui)
9869        ("libkdegames" ,libkdegames)
9870        ("qtbase" ,qtbase)
9871        ("qtdeclarative" ,qtdeclarative)
9872        ("qtsvg" ,qtsvg)))
9873     (home-page "https://games.kde.org/")
9874     (synopsis "Lieutnant Skat card game")
9875     (description "Lieutnant Skat (from German \"Offiziersskat\") is a fun and
9876 engaging card game for two players, where the second player is either live
9877 opponent, or a built in artificial intelligence.
9878
9879 Lieutnant Skat is a simplified variant of the Skat card game for two players.
9880
9881 This package is part of the KDE games module.")
9882     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9883
9884 (define-public kapman
9885   (package
9886     (name "kapman")
9887     (version "19.08.3")
9888     (source
9889      (origin
9890       (method url-fetch)
9891       (uri (string-append "mirror://kde/stable/applications/" version
9892                           "/src/kapman-" version ".tar.xz"))
9893       (sha256
9894        (base32 "03pq38caam30q4bw14c045kayw2d87xq1yaa3s2jkrylylfq3p0f"))))
9895     (build-system qt-build-system)
9896     (native-inputs
9897      `(("extra-cmake-modules" ,extra-cmake-modules)
9898        ("kdoctools" ,kdoctools)))
9899     (inputs
9900      `(("kcompletion" ,kcompletion)
9901        ("kconfig" ,kconfig)
9902        ("kconfigwidgets" ,kconfigwidgets)
9903        ("kcoreaddons" ,kcoreaddons)
9904        ("kcrash" ,kcrash)
9905        ("kdbusaddons" ,kdbusaddons)
9906        ("ki18n" ,ki18n)
9907        ("kxmlgui" ,kxmlgui)
9908        ("libkdegames" ,libkdegames)
9909        ("qtbase" ,qtbase)
9910        ("qtdeclarative" ,qtdeclarative)
9911        ("qtsvg" ,qtsvg)))
9912     (home-page "https://games.kde.org/")
9913     (synopsis "Pac-Man clone")
9914     (description "Kapman is a clone of the well known game Pac-Man.
9915
9916 You must run through the maze to eat all pills without being captured by a
9917 ghost.  By eating an energizer, Kapman gets the ability to eat ghosts for a
9918 few seconds.  When a stage is cleared of pills and energizer the player is
9919 taken to the next stage with slightly increased game speed
9920
9921 This package is part of the KDE games module.")
9922     (license (list license:gpl2+ license:fdl1.2+))))
9923
9924 (define-public kspaceduel
9925   (package
9926     (name "kspaceduel")
9927     (version "19.08.3")
9928     (source
9929      (origin
9930        (method url-fetch)
9931        (uri (string-append "mirror://kde/stable/applications/" version
9932                            "/src/kspaceduel-" version ".tar.xz"))
9933        (sha256
9934         (base32 "1hppni0ihs7psc0dly5rxyy2a38nzhlig9yfyhi3lkh36z05pql8"))))
9935     (build-system qt-build-system)
9936     (native-inputs
9937      `(("extra-cmake-modules" ,extra-cmake-modules)
9938        ("kdoctools" ,kdoctools)))
9939     (inputs
9940      `(("kcompletion" ,kcompletion)
9941        ("kconfig" ,kconfig)
9942        ("kconfigwidgets" ,kconfigwidgets)
9943        ("kcoreaddons" ,kcoreaddons)
9944        ("kcrash" ,kcrash)
9945        ("kdbusaddons" ,kdbusaddons)
9946        ("ki18n" ,ki18n)
9947        ("kxmlgui" ,kxmlgui)
9948        ("libkdegames" ,libkdegames)
9949        ("qtbase" ,qtbase)
9950        ("qtdeclarative" ,qtdeclarative)
9951        ("qtsvg" ,qtsvg)))
9952     (home-page "https://games.kde.org/")
9953     (synopsis "Two player game with shooting spaceships flying around a sun")
9954     (description "KSpaceduel is a space battle game for one or two players,
9955 where two ships fly around a star in a struggle to be the only survivor.
9956
9957 This package is part of the KDE games module.")
9958     (license (list license:gpl2+ license:fdl1.2+))))
9959
9960 (define-public bovo
9961   (package
9962     (name "bovo")
9963     (version "19.08.3")
9964     (source
9965      (origin
9966        (method url-fetch)
9967        (uri (string-append "mirror://kde/stable/applications/" version
9968                            "/src/bovo-" version ".tar.xz"))
9969        (sha256
9970         (base32 "0dbpng0w52nahmx7brsll66zw23ql1g6pcvn2k4g2lnvxch0i59g"))))
9971     (build-system qt-build-system)
9972     (native-inputs
9973      `(("extra-cmake-modules" ,extra-cmake-modules)
9974        ("kdoctools" ,kdoctools)))
9975     (inputs
9976      `(("kcompletion" ,kcompletion)
9977        ("kcoreaddons" ,kcoreaddons)
9978        ("kcrash" ,kcrash)
9979        ("kdbusaddons" ,kdbusaddons)
9980        ("ki18n" ,ki18n)
9981        ("kxmlgui" ,kxmlgui)
9982        ("libkdegames" ,libkdegames)
9983        ("qtbase" ,qtbase)
9984        ("qtdeclarative" ,qtdeclarative)
9985        ("qtsvg" ,qtsvg)))
9986     (home-page "https://games.kde.org/")
9987     (synopsis "Classic pen and paper game: five in a line")
9988     (description "Bovo is a Gomoku (from Japanese 五目並べ - lit.  \"five
9989 points\") like game for two players, where the opponents alternate in placing
9990 their respective pictogram on the game board.  The winner is the first to
9991 complete a line of five markers.  (Also known as: Connect Five, Five in a row,
9992 X and O, Naughts and Crosses)
9993
9994 This package is part of the KDE games module.")
9995     (license (list license:gpl2+ license:fdl1.2+))))
9996
9997 (define-public killbots
9998   (package
9999     (name "killbots")
10000     (version "19.08.3")
10001     (source
10002      (origin
10003        (method url-fetch)
10004        (uri (string-append "mirror://kde/stable/applications/" version
10005                            "/src/killbots-" version ".tar.xz"))
10006        (sha256
10007         (base32 "1qi86q7diw7glkp9v33yim9nhz2da4balbxa1hjrdgjdv8zdbxbm"))))
10008     (build-system qt-build-system)
10009     (native-inputs
10010      `(("extra-cmake-modules" ,extra-cmake-modules)
10011        ("kdoctools" ,kdoctools)))
10012     (inputs
10013      `(("kcompletion" ,kcompletion)
10014        ("kconfig" ,kconfig)
10015        ("kconfigwidgets" ,kconfigwidgets)
10016        ("kcoreaddons" ,kcoreaddons)
10017        ("kcrash" ,kcrash)
10018        ("kdbusaddons" ,kdbusaddons)
10019        ("ki18n" ,ki18n)
10020        ("kwidgetsaddons" ,kwidgetsaddons)
10021        ("kxmlgui" ,kxmlgui)
10022        ("libkdegames" ,libkdegames)
10023        ("qtbase" ,qtbase)
10024        ("qtdeclarative" ,qtdeclarative)))
10025     (home-page "https://games.kde.org/")
10026     (synopsis "Port of the classic BSD console game robots")
10027     (description "Killbots is a simple game of evading killer robots.
10028
10029 Who created the robots and why they have been programmed to destroy, no one
10030 knows.  All that is known is that the robots are numerous and their sole
10031 objective is to destroy you.  Fortunately for you, their creator has focused
10032 on quantity rather than quality and as a result the robots are severely
10033 lacking in intelligence.  Your superior wit and a fancy teleportation device
10034 are your only weapons against the never-ending stream of mindless automatons.
10035
10036 This package is part of the KDE games module.")
10037     (license (list license:gpl2+ license:fdl1.2+))))
10038
10039 (define-public ksnakeduel
10040   (package
10041     (name "ksnakeduel")
10042     (version "19.08.3")
10043     (source
10044      (origin
10045       (method url-fetch)
10046       (uri (string-append "mirror://kde/stable/applications/" version
10047                           "/src/ksnakeduel-" version ".tar.xz"))
10048       (sha256
10049        (base32 "0mprrnpax8pv7ab36zwhvdfj8id52w8g6x76nnj8qvkdlkjiqdnn"))))
10050     (build-system qt-build-system)
10051     (native-inputs
10052      `(("extra-cmake-modules" ,extra-cmake-modules)
10053        ("kdoctools" ,kdoctools)))
10054     (inputs
10055      `(("kcompletion" ,kcompletion)
10056        ("kconfig" ,kconfig)
10057        ("kconfigwidgets" ,kconfigwidgets)
10058        ("kcoreaddons" ,kcoreaddons)
10059        ("kcrash" ,kcrash)
10060        ("kdbusaddons" ,kdbusaddons)
10061        ("kguiaddons" ,kguiaddons)
10062        ("ki18n" ,ki18n)
10063        ("kxmlgui" ,kxmlgui)
10064        ("libkdegames" ,libkdegames)
10065        ("qtbase" ,qtbase)
10066        ("qtdeclarative" ,qtdeclarative)
10067        ("qtsvg" ,qtsvg)))
10068     (home-page "https://games.kde.org/")
10069     (synopsis "Snake race played against the computer")
10070     (description "KSnakeDuel is a fast action game where you steer a snake
10071 which has to eat food.  While eating the snake grows.  But once a player
10072 collides with the other snake or the wall the game is lost.  This becomes of
10073 course more and more difficult the longer the snakes grow.
10074
10075 This package is part of the KDE games module.")
10076     (license (list license:gpl2+ license:fdl1.2+))))
10077
10078 (define-public kollision
10079   (package
10080     (name "kollision")
10081     (version "19.08.3")
10082     (source
10083      (origin
10084       (method url-fetch)
10085       (uri (string-append "mirror://kde/stable/applications/" version
10086                           "/src/kollision-" version ".tar.xz"))
10087       (sha256
10088        (base32 "1p7qrn3d0ybpvc9k6k5wzj54dsrp1rqh39844maz0ay2fhvmch12"))))
10089     (build-system qt-build-system)
10090     (native-inputs
10091      `(("extra-cmake-modules" ,extra-cmake-modules)
10092        ("kdoctools" ,kdoctools)))
10093     (inputs
10094      `(("kcompletion" ,kcompletion)
10095        ("kconfig" ,kconfig)
10096        ("kcoreaddons" ,kcoreaddons)
10097        ("kcrash" ,kcrash)
10098        ("kdbusaddons" ,kdbusaddons)
10099        ("ki18n" ,ki18n)
10100        ("kwidgetsaddons" ,kwidgetsaddons)
10101        ("kxmlgui" ,kxmlgui)
10102        ("libkdegames" ,libkdegames)
10103        ("qtbase" ,qtbase)
10104        ("qtdeclarative" ,qtdeclarative)))
10105     (home-page "https://games.kde.org/")
10106     (synopsis "Simple ball dodging game")
10107     (description "In Kollision you use mouse to control a small blue ball in a
10108 closed space environment filled with small red balls, which move about
10109 chaotically.  Your goal is to avoid touching any of those red balls with your
10110 blue one, because the moment you do the game will be over.  The longer you can
10111 stay in game the higher will your score be.
10112
10113 This package is part of the KDE games module.")
10114     (license (list license:gpl2+ license:fdl1.2+))))
10115
10116 (define-public knavalbattle
10117   (package
10118     (name "knavalbattle")
10119     (version "19.08.3")
10120     (source
10121      (origin
10122       (method url-fetch)
10123       (uri (string-append "mirror://kde/stable/applications/" version
10124 "/src/knavalbattle-" version ".tar.xz"))
10125       (sha256
10126        (base32 "0sdfjplqkb30x2mvh66pkzay6vn5px87779sh2s8lpl6fcw0v9g4"))))
10127     (build-system qt-build-system)
10128     (native-inputs
10129      `(("extra-cmake-modules" ,extra-cmake-modules)
10130        ("kdoctools" ,kdoctools)))
10131     (inputs
10132      `(("kauth" ,kauth)
10133        ("kcompletion" ,kcompletion)
10134        ("kconfig" ,kconfig)
10135        ("kconfigwidgets" ,kconfigwidgets)
10136        ("kcoreaddons" ,kcoreaddons)
10137        ("kcrash" ,kcrash)
10138        ("kdbusaddons" ,kdbusaddons)
10139        ("kdnssd" ,kdnssd)
10140        ("ki18n" ,ki18n)
10141        ("ktextwidgets" ,ktextwidgets)
10142        ("kxmlgui" ,kxmlgui)
10143        ("libkdegames" ,libkdegames)
10144        ("qtbase" ,qtbase)
10145        ("qtdeclarative" ,qtdeclarative)))
10146     (home-page "https://games.kde.org/")
10147     (synopsis "Battleship board game with built-in game server")
10148     (description "KBattleship is a Battle Ship game for KDE.
10149
10150 Ships are placed on a board which represents the sea.  Players try to hit each
10151 others ships in turns without knowing where they are placed.  The first player
10152 to destroy all ships wins the game.
10153
10154 This package is part of the KDE games module.")
10155     (license (list license:gpl2+ license:fdl1.2+))))
10156
10157 (define-public kreversi
10158   (package
10159     (name "kreversi")
10160     (version "19.08.3")
10161     (source
10162      (origin
10163       (method url-fetch)
10164       (uri (string-append "mirror://kde/stable/applications/" version
10165 "/src/kreversi-" version ".tar.xz"))
10166       (sha256
10167        (base32 "0b6q8df2bawgnrswhq59z37axad0q3zpvvzxdds7sz1lw505xw9h"))))
10168     (build-system qt-build-system)
10169     (native-inputs
10170      `(("extra-cmake-modules" ,extra-cmake-modules)
10171        ("kdoctools" ,kdoctools)))
10172     (inputs
10173      `(("kconfig" ,kconfig)
10174        ("kconfigwidgets" ,kconfigwidgets)
10175        ("kcoreaddons" ,kcoreaddons)
10176        ("kcrash" ,kcrash)
10177        ("kdbusaddons" ,kdbusaddons)
10178        ("kdeclarative" ,kdeclarative)
10179        ("ki18n" ,ki18n)
10180        ("kiconthemes" ,kiconthemes)
10181        ("kio" ,kio)
10182        ("kxmlgui" ,kxmlgui)
10183        ("libkdegames" ,libkdegames)
10184        ("qtbase" ,qtbase)
10185        ("qtdeclarative" ,qtdeclarative)
10186        ("qtsvg" ,qtsvg)))
10187     (home-page "https://games.kde.org/")
10188     (synopsis "Old reversi board game, also known as othello")
10189     (description "KReversi is a simple one player strategy game played
10190 against the computer.
10191
10192 If a player's piece is captured by an opposing player, that piece is turned
10193 over to reveal the color of that player.  A winner is declared when one player
10194 has more pieces of his own color on the board and there are no more possible
10195 moves.
10196
10197 This package is part of the KDE games module.")
10198     (license (list license:gpl2+ license:fdl1.2+))))
10199
10200 (define-public ksquares
10201   (package
10202     (name "ksquares")
10203     (version "19.08.3")
10204     (source
10205      (origin
10206       (method url-fetch)
10207       (uri (string-append "mirror://kde/stable/applications/" version
10208                           "/src/ksquares-" version ".tar.xz"))
10209       (sha256
10210        (base32 "0hv8hls5s627lys08nnw72rfzsafj3dmp49mh2afzmh6lgk9h5vy"))))
10211     (build-system qt-build-system)
10212     (native-inputs
10213      `(("extra-cmake-modules" ,extra-cmake-modules)
10214        ("kdoctools" ,kdoctools)))
10215     (inputs
10216      `(("kcompletion" ,kcompletion)
10217        ("kconfig" ,kconfig)
10218        ("kconfigwidgets" ,kconfigwidgets)
10219        ("kcoreaddons" ,kcoreaddons)
10220        ("kcrash" ,kcrash)
10221        ("kdbusaddons" ,kdbusaddons)
10222        ("ki18n" ,ki18n)
10223        ("kwidgetsaddons" ,kwidgetsaddons)
10224        ("kxmlgui" ,kxmlgui)
10225        ("libkdegames" ,libkdegames)
10226        ("qtbase" ,qtbase)
10227        ("qtdeclarative" ,qtdeclarative)))
10228     (home-page "https://games.kde.org/")
10229     (synopsis "Dots and Boxes game")
10230     (description "KSquares is an implementation of the popular paper based
10231 game Squares.  Two players take turns connecting dots on a grid to complete
10232 squares, the player with the most squares wins.
10233
10234 This package is part of the KDE games module.")
10235     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10236
10237 (define-public kjumpingcube
10238   (package
10239     (name "kjumpingcube")
10240     (version "19.08.3")
10241     (source
10242      (origin
10243       (method url-fetch)
10244       (uri (string-append "mirror://kde/stable/applications/" version
10245                           "/src/kjumpingcube-" version ".tar.xz"))
10246       (sha256
10247        (base32 "0d67zqkf2xffjkj671gl2n6nj6jajyn6rgqqj5i6gm500mqi9rm1"))))
10248     (build-system qt-build-system)
10249     (native-inputs
10250      `(("extra-cmake-modules" ,extra-cmake-modules)
10251        ("kdoctools" ,kdoctools)))
10252     (inputs
10253      `(("kconfig" ,kconfig)
10254        ("kconfigwidgets" ,kconfigwidgets)
10255        ("kcoreaddons" ,kcoreaddons)
10256        ("kcrash" ,kcrash)
10257        ("kdbusaddons" ,kdbusaddons)
10258        ("ki18n" ,ki18n)
10259        ("kio" ,kio)
10260        ("kwidgetsaddons" ,kwidgetsaddons)
10261        ("kxmlgui" ,kxmlgui)
10262        ("libkdegames" ,libkdegames)
10263        ("qtbase" ,qtbase)
10264        ("qtdeclarative" ,qtdeclarative)
10265        ("qtsvg" ,qtsvg)))
10266     (home-page "https://games.kde.org/")
10267     (synopsis "Simple tactical game for number-crunchers")
10268     (description "KJumpingcube is a simple tactical game for one or two
10269 players, played on a grid of numbered squares.  Each turn, players compete for
10270 control of the board by capturing or adding to one square.
10271
10272 This package is part of the KDE games module.")
10273     (license (list license:gpl2+ license:fdl1.2+))))
10274
10275 (define-public xmoto
10276   (package
10277     (name "xmoto")
10278     (version "0.5.11")
10279     (source
10280      (origin
10281        (method url-fetch)
10282        (uri (string-append
10283              "http://download.tuxfamily.org/xmoto/xmoto/" version "/"
10284              "xmoto-" version "-src.tar.gz"))
10285        (sha256
10286         (base32 "1ci6r8zd0l7z28cy92ddf9dmqbdqwinz2y1cny34c61b57wsd155"))
10287        (patches
10288         (search-patches
10289          "xmoto-remove-glext.patch"     ;fixes licensing issue
10290          "xmoto-reproducible.patch"
10291          "xmoto-utf8.patch"))
10292        ;; Unbundle ODE.
10293        (modules '((guix build utils)))
10294        (snippet
10295         `(begin
10296            (delete-file-recursively "src/ode")
10297            #t))))
10298     (build-system gnu-build-system)
10299     (arguments
10300      ;; XXX: First flag prevents a build error with GCC7+.  The second
10301      ;; flag works around missing text in game.  Both are fixed
10302      ;; upstream.  Remove once xmoto 0.5.12+ is released.
10303      `(#:make-flags '("CXXFLAGS=-fpermissive -D_GLIBCXX_USE_CXX11_ABI=0")
10304        #:phases
10305        (modify-phases %standard-phases
10306          (add-after 'install 'install-desktop-file
10307            (lambda* (#:key outputs #:allow-other-keys)
10308              (let* ((out (assoc-ref outputs "out"))
10309                     (apps (string-append out "/share/applications"))
10310                     (pixmaps (string-append out "/share/pixmaps")))
10311                (install-file "extra/xmoto.desktop" apps)
10312                (install-file "extra/xmoto.xpm" pixmaps)
10313                #t)))
10314          (add-after 'install-desktop-file 'install-fonts
10315            (lambda* (#:key outputs inputs #:allow-other-keys)
10316              (let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
10317                                             "/share/fonts/truetype/"))
10318                    (target-dir (string-append (assoc-ref outputs "out")
10319                                               "/share/xmoto/Textures/Fonts/")))
10320                (for-each (lambda (f)
10321                            (let ((font (string-append font-dir f))
10322                                  (target (string-append target-dir f)))
10323                              (delete-file target)
10324                              (symlink font target)))
10325                          '("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
10326                #t)))
10327          (add-after 'install-fonts 'install-man-page
10328            (lambda* (#:key outputs #:allow-other-keys)
10329              (install-file "xmoto.6"
10330                            (string-append (assoc-ref outputs "out")
10331                                           "/share/man/man6"))
10332              #t)))))
10333     (native-inputs
10334      `(("gettext" ,gettext-minimal)))
10335     (inputs
10336      `(("curl" ,curl)
10337        ("font-dejavu" ,font-dejavu)
10338        ("glu" ,glu)
10339        ("libjpeg" ,libjpeg-turbo)
10340        ("libpng" ,libpng)
10341        ("libxdg-basedir" ,libxdg-basedir)
10342        ("libxml2" ,libxml2)
10343        ("lua" ,lua-5.2)
10344        ("ode" ,ode)
10345        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
10346        ("sqlite" ,sqlite)
10347        ("zlib" ,zlib)))
10348     (home-page "https://xmoto.tuxfamily.org/")
10349     (synopsis "2D motocross platform game")
10350     (description "X-Moto is a challenging 2D motocross platform game, where
10351 physics play an all important role in the gameplay.  You need to control your
10352 bike to its limit, if you want to have a chance finishing the more difficult
10353 challenges.")
10354     (license (list license:gpl2+        ;whole project
10355                    license:bsd-4        ;src/bzip
10356                    license:bsd-3        ;src/md5sum
10357                    license:lgpl2.1+     ;src/iqsort.h
10358                    license:expat))))
10359
10360 (define-public eboard
10361   (package
10362     (name "eboard")
10363     (version "1.1.3")
10364     (source
10365      (origin
10366        (method git-fetch)
10367        (uri (git-reference
10368              (url "https://github.com/fbergo/eboard.git")
10369              (commit (string-append "v" version))))
10370        (file-name (git-file-name name version))
10371        (sha256
10372         (base32 "1z4pwpqyvxhlda99h6arh2rjk90fbms9q29fqizjblrdn01dlxn1"))))
10373     (build-system gnu-build-system)
10374     (native-inputs
10375      `(("perl" ,perl)
10376        ("pkg-config" ,pkg-config)))
10377     (inputs
10378      `(("gtk+" ,gtk+-2)
10379        ("libpng" ,libpng)
10380        ("gstreamer" ,gstreamer)))
10381     (arguments
10382      `(#:tests? #f
10383        #:phases
10384        (modify-phases %standard-phases
10385          (replace 'configure
10386            (lambda* (#:key outputs #:allow-other-keys)
10387              (make-file-writable "eboard-config")
10388              (setenv "CC" "gcc")
10389              (invoke "./configure"
10390                      (string-append "--prefix=" (assoc-ref outputs "out")))
10391              #t))
10392          (add-before 'install 'make-required-directories
10393            (lambda* (#:key outputs #:allow-other-keys)
10394              (mkdir-p (string-append (assoc-ref outputs "out")
10395                                      "/share/eboard"))
10396              #t)))))
10397     (synopsis "Graphical user interface to play chess")
10398     (description
10399      "Eboard is a chess board interface for ICS (Internet Chess Servers)
10400 and chess engines.")
10401     (home-page "https://www.bergo.eng.br/eboard/")
10402     (license license:gpl2+)))
10403
10404 (define-public chessx
10405   (package
10406     (name "chessx")
10407     (version "1.5.0")
10408     (source
10409      (origin
10410        (method url-fetch)
10411        (uri (string-append "mirror://sourceforge/chessx/chessx/"
10412                            version "/chessx-" version ".tgz"))
10413        (sha256
10414         (base32 "09rqyra28w3z9ldw8sx07k5ap3sjlli848p737maj7c240rasc6i"))))
10415     (build-system qt-build-system)
10416     (native-inputs
10417      `(("qttools" ,qttools)))
10418     (inputs
10419      `(("qtbase" ,qtbase)
10420        ("qtmultimedia" ,qtmultimedia)
10421        ("qtsvg" ,qtsvg)
10422        ("zlib" ,zlib)))
10423     (arguments
10424      `(#:tests? #f
10425        #:phases
10426        (modify-phases %standard-phases
10427          (add-after 'unpack 'fix-paths
10428            (lambda* (#:key inputs #:allow-other-keys)
10429              (substitute* "chessx.pro"
10430                (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
10431                 (string-append (assoc-ref inputs "qttools") "/bin/lrelease")))
10432              #t))
10433          (add-after 'fix-paths 'make-qt-deterministic
10434            (lambda _
10435              (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
10436              #t))
10437          (replace 'configure
10438            (lambda _
10439              (invoke "qmake")
10440              #t))
10441          (replace 'install
10442            (lambda* (#:key outputs #:allow-other-keys)
10443              (let ((out (assoc-ref outputs "out")))
10444                (install-file "release/chessx" (string-append out "/bin"))
10445                (install-file "unix/chessx.desktop"
10446                              (string-append out "/share/applications")))
10447              #t)))))
10448     (synopsis "Chess game database")
10449     (description
10450      "ChessX is a chess database.  With ChessX you can operate on your
10451 collection of chess games in many ways: browse, edit, add, organize, analyze,
10452 etc.  You can also play games on FICS or against an engine.")
10453     (home-page "http://chessx.sourceforge.net/")
10454     (license license:gpl2+)))
10455
10456 (define-public stockfish
10457   (package
10458     (name "stockfish")
10459     (version "11")
10460     (source
10461      (origin
10462        (method git-fetch)
10463        (uri (git-reference
10464              (url "https://github.com/official-stockfish/Stockfish.git")
10465              (commit (string-append "sf_" version))))
10466        (file-name (git-file-name name version))
10467        (sha256
10468         (base32 "12mppipinymj8s1ipq9a7is453vncly49c32ym9wvyklsgyxfzlk"))))
10469     (build-system gnu-build-system)
10470     (arguments
10471      `(#:tests? #f
10472        #:make-flags (list "-C" "src"
10473                           "build"
10474                           (string-append "PREFIX="
10475                                          (assoc-ref %outputs "out"))
10476                           (string-append "ARCH="
10477                                          ,(match (%current-system)
10478                                             ("x86_64-linux" "x86-64")
10479                                             ("i686-linux" "x86-32")
10480                                             ("aarch64-linux" "general-64")
10481                                             ("armhf-linux" "armv7")
10482                                             ("mips64el-linux" "general-64")
10483                                             (_ "general-32"))))
10484        #:phases (modify-phases %standard-phases
10485                   (delete 'configure))))
10486     (synopsis "Strong chess engine")
10487     (description
10488      "Stockfish is a very strong chess engines.  It is much stronger than the
10489 best human chess grandmasters.  It can be used with UCI-compatible GUIs like
10490 ChessX.")
10491     (home-page "https://stockfishchess.org/")
10492     (license license:gpl3+)))
10493
10494 (define-public barrage
10495   (package
10496     (name "barrage")
10497     (version "1.0.5")
10498     (source
10499      (origin
10500        (method url-fetch)
10501        (uri (string-append "mirror://sourceforge/lgames/barrage/"
10502                            "barrage-" version ".tar.gz"))
10503        (sha256
10504         (base32 "0139wxyrir10cbkvkjn548xgmp84wax8mfwk80yxbxlcdamrg257"))))
10505     (build-system gnu-build-system)
10506     (inputs
10507      `(("hicolor-icon-theme" ,hicolor-icon-theme)
10508        ("sdl" ,sdl)
10509        ("sdl-mixer" ,sdl-mixer)))
10510     (arguments
10511      `(#:configure-flags
10512        (list
10513         (string-append "CFLAGS="
10514                        "-I" (assoc-ref %build-inputs "sdl-mixer")
10515                        "/include/SDL"))))
10516     (home-page "http://lgames.sourceforge.net/Barrage/")
10517     (synopsis "Violent point-and-click shooting game with nice effects")
10518     (description
10519      "Barrage is a rather destructive action game that puts you on a shooting
10520 range with the objective to hit as many dummy targets as possible within
10521 3 minutes.  You control a gun that may either fire small or large grenades at
10522 soldiers, jeeps and tanks.  The gameplay is simple but it is not that easy to
10523 get high scores.")
10524     (license license:gpl2+)))
10525
10526 (define-public 7kaa
10527   (package
10528     (name "7kaa")
10529     (version "2.15.3")
10530     (source
10531      (origin
10532        (method url-fetch)
10533        (uri (string-append "https://github.com/the3dfxdude/7kaa/"
10534                            "releases/download/v" version "/"
10535                            "7kaa-" version ".tar.xz"))
10536        (sha256
10537         (base32 "0blj47mcsfw1sn3465j6iham8m6ki07iggnq4q8nnaqnryx710jc"))))
10538     (build-system gnu-build-system)
10539     (native-inputs
10540      `(("gettext" ,gettext-minimal)
10541        ("pkg-config" ,pkg-config)))
10542     (inputs
10543      `(("curl" ,curl)
10544        ("enet" ,enet)
10545        ("openal" ,openal)
10546        ("sdl2" ,sdl2)))
10547     (home-page "https://7kfans.com/")
10548     (synopsis "Seven Kingdoms Ancient Adversaries: real-time strategy game")
10549     (description
10550      "Seven Kingdoms, designed by Trevor Chan, brings a blend of Real-Time
10551 Strategy with the addition of trade, diplomacy, and espionage.  The game
10552 enables players to compete against up to six other kingdoms allowing players
10553 to conquer opponents by defeating them in war (with troops or machines),
10554 capturing their buildings with spies, or offering opponents money for their
10555 kingdom.")
10556     (license license:gpl2+)))
10557
10558 (define-public neverball
10559   ;; Git version is 6-years younger than latest release.
10560   (let ((commit "760a25d32a5fb0661b99426d4ddcb9ac9f3d1644")
10561         (revision "1"))
10562     (package
10563       (name "neverball")
10564       (version (git-version "1.6.0" revision commit))
10565       (source
10566        (origin
10567          (method git-fetch)
10568          (uri (git-reference
10569                (url "https://github.com/Neverball/neverball.git")
10570                (commit commit)))
10571          (sha256
10572           (base32
10573            "0bwh67df3lyf33bv710y25l3frjdd34j9b7gsjadwxviz6r1vpj5"))
10574          (file-name (git-file-name name version))
10575          (modules '((guix build utils)))
10576          (snippet
10577           '(begin
10578              ;; Octocat seems to be non-free.  Oddly, Debian doesn't strip it.
10579              (delete-file-recursively "data/ball/octocat")
10580              #t))))
10581       (build-system copy-build-system)
10582       (arguments
10583        `(#:install-plan
10584          '(("neverball" "bin/")
10585            ("neverputt" "bin/")
10586            ("mapc" "bin/")
10587            ("data" "share/games/neverball/")
10588            ("locale" "share/")
10589            ("dist/" "share/games/neverball" #:include ("neverball_replay.png"
10590                                                        "neverlogos.svg"
10591                                                        "svg readme.txt"))
10592            ("dist/" "share/applications" #:include ("neverball.desktop"
10593                                                     "neverputt.desktop"))
10594            ("dist/neverball_16.png"
10595             "/share/icons/hicolor/16x16/apps/neverball.png")
10596            ("dist/neverball_24.png"
10597             "/share/icons/hicolor/24x24/apps/neverball.png")
10598            ("dist/neverball_32.png"
10599             "/share/icons/hicolor/32x32/apps/neverball.png")
10600            ("dist/neverball_48.png"
10601             "/share/icons/hicolor/48x48/apps/neverball.png")
10602            ("dist/neverball_64.png"
10603             "/share/icons/hicolor/64x64/apps/neverball.png")
10604            ("dist/neverball_128.png"
10605             "/share/icons/hicolor/128x128/apps/neverball.png")
10606            ("dist/neverball_256.png"
10607             "/share/icons/hicolor/256x256/apps/neverball.png")
10608            ("dist/neverball_512.png"
10609             "/share/icons/hicolor/512x512/apps/neverball.png")
10610            ("dist/neverputt_16.png"
10611             "/share/icons/hicolor/16x16/apps/neverputt.png")
10612            ("dist/neverputt_24.png"
10613             "/share/icons/hicolor/24x24/apps/neverputt.png")
10614            ("dist/neverputt_32.png"
10615             "/share/icons/hicolor/32x32/apps/neverputt.png")
10616            ("dist/neverputt_48.png"
10617             "/share/icons/hicolor/48x48/apps/neverputt.png")
10618            ("dist/neverputt_64.png"
10619             "/share/icons/hicolor/64x64/apps/neverputt.png")
10620            ("dist/neverputt_128.png"
10621             "/share/icons/hicolor/128x128/apps/neverputt.png")
10622            ("dist/neverputt_256.png"
10623             "/share/icons/hicolor/256x256/apps/neverputt.png")
10624            ("dist/neverputt_512.png"
10625             "/share/icons/hicolor/512x512/apps/neverputt.png")
10626            ("dist/" "share/man/man1" #:include ("mapc.1"))
10627            ("dist/" "share/man/man6" #:include ("neverball.6" "neverputt.6"))
10628            ("doc/" "share/doc/neverball")
10629            ("README.md" "share/doc/neverball/"))
10630          #:phases
10631          (modify-phases %standard-phases
10632            (add-before 'install 'build
10633              (lambda* (#:key inputs outputs #:allow-other-keys)
10634                (let* ((out (assoc-ref outputs "out"))
10635                       (sdl (assoc-ref inputs "sdl")))
10636                  (invoke "make" "-j" (number->string (parallel-job-count))
10637                          "--environment-overrides"
10638                          "CC=gcc" "BUILD=release"
10639                          (string-append "DATADIR="
10640                                         out
10641                                         "/share/games/neverball/data")
10642                          (string-append "LOCALEDIR=" out "/share/locale")
10643                          (string-append "SDL_CPPFLAGS=-I"
10644                                         sdl
10645                                         "/include/SDL2/")))
10646                #t))
10647            (add-after 'install 'fix-some-broken-fonts
10648              (lambda* (#:key outputs #:allow-other-keys)
10649                (let* ((out (assoc-ref outputs "out")))
10650                  (wrap-program (string-append out "/bin/neverball")
10651                    `("LANG" = ("en_US.utf8")))
10652                  (wrap-program (string-append out "/bin/neverputt")
10653                    `("LANG" = ("en_US.utf8"))))
10654                #t)))))
10655       (native-inputs
10656        `(("gettext" ,gettext-minimal))) ;for msgfmt
10657       (inputs
10658        `(("libjpeg" ,libjpeg-turbo)
10659          ("libpng" ,libpng)
10660          ("libvorbis" ,libvorbis)
10661          ("physfs" ,physfs)
10662          ("sdl" ,(sdl-union (list sdl2 sdl2-ttf)))))
10663       (home-page "https://neverball.org/")
10664       (synopsis "3D floor-tilting game")
10665       (description
10666        "In the grand tradition of Marble Madness and Super Monkey Ball,
10667 Neverball has you guide a rolling ball through dangerous territory.  Balance
10668 on narrow bridges, navigate mazes, ride moving platforms, and dodge pushers
10669 and shovers to get to the goal.  Race against the clock to collect coins to
10670 earn extra balls.  Also included is Neverputt, which is a 3D miniature golf
10671 game.")  ;thanks to Debian for description
10672       (license license:gpl2+))))