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                   (delete 'configure)
5815                   (add-after 'unpack 'fix-makefile-paths
5816                     (lambda* (#:key outputs #:allow-other-keys)
5817                       (let ((vulkan (assoc-ref %build-inputs
5818                                                "vulkan-loader"))
5819                             (out (assoc-ref outputs "out")))
5820                         (mkdir-p (string-append out "/bin"))
5821                         (substitute* "Quake/Makefile" ((" /usr")
5822                                                        (string-append " " out)))
5823                         (substitute* "Quake/Makefile" (("/games")
5824                                                        (string-append "/bin")))
5825                         (substitute* "Quake/Makefile" (("..VULKAN_SDK.") vulkan))
5826                         #t))))
5827        ,@(strip-keyword-arguments '(#:make-flags #:phases)
5828                                   (package-arguments quakespasm))))
5829     (inputs `(("vulkan-headers" ,vulkan-headers)
5830               ("vulkan-loader" ,vulkan-loader)
5831               ,@(package-inputs quakespasm)))
5832     (description "vkquake is a modern engine for id software's Quake 1.
5833 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5834 some graphical niceities, and numerous bug-fixes and other improvements.")
5835     (home-page "https://github.com/Novum/vkQuake")))
5836
5837 (define-public yamagi-quake2
5838   (package
5839     (name "yamagi-quake2")
5840     (version "7.10")
5841     (source
5842      (origin
5843        (method url-fetch)
5844        (uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
5845                            version ".tar.xz"))
5846        (sha256
5847         (base32
5848          "0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
5849     (build-system gnu-build-system)
5850     (arguments
5851      `(#:tests? #f
5852        #:make-flags
5853        (list "CC=gcc"
5854              ;; link openAL instead of using dlopen at runtime
5855              "DLOPEN_OPENAL=\"no\""
5856              ;; an optional directory where it will look for quake2 data files
5857              ;; in addition to the current working directory
5858              "WITH_SYSTEMWIDE=yes"
5859              "WITH_SYSTEMDIR=\"/opt/quake2\"")
5860        #:phases
5861        (modify-phases %standard-phases
5862          (delete 'configure)
5863          (replace 'install
5864            (lambda* (#:key outputs #:allow-other-keys)
5865              (let ((out (assoc-ref outputs "out")))
5866                (mkdir-p (string-append out "/lib"))
5867                (mkdir-p (string-append out "/bin"))
5868                ;; The yamagi-quake2 binary must be in the same directory
5869                ;; as it's engine libraries, but symlinking it to /bin is okay
5870                ;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
5871                (copy-recursively "release"
5872                                  (string-append out "/lib/yamagi-quake2"))
5873                (symlink (string-append out "/lib/yamagi-quake2/quake2")
5874                         (string-append out "/bin/yamagi-quake2"))
5875                (symlink (string-append out "/lib/yamagi-quake2/q2ded")
5876                         (string-append out "/bin/yamagi-q2ded"))))))))
5877     (inputs `(("sdl2" ,sdl2)
5878               ("mesa" ,mesa)
5879               ("libvorbis" ,libvorbis)
5880               ("zlib" ,zlib)
5881               ("openal" ,openal)))
5882     (native-inputs `(("pkg-config" ,pkg-config)))
5883     (synopsis "First person shooter engine based on quake2")
5884     (description "Yamagi Quake II is an enhanced client for id Software's Quake II.
5885 The main focus is an unchanged single player experience like back in 1997,
5886 thus the gameplay and the graphics are unaltered.  However the user may use one
5887 of the unofficial retexturing packs.  In comparison with the official client,
5888 over 1000 bugs were fixed and an extensive code audit done,
5889 making Yamagi Quake II one of the most solid Quake II implementations available.")
5890     (home-page "https://www.yamagi.org/quake2/")
5891     (license (list license:gpl2+         ; game and server
5892                    (license:non-copyleft ; info-zip
5893                     "file://LICENSE"
5894                     "See Info-Zip section.")
5895                    license:public-domain)))) ; stb
5896
5897 (define-public nudoku
5898   (package
5899     (name "nudoku")
5900     (version "1.0.0")
5901     (source (origin
5902               (method url-fetch)
5903               (uri (string-append "https://github.com/jubalh/nudoku/"
5904                                   "releases/download/" version
5905                                   "/nudoku-" version ".tar.xz"))
5906               (sha256
5907                (base32
5908                 "0nr2j2z07nxk70s8xnmmpzccxicf7kn5mbwby2kg6aq8paarjm8k"))))
5909     (build-system gnu-build-system)
5910     (inputs `(("ncurses" ,ncurses)))
5911     (home-page "https://jubalh.github.io/nudoku/")
5912     (synopsis "Sudoku for your terminal")
5913     (description "Nudoku is a ncurses-based Sudoku game for your terminal.")
5914     (license license:gpl3+)))
5915
5916 (define-public the-butterfly-effect
5917   (package
5918     (name "the-butterfly-effect")
5919     (version "0.9.3.1")
5920     (source
5921      (origin
5922        (method git-fetch)
5923        (uri (git-reference
5924               (url "https://github.com/the-butterfly-effect/tbe.git")
5925               (commit (string-append "v" version))))
5926        (file-name (git-file-name name version))
5927        (sha256
5928         (base32
5929          "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj"))))
5930     (build-system gnu-build-system)
5931     (arguments
5932      `(#:phases
5933        (modify-phases %standard-phases
5934          (delete 'configure)
5935          ;; There is no "install" phase.  By default, tbe is installed
5936          ;; in the build directory.  Provide our own installation.
5937          (replace 'install
5938            (lambda* (#:key outputs #:allow-other-keys)
5939              (let* ((out (assoc-ref outputs "out"))
5940                     (bin (string-append out "/bin"))
5941                     (share (string-append out "/share")))
5942                (install-file "usr/games/tbe" bin)
5943                (mkdir-p share)
5944                (copy-recursively "usr/share" share)
5945                #t))))
5946        ;; Test suite requires a running Xorg server. Even when
5947        ;; provided, it fails with "D-Bus library appears to be
5948        ;; incorrectly set up; failed to read machine uuid: Failed to
5949        ;; open "/etc/machine-id": No such file or directory" along
5950        ;; with multiple "QPainter:: ... Painter not active" warnings.
5951        #:tests? #f))
5952     (inputs
5953      `(("qtbase" ,qtbase)
5954        ("qtsvg" ,qtsvg)))
5955     (native-inputs
5956      `(("cmake" ,cmake-minimal)
5957        ("gettext-minimal" ,gettext-minimal)
5958        ("qttools" ,qttools)))
5959     (synopsis "Realistic physics puzzle game")
5960     (description "The Butterfly Effect (tbe) is a game that uses
5961 realistic physics simulations to combine lots of simple mechanical
5962 elements to achieve a simple goal in the most complex way possible.")
5963     (home-page "http://the-butterfly-effect.org/")
5964     ;; Main license is GPL2-only.  However, artwork is distributed
5965     ;; under various licenses, listed here.
5966     (license (list license:gpl2 license:public-domain license:expat
5967                    license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
5968
5969 (define-public pioneer
5970   (package
5971     (name "pioneer")
5972     (version "20200203")
5973     (source (origin
5974               (method git-fetch)
5975               (uri (git-reference
5976                     (url "https://github.com/pioneerspacesim/pioneer.git")
5977                     (commit version)))
5978               (file-name (git-file-name name version))
5979               (sha256
5980                (base32
5981                 "1011xsi94jhw98mhm8kryq8ajig0qfbrdx5xdasi92bd4nk7lcp8"))))
5982     (build-system cmake-build-system)
5983     (native-inputs
5984      `(("pkg-config" ,pkg-config)))
5985     (inputs
5986      `(("assimp" ,assimp)
5987        ("curl" ,curl)
5988        ("freetype" ,freetype)
5989        ("glew" ,glew)
5990        ("glu" ,glu)
5991        ("libpng" ,libpng)
5992        ("libsigc++" ,libsigc++)
5993        ("libvorbis" ,libvorbis)
5994        ("lua" ,lua-5.2)                 ;not compatible with 5.3
5995        ("mesa" ,mesa)
5996        ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
5997     (arguments
5998      `(#:tests? #f                      ;tests are broken
5999        #:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
6000                                (string-append "-DPIONEER_DATA_DIR="
6001                                               %output "/share/games/pioneer"))))
6002     (home-page "https://pioneerspacesim.net")
6003     (synopsis "Game of lonely space adventure")
6004     (description
6005      "Pioneer is a space adventure game set in our galaxy at the turn of the
6006 31st century.  The game is open-ended, and you are free to eke out whatever
6007 kind of space-faring existence you can think of.  Look for fame or fortune by
6008 exploring the millions of star systems.  Turn to a life of crime as a pirate,
6009 smuggler or bounty hunter.  Forge and break alliances with the various
6010 factions fighting for power, freedom or self-determination.  The universe is
6011 whatever you make of it.")
6012     (license license:gpl3)))
6013
6014 (define-public badass
6015   (let ((commit "3c3cd669b4fc8f73a102e3702788f7b28dc47dbb")
6016         (revision "0"))
6017   (package
6018     (name "badass")
6019     (version (git-version "0.0" revision commit))
6020     (source (origin
6021               (method git-fetch)
6022               (uri (git-reference
6023                      (url "https://github.com/umayr/badass.git")
6024                      (commit commit)))
6025               (file-name (git-file-name name version))
6026               (sha256
6027                (base32
6028                 "05c9vdcb5ym3z0n5ll3v39mw4yl9jcjnlydmn0yl89ai9pv71zb6"))))
6029     (build-system go-build-system)
6030     (arguments
6031      '(#:import-path "github.com/umayr/badass"))
6032     (synopsis "Hacking contribution graphs in git")
6033     (description
6034      "Badass generates false commits for a range of dates, essentially
6035 hacking the gamification of contribution graphs on platforms such as
6036 Github or Gitlab.")
6037     (home-page "https://github.com/umayr/badass")
6038     (license license:expat))))
6039
6040 (define-public colobot
6041   (package
6042     (name "colobot")
6043     (version "0.1.12-alpha")
6044     (source
6045      (origin
6046        (method git-fetch)
6047        (uri (git-reference
6048              (url "https://github.com/colobot/colobot.git")
6049              (commit (string-append "colobot-gold-" version))
6050              (recursive? #t)))          ;for "data/" subdir
6051        (file-name (git-file-name name version))
6052        (sha256
6053         (base32
6054          "1c181cclkrnspgs07lvndg2c81cjq3smkv7qim8c470cj88rcrp2"))))
6055     (build-system cmake-build-system)
6056     (arguments
6057      `(#:tests? #f                      ;no test
6058        #:phases
6059        (modify-phases %standard-phases
6060          (add-after 'unpack 'make-git-checkout-writable
6061            (lambda _
6062              (for-each make-file-writable (find-files "."))
6063              #t))
6064          (add-after 'unpack 'fix-directories
6065            (lambda _
6066              (substitute* "CMakeLists.txt"
6067                (("(\\$\\{CMAKE_INSTALL_PREFIX\\})/games" _ prefix)
6068                 (string-append prefix "/bin"))
6069                (("(\\$\\{CMAKE_INSTALL_PREFIX\\}/share)/games/colobot" _ prefix)
6070                 (string-append prefix "/colobot")))
6071              #t))
6072          (add-after 'fix-directories 'install-music
6073            ;; Retrieve and install music files.
6074            (lambda* (#:key inputs #:allow-other-keys)
6075              ;; Installation process tries to download music files using
6076              ;; "wget" if not already present.  Since we are going another
6077              ;; route, skip "wget" command check.
6078              (substitute* "data/music/CMakeLists.txt"
6079                (("find_program\\(WGET wget\\)") ""))
6080              ;; Populate "music/" directory.
6081              (let ((data (assoc-ref inputs "colobot-music")))
6082                (invoke "tar" "-xvf" data "-Cdata/music"))
6083              #t)))))
6084     (native-inputs
6085      `(("colobot-music"
6086         ,(origin
6087            (method url-fetch)
6088            (uri (string-append "https://colobot.info/files/music/"
6089                                "colobot-music_ogg_" version ".tar.gz"))
6090            (sha256
6091             (base32
6092              "1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
6093        ("gettext" ,gettext-minimal)
6094        ("librsvg" ,librsvg)
6095        ("po4a" ,po4a)
6096        ("python" ,python-wrapper)))
6097     (inputs
6098      `(("boost" ,boost)
6099        ("glew" ,glew)
6100        ("libogg" ,libogg)
6101        ("libpng" ,libpng)
6102        ("libsndfile" ,libsndfile)
6103        ("libvorbis" ,libvorbis)
6104        ("openal" ,openal)
6105        ("physfs" ,physfs)
6106        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-ttf)))))
6107     (synopsis "Educational programming strategy game")
6108     (description "Colobot: Gold Edition is a real-time strategy game, where
6109 you can program your units (bots) in a language called CBOT, which is similar
6110 to C++ and Java.  Your mission is to find a new planet to live and survive.
6111 You can save humanity and get programming skills!")
6112     (home-page "https://colobot.info")
6113     (license license:gpl3+)))
6114
6115 (define-public gzdoom
6116   (package
6117     (name "gzdoom")
6118     (version "4.3.2")
6119     (source
6120      (origin
6121        (method git-fetch)
6122        (uri (git-reference
6123              (url "https://github.com/coelckers/gzdoom.git")
6124              (commit (string-append "g" version))))
6125        (file-name (git-file-name name version))
6126        (sha256
6127         (base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
6128        (patches (search-patches "gzdoom-search-in-installed-share.patch"
6129                                 "gzdoom-find-system-libgme.patch"))
6130        (modules '((guix build utils)))
6131        (snippet
6132         '(begin
6133            ;; Remove some bundled libraries.  XXX There are more, but removing
6134            ;; them would require, at least, patching the build system.
6135            (with-directory-excursion "libraries"
6136              (delete-file-recursively "bzip2")
6137              (delete-file-recursively "game-music-emu")
6138              (delete-file-recursively "jpeg")
6139              (delete-file-recursively "zlib"))
6140            #t))))
6141     (arguments
6142      '(#:tests? #f
6143        #:configure-flags
6144        (let ((out (assoc-ref %outputs "out")))
6145          (list
6146           (string-append
6147            "-DCMAKE_CXX_FLAGS:="
6148            "-DSHARE_DIR=\\\"" out "/share/\\\" "
6149            "-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
6150
6151           ;; The build requires some extra convincing not to use the bundled
6152           ;; libgme previously deleted in the soure snippet.
6153           "-DFORCE_INTERNAL_GME=OFF"
6154
6155           ;; Link libraries at build time instead of loading them at run time.
6156           "-DDYN_OPENAL=OFF"
6157           "-DDYN_FLUIDSYNTH=OFF"
6158           "-DDYN_GTK=OFF"
6159           "-DDYN_MPG123=OFF"
6160           "-DDYN_SNDFILE=OFF"))
6161        #:phases
6162        (modify-phases %standard-phases
6163          (add-before 'configure 'fix-referenced-paths
6164            (lambda* (#:key inputs outputs #:allow-other-keys)
6165              (let ((fluid-3 (assoc-ref inputs "fluid-3"))
6166                    (timidity++ (assoc-ref inputs "timidity++"))
6167                    (out (assoc-ref outputs "out")))
6168
6169                (substitute*
6170                    "src/CMakeLists.txt"
6171                  (("COMMAND /bin/sh")
6172                   (string-append "COMMAND " (which "sh"))))
6173
6174                (substitute*
6175                    "libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
6176                  (("/usr/share/sounds/sf2/FluidR3_GM.sf2")
6177                   (string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
6178
6179                (substitute*
6180                    "libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
6181                  (("exename = \"timidity\"")
6182                   (string-append "exename = \"" timidity++ "/bin/timidity\"")))
6183                #t))))))
6184     (build-system cmake-build-system)
6185     (inputs `(("bzip2" ,bzip2)
6186               ("fluid-3" ,fluid-3)
6187               ("fluidsynth" ,fluidsynth)
6188               ("gtk+3" ,gtk+)
6189               ("libgme" ,libgme)
6190               ("libjpeg" ,libjpeg-turbo)
6191               ("libsndfile" ,libsndfile)
6192               ("mesa" ,mesa)
6193               ("mpg123" ,mpg123)
6194               ("openal" ,openal)
6195               ("sdl2" ,sdl2)
6196               ("timidity++" ,timidity++)
6197               ("zlib" ,zlib)))
6198     (native-inputs `(("pkg-config" ,pkg-config)
6199                      ("unzip" ,unzip)))
6200     (synopsis "Modern Doom 2 source port")
6201     (description "GZdoom is a port of the Doom 2 game engine, with a modern
6202 renderer.  It improves modding support with ZDoom's advanced mapping features
6203 and the new ZScript language.  In addition to Doom, it supports Heretic, Hexen,
6204 Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
6205     (home-page "https://zdoom.org/index")
6206     ;; The source uses x86 assembly
6207     (supported-systems '("x86_64-linux" "i686-linux"))
6208     (license (list license:gpl3+         ; gzdoom game
6209                    license:lgpl3+        ; gzdoom renderer
6210                    license:expat         ; gdtoa
6211                    (license:non-copyleft ; modified dumb
6212                     "file://dumb/licence.txt"
6213                     "Dumb license, explicitly GPL compatible.")))))
6214
6215 (define-public odamex
6216   (package
6217     (name "odamex")
6218     (version "0.8.1")
6219     (source
6220      (origin
6221        (method url-fetch)
6222        (uri (string-append
6223              "mirror://sourceforge/odamex/Odamex/" version "/"
6224              "odamex-src-" version ".tar.gz"))
6225        (sha256
6226         (base32 "1ywbqkfacc9fc5di3dn95y5ah2ys9i241j64q3f37a73x92llw1i"))))
6227     (build-system cmake-build-system)
6228     (arguments `(#:tests? #f))          ; no tests
6229     (inputs
6230      `(("sdl" ,sdl)
6231        ("sdl-mixer" ,sdl-mixer)
6232        ("zlib" ,zlib)
6233        ("libpng" ,libpng)
6234        ("alsa-lib" ,alsa-lib)))
6235     (home-page "https://odamex.net/")
6236     (synopsis "Multiplayer Doom port")
6237     (description "Odamex is a modification of the Doom engine that
6238 allows players to easily join servers dedicated to playing Doom
6239 online.")
6240     (license license:gpl2+)))
6241
6242 (define-public chocolate-doom
6243   (package
6244     (name "chocolate-doom")
6245     (version "3.0.0")
6246     (source (origin
6247               (method url-fetch)
6248               (uri (string-append "https://www.chocolate-doom.org/downloads/"
6249                                   version
6250                                   "/chocolate-doom-"
6251                                   version
6252                                   ".tar.gz"))
6253               (sha256
6254                (base32
6255                 "1f6sw6qa9z0a70dsjh5cs45fkyyxw68s7vkqlykihz8cjcisdbkk"))))
6256     (build-system gnu-build-system)
6257     (inputs `(("sdl2-net" ,sdl2-net)
6258               ("sdl2-mixer" , sdl2-mixer)
6259               ("sdl2" ,sdl2)))
6260     (native-inputs
6261      `(("pkg-config" ,pkg-config)))
6262     (synopsis "Doom source port preserving the look, feel, and bugs of vanilla
6263 Doom")
6264     (description
6265      "Chocolate Doom takes a different approach to other source ports.  Its
6266 aim is to accurately reproduce the experience of playing Vanilla Doom.  It is
6267 a conservative, historically accurate Doom source port, which is compatible
6268 with the thousands of mods and levels that were made before the Doom source
6269 code was released.  Rather than flashy new graphics, Chocolate Doom's main
6270 features are its accurate reproduction of the game as it was played in the
6271 1990s.  The project is developed around a carefully-considered philosophy that
6272 intentionally restricts which features may be added (and rejects any that
6273 affect gameplay).")
6274     (home-page "https://www.chocolate-doom.org/wiki/index.php/Chocolate_Doom")
6275     (license license:gpl2)))
6276
6277 (define-public crispy-doom
6278   (package
6279     (inherit chocolate-doom)
6280     (name "crispy-doom")
6281     (version "5.8.0")
6282     (source (origin
6283               (method git-fetch)
6284               (uri (git-reference
6285                     (url "https://github.com/fabiangreffrath/crispy-doom.git")
6286                     (commit (string-append "crispy-doom-" version))))
6287               (file-name (git-file-name name version))
6288               (sha256
6289                (base32 "1b6gn0dysv631jynh769whww9xcss1gms78sz3nrn855q1dsvcb4"))))
6290     (native-inputs
6291      (append
6292       (package-native-inputs chocolate-doom)
6293       `(("automake" ,automake)
6294         ("autoreconf" ,autoconf))))
6295     (arguments
6296      `(#:phases
6297        (modify-phases %standard-phases
6298          (replace 'bootstrap
6299            ;; The bundled autogen.sh script unconditionally runs ./configure.
6300            (lambda _ (invoke "autoreconf" "-vif"))))))
6301     (synopsis "Limit-removing enhanced-resolution Doom source port based on
6302 Chocolate Doom")
6303     (description
6304      "Crispy Doom is a friendly fork of Chocolate Doom that provides a higher
6305 display resolution, removes the static limits of the Doom engine and offers
6306 further optional visual, tactical and physical enhancements while remaining
6307 entirely config file, savegame, netplay and demo compatible with the
6308 original.")
6309     (home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
6310
6311 (define shlomif-cmake-modules
6312   (origin
6313     (method url-fetch)
6314     (uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
6315                         "raw/c505713d7a7cda608f97f01577e5868a711b883e/"
6316                         "shlomif-cmake-modules/Shlomif_Common.cmake"))
6317     (sha256
6318      (base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
6319
6320 (define-public rinutils
6321   (package
6322     (name "rinutils")
6323     (version "0.2.0")
6324     (source (origin
6325               (method git-fetch)
6326               (uri (git-reference
6327                     (url "https://github.com/shlomif/rinutils.git")
6328                     (commit version)))
6329               (file-name (git-file-name name version))
6330               (sha256
6331                (base32
6332                 "1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
6333     (native-inputs
6334      `(("perl" ,perl)
6335        ;; The following is only needed for tests.
6336        ("perl-file-find-object" ,perl-file-find-object)
6337        ("perl-test-differences" ,perl-test-differences)
6338        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6339        ("perl-io-all" ,perl-io-all)
6340        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6341        ("cmake-rules" ,shlomif-cmake-modules)
6342        ("pkg-config" ,pkg-config)))
6343     (inputs
6344      `(("cmocka" ,cmocka)
6345        ("perl-env-path", perl-env-path)
6346        ("perl-inline" ,perl-inline)
6347        ("perl-inline-c" ,perl-inline-c)
6348        ("perl-string-shellquote" ,perl-string-shellquote)
6349        ("perl-test-trailingspace" ,perl-test-trailingspace)
6350        ("perl-file-find-object-rule" ,perl-file-find-object-rule)
6351        ("perl-text-glob" ,perl-text-glob)
6352        ("perl-number-compare" ,perl-number-compare)
6353        ("perl-moo" ,perl-moo)))
6354     (arguments
6355      `(#:phases
6356        (modify-phases %standard-phases
6357          (add-after 'unpack 'fix-build-env
6358            (lambda* (#:key inputs #:allow-other-keys)
6359              (use-modules (guix build utils))
6360              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
6361                (copy-file cmake-rules
6362                           (string-append "cmake/"
6363                                          (strip-store-file-name cmake-rules)))
6364                #t)))
6365          (replace 'check
6366            (lambda _
6367              (with-directory-excursion "../source"
6368                (setenv "FCS_TEST_BUILD" "1")
6369                (setenv "RINUTILS_TEST_BUILD" "1")
6370                ;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
6371                ;; which requires tidy-all.
6372                ;; (setenv "RINUTILS_TEST_TIDY" "1")
6373                (invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
6374     (build-system cmake-build-system)
6375     (home-page "https://www.shlomifish.org/open-source/projects/")
6376     (synopsis "C11 / gnu11 utilities C library")
6377     (description "This package provides C11 / gnu11 utilities C library")
6378     (license license:expat)))
6379
6380 (define-public fortune-mod
6381   (package
6382     (name "fortune-mod")
6383     (version "2.28.0")
6384     (source
6385      (origin
6386        (method git-fetch)
6387        (uri (git-reference
6388              (url "https://github.com/shlomif/fortune-mod")
6389              (commit (string-append "fortune-mod-" version))))
6390        (file-name (git-file-name name version))
6391        (sha256
6392         (base32 "1ppzgnffgdcmq6fq4gmdq2ig10ip2bnfgklkb3i8nc6bdxm7pb89"))))
6393     (build-system cmake-build-system)
6394     (arguments
6395      `(#:test-target "check"
6396        #:phases
6397        (modify-phases %standard-phases
6398          (add-after 'unpack 'fix-build-env
6399            (lambda* (#:key inputs #:allow-other-keys)
6400              (use-modules (guix build utils))
6401              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
6402                (copy-file cmake-rules
6403                           (string-append "fortune-mod/cmake/"
6404                                          (strip-store-file-name cmake-rules)))
6405                (chdir "fortune-mod")
6406                ;; TODO: Valgrind tests fail for some reason.
6407                ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
6408                (delete-file "tests/t/valgrind.t")
6409                #t)))
6410          (add-after 'install 'fix-install-directory
6411            (lambda* (#:key outputs #:allow-other-keys)
6412              ;; Move binary from "games/" to "bin/" and remove the latter.  This
6413              ;; is easier than patching CMakeLists.txt since the tests hard-code
6414              ;; the location as well.
6415              (let* ((out   (assoc-ref outputs "out"))
6416                     (bin   (string-append out "/bin"))
6417                     (games (string-append out "/games")))
6418                (rename-file (string-append games "/fortune")
6419                             (string-append bin "/fortune"))
6420                (rmdir games)
6421                #t))))))
6422     (inputs `(("recode" ,recode)))
6423     (native-inputs
6424      `(("perl" ,perl)
6425        ;; The following is only needed for tests.
6426        ("perl-file-find-object" ,perl-file-find-object)
6427        ("perl-test-differences" ,perl-test-differences)
6428        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6429        ("perl-io-all" ,perl-io-all)
6430        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6431        ("cmake-rules" ,shlomif-cmake-modules)
6432        ("rinutils" ,rinutils)))
6433     (home-page "https://www.shlomifish.org/open-source/projects/fortune-mod/")
6434     (synopsis "The Fortune Cookie program from BSD games")
6435     (description "Fortune is a command-line utility which displays a random
6436 quotation from a collection of quotes.")
6437     (license license:bsd-4)))
6438
6439 (define xonotic-data
6440   (package
6441     (name "xonotic-data")
6442     (version "0.8.2")
6443     (source
6444      (origin
6445        (method url-fetch)
6446        (uri (string-append "http://dl.xonotic.org/xonotic-"
6447                            version ".zip"))
6448        (file-name (string-append name "-" version ".zip"))
6449        (sha256
6450         (base32
6451          "1mcs6l4clvn7ibfq3q69k2p0z6ww75rxvnngamdq5ic6yhq74bx2"))))
6452     (build-system trivial-build-system)
6453     (native-inputs
6454      `(("unzip" ,unzip)))
6455     (arguments
6456      `(#:modules ((guix build utils))
6457        #:builder
6458        (begin
6459          (use-modules (guix build utils))
6460          (let* ((out (assoc-ref %outputs "out"))
6461                 (xonotic (string-append out "/share/xonotic"))
6462                 (source (assoc-ref %build-inputs "source"))
6463                 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
6464            (copy-file source (string-append ,name "-" ,version ".zip"))
6465            (invoke unzip (string-append ,name "-" ,version ".zip"))
6466            (mkdir-p out)
6467            (mkdir-p xonotic)
6468            (chdir "Xonotic")
6469            (copy-recursively "data"
6470                              (string-append xonotic "/data"))
6471            (copy-recursively "server"
6472                              (string-append xonotic "/server"))
6473            (install-file "key_0.d0pk" xonotic)))))
6474     (home-page "http://xonotic.org")
6475     (synopsis "Data files for Xonotic")
6476     (description
6477      "Xonotic-data provides the data files required by the game Xonotic.")
6478     (license (list license:gpl2+
6479                    (license:x11-style "file://server/rcon.pl")))))
6480
6481 (define-public xonotic
6482   (package
6483     (name "xonotic")
6484     (version "0.8.2")
6485     (source
6486      (origin
6487        (method url-fetch)
6488        (uri (string-append "http://dl.xonotic.org/xonotic-"
6489                            version "-source.zip"))
6490        (file-name (string-append name "-" version ".zip"))
6491        (sha256
6492         (base32
6493          "0axxw04fyz6jlfqd0kp7hdrqa0li31sx1pbipf2j5qp9wvqicsay"))))
6494     (build-system gnu-build-system)
6495     (arguments
6496      `(#:configure-flags (list (string-append "--prefix="
6497                                               (assoc-ref %outputs "out"))
6498                                "--disable-rijndael")
6499        #:phases
6500        (modify-phases %standard-phases
6501          (add-before 'configure 'make-darkplaces
6502            (lambda* (#:key outputs #:allow-other-keys)
6503              (let* ((out (assoc-ref outputs "out"))
6504                     (sharedir (string-append out "/share/xonotic/")))
6505                (invoke "make" "-C" "source/darkplaces"
6506                        (string-append "DP_FS_BASEDIR="
6507                                       sharedir)
6508                        "DP_LINK_TO_LIBJPEG=1"
6509                        "DP_SOUND_API=ALSA"
6510                        "CC=gcc"
6511                        "-f" "makefile"
6512                        "cl-release")
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                        "sdl-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                        "sv-release"))))
6529          (add-before 'configure 'bootstrap
6530            (lambda _
6531              (chdir "source/d0_blind_id")
6532              (invoke "sh" "autogen.sh")))
6533          (add-after 'build 'install-desktop-entry
6534            (lambda* (#:key outputs #:allow-other-keys)
6535              ;; Add .desktop files for the 2 variants and the symlink
6536              (let* ((output (assoc-ref outputs "out"))
6537                     (apps (string-append output "/share/applications")))
6538                (mkdir-p apps)
6539                (with-output-to-file
6540                    (string-append apps "/xonotic-glx.desktop")
6541                  (lambda _
6542                    (format #t
6543                            "[Desktop Entry]~@
6544                      Name=xonotic-glx~@
6545                      Comment=Xonotic glx~@
6546                      Exec=~a/bin/xonotic-glx~@
6547                      TryExec=~@*~a/bin/xonotic-glx~@
6548                      Icon=xonotic~@
6549                      Categories=Game~@
6550                      Type=Application~%"
6551                            output)))
6552                (with-output-to-file
6553                    (string-append apps "/xonotic-sdl.desktop")
6554                  (lambda _
6555                    (format #t
6556                            "[Desktop Entry]~@
6557                      Name=xonotic-sdl~@
6558                      Comment=Xonotic sdl~@
6559                      Exec=~a/bin/xonotic-sdl~@
6560                      TryExec=~@*~a/bin/xonotic-sdl~@
6561                      Icon=xonotic~@
6562                      Categories=Game~@
6563                      Type=Application~%"
6564                            output)))
6565                (with-output-to-file
6566                    (string-append apps "/xonotic.desktop")
6567                  (lambda _
6568                    (format #t
6569                            "[Desktop Entry]~@
6570                      Name=xonotic~@
6571                      Comment=Xonotic~@
6572                      Exec=~a/bin/xonotic-glx~@
6573                      TryExec=~@*~a/bin/xonotic~@
6574                      Icon=xonotic~@
6575                      Categories=Game~@
6576                      Type=Application~%"
6577                            output)))
6578                #t)))
6579          (add-after 'install-desktop-entry 'install-icons
6580            (lambda* (#:key outputs #:allow-other-keys)
6581              (let ((out (assoc-ref outputs "out")))
6582                (with-directory-excursion "../../misc/logos/icons_png/"
6583                  (for-each
6584                   (lambda (file)
6585                     (let* ((size (string-filter char-numeric? file))
6586                            (icons (string-append out "/share/icons/hicolor/"
6587                                                  size "x" size "/apps")))
6588                       (mkdir-p icons)
6589                       (copy-file file (string-append icons "/xonotic.png"))))
6590                   '("xonotic_16.png" "xonotic_22.png" "xonotic_24.png"
6591                     "xonotic_32.png" "xonotic_48.png" "xonotic_64.png"
6592                     "xonotic_128.png" "xonotic_256.png" "xonotic_512.png"))))))
6593          (add-after 'install-icons 'install-binaries
6594            (lambda* (#:key outputs #:allow-other-keys)
6595              (let ((out (assoc-ref outputs "out")))
6596                (define (install src dst)
6597                  (let ((dst (string-append out dst)))
6598                    (mkdir-p (dirname dst))
6599                    (copy-file src dst)))
6600                (mkdir-p (string-append out "/bin"))
6601                (install "../darkplaces/darkplaces-dedicated"
6602                         "/bin/xonotic-dedicated")
6603                (install "../darkplaces/darkplaces-glx"
6604                         "/bin/xonotic-glx")
6605                (install "../darkplaces/darkplaces-sdl"
6606                         "/bin/xonotic-sdl")
6607                ;; Provide a default xonotic executable, defaulting to SDL.
6608                (symlink (string-append out "/bin/xonotic-sdl")
6609                         (string-append out "/bin/xonotic"))
6610                #t)))
6611          (add-after 'install-binaries 'install-data
6612            (lambda* (#:key outputs inputs #:allow-other-keys)
6613              (let* ((out (assoc-ref outputs "out"))
6614                     (data (assoc-ref inputs "xonotic-data")))
6615                (symlink (string-append data "/share/xonotic")
6616                         (string-append out "/share/xonotic"))
6617                #t)))
6618          (add-after 'install-binaries 'wrap-binaries
6619            (lambda* (#:key outputs inputs #:allow-other-keys)
6620              ;; Curl and libvorbis need to be wrapped so that we get
6621              ;; sound and networking.
6622              (let* ((out (assoc-ref outputs "out"))
6623                     (bin (string-append out "/bin/xonotic"))
6624                     (bin-sdl (string-append out "/bin/xonotic-sdl"))
6625                     (bin-glx (string-append out "/bin/xonotic-glx"))
6626                     (bin-dedicated (string-append out "/bin/xonotic-dedicated"))
6627                     (curl (assoc-ref inputs "curl"))
6628                     (vorbis (assoc-ref inputs "libvorbis")))
6629                (wrap-program bin
6630                  `("LD_LIBRARY_PATH" ":" prefix
6631                    (,(string-append curl "/lib:" vorbis "/lib"))))
6632                (wrap-program bin-sdl
6633                  `("LD_LIBRARY_PATH" ":" prefix
6634                    (,(string-append curl "/lib:" vorbis "/lib"))))
6635                (wrap-program bin-glx
6636                  `("LD_LIBRARY_PATH" ":" prefix
6637                    (,(string-append curl "/lib:" vorbis "/lib"))))
6638                (wrap-program bin-dedicated
6639                  `("LD_LIBRARY_PATH" ":" prefix
6640                    (,(string-append curl "/lib:" vorbis "/lib"))))
6641                #t))))))
6642     (inputs
6643      `(("xonotic-data" ,xonotic-data)
6644        ("alsa-lib" ,alsa-lib)
6645        ("curl" ,curl)
6646        ("libjpeg" ,libjpeg-turbo)
6647        ("libmodplug" ,libmodplug)
6648        ("libvorbis" ,libvorbis)
6649        ("libogg" ,libogg)
6650        ("libxpm" ,libxpm)
6651        ("libxxf86dga" ,libxxf86dga)
6652        ("libxxf86vm" ,libxxf86vm)
6653        ("libx11" ,libx11)
6654        ("libxext" ,libxext)
6655        ("libxau" ,libxau)
6656        ("libxdmcp" ,libxdmcp)
6657        ("mesa" ,mesa)
6658        ("glu" ,glu)
6659        ("freetype" ,freetype)
6660        ("sdl2" ,sdl2)
6661        ("libpng" ,libpng)
6662        ("hicolor-icon-theme" ,hicolor-icon-theme)))
6663     (native-inputs
6664      `(("unzip" ,unzip)
6665        ("autoconf" ,autoconf)
6666        ("automake" ,automake)
6667        ("pkg-config" ,pkg-config)
6668        ("libtool" ,libtool)
6669        ("gmp" ,gmp)))
6670     (home-page "https://xonotic.org")
6671     (synopsis "Fast-paced first-person shooter game")
6672     (description
6673      "Xonotic is a free, fast-paced first-person shooter.
6674 The project is geared towards providing addictive arena shooter
6675 gameplay which is all spawned and driven by the community itself.
6676 Xonotic is a direct successor of the Nexuiz project with years of
6677 development between them, and it aims to become the best possible
6678 open-source FPS of its kind.")
6679     (license (list license:gpl2+
6680                    license:bsd-3 ; /source/d0_blind_id folder and others
6681                    (license:x11-style "" "See file rcon.pl.")))))
6682
6683 (define-public frotz
6684   (package
6685     (name "frotz")
6686     (version "2.44")
6687     (source (origin
6688               (method url-fetch)
6689               (uri (list (string-append
6690                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6691                           "frotz/frotz-" version ".tar.gz")
6692                          (string-append
6693                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6694                           "frotz/frotz-" version ".tar.gz")))
6695               (sha256
6696                (base32
6697                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6698     (build-system gnu-build-system)
6699     (arguments
6700      `(#:tests? #f                      ; there are no tests
6701        #:phases
6702        (modify-phases %standard-phases
6703          (delete 'configure)
6704          (add-before 'build 'curses
6705            (lambda _
6706              (substitute* "Makefile"
6707                (("lcurses") "lncurses"))
6708              #t))
6709          (replace 'install
6710            (lambda* (#:key outputs #:allow-other-keys)
6711              (let* ((out (assoc-ref outputs "out"))
6712                     (bin (string-append out "/bin"))
6713                     (man (string-append out "/share/man/man6")))
6714                (install-file "frotz" bin)
6715                (mkdir-p man)
6716                (install-file "doc/frotz.6" man)
6717                #t))))))
6718     (inputs `(("libmodplug" ,libmodplug)
6719               ("libsamplerate" ,libsamplerate)
6720               ("libsndfile" ,libsndfile)
6721               ("libvorbis" ,libvorbis)
6722               ("ncurses" ,ncurses)))
6723     (synopsis "Portable Z-machine interpreter (ncurses version) for text adventure games")
6724     (description "Frotz is an interpreter for Infocom games and other Z-machine
6725 games in the text adventure/interactive fiction genre.  This version of Frotz
6726 complies with standard 1.0 of Graham Nelson's specification.  It plays all
6727 Z-code games V1-V8, including V6, with sound support through libao, and uses
6728 ncurses for text display.")
6729     (home-page "http://frotz.sourceforge.net")
6730     (license license:gpl2+)))
6731
6732 (define-public frotz-dumb-terminal
6733   (package
6734     (name "frotz-dumb-terminal")
6735     (version "2.44")
6736     (source (origin
6737               (method url-fetch)
6738               (uri (list (string-append
6739                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6740                           "frotz/frotz-" version ".tar.gz")
6741                          (string-append
6742                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6743                           "frotz/frotz-" version ".tar.gz")))
6744               (sha256
6745                (base32
6746                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6747     (build-system gnu-build-system)
6748     (arguments
6749      `(#:tests? #f                      ; there are no tests
6750        #:phases
6751        (modify-phases %standard-phases
6752          (delete 'configure)
6753          (replace 'build
6754            (lambda _
6755              (invoke "make" "dumb")))
6756          (replace 'install
6757            (lambda* (#:key outputs #:allow-other-keys)
6758              (let* ((out (assoc-ref outputs "out"))
6759                     (bin (string-append out "/bin"))
6760                     (man (string-append out "/share/man/man6")))
6761                (install-file "dfrotz" bin)
6762                (mkdir-p man)
6763                (install-file "doc/dfrotz.6" man)
6764                #t))))))
6765     (synopsis "Portable Z-machine dumb interpreter for text adventure games")
6766     (description "Frotz is an interpreter for Infocom games and
6767 other Z-machine games in the text adventure/interactive fiction genre.
6768 dfrotz is the dumb interface version.  You get no screen control; everything
6769 is just printed to the terminal line by line.  The terminal handles all the
6770 scrolling.  Maybe you'd like to experience what it's like to play Adventure on
6771 a teletype.  A much cooler use for compiling Frotz with the dumb interface is
6772 that it can be wrapped in CGI scripting, PHP, and the like to allow people
6773 to play games on webpages.  It can also be made into a chat bot.")
6774     (home-page "http://frotz.sourceforge.net")
6775     (license license:gpl2+)))
6776
6777 (define-public frotz-sdl
6778   (let* ((commit "4de8c34f2116fff554af6216c30ec9d41bf50b24"))
6779     (package
6780       (name "frotz-sdl")
6781       (version "2.45pre")
6782       (source (origin
6783                 (method git-fetch)
6784                 (uri (git-reference
6785                       (url "https://gitlab.com/DavidGriffith/frotz")
6786                       (commit commit)))
6787                 (sha256
6788                  (base32
6789                   "18ms21pcrl7ipcnyqnf8janamkryzx78frsgd9kfk67jvbj0z2k8"))
6790                 (file-name (git-file-name name version))))
6791       (build-system gnu-build-system)
6792       (arguments
6793        `(#:tests? #f                    ; there are no tests
6794          #:phases
6795          (modify-phases %standard-phases
6796            (delete 'configure)
6797            (add-before 'build 'patch-makefile
6798              (lambda _
6799                (substitute* "Makefile"
6800                  (("lcurses") "lncurses")
6801                  (("^BUILD_DATE_TIME =.*$")
6802                   "BUILD_DATE_TIME = \"2.45pre-20180907.00000\"\n"))
6803                #t))
6804            (replace 'build
6805              (lambda _
6806                (invoke "make" "sdl")))
6807            (replace 'install
6808              (lambda* (#:key outputs #:allow-other-keys)
6809                (let* ((out (assoc-ref outputs "out"))
6810                       (bin (string-append out "/bin"))
6811                       (man (string-append out "/share/man/man6")))
6812                  (install-file "sfrotz" bin)
6813                  (mkdir-p man)
6814                  (install-file "doc/sfrotz.6" man)
6815                  #t))))))
6816       (native-inputs
6817        `(("pkg-config" ,pkg-config)
6818          ("which" ,which)
6819          ("perl" ,perl)))
6820       (inputs `(("sdl2" ,sdl2)
6821                 ("sdl2-mixer" ,sdl2-mixer)
6822                 ("libmodplug" ,libmodplug)
6823                 ("libsamplerate" ,libsamplerate)
6824                 ("libsndfile" ,libsndfile)
6825                 ("libvorbis" ,libvorbis)
6826                 ("ncurses" ,ncurses)
6827                 ("freetype" ,freetype)
6828                 ("libjpeg-turbo" ,libjpeg-turbo)))
6829       (synopsis "Portable Z-machine interpreter (SDL port) for text adventure games")
6830       (description "Frotz is an interpreter for Infocom games and other Z-machine
6831 games in the text adventure/interactive fiction genre.  This version of Frotz
6832 using SDL fully supports all these versions of the Z-Machine including the
6833 graphical version 6.  Graphics and sound are created through the use of the SDL
6834 libraries.  AIFF sound effects and music in MOD and OGG formats are supported
6835 when packaged in Blorb container files or optionally from individual files.")
6836       (home-page "http://frotz.sourceforge.net")
6837       (license license:gpl2+))))
6838
6839 (define-public libmanette
6840   (package
6841     (name "libmanette")
6842     (version "0.2.4")
6843     (source (origin
6844               (method url-fetch)
6845               (uri (string-append "mirror://gnome/sources/libmanette/"
6846                                   (version-major+minor version) "/"
6847                                   "libmanette-" version ".tar.xz"))
6848               (sha256
6849                (base32
6850                 "1xrc6rh73v5w3kbkflzv1yg8sbxk4wf06hfk95raxhxlssza9q2g"))))
6851     (build-system meson-build-system)
6852     (native-inputs
6853      `(("glib" ,glib "bin")             ; for glib-compile-resources
6854        ("gobject-introspection" ,gobject-introspection)
6855        ("pkg-config" ,pkg-config)
6856        ("vala" ,vala)))
6857     (inputs
6858      `(("libevdev" ,libevdev)
6859        ("libgudev" ,libgudev)))
6860     (home-page "https://wiki.gnome.org/Apps/Games")
6861     (synopsis "Game controller library")
6862     (description "Libmanette is a small GObject library giving you simple
6863 access to game controllers.  It supports the de-facto standard gamepads as
6864 defined by the W3C standard Gamepad specification or as implemented by the SDL
6865 GameController.")
6866     (license license:lgpl2.1+)))
6867
6868 (define-public quadrapassel
6869   (package
6870     (name "quadrapassel")
6871     (version "3.32.0")
6872     (source (origin
6873               (method url-fetch)
6874               (uri (string-append "mirror://gnome/sources/quadrapassel/"
6875                                   (version-major+minor version) "/"
6876                                   "quadrapassel-" version ".tar.xz"))
6877               (sha256
6878                (base32
6879                 "1zhi1957knz9dm98drn2dh95mr33sdch590yddh1f8r6bzsfjvpy"))))
6880     (build-system meson-build-system)
6881     (arguments
6882      '(#:glib-or-gtk? #t
6883        #:phases
6884        (modify-phases %standard-phases
6885          (add-after 'unpack 'skip-gtk-update-icon-cache
6886            ;; Don't create 'icon-theme.cache'.
6887            (lambda _
6888              (substitute* "build-aux/meson_post_install.py"
6889                (("gtk-update-icon-cache") (which "true")))
6890              #t)))))
6891     (native-inputs
6892      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
6893        ("gettext" ,gettext-minimal)
6894        ("glib" ,glib "bin")             ;for glib-compile-resources
6895        ("itstool" ,itstool)
6896        ("libxml2" ,libxml2)             ;for xmllint
6897        ("pkg-config" ,pkg-config)
6898        ("vala" ,vala)))
6899     (inputs
6900      `(("clutter" ,clutter)
6901        ("clutter-gtk" ,clutter-gtk)
6902        ("gtk+" ,gtk+)
6903        ("libcanberra" ,libcanberra)
6904        ("libmanette" ,libmanette)
6905        ("librsvg" ,librsvg)))
6906     (home-page "https://wiki.gnome.org/Apps/Quadrapassel")
6907     (synopsis "GNOME version of Tetris")
6908     (description "Quadrapassel comes from the classic falling-block game,
6909 Tetris.  The goal of the game is to create complete horizontal lines of
6910 blocks, which will disappear.  The blocks come in seven different shapes made
6911 from four blocks each: one straight, two L-shaped, one square, and two
6912 S-shaped.  The blocks fall from the top center of the screen in a random
6913 order.  You rotate the blocks and move them across the screen to drop them in
6914 complete lines.  You score by dropping blocks fast and completing lines.  As
6915 your score gets higher, you level up and the blocks fall faster.")
6916     (license license:gpl2+)))
6917
6918 (define-public endless-sky
6919   (package
6920     (name "endless-sky")
6921     (version "0.9.12")
6922     (source
6923       (origin
6924         (method git-fetch)
6925         (uri (git-reference
6926                (url "https://github.com/endless-sky/endless-sky")
6927                (commit (string-append "v" version))))
6928         (file-name (git-file-name name version))
6929         (sha256
6930          (base32 "18nkl4s3r5sy3sd9lhbdg9160c7fggklklprx0d5azifc8g6k0wj"))))
6931     (build-system scons-build-system)
6932     (arguments
6933      `(#:scons ,scons-python2
6934        #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6935        #:tests? #f ; no tests
6936        #:phases
6937        (modify-phases %standard-phases
6938          (add-after 'unpack 'patch-resource-locations
6939            (lambda* (#:key outputs #:allow-other-keys)
6940              (substitute* "source/Files.cpp"
6941                (("/usr/local/")
6942                 (string-append (assoc-ref outputs "out") "/")))
6943              #t))
6944          (add-after 'unpack 'patch-scons
6945            (lambda _
6946              (substitute* "SConstruct"
6947                ;; Keep environmental variables
6948                (("Environment\\(\\)")
6949                 "Environment(ENV = os.environ)")
6950                ;; Install into %out/bin
6951                (("games\"") "bin\""))
6952              #t)))))
6953     (inputs
6954      `(("glew" ,glew)
6955        ("libjpeg" ,libjpeg-turbo)
6956        ("libmad" ,libmad)
6957        ("libpng" ,libpng)
6958        ("openal" ,openal)
6959        ("sdl2" ,sdl2)))
6960     (home-page "https://endless-sky.github.io/")
6961     (synopsis "2D space trading and combat game")
6962     (description "Endless Sky is a 2D space trading and combat game.  Explore
6963 other star systems.  Earn money by trading, carrying passengers, or completing
6964 missions.  Use your earnings to buy a better ship or to upgrade the weapons and
6965 engines on your current one.  Blow up pirates.  Take sides in a civil war.  Or
6966 leave human space behind and hope to find friendly aliens whose culture is more
6967 civilized than your own.")
6968     (license (list license:gpl3+
6969                    license:cc-by-sa3.0
6970                    license:cc-by-sa4.0
6971                    license:public-domain))))
6972
6973 (define-public stepmania
6974   (package
6975     (name "stepmania")
6976     (version "5.1.0-b2")
6977     (source
6978      (origin
6979        (method git-fetch)
6980        (uri (git-reference
6981              (url "https://github.com/stepmania/stepmania.git")
6982              (commit (string-append "v" version))))
6983        (file-name (git-file-name name version))
6984        (sha256
6985         (base32
6986          "0a7y9l7xm510vgnpmj1is7p9m6d6yd0fcaxrjcickz295k5w3rdn"))
6987        (modules '((guix build utils)))
6988        (snippet
6989         '(begin
6990            ;; Remove song files, which are licensed under a non-commercial
6991            ;; clause, and a course pointing to them.
6992            (for-each delete-file-recursively
6993                      '("Songs/StepMania 5/Goin' Under"
6994                        "Songs/StepMania 5/MechaTribe Assault"
6995                        "Songs/StepMania 5/Springtime"))
6996            (for-each delete-file '("Courses/Default/Jupiter.crs"
6997                                    "Courses/Default/Jupiter.png"))
6998            ;; Unbundle libpng.
6999            (substitute* "extern/CMakeLists.txt"
7000              (("include\\(CMakeProject-png.cmake\\)") ""))
7001            (delete-file-recursively "extern/libpng")
7002            #t))))
7003     (build-system cmake-build-system)
7004     (arguments
7005      `(#:tests? #f                      ;FIXME: couldn't find how to run tests
7006        #:build-type "Release"
7007        #:out-of-source? #f              ;for the 'install-desktop' phase
7008        #:configure-flags
7009        (list "-DWITH_SYSTEM_FFMPEG=1"
7010              ;; SSE instructions are available on Intel systems only.
7011              ,@(if (any (cute string-prefix? <> (or (%current-target-system)
7012                                                     (%current-system)))
7013                         '("x64_64" "i686"))
7014                    '()
7015                    '("-DWITH_SSE2=NO"))
7016              ;; Configuration cannot find GTK2 without the two following
7017              ;; flags.
7018              (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
7019                             (assoc-ref %build-inputs "gtk+")
7020                             "/lib/gtk-2.0/include")
7021              (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
7022                             (assoc-ref %build-inputs "glib")
7023                             "/lib/glib-2.0/include"))
7024        #:phases
7025        (modify-phases %standard-phases
7026          (add-after 'unpack 'ensure-application-files-can-be-found
7027            (lambda* (#:key outputs #:allow-other-keys)
7028              (let ((out (assoc-ref outputs "out")))
7029                (substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
7030                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
7031                   (string-append "\"" out
7032                                  "/share/stepmania/GtkModule.so\"")))
7033                (substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
7034                  (("Root = sDirOfExecutable")
7035                   (string-append "Root = \"" out "/share/stepmania/\""))
7036                  (("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
7037                   (string-append "\"" out "/share/stepmania/" dir "\"")))
7038                (substitute* "src/RageFileManager.cpp"
7039                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
7040                   (string-append "\"" out "/share/stepmania/\""))))
7041              #t))
7042          (add-after 'unpack 'fix-install-subdir
7043            ;; Installation would be done in "%out/stepmania-X.Y", but we
7044            ;; prefer the more common layout "%out/share/stepmania".
7045            (lambda _
7046              (substitute* "src/CMakeLists.txt"
7047                (("\"stepmania-.*?\"") "\"share/stepmania\""))
7048              #t))
7049          (add-after 'unpack 'unbundle-libpng
7050            (lambda* (#:key inputs #:allow-other-keys)
7051              (substitute* "src/CMakeLists.txt"
7052                (("\\$\\{SM_EXTERN_DIR\\}/libpng/include")
7053                 (string-append (assoc-ref inputs "libpng") "/include")))
7054              #t))
7055          (add-after 'install 'install-executable
7056            (lambda* (#:key outputs #:allow-other-keys)
7057              (let* ((out (assoc-ref outputs "out"))
7058                     (bin (string-append out "/bin"))
7059                     (exe (string-append out "/share/stepmania/stepmania")))
7060                (mkdir-p bin)
7061                (symlink exe (string-append bin "/stepmania"))
7062                #t)))
7063          (add-after 'install-executable 'install-desktop
7064            (lambda* (#:key outputs #:allow-other-keys)
7065              (let* ((out (assoc-ref outputs "out"))
7066                     (share (string-append out "/share"))
7067                     (applications (string-append share "/applications"))
7068                     (icons (string-append share "/icons")))
7069                (install-file "stepmania.desktop" applications)
7070                (mkdir-p icons)
7071                (copy-recursively "icons" icons)
7072                #t)))
7073          ;; Move documentation in a more usual place, i.e.,
7074          ;; "%out/share/doc/stepmania/".
7075          (add-after 'install-desktop 'install-doc
7076            (lambda* (#:key outputs #:allow-other-keys)
7077              (let* ((out (assoc-ref outputs "out"))
7078                     (share (string-append out "/share")))
7079                (with-directory-excursion share
7080                  (mkdir-p "doc")
7081                  (symlink "../stepmania/Docs" "doc/stepmania"))
7082                #t))))))
7083     (native-inputs
7084      `(("pkg-config" ,pkg-config)
7085        ("yasm" ,yasm)))
7086     (inputs
7087      `(("alsa-lib" ,alsa-lib)
7088        ;; Per upstream, StepMania is only guaranteed to work with a very
7089        ;; specific FFmpeg version, which is included in the repository as
7090        ;; a Git submodule.  This particular version requirement usually
7091        ;; changes every few years.
7092        ("ffmpeg" ,ffmpeg-for-stepmania)
7093        ("glib" ,glib)
7094        ("glew" ,glew)
7095        ("gtk+" ,gtk+-2)
7096        ("jsoncpp" ,jsoncpp)
7097        ("libpng" ,libpng)
7098        ("libjpeg" ,libjpeg-turbo)
7099        ("libmad" ,libmad)
7100        ("libogg" ,libogg)
7101        ("libva" ,libva)
7102        ("libvorbis" ,libvorbis)
7103        ("libxinerama" ,libxinerama)
7104        ("libxrandr" ,libxrandr)
7105        ("mesa" ,mesa)
7106        ("pcre" ,pcre)
7107        ("pulseaudio" ,pulseaudio)
7108        ("sdl" ,sdl2)
7109        ("udev" ,eudev)
7110        ("zlib" ,zlib)))
7111     (synopsis "Advanced rhythm game designed for both home and arcade use")
7112     (description "StepMania is a dance and rhythm game.  It features 3D
7113 graphics, keyboard and dance pad support, and an editor for creating your own
7114 steps.
7115
7116 This package provides the core application, but no song is shipped.  You need
7117 to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
7118     (home-page "https://www.stepmania.com")
7119     (license license:expat)))
7120
7121 (define-public btanks
7122   (package
7123     (name "btanks")
7124     (version "0.9.8083")
7125     (source
7126      (origin
7127        (method url-fetch)
7128        (uri (string-append "mirror://sourceforge/btanks/btanks-source/"
7129                            "btanks-" version ".tar.bz2"))
7130        (sha256
7131         (base32
7132          "0ha35kxc8xlbg74wsrbapfgxvcrwy6psjkqi7c6adxs55dmcxliz"))))
7133     (build-system scons-build-system)
7134     (arguments
7135      `(#:tests? #f                      ; there are none
7136        #:scons ,scons-python2
7137        #:scons-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
7138        #:phases
7139        (modify-phases %standard-phases
7140          (add-after 'unpack 'replace-removed-scons-syntax
7141            (lambda _
7142              (substitute* "SConstruct"
7143                (("Options") "Variables")
7144                (("opts.Add\\(BoolOption.*") "opts.Add('gcc_visibility', 'gcc visibility', 'true')")
7145                (("opts.Add\\(EnumOption.*") "opts.Add('mode', 'build mode', 'release')"))
7146              #t))
7147          (add-after 'set-paths 'set-sdl-paths
7148            (lambda* (#:key inputs #:allow-other-keys)
7149              (setenv "CPATH"
7150                      (string-append (assoc-ref inputs "sdl")
7151                                     "/include/SDL:"
7152                                     (or (getenv "CPATH") "")))
7153              #t))
7154          (add-after 'unpack 'fix-compilation-errors
7155            (lambda _
7156              (substitute* "mrt/base_file.h"
7157                (("#include <string>" m)
7158                 (string-append m "\n#include <sys/types.h>")))
7159              (substitute* '("engine/sl08/sl08.h"
7160                             "engine/sl08/sl08.py")
7161                (("signal = NULL") "signal = 0")
7162                (("object\\(NULL\\)") "object(0)")
7163                (("func\\(NULL\\)") "func(0)")
7164                ((" connect\\(signal_ref\\)")
7165                 " this->connect(signal_ref)"))
7166              (substitute* "math/range_list.h"
7167                ((" lower_bound\\(value\\)")
7168                 " this->lower_bound(value)")
7169                (("      erase\\(i\\)")
7170                 "       this->erase(i)"))
7171              (substitute* "clunk/source.cpp"
7172                (("using namespace clunk" m)
7173                 (string-append "# define pow10f(x) exp10f(x)\n" m)))
7174              #t))
7175          (add-after 'unpack 'find-lua
7176            (lambda _
7177              (substitute* "engine/SConscript"
7178                (("lua5.1") "lua-5.1")
7179                (("bt_libs.append\\(lua\\)")
7180                 "bt_libs.append(\"lua\")"))
7181              #t)))))
7182     (inputs
7183      `(("expat" ,expat)
7184        ("glu" ,glu)
7185        ("libsmpeg" ,libsmpeg-with-sdl1)
7186        ("libvorbis" ,libvorbis)
7187        ("lua51" ,lua-5.1)
7188        ("sdl" ,(sdl-union (list sdl
7189                                 sdl-mixer
7190                                 sdl-image
7191                                 sdl-ttf)))
7192        ("zlib" ,zlib)))
7193     (native-inputs
7194      `(("pkg-config" ,pkg-config)
7195        ("zip" ,zip)))
7196     (home-page "http://btanks.sourceforge.net")
7197     (synopsis "Multiplayer tank battle game")
7198     (description "Battle Tanks (also known as \"btanks\") is a funny battle
7199 game, where you can choose one of three vehicles and eliminate your enemy
7200 using the whole arsenal of weapons.  It has original cartoon-like graphics and
7201 cool music, it’s fun and dynamic, it has several network modes for deathmatch
7202 and cooperative.")
7203     ;; Some parts (e.g. mrt/b64.cpp) are LGPLv2.1+, but the whole package is
7204     ;; released under GPLv2 or later.  It comes with extra exceptions for the
7205     ;; developers.
7206     (license (list license:gpl2+ license:lgpl2.1+))))
7207
7208 (define-public slingshot
7209   (package
7210     (name "slingshot")
7211     (version "0.9")
7212     (source
7213      (origin
7214        (method git-fetch)
7215        (uri (git-reference
7216              (url "https://github.com/ryanakca/slingshot.git")
7217              (commit version)))
7218        (file-name (git-file-name name version))
7219        (sha256
7220         (base32
7221          "19m8b6nsi786bc6gmkp185mwri3r5y249gjmqd5qsc23nnfhgrs1"))))
7222     (build-system python-build-system)
7223     (arguments
7224      `(#:python ,python-2))
7225     (inputs
7226      `(("python-pygame" ,python2-pygame)))
7227     (home-page "https://github.com/ryanakca/slingshot")
7228     (synopsis "Simple 2D shooting strategy game set in space")
7229     (description "Slingshot is a two-dimensional strategy game where two
7230 players attempt to shoot one another through a section of space populated by
7231 planets.  The main feature of the game is that the shots, once fired, are
7232 affected by the gravity of the planets.")
7233     (license license:gpl2+)))
7234
7235 (define-public 4dtris
7236   (package
7237     (name "4dtris")
7238     (version "0.4.3")
7239     (source
7240      (origin
7241        (method url-fetch)
7242        (uri (string-append "https://launchpad.net/4dtris/"
7243                            (version-major+minor version)
7244                            "/" version "/+download/4dtris_"
7245                            version ".orig.tar.gz"))
7246        (sha256
7247         (base32
7248          "1nfkhcm0l89jyw8yr65na97g4l385zhjf7whkyg47c3v5sdqq2g7"))))
7249     (build-system gnu-build-system)
7250     (arguments
7251      `(#:phases
7252        (modify-phases %standard-phases
7253          (add-after 'unpack 'fix-install-directories
7254            (lambda* (#:key outputs #:allow-other-keys)
7255              (let ((out (assoc-ref outputs "out")))
7256                (substitute* "Makefile.in"
7257                  (("bindir = /usr/games")
7258                   (string-append "bindir = " out "/bin"))
7259                  (("/usr/share/applications")
7260                   (string-append out "/share/applications"))
7261                  (("/usr/share/games/4dtris")
7262                   (string-append out "/share/4dtris"))))
7263              #t))
7264          (add-after 'set-paths 'set-sdl-paths
7265            (lambda* (#:key inputs #:allow-other-keys)
7266              (setenv "CPATH"
7267                      (string-append (assoc-ref inputs "sdl")
7268                                     "/include/SDL:"
7269                                     (or (getenv "CPATH") "")))
7270              #t)))))
7271     (inputs
7272      `(("fontconfig" ,fontconfig)
7273        ("freeglut" ,freeglut)
7274        ("sdl" ,(sdl-union (list sdl sdl-ttf)))))
7275     (home-page "https://launchpad.net/4dtris/")
7276     (synopsis "4D Tetris")
7277     (description "4D-TRIS is an alteration of the well-known Tetris game.  The
7278 game field is extended to 4D space, which has to filled up by the gamer with
7279 4D hyper cubes.")
7280     (license license:gpl3)))
7281
7282 (define-public arx-libertatis
7283   (package
7284     (name "arx-libertatis")
7285     (version "1.1.2")
7286     (source
7287      (origin
7288        (method url-fetch)
7289        (uri (string-append "http://arx-libertatis.org/files/arx-libertatis-"
7290                            version ".tar.xz"))
7291        (sha256
7292         (base32
7293          "0hjfxlsmp8wwqr06snv2dlly2s79ra0d9aw49gkp6rn8m50b9bc2"))))
7294     (build-system cmake-build-system)
7295     (outputs '("out" "installer"))
7296     (arguments
7297      '(#:tests? #f                      ; No tests.
7298        #:phases
7299        (modify-phases %standard-phases
7300          (add-after 'unpack 'fix-install-helper-paths
7301            (lambda* (#:key inputs #:allow-other-keys)
7302              (let ((p7zip (assoc-ref inputs "p7zip"))
7303                    (innoextract (assoc-ref inputs "innoextract"))
7304                    (wget (assoc-ref inputs "wget"))
7305                    (zenity (assoc-ref inputs "zenity")))
7306                (substitute* "scripts/arx-install-data"
7307                  (("have innoextract")
7308                   (string-append "have " innoextract "/bin/innoextract"))
7309                  (("then innoextract")
7310                   (string-append "then " innoextract "/bin/innoextract"))
7311                  (("else innoextract")
7312                   (string-append "else " innoextract "/bin/innoextract"))
7313                  (("for _extract_zip_sz in 7za 7z")
7314                   (string-append "for _extract_zip_sz in " p7zip "/bin/7za"))
7315                  (("else if have 7z")
7316                   (string-append "else if have " p7zip "/bin/7za"))
7317                  (("7z x -tiso")
7318                   (string-append p7zip "/bin/7z x -tiso"))
7319                  (("if have wget")
7320                   (string-append "if have " wget "/bin/wget"))
7321                  (("wget -O")
7322                   (string-append wget "/bin/wget -O"))
7323                  (("for backend in \\$preferred zenity")
7324                   (string-append "for backend in $preferred " zenity "/bin/zenity"))
7325                  (("zenity +--title")
7326                   (string-append zenity "/bin/zenity --title"))
7327                  (("^zenity\\)")
7328                   (string-append zenity "/bin/zenity)"))))
7329              #t))
7330          (add-after 'install 'move-installer
7331            (lambda* (#:key outputs #:allow-other-keys)
7332              (let ((out (assoc-ref outputs "out"))
7333                    (installer (assoc-ref outputs "installer")))
7334                (mkdir-p (string-append installer "/bin"))
7335                (rename-file (string-append out "/bin/arx-install-data")
7336                             (string-append installer "/bin/arx-install-data"))))))))
7337     (inputs
7338      `(("sdl" ,sdl)                     ; Switch to sdl2 in >1.1.2.
7339        ("mesa" ,mesa)                   ; Switch to libepoxy in >1.1.2.
7340        ("glew" ,glew)
7341        ("openal" ,openal)
7342        ("zlib" ,zlib)
7343        ("boost" ,boost)
7344        ("glm" ,glm)
7345        ("freetype" ,freetype)
7346        ;; The following are only needed by the arx-install-data script.
7347        ("p7zip" ,p7zip) ; Install-helper uses it to extract ISO and .cab archives.
7348        ("zenity" ,zenity)           ; GUI for install-helper.
7349        ("wget" ,wget)     ; Used by the install-helper to download the patch.
7350        ;; The install-helper needs it to extract the patch.
7351        ("innoextract" ,innoextract)))
7352     (home-page "https://arx-libertatis.org/")
7353     (synopsis "Port of Arx Fatalis, a first-person role-playing game")
7354     (description "Arx Libertatis is a cross-platform port of Arx Fatalis, a 2002
7355 first-person role-playing game / dungeon crawler developed by Arkane Studios.
7356 This port however does not include the game data, so you need to obtain a copy
7357 of the original Arx Fatalis or its demo to play Arx Libertatis.  Arx Fatalis
7358 features crafting, melee and ranged combat, as well as a unique casting system
7359 where the player draws runes in real time to effect the desired spell.")
7360     (license license:gpl3+)))
7361
7362 (define-public edgar
7363   (package
7364     (name "edgar")
7365     (version "1.33")
7366     (source
7367      (origin
7368        (method url-fetch)
7369        (uri
7370         (string-append "https://github.com/riksweeney/edgar/releases/download/"
7371                        version "/edgar-" version "-1.tar.gz"))
7372        (sha256
7373         (base32 "1mbx7dvizdca4g1blcv3bdh6yxd13k47rkya4rdzg0nvvz24m175"))))
7374     (build-system gnu-build-system)
7375     (arguments '(#:tests? #f            ; there are no tests
7376                  #:make-flags
7377                  (list "CC=gcc"
7378                        (string-append "PREFIX=" (assoc-ref %outputs "out"))
7379                        (string-append "BIN_DIR=" (assoc-ref %outputs "out") "/bin/"))
7380                  #:phases
7381                  (modify-phases %standard-phases
7382                    (delete 'configure)
7383                    (add-before 'build 'fix-env
7384                      (lambda* (#:key inputs #:allow-other-keys)
7385                        (setenv "CPATH"
7386                                (string-append (assoc-ref inputs "sdl2-union")
7387                                               "/include/SDL2:"
7388                                               (or (getenv "CPATH") "")))
7389                        #t)))))
7390     (inputs
7391      `(("sdl2-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
7392        ("zlib" ,zlib)))
7393     (native-inputs
7394      `(("pkg-config" ,pkg-config)
7395        ("autoconf" ,autoconf)
7396        ("automake" ,automake)
7397        ("gnu-gettext" ,gettext-minimal)
7398        ("libtool" ,libtool)
7399        ("which" ,which)))
7400     (synopsis "2d action platformer game")
7401     (description "The Legend of Edgar is a 2D platform game with a persistent world.
7402 When Edgar's father fails to return home after venturing out one dark and stormy night,
7403 Edgar fears the worst: he has been captured by the evil sorcerer who lives in
7404 a fortress beyond the forbidden swamp.")
7405     (home-page "https://www.parallelrealities.co.uk/games/edgar/")
7406     (license license:gpl2+)))
7407
7408 (define-public openclonk
7409   (package
7410     (name "openclonk")
7411     (version "8.1")
7412     (source (origin
7413               (method url-fetch)
7414               (uri (string-append
7415                     "https://www.openclonk.org/builds/release/" version "/"
7416                     "openclonk-" version "-src.tar.bz2"))
7417               (sha256
7418                (base32
7419                 "0imkqjp8lww5p0cnqf4k4mb2v682mnsas63qmiz17rspakr7fxik"))))
7420     (build-system cmake-build-system)
7421     (arguments
7422      `(#:configure-flags '("-DAudio_TK=OpenAL")
7423        #:test-target "tests"
7424        #:phases
7425        (modify-phases %standard-phases
7426          (add-after 'unpack 'prepare-gmock
7427            (lambda* (#:key inputs #:allow-other-keys)
7428              (mkdir "gmock")
7429              (copy-recursively (assoc-ref inputs "googlemock") "gmock")
7430              (substitute* "tests/CMakeLists.txt"
7431                (("/usr/src/gmock")
7432                 (string-append (getcwd) "/gmock/googlemock"))
7433                (("/usr/src/gtest")
7434                 (string-append (getcwd) "/gmock/googletest"))
7435                (("PATH_SUFFIXES \"src\" \"gtest\"")
7436                 "PATH_SUFFIXES \"src\""))
7437              #t))
7438          (add-after 'unpack 'adjust-backward-cpp-includes
7439            (lambda _
7440              ;; XXX: The bundled backward-cpp exports a CMake "interface"
7441              ;; that includes external libraries such as libdl from glibc.
7442              ;; By default, CMake interface includes are treated as "system
7443              ;; headers", and GCC behaves poorly when glibc is passed as a
7444              ;; system header (causing #include_next failures).
7445
7446              ;; Here we prevent targets that consume the Backward::Backward
7447              ;; interface from treating it as "system includes".
7448              (substitute* "CMakeLists.txt"
7449                (("target_link_libraries\\((.+) Backward::Backward\\)" all target)
7450                 (string-append "set_property(TARGET " target " PROPERTY "
7451                                "NO_SYSTEM_FROM_IMPORTED true)\n"
7452                                all)))
7453              #t))
7454          (add-after 'unpack 'add-libiberty
7455            ;; Build fails upon linking executables without this.
7456            (lambda _
7457              (substitute* "thirdparty/backward-cpp/BackwardConfig.cmake"
7458                (("set\\(LIBBFD_LIBRARIES (.*?)\\)" _ libraries)
7459                 (string-append "set(LIBBFD_LIBRARIES " libraries " iberty)")))
7460              #t))
7461          (add-after 'add-libiberty 'lax-freealut-requirement
7462            ;; TODO: We provide freealut 1.1.0, but pkg-config somehow detects
7463            ;; it as 1.0.1.  Force minimal version.
7464            (lambda _
7465              (substitute* "cmake/FindAudio.cmake"
7466                (("freealut>=1.1.0") "freealut>=1.0.1"))
7467              #t))
7468          (add-after 'lax-freealut-requirement 'fix-directories
7469            ;; Prefer "$out/share/openclonk" over
7470            ;; "$out/share/games/openclonk". Also install "openclonk"
7471            ;; binary in "bin/", not "games/".
7472            (lambda _
7473              (substitute* "CMakeLists.txt"
7474                (("share/games/openclonk") "share/openclonk")
7475                (("TARGETS openclonk DESTINATION games")
7476                 "TARGETS openclonk DESTINATION bin"))
7477              #t)))))
7478     (native-inputs
7479      `(("googlemock" ,(package-source googletest))
7480        ("googletest" ,googletest)
7481        ("pkg-config" ,pkg-config)))
7482     (inputs
7483      `(("freealut" ,freealut)
7484        ("freetype" ,freetype)
7485        ("glew" ,glew)
7486        ("libiberty" ,libiberty)
7487        ("libjpeg" ,libjpeg-turbo)
7488        ("libogg" ,libogg)
7489        ("libpng" ,libpng)
7490        ("libvorbis" ,libvorbis)
7491        ("libxrandr" ,libxrandr)
7492        ("mesa" ,mesa)
7493        ("miniupnpc" ,miniupnpc)
7494        ("openal" ,openal)
7495        ("qtbase" ,qtbase)
7496        ("readline" ,readline)
7497        ("sdl" ,sdl2)
7498        ("tinyxml" ,tinyxml)
7499        ("zlib" ,zlib)))
7500     (home-page "https://www.openclonk.org/")
7501     (synopsis
7502      "Multiplayer action game where you control small and nimble humanoids")
7503     (description "OpenClonk is a multiplayer action/tactics/skill game.  It is
7504 often referred to as a mixture of The Settlers and Worms.  In a simple 2D
7505 antfarm-style landscape, the player controls a crew of Clonks, small but
7506 robust humanoid beings.  The game encourages free play but the normal goal is
7507 to either exploit valuable resources from the earth by building a mine or
7508 fight each other on an arena-like map.")
7509     ;; Software as a whole is licensed under ISC, artwork under CC-BY.
7510     (license (list license:isc license:cc-by3.0))))
7511
7512 (define-public flare-engine
7513   (package
7514     (name "flare-engine")
7515     (version "1.11")
7516     (source (origin
7517               (method git-fetch)
7518               (uri (git-reference
7519                     (url "https://github.com/flareteam/flare-engine.git")
7520                     (commit (string-append "v" version))))
7521               (file-name (git-file-name name version))
7522               (sha256
7523                (base32
7524                 "1mqr1s72p5bdh4kq2a8hg72dk8lwnddicjnd2cdp1sbfa9lmjym8"))))
7525     (build-system cmake-build-system)
7526     (arguments
7527      `(#:tests? #f                      ;no test
7528        #:configure-flags '("-DBINDIR=bin" "-DDATADIR=share/flare")))
7529     (inputs
7530      `(("hicolor-icon-theme" ,hicolor-icon-theme)
7531        ("python" ,python-wrapper)
7532        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
7533     (home-page "http://www.flarerpg.org/")
7534     (synopsis "Action Roleplaying Engine")
7535     (description "Flare (Free Libre Action Roleplaying Engine) is a simple
7536 game engine built to handle a very specific kind of game: single-player 2D
7537 action RPGs.")
7538     (license license:gpl3+)))
7539
7540 (define-public flare-game
7541   (package
7542     (name "flare-game")
7543     (version "1.11")
7544     (source (origin
7545               (method git-fetch)
7546               (uri (git-reference
7547                     (url "https://github.com/flareteam/flare-game.git")
7548                     (commit (string-append "v" version))))
7549               (file-name (git-file-name name version))
7550               (sha256
7551                (base32
7552                 "0bd5g7sd89a9176ilr408hdqzdfv4j7wj0idd685c1n6s01c3h6p"))))
7553     (build-system cmake-build-system)
7554     (arguments
7555      `(#:tests? #f                      ;no test
7556        #:configure-flags '("-DDATADIR=share/flare")
7557        #:phases
7558        (modify-phases %standard-phases
7559          ;; Flare expects the mods to be located in the same folder.
7560          ;; Yet, "default" mod is in the engine, whereas the others
7561          ;; are in the current package.  Merge everything here with
7562          ;; a symlink.
7563          (add-after 'install 'add-default-mod
7564            (lambda* (#:key inputs outputs #:allow-other-keys)
7565              (let* ((out (assoc-ref outputs "out"))
7566                     (mods (string-append out "/share/flare/mods")))
7567                (with-directory-excursion mods
7568                  (symlink (string-append (assoc-ref inputs "flare-engine")
7569                                          "/share/flare/mods/default")
7570                           "default")))
7571              #t))
7572          (add-after 'install 'install-executable
7573            ;; The package only provides assets for the game, the
7574            ;; executable coming from "flare-engine".  Since more than
7575            ;; one game may use the engine, we create a new executable,
7576            ;; "flare-game", which launches the engine with appropriate
7577            ;; parameters.
7578            (lambda* (#:key inputs outputs #:allow-other-keys)
7579              (let* ((out (assoc-ref outputs "out"))
7580                     (bash (string-append (assoc-ref inputs "bash")
7581                                          "/bin/bash"))
7582                     (flare (string-append (assoc-ref inputs "flare-engine")
7583                                           "/bin/flare"))
7584                     (script (string-append out "/bin/flare-game")))
7585                (mkdir-p (dirname script))
7586                (call-with-output-file script
7587                  (lambda (port)
7588                    (format port
7589                            "#!~a
7590 exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
7591                            bash
7592                            flare
7593                            out)))
7594                (chmod script #o755))
7595              #t)))))
7596     (inputs
7597      `(("flare-engine" ,flare-engine)))
7598     (home-page "http://www.flarerpg.org/")
7599     (synopsis "Fantasy action RPG using the FLARE engine")
7600     (description "Flare is a single-player 2D action RPG with
7601 fast-paced action and a dark fantasy style.")
7602     (license license:cc-by-sa3.0)))
7603
7604 (define-public meritous
7605   (package
7606     (name "meritous")
7607     (version "1.5")
7608     (source (origin
7609               (method git-fetch)
7610               (uri (git-reference
7611                     (url "https://gitlab.com/meritous/meritous.git")
7612                     (commit (string-append "v" version))))
7613               (file-name (git-file-name name version))
7614               (sha256
7615                (base32
7616                 "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
7617     (build-system gnu-build-system)
7618     (arguments
7619      `(#:tests? #f                      ;no test
7620        #:make-flags
7621        (list "CC=gcc"
7622              (string-append "prefix=" (assoc-ref %outputs "out")))
7623        #:phases
7624        (modify-phases %standard-phases
7625          (delete 'configure)
7626          (add-after 'unpack 'fix-sdl-path
7627            ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
7628            ;; directory, not SDL-union provided as an input to the package.
7629            ;; We force the latter with "--prefix=" option.
7630            (lambda* (#:key inputs #:allow-other-keys)
7631              (substitute* "Makefile"
7632                (("sdl-config" command)
7633                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7634              #t))
7635          (add-after 'unpack 'fix-crash
7636            ;; XXX: Songs are not present in the repository, due to licensing
7637            ;; issues.  Yet, the game tries to load them, and, since it cannot
7638            ;; find them, crashes.  Users cannot add them back, the store being
7639            ;; read-only, so we turn off background music altogether.
7640            (lambda _
7641              (substitute* "src/audio.c"
7642                (("PlayBackgroundMusic\\(new_track\\);" all)
7643                 (string-append "// " all)))
7644              #t)))))
7645     (native-inputs
7646      `(("intltool" ,intltool)))
7647     (inputs
7648      `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
7649        ("zlib" ,zlib)))
7650     (home-page "https://gitlab.com/meritous/meritous")
7651     (synopsis "Action-adventure dungeon crawl game")
7652     (description "Far below the surface of the planet is a place of limitless
7653 power.  Those that seek to control such a utopia will soon bring an end to
7654 themselves.  Seeking an end to the troubles that plague him, PSI user Merit
7655 journeys into the hallowed Orcus Dome in search of answers.
7656
7657 Meritous is a action-adventure game with simple controls but a challenge to
7658 find a balance of power versus recovery time during real-time battles.  Set in
7659 a procedurally generated world, the player can explore thousands of rooms in
7660 search of powerful artifacts, tools to help them, and to eventually free the
7661 Orcus Dome from evil.")
7662     (license license:gpl3+)))
7663
7664 (define-public marble-marcher
7665   (let ((commit "e580460a0c3826f9b28ab404607942a8ecb625d7")
7666         (revision "1"))
7667     (package
7668       (name "marble-marcher")
7669       (version (git-version "0" revision commit))
7670       (source (origin
7671                 (method git-fetch)
7672                 (uri (git-reference
7673                       (url "https://github.com/HackerPoet/MarbleMarcher.git")
7674                       (commit commit)))
7675                 (file-name (git-file-name name version))
7676                 (sha256
7677                  (base32
7678                   "0jjv832hl1v170n6gryp2sr3lgqndi9ab841qvgqk68bks8701mx"))))
7679       (build-system cmake-build-system)
7680       (arguments
7681        `(#:tests? #f  ; there are none
7682          #:phases
7683          (modify-phases %standard-phases
7684            (add-after 'unpack 'embed-asset-directory
7685              (lambda* (#:key outputs #:allow-other-keys)
7686                (let ((assets (string-append (assoc-ref outputs "out")
7687                                             "/share/marble-marcher/assets/")))
7688                  ;; Some of the files we're patching are
7689                  ;; ISO-8859-1-encoded, so choose it as the default
7690                  ;; encoding so the byte encoding is preserved.
7691                  (with-fluids ((%default-port-encoding #f))
7692                    (substitute* "src/Resource.rc"
7693                      (("../assets/icon.ico")
7694                       (string-append assets "icon.ico")))
7695                    (substitute* "src/Res.h"
7696                      (("assets/") assets))))
7697                #t))
7698            (replace 'install
7699              (lambda* (#:key outputs #:allow-other-keys)
7700                (let* ((out (assoc-ref outputs "out"))
7701                       (assets (string-append out "/share/marble-marcher/assets"))
7702                       (bin (string-append out "/bin/")))
7703                  (mkdir-p bin)
7704                  (mkdir-p assets)
7705                  (copy-recursively "../source/assets" assets)
7706                  (install-file "MarbleMarcher" bin))
7707                #t)))))
7708       (inputs
7709        `(("eigen" ,eigen)
7710          ("mesa" ,mesa)
7711          ("sfml" ,sfml)))
7712       (native-inputs
7713        `(("pkg-config" ,pkg-config)))
7714       (home-page "https://codeparade.itch.io/marblemarcher")
7715       (synopsis "Guide a marble across fractal landscapes")
7716       (description "Marble Marcher is a video game that uses a fractal physics
7717 engine and fully procedural rendering to produce beautiful and unique
7718 gameplay.  The game is played on the surface of evolving fractals.  The goal
7719 of the game is to get your marble to the flag as quickly as possible.  But be
7720 careful not to fall off the level or get crushed by the fractal!  There are 24
7721 levels to unlock.")
7722       ;; Code is under GPLv2+, assets are under CC-BY-SA 3.0 and OFL 1.1.
7723       (license (list license:gpl2+
7724                      license:silofl1.1
7725                      license:cc-by-sa3.0)))))
7726
7727 ;; This must be updated together with flightgear.
7728 (define simgear
7729   (package
7730     (name "simgear")
7731     (version "2018.3.2")
7732     (source (origin
7733               (method url-fetch)
7734               (uri (string-append "mirror://sourceforge/flightgear/release-"
7735                                   (version-major+minor version) "/"
7736                                   "simgear-" version ".tar.bz2"))
7737               (sha256
7738                (base32
7739                 "1941ay8rngz4vwsx37bbpxr48hpcvcbj3xw1hy264lq4qnl99c68"))))
7740     (build-system cmake-build-system)
7741     (arguments
7742      `(#:phases
7743        (modify-phases %standard-phases
7744          (replace 'check
7745            (lambda _
7746              ;; Skip tests that require internet access.
7747              (invoke "ctest" "-E" "(http|dns)"))))))
7748     (inputs
7749      `(("boost" ,boost-for-mysql) ; fails with 1.69
7750        ("curl" ,curl)
7751        ("expat" ,expat)
7752        ("mesa" ,mesa)
7753        ("openal" ,openal)
7754        ("openscenegraph" ,openscenegraph-3.4)
7755        ("zlib" ,zlib)))
7756     (home-page "https://home.flightgear.org/")
7757     (synopsis "Libraries for 3D simulations and games")
7758     (description "SimGear is a set of libraries designed to be used as
7759 building blocks for quickly assembling 3D simulations, games, and
7760 visualization applications.  SimGear is developed by the FlightGear project
7761 and also provides the base for the FlightGear Flight Simulator.")
7762     (license license:lgpl2.0+)))
7763
7764 (define-public flightgear
7765   (package
7766     (name "flightgear")
7767     (version (package-version simgear))
7768     (source (origin
7769               (method url-fetch)
7770               (uri (string-append "mirror://sourceforge/flightgear/release-"
7771                                   (version-major+minor version) "/"
7772                                   "flightgear-" version ".tar.bz2"))
7773               (sha256
7774                (base32
7775                 "0lzy524cjzs8vldcjcc750bgg5c4mq9fkymxxxzqf68ilc4d1jss"))
7776               (modules '((guix build utils)))
7777               (snippet
7778                '(begin
7779                   ;; There are some bundled libraries.
7780                   (for-each delete-file-recursively
7781                             '("3rdparty/sqlite3/"))
7782                   #t))))
7783     (build-system cmake-build-system)
7784     (arguments
7785      `(#:configure-flags
7786        (list "-DSYSTEM_SQLITE=ON"
7787              (string-append "-DFG_DATA_DIR="
7788                             (assoc-ref %outputs "out")
7789                             "/share/flightgear"))
7790        ;; TODO: test cannot be run because the "run_test_suite" executable
7791        ;; does not seem to be built.
7792        #:tests? #f
7793        #:phases
7794        (modify-phases %standard-phases
7795          (add-after 'install 'wrap-executable
7796            (lambda* (#:key inputs outputs #:allow-other-keys)
7797              (let ((out (assoc-ref outputs "out")))
7798                (wrap-program (string-append out "/bin/fgfs")
7799                  `("QT_PLUGIN_PATH" ":" prefix
7800                    ,(map (lambda (label)
7801                            (string-append (assoc-ref inputs label)
7802                                           "/lib/qt5/plugins"))
7803                          '("qtbase" "qtdeclarative" "qtsvg")))
7804                  `("QML2_IMPORT_PATH" ":" prefix
7805                    ,(map (lambda (label)
7806                            (string-append (assoc-ref inputs label)
7807                                           "/lib/qt5/qml"))
7808                          '("qtdeclarative" "qtsvg"))))
7809                #t)))
7810          (add-after 'install 'install-data
7811            (lambda* (#:key inputs outputs #:allow-other-keys)
7812              (let ((share (string-append (assoc-ref outputs "out") "/share/flightgear")))
7813                (mkdir-p share)
7814                (with-directory-excursion share
7815                  (invoke "tar" "xf" (assoc-ref inputs "flightgear-data")
7816                          "--strip-components=1")))
7817              #t)))))
7818     (inputs
7819      `(("boost" ,boost-for-mysql)       ; same as simgear
7820        ("dbus" ,dbus)
7821        ("eudev" ,eudev)
7822        ("freeglut" ,freeglut)
7823        ("freetype" ,freetype)
7824        ("glew" ,glew)
7825        ("libpng" ,libpng)
7826        ("openal" ,openal)
7827        ("openscenegraph" ,openscenegraph-3.4)
7828        ("plib" ,plib)
7829        ("qtbase" ,qtbase)
7830        ("qtdeclarative" ,qtdeclarative)
7831        ("qtsvg" ,qtsvg)
7832        ("simgear" ,simgear)
7833        ("speexdsp" ,speexdsp)
7834        ("sqlite" ,sqlite)
7835        ("zlib" ,zlib)))
7836     (native-inputs
7837      `(("cppunit" ,cppunit)
7838        ("pkg-config" ,pkg-config)
7839        ("qttools" ,qttools)
7840        ("flightgear-data"
7841         ,(origin
7842            (method url-fetch)
7843            (uri (string-append "mirror://sourceforge/flightgear/release-"
7844                                (version-major+minor version) "/"
7845                                "FlightGear-" version "-data.tar.bz2"))
7846            (sha256
7847             (base32
7848              "0h4npa7gqpf5fw6pv2bpw0wbwr7fa2vhia21cjbigfgd75x82zi7"))))))
7849     (home-page "https://home.flightgear.org/")
7850     (synopsis "Flight simulator")
7851     (description "The goal of the FlightGear project is to create a
7852 sophisticated flight simulator framework for use in research or academic
7853 environments, pilot training, as an industry engineering tool, for DIY-ers to
7854 pursue their favorite interesting flight simulation idea, and last but
7855 certainly not least as a fun, realistic, and challenging desktop flight
7856 simulator.")
7857     (license license:gpl2+)))
7858
7859 (define-public jumpnbump
7860   (package
7861     (name "jumpnbump")
7862     (version "1.61")
7863     (source (origin
7864               (method git-fetch)
7865               (uri (git-reference
7866                     (url "https://gitlab.com/LibreGames/jumpnbump.git")
7867                     (commit version)))
7868               (file-name (git-file-name name version))
7869               (sha256
7870                (base32
7871                 "12lwl5sl5n009nb83r8l4lakb9286csqdf1ynpmwwydy17giqsdp"))))
7872     (build-system gnu-build-system)
7873     (arguments
7874      `(#:make-flags
7875        (list "CC=gcc"
7876              (string-append "PREFIX=" (assoc-ref %outputs "out")))
7877        #:tests? #f                      ;no test
7878        #:phases
7879        (modify-phases %standard-phases
7880          (delete 'configure)            ;no configure script
7881          (add-after 'unpack 'fix-sdl-path
7882            ;; XXX: For some reason, `sdl2-config' reports stand-alone SDL
7883            ;; directory, not SDL-union provided as an input to the package.
7884            ;; We force the latter with "--prefix=" option.
7885            (lambda* (#:key inputs #:allow-other-keys)
7886              (substitute* "Makefile"
7887                (("sdl2-config" command)
7888                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7889              #t)))))
7890     (inputs
7891      `(("bzip2" ,bzip2)
7892        ("sdl" ,(sdl-union (list sdl2 sdl2-mixer sdl2-net)))
7893        ("zlib" ,zlib)))
7894     (native-inputs
7895      `(("gettext" ,gettext-minimal)))   ;for msgfmt
7896     (home-page "https://gitlab.com/LibreGames/jumpnbump")
7897     (synopsis "Multiplayer platform game with bunnies")
7898     (description "You, as a bunny, have to jump on your opponents to make them
7899 explode.  It is a true multiplayer game; you cannot play this alone.  You can
7900 play with up to four players simultaneously.  It has network support.")
7901     (license license:gpl2+)))
7902
7903 (define-public hedgewars
7904   (package
7905     (name "hedgewars")
7906     (version "1.0.0")
7907     (source (origin
7908               (method url-fetch)
7909               (uri (string-append "https://www.hedgewars.org/download/releases/"
7910                                   "hedgewars-src-" version ".tar.bz2"))
7911               (sha256
7912                (base32
7913                 "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1"))))
7914     (build-system cmake-build-system)
7915     (arguments
7916      ;; XXX: Engine is built as Pascal source code, requiring Free Pascal
7917      ;; Compiler, which we haven't packaged yet.  With the flag below, we use
7918      ;; a Pascal to C translator and Clang instead.
7919      `(#:configure-flags (list "-DBUILD_ENGINE_C=ON")
7920        #:phases
7921        (modify-phases %standard-phases
7922          (replace 'check
7923            (lambda _ (invoke "ctest"))))))
7924     (inputs
7925      `(("ffmpeg" ,ffmpeg)
7926        ("freeglut" ,freeglut)
7927        ("ghc-entropy" ,ghc-entropy)
7928        ("ghc-hslogger" ,ghc-hslogger)
7929        ("ghc-network" ,ghc-network)
7930        ("ghc-random" ,ghc-random)
7931        ("ghc-regex-tdfa" ,ghc-regex-tdfa)
7932        ("ghc-sandi" ,ghc-sandi)
7933        ("ghc-sha" ,ghc-sha)
7934        ("ghc-utf8-string" ,ghc-utf8-string)
7935        ("ghc-vector" ,ghc-vector)
7936        ("ghc-zlib" ,ghc-zlib)
7937        ("glew" ,glew)
7938        ("libpng" ,libpng)
7939        ("lua" ,lua-5.1)
7940        ("physfs" ,physfs)
7941        ("qtbase" ,qtbase)
7942        ("sdl" ,(sdl-union
7943                 (list sdl2 sdl2-mixer sdl2-net sdl2-ttf sdl2-image)))))
7944     (native-inputs
7945      `(("clang" ,clang)
7946        ("ghc" ,ghc)
7947        ("pkg-config" ,pkg-config)
7948        ("qttools" ,qttools)))
7949     (home-page "https://hedgewars.org/")
7950     (synopsis "Turn-based artillery game featuring fighting hedgehogs")
7951     (description
7952      "Hedgewars is a turn based strategy, artillery, action and comedy game,
7953 featuring the antics of pink hedgehogs with attitude as they battle from the
7954 depths of hell to the depths of space.
7955
7956 As commander, it's your job to assemble your crack team of hedgehog soldiers
7957 and bring the war to your enemy.")
7958     ;; Software as a whole is licensed under GPL-2 terms.  Artwork and
7959     ;; scripts are distributed under various terms.
7960     (license (list license:gpl2
7961                    license:bsd-2 license:bsd-3 license:cc-by3.0 license:cc0
7962                    license:expat license:fdl1.3+ license:public-domain
7963                    license:zlib))))
7964
7965 (define-public harmonist
7966   (package
7967     (name "harmonist")
7968     (version "0.3.0")
7969     (source (origin
7970               (method git-fetch)
7971               (uri (git-reference
7972                      (url "https://git.tuxfamily.org/harmonist/harmonist.git")
7973                      (commit (string-append "v" version))))
7974               (file-name (git-file-name name version))
7975               (sha256
7976                (base32
7977                 "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
7978     (build-system go-build-system)
7979     (arguments
7980      '(#:import-path "git.tuxfamily.org/harmonist/harmonist"))
7981     (inputs
7982      `(("go-github.com-nsf-termbox-go" ,go-github.com-nsf-termbox-go)))
7983     (home-page "https://harmonist.tuxfamily.org/")
7984     (synopsis "Stealth coffee-break roguelike game")
7985     (description "Harmonist: Dayoriah Clan Infiltration is a stealth
7986 coffee-break roguelike game.  The game has a heavy focus on tactical
7987 positioning, light and noise mechanisms, making use of various terrain types
7988 and cones of view for monsters.  Aiming for a replayable streamlined experience,
7989 the game avoids complex inventory management and character building, relying
7990 on items and player adaptability for character progression.")
7991     (license license:isc)))
7992
7993 (define-public harmonist-tk
7994   (package
7995     (inherit harmonist)
7996     (name "harmonist-tk")
7997     (arguments
7998       (append
7999         (package-arguments harmonist)
8000         `(#:phases
8001           (modify-phases %standard-phases
8002             (replace 'build
8003               (lambda _
8004                 (invoke "go" "install" "-v" "-x" "--tags" "tk"
8005                         "git.tuxfamily.org/harmonist/harmonist")))
8006             (replace 'check
8007               (lambda _
8008                 (invoke "go" "test" "--tags" "tk"
8009                         "git.tuxfamily.org/harmonist/harmonist")))))))
8010     (inputs
8011      `(("go-github.com-nsf-gothic" ,go-github.com-nsf-gothic)))))
8012
8013 (define-public drascula
8014   (package
8015     (name "drascula")
8016     (version "1.0")
8017     (source (origin
8018               (method url-fetch)
8019               (uri (string-append "mirror://sourceforge/scummvm/extras/"
8020                                   "Drascula_%20The%20Vampire%20Strikes%20Back/"
8021                                   "drascula-" version ".zip"))
8022               (sha256
8023                (base32
8024                 "1pj29rpb754sn6a56f8brfv6f2m1p5qgaqik7d68pfi2bb5zccdp"))))
8025     (build-system trivial-build-system)
8026     (arguments
8027      `(#:modules ((guix build utils))
8028        #:builder
8029        (begin
8030          (use-modules (guix build utils)
8031                       (ice-9 match))
8032          (let* ((out (assoc-ref %outputs "out"))
8033                 (share (string-append out "/share/drascula"))
8034                 (scummvm (assoc-ref %build-inputs "scummvm")))
8035            ;; Install data.
8036            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8037                                        "/bin/unzip"))
8038                  (doc (string-append out "/share/doc/" ,name "-" ,version)))
8039              (for-each
8040               (lambda (input)
8041                 (invoke unzip
8042                         "-j"
8043                         (assoc-ref %build-inputs input)
8044                         "-x" "__MACOSX")
8045                 ;; Every input provides "readme.txt", and we want to
8046                 ;; preserve them all.  Therefore we rename them first.
8047                 (match input
8048                   ("drascula-int"
8049                    (rename-file "readme.txt" "readme-international.txt"))
8050                   ("drascula-audio"
8051                    (rename-file "readme.txt" "readme-audio.txt"))
8052                   (_ #f))
8053                 ;; Install documentation.
8054                 (for-each (lambda (f) (install-file f doc))
8055                           (find-files "." "\\.(txt|doc)$"))
8056                 ;; Install data.
8057                 (for-each (lambda (f) (install-file f share))
8058                           (find-files "." "\\.(ogg|00[0-9])$")))
8059               '("drascula-audio" "drascula-int" "source")))
8060            ;; Create standalone executable.
8061            (let* ((bin (string-append out "/bin"))
8062                   (executable (string-append bin "/drascula"))
8063                   (bash (string-append (assoc-ref %build-inputs "bash")
8064                                        "/bin/bash")))
8065              (mkdir-p bin)
8066              (with-output-to-file executable
8067                (lambda ()
8068                  (format #t "#!~a~%" bash)
8069                  (format #t
8070                          "exec ~a/bin/scummvm --path=~a drascula~%"
8071                          scummvm share)))
8072              (chmod executable #o755))
8073            ;; Create desktop file.  There is no dedicated icon for the
8074            ;; game, so we borrow SCUMMVM's.
8075            (let ((apps (string-append out "/share/applications")))
8076              (mkdir-p apps)
8077              (make-desktop-entry-file
8078               (string-append apps "/drascula.desktop")
8079               #:name "Drascula: The Vampire Strikes Back"
8080               #:generic-name "Drascula"
8081               #:exec (string-append out "/bin/drascula")
8082               #:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
8083               #:categories '("AdventureGame" "Game" "RolePlaying")
8084               #:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
8085               #:comment '((#f "Classic 2D point and click adventure game")
8086                           ("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
8087                           ("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
8088                           ("it" "Gioco classico di avventura punta e clicca 2D"))))
8089            #t))))
8090     (native-inputs
8091      `(("bash" ,bash)
8092        ("unzip" ,unzip)))
8093     (inputs
8094      `(("scummvm" ,scummvm)
8095        ("drascula-int"
8096         ,(let ((version "1.1"))
8097            (origin
8098              (method url-fetch)
8099              (uri (string-append "mirror://sourceforge/scummvm/extras/"
8100                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
8101                                  "drascula-int-" version ".zip"))
8102              (sha256
8103               (base32
8104                "12236i7blamal92p1i8dgp3nhp2yicics4whsl63v682bj999n14")))))
8105        ("drascula-audio"
8106         ,(let ((version "2.0"))
8107            (origin
8108              (method url-fetch)
8109              (uri (string-append "mirror://sourceforge/scummvm/extras/"
8110                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
8111                                  "drascula-audio-" version ".zip"))
8112              (sha256
8113               (base32
8114                "00g4izmsqzxb8ry1vhfx6jrygl58lvlij09nw01ds4zddsiznsky")))))))
8115     (home-page "https://www.scummvm.org")
8116     (synopsis "Classic 2D point and click adventure game")
8117     (description "Drascula: The Vampire Strikes Back is a classic humorous 2D
8118 point and click adventure game.
8119
8120 In Drascula you play the role of John Hacker, a British estate agent, that
8121 gets to meet a gorgeous blond girl who is kidnapped by the notorious vampire
8122 Count Drascula and embark on a fun yet dangerous quest to rescue her.
8123 Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING
8124 the World and demonstrating that he is even more evil than his brother Vlad.")
8125     ;; Drascula uses a BSD-like license.
8126     (license (license:non-copyleft "file:///readme.txt"))))
8127
8128 (define (make-lure-package name language hash)
8129   (package
8130     (name name)
8131     (version "1.1")
8132     (source
8133      (origin
8134        (method url-fetch)
8135        (uri (string-append
8136              "mirror://sourceforge/scummvm/extras/"
8137              "Lure%20of%20the%20Temptress/"
8138              name "-" version ".zip"))
8139        (sha256
8140         (base32 hash))))
8141     (build-system trivial-build-system)
8142     (arguments
8143      `(#:modules ((guix build utils))
8144        #:builder
8145        (begin
8146          (use-modules (guix build utils))
8147          (let* ((out (assoc-ref %outputs "out"))
8148                 (share (string-append out "/share"))
8149                 (data (string-append share "/" ,name "/" ,language))
8150                 (apps (string-append share "/applications"))
8151                 (bin (string-append out "/bin"))
8152                 (executable (string-append bin "/" ,name))
8153                 (scummvm (assoc-ref %build-inputs "scummvm")))
8154            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8155                                        "/bin/unzip")))
8156              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8157            (let ((doc (string-append share "/doc/" ,name "-" ,version)))
8158              (for-each (lambda (f) (install-file f doc))
8159                        (find-files "." "\\.(txt|PDF|pdf)$")))
8160            (for-each (lambda (f) (install-file f data))
8161                      (find-files "." "\\.(vga|VGA)$"))
8162            ;; Build the executable.
8163            (mkdir-p bin)
8164            (let ((bash (assoc-ref %build-inputs "bash")))
8165              (with-output-to-file executable
8166                (lambda ()
8167                  (format #t "#!~a/bin/bash~%" bash)
8168                  (format #t "exec ~a/bin/scummvm -q ~a -p ~a lure~%"
8169                          scummvm ,language data))))
8170            (chmod executable #o755)
8171            ;; Create desktop file.  There is no dedicated
8172            ;; icon for the game, so we borrow SCUMMVM's.
8173            (mkdir-p apps)
8174            (with-output-to-file (string-append apps "/" ,name ".desktop")
8175              (lambda _
8176                (format #t
8177                        "[Desktop Entry]~@
8178                      Name=Lure of the Temptress~@
8179                      GenericName=Lure~@
8180                      Exec=~a~@
8181                      Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8182                      Categories=AdventureGame;Game;RolePlaying;~@
8183                      Keywords=game;adventure;roleplaying;2D,fantasy;~@
8184                      Comment=Classic 2D point and click adventure game~@
8185                      Comment[de]=klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier~@
8186                      Comment[fr]=Jeu classique d'aventure pointer-et-cliquer en 2D~@
8187                      Comment[it]=Gioco classico di avventura punta e clicca 2D~@
8188                      Type=Application~%"
8189                        executable scummvm)))
8190            #t))))
8191     (native-inputs
8192      `(("unzip" ,unzip)))
8193     (inputs
8194      `(("bash" ,bash)
8195        ("scummvm" ,scummvm)))
8196     (home-page "https://www.scummvm.org")
8197     (synopsis "2D point and click fantasy adventure game")
8198     (description
8199      "Lure of the Temptress is a classic 2D point and click adventure game.
8200
8201 You are Diermot, an unwilling hero who'd prefer a quiet life, and are, to all
8202 intents and purposes, a good man.  After decades of unrest the King has united
8203 the warring factions in his kingdom and all his lands are at peace, except
8204 a remote region around a town called Turnvale.  A revolt has recently taken
8205 place in Turnvale, a revolt orchestrated by an apprentice sorceress called
8206 Selena, the titular temptress.  The king calls together his finest horsemen
8207 and heads off (with you in tow) to Turnvale just to witness how hellish
8208 mercenary monsters called Skorl are invading the town.
8209
8210 The king's men are defeated, the king is killed and you fall of your horse and
8211 bang your head heavily on the ground.  You have been *unconscious for a while
8212 when you realize that you are in a dingy cell guarded by a not so friendly
8213 Skorl.  Maybe it would be an idea to try and escape...")
8214     (license (license:non-copyleft "file:///README"))))
8215
8216 (define-public lure
8217   (make-lure-package
8218    "lure" "en" "0201i70qcs1m797kvxjx3ygkhg6kcl5yf49sihba2ga8l52q45zk"))
8219
8220 (define-public lure-de
8221   (make-lure-package
8222    "lure-de" "de" "0sqq7h5llml6rv85x0bfv4bgzwhs4c82p4w4zmfcaab6cjlad0sy"))
8223
8224 (define-public lure-es
8225   (make-lure-package
8226    "lure-es" "es" "1dvv5znvlsakw6w5r16calv9jkgw27aymgybsf4q22lcmpxbj1lk"))
8227
8228 (define-public lure-fr
8229   (make-lure-package
8230    "lure-fr" "fr" "1y51jjb7f8023832g44vd1jsb6ni85586pi2n5hjg9qjk6gi90r9"))
8231
8232 (define-public lure-it
8233   (make-lure-package
8234    "lure-it" "it" "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj"))
8235
8236 (define (make-queen-package name file-prefix release language hash)
8237   (package
8238     (name name)
8239     (version release)
8240     (source
8241      (origin
8242        (method url-fetch)
8243        (uri (string-append "mirror://sourceforge/scummvm/extras/"
8244                            "Flight%20of%20the%20Amazon%20Queen/"
8245                            file-prefix release ".zip"))
8246        (sha256
8247         (base32 hash))))
8248     (build-system trivial-build-system)
8249     (arguments
8250      `(#:modules ((guix build utils))
8251        #:builder
8252        (begin
8253          (use-modules (guix build utils))
8254          (let* ((out (assoc-ref %outputs "out"))
8255                 (share (string-append out "/share"))
8256                 (data (string-append share "/" ,name))
8257                 (apps (string-append share "/applications"))
8258                 (bin (string-append out "/bin"))
8259                 (executable (string-append bin "/" ,name))
8260                 (scummvm (assoc-ref %build-inputs "scummvm")))
8261            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8262                                        "/bin/unzip")))
8263              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8264            (let ((doc (string-append share "/doc/" ,name "-" ,version)))
8265              (install-file "readme.txt" doc))
8266            (install-file "queen.1c" data)
8267            (mkdir-p bin)
8268            (let ((bash (assoc-ref %build-inputs "bash")))
8269              (with-output-to-file executable
8270                (lambda ()
8271                  (format #t "#!~a/bin/bash~%" bash)
8272                  (format #t "exec ~a/bin/scummvm -q fr -p ~a queen~%"
8273                          scummvm data))))
8274            (chmod executable #o755)
8275            ;; Create desktop file.  There is no dedicated
8276            ;; icon for the game, so we borrow SCUMMVM's.
8277            (mkdir-p apps)
8278            (with-output-to-file (string-append apps "/" ,name ".desktop")
8279              (lambda _
8280                (format #t
8281                        "[Desktop Entry]~@
8282                        Name=Flight of the Amazon Queen~@
8283                        GenericName=Queen~@
8284                        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~@
8285                        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~@
8286                        Type=Application~@
8287                        Exec=~a~@
8288                        Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8289                        Categories=AdventureGame;Game;RolePlaying;~@
8290                        Keywords=adventure;game;roleplaying;fantasy;~%"
8291                        executable scummvm))))
8292          #t)))
8293     (native-inputs
8294      `(("unzip" ,unzip)))
8295     (inputs
8296      `(("bash" ,bash)
8297        ("scummvm" ,scummvm)))
8298     (home-page "https://www.scummvm.org/")
8299     (synopsis "Classic 2D point and click adventure game")
8300     (description "Flight of the Amazon Queen is a 2D point-and-click
8301 adventure game set in the 1940s.
8302
8303 You assume the role of Joe King, a pilot for hire who is given the job
8304 of flying Faye Russell (a famous movie star) into the Amazon jungle
8305 for a photo shoot.  Of course, things never go according to plans.
8306 After an unfortunate turn of events they find themselves stranded in
8307 the heart of the Amazon jungle, where Joe will embark on a quest to
8308 rescue a kidnapped princess and in the process, discover the true
8309 sinister intentions of a suspiciously located Lederhosen company.  In
8310 a rich 2D environment, Joe will cross paths with a variety of unlikely
8311 jungle inhabitants including, but not limited to, a tribe of Amazon
8312 women and 6-foot-tall pygmies.")
8313     (license (license:non-copyleft "file:///readme.txt"))))
8314
8315 (define-public queen
8316   (make-queen-package
8317    "queen" "FOTAQ_Talkie-" "1.1" "en"
8318    "1a6q71q1dl9vvw2qqsxk5h1sv0gaqy6236zr5905w2is01gdsp52"))
8319
8320 (define-public queen-de
8321   (make-queen-package
8322    "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de"
8323    "13vn43x7214vyprlpqabvv71k890nff3d6fjscflr1ll7acjca3f"))
8324
8325 (define-public queen-fr
8326   (make-queen-package
8327    "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr"
8328    "0hq5g4qrkcwm2kn5i4kv4hijs9hi7bw9xl1vrwd1l69qqn30crwy"))
8329
8330 (define-public queen-it
8331   (make-queen-package
8332    "queen-it" "FOTAQ_It_Talkie_" "1.0" "it"
8333    "1h76y70lrpzfjkm53n4nr364nhyka54vbz9r7sadzyzl7c7ilv4d"))
8334
8335 (define-public sky
8336   (package
8337     (name "sky")
8338     (version "1.2")                     ;1.3 is floppy version
8339     (source
8340      (origin
8341        (method url-fetch)
8342        (uri (string-append "mirror://sourceforge/scummvm/extras/"
8343                            "Beneath%20a%20Steel%20Sky/"
8344                            "bass-cd-" version ".zip"))
8345        (sha256
8346         (base32 "14s5jz67kavm8l15gfm5xb7pbpn8azrv460mlxzzvdpa02a9n82k"))))
8347     (build-system trivial-build-system)
8348     (arguments
8349      `(#:modules ((guix build utils))
8350        #:builder
8351        (begin
8352          (use-modules (guix build utils))
8353          (let* ((out (assoc-ref %outputs "out"))
8354                 (share (string-append out "/share"))
8355                 (data (string-append share "/" ,name))
8356                 (apps (string-append share "/applications"))
8357                 (bin (string-append out "/bin"))
8358                 (executable (string-append bin "/" ,name))
8359                 (scummvm (assoc-ref %build-inputs "scummvm")))
8360            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
8361                                        "/bin/unzip")))
8362              (invoke unzip "-j" (assoc-ref %build-inputs "source")))
8363            (let ((doc (string-append share "/doc/bass-" ,version)))
8364              (install-file "readme.txt" doc))
8365            (for-each (lambda (f) (install-file f data))
8366                      (find-files "." "^sky\\."))
8367            ;; Build the executable.
8368            (mkdir-p bin)
8369            (let ((bash (assoc-ref %build-inputs "bash")))
8370              (with-output-to-file executable
8371                (lambda ()
8372                  (format #t "#!~a/bin/bash~%" bash)
8373                  (format #t "exec ~a/bin/scummvm -p ~a sky~%" scummvm data))))
8374            (chmod executable #o755)
8375            ;; Create desktop file.  There is no dedicated
8376            ;; icon for the game, so we borrow SCUMMVM's.
8377            (mkdir-p apps)
8378            (with-output-to-file (string-append apps "/" ,name ".desktop")
8379              (lambda _
8380                (format #t
8381                        "[Desktop Entry]~@
8382                        Name=Beneath a Steel Sky~@
8383                        GenericName=Bass~@
8384                        Exec=~a~@
8385                        Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
8386                        Categories=AdventureGame;Game;RolePlaying;~@
8387                        Keywords=adventure;game;roleplaying;cyberpunk;~@
8388                        Comment=A science-fiction adventure game set in a bleak post-apocalyptic vision of the future~@
8389                        Comment[de]=Ein Science-Fiction-Abenteuerspiel \
8390 angesiedelt in einer düsteren, postapokalyptischen Vision der Zukunft~@
8391                        Type=Application~%"
8392                        executable scummvm)))
8393            #t))))
8394     (native-inputs
8395      `(("unzip" ,unzip)))
8396     (inputs
8397      `(("bash" ,bash)
8398        ("scummvm" ,scummvm)))
8399     (home-page "https://www.scummvm.org/")
8400     (synopsis "Classic 2D point an click science-fiction adventure game")
8401     (description
8402      "Beneath a Steel Sky is a science-fiction thriller set in a bleak
8403 post-apocalyptic vision of the future.  It revolves around Union City,
8404 where selfishness, rivalry, and corruption by its citizens seems to be
8405 all too common, those who can afford it live underground, away from
8406 the pollution and social problems which are plaguing the city.
8407
8408 You take on the role of Robert Foster, an outcast of sorts from the
8409 city since a boy who was raised in a remote environment outside of
8410 Union City simply termed ``the gap''.  Robert's mother took him away
8411 from Union City as a child on their way to ``Hobart'' but the
8412 helicopter crashed on its way.  Unfortunately, Robert's mother died,
8413 but he survived and was left to be raised by a local tribe from the
8414 gap.
8415
8416 Years later, Union City security drops by and abducts Robert, killing
8417 his tribe in the process; upon reaching the city the helicopter taking
8418 him there crashes with him escaping, high upon a tower block in the
8419 middle of the city.  He sets out to discover the truth about his past,
8420 and to seek vengeance for the killing of his tribe.")
8421     (license (license:non-copyleft "file:///readme.txt"))))
8422
8423 (define-public gnurobots
8424   (package
8425     (name "gnurobots")
8426     (version "1.2.0")
8427     (source
8428      (origin
8429        (method url-fetch)
8430        (uri (string-append "mirror://gnu/gnurobots/gnurobots-"
8431                            version ".tar.gz"))
8432        (sha256
8433         (base32
8434          "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb"))))
8435     (build-system gnu-build-system)
8436     (inputs
8437      `(("glib" ,glib)
8438        ("gtk+" ,gtk+-2)
8439        ("vte" ,vte/gtk+-2)
8440        ("readline" ,readline)
8441        ("guile" ,guile-1.8)))
8442     (native-inputs
8443      `(("pkg-config" ,pkg-config)))
8444     (arguments
8445      `(#:make-flags
8446        (list
8447         ;; Do not abort build on "deprecated-declarations" warnings.
8448         "CFLAGS=-Wno-error=deprecated-declarations"
8449         ;; Find readline headers in sub-directory.
8450         (string-append "READLINE_CFLAGS=-I"
8451                        (assoc-ref %build-inputs "readline")
8452                        "/include/readline/"))
8453        #:phases
8454        (modify-phases %standard-phases
8455          (add-after 'install 'install-doc
8456            (lambda* (#:key outputs #:allow-other-keys)
8457              (install-file "doc/Robots-HOWTO"
8458                            (string-append (assoc-ref outputs "out")
8459                                           "/share/doc/gnurobots-"
8460                                           ,version))
8461              #t)))))
8462     (home-page "https://www.gnu.org/software/gnurobots/")
8463     (synopsis "Program a little robot and watch it explore a world")
8464     (description
8465      "GNU Robots is a game in which you program a robot to explore a world
8466 full of enemies that can hurt it, obstacles and food to be eaten.  The goal of
8467 the game is to stay alive and collect prizes.  The robot program conveniently
8468 may be written in a plain text file in the Scheme programming language.")
8469     (license license:gpl3+)))
8470
8471 (define-public ri-li
8472   (package
8473     (name "ri-li")
8474     (version "2.0.1")
8475     (source (origin
8476               (method url-fetch)
8477               (uri (string-append "mirror://sourceforge/ri-li/"
8478                                   "Ri-li%20Linux_Unix/Ri-li%20V" version "/"
8479                                   "Ri-li-" version ".tar.bz2"))
8480               (sha256
8481                (base32
8482                 "1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
8483               ;; Taken from
8484               ;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
8485               ;; It doesn't build otherwise.
8486               (patches (search-patches "ri-li-modernize_cpp.patch"))))
8487     (build-system gnu-build-system)
8488     (arguments
8489      `(#:phases
8490        (modify-phases %standard-phases
8491          ;; Remove "gentoo" subdirectory from Makefile, as it is
8492          ;; missing a make file and generates a build failure.
8493          (add-after 'configure 'fix-build
8494            (lambda _
8495              (substitute* "Makefile"
8496                ((" gentoo") ""))
8497              #t))
8498          (add-after 'install 'install-desktop-file
8499            (lambda* (#:key outputs #:allow-other-keys)
8500              (let* ((out (assoc-ref outputs "out"))
8501                     (apps (string-append out "/share/applications"))
8502                     (pixmaps (string-append out "/share/pixmaps")))
8503                (for-each (lambda (f) (install-file f pixmaps))
8504                          (find-files "data" "\\.(png|ico)$"))
8505                (mkdir-p apps)
8506                (with-output-to-file (string-append apps "/ri-li.desktop")
8507                  (lambda _
8508                    (format #t
8509                            "[Desktop Entry]~@
8510                      Name=Ri-li~@
8511                      Exec=~a/bin/Ri_li~@
8512                      Icon=~a/Ri-li-icon-32x32.png~@
8513                      Categories=Game;ArcadeGame;~@
8514                      Keywords=toy;train;wooden;snake-like;engine;~@
8515                      Comment=a toy simulator game~@
8516                      Comment[de]=Ein Spiel mit einem kleinen Zug~@
8517                      Comment[fr]=un jeu de petit train~@
8518                      Comment[ro_RO]=un joc cu un tren de jucărie~@
8519                      Terminal=false~@
8520                      Type=Application~%"
8521                            out pixmaps))))
8522              #t))
8523          (add-after 'install-desktop-file 'remove-spurious-files
8524            ;; Delete redundant files already installed somewhere else.
8525            (lambda* (#:key outputs #:allow-other-keys)
8526              (let ((out (assoc-ref outputs "out")))
8527                (for-each delete-file
8528                          (find-files (string-append out "/share/Ri-li")
8529                                      "\\.(png|ico)|COPYING"))
8530                #t))))))
8531     (inputs
8532      `(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
8533     (home-page "http://www.ri-li.org")
8534     (synopsis "Toy train simulation game")
8535     (description "Ri-li is a game in which you drive a wooden toy
8536 steam locomotive across many levels and collect all the coaches to
8537 win.")
8538     ;; The project is dual-licensed GPL2+ and GPL3+.
8539     (license (list license:gpl2+ license:gpl3+))))
8540
8541 (define-public freeorion
8542   (package
8543     (name "freeorion")
8544     (version "0.4.9")
8545     (source
8546      (origin
8547        (method url-fetch)
8548        (uri (string-append "https://github.com/freeorion/freeorion/releases/"
8549                            "download/v" version "/FreeOrion_v" version
8550                            "_2020-02-02.db53471_Source.tar.gz"))
8551        (sha256
8552         (base32 "1qfnqkysagh8dw26plk229qh17mv4prjxs6qhfyczrmrrakb72an"))
8553        (modules '((guix build utils)))
8554        (snippet
8555         '(begin
8556            ;; There are some bundled fonts.
8557            (for-each delete-file-recursively '("default/data/fonts"))
8558            #t))))
8559     (build-system cmake-build-system)
8560     (arguments
8561      '(#:tests? #f                      ;no test
8562        #:phases
8563        (modify-phases %standard-phases
8564          (add-after 'unpack 'unbundle-fonts
8565            (lambda* (#:key inputs #:allow-other-keys)
8566              (let ((roboto-dir (string-append (assoc-ref inputs "font-roboto")
8567                                               "/share/fonts/truetype/")))
8568                (substitute* "UI/ClientUI.cpp"
8569                  (("\\(GetRootDataDir.*?Roboto-(Bold|Regular)\\.ttf\"\\)\\.string\\(\\)\\);"
8570                    all type)
8571                   (string-append "\"" roboto-dir "Roboto-" type ".ttf\");")))
8572                #t))))))
8573     (inputs
8574      `(("boost" ,boost)
8575        ("boost_signals" ,boost-signals2)
8576        ("font-dejavu" ,font-dejavu)
8577        ("font-roboto" ,font-google-roboto)
8578        ("freetype2" ,freetype)
8579        ("glew" ,glew)
8580        ("glu" ,glu)
8581        ("libogg" ,libogg)
8582        ("libpng" ,libpng)
8583        ("libvorbis" ,libvorbis)
8584        ("openal" ,openal)
8585        ("python2" ,python-2.7)
8586        ("sdl2" ,sdl2)
8587        ("zlib" ,zlib)))
8588     (home-page "https://www.freeorion.org/index.php/Main_Page")
8589     (synopsis "Turn-based space empire and galactic conquest computer game")
8590     (description
8591      "FreeOrion is a turn-based space empire and galactic conquest (4X)
8592 computer game being designed and built by the FreeOrion project.  Control an
8593 empire with the goal of exploring the galaxy, expanding your territory,
8594 exploiting the resources, and exterminating rival alien empires.  FreeOrion is
8595 inspired by the tradition of the Master of Orion games, but is not a clone or
8596 remake of that series or any other game.")
8597     ;; Source code is released under gpl2.  Artwork, music and sounds, and
8598     ;; in-game text are released under cc-by-sa3.0.  Game content scripts are
8599     ;; released under both gpl2 and cc-by-sa3.0.  Bundled Gigi library is
8600     ;; released under lgpl2.1+.
8601     (license (list license:gpl2 license:cc-by-sa3.0 license:lgpl2.1+))))
8602
8603 (define-public leela-zero
8604   (package
8605    (name "leela-zero")
8606    (version "0.17")
8607    (source
8608     (origin
8609      (method git-fetch)
8610      (uri (git-reference
8611            (url "https://github.com/leela-zero/leela-zero.git")
8612            (commit (string-append "v" version))))
8613      (file-name (git-file-name name version))
8614      (sha256
8615       (base32
8616        "17px5iny8mql5c01bymcli7zfssswkzvb2i8gnsmjcck6i2n8srl"))
8617      (patches (search-patches "leela-zero-gtest.patch"))))
8618    (build-system cmake-build-system)
8619    (native-inputs
8620     `(("googletest" ,googletest)))
8621    (inputs
8622     `(("boost" ,boost)
8623       ("ocl-icd" ,ocl-icd)
8624       ("openblas" ,openblas)
8625       ("opencl-headers" ,opencl-headers)
8626       ("qtbase" ,qtbase)
8627       ("zlib" ,zlib)))
8628    (arguments
8629     '(#:configure-flags '("-DUSE_BLAS=YES")
8630       #:phases (modify-phases %standard-phases
8631                  (add-before 'configure 'fix-tests
8632                    (lambda* (#:key outputs #:allow-other-keys)
8633                      (let ((home (getcwd)))
8634                        (setenv "HOME" home)
8635                        (substitute* "src/tests/gtests.cpp"
8636                          (("\\.\\./src/tests/0k\\.txt")
8637                           (string-append home "/src/tests/0k.txt"))
8638                          (("cfg_gtp_mode = true;")
8639                           "cfg_gtp_mode = true; cfg_cpu_only = true;")))
8640                      #t))
8641                  (replace 'check
8642                    (lambda _
8643                      (invoke "./tests"))))))
8644    (home-page "https://github.com/leela-zero/leela-zero")
8645    (synopsis "Program playing the game of Go")
8646    (description
8647     "Leela-zero is a Go engine with no human-provided knowledge, modeled after
8648 the AlphaGo Zero paper.  The current best network weights file for the engine
8649 can be downloaded from @url{https://zero.sjeng.org/best-network}.")
8650    (license license:gpl3+)))
8651
8652 (define-public q5go
8653   (package
8654    (name "q5go")
8655    (version "1.0")
8656    (source (origin
8657             (method git-fetch)
8658             (uri (git-reference
8659                   (url "https://github.com/bernds/q5Go.git")
8660                   (commit (string-append "q5go-" version))))
8661             (file-name (git-file-name name version))
8662             (sha256
8663              (base32
8664               "1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
8665    (build-system gnu-build-system)
8666    (native-inputs
8667     `(("pkg-config" ,pkg-config)))
8668    (inputs
8669     `(("qtbase" ,qtbase)
8670       ("qtmultimedia" ,qtmultimedia)
8671       ("qtsvg" ,qtsvg)))
8672    (arguments
8673     '(#:phases
8674       (modify-phases %standard-phases
8675         (add-after 'unpack 'fix-configure-script
8676           (lambda _
8677             ;; Bypass the unavailable qtchooser program.
8678             (substitute* "configure"
8679               (("test -z \"QTCHOOSER\"")
8680                "false")
8681               (("qtchooser -run-tool=(.*) -qt=qt5" _ command)
8682                command))
8683             #t))
8684         (add-after 'unpack 'fix-paths
8685           (lambda _
8686             (substitute* '("src/pics/Makefile.in"
8687                            "src/translations/Makefile.in")
8688               (("\\$\\(datadir\\)/qGo/")
8689                "$(datadir)/q5go/"))
8690             #t))
8691         (add-after 'install 'install-desktop-file
8692           (lambda* (#:key outputs #:allow-other-keys)
8693             (let* ((out (assoc-ref outputs "out"))
8694                    (apps (string-append out "/share/applications"))
8695                    (pics (string-append out "/share/q5go/pics")))
8696               (delete-file-recursively (string-append out "/share/applnk"))
8697               (delete-file-recursively (string-append out "/share/mimelnk"))
8698               (install-file "../source/src/pics/Bowl.ico" pics)
8699               (mkdir-p apps)
8700               (with-output-to-file (string-append apps "/q5go.desktop")
8701                 (lambda _
8702                   (format #t
8703                           "[Desktop Entry]~@
8704                            Name=q5go~@
8705                            Exec=~a/bin/q5go~@
8706                            Icon=~a/Bowl.ico~@
8707                            Categories=Game;~@
8708                            Comment=Game of Go~@
8709                            Comment[de]=Spiel des Go~@
8710                            Comment[eo]=Goo~@
8711                            Comment[es]=Juego de Go~@
8712                            Comment[fr]=Jeu de Go~@
8713                            Comment[ja]=囲碁~@
8714                            Comment[ko]=바둑~@
8715                            Comment[zh]=围棋~@
8716                            Terminal=false~@
8717                            Type=Application~%"
8718                           out pics))))
8719              #t)))))
8720    (synopsis "Qt GUI to play the game of Go")
8721    (description
8722     "This a tool for Go players which performs the following functions:
8723 @itemize
8724 @item SGF editor,
8725 @item Analysis frontend for Leela Zero (or compatible engines),
8726 @item GTP interface (to play against an engine),
8727 @item IGS client (to play on the internet),
8728 @item Export games to a variety of formats.
8729 @end itemize")
8730    (home-page "https://github.com/bernds/q5Go")
8731    (license license:gpl2+)))
8732
8733 (define-public ktuberling
8734   (package
8735     (name "ktuberling")
8736     (version "19.08.3")
8737     (source
8738      (origin
8739       (method url-fetch)
8740       (uri (string-append "mirror://kde/stable/applications/" version
8741                           "/src/ktuberling-" version ".tar.xz"))
8742       (sha256
8743        (base32 "1qdf4q6wjh1lnlqw5c8z4rpj9w5vbyjfri1dah6yjm3mwppbc12j"))))
8744     (build-system qt-build-system)
8745     (native-inputs
8746      `(("extra-cmake-modules" ,extra-cmake-modules)
8747        ("perl" ,perl)))
8748     (inputs
8749      `(("kcompletion" ,kcompletion)
8750        ("kconfigwidgets" ,kconfigwidgets)
8751        ("kcoreaddons" ,kcoreaddons)
8752        ("kcrash" ,kcrash)
8753        ("kdbusaddons" ,kdbusaddons)
8754        ("kdelibs4support" ,kdelibs4support)
8755        ("ki18n" ,ki18n)
8756        ("kwidgetsaddons" ,kwidgetsaddons)
8757        ("kxmlgui" ,kxmlgui)
8758        ("libkdegames" ,libkdegames)
8759        ("qtbase" ,qtbase)
8760        ("qtmultimedia" ,qtmultimedia)
8761        ("qtdeclarative" ,qtdeclarative)
8762        ("qtsvg" ,qtsvg)))
8763     (home-page "https://games.kde.org/")
8764     (synopsis "Stamp drawing toy")
8765     (description "KTuberling is a drawing toy intended for small children and
8766 adults who remain young at heart.  The game has no winner; the only purpose is
8767 to make the funniest faces you can.  Several activites are possible, e.g.:
8768
8769 @itemize
8770 @item Give the potato a funny face, clothes, and other goodies
8771 @item Build a small town, complete with school, zoo, and fire department
8772 @item Create a fantastic moonscape with spaceships and aliens
8773 @item Top a pizza
8774 @end itemize
8775
8776 KTuberling can speak the name of each the object in several languages,
8777 to assist in learning basic vocabulary.
8778
8779 This package is part of the KDE games module.")
8780     (license (list license:gpl2+ license:fdl1.2+))))
8781
8782 (define-public picmi
8783   (package
8784     (name "picmi")
8785     (version "19.08.3")
8786     (source
8787      (origin
8788       (method url-fetch)
8789       (uri (string-append "mirror://kde/stable/applications/" version
8790                           "/src/picmi-" version ".tar.xz"))
8791       (sha256
8792        (base32 "0z9mpmv49w914gqdx274brdzl6d1bz9j9nkvbwgmr3iq1ba49m3f"))))
8793     (build-system qt-build-system)
8794     (native-inputs
8795      `(("extra-cmake-modules" ,extra-cmake-modules)
8796        ("kdoctools" ,kdoctools)))
8797     (inputs
8798      `(("kcoreaddons" ,kcoreaddons)
8799        ("kcrash" ,kcrash)
8800        ("kdbusaddons" ,kdbusaddons)
8801        ("kdeclarative" ,kdeclarative)
8802        ("ki18n" ,ki18n)
8803        ("kio" ,kio)
8804        ("knewstuff" ,knewstuff)
8805        ("kxmlgui" ,kxmlgui)
8806        ("libkdegames" ,libkdegames)
8807        ("qtbase" ,qtbase)
8808        ("qtdeclarative" ,qtdeclarative)
8809        ("qtsvg" ,qtsvg)))
8810     (home-page "https://games.kde.org/")
8811     (synopsis "Number logic game")
8812     (description "Picmi is a number logic game in which cells in a grid have
8813 to be colored or left blank according to numbers given at the side of the
8814 grid.  The aim is to reveal a hidden picture.
8815
8816 This package is part of the KDE games module.")
8817     (license (list license:gpl2+ license:fdl1.2+))))
8818
8819 (define-public kolf
8820   (package
8821     (name "kolf")
8822     (version "19.08.3")
8823     (source
8824      (origin
8825        (method url-fetch)
8826        (uri (string-append "mirror://kde/stable/applications/" version
8827                            "/src/kolf-" version ".tar.xz"))
8828        (sha256
8829         (base32 "06sfd0llr5cc3zf1vrpcxgw9bm009ky7y8822kynic9ipcd4z1hw"))))
8830     (build-system qt-build-system)
8831     (native-inputs
8832      `(("extra-cmake-modules" ,extra-cmake-modules)
8833        ("kdoctools" ,kdoctools)))
8834     (inputs
8835      `(("kcompletion" ,kcompletion)
8836        ("kconfigwidgets" ,kconfigwidgets)
8837        ("kcoreaddons" ,kcoreaddons)
8838        ("kcrash" ,kcrash)
8839        ("kdbusaddons" ,kdbusaddons)
8840        ("ki18n" ,ki18n)
8841        ("kio" ,kio)
8842        ("kwidgetsaddons" ,kwidgetsaddons)
8843        ("kxmlgui" ,kxmlgui)
8844        ("ktextwidgets" ,ktextwidgets)
8845        ("libkdegames" ,libkdegames)
8846        ("qtbase" ,qtbase)
8847        ("qtdeclarative" ,qtdeclarative)))
8848     (home-page "https://games.kde.org/")
8849     (synopsis "Miniature golf game")
8850     (description "Kolf is a miniature golf game for one to ten players.  The
8851 game is played from an overhead view, with a short bar representing the golf
8852 club.  Kolf features many different types of objects, such as water hazards,
8853 slopes, sand traps, and black holes (warps), among others.
8854
8855 Features are:
8856 @itemize
8857 @item Single and Multi-player (up to ten players) modes
8858 @item High scores table
8859 @item Dynamic courses
8860 @item Third-party courses
8861 @item Course editor
8862 @end itemize
8863
8864 This package is part of the KDE games module.")
8865     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8866
8867 (define-public libkmahjongg
8868   (package
8869     (name "libkmahjongg")
8870     (version "19.08.3")
8871     (source
8872      (origin
8873       (method url-fetch)
8874       (uri (string-append "mirror://kde/stable/applications/"
8875                           version "/src/libkmahjongg-" version ".tar.xz"))
8876       (sha256
8877        (base32 "0rdimk11hrc8qrmiv26z0ddjzi1k6806c0rfskx4cwmildmh6zgx"))))
8878     (build-system qt-build-system)
8879     (native-inputs
8880      `(("extra-cmake-modules" ,extra-cmake-modules)))
8881     (inputs
8882      `(("kauth" ,kauth)
8883        ("kcompletion" ,kcompletion)
8884        ;("kconfig" ,kconfig)
8885        ("kcodecs" ,kcodecs)
8886        ("kconfigwidgets" ,kconfigwidgets)
8887        ("kcoreaddons" ,kcoreaddons)
8888        ("ki18n" ,ki18n)
8889        ("kwidgetsaddons" ,kwidgetsaddons)
8890        ("qtbase" ,qtbase)
8891        ("qtsvg" ,qtsvg)))
8892     (home-page "https://games.kde.org/")
8893     (synopsis "Shared library for kmahjongg and kshisen")
8894     (description "Shared library and common files for kmahjongg, kshisen and
8895 other Mah Jongg like games.")
8896     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8897
8898 (define-public kmahjongg
8899   (package
8900     (name "kmahjongg")
8901     (version "19.08.3")
8902     (source
8903      (origin
8904       (method url-fetch)
8905       (uri (string-append "mirror://kde/stable/applications/"
8906                           version "/src/kmahjongg-" version ".tar.xz"))
8907       (sha256
8908        (base32 "08na845h0nhmfrszdmvfq5y1dy7kgbrlzjp0f5snvbbf7w44ci6p"))))
8909     (build-system qt-build-system)
8910     (native-inputs
8911      `(("extra-cmake-modules" ,extra-cmake-modules)
8912        ("kdoctools" ,kdoctools)))
8913     (inputs
8914      `(("kcompletion" ,kcompletion)
8915        ("kcrash" ,kcrash)
8916        ("kdbusaddons" ,kdbusaddons)
8917        ("kdeclarative" ,kdeclarative)
8918        ("ki18n" ,ki18n)
8919        ("knewstuff" ,knewstuff)
8920        ("kxmlgui" ,kxmlgui)
8921        ("libkdegames" ,libkdegames)
8922        ("libkmahjongg" ,libkmahjongg)
8923        ("qtbase" ,qtbase)
8924        ("qtdeclarative" ,qtdeclarative)
8925        ("qtsvg" ,qtsvg)))
8926     (home-page "https://games.kde.org/")
8927     (synopsis "Tile laying patience")
8928     (description "In KMahjongg the tiles are scrambled and staked on top of
8929 each other to resemble a certain shape.  The player is then expected to remove
8930 all the tiles off the game board by locating each tile's matching pair.
8931
8932 A variety of tile layouts are included, as well as an editor to create new
8933 layouts.
8934
8935 This package is part of the KDE games module.")
8936     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8937
8938 (define-public kshisen
8939   (package
8940     (name "kshisen")
8941     (version "19.08.3")
8942     (source
8943      (origin
8944       (method url-fetch)
8945       (uri (string-append "mirror://kde/stable/applications/"
8946                           version "/src/kshisen-" version ".tar.xz"))
8947       (sha256
8948        (base32 "1bq5m48af4h5apfp3bfsp76nlpv6h5sc0gd544zv7cgpfznz1sds"))))
8949     (build-system qt-build-system)
8950     (native-inputs
8951      `(("extra-cmake-modules" ,extra-cmake-modules)
8952        ;("perl" ,perl)
8953        ;("pkg-config" ,pkg-config)
8954        ("kdoctools" ,kdoctools)))
8955     (inputs
8956      `(("kauth" ,kauth)
8957        ("kcompletion" ,kcompletion)
8958        ("kconfigwidgets" ,kconfigwidgets)
8959        ("kcoreaddons" ,kcoreaddons)
8960        ("kcrash" ,kcrash)
8961        ("kdbusaddons" ,kdbusaddons)
8962        ("ki18n" ,ki18n)
8963        ("kxmlgui" ,kxmlgui)
8964        ("libkdegames" ,libkdegames)
8965        ("libkmahjongg" ,libkmahjongg)
8966        ("qtbase" ,qtbase)
8967        ("qtdeclarative" ,qtdeclarative)))
8968     (home-page "https://games.kde.org/")
8969     (synopsis "Shisen-Sho solitaire game")
8970     (description "KShisen is a solitaire-like game played using the standard
8971 set of Mahjong tiles.  Unlike Mahjong however, KShisen has only one layer of
8972 scrambled tiles
8973
8974 This package is part of the KDE games module.")
8975     (license license:gpl2+)))
8976
8977 (define-public kajongg
8978   (package
8979     (name "kajongg")
8980     (version "19.08.3")
8981     (source
8982      (origin
8983       (method url-fetch)
8984       (uri (string-append "mirror://kde/stable/applications/"
8985                           version "/src/kajongg-" version ".tar.xz"))
8986       (sha256
8987        (base32 "0ql6p5zifdpdf65r7ki9ml123azpwwk9x3x8r9ij6xhjnf7p7x6w"))))
8988     (build-system qt-build-system)
8989     (native-inputs
8990      `(("extra-cmake-modules" ,extra-cmake-modules)
8991        ;("perl" ,perl)
8992        ("kdoctools" ,kdoctools)))
8993     (inputs
8994      `(("kconfig" ,kconfig)
8995        ("kconfigwidgets" ,kconfigwidgets)
8996        ("kcoreaddons" ,kcoreaddons)
8997        ("ki18n" ,ki18n)
8998        ("libkmahjongg" ,libkmahjongg)
8999        ("python" ,python)
9000        ("qtbase" ,qtbase)
9001        ("qtsvg" ,qtsvg)))
9002     (propagated-inputs
9003      `(("python-twisted" ,python-twisted)
9004        ("python-pyqt" ,python-pyqt)))
9005     ;; FIXME: Need to wrap PYTHONPATH
9006     (home-page "https://games.kde.org/")
9007     (synopsis "Classical Mah Jongg game for 4 players")
9008     (description "Kajongg is the ancient Chinese board game for 4 players.
9009
9010 If you are looking for the Mah Jongg solitaire please use the application
9011 kmahjongg.
9012
9013 Kajongg can be used in two different ways: Scoring a manual game where you
9014 play as always and use Kajongg for the computation of scores and for
9015 bookkeeping.  Or you can use Kajongg to play against any combination of other
9016 human players or computer players.
9017
9018 This package is part of the KDE games module.")
9019     (license (list license:gpl2+ license:fdl1.2+))))
9020
9021 (define-public kbreakout
9022   (package
9023     (name "kbreakout")
9024     (version "19.08.3")
9025     (source
9026      (origin
9027       (method url-fetch)
9028       (uri (string-append "mirror://kde/stable/applications/" version
9029                           "/src/kbreakout-" version ".tar.xz"))
9030       (sha256
9031        (base32 "0gwzx1z9mxrjlcjzglg8cxkyd6900whcar3b5j9laxxarc6xhj8w"))))
9032     (build-system qt-build-system)
9033     (native-inputs
9034      `(("extra-cmake-modules" ,extra-cmake-modules)
9035        ("kdoctools" ,kdoctools)))
9036     (inputs
9037      `(("kcompletion" ,kcompletion)
9038        ("kconfig" ,kconfig)
9039        ("kconfigwidgets" ,kconfigwidgets)
9040        ("kcoreaddons" ,kcoreaddons)
9041        ("kcrash" ,kcrash)
9042        ("kdbusaddons" ,kdbusaddons)
9043        ("ki18n" ,ki18n)
9044        ("kwidgetsaddons" ,kwidgetsaddons)
9045        ("kxmlgui" ,kxmlgui)
9046        ("libkdegames" ,libkdegames)
9047        ("qtbase" ,qtbase)
9048        ("qtdeclarative" ,qtdeclarative)))
9049     (home-page "https://games.kde.org/")
9050     (synopsis "Breakout like game")
9051     (description "KBreakout is similar to the classics breakout and xboing,
9052 featuring a number of added graphical enhancements and effects.  You control a
9053 paddle at the bottom of the playing-field, and must destroy bricks at the top
9054 by bouncing balls against them.
9055
9056 This package is part of the KDE games module.")
9057     (license (list license:gpl2+ license:fdl1.2+))))
9058
9059 (define-public kmines
9060   (package
9061     (name "kmines")
9062     (version "19.08.3")
9063     (source
9064      (origin
9065       (method url-fetch)
9066       (uri (string-append "mirror://kde/stable/applications/" version
9067                           "/src/kmines-" version ".tar.xz"))
9068       (sha256
9069        (base32 "0ac3za36lh8hpx6mqfic9amwmzhzhzplm9hg3pw12gxl5a9mvfsf"))))
9070     (build-system qt-build-system)
9071     (native-inputs
9072      `(("extra-cmake-modules" ,extra-cmake-modules)
9073        ("kdoctools" ,kdoctools)))
9074     (inputs
9075      `(("kcompletion" ,kcompletion)
9076        ("kconfig" ,kconfig)
9077        ("kconfigwidgets" ,kconfigwidgets)
9078        ("kcoreaddons" ,kcoreaddons)
9079        ("kcrash" ,kcrash)
9080        ("kdbusaddons" ,kdbusaddons)
9081        ("ki18n" ,ki18n)
9082        ("ktextwidgets" ,ktextwidgets)
9083        ("kwidgetsaddons" ,kwidgetsaddons)
9084        ("kxmlgui" ,kxmlgui)
9085        ("libkdegames" ,libkdegames)
9086        ("qtbase" ,qtbase)
9087        ("qtdeclarative" ,qtdeclarative)))
9088     (home-page "https://games.kde.org/")
9089     (synopsis "Classical mine sweeper game")
9090     (description "KMines is a classic Minesweeper game.  The idea is to
9091 uncover all the squares without blowing up any mines.  When a mine is blown
9092 up, the game is over.
9093
9094 This package is part of the KDE games module.")
9095     (license (list license:gpl2+ license:fdl1.2+))))
9096
9097 (define-public konquest
9098   (package
9099     (name "konquest")
9100     (version "19.08.3")
9101     (source
9102      (origin
9103       (method url-fetch)
9104       (uri (string-append "mirror://kde/stable/applications/"
9105                           version "/src/konquest-" version ".tar.xz"))
9106       (sha256
9107        (base32 "02gjxskhi10a1sqh3skcild8zria7wncz1a4sbz7ax1p851q76k1"))))
9108     (build-system qt-build-system)
9109     (native-inputs
9110      `(("extra-cmake-modules" ,extra-cmake-modules)
9111        ("kdoctools" ,kdoctools)))
9112     (inputs
9113      `(("kcompletion" ,kcompletion)
9114        ("kconfig" ,kconfig)
9115        ("kcoreaddons" ,kcoreaddons)
9116        ("kcrash" ,kcrash)
9117        ("kdbusaddons" ,kdbusaddons)
9118        ("kguiaddons" ,kguiaddons)
9119        ("ki18n" ,ki18n)
9120        ("kwidgetsaddons" ,kwidgetsaddons)
9121        ("kxmlgui" ,kxmlgui)
9122        ("libkdegames" ,libkdegames)
9123        ("qtbase" ,qtbase)
9124        ("qtdeclarative" ,qtdeclarative)
9125        ("qtsvg" ,qtsvg)))
9126     (home-page "https://games.kde.org/")
9127     (synopsis "Simple turn-based strategy game")
9128     (description "Konquest is the KDE version of Gnu-Lactic Konquest.  Players
9129 conquer other planets by sending ships to them.  The goal is to build an
9130 interstellar empire and ultimately conquer all other player's planets.  The
9131 game can be played with up to nine empires, commanded either by the computer
9132 or by puny earthlings.
9133
9134 This package is part of the KDE games module.")
9135     (license (list license:gpl2+ license:fdl1.2+))))
9136
9137 (define-public kbounce
9138   (package
9139     (name "kbounce")
9140     (version "19.08.3")
9141     (source
9142      (origin
9143       (method url-fetch)
9144       (uri (string-append "mirror://kde/stable/applications/"
9145                           version "/src/kbounce-" version ".tar.xz"))
9146       (sha256
9147        (base32 "02rfv0qzz5cmyfx8f56a45hbm9gsp6m3dcy8ajwx88rw5wpbrr11"))))
9148     (build-system qt-build-system)
9149     (native-inputs
9150      `(("extra-cmake-modules" ,extra-cmake-modules)
9151        ("kdoctools" ,kdoctools)))
9152     (inputs
9153      `(("kcompletion" ,kcompletion)
9154        ("kconfigwidgets" ,kconfigwidgets)
9155        ("kcoreaddons" ,kcoreaddons)
9156        ("kcrash" ,kcrash)
9157        ("kdbusaddons" ,kdbusaddons)
9158        ("ki18n" ,ki18n)
9159        ("kio" ,kio)
9160        ("kwidgetsaddons" ,kwidgetsaddons)
9161        ("kxmlgui" ,kxmlgui)
9162        ("libkdegames" ,libkdegames)
9163        ("qtbase" ,qtbase)
9164        ("qtdeclarative" ,qtdeclarative)
9165        ("qtsvg" ,qtsvg)))
9166     (home-page "https://games.kde.org/")
9167     (synopsis "Jezzball arcade game")
9168     (description "KBounce is a single player arcade game with the elements of
9169 puzzle.  It is played on a field, surrounded by wall, with two or more balls
9170 bouncing around within the walls.  The object of the game is to build new
9171 walls to decrease the size of the active field.
9172
9173 This package is part of the KDE games module.")
9174     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9175
9176 (define-public kblocks
9177   (package
9178     (name "kblocks")
9179     (version "19.08.3")
9180     (source
9181      (origin
9182       (method url-fetch)
9183       (uri (string-append "mirror://kde/stable/applications/"
9184                           version "/src/kblocks-" version ".tar.xz"))
9185       (sha256
9186        (base32 "0qrm0dihzhkxsq9l49ndzms802x6jn92vvabb2zf2q9z593m69cx"))))
9187     (build-system qt-build-system)
9188     (native-inputs
9189      `(("extra-cmake-modules" ,extra-cmake-modules)
9190        ("kdoctools" ,kdoctools)))
9191     (inputs
9192      `(("kcompletion" ,kcompletion)
9193        ("kconfig" ,kconfig)
9194        ("kconfigwidgets" ,kconfigwidgets)
9195        ("kcoreaddons" ,kcoreaddons)
9196        ("kcrash" ,kcrash)
9197        ("kdbusaddons" ,kdbusaddons)
9198        ("ki18n" ,ki18n)
9199        ("kwidgetsaddons" ,kwidgetsaddons)
9200        ("kxmlgui" ,kxmlgui)
9201        ("libkdegames" ,libkdegames)
9202        ("qtbase" ,qtbase)
9203        ("qtdeclarative" ,qtdeclarative)
9204        ("qtsvg" ,qtsvg)))
9205     (home-page "https://games.kde.org/")
9206     (synopsis "Single player falling blocks puzzle game")
9207     (description "KBlocks is the classic Tetris-like falling blocks game.
9208
9209 The idea is to stack the falling blocks to create horizontal lines without any
9210 gaps.  When a line is completed it is removed, and more space is available in
9211 the play area.  When there is not enough space for blocks to fall, the game is
9212 over.
9213
9214 This package is part of the KDE games module.")
9215     (license (list license:gpl2+ license:fdl1.2+))))
9216
9217 (define-public ksudoku
9218   (package
9219     (name "ksudoku")
9220     (version "19.08.3")
9221     (source
9222      (origin
9223       (method url-fetch)
9224       (uri (string-append "mirror://kde/stable/applications/"
9225                           version "/src/ksudoku-" version ".tar.xz"))
9226       (sha256
9227        (base32 "0rcscz91hilm7l3am5w02n0n8l7xhi4l0n4sskznh68kblw0ggw2"))))
9228     (build-system qt-build-system)
9229     (native-inputs
9230      `(("extra-cmake-modules" ,extra-cmake-modules)
9231        ("kdoctools" ,kdoctools)))
9232     (inputs
9233      `(("karchive", karchive)
9234        ("kconfig" ,kconfig)
9235        ("kconfigwidgets" ,kconfigwidgets)
9236        ("kcoreaddons" ,kcoreaddons)
9237        ("kcrash" ,kcrash)
9238        ("kguiaddons" ,kguiaddons)
9239        ("ki18n" ,ki18n)
9240        ("kiconthemes" ,kiconthemes)
9241        ("kio" ,kio)
9242        ("kwidgetsaddons" ,kwidgetsaddons)
9243        ("kxmlgui" ,kxmlgui)
9244        ("libkdegames" ,libkdegames)
9245        ("glu" ,glu)
9246        ("qtbase" ,qtbase)
9247        ("qtdeclarative" ,qtdeclarative)
9248        ("qtsvg" ,qtsvg)))
9249     (home-page "https://games.kde.org/")
9250     (synopsis "Sudoku puzzle game and solver")
9251     (description "KSudoku is a Sudoku game and solver, supporting a range of
9252 2D and 3D Sudoku variants.  In addition to playing Sudoku, it can print Sudoku
9253 puzzle sheets and find the solution to any Sudoku puzzle.
9254
9255 The word Sudoku means \"single number in an allotted place\" in Japanese.
9256 These are the basic rules: Every Sudoku is a square divided into 3x3
9257 subsquares with 3x3 cells each.
9258
9259 Some cells are filled with a number at the beginning.  The remaining ones are
9260 to be filled by the player using numbers from 1 to 9, without repeating a
9261 number twice on each column, row or subsquare (each of them must contain only
9262 one 1, one 2, one 3, and so on).  The game requires logic and patience.
9263 Solving takes usually 10 to 30 minutes, depending on puzzle level, your skill
9264 and experience.
9265
9266 The numerals in Sudoku puzzles are used for convenience (for example in 16x16
9267 board we use letters): arithmetic relationships between numbers are
9268 irrelevant.
9269
9270 This program supports also 16x16 games with numbers from 1 to 16 and 256
9271 cells with 16 cols, rows and subsquares!
9272
9273 More information at http://en.wikipedia.org/wiki/Sudoku
9274
9275 This package is part of the KDE games module.")
9276     (license (list license:gpl2+ license:fdl1.2+))))
9277
9278 (define-public klines
9279   (package
9280     (name "klines")
9281     (version "19.08.3")
9282     (source
9283      (origin
9284       (method url-fetch)
9285       (uri (string-append "mirror://kde/stable/applications/" version
9286                           "/src/klines-" version ".tar.xz"))
9287       (sha256
9288        (base32 "1g1f46jp0rb8gpqkgcf915ydpsscn1sxk3gjvm8bcqgx9ddq59xa"))))
9289     (build-system qt-build-system)
9290     (native-inputs
9291      `(("extra-cmake-modules" ,extra-cmake-modules)
9292        ("kdoctools" ,kdoctools)))
9293     (inputs
9294      `(("kcompletion" ,kcompletion)
9295        ("kconfigwidgets" ,kconfigwidgets)
9296        ("kcoreaddons" ,kcoreaddons)
9297        ("kcrash" ,kcrash)
9298        ("kdbusaddons" ,kdbusaddons)
9299        ("ki18n" ,ki18n)
9300        ("kwidgetsaddons" ,kwidgetsaddons)
9301        ("kxmlgui" ,kxmlgui)
9302        ("libkdegames" ,libkdegames)
9303        ("qtbase" ,qtbase)
9304        ("qtdeclarative" ,qtdeclarative)))
9305     (home-page "https://games.kde.org/")
9306     (synopsis "Place 5 equal pieces together, but wait, there are 3 new ones")
9307     (description "KLines is a simple but highly addictive one player game.
9308
9309 The player has to move the colored balls around the game board, gathering them
9310 into the lines of the same color by five.  Once the line is complete it is
9311 removed from the board, therefore freeing precious space.  In the same time
9312 the new balls keep arriving by three after each move, filling up the game
9313 board.
9314
9315 KLines is a single-player game where the player removes colored balls from the
9316 board by arranging them into lines of five or more.  However, every time the
9317 player moves a ball, three more balls are added to the board.
9318
9319 This package is part of the KDE games module.")
9320     (license (list license:gpl2+ license:fdl1.2+))))
9321
9322 (define-public kgoldrunner
9323   (package
9324     (name "kgoldrunner")
9325     (version "19.08.3")
9326     (source
9327      (origin
9328       (method url-fetch)
9329       (uri (string-append "mirror://kde/stable/applications/" version "/src/kgoldrunner-"
9330                            version ".tar.xz"))
9331       (sha256
9332        (base32 "16rcvq796r3asz4v4ap75xvwnxd3dd2nsq5r9vxvzl6rrf1w9bj4"))))
9333     (build-system qt-build-system)
9334     (native-inputs
9335      `(("extra-cmake-modules" ,extra-cmake-modules)
9336        ("kdoctools" ,kdoctools)))
9337     (inputs
9338      `(("kcompletion" ,kcompletion)
9339        ("kcoreaddons" ,kcoreaddons)
9340        ("kcrash" ,kcrash)
9341        ("kdbusaddons" ,kdbusaddons)
9342        ("ki18n" ,ki18n)
9343        ("kio" ,kio)
9344        ("kwidgetsaddons" ,kwidgetsaddons)
9345        ("kxmlgui" ,kxmlgui)
9346        ("libkdegames" ,libkdegames)
9347        ("qtbase" ,qtbase)
9348        ("qtdeclarative" ,qtdeclarative)))
9349     (home-page "https://games.kde.org/")
9350     (synopsis "Action and puzzle solving game")
9351     (description "KGoldrunner is an action game where the hero runs through a
9352 maze, climbs stairs, dig holes and dodges enemies in order to collect all the
9353 gold nuggets and escape to the next level.  Your enemies are also after the
9354 gold.  Worse still, they are after you!.
9355
9356 KGoldrunner is a fast-paced platform game where the player must navigate a
9357 maze while collecting gold nuggets and avoiding enemies.  A variety of level
9358 packs are included, as well as an editor to create new levels.
9359
9360 This package is part of the KDE games module.")
9361     (license (list license:gpl2+ license:fdl1.2+))))
9362
9363 (define-public kdiamond
9364   (package
9365     (name "kdiamond")
9366     (version "19.08.3")
9367     (source
9368      (origin
9369       (method url-fetch)
9370       (uri (string-append "mirror://kde/stable/applications/" version
9371                           "/src/kdiamond-" version ".tar.xz"))
9372       (sha256
9373        (base32 "1v5yb9hb26lk277zhw8d37ks829yfqr5anzx1qhms44gca5kqhva"))))
9374     (build-system qt-build-system)
9375     (native-inputs
9376      `(("extra-cmake-modules" ,extra-cmake-modules)
9377        ("kdoctools" ,kdoctools)))
9378     (inputs
9379      `(("kcompletion", kcompletion)
9380        ("kconfig" ,kconfig)
9381        ("kconfigwidgets" ,kconfigwidgets)
9382        ("kcoreaddons" ,kcoreaddons)
9383        ("kcrash" ,kcrash)
9384        ("kdbusaddons" ,kdbusaddons)
9385        ("ki18n" ,ki18n)
9386        ("knotifications" ,knotifications)
9387        ("knotifyconfig" ,knotifyconfig)
9388        ("kwidgetsaddons" ,kwidgetsaddons)
9389        ("kxmlgui" ,kxmlgui)
9390        ("libkdegames" ,libkdegames)
9391        ("qtbase" ,qtbase)
9392        ("qtdeclarative" ,qtdeclarative)))
9393     (home-page "https://games.kde.org/")
9394     (synopsis "Three-in-a-row game")
9395     (description "KDiamond is a three-in-a-row game like Bejeweled.  It
9396 features unlimited fun with randomly generated games and five difficulty
9397 levels with varying number of diamond colors and board sizes.
9398
9399 This package is part of the KDE games module.")
9400     (license (list license:gpl2+ license:fdl1.2+))))
9401
9402 (define-public kfourinline
9403   (package
9404     (name "kfourinline")
9405     (version "19.08.3")
9406     (source
9407      (origin
9408       (method url-fetch)
9409       (uri (string-append "mirror://kde/stable/applications/" version
9410                           "/src/kfourinline-" version ".tar.xz"))
9411       (sha256
9412        (base32 "1vprs6dc1ccn3g6k594i9s94xy4b91vzlqjysyc6fqcq2fs54ny3"))))
9413     (build-system qt-build-system)
9414     (native-inputs
9415      `(("extra-cmake-modules" ,extra-cmake-modules)
9416        ("kdoctools" ,kdoctools)))
9417     (inputs
9418      `(("kcompletion" ,kcompletion)
9419        ("kconfig" ,kconfig)
9420        ("kconfigwidgets" ,kconfigwidgets)
9421        ("kcoreaddons" ,kcoreaddons)
9422        ("kcrash" ,kcrash)
9423        ("kdelibs4support" ,kdelibs4support)
9424        ("kdnssd" ,kdnssd)
9425        ("ki18n" ,ki18n)
9426        ("kxmlgui" ,kxmlgui)
9427        ("libkdegames" ,libkdegames)
9428        ("qtbase" ,qtbase)
9429        ("qtdeclarative" ,qtdeclarative)
9430        ("qtsvg" ,qtsvg)))
9431     (home-page "https://games.kde.org/")
9432     (synopsis "Place 4 pieces in a row")
9433     (description "KFourInLine is a board game for two players based on the
9434 Connect-Four game.
9435
9436 KFourInLine is a game where two players take turns dropping pieces into a
9437 grid, the winner being the first to place four pieces in a line.
9438
9439 This package is part of the KDE games module.")
9440     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9441
9442 (define-public kblackbox
9443   (package
9444     (name "kblackbox")
9445     (version "19.08.3")
9446     (source
9447      (origin
9448       (method url-fetch)
9449       (uri (string-append "mirror://kde/stable/applications/" version
9450                           "/src/kblackbox-" version ".tar.xz"))
9451       (sha256
9452        (base32 "1x42sfpf75c6mavwkc7g7dm11y9s5dpj8igphly5kvm0pajqby0n"))))
9453     (build-system qt-build-system)
9454     (native-inputs
9455      `(("extra-cmake-modules" ,extra-cmake-modules)
9456        ("kdoctools" ,kdoctools)))
9457     (inputs
9458      `(("karchive" ,karchive)
9459        ("kcompletion" ,kcompletion)
9460        ("kconfig" ,kconfig)
9461        ("kcoreaddons" ,kcoreaddons)
9462        ("kcrash" ,kcrash)
9463        ("kdbusaddons" ,kdbusaddons)
9464        ("ki18n" ,ki18n)
9465        ("ktextwidgets" ,ktextwidgets)
9466        ("kxmlgui" ,kxmlgui)
9467        ("libkdegames" ,libkdegames)
9468        ("qtbase" ,qtbase)
9469        ("qtdeclarative" ,qtdeclarative)
9470        ("qtsvg" ,qtsvg)))
9471     (home-page "https://games.kde.org/")
9472     (synopsis "Find atoms in a grid by shooting electrons")
9473     (description "KBlackbox is a game of hide and seek played on a grid of
9474 boxes where the computer has hidden several balls.  The position of the hidden
9475 balls can be deduced by shooting beams into the box
9476
9477 KBlackBox is a game of hide and seek played on an grid of boxes, where the
9478 player shoots rays into the grid to deduce the positions of hidden objects.
9479
9480 This package is part of the KDE games module.")
9481     (license (list license:gpl2+ license:fdl1.2+))))
9482
9483 (define-public knetwalk
9484   (package
9485     (name "knetwalk")
9486     (version "19.08.3")
9487     (source
9488      (origin
9489       (method url-fetch)
9490       (uri (string-append "mirror://kde/stable/applications/" version
9491                           "/src/knetwalk-" version ".tar.xz"))
9492       (sha256
9493        (base32 "1i340salzgqdw8y33wrrydmpgx3pvwf5wrbljlh67cjf6s4csx7d"))))
9494     (build-system qt-build-system)
9495     (native-inputs
9496      `(("extra-cmake-modules" ,extra-cmake-modules)
9497        ("kdoctools" ,kdoctools)))
9498     (inputs
9499      `(("kcompletion" ,kcompletion)
9500        ("kconfig" ,kconfig)
9501        ("kconfigwidgets" ,kconfigwidgets)
9502        ("kcoreaddons" ,kcoreaddons)
9503        ("kcrash" ,kcrash)
9504        ("kdbusaddons" ,kdbusaddons)
9505        ("ki18n" ,ki18n)
9506        ("ktextwidgets" ,ktextwidgets)
9507        ("kwidgetsaddons" ,kwidgetsaddons)
9508        ("kxmlgui" ,kxmlgui)
9509        ("libkdegames" ,libkdegames)
9510        ("qtbase" ,qtbase)
9511        ("qtdeclarative" ,qtdeclarative)))
9512     (home-page "https://games.kde.org/")
9513     (synopsis "Turn the board pieces to get all computers connected")
9514     (description "KNetWalk is a small game where you have to build up a
9515 computer network by rotating the wires to connect the terminals to the server.
9516 When the network is build, a highscore-list comes up where competitions can be
9517 fought out.
9518
9519 KNetwalk is a puzzle game where the player arranges sections of wire to
9520 connect all the computers on the board.
9521
9522 This package is part of the KDE games module.")
9523     (license (list license:gpl2+ license:fdl1.2+))))
9524
9525 (define-public bomber
9526   (package
9527     (name "bomber")
9528     (version "19.08.3")
9529     (source
9530      (origin
9531        (method url-fetch)
9532        (uri (string-append "mirror://kde/stable/applications/" version
9533                            "/src/bomber-" version ".tar.xz"))
9534        (sha256
9535         (base32 "1lvzd0mzgq25akvwvkm57l3plm65k731v2i1ahakn985bb5gc3is"))))
9536     (build-system qt-build-system)
9537     (native-inputs
9538      `(("extra-cmake-modules" ,extra-cmake-modules)
9539        ("kdoctools" ,kdoctools)))
9540     (inputs
9541      `(("kcompletiom" ,kcompletion)
9542        ("kconfig" ,kconfig)
9543        ("kcoreaddons" ,kcoreaddons)
9544        ("kcrash" ,kcrash)
9545        ("kdbusaddons" ,kdbusaddons)
9546        ("ki18n" ,ki18n)
9547        ("kxmlgui" ,kxmlgui)
9548        ("libkdegames" ,libkdegames)
9549        ("qtbase" ,qtbase)
9550        ("qtdeclarative" ,qtdeclarative)))
9551     (home-page "https://games.kde.org/")
9552     (synopsis "Arcade bombing game")
9553     (description "Bomber is a single player arcade game.
9554
9555 The player is invading various cities in a plane that is decreasing in height.
9556 The goal of the game is to destroy all the buildings and advance to the next
9557 level.  Each level gets a bit harder by increasing the speed of the plane and
9558 the height of the buildings.
9559
9560 Bomber is a game where you fly a spaceship and attempt to bomb the buildings
9561 below you.  Each pass the spaceship makes, it gets lower and lower.  If you've
9562 not destroyed a building in your path, you will crash into it.
9563
9564 This package is part of the KDE games module.")
9565     (license (list license:gpl2+ license:fdl1.2+))))
9566
9567 (define-public granatier
9568   (package
9569     (name "granatier")
9570     (version "19.08.3")
9571     (source
9572      (origin
9573       (method url-fetch)
9574       (uri (string-append "mirror://kde/stable/applications/" version
9575                           "/src/granatier-" version ".tar.xz"))
9576       (sha256
9577        (base32 "141qmdinz7ikbbrs8dq6cap3nl22sl7pw62r80pf3xxwn2q4phpa"))))
9578     (build-system qt-build-system)
9579     (native-inputs
9580      `(("extra-cmake-modules" ,extra-cmake-modules)
9581        ("kdoctools" ,kdoctools)))
9582     (inputs
9583      `(("kcompletion" ,kcompletion)
9584        ("kconfig" ,kconfig)
9585        ("kconfigwidgets" ,kconfigwidgets)
9586        ("kcoreaddons" ,kcoreaddons)
9587        ("kcrash" ,kcrash)
9588        ("kdbusaddons" ,kdbusaddons)
9589        ("ki18n" ,ki18n)
9590        ("knewstuff" ,knewstuff)
9591        ("kwidgetsaddons" ,kwidgetsaddons)
9592        ("kxmlgui" ,kxmlgui)
9593        ("libkdegames" ,libkdegames)
9594        ("qtbase" ,qtbase)
9595        ("qtdeclarative" ,qtdeclarative)
9596        ("qtsvg" ,qtsvg)))
9597     (home-page "https://games.kde.org/")
9598     (synopsis "Bomberman clone")
9599     (description "Granatier is a clone of the classic Bomberman game,
9600 inspired by the work of the Clanbomber clone.
9601
9602 This package is part of the KDE games module.")
9603     (license (list license:gpl2+ license:fdl1.2+))))
9604
9605 (define-public ksirk
9606   (package
9607     (name "ksirk")
9608     (version "19.08.3")
9609     (source
9610      (origin
9611        (method url-fetch)
9612        (uri (string-append "mirror://kde/stable/applications/" version
9613                           "/src/ksirk-" version ".tar.xz"))
9614        (sha256
9615         (base32 "1b1wixs2hp5qnvdygfwa3kvy0kn94ysa4ifmx90q6r3yfr2lpfca"))))
9616     (build-system qt-build-system)
9617     (native-inputs
9618      `(("extra-cmake-modules" ,extra-cmake-modules)
9619        ("kdoctools" ,kdoctools)))
9620     (inputs
9621      `(("kcrash" ,kcrash)
9622        ("ki18n" ,ki18n)
9623        ("kiconthemes" ,kiconthemes)
9624        ("kio" ,kio)
9625        ("knewstuff" ,knewstuff)
9626        ("kwallet" ,kwallet)
9627        ("kxmlgui" ,kxmlgui)
9628        ("libkdegames" ,libkdegames)
9629        ("phonon" ,phonon)
9630        ("qca" ,qca)
9631        ("qtbase" ,qtbase)
9632        ("qtdeclarative" ,qtdeclarative)
9633        ("qtsvg" ,qtsvg)
9634        ("zlib" ,zlib)))
9635     (home-page "https://games.kde.org/")
9636     (synopsis "Computerized version of the well known strategy board game
9637 'Risk'")
9638     (description "KsirK is a multi-player network-enabled game.  The goal of
9639 the game is simply to conquer the world by attacking your neighbors with your
9640 armies.
9641
9642 At the beginning of the game, countries are distributed to all the players.
9643 Each country contains one army represented by an infantryman.  Each player has
9644 some armies to distribute to his countries.  On each turn, each player can
9645 attack his neighbours, eventually conquering one or more countries.  At the
9646 end of each turn, some bonus armies are distributed to the players in function
9647 of the number of countries they own.  The winner is the player that conquered
9648 all the world.
9649
9650 Features:
9651 @itemize
9652 @item Support for 1-6 human or computer players
9653 @item Multi-player gaming over a network
9654 @item You can easily create new skins with SVG graphics and the skin editor
9655 @item Hot New Stuff support.  You can easily download and install new skins
9656 @end itemize
9657
9658 This package is part of the KDE games module.")
9659     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9660
9661 (define-public palapeli
9662   (package
9663     (name "palapeli")
9664     (version "19.08.3")
9665     (source
9666      (origin
9667        (method url-fetch)
9668        (uri (string-append "mirror://kde/stable/applications/" version
9669                            "/src/palapeli-" version ".tar.xz"))
9670        (sha256
9671         (base32 "1g91ydbc0x2y2gn3lcb5w03mn7k78l5bq4cb1s59kx6yjbflv3pw"))))
9672     (build-system qt-build-system)
9673     (native-inputs
9674      `(("extra-cmake-modules" ,extra-cmake-modules)
9675        ("kdoctools" ,kdoctools)))
9676     (inputs
9677      `(("karchive" ,karchive)
9678        ("kcompletion" ,kcompletion)
9679        ("kconfig" ,kconfig)
9680        ("kconfigwidgets" ,kconfigwidgets)
9681        ("kcoreaddons" ,kcoreaddons)
9682        ("kcrash" ,kcrash)
9683        ("kcrash" ,kcrash)
9684        ("ki18n" ,ki18n)
9685        ("ki18n" ,ki18n)
9686        ("kio" ,kio)
9687        ("kitemviews" ,kitemviews)
9688        ("knotifications" ,knotifications)
9689        ("kservice" ,kservice)
9690        ("kwidgetsaddons" ,kwidgetsaddons)
9691        ("kxmlgui" ,kxmlgui)
9692        ("libkdegames" ,libkdegames)
9693        ("qtbase" ,qtbase)
9694        ("qtdeclarative" ,qtdeclarative)
9695        ("qtsvg" ,qtsvg)
9696        ("shared-mime-info" ,shared-mime-info)))
9697     (home-page "https://games.kde.org/")
9698     (synopsis "Jigsaw puzzle game")
9699     (description "Palapeli is a jigsaw puzzle game.  Unlike other games in
9700 that genre, you are not limited to aligning pieces on imaginary grids.  The
9701 pieces are freely moveable.  Also, Palapeli features real persistency, i.e.
9702 everything you do is saved on your disk immediately.
9703
9704 Palapeli is the Finnish word for jigsaw puzzle.
9705
9706 This package is part of the KDE games module.")
9707     (license license:gpl2+)))
9708
9709 (define-public kiriki
9710   (package
9711     (name "kiriki")
9712     (version "19.08.3")
9713     (source
9714      (origin
9715        (method url-fetch)
9716        (uri (string-append "mirror://kde/stable/applications/" version
9717                            "/src/kiriki-" version ".tar.xz"))
9718        (sha256
9719         (base32 "1xg25dj95g81dc5l7k47am4j52abrwwfx4h73lvsbn4lc8lfmshw"))))
9720     (build-system qt-build-system)
9721     (native-inputs
9722      `(("extra-cmake-modules" ,extra-cmake-modules)
9723        ("kdoctools" ,kdoctools)))
9724     (inputs
9725      `(("kcompletion" ,kcompletion)
9726        ("kconfig" ,kconfig)
9727        ("kconfigwidgets" ,kconfigwidgets)
9728        ("kcoreaddons" ,kcoreaddons)
9729        ("kcrash" ,kcrash)
9730        ("kdbusaddons" ,kdbusaddons)
9731        ("ki18n" ,ki18n)
9732        ("kiconthemes" ,kiconthemes)
9733        ("kxmlgui" ,kxmlgui)
9734        ("libkdegames" ,libkdegames)
9735        ("qtbase" ,qtbase)
9736        ("qtdeclarative" ,qtdeclarative)))
9737     (home-page "https://games.kde.org/")
9738     (synopsis "Yahtzee dice game")
9739     (description "Kiriki is an addictive and fun dice game, designed to be
9740 played by as many as six players.
9741
9742 Participants have to collect points by rolling five dice for up to three times
9743 per single turn to make combinations with the highest score.
9744
9745 This package is part of the KDE games module.")
9746     (license (list license:gpl2+ license:fdl1.2+))))
9747
9748 (define-public kigo
9749   (package
9750     (name "kigo")
9751     (version "19.08.3")
9752     (source
9753      (origin
9754        (method url-fetch)
9755        (uri (string-append "mirror://kde/stable/applications/" version
9756                            "/src/kigo-" version ".tar.xz"))
9757        (sha256
9758         (base32 "00l5gcbi8xyj9c1lngkrddka3a4m4cd78prfplrpq32ma9xq681f"))))
9759     (build-system qt-build-system)
9760     (native-inputs
9761      `(("extra-cmake-modules" ,extra-cmake-modules)
9762        ("kdoctools" ,kdoctools)))
9763     (inputs
9764      `(("kconfig" ,kconfig)
9765        ("kconfigwidgets" ,kconfigwidgets)
9766        ("kcoreaddons" ,kcoreaddons)
9767        ("kcrash" ,kcrash)
9768        ("kdbusaddons" ,kdbusaddons)
9769        ("ki18n" ,ki18n)
9770        ("kio" ,kio)
9771        ("knewstuff", knewstuff)
9772        ("ktextwidgets" ,ktextwidgets)
9773        ("kxmlgui" ,kxmlgui)
9774        ("libkdegames" ,libkdegames)
9775        ("qtbase" ,qtbase)
9776        ("qtdeclarative" ,qtdeclarative)
9777        ("qtsvg" ,qtsvg)))
9778     (home-page "https://games.kde.org/")
9779     (synopsis "Go board game")
9780     (description "Kigo is an open-source implementation of the popular Go
9781 game.
9782
9783 Go is a strategic board game for two players.  It is also known as
9784 igo (Japanese), weiqi or wei ch'i (Chinese) or baduk (Korean).  Go is noted
9785 for being rich in strategic complexity despite its simple rules.  The game is
9786 played by two players who alternately place black and white stones (playing
9787 pieces, now usually made of glass or plastic) on the vacant intersections of a
9788 grid of 19x19 lines (9x9 or 13x13 for easier games).
9789
9790 You also need to install a go engine, e.g. @code{gnugo}.
9791
9792 This package is part of the KDE games module.")
9793     (license license:gpl3+)))
9794
9795 (define-public kubrick
9796   (package
9797     (name "kubrick")
9798     (version "19.08.3")
9799     (source
9800      (origin
9801        (method url-fetch)
9802        (uri (string-append "mirror://kde/stable/applications/" version
9803                            "/src/kubrick-" version ".tar.xz"))
9804        (sha256
9805         (base32 "0ma8wja4rqlsmsr8cyicfpkwlgqva4450ls4c0ql53p0kabf04gx"))))
9806     (build-system qt-build-system)
9807     (native-inputs
9808      `(("extra-cmake-modules" ,extra-cmake-modules)
9809        ("kdoctools" ,kdoctools)))
9810     (inputs
9811      `(("glu" ,glu)
9812        ("kconfig" ,kconfig)
9813        ("kconfigwidgets" ,kconfigwidgets)
9814        ("kcoreaddons" ,kcoreaddons)
9815        ("kcrash" ,kcrash)
9816        ("ki18n" ,ki18n)
9817        ("kio" ,kio)
9818        ("kwidgetsaddons" ,kwidgetsaddons)
9819        ("kxmlgui" ,kxmlgui)
9820        ("libkdegames" ,libkdegames)
9821        ("qtbase" ,qtbase)
9822        ("qtdeclarative" ,qtdeclarative)
9823        ("qtsvg" ,qtsvg)))
9824     (home-page "https://games.kde.org/")
9825     (synopsis "Game based on Rubik's Cube")
9826     (description "Kubrick is a game based on the Rubik's Cube puzzle.
9827
9828 The cube sizes range from 2x2x2 up to 6x6x6, or you can play with irregular
9829 \"bricks\" such as 5x3x2 or \"mats\" such as 6x4x1 or 2x2x1.  The game has a
9830 selection of puzzles at several levels of difficulty, as well as demos of
9831 pretty patterns and solution moves, or you can make up your own puzzles.  The
9832 game has unlimited undo, redo, save and reload capabilities.
9833
9834 This package is part of the KDE games module.")
9835     (license (list license:gpl2+ license:fdl1.2+))))
9836
9837 (define-public lskat
9838   (package
9839     (name "lskat")
9840     (version "19.08.3")
9841     (source
9842      (origin
9843        (method url-fetch)
9844        (uri (string-append "mirror://kde/stable/applications/" version
9845                            "/src/lskat-" version ".tar.xz"))
9846        (sha256
9847         (base32 "1qk5hd27zb42pbcxq5wyzz62nj5f0qdmgy54r9rnk92pzzzk94s9"))))
9848     (build-system qt-build-system)
9849     (native-inputs
9850      `(("extra-cmake-modules" ,extra-cmake-modules)
9851        ("kdoctools" ,kdoctools)))
9852     (inputs
9853      `(("kcompletion" ,kcompletion)
9854        ("kconfig" ,kconfig)
9855        ("kcoreaddons" ,kcoreaddons)
9856        ("kcrash" ,kcrash)
9857        ("kguiaddons" ,kguiaddons)
9858        ("ki18n" ,ki18n)
9859        ("kwidgetsaddons" ,kwidgetsaddons)
9860        ("kxmlgui" ,kxmlgui)
9861        ("libkdegames" ,libkdegames)
9862        ("qtbase" ,qtbase)
9863        ("qtdeclarative" ,qtdeclarative)
9864        ("qtsvg" ,qtsvg)))
9865     (home-page "https://games.kde.org/")
9866     (synopsis "Lieutnant Skat card game")
9867     (description "Lieutnant Skat (from German \"Offiziersskat\") is a fun and
9868 engaging card game for two players, where the second player is either live
9869 opponent, or a built in artificial intelligence.
9870
9871 Lieutnant Skat is a simplified variant of the Skat card game for two players.
9872
9873 This package is part of the KDE games module.")
9874     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9875
9876 (define-public kapman
9877   (package
9878     (name "kapman")
9879     (version "19.08.3")
9880     (source
9881      (origin
9882       (method url-fetch)
9883       (uri (string-append "mirror://kde/stable/applications/" version
9884                           "/src/kapman-" version ".tar.xz"))
9885       (sha256
9886        (base32 "03pq38caam30q4bw14c045kayw2d87xq1yaa3s2jkrylylfq3p0f"))))
9887     (build-system qt-build-system)
9888     (native-inputs
9889      `(("extra-cmake-modules" ,extra-cmake-modules)
9890        ("kdoctools" ,kdoctools)))
9891     (inputs
9892      `(("kcompletion" ,kcompletion)
9893        ("kconfig" ,kconfig)
9894        ("kconfigwidgets" ,kconfigwidgets)
9895        ("kcoreaddons" ,kcoreaddons)
9896        ("kcrash" ,kcrash)
9897        ("kdbusaddons" ,kdbusaddons)
9898        ("ki18n" ,ki18n)
9899        ("kxmlgui" ,kxmlgui)
9900        ("libkdegames" ,libkdegames)
9901        ("qtbase" ,qtbase)
9902        ("qtdeclarative" ,qtdeclarative)
9903        ("qtsvg" ,qtsvg)))
9904     (home-page "https://games.kde.org/")
9905     (synopsis "Pac-Man clone")
9906     (description "Kapman is a clone of the well known game Pac-Man.
9907
9908 You must run through the maze to eat all pills without being captured by a
9909 ghost.  By eating an energizer, Kapman gets the ability to eat ghosts for a
9910 few seconds.  When a stage is cleared of pills and energizer the player is
9911 taken to the next stage with slightly increased game speed
9912
9913 This package is part of the KDE games module.")
9914     (license (list license:gpl2+ license:fdl1.2+))))
9915
9916 (define-public kspaceduel
9917   (package
9918     (name "kspaceduel")
9919     (version "19.08.3")
9920     (source
9921      (origin
9922        (method url-fetch)
9923        (uri (string-append "mirror://kde/stable/applications/" version
9924                            "/src/kspaceduel-" version ".tar.xz"))
9925        (sha256
9926         (base32 "1hppni0ihs7psc0dly5rxyy2a38nzhlig9yfyhi3lkh36z05pql8"))))
9927     (build-system qt-build-system)
9928     (native-inputs
9929      `(("extra-cmake-modules" ,extra-cmake-modules)
9930        ("kdoctools" ,kdoctools)))
9931     (inputs
9932      `(("kcompletion" ,kcompletion)
9933        ("kconfig" ,kconfig)
9934        ("kconfigwidgets" ,kconfigwidgets)
9935        ("kcoreaddons" ,kcoreaddons)
9936        ("kcrash" ,kcrash)
9937        ("kdbusaddons" ,kdbusaddons)
9938        ("ki18n" ,ki18n)
9939        ("kxmlgui" ,kxmlgui)
9940        ("libkdegames" ,libkdegames)
9941        ("qtbase" ,qtbase)
9942        ("qtdeclarative" ,qtdeclarative)
9943        ("qtsvg" ,qtsvg)))
9944     (home-page "https://games.kde.org/")
9945     (synopsis "Two player game with shooting spaceships flying around a sun")
9946     (description "KSpaceduel is a space battle game for one or two players,
9947 where two ships fly around a star in a struggle to be the only survivor.
9948
9949 This package is part of the KDE games module.")
9950     (license (list license:gpl2+ license:fdl1.2+))))
9951
9952 (define-public bovo
9953   (package
9954     (name "bovo")
9955     (version "19.08.3")
9956     (source
9957      (origin
9958        (method url-fetch)
9959        (uri (string-append "mirror://kde/stable/applications/" version
9960                            "/src/bovo-" version ".tar.xz"))
9961        (sha256
9962         (base32 "0dbpng0w52nahmx7brsll66zw23ql1g6pcvn2k4g2lnvxch0i59g"))))
9963     (build-system qt-build-system)
9964     (native-inputs
9965      `(("extra-cmake-modules" ,extra-cmake-modules)
9966        ("kdoctools" ,kdoctools)))
9967     (inputs
9968      `(("kcompletion" ,kcompletion)
9969        ("kcoreaddons" ,kcoreaddons)
9970        ("kcrash" ,kcrash)
9971        ("kdbusaddons" ,kdbusaddons)
9972        ("ki18n" ,ki18n)
9973        ("kxmlgui" ,kxmlgui)
9974        ("libkdegames" ,libkdegames)
9975        ("qtbase" ,qtbase)
9976        ("qtdeclarative" ,qtdeclarative)
9977        ("qtsvg" ,qtsvg)))
9978     (home-page "https://games.kde.org/")
9979     (synopsis "Classic pen and paper game: five in a line")
9980     (description "Bovo is a Gomoku (from Japanese 五目並べ - lit.  \"five
9981 points\") like game for two players, where the opponents alternate in placing
9982 their respective pictogram on the game board.  The winner is the first to
9983 complete a line of five markers.  (Also known as: Connect Five, Five in a row,
9984 X and O, Naughts and Crosses)
9985
9986 This package is part of the KDE games module.")
9987     (license (list license:gpl2+ license:fdl1.2+))))
9988
9989 (define-public killbots
9990   (package
9991     (name "killbots")
9992     (version "19.08.3")
9993     (source
9994      (origin
9995        (method url-fetch)
9996        (uri (string-append "mirror://kde/stable/applications/" version
9997                            "/src/killbots-" version ".tar.xz"))
9998        (sha256
9999         (base32 "1qi86q7diw7glkp9v33yim9nhz2da4balbxa1hjrdgjdv8zdbxbm"))))
10000     (build-system qt-build-system)
10001     (native-inputs
10002      `(("extra-cmake-modules" ,extra-cmake-modules)
10003        ("kdoctools" ,kdoctools)))
10004     (inputs
10005      `(("kcompletion" ,kcompletion)
10006        ("kconfig" ,kconfig)
10007        ("kconfigwidgets" ,kconfigwidgets)
10008        ("kcoreaddons" ,kcoreaddons)
10009        ("kcrash" ,kcrash)
10010        ("kdbusaddons" ,kdbusaddons)
10011        ("ki18n" ,ki18n)
10012        ("kwidgetsaddons" ,kwidgetsaddons)
10013        ("kxmlgui" ,kxmlgui)
10014        ("libkdegames" ,libkdegames)
10015        ("qtbase" ,qtbase)
10016        ("qtdeclarative" ,qtdeclarative)))
10017     (home-page "https://games.kde.org/")
10018     (synopsis "Port of the classic BSD console game robots")
10019     (description "Killbots is a simple game of evading killer robots.
10020
10021 Who created the robots and why they have been programmed to destroy, no one
10022 knows.  All that is known is that the robots are numerous and their sole
10023 objective is to destroy you.  Fortunately for you, their creator has focused
10024 on quantity rather than quality and as a result the robots are severely
10025 lacking in intelligence.  Your superior wit and a fancy teleportation device
10026 are your only weapons against the never-ending stream of mindless automatons.
10027
10028 This package is part of the KDE games module.")
10029     (license (list license:gpl2+ license:fdl1.2+))))
10030
10031 (define-public ksnakeduel
10032   (package
10033     (name "ksnakeduel")
10034     (version "19.08.3")
10035     (source
10036      (origin
10037       (method url-fetch)
10038       (uri (string-append "mirror://kde/stable/applications/" version
10039                           "/src/ksnakeduel-" version ".tar.xz"))
10040       (sha256
10041        (base32 "0mprrnpax8pv7ab36zwhvdfj8id52w8g6x76nnj8qvkdlkjiqdnn"))))
10042     (build-system qt-build-system)
10043     (native-inputs
10044      `(("extra-cmake-modules" ,extra-cmake-modules)
10045        ("kdoctools" ,kdoctools)))
10046     (inputs
10047      `(("kcompletion" ,kcompletion)
10048        ("kconfig" ,kconfig)
10049        ("kconfigwidgets" ,kconfigwidgets)
10050        ("kcoreaddons" ,kcoreaddons)
10051        ("kcrash" ,kcrash)
10052        ("kdbusaddons" ,kdbusaddons)
10053        ("kguiaddons" ,kguiaddons)
10054        ("ki18n" ,ki18n)
10055        ("kxmlgui" ,kxmlgui)
10056        ("libkdegames" ,libkdegames)
10057        ("qtbase" ,qtbase)
10058        ("qtdeclarative" ,qtdeclarative)
10059        ("qtsvg" ,qtsvg)))
10060     (home-page "https://games.kde.org/")
10061     (synopsis "Snake race played against the computer")
10062     (description "KSnakeDuel is a fast action game where you steer a snake
10063 which has to eat food.  While eating the snake grows.  But once a player
10064 collides with the other snake or the wall the game is lost.  This becomes of
10065 course more and more difficult the longer the snakes grow.
10066
10067 This package is part of the KDE games module.")
10068     (license (list license:gpl2+ license:fdl1.2+))))
10069
10070 (define-public kollision
10071   (package
10072     (name "kollision")
10073     (version "19.08.3")
10074     (source
10075      (origin
10076       (method url-fetch)
10077       (uri (string-append "mirror://kde/stable/applications/" version
10078                           "/src/kollision-" version ".tar.xz"))
10079       (sha256
10080        (base32 "1p7qrn3d0ybpvc9k6k5wzj54dsrp1rqh39844maz0ay2fhvmch12"))))
10081     (build-system qt-build-system)
10082     (native-inputs
10083      `(("extra-cmake-modules" ,extra-cmake-modules)
10084        ("kdoctools" ,kdoctools)))
10085     (inputs
10086      `(("kcompletion" ,kcompletion)
10087        ("kconfig" ,kconfig)
10088        ("kcoreaddons" ,kcoreaddons)
10089        ("kcrash" ,kcrash)
10090        ("kdbusaddons" ,kdbusaddons)
10091        ("ki18n" ,ki18n)
10092        ("kwidgetsaddons" ,kwidgetsaddons)
10093        ("kxmlgui" ,kxmlgui)
10094        ("libkdegames" ,libkdegames)
10095        ("qtbase" ,qtbase)
10096        ("qtdeclarative" ,qtdeclarative)))
10097     (home-page "https://games.kde.org/")
10098     (synopsis "Simple ball dodging game")
10099     (description "In Kollision you use mouse to control a small blue ball in a
10100 closed space environment filled with small red balls, which move about
10101 chaotically.  Your goal is to avoid touching any of those red balls with your
10102 blue one, because the moment you do the game will be over.  The longer you can
10103 stay in game the higher will your score be.
10104
10105 This package is part of the KDE games module.")
10106     (license (list license:gpl2+ license:fdl1.2+))))
10107
10108 (define-public knavalbattle
10109   (package
10110     (name "knavalbattle")
10111     (version "19.08.3")
10112     (source
10113      (origin
10114       (method url-fetch)
10115       (uri (string-append "mirror://kde/stable/applications/" version
10116 "/src/knavalbattle-" version ".tar.xz"))
10117       (sha256
10118        (base32 "0sdfjplqkb30x2mvh66pkzay6vn5px87779sh2s8lpl6fcw0v9g4"))))
10119     (build-system qt-build-system)
10120     (native-inputs
10121      `(("extra-cmake-modules" ,extra-cmake-modules)
10122        ("kdoctools" ,kdoctools)))
10123     (inputs
10124      `(("kauth" ,kauth)
10125        ("kcompletion" ,kcompletion)
10126        ("kconfig" ,kconfig)
10127        ("kconfigwidgets" ,kconfigwidgets)
10128        ("kcoreaddons" ,kcoreaddons)
10129        ("kcrash" ,kcrash)
10130        ("kdbusaddons" ,kdbusaddons)
10131        ("kdnssd" ,kdnssd)
10132        ("ki18n" ,ki18n)
10133        ("ktextwidgets" ,ktextwidgets)
10134        ("kxmlgui" ,kxmlgui)
10135        ("libkdegames" ,libkdegames)
10136        ("qtbase" ,qtbase)
10137        ("qtdeclarative" ,qtdeclarative)))
10138     (home-page "https://games.kde.org/")
10139     (synopsis "Battleship board game with built-in game server")
10140     (description "KBattleship is a Battle Ship game for KDE.
10141
10142 Ships are placed on a board which represents the sea.  Players try to hit each
10143 others ships in turns without knowing where they are placed.  The first player
10144 to destroy all ships wins the game.
10145
10146 This package is part of the KDE games module.")
10147     (license (list license:gpl2+ license:fdl1.2+))))
10148
10149 (define-public kreversi
10150   (package
10151     (name "kreversi")
10152     (version "19.08.3")
10153     (source
10154      (origin
10155       (method url-fetch)
10156       (uri (string-append "mirror://kde/stable/applications/" version
10157 "/src/kreversi-" version ".tar.xz"))
10158       (sha256
10159        (base32 "0b6q8df2bawgnrswhq59z37axad0q3zpvvzxdds7sz1lw505xw9h"))))
10160     (build-system qt-build-system)
10161     (native-inputs
10162      `(("extra-cmake-modules" ,extra-cmake-modules)
10163        ("kdoctools" ,kdoctools)))
10164     (inputs
10165      `(("kconfig" ,kconfig)
10166        ("kconfigwidgets" ,kconfigwidgets)
10167        ("kcoreaddons" ,kcoreaddons)
10168        ("kcrash" ,kcrash)
10169        ("kdbusaddons" ,kdbusaddons)
10170        ("kdeclarative" ,kdeclarative)
10171        ("ki18n" ,ki18n)
10172        ("kiconthemes" ,kiconthemes)
10173        ("kio" ,kio)
10174        ("kxmlgui" ,kxmlgui)
10175        ("libkdegames" ,libkdegames)
10176        ("qtbase" ,qtbase)
10177        ("qtdeclarative" ,qtdeclarative)
10178        ("qtsvg" ,qtsvg)))
10179     (home-page "https://games.kde.org/")
10180     (synopsis "Old reversi board game, also known as othello")
10181     (description "KReversi is a simple one player strategy game played
10182 against the computer.
10183
10184 If a player's piece is captured by an opposing player, that piece is turned
10185 over to reveal the color of that player.  A winner is declared when one player
10186 has more pieces of his own color on the board and there are no more possible
10187 moves.
10188
10189 This package is part of the KDE games module.")
10190     (license (list license:gpl2+ license:fdl1.2+))))
10191
10192 (define-public ksquares
10193   (package
10194     (name "ksquares")
10195     (version "19.08.3")
10196     (source
10197      (origin
10198       (method url-fetch)
10199       (uri (string-append "mirror://kde/stable/applications/" version
10200                           "/src/ksquares-" version ".tar.xz"))
10201       (sha256
10202        (base32 "0hv8hls5s627lys08nnw72rfzsafj3dmp49mh2afzmh6lgk9h5vy"))))
10203     (build-system qt-build-system)
10204     (native-inputs
10205      `(("extra-cmake-modules" ,extra-cmake-modules)
10206        ("kdoctools" ,kdoctools)))
10207     (inputs
10208      `(("kcompletion" ,kcompletion)
10209        ("kconfig" ,kconfig)
10210        ("kconfigwidgets" ,kconfigwidgets)
10211        ("kcoreaddons" ,kcoreaddons)
10212        ("kcrash" ,kcrash)
10213        ("kdbusaddons" ,kdbusaddons)
10214        ("ki18n" ,ki18n)
10215        ("kwidgetsaddons" ,kwidgetsaddons)
10216        ("kxmlgui" ,kxmlgui)
10217        ("libkdegames" ,libkdegames)
10218        ("qtbase" ,qtbase)
10219        ("qtdeclarative" ,qtdeclarative)))
10220     (home-page "https://games.kde.org/")
10221     (synopsis "Dots and Boxes game")
10222     (description "KSquares is an implementation of the popular paper based
10223 game Squares.  Two players take turns connecting dots on a grid to complete
10224 squares, the player with the most squares wins.
10225
10226 This package is part of the KDE games module.")
10227     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10228
10229 (define-public kjumpingcube
10230   (package
10231     (name "kjumpingcube")
10232     (version "19.08.3")
10233     (source
10234      (origin
10235       (method url-fetch)
10236       (uri (string-append "mirror://kde/stable/applications/" version
10237                           "/src/kjumpingcube-" version ".tar.xz"))
10238       (sha256
10239        (base32 "0d67zqkf2xffjkj671gl2n6nj6jajyn6rgqqj5i6gm500mqi9rm1"))))
10240     (build-system qt-build-system)
10241     (native-inputs
10242      `(("extra-cmake-modules" ,extra-cmake-modules)
10243        ("kdoctools" ,kdoctools)))
10244     (inputs
10245      `(("kconfig" ,kconfig)
10246        ("kconfigwidgets" ,kconfigwidgets)
10247        ("kcoreaddons" ,kcoreaddons)
10248        ("kcrash" ,kcrash)
10249        ("kdbusaddons" ,kdbusaddons)
10250        ("ki18n" ,ki18n)
10251        ("kio" ,kio)
10252        ("kwidgetsaddons" ,kwidgetsaddons)
10253        ("kxmlgui" ,kxmlgui)
10254        ("libkdegames" ,libkdegames)
10255        ("qtbase" ,qtbase)
10256        ("qtdeclarative" ,qtdeclarative)
10257        ("qtsvg" ,qtsvg)))
10258     (home-page "https://games.kde.org/")
10259     (synopsis "Simple tactical game for number-crunchers")
10260     (description "KJumpingcube is a simple tactical game for one or two
10261 players, played on a grid of numbered squares.  Each turn, players compete for
10262 control of the board by capturing or adding to one square.
10263
10264 This package is part of the KDE games module.")
10265     (license (list license:gpl2+ license:fdl1.2+))))
10266
10267 (define-public xmoto
10268   (package
10269     (name "xmoto")
10270     (version "0.5.11")
10271     (source
10272      (origin
10273        (method url-fetch)
10274        (uri (string-append
10275              "http://download.tuxfamily.org/xmoto/xmoto/" version "/"
10276              "xmoto-" version "-src.tar.gz"))
10277        (sha256
10278         (base32 "1ci6r8zd0l7z28cy92ddf9dmqbdqwinz2y1cny34c61b57wsd155"))
10279        (patches
10280         (search-patches
10281          "xmoto-remove-glext.patch"     ;fixes licensing issue
10282          "xmoto-reproducible.patch"
10283          "xmoto-utf8.patch"))
10284        ;; Unbundle ODE.
10285        (modules '((guix build utils)))
10286        (snippet
10287         `(begin
10288            (delete-file-recursively "src/ode")
10289            #t))))
10290     (build-system gnu-build-system)
10291     (arguments
10292      ;; XXX: First flag prevents a build error with GCC7+.  The second
10293      ;; flag works around missing text in game.  Both are fixed
10294      ;; upstream.  Remove once xmoto 0.5.12+ is released.
10295      `(#:make-flags '("CXXFLAGS=-fpermissive -D_GLIBCXX_USE_CXX11_ABI=0")
10296        #:phases
10297        (modify-phases %standard-phases
10298          (add-after 'install 'install-desktop-file
10299            (lambda* (#:key outputs #:allow-other-keys)
10300              (let* ((out (assoc-ref outputs "out"))
10301                     (apps (string-append out "/share/applications"))
10302                     (pixmaps (string-append out "/share/pixmaps")))
10303                (install-file "extra/xmoto.desktop" apps)
10304                (install-file "extra/xmoto.xpm" pixmaps)
10305                #t)))
10306          (add-after 'install-desktop-file 'install-fonts
10307            (lambda* (#:key outputs inputs #:allow-other-keys)
10308              (let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
10309                                             "/share/fonts/truetype/"))
10310                    (target-dir (string-append (assoc-ref outputs "out")
10311                                               "/share/xmoto/Textures/Fonts/")))
10312                (for-each (lambda (f)
10313                            (let ((font (string-append font-dir f))
10314                                  (target (string-append target-dir f)))
10315                              (delete-file target)
10316                              (symlink font target)))
10317                          '("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
10318                #t)))
10319          (add-after 'install-fonts 'install-man-page
10320            (lambda* (#:key outputs #:allow-other-keys)
10321              (install-file "xmoto.6"
10322                            (string-append (assoc-ref outputs "out")
10323                                           "/share/man/man6"))
10324              #t)))))
10325     (native-inputs
10326      `(("gettext" ,gettext-minimal)))
10327     (inputs
10328      `(("curl" ,curl)
10329        ("font-dejavu" ,font-dejavu)
10330        ("glu" ,glu)
10331        ("libjpeg" ,libjpeg-turbo)
10332        ("libpng" ,libpng)
10333        ("libxdg-basedir" ,libxdg-basedir)
10334        ("libxml2" ,libxml2)
10335        ("lua" ,lua-5.2)
10336        ("ode" ,ode)
10337        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
10338        ("sqlite" ,sqlite)
10339        ("zlib" ,zlib)))
10340     (home-page "https://xmoto.tuxfamily.org/")
10341     (synopsis "2D motocross platform game")
10342     (description "X-Moto is a challenging 2D motocross platform game, where
10343 physics play an all important role in the gameplay.  You need to control your
10344 bike to its limit, if you want to have a chance finishing the more difficult
10345 challenges.")
10346     (license (list license:gpl2+        ;whole project
10347                    license:bsd-4        ;src/bzip
10348                    license:bsd-3        ;src/md5sum
10349                    license:lgpl2.1+     ;src/iqsort.h
10350                    license:expat))))
10351
10352 (define-public eboard
10353   (package
10354     (name "eboard")
10355     (version "1.1.3")
10356     (source
10357      (origin
10358        (method git-fetch)
10359        (uri (git-reference
10360              (url "https://github.com/fbergo/eboard.git")
10361              (commit (string-append "v" version))))
10362        (file-name (git-file-name name version))
10363        (sha256
10364         (base32 "1z4pwpqyvxhlda99h6arh2rjk90fbms9q29fqizjblrdn01dlxn1"))))
10365     (build-system gnu-build-system)
10366     (native-inputs
10367      `(("perl" ,perl)
10368        ("pkg-config" ,pkg-config)))
10369     (inputs
10370      `(("gtk+" ,gtk+-2)
10371        ("libpng" ,libpng)
10372        ("gstreamer" ,gstreamer)))
10373     (arguments
10374      `(#:tests? #f
10375        #:phases
10376        (modify-phases %standard-phases
10377          (replace 'configure
10378            (lambda* (#:key outputs #:allow-other-keys)
10379              (make-file-writable "eboard-config")
10380              (setenv "CC" "gcc")
10381              (invoke "./configure"
10382                      (string-append "--prefix=" (assoc-ref outputs "out")))
10383              #t))
10384          (add-before 'install 'make-required-directories
10385            (lambda* (#:key outputs #:allow-other-keys)
10386              (mkdir-p (string-append (assoc-ref outputs "out")
10387                                      "/share/eboard"))
10388              #t)))))
10389     (synopsis "Graphical user interface to play chess")
10390     (description
10391      "Eboard is a chess board interface for ICS (Internet Chess Servers)
10392 and chess engines.")
10393     (home-page "https://www.bergo.eng.br/eboard/")
10394     (license license:gpl2+)))
10395
10396 (define-public chessx
10397   (package
10398     (name "chessx")
10399     (version "1.5.0")
10400     (source
10401      (origin
10402        (method url-fetch)
10403        (uri (string-append "mirror://sourceforge/chessx/chessx/"
10404                            version "/chessx-" version ".tgz"))
10405        (sha256
10406         (base32 "09rqyra28w3z9ldw8sx07k5ap3sjlli848p737maj7c240rasc6i"))))
10407     (build-system qt-build-system)
10408     (native-inputs
10409      `(("qttools" ,qttools)))
10410     (inputs
10411      `(("qtbase" ,qtbase)
10412        ("qtmultimedia" ,qtmultimedia)
10413        ("qtsvg" ,qtsvg)
10414        ("zlib" ,zlib)))
10415     (arguments
10416      `(#:tests? #f
10417        #:phases
10418        (modify-phases %standard-phases
10419          (add-after 'unpack 'fix-paths
10420            (lambda* (#:key inputs #:allow-other-keys)
10421              (substitute* "chessx.pro"
10422                (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
10423                 (string-append (assoc-ref inputs "qttools") "/bin/lrelease")))
10424              #t))
10425          (add-after 'fix-paths 'make-qt-deterministic
10426            (lambda _
10427              (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
10428              #t))
10429          (replace 'configure
10430            (lambda _
10431              (invoke "qmake")
10432              #t))
10433          (replace 'install
10434            (lambda* (#:key outputs #:allow-other-keys)
10435              (let ((out (assoc-ref outputs "out")))
10436                (install-file "release/chessx" (string-append out "/bin"))
10437                (install-file "unix/chessx.desktop"
10438                              (string-append out "/share/applications")))
10439              #t)))))
10440     (synopsis "Chess game database")
10441     (description
10442      "ChessX is a chess database.  With ChessX you can operate on your
10443 collection of chess games in many ways: browse, edit, add, organize, analyze,
10444 etc.  You can also play games on FICS or against an engine.")
10445     (home-page "http://chessx.sourceforge.net/")
10446     (license license:gpl2+)))
10447
10448 (define-public stockfish
10449   (package
10450     (name "stockfish")
10451     (version "11")
10452     (source
10453      (origin
10454        (method git-fetch)
10455        (uri (git-reference
10456              (url "https://github.com/official-stockfish/Stockfish.git")
10457              (commit (string-append "sf_" version))))
10458        (file-name (git-file-name name version))
10459        (sha256
10460         (base32 "12mppipinymj8s1ipq9a7is453vncly49c32ym9wvyklsgyxfzlk"))))
10461     (build-system gnu-build-system)
10462     (arguments
10463      `(#:tests? #f
10464        #:make-flags (list "-C" "src"
10465                           "build"
10466                           (string-append "PREFIX="
10467                                          (assoc-ref %outputs "out"))
10468                           (string-append "ARCH="
10469                                          ,(match (%current-system)
10470                                             ("x86_64-linux" "x86-64")
10471                                             ("i686-linux" "x86-32")
10472                                             ("aarch64-linux" "general-64")
10473                                             ("armhf-linux" "armv7")
10474                                             ("mips64el-linux" "general-64")
10475                                             (_ "general-32"))))
10476        #:phases (modify-phases %standard-phases
10477                   (delete 'configure))))
10478     (synopsis "Strong chess engine")
10479     (description
10480      "Stockfish is a very strong chess engines.  It is much stronger than the
10481 best human chess grandmasters.  It can be used with UCI-compatible GUIs like
10482 ChessX.")
10483     (home-page "https://stockfishchess.org/")
10484     (license license:gpl3+)))
10485
10486 (define-public barrage
10487   (package
10488     (name "barrage")
10489     (version "1.0.5")
10490     (source
10491      (origin
10492        (method url-fetch)
10493        (uri (string-append "mirror://sourceforge/lgames/barrage/"
10494                            "barrage-" version ".tar.gz"))
10495        (sha256
10496         (base32 "0139wxyrir10cbkvkjn548xgmp84wax8mfwk80yxbxlcdamrg257"))))
10497     (build-system gnu-build-system)
10498     (inputs
10499      `(("hicolor-icon-theme" ,hicolor-icon-theme)
10500        ("sdl" ,sdl)
10501        ("sdl-mixer" ,sdl-mixer)))
10502     (arguments
10503      `(#:configure-flags
10504        (list
10505         (string-append "CFLAGS="
10506                        "-I" (assoc-ref %build-inputs "sdl-mixer")
10507                        "/include/SDL"))))
10508     (home-page "http://lgames.sourceforge.net/Barrage/")
10509     (synopsis "Violent point-and-click shooting game with nice effects")
10510     (description
10511      "Barrage is a rather destructive action game that puts you on a shooting
10512 range with the objective to hit as many dummy targets as possible within
10513 3 minutes.  You control a gun that may either fire small or large grenades at
10514 soldiers, jeeps and tanks.  The gameplay is simple but it is not that easy to
10515 get high scores.")
10516     (license license:gpl2+)))
10517
10518 (define-public 7kaa
10519   (package
10520     (name "7kaa")
10521     (version "2.15.3")
10522     (source
10523      (origin
10524        (method url-fetch)
10525        (uri (string-append "https://github.com/the3dfxdude/7kaa/"
10526                            "releases/download/v" version "/"
10527                            "7kaa-" version ".tar.xz"))
10528        (sha256
10529         (base32 "0blj47mcsfw1sn3465j6iham8m6ki07iggnq4q8nnaqnryx710jc"))))
10530     (build-system gnu-build-system)
10531     (native-inputs
10532      `(("gettext" ,gettext-minimal)
10533        ("pkg-config" ,pkg-config)))
10534     (inputs
10535      `(("curl" ,curl)
10536        ("enet" ,enet)
10537        ("openal" ,openal)
10538        ("sdl2" ,sdl2)))
10539     (home-page "https://7kfans.com/")
10540     (synopsis "Seven Kingdoms Ancient Adversaries: real-time strategy game")
10541     (description
10542      "Seven Kingdoms, designed by Trevor Chan, brings a blend of Real-Time
10543 Strategy with the addition of trade, diplomacy, and espionage.  The game
10544 enables players to compete against up to six other kingdoms allowing players
10545 to conquer opponents by defeating them in war (with troops or machines),
10546 capturing their buildings with spies, or offering opponents money for their
10547 kingdom.")
10548     (license license:gpl2+)))
10549
10550 (define-public neverball
10551   ;; Git version is 6-years younger than latest release.
10552   (let ((commit "760a25d32a5fb0661b99426d4ddcb9ac9f3d1644")
10553         (revision "1"))
10554     (package
10555       (name "neverball")
10556       (version (git-version "1.6.0" revision commit))
10557       (source
10558        (origin
10559          (method git-fetch)
10560          (uri (git-reference
10561                (url "https://github.com/Neverball/neverball.git")
10562                (commit commit)))
10563          (sha256
10564           (base32
10565            "0bwh67df3lyf33bv710y25l3frjdd34j9b7gsjadwxviz6r1vpj5"))
10566          (file-name (git-file-name name version))
10567          (modules '((guix build utils)))
10568          (snippet
10569           '(begin
10570              ;; Octocat seems to be non-free.  Oddly, Debian doesn't strip it.
10571              (delete-file-recursively "data/ball/octocat")
10572              #t))))
10573       (build-system copy-build-system)
10574       (arguments
10575        `(#:install-plan
10576          '(("neverball" "bin/")
10577            ("neverputt" "bin/")
10578            ("mapc" "bin/")
10579            ("data" "share/games/neverball/")
10580            ("locale" "share/")
10581            ("dist/" "share/games/neverball" #:include ("neverball_replay.png"
10582                                                        "neverlogos.svg"
10583                                                        "svg readme.txt"))
10584            ("dist/" "share/applications" #:include ("neverball.desktop"
10585                                                     "neverputt.desktop"))
10586            ("dist/neverball_16.png"
10587             "/share/icons/hicolor/16x16/apps/neverball.png")
10588            ("dist/neverball_24.png"
10589             "/share/icons/hicolor/24x24/apps/neverball.png")
10590            ("dist/neverball_32.png"
10591             "/share/icons/hicolor/32x32/apps/neverball.png")
10592            ("dist/neverball_48.png"
10593             "/share/icons/hicolor/48x48/apps/neverball.png")
10594            ("dist/neverball_64.png"
10595             "/share/icons/hicolor/64x64/apps/neverball.png")
10596            ("dist/neverball_128.png"
10597             "/share/icons/hicolor/128x128/apps/neverball.png")
10598            ("dist/neverball_256.png"
10599             "/share/icons/hicolor/256x256/apps/neverball.png")
10600            ("dist/neverball_512.png"
10601             "/share/icons/hicolor/512x512/apps/neverball.png")
10602            ("dist/neverputt_16.png"
10603             "/share/icons/hicolor/16x16/apps/neverputt.png")
10604            ("dist/neverputt_24.png"
10605             "/share/icons/hicolor/24x24/apps/neverputt.png")
10606            ("dist/neverputt_32.png"
10607             "/share/icons/hicolor/32x32/apps/neverputt.png")
10608            ("dist/neverputt_48.png"
10609             "/share/icons/hicolor/48x48/apps/neverputt.png")
10610            ("dist/neverputt_64.png"
10611             "/share/icons/hicolor/64x64/apps/neverputt.png")
10612            ("dist/neverputt_128.png"
10613             "/share/icons/hicolor/128x128/apps/neverputt.png")
10614            ("dist/neverputt_256.png"
10615             "/share/icons/hicolor/256x256/apps/neverputt.png")
10616            ("dist/neverputt_512.png"
10617             "/share/icons/hicolor/512x512/apps/neverputt.png")
10618            ("dist/" "share/man/man1" #:include ("mapc.1"))
10619            ("dist/" "share/man/man6" #:include ("neverball.6" "neverputt.6"))
10620            ("doc/" "share/doc/neverball")
10621            ("README.md" "share/doc/neverball/"))
10622          #:phases
10623          (modify-phases %standard-phases
10624            (add-before 'install 'build
10625              (lambda* (#:key inputs outputs #:allow-other-keys)
10626                (let* ((out (assoc-ref outputs "out"))
10627                       (sdl (assoc-ref inputs "sdl")))
10628                  (invoke "make" "-j" (number->string (parallel-job-count))
10629                          "--environment-overrides"
10630                          "CC=gcc" "BUILD=release"
10631                          (string-append "DATADIR="
10632                                         out
10633                                         "/share/games/neverball/data")
10634                          (string-append "LOCALEDIR=" out "/share/locale")
10635                          (string-append "SDL_CPPFLAGS=-I"
10636                                         sdl
10637                                         "/include/SDL2/")))
10638                #t))
10639            (add-after 'install 'fix-some-broken-fonts
10640              (lambda* (#:key outputs #:allow-other-keys)
10641                (let* ((out (assoc-ref outputs "out")))
10642                  (wrap-program (string-append out "/bin/neverball")
10643                    `("LANG" = ("en_US.utf8")))
10644                  (wrap-program (string-append out "/bin/neverputt")
10645                    `("LANG" = ("en_US.utf8"))))
10646                #t)))))
10647       (native-inputs
10648        `(("gettext" ,gettext-minimal))) ;for msgfmt
10649       (inputs
10650        `(("libjpeg" ,libjpeg-turbo)
10651          ("libpng" ,libpng)
10652          ("libvorbis" ,libvorbis)
10653          ("physfs" ,physfs)
10654          ("sdl" ,(sdl-union (list sdl2 sdl2-ttf)))))
10655       (home-page "https://neverball.org/")
10656       (synopsis "3D floor-tilting game")
10657       (description
10658        "In the grand tradition of Marble Madness and Super Monkey Ball,
10659 Neverball has you guide a rolling ball through dangerous territory.  Balance
10660 on narrow bridges, navigate mazes, ride moving platforms, and dodge pushers
10661 and shovers to get to the goal.  Race against the clock to collect coins to
10662 earn extra balls.  Also included is Neverputt, which is a 3D miniature golf
10663 game.")  ;thanks to Debian for description
10664       (license license:gpl2+))))