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 Eric Bavier <bavier@member.fsf.org>
   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 ng0 <ng0@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 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 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 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 ;;;
  50 ;;; This file is part of GNU Guix.
  51 ;;;
  52 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  53 ;;; under the terms of the GNU General Public License as published by
  54 ;;; the Free Software Foundation; either version 3 of the License, or (at
  55 ;;; your option) any later version.
  56 ;;;
  57 ;;; GNU Guix is distributed in the hope that it will be useful, but
  58 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  59 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  60 ;;; GNU General Public License for more details.
  61 ;;;
  62 ;;; You should have received a copy of the GNU General Public License
  63 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  64
  65 (define-module (gnu packages games)
  66   #:use-module (ice-9 match)
  67   #:use-module ((guix licenses) #:prefix license:)
  68   #:use-module (guix utils)
  69   #:use-module (guix packages)
  70   #:use-module (guix download)
  71   #:use-module (guix git-download)
  72   #:use-module (guix svn-download)
  73   #:use-module (guix gexp)
  74   #:use-module (gnu packages)
  75   #:use-module (gnu packages algebra)
  76   #:use-module (gnu packages autotools)
  77   #:use-module (gnu packages backup)
  78   #:use-module (gnu packages base)
  79   #:use-module (gnu packages build-tools)
  80   #:use-module (gnu packages admin)
  81   #:use-module (gnu packages audio)
  82   #:use-module (gnu packages avahi)
  83   #:use-module (gnu packages assembly)
  84   #:use-module (gnu packages bash)
  85   #:use-module (gnu packages bison)
  86   #:use-module (gnu packages boost)
  87   #:use-module (gnu packages check)
  88   #:use-module (gnu packages cmake)
  89   #:use-module (gnu packages compression)
  90   #:use-module (gnu packages curl)
  91   #:use-module (gnu packages crypto)
  92   #:use-module (gnu packages cyrus-sasl)
  93   #:use-module (gnu packages documentation)
  94   #:use-module (gnu packages docbook)
  95   #:use-module (gnu packages emulators)
  96   #:use-module (gnu packages flex)
  97   #:use-module (gnu packages fltk)
  98   #:use-module (gnu packages fonts)
  99   #:use-module (gnu packages fontutils)
 100   #:use-module (gnu packages freedesktop)
 101   #:use-module (gnu packages fribidi)
 102   #:use-module (gnu packages game-development)
 103   #:use-module (gnu packages gcc)
 104   #:use-module (gnu packages gettext)
 105   #:use-module (gnu packages ghostscript)
 106   #:use-module (gnu packages gimp)
 107   #:use-module (gnu packages gl)
 108   #:use-module (gnu packages glib)
 109   #:use-module (gnu packages gnome)
 110   #:use-module (gnu packages gnuzilla)
 111   #:use-module (gnu packages gperf)
 112   #:use-module (gnu packages graphics)
 113   #:use-module (gnu packages gstreamer)
 114   #:use-module (gnu packages gtk)
 115   #:use-module (gnu packages guile)
 116   #:use-module (gnu packages haskell)
 117   #:use-module (gnu packages haskell-crypto)
 118   #:use-module (gnu packages haskell-xyz)
 119   #:use-module (gnu packages icu4c)
 120   #:use-module (gnu packages image)
 121   #:use-module (gnu packages imagemagick)
 122   #:use-module (gnu packages kde)
 123   #:use-module (gnu packages kde-frameworks)
 124   #:use-module (gnu packages less)
 125   #:use-module (gnu packages libcanberra)
 126   #:use-module (gnu packages libedit)
 127   #:use-module (gnu packages libunwind)
 128   #:use-module (gnu packages linux)
 129   #:use-module (gnu packages llvm)
 130   #:use-module (gnu packages lua)
 131   #:use-module (gnu packages man)
 132   #:use-module (gnu packages maths)
 133   #:use-module (gnu packages mp3)
 134   #:use-module (gnu packages music)
 135   #:use-module (gnu packages multiprecision)
 136   #:use-module (gnu packages ncurses)
 137   #:use-module (gnu packages netpbm)
 138   #:use-module (gnu packages networking)
 139   #:use-module (gnu packages ocaml)
 140   #:use-module (gnu packages opencl)
 141   #:use-module (gnu packages pcre)
 142   #:use-module (gnu packages perl)
 143   #:use-module (gnu packages perl-check)
 144   #:use-module (gnu packages pkg-config)
 145   #:use-module (gnu packages pulseaudio)
 146   #:use-module (gnu packages python)
 147   #:use-module (gnu packages python-xyz)
 148   #:use-module (gnu packages qt)
 149   #:use-module (gnu packages readline)
 150   #:use-module (gnu packages shells)
 151   #:use-module (gnu packages sdl)
 152   #:use-module (gnu packages serialization)
 153   #:use-module (gnu packages sqlite)
 154   #:use-module (gnu packages squirrel)
 155   #:use-module (gnu packages swig)
 156   #:use-module (gnu packages tcl)
 157   #:use-module (gnu packages terminals)
 158   #:use-module (gnu packages texinfo)
 159   #:use-module (gnu packages textutils)
 160   #:use-module (gnu packages tls)
 161   #:use-module (gnu packages upnp)
 162   #:use-module (gnu packages video)
 163   #:use-module (gnu packages vulkan)
 164   #:use-module (gnu packages web)
 165   #:use-module (gnu packages wget)
 166   #:use-module (gnu packages wxwidgets)
 167   #:use-module (gnu packages xdisorg)
 168   #:use-module (gnu packages xorg)
 169   #:use-module (gnu packages xiph)
 170   #:use-module (gnu packages xml)
 171   #:use-module (gnu packages messaging)
 172   #:use-module (gnu packages networking)
 173   #:use-module (guix build-system glib-or-gtk)
 174   #:use-module (guix build-system gnu)
 175   #:use-module (guix build-system go)
 176   #:use-module (guix build-system meson)
 177   #:use-module (guix build-system scons)
 178   #:use-module (guix build-system python)
 179   #:use-module (guix build-system cmake)
 180   #:use-module (guix build-system qt)
 181   #:use-module (guix build-system trivial)
 182   #:use-module ((srfi srfi-1) #:hide (zip))
 183   #:use-module (srfi srfi-26))
 184
 185 ;; Data package for adanaxisgpl.
 186 (define adanaxis-mush
 187   (let ((version "1.1.0"))
 188     (origin
 189       (method url-fetch)
 190       (uri (string-append "http://www.mushware.com/files/adanaxis-mush-"
 191                           version ".tar.gz"))
 192       (sha256
 193        (base32 "0mk9ibis5nkdcalcg1lkgnsdxxbw4g5w2i3icjzy667hqirsng03")))))
 194
 195 (define-public adanaxisgpl
 196   (package
 197     (name "adanaxisgpl")
 198     (version "1.2.5")
 199     (source
 200      (origin
 201        (method url-fetch)
 202        (uri (string-append "http://www.mushware.com/files/adanaxisgpl-"
 203                            version ".tar.gz"))
 204        (sha256
 205         (base32 "0jkn637jaabvlhd6hpvzb57vvjph94l6fbf7qxbjlw9zpr19dw1f"))
 206        (modules '((guix build utils)))
 207        (snippet
 208         '(begin
 209            ;; Necessary for building with gcc >=4.7.
 210            (substitute* "src/Mushcore/MushcoreSingleton.h"
 211              (("SingletonPtrSet\\(new SingletonType\\);")
 212               "MushcoreSingleton::SingletonPtrSet(new SingletonType);"))
 213            ;; Avoid an "invalid conversion from const char* to char*" error.
 214            (substitute* "src/Platform/X11/PlatformMiscUtils.cpp"
 215              (("char \\*end, \\*result;")
 216               (string-append "const char *end;"
 217                              "\n"
 218                              "char *result;")))
 219            #t))))
 220     (build-system gnu-build-system)
 221     (arguments
 222      `(#:tests? #f ; no check target
 223        #:phases
 224        (modify-phases %standard-phases
 225          (add-after 'install 'install-data
 226            (lambda* (#:key inputs outputs #:allow-other-keys)
 227              (let ((data (assoc-ref inputs "adanaxis-mush"))
 228                    (share (string-append (assoc-ref outputs "out")
 229                                          "/share/" ,name "-" ,version)))
 230                (mkdir-p share)
 231                (invoke "tar" "xvf" data "-C" share)))))))
 232     (native-inputs
 233      `(("adanaxis-mush" ,adanaxis-mush))) ; game data
 234     (inputs
 235      `(("expat" ,expat)
 236        ("freeglut" ,freeglut)
 237        ("glu" ,glu)
 238        ("libjpeg" ,libjpeg-turbo)
 239        ("libogg" ,libogg)
 240        ("libtiff" ,libtiff)
 241        ("libvorbis" ,libvorbis)
 242        ("libx11" ,libx11)
 243        ("libxext" ,libxext)
 244        ("pcre" ,pcre)
 245        ("sdl" ,sdl)
 246        ("sdl-mixer" ,sdl-mixer)))
 247     (home-page "https://www.mushware.com")
 248     (synopsis "Action game in four spatial dimensions")
 249     (description
 250      "Adanaxis is a fast-moving first person shooter set in deep space, where
 251 the fundamentals of space itself are changed.  By adding another dimension to
 252 space this game provides an environment with movement in four directions and
 253 six planes of rotation.  Initially the game explains the 4D control system via
 254 a graphical sequence, before moving on to 30 levels of gameplay with numerous
 255 enemy, ally, weapon and mission types.  Features include simulated 4D texturing,
 256 mouse and joystick control, and original music.")
 257     (license license:gpl2)))
 258
 259 (define-public alex4
 260   (package
 261     (name "alex4")
 262     (version "1.2.1")
 263     (source
 264      (origin
 265        (method git-fetch)
 266        (uri (git-reference
 267              (url "https://github.com/carstene1ns/alex4.git")
 268              (commit version)))
 269        (file-name (git-file-name name version))
 270        (sha256
 271         (base32 "098wy72mh4lsvq3gm0rhamjssf9l1hp6hhkpzrv7klpb97cwwc3h"))))
 272     (build-system gnu-build-system)
 273     (arguments
 274      `(#:tests? #f                      ; no check target
 275        #:make-flags
 276        (list "CC=gcc"
 277              "CFLAGS=-D_FILE_OFFSET_BITS=64"
 278              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 279        #:phases
 280        (modify-phases %standard-phases
 281          (delete 'configure)            ; no configure script
 282          (add-after 'install 'install-data
 283            (lambda* (#:key outputs #:allow-other-keys)
 284              (let ((share (string-append (assoc-ref outputs "out")
 285                                          "/share/" ,name)))
 286                (install-file "alex4.ini" share)
 287                #t))))))
 288     (inputs
 289      `(("allegro" ,allegro-4)
 290        ("dumb" ,dumb-allegro4)))
 291     (home-page "http://allegator.sourceforge.net/")
 292     (synopsis "Retro platform game")
 293     (description
 294      "Guide Alex the Allegator through the jungle in order to save his
 295 girlfriend Lola from evil humans who want to make a pair of shoes out of her.
 296 Plenty of classic platforming in four nice colors guaranteed!
 297
 298 The game includes a built-in editor so you can design and share your own maps.")
 299     (license license:gpl2+)))
 300
 301 (define-public armagetronad
 302   (package
 303     (name "armagetronad")
 304     (version "0.2.8.3.4")
 305     (source (origin
 306               (method url-fetch)
 307               (uri (string-append "mirror://sourceforge/armagetronad/stable/"
 308                                   version "/armagetronad-" version ".src.tar.gz"))
 309               (sha256
 310                (base32
 311                 "1pgy0r80z702qdv94aw3ywdn4ynnr4cdi86ml558pljfc5ygasj4"))))
 312     (build-system gnu-build-system)
 313     (inputs
 314      `(("libxml2" ,libxml2)
 315        ("sdl" ,sdl)
 316        ("sdl-image" ,sdl-image)
 317        ("freeglut" ,freeglut)
 318        ("libpng" ,libpng)
 319        ("libjpeg-turbo" ,libjpeg-turbo)))
 320     (home-page "http://www.armagetronad.org")
 321     (synopsis "Tron clone in 3D")
 322     (description "Armagetron Advanced is a multiplayer game in 3d that
 323 attempts to emulate and expand on the lightcycle sequence from the movie Tron.
 324 It's an old school arcade game slung into the 21st century.  Highlights
 325 include a customizable playing arena, HUD, unique graphics, and AI bots.  For
 326 the more advanced player there are new game modes and a wide variety of
 327 physics settings to tweak as well.")
 328     (license license:gpl2+)))
 329
 330 (define-public armagetron-advanced
 331   (deprecated-package "armagetron-advanced" armagetronad))
 332
 333 (define-public bastet
 334   (package
 335     (name "bastet")
 336     (version "0.43.2")
 337     (source
 338      (origin
 339        (method git-fetch)
 340        (uri (git-reference
 341              (url "https://github.com/fph/bastet.git")
 342              (commit version)))
 343        (file-name (git-file-name name version))
 344        (sha256
 345         (base32 "09kamxapm9jw9przpsgjfg33n9k94bccv65w95dakj0br33a75wn"))
 346        (patches
 347         (search-patches "bastet-change-source-of-unordered_set.patch"))))
 348     (build-system gnu-build-system)
 349     (arguments
 350      `(#:make-flags
 351        (list (string-append "CXXFLAGS=-I"
 352                             (assoc-ref %build-inputs "boost") "/include"))
 353        #:phases
 354        (modify-phases %standard-phases
 355          (delete 'configure)            ; no configure script
 356          (replace 'check
 357            ;; The 'Test' target builds the tests, but doesn't actually run them.
 358            (lambda* (#:key make-flags #:allow-other-keys)
 359              (apply invoke "make" "Test" make-flags)
 360              (setenv "HOME" ".")
 361              (invoke "./Test")))
 362          (replace 'install
 363            (lambda* (#:key outputs #:allow-other-keys)
 364              (let* ((out     (assoc-ref outputs "out"))
 365                     (share   (string-append out "/share"))
 366                     (hicolor (string-append share "/icons/hicolor")))
 367                (install-file "bastet"
 368                              (string-append out "/bin"))
 369
 370                (install-file "bastet.desktop"
 371                              (string-append share "/applications"))
 372                (install-file "bastet.svg"
 373                              (string-append hicolor "/scalable/apps"))
 374
 375                (install-file "bastet.appdata.xml"
 376                              (string-append share "/appdata"))
 377
 378                (install-file "bastet.6"
 379                              (string-append out "/share/man/man6"))
 380                #t))))))
 381     (native-inputs
 382      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 383     (inputs
 384      `(("boost" ,boost)
 385        ("ncurses" ,ncurses)))
 386     (home-page "http://fph.altervista.org/prog/bastet.html")
 387     (synopsis "Antagonistic Tetris-style falling brick game for text terminals")
 388     (description
 389      "Bastet (short for Bastard Tetris) is a simple ncurses-based falling brick
 390 game.  Unlike normal Tetris, Bastet does not choose the next brick at random.
 391 Instead, it uses a special algorithm to choose the worst brick possible.
 392
 393 Playing bastet can be a painful experience, especially if you usually make
 394 canyons and wait for the long I-shaped block to clear four rows at a time.")
 395     (license license:gpl3+)))
 396
 397 (define-public cataclysm-dda
 398   (let ((commit "9c732a5de48928691ab863d3ab275ca7b0e522fc"))
 399     (package
 400       (name "cataclysm-dda")
 401       (version "0.D")
 402       (source (origin
 403                 (method git-fetch)
 404                 (uri (git-reference
 405                       (url "https://github.com/CleverRaven/Cataclysm-DDA.git")
 406                       (commit commit)))
 407                 (sha256
 408                  (base32
 409                   "00zzhx1mh1qjq668cga5nbrxp2qk6b82j5ak65skhgnlr6ii4ysc"))
 410                 (file-name (git-file-name name version))))
 411       (build-system gnu-build-system)
 412       (arguments
 413        '(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 414                             "USE_HOME_DIR=1" "DYNAMIC_LINKING=1" "RELEASE=1"
 415                             "LOCALIZE=1" "LANGUAGES=all")
 416          #:phases
 417          (modify-phases %standard-phases
 418            (delete 'configure)
 419            (add-after 'build 'build-tiles
 420              (lambda* (#:key make-flags outputs #:allow-other-keys)
 421                ;; Change prefix directory and enable tile graphics and sound.
 422                (apply invoke "make" "TILES=1" "SOUND=1"
 423                       (string-append "PREFIX="
 424                                      (assoc-ref outputs "tiles"))
 425                       (cdr make-flags))))
 426            (add-after 'install 'install-tiles
 427              (lambda* (#:key make-flags outputs #:allow-other-keys)
 428                (apply invoke "make" "install" "TILES=1" "SOUND=1"
 429                       (string-append "PREFIX="
 430                                      (assoc-ref outputs "tiles"))
 431                       (cdr make-flags)))))
 432          ;; TODO: Add libtap++ from https://github.com/cbab/libtappp as a native
 433          ;;       input in order to support tests.
 434          #:tests? #f))
 435       (outputs '("out"
 436                  "tiles")) ; For tile graphics and sound support.
 437       (native-inputs
 438        `(("gettext" ,gettext-minimal)
 439          ("pkg-config" ,pkg-config)))
 440       (inputs
 441        `(("freetype" ,freetype)
 442          ("libogg" ,libogg)
 443          ("libvorbis" ,libvorbis)
 444          ("ncurses" ,ncurses)
 445          ("sdl2" ,sdl2)
 446          ("sdl2-image" ,sdl2-image)
 447          ("sdl2-ttf" ,sdl2-ttf)
 448          ("sdl2-mixer" ,sdl2-mixer)))
 449       (home-page "http://en.cataclysmdda.com/")
 450       (synopsis "Survival horror roguelike video game")
 451       (description
 452        "Cataclysm: Dark Days Ahead (or \"DDA\" for short) is a roguelike set
 453 in a post-apocalyptic world.  Struggle to survive in a harsh, persistent,
 454 procedurally generated world.  Scavenge the remnants of a dead civilization
 455 for food, equipment, or, if you are lucky, a vehicle with a full tank of gas
 456 to get you out of Dodge.  Fight to defeat or escape from a wide variety of
 457 powerful monstrosities, from zombies to giant insects to killer robots and
 458 things far stranger and deadlier, and against the others like yourself, that
 459 want what you have.")
 460       (license license:cc-by-sa3.0))))
 461
 462 (define-public cataclysm-dark-days-ahead
 463   (deprecated-package "cataclysm-dark-days-ahead" cataclysm-dda))
 464
 465 (define-public corsix-th
 466   (package
 467     (name "corsix-th")
 468     (version "0.63")
 469     (source
 470      (origin
 471        (method git-fetch)
 472        (uri (git-reference
 473              (url "https://github.com/CorsixTH/CorsixTH.git")
 474              (commit (string-append "v" version))))
 475        (file-name (git-file-name name version))
 476        (sha256
 477         (base32 "1rkyk8g55xny276s0hr5k8mq6f4nzz56d3k2mp09dzfymrqb8hgi"))))
 478     (build-system cmake-build-system)
 479     (arguments
 480      `(#:phases
 481        (modify-phases %standard-phases
 482          (add-after 'install 'wrap-binary
 483            (lambda _
 484              ;; Set Lua module paths and default MIDI soundfont on startup.
 485              (let* ((out (assoc-ref %outputs "out"))
 486                     (fluid (assoc-ref %build-inputs "fluid-3"))
 487                     (lua-version ,(version-major+minor (package-version lua)))
 488                     (lua-cpath
 489                      (map (lambda (lib)
 490                             (string-append
 491                              (assoc-ref %build-inputs (string-append "lua-" lib))
 492                              "/lib/lua/" lua-version "/?.so"))
 493                           '("filesystem" "lpeg"))))
 494                (wrap-program (string-append out "/bin/corsix-th")
 495                  `("LUA_CPATH" ";" = ,lua-cpath)
 496                  `("SDL_SOUNDFONTS" ":" suffix
 497                    (,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3")))))
 498              #t)))
 499        #:tests? #f)) ; TODO need busted package to run tests
 500     ;; Omit Lua-Socket dependency to disable automatic updates.
 501     (inputs
 502      `(("ffmpeg" ,ffmpeg)
 503        ("fluid-3" ,fluid-3)
 504        ("freetype" ,freetype)
 505        ("lua" ,lua)
 506        ("lua-filesystem" ,lua-filesystem)
 507        ("lua-lpeg" ,lua-lpeg)
 508        ("sdl2" ,sdl2)
 509        ("sdl2-mixer" ,sdl2-mixer)))
 510     (home-page "https://corsixth.com")
 511     (synopsis "Implementation of the @i{Theme Hospital} game engine")
 512     (description
 513      "This package provides a reimplementation of the 1997 Bullfrog business
 514 simulation game @i{Theme Hospital}.  As well as faithfully recreating the
 515 original engine, CorsixTH adds support for high resolutions, custom levels and
 516 more.  This package does @emph{not} provide the game assets.")
 517     (license (list
 518               license:expat ; main license
 519               license:bsd-3)))) ; CorsixTH/Src/random.c
 520
 521 (define-public cowsay
 522   (package
 523     (name "cowsay")
 524     (version "3.04")
 525     (source (origin
 526               (method git-fetch)
 527               (uri (git-reference
 528                      (url "https://github.com/tnalpgge/rank-amateur-cowsay.git")
 529                      (commit (string-append name "-" version))))
 530               (file-name (git-file-name name version))
 531               (sha256
 532                (base32
 533                 "06455kq37hvq1xb7adyiwrx0djs50arsxvjgixyxks16lm1rlc7n"))))
 534     (build-system gnu-build-system)
 535     (arguments
 536      `(#:phases
 537        (modify-phases %standard-phases
 538          (delete 'configure)            ; no configure script
 539          (delete 'build)                ; nothing to be built
 540          (replace 'install
 541            (lambda* (#:key outputs #:allow-other-keys)
 542              (invoke "sh" "install.sh"
 543                      (assoc-ref outputs "out"))))
 544          (delete 'check)
 545          (add-after 'install 'check
 546            (lambda* (#:key outputs #:allow-other-keys)
 547              (invoke (string-append (assoc-ref outputs "out")
 548                                     "/bin/cowsay")
 549                      "We're done!"))))))
 550     (inputs
 551      `(("perl" ,perl)))
 552     (home-page (string-append "https://web.archive.org/web/20071026043648/"
 553                               "http://www.nog.net:80/~tony/warez/cowsay.shtml"))
 554     (synopsis "Speaking cow text filter")
 555     (description "Cowsay is basically a text filter.  Send some text into it,
 556 and you get a cow saying your text.  If you think a talking cow isn't enough,
 557 cows can think too: all you have to do is run @command{cowthink}.  If you're
 558 tired of cows, a variety of other ASCII-art messengers are available.")
 559     (license license:gpl3+)))
 560
 561 (define-public lolcat
 562   (let ((commit "35dca3d0a381496d7195cd78f5b24aa7b62f2154")
 563         (revision "0"))
 564     (package
 565       (name "lolcat")
 566       (version (git-version "1.0" revision commit))
 567       (source
 568        (origin
 569          (method git-fetch)
 570          (uri (git-reference
 571                (url "https://github.com/jaseg/lolcat.git")
 572                (commit commit)))
 573          (sha256
 574           (base32
 575            "0jjbkqcc2ikjxd1xgdyv4rb0vsw218181h89f2ywg29ffs3ypd8g"))
 576          (file-name (git-file-name name version))))
 577       (build-system gnu-build-system)
 578       (arguments
 579        `(#:tests? #f ;; no check target
 580          #:make-flags (list "CC=gcc")
 581          #:phases
 582          (modify-phases %standard-phases
 583            (delete 'bootstrap)
 584            (delete 'configure)
 585            (replace 'install
 586              (lambda* (#:key outputs #:allow-other-keys)
 587                (let* ((out  (assoc-ref outputs "out"))
 588                       (dest (string-append out "/bin")))
 589                  (mkdir-p dest)
 590                  (install-file "lolcat" dest)
 591                  (install-file "censor" dest)
 592                  #t))))))
 593       (home-page "https://github.com/jaseg/lolcat")
 594       (synopsis "Rainbow coloring effect for text console display")
 595       (description "@command{lolcat} concatenates files and streams like
 596 regular @command{cat}, but it also adds terminal escape codes between
 597 characters and lines resulting in a rainbow effect.")
 598       (license license:wtfpl2))))
 599
 600 (define-public freedoom
 601   (package
 602     (name "freedoom")
 603     (version "0.12.1")
 604     (source
 605      (origin
 606        (method git-fetch)
 607        (uri (git-reference
 608              (url "https://github.com/freedoom/freedoom.git")
 609              (commit (string-append "v" version))))
 610        (file-name (git-file-name name version))
 611        (sha256
 612         (base32 "1mq60lfwaaxmch7hsz8403pwafnlsmsd5z2df2j77ppwndwcrypb"))))
 613     (build-system gnu-build-system)
 614     (arguments
 615      '(#:make-flags
 616        (list (string-append "prefix=" (assoc-ref %outputs "out")))
 617        #:tests? #f                      ; no check target
 618        #:phases
 619        (modify-phases %standard-phases
 620          (delete 'bootstrap)
 621          (replace 'configure
 622            (lambda* (#:key inputs outputs #:allow-other-keys)
 623              (let* ((freedoom (assoc-ref outputs "out"))
 624                     (wad-dir (string-append freedoom "/share/games/doom")))
 625                ;; Make sure that the install scripts know where to find
 626                ;; the appropriate WAD files.
 627                (substitute* "dist/freedoom"
 628                  (("IWAD=freedm.wad")
 629                   (string-append "IWAD=" wad-dir "/freedm.wad"))
 630                  (("IWAD=freedoom1.wad")
 631                   (string-append "IWAD=" wad-dir "/freedoom1.wad"))
 632                  (("IWAD=freedoom2.wad")
 633                   (string-append "IWAD=" wad-dir "/freedoom2.wad")))
 634                #t))))))
 635     (native-inputs
 636      `(("asciidoc" ,asciidoc)
 637        ("deutex" ,deutex)
 638        ("python" ,python)
 639        ("python-pillow" ,python-pillow)))
 640     (home-page "https://freedoom.github.io/")
 641     (synopsis "Free content game based on the Doom engine")
 642     (native-search-paths
 643      (list (search-path-specification
 644             (variable "DOOMWADDIR")
 645             (files '("share/games/doom")))
 646            (search-path-specification
 647             (variable "DOOMWADPATH")
 648             (files '("share/games/doom")))))
 649     (description
 650      "The Freedoom project aims to create a complete free content first person
 651 shooter game.  Freedoom by itself is just the raw material for a game: it must
 652 be paired with a compatible game engine (such as @code{prboom-plus}) to be
 653 played.  Freedoom complements the Doom engine with free levels, artwork, sound
 654 effects and music to make a completely free game.")
 655     (license license:bsd-3)))
 656
 657 (define-public freedroidrpg
 658   (package
 659     (name "freedroidrpg")
 660     (version "0.16.1")
 661     (source
 662      (origin
 663        (method url-fetch)
 664        (uri (string-append "http://ftp.osuosl.org/pub/freedroid/"
 665                            "freedroidRPG-" (version-major+minor version) "/"
 666                            "freedroidRPG-" version ".tar.gz"))
 667        (sha256
 668         (base32 "0n4kn38ncmcy3lrxmq8fjry6c1z50z4q1zcqfig0j4jb0dsz2va2"))))
 669     (build-system gnu-build-system)
 670     (arguments
 671      `(#:configure-flags
 672        (list
 673         (string-append "CFLAGS="
 674                        "-I" (assoc-ref %build-inputs "sdl-gfx") "/include/SDL "
 675                        "-I" (assoc-ref %build-inputs "sdl-image") "/include/SDL "
 676                        "-I" (assoc-ref %build-inputs "sdl-mixer") "/include/SDL")
 677         "--enable-opengl")
 678        ;; FIXME: the test suite fails with the following error output:
 679        ;;   4586 Segmentation fault      env SDL_VIDEODRIVER=dummy \
 680        ;;   SDL_AUDIODRIVER=dummy ./src/freedroidRPG -nb text
 681        #:tests? #f))
 682     (native-inputs
 683      `(("pkg-config" ,pkg-config)))
 684     (inputs
 685      `(("glu" ,glu)
 686        ("libjpeg" ,libjpeg-turbo)
 687        ("libogg" ,libogg)
 688        ("libpng" ,libpng)
 689        ("libvorbis" ,libvorbis)
 690        ("mesa" ,mesa)
 691        ("python" ,python-wrapper)
 692        ("sdl" ,sdl)
 693        ("sdl-gfx" ,sdl-gfx)
 694        ("sdl-image" ,sdl-image)
 695        ("sdl-mixer" ,sdl-mixer)
 696        ("zlib" ,zlib)))
 697     (home-page "http://www.freedroid.org/")
 698     (synopsis "Isometric role-playing game against killer robots")
 699     (description
 700      "Freedroid RPG is an @dfn{RPG} (Role-Playing Game) with isometric graphics.
 701 The game tells the story of a world destroyed by a conflict between robots and
 702 their human masters.  To restore peace to humankind, the player must complete
 703 numerous quests while fighting off rebelling robots---either by taking control
 704 of them, or by simply blasting them to pieces with melee and ranged weapons in
 705 real-time combat.")
 706     (license (list license:expat        ; lua/
 707                    license:gpl3         ; src/gen_savestruct.py
 708                    license:gpl2+))))    ; the rest
 709
 710 (define-public golly
 711   (package
 712     (name "golly")
 713     (version "3.3")
 714     (source (origin
 715               (method url-fetch)
 716               (uri (string-append "mirror://sourceforge/golly/golly/golly-"
 717                                   version "/golly-" version
 718                                   "-src.tar.gz"))
 719               (sha256
 720                (base32
 721                 "1j3ksnar4rdam4xiyspgyrs1pifbvxfxkrn65brkwxpx39mpgzc8"))))
 722     (build-system gnu-build-system)
 723     (arguments
 724      '(#:make-flags (list "CC=gcc"
 725                           (string-append "GOLLYDIR="
 726                                          (assoc-ref %outputs "out")
 727                                          "/share/golly"))
 728        #:tests? #f ; no check target
 729        #:phases
 730        (modify-phases %standard-phases
 731          (replace 'configure
 732            (lambda* (#:key inputs #:allow-other-keys)
 733              ;; For some reason, setting the PYTHON_SHLIB make flag doesn't
 734              ;; properly set the path to the Python shared library. This
 735              ;; substitution acheives the same end by different means.
 736              (substitute* "gui-wx/wxprefs.cpp"
 737                (("pythonlib = wxT\\(STRINGIFY\\(PYTHON_SHLIB\\)\\)")
 738                 (string-append "pythonlib = \""
 739                                (assoc-ref inputs "python")
 740                                "/lib/libpython-2.7.so\"")))
 741              #t))
 742          (replace 'build
 743            (lambda* (#:key make-flags outputs #:allow-other-keys)
 744              (with-directory-excursion "gui-wx"
 745                (apply invoke `("make" ,@make-flags "-f" "makefile-gtk")))))
 746          (replace 'install
 747            (lambda* (#:key outputs #:allow-other-keys)
 748              (let* ((out (assoc-ref outputs "out"))
 749                     (bin (string-append out "/bin"))
 750                     (doc (string-append out "/share/doc/golly"))
 751                     (pixmaps (string-append out "/share/pixmaps"))
 752                     (share (string-append out "/share/golly")))
 753                (for-each (lambda (binary)
 754                            (install-file binary bin))
 755                          '("bgolly" "golly"))
 756                (for-each (lambda (document)
 757                            (install-file
 758                             (string-append "docs/" document ".html")
 759                             doc))
 760                          '("License" "ReadMe" "ToDo"))
 761                (install-file "gui-wx/icons/appicon.xpm" pixmaps)
 762                (for-each (lambda (folder)
 763                            (copy-recursively
 764                             folder
 765                             (string-append share "/" folder)))
 766                          '("Help" "Patterns" "Rules" "Scripts")))
 767              #t)))))
 768     (native-inputs
 769      `(("lua" ,lua)))
 770     (inputs
 771      `(("glu" ,glu)
 772        ("mesa" ,mesa)
 773        ("python" ,python-2)
 774        ("wxwidgets" ,wxwidgets-gtk2)
 775        ("zlib" ,zlib)))
 776     (home-page "http://golly.sourceforge.net/")
 777     (synopsis "Software for exploring cellular automata")
 778     (description
 779      "Golly simulates Conway's Game of Life and many other types of cellular
 780 automata.  The following features are available:
 781 @enumerate
 782 @item Support for bounded and unbounded universes, with cells of up to 256
 783   states.
 784 @item Support for multiple algorithms, including Bill Gosper's Hashlife
 785   algorithm.
 786 @item Loading patterns from BMP, PNG, GIF and TIFF image files.
 787 @item Reading RLE, macrocell, Life 1.05/1.06, dblife and MCell files.
 788 @item Scriptable via Lua or Python.
 789 @item Extracting patterns, rules and scripts from zip files.
 790 @item Downloading patterns, rules and scripts from online archives.
 791 @item Pasting patterns from the clipboard.
 792 @item Unlimited undo/redo.
 793 @item Configurable keyboard shortcuts.
 794 @item Auto fit option to keep patterns within the view.
 795 @end enumerate")
 796     (license license:gpl2+)))
 797
 798 (define-public julius
 799   (package
 800     (name "julius")
 801     (version "1.2.0")
 802     (source
 803      (origin
 804        (method git-fetch)
 805        (uri (git-reference
 806              (url "https://github.com/bvschaik/julius.git")
 807              (commit (string-append "v" version))))
 808        (file-name (git-file-name name version))
 809        (sha256
 810         (base32 "0kgyzfjii4dhpy2h05977alwdmxyxb4jxznnrhlgb21m0ybncmvp"))))
 811     (build-system cmake-build-system)
 812     (inputs
 813      `(("sdl2" ,sdl2)
 814        ("sdl2-mixer" ,sdl2-mixer)))
 815     (home-page "https://github.com/bvschaik/julius")
 816     (synopsis "Re-implementation of Caesar III game engine")
 817     (description
 818      "Engine for Caesar III, a city-building real-time strategy game.
 819 Julius includes some UI enhancements while preserving the logic (including
 820 bugs) of the original game, so that saved games are compatible.  This package
 821 does not include game data.")
 822     (license (list license:agpl3
 823                    license:expat        ; ext/dirent
 824                    license:zlib))))     ; ext/tinyfiledialogs
 825
 826 (define-public meandmyshadow
 827   (package
 828     (name "meandmyshadow")
 829     (version "0.5a")
 830     (source (origin
 831               (method url-fetch)
 832               (uri (string-append "mirror://sourceforge/meandmyshadow/"
 833                                   version "/meandmyshadow-" version
 834                                   "-src.tar.gz"))
 835               (sha256
 836                (base32
 837                 "0i98v6cgmpsxy7mbb0s2y6f6qq6mkwzk2nrv1nz39ncf948aky2h"))))
 838     (build-system cmake-build-system)
 839     (arguments
 840      `(#:tests? #f))                    ; there are no tests
 841     (native-inputs
 842      `(("pkg-config" ,pkg-config)))
 843     (inputs
 844      `(("curl" ,curl)
 845        ("libarchive" ,libarchive)
 846        ("lua" ,lua)
 847        ("sdl" ,(sdl-union (list sdl2
 848                                 sdl2-image
 849                                 sdl2-mixer
 850                                 sdl2-ttf)))))
 851     (home-page "https://acmepjz.github.io/meandmyshadow/")
 852     (synopsis "Puzzle/platform game")
 853     (description "Me and My Shadow is a puzzle/platform game in which you try
 854 to reach the exit by solving puzzles.  Spikes, moving blocks, fragile blocks
 855 and much more stand between you and the exit.  Record your moves and let your
 856 shadow mimic them to reach blocks you couldn't reach alone.")
 857     (license license:gpl3+)))
 858
 859 (define-public knights
 860   (package
 861     (name "knights")
 862     (version "025")
 863     (source (origin
 864               (method url-fetch)
 865               (uri (string-append "http://www.knightsgame.org.uk/files/knights_"
 866                                   version "_src.tar.gz"))
 867               (sha256
 868                (base32
 869                 "18vp2ygvn0s0jz8rm585jqf6hjqkam1ximq81k0r9hpmfj7wb88f"))))
 870     (build-system gnu-build-system)
 871     (arguments
 872      '(#:make-flags
 873        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 874        #:phases
 875        (modify-phases %standard-phases
 876          ;; No configure script.
 877          (delete 'configure))
 878        #:tests? #f)) ;; No check target.
 879     (inputs
 880      `(("boost" ,boost)
 881        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
 882        ("freetype" ,freetype)
 883        ("fontconfig" ,fontconfig)
 884        ("curl" ,curl)))
 885     (native-inputs
 886      `(("pkg-config" ,pkg-config)))
 887     (home-page "http://www.knightsgame.org.uk/")
 888     (synopsis "Multiplayer dungeon game involving knights and quests")
 889     (description "Knights is a multiplayer game involving several knights who
 890 must run around a dungeon and complete various quests.  Each game revolves
 891 around a quest – for example, you might have to find some items and carry them
 892 back to your starting point.  This may sound easy, but as there are only
 893 enough items in the dungeon for one player to win, you may end up having to
 894 kill your opponents to get their stuff!  Other quests involve escaping from
 895 the dungeon, fighting a duel to the death against the enemy knights, or
 896 destroying an ancient book using a special wand.")
 897     ;; This package includes modified sources of lua (X11), enet (Expat), and
 898     ;; guichan (BSD-3).  The "Coercri" library is released under the Boost
 899     ;; license.  The whole package is released under GPLv3+.
 900     (license license:gpl3+)))
 901
 902 (define-public gnubg
 903   (package
 904     (name "gnubg")
 905     (version "1.06.002")
 906     (source
 907      (origin
 908        (method url-fetch)
 909        (uri (string-append "mirror://gnu/gnubg/gnubg-release-"
 910                            version "-sources.tar.gz"))
 911        (sha256
 912         (base32
 913          "11xwhcli1h12k6rnhhyq4jphzrhfik7i8ah3k32pqw803460n6yf"))))
 914     (build-system gnu-build-system)
 915     (inputs `(("glib" ,glib)
 916               ("readline" ,readline)
 917               ("gtk+" ,gtk+-2)
 918               ("mesa" ,mesa)
 919               ("glu" ,glu)
 920               ("gtkglext" ,gtkglext)
 921               ("sqlite" ,sqlite)
 922               ("libcanberra" ,libcanberra)))
 923     (native-inputs `(("python-2" ,python-2)
 924                      ("pkg-config" ,pkg-config)))
 925     (arguments
 926      `(#:phases
 927        (modify-phases %standard-phases
 928          (add-after 'install 'install-desktop-file
 929            (lambda* (#:key outputs #:allow-other-keys)
 930              (let* ((out (assoc-ref outputs "out"))
 931                     (apps (string-append out "/share/applications")))
 932                (mkdir-p apps)
 933                (with-output-to-file (string-append apps "/gnubg.desktop")
 934                  (lambda _
 935                    (format #t
 936                            "[Desktop Entry]~@
 937                             Name=GNU Backgammon~@
 938                             Exec=~a/bin/gnubg -w~@
 939                             Icon=gnubg~@
 940                             Categories=Game;~@
 941                             Terminal=false~@
 942                             Type=Application~%"
 943                            out))))
 944              #t)))))
 945     (home-page "https://www.gnu.org/software/gnubg/")
 946     (synopsis "Backgammon game")
 947     (description "The GNU backgammon application (also known as \"gnubg\") can
 948 be used for playing, analyzing and teaching the game.  It has an advanced
 949 evaluation engine based on artificial neural networks suitable for both
 950 beginners and advanced players.  In addition to a command-line interface, it
 951 also features an attractive, 3D representation of the playing board.")
 952     (license license:gpl3+)))
 953
 954 (define-public gnubackgammon
 955   (deprecated-package "gnubackgammon" gnubg))
 956
 957 (define-public gnubik
 958   (package
 959     (name "gnubik")
 960     (version "2.4.3")
 961     (source
 962      (origin
 963       (method url-fetch)
 964       (uri (string-append "mirror://gnu/gnubik/gnubik-"
 965                           version ".tar.gz"))
 966       (sha256
 967        (base32
 968         "1vlf924mq8hg93bsjj0rzvs0crc6psmlxyc6zn0fr7msnmpx6gib"))))
 969     (build-system gnu-build-system)
 970     (inputs `(("gtk+" ,gtk+-2)
 971               ("mesa" ,mesa)
 972               ("glu" ,glu)
 973               ("libx11" ,libx11)
 974               ("guile" ,guile-2.0)
 975               ("gtkglext" ,gtkglext)))
 976     (native-inputs `(("gettext" ,gettext-minimal)
 977                      ("pkg-config" ,pkg-config)))
 978     (home-page "https://www.gnu.org/software/gnubik/")
 979     (synopsis "3d Rubik's cube game")
 980     (description
 981      "GNUbik is a puzzle game in which you must manipulate a cube to make
 982 each of its faces have a uniform color.  The game is customizable, allowing
 983 you to set the size of the cube (the default is 3x3) or to change the colors.
 984 You may even apply photos to the faces instead of colors.  The game is
 985 scriptable with Guile.")
 986     (license license:gpl3+)))
 987
 988 (define-public gnushogi
 989   (package
 990     (name "gnushogi")
 991     (version "1.4.2")
 992     (source
 993      (origin
 994       (method url-fetch)
 995       (uri (string-append "mirror://gnu/gnushogi/gnushogi-"
 996                           version ".tar.gz"))
 997       (sha256
 998        (base32
 999         "0a9bsl2nbnb138lq0h14jfc5xvz7hpb2bcsj4mjn6g1hcsl4ik0y"))))
1000     (arguments `(#:tests? #f)) ;; No check target.
1001     (build-system gnu-build-system)
1002     (home-page "https://www.gnu.org/software/gnushogi/")
1003     (synopsis "The game of Shogi (Japanese chess)")
1004     (description  "GNU Shogi is a program that plays the game Shogi (Japanese
1005 Chess).  It is similar to standard chess but this variant is far more complicated.")
1006     (license license:gpl3+)))
1007
1008 (define-public ltris
1009   (package
1010     (name "ltris")
1011     (version "1.0.19")
1012     (source
1013      (origin
1014        (method url-fetch)
1015        (uri (string-append "http://prdownloads.sourceforge.net/lgames/"
1016                            "ltris-" version ".tar.gz"))
1017        (sha256
1018         (base32
1019          "1895wv1fqklrj4apkz47rnkcfhfav7zjknskw6p0886j35vrwslg"))))
1020     (build-system gnu-build-system)
1021     (arguments
1022      '(;; The code in LTris uses traditional GNU semantics for inline functions
1023        #:configure-flags '("CFLAGS=-fgnu89-inline")
1024        #:phases
1025        (modify-phases %standard-phases
1026          (add-after 'set-paths 'set-sdl-paths
1027            (lambda* (#:key inputs #:allow-other-keys)
1028              (setenv "CPATH"
1029                      (string-append (assoc-ref inputs "sdl-union")
1030                                     "/include/SDL:"
1031                                     (or (getenv "CPATH") "")))
1032              #t)))))
1033     (inputs
1034      `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))))
1035     (home-page "http://lgames.sourceforge.net/LTris/")
1036     (synopsis "Tetris clone based on the SDL library")
1037     (description
1038      "LTris is a tetris clone: differently shaped blocks are falling down the
1039 rectangular playing field and can be moved sideways or rotated by 90 degree
1040 units with the aim of building lines without gaps which then disappear (causing
1041 any block above the deleted line to fall down).  LTris has three game modes: In
1042 Classic you play until the stack of blocks reaches the top of the playing field
1043 and no new blocks can enter.  In Figures the playing field is reset to a new
1044 figure each level and later on tiles and lines suddenly appear.  In Multiplayer
1045 up to three players (either human or CPU) compete with each other sending
1046 removed lines to all opponents.  There is also a Demo mode in which you can
1047 watch your CPU playing while enjoying a cup of tea!")
1048     (license license:gpl2+)))
1049
1050 (define-public nethack
1051   (package
1052     (name "nethack")
1053     (version "3.6.4")
1054     (source
1055       (origin
1056         (method url-fetch)
1057         (uri
1058          (string-append "https://www.nethack.org/download/" version "/nethack-"
1059                         (string-join (string-split version #\.) "") "-src.tgz"))
1060         (sha256
1061           (base32 "0ndxgnsprwgjnk0qb24iljkpijnfncgvfb3h3zb129h3cs2anc85"))))
1062     (inputs
1063       `(("ncurses" ,ncurses)
1064         ("bison" ,bison)
1065         ("flex" ,flex)
1066         ("less" ,less)))
1067     (build-system gnu-build-system)
1068     (arguments
1069       '(#:make-flags
1070         `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
1071         #:phases
1072         (modify-phases %standard-phases
1073           (add-before 'configure 'patch-paths
1074             (lambda _
1075               (substitute* "sys/unix/nethack.sh"
1076                 (("^ *cd .*$") ""))
1077               (substitute* "sys/unix/Makefile.utl"
1078                 (("^YACC *=.*$") "YACC = bison -y\n")
1079                 (("^LEX *=.*$") "LEX = flex\n")
1080                 (("^# CC = gcc") "CC = gcc"))
1081               (substitute* "sys/unix/hints/linux"
1082                 (("/bin/gzip") (string-append
1083                                  (assoc-ref %build-inputs "gzip")
1084                                  "/bin/gzip"))
1085                 (("^WINTTYLIB=.*") "WINTTYLIB=-lncurses"))
1086               (substitute* "include/config.h"
1087                 (("^.*define CHDIR.*$") "")
1088                 (("^/\\* *#*define *REPRODUCIBLE_BUILD *\\*/")
1089                  ;; Honor SOURCE_DATE_EPOCH.
1090                  "#define REPRODUCIBLE_BUILD"))
1091
1092               ;; Note: 'makedefs' rejects and ignores dates that are too old
1093               ;; or too new, so we must choose something reasonable here.
1094               (setenv "SOURCE_DATE_EPOCH" "1531865062")
1095
1096               (substitute* "sys/unix/Makefile.src"
1097                  (("^# CC = gcc") "CC = gcc"))
1098               #t))
1099           (replace 'configure
1100             (lambda _
1101               (let ((bash (string-append
1102                             (assoc-ref %build-inputs "bash")
1103                             "/bin/bash")))
1104                 (with-directory-excursion "sys/unix"
1105                   (substitute* "setup.sh" (("/bin/sh") bash))
1106                   (invoke bash "setup.sh" "hints/linux"))
1107                 #t)))
1108           (add-after 'install 'fixup-paths
1109             (lambda _
1110               (let* ((output (assoc-ref %outputs "out"))
1111                      (nethack-script (string-append output "/bin/nethack")))
1112                 (mkdir-p (string-append output "/games/lib/nethackuserdir"))
1113                 (for-each
1114                   (lambda (file)
1115                     (rename-file
1116                       (string-append output "/games/lib/nethackdir/" file)
1117                       (string-append output "/games/lib/nethackuserdir/"
1118                                      file)))
1119                   '("xlogfile" "logfile" "perm" "record" "save"))
1120                 (mkdir-p (string-append output "/bin"))
1121                 (call-with-output-file nethack-script
1122                   (lambda (port)
1123                     (format port "#!~a/bin/sh
1124 PATH=~a:$PATH
1125 if [ ! -d ~~/.config/nethack ]; then
1126   mkdir -p ~~/.config/nethack
1127   cp -r ~a/games/lib/nethackuserdir/* ~~/.config/nethack
1128   chmod -R +w ~~/.config/nethack
1129 fi
1130
1131 RUNDIR=$(mktemp -d)
1132
1133 cleanup() {
1134   rm -rf $RUNDIR
1135 }
1136 trap cleanup EXIT
1137
1138 cd $RUNDIR
1139 for i in ~~/.config/nethack/*; do
1140   ln -s $i $(basename $i)
1141 done
1142 for i in ~a/games/lib/nethackdir/*; do
1143   ln -s $i $(basename $i)
1144 done
1145 ~a/games/nethack"
1146                       (assoc-ref %build-inputs "bash")
1147                       (list->search-path-as-string
1148                         (list
1149                           (string-append
1150                             (assoc-ref %build-inputs "coreutils") "/bin")
1151                           (string-append
1152                             (assoc-ref %build-inputs "less") "/bin"))
1153                         ":")
1154                       output
1155                       output
1156                       output)))
1157                 (chmod nethack-script #o555)
1158                 #t)))
1159           (delete 'check))))
1160     (home-page "https://nethack.org")
1161     (synopsis "Classic dungeon crawl game")
1162     (description "NetHack is a single player dungeon exploration game that runs
1163 on a wide variety of computer systems, with a variety of graphical and text
1164 interfaces all using the same game engine.  Unlike many other Dungeons &
1165 Dragons-inspired games, the emphasis in NetHack is on discovering the detail of
1166 the dungeon and not simply killing everything in sight - in fact, killing
1167 everything in sight is a good way to die quickly.  Each game presents a
1168 different landscape - the random number generator provides an essentially
1169 unlimited number of variations of the dungeon and its denizens to be discovered
1170 by the player in one of a number of characters: you can pick your race, your
1171 role, and your gender.")
1172     (license
1173       (license:fsdg-compatible
1174         "https://nethack.org/common/license.html"))))
1175
1176 (define-public pipewalker
1177   (package
1178     (name "pipewalker")
1179     (version "0.9.4")
1180     (source
1181      (origin
1182        (method url-fetch)
1183        (uri (string-append "http://downloads.sourceforge.net/pipewalker/"
1184                            "pipewalker-" version ".tar.gz"))
1185        (sha256
1186         (base32 "1x46wgk0s55562pd96cxagxkn6wpgglq779f9b64ff1k3xzp3myn"))))
1187     (build-system gnu-build-system)
1188     (arguments
1189      `(#:configure-flags
1190        (list (string-append "--docdir=" (assoc-ref %outputs "out")
1191                             "/share/doc/" ,name "-" ,version))
1192        #:phases
1193        (modify-phases %standard-phases
1194          (add-after 'configure 'patch-docdir
1195            ;; Makefile.in ignores configure's ‘--docdir=...’ option.  Fix that.
1196            (lambda _
1197              (substitute* "Makefile"
1198                (("(pkgdocdatadir = ).*" _ assignment)
1199                 (string-append assignment "$(docdir)\n")))
1200              #t)))))
1201     (inputs
1202      `(("libpng" ,libpng)
1203        ("mesa" ,mesa)
1204        ("sdl" ,sdl)))
1205     (home-page "http://pipewalker.sourceforge.net/")
1206     (synopsis "Logical tile puzzle")
1207     (description
1208      "PipeWalker is a simple puzzle game with many diffent themes: connect all
1209 computers to one network server, bring water from a source to the taps, etc.
1210 The underlying mechanism is always the same: you must turn each tile in the
1211 grid in the right direction to combine all components into a single circuit.
1212 Every puzzle has a complete solution, although there may be more than one.")
1213     (license license:gpl3+)))
1214
1215 (define-public prboom-plus
1216   (package
1217    (name "prboom-plus")
1218    (version "2.5.1.4")
1219    (source (origin
1220             (method url-fetch)
1221             (uri (string-append "mirror://sourceforge/prboom-plus/prboom-plus/"
1222                                 version "/prboom-plus-" version ".tar.gz"))
1223             (sha256
1224              (base32 "151v6nign86m1a2vqz27krsccpc9m4d1jax4y43v2fa82wfj9qp0"))
1225             (modules '((guix build utils)))
1226             (snippet
1227              '(begin
1228                 (substitute* "src/version.c"
1229                   (("__DATE__") "")
1230                   (("__TIME__") ""))
1231                 #t))))
1232    (build-system gnu-build-system)
1233    (arguments
1234     '(#:configure-flags '("--disable-cpu-opt")
1235       #:make-flags `(,(string-append "gamesdir="
1236                                      (assoc-ref %outputs "out") "/bin"))
1237       #:phases
1238       (modify-phases %standard-phases
1239         (add-after 'set-paths 'set-sdl'paths
1240           (lambda* (#:key inputs #:allow-other-keys)
1241             (setenv "CPATH"
1242                     (string-append (assoc-ref inputs "sdl-union")
1243                                    "/include/SDL:"
1244                                    (or (getenv "CPATH") "")))
1245             #t)))))
1246    (inputs
1247     `(("fluidsynth" ,fluidsynth)
1248       ("glu" ,glu)
1249       ("libmad" ,libmad)
1250       ("libpng" ,libpng)
1251       ("libvorbis" ,libvorbis)
1252       ("pcre" ,pcre)
1253       ("portmidi" ,portmidi)
1254       ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net)))))
1255    (home-page "http://prboom-plus.sourceforge.net/")
1256    (synopsis "Version of the classic 3D shoot'em'up game Doom")
1257    (description
1258     "PrBoom+ is a Doom source port developed from the original PrBoom project.")
1259    (license license:gpl2+)))
1260
1261 (define-public retux
1262   (package
1263     (name "retux")
1264     (version "1.3.6")
1265     (source (origin
1266               (method url-fetch)
1267               (uri (string-append "mirror://savannah/retux/"
1268                                   (version-major+minor version) "/retux-"
1269                                   version "-src.tar.gz"))
1270               (sha256
1271                (base32
1272                 "01bidh4zisjp3nc436x0g85v60dvwb3ig37i7y01sa71j8fm4fmb"))))
1273     (build-system python-build-system)
1274     (arguments
1275      `(#:tests? #f ; no check target
1276        #:phases
1277        (modify-phases %standard-phases
1278          ;; no setup.py script
1279          (delete 'build)
1280          (replace 'install
1281            (lambda* (#:key outputs #:allow-other-keys)
1282              (let* ((out    (assoc-ref outputs "out"))
1283                     (bin    (string-append out "/bin"))
1284                     (data   (string-append out "/share/retux"))
1285                     (doc    (string-append out "/share/doc/retux")))
1286                (mkdir-p bin)
1287
1288                (substitute* "retux.py"
1289                  ;; Use the correct data directory.
1290                  (("os\\.path\\.join\\(os\\.path\\.dirname\\(__file__\\), \"data\"\\),")
1291                   (string-append "\"" data "\","))
1292                  ;; Use Python 3 so the patch-shebangs phase works properly.
1293                  ((".*python2.*") "#!/usr/bin/python3"))
1294
1295                (copy-file "retux.py" (string-append bin "/retux"))
1296
1297                (copy-recursively "data" data)
1298
1299                (install-file "COPYING" doc)
1300                #t))))))
1301     (inputs
1302      `(("python-sge-pygame" ,python-sge-pygame)
1303        ("python-six" ,python-six)
1304        ("python-xsge" ,python-xsge)))
1305     (home-page "http://retux.nongnu.org")
1306     (synopsis "Action platformer game")
1307     (description
1308      "ReTux is an action platformer loosely inspired by the Mario games,
1309 utilizing the art assets from the @code{SuperTux} project.")
1310     ;; GPL version 3 or later is the license for the code and some art.
1311     ;; The rest of the licenses are for the art exclusively, as listed in
1312     ;; data/LICENSES.
1313     (license (list license:cc0
1314                    license:cc-by3.0
1315                    license:cc-by-sa3.0
1316                    license:cc-by-sa4.0
1317                    license:gpl2+
1318                    license:gpl3+))))
1319
1320 (define-public roguebox-adventures
1321   (package
1322     (name "roguebox-adventures")
1323     (version "2.2.1")
1324     (source
1325      (origin
1326        (method url-fetch)
1327        (uri (string-append
1328              "http://download.tuxfamily.org/rba/RogueBoxAdventures_v"
1329              (string-join (string-split version #\.) "_") "_Source.zip"))
1330        (file-name (string-append name "-" version ".zip"))
1331        (sha256
1332         (base32
1333          "0kmzdgnik8fsf3bg55546l77p3mfxn2awkzfzzdn20n82rd2babw"))))
1334     (build-system python-build-system)
1335     (arguments
1336      `(#:tests? #f ; no check target
1337        #:phases
1338        (modify-phases %standard-phases
1339          (replace 'unpack
1340            (lambda* (#:key source #:allow-other-keys)
1341              (and (invoke "unzip" source)
1342                   ;; The actual source is buried a few directories deep.
1343                   (chdir (string-append "RogueBoxAdventures_v"
1344                                         (string-join
1345                                          (string-split ,version #\.) "_")
1346                                         "_Source")))))
1347          ;; no setup.py script
1348          (replace 'build
1349            (lambda* (#:key outputs #:allow-other-keys)
1350              (let* ((out (assoc-ref outputs "out"))
1351                     (data (string-append
1352                            out "/share/games/roguebox-adventures")))
1353                ;; Use the correct data directory.
1354                (substitute* '("main.py" "LIB/getch.py" "LIB/getch_gcwz.py")
1355                  (("basic_path + os\\.sep + 'DATA'")
1356                   (string-append "'" data "'"))
1357                  (("^basic_path.*$")
1358                   (string-append "basic_path ='" data "'\n")))
1359                (substitute* "LIB/gra_files.py"
1360                  (("basic_path = b_path\\.replace\\('/LIB',''\\)")
1361                   (string-append "basic_path ='" data "'\n")))
1362
1363                ;; The game must save in the user's home directory because
1364                ;; the store is read-only.
1365                (substitute* "main.py"
1366                  (("home_save = False") "home_save = True")
1367                  (("'icon_small.png'")
1368                   (string-append "'" data "/icon_small.png'"))))
1369              #t))
1370          (replace 'install
1371            (lambda* (#:key outputs #:allow-other-keys)
1372              (let* ((out (assoc-ref outputs "out"))
1373                     (bin (string-append out "/bin"))
1374                     (roguebox-adventures
1375                      (string-append bin "/roguebox-adventures"))
1376                     (data (string-append
1377                            out "/share/games/roguebox-adventures"))
1378                     (lib (string-append data "/LIB"))
1379                     (doc (string-append
1380                           out "/share/doc/roguebox-adventures")))
1381                (mkdir-p bin)
1382                (mkdir-p doc)
1383
1384                (for-each (lambda (file)
1385                            (copy-recursively file
1386                                              (string-append data "/" file)))
1387                          '("AUDIO" "FONT" "GRAPHIC" "LIB" "LICENSE"
1388                            "icon_big.png" "icon_small.png"))
1389                (for-each (lambda (file)
1390                            (chmod file #o555)
1391                            (install-file file lib))
1392                          '("main.py" "run.py"))
1393
1394                (copy-recursively "DOC" doc)
1395
1396                (call-with-output-file
1397                    roguebox-adventures
1398                  (lambda (p)
1399                    (format p "\
1400 #!~a
1401 export PYTHONPATH=~a/LIB:~a
1402 exec -a \"~a\" ~a \"$@\"\n"
1403                            (which "bash") data (getenv "PYTHONPATH")
1404                            (which "python3")
1405                            (string-append lib "/main.py"))))
1406                (chmod roguebox-adventures #o555))
1407              #t)))))
1408     (native-inputs
1409      `(("unzip" ,unzip)))
1410     (inputs
1411      `(("python-pygame" ,python-pygame)
1412        ("python-tmx" ,python-tmx)))
1413     (home-page "https://rogueboxadventures.tuxfamily.org")
1414     (synopsis "A classical roguelike/sandbox game")
1415     (description
1416      "RogueBox Adventures is a graphical roguelike with strong influences
1417 from sandbox games like Minecraft or Terraria.  The main idea of RogueBox
1418 Adventures is to offer the player a kind of roguelike toy-world.  This world
1419 can be explored and changed freely.")
1420     ;; The GPL3+ is for code, the rest are for art.
1421     (license (list license:cc0
1422                    license:cc-by3.0
1423                    license:gpl3+
1424                    license:silofl1.1))))
1425
1426 (define-public xshogi
1427   (package
1428     (name "xshogi")
1429     (version "1.4.2")
1430     (source
1431      (origin
1432       (method url-fetch)
1433       (uri (string-append "mirror://gnu/gnushogi/xshogi-"
1434                           version ".tar.gz"))
1435       (sha256
1436        (base32
1437         "1dns0nhymak44by18sv48m4xb2skiwbi2i3nb9hl6w9iwd2i2brf"))))
1438     (build-system gnu-build-system)
1439     (inputs
1440      `(("libxaw" ,libxaw)
1441        ("libxt" ,libxt)))
1442     (home-page "https://www.gnu.org/software/gnushogi/")
1443     (synopsis "User interface for gnushogi")
1444     (description  "A graphical user interface for the package @code{gnushogi}.")
1445     ;; Contains a copy of GPLv3 but the licence notices simply
1446     ;; state "GNU General Public Licence" without specifying a version.
1447     (license license:gpl1+)))
1448
1449 (define-public abbaye
1450   (package
1451     (name "abbaye")
1452     (version "2.0.1")
1453     (source
1454      (origin
1455        (method git-fetch)
1456        (uri (git-reference
1457              (url "https://github.com/nevat/abbayedesmorts-gpl.git")
1458              (commit (string-append "v" version))))
1459        (file-name (git-file-name name version))
1460        (sha256
1461         (base32 "1pwqf7r9bqb2p3xrw9i7y8pgr1401fy3mnnqpb1qkhmdl3gqi9hb"))
1462        (modules '((guix build utils)))
1463        (snippet
1464         ;; Unbundle fonts.
1465         '(begin
1466            (delete-file-recursively "fonts")
1467            #t))))
1468     (build-system gnu-build-system)
1469     (arguments
1470      '(#:make-flags '("CC=gcc")
1471        #:phases (modify-phases %standard-phases
1472                   (add-after 'set-paths 'set-sdl-paths
1473                     (lambda* (#:key inputs #:allow-other-keys)
1474                       (setenv "CPATH"
1475                               (string-append (assoc-ref inputs "sdl-union")
1476                                              "/include/SDL:"
1477                                              (or (getenv "CPATH") "")))))
1478                   (add-after 'patch-source-shebangs 'patch-makefile
1479                     (lambda* (#:key outputs #:allow-other-keys)
1480                       ;; Replace /usr with package output directory.
1481                       (substitute* "Makefile"
1482                         (("/usr") (assoc-ref outputs "out")))))
1483                   (add-before 'install 'make-install-dirs
1484                     (lambda* (#:key outputs #:allow-other-keys)
1485                       (let ((prefix (assoc-ref outputs "out")))
1486                         ;; Create directories that the makefile assumes exist.
1487                         (mkdir-p (string-append prefix "/bin"))
1488                         (mkdir-p (string-append prefix "/share/applications"))
1489                         (mkdir-p (string-append prefix "/share/pixmaps")))))
1490                   ;; No configure script.
1491                   (delete 'configure))
1492        #:tests? #f)) ;; No check target.
1493     (native-inputs `(("pkg-config" ,pkg-config)))
1494     (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer)))))
1495     (home-page "https://github.com/nevat/abbayedesmorts-gpl")
1496     (synopsis "GNU/Linux port of the indie game \"l'Abbaye des Morts\"")
1497     (description "L'Abbaye des Morts is a 2D platform game set in 13th century
1498 France.  The Cathars, who preach about good Christian beliefs, were being
1499 expelled by the Catholic Church out of the Languedoc region in France.  One of
1500 them, called Jean Raymond, found an old church in which to hide, not knowing
1501 that beneath its ruins lay buried an ancient evil.")
1502     (license license:gpl3)))
1503
1504 (define-public l-abbaye-des-morts
1505   (deprecated-package "l-abbaye-des-morts" abbaye))
1506
1507 (define-public angband
1508   (package
1509     (name "angband")
1510     (version "4.2.0")
1511     (source
1512      (origin
1513        (method url-fetch)
1514        (uri (string-append "http://rephial.org/downloads/"
1515                            (version-major+minor version)
1516                            "/angband-" version ".tar.gz"))
1517        (sha256
1518         (base32
1519          "0vdm1ymm28wawp94nl1p5q3lhc0k7cnn2kkvvrkfx962gif4kqfk"))
1520        (modules '((guix build utils)))
1521        (snippet
1522         ;; So, some of the sounds/graphics/tilesets are under different
1523         ;; licenses... some of them even nonfree!  This is a console-only
1524         ;; version of this package so we just remove them.
1525         ;; In the future, if someone tries to make a graphical variant of
1526         ;; this package, they can deal with that mess themselves. :)
1527         '(begin
1528            (for-each (lambda (subdir)
1529                        (let ((lib-subdir (string-append "lib/" subdir)))
1530                          (delete-file-recursively lib-subdir)))
1531                      '("fonts" "icons" "sounds" "tiles"))
1532            (substitute* "lib/Makefile"
1533              ;; And don't try to invoke makefiles in the directories we removed.
1534              (("gamedata customize help screens fonts tiles sounds icons user")
1535               "gamedata customize help screens user"))
1536            #t))))
1537     (build-system gnu-build-system)
1538     (arguments
1539      `(#:tests? #f                      ; no check target
1540        #:configure-flags (list (string-append "--bindir=" %output "/bin"))
1541        #:phases
1542        (modify-phases %standard-phases
1543          (replace 'bootstrap
1544            (lambda _
1545              (substitute* "acinclude.m4"
1546                (("ncursesw5-config") "ncursesw6-config"))
1547              (invoke "sh" "autogen.sh"))))))
1548     (native-inputs
1549      `(("autoconf" ,autoconf)
1550        ("automake" ,automake)))
1551     (inputs `(("ncurses" ,ncurses)))
1552     (home-page "http://rephial.org/")
1553     (synopsis "Dungeon exploration roguelike")
1554     (description "Angband is a Classic dungeon exploration roguelike.  Explore
1555 the depths below Angband, seeking riches, fighting monsters, and preparing to
1556 fight Morgoth, the Lord of Darkness.")
1557     (license license:gpl2)))
1558
1559 (define-public pingus
1560   (package
1561     (name "pingus")
1562     (version "0.7.6")
1563     (source
1564      (origin
1565        (method git-fetch)
1566        (uri (git-reference
1567               (url "https://gitlab.com/pingus/pingus.git")
1568               (commit (string-append "v" version))))
1569        (file-name (git-file-name name version))
1570        (sha256
1571         (base32
1572          "0wp06kcmknsnxz7bjnsndb8x062z7r23fb3yrnbfnj68qhz18y74"))
1573        (patches (search-patches "pingus-boost-headers.patch"
1574                                 "pingus-sdl-libs-config.patch"))
1575        (modules '((guix build utils)))
1576        (snippet
1577         '(begin
1578            (substitute* "src/pingus/screens/demo_session.cpp"
1579              (("#include <iostream>")
1580               ;; std::function moved to <functional> with C++ 11.
1581               ;; Remove this for versions newer than 0.7.6.
1582               "#include <iostream>\n#include <functional>"))
1583            #t))))
1584     (build-system gnu-build-system)
1585     (native-inputs `(("pkg-config" ,pkg-config)
1586                      ("scons-python2" ,scons-python2)))
1587     (inputs `(("sdl" ,sdl)
1588               ("sdl-image" ,sdl-image)
1589               ("sdl-mixer" ,sdl-mixer)
1590               ("mesa" ,mesa)
1591               ("glu" ,glu)
1592               ("libpng" ,libpng)
1593               ("boost" ,boost)))
1594     (arguments
1595      '(#:make-flags (list (string-append "PREFIX=" %output))
1596        #:tests? #f                      ; no check target
1597        #:phases
1598        (modify-phases %standard-phases
1599          (delete 'configure)))) ; no configure script
1600     (home-page "https://pingus.seul.org/")
1601     (synopsis "Lemmings clone")
1602     (description
1603      "Pingus is a free Lemmings-like puzzle game in which the player takes
1604 command of a bunch of small animals and has to guide them through levels.
1605 Since the animals walk on their own, the player can only influence them by
1606 giving them commands, like build a bridge, dig a hole, or redirect all animals
1607 in the other direction.  Multiple such commands are necessary to reach the
1608 level's exit.  The game is presented in a 2D side view.")
1609     ;; Some source files are under bsd-3 and gpl2+ licenses.
1610     (license license:gpl3+)))
1611
1612 (define-public talkfilters
1613   (package
1614     (name "talkfilters")
1615     (version "2.3.8")
1616     (source
1617      (origin
1618        (method url-fetch)
1619        (uri (string-append "http://www.hyperrealm.com/" name "/"
1620                            name  "-" version  ".tar.gz"))
1621        (sha256
1622         (base32 "19nc5vq4bnkjvhk8srqddzhcs93jyvpm9r6lzjzwc1mgf08yg0a6"))))
1623     (build-system gnu-build-system)
1624     (home-page "https://www.gnu.org/software/talkfilters/")
1625     (synopsis "Convert English text to humorous dialects")
1626     (description "The GNU Talk Filters are programs that convert English text
1627 into stereotyped or otherwise humorous dialects.  The filters are provided as
1628 a C library, so they can easily be integrated into other programs.")
1629     (license license:gpl2+)))
1630
1631 (define-public cmatrix
1632   (package
1633     (name "cmatrix")
1634     (version "2.0")
1635     (source
1636      (origin
1637        (method git-fetch)
1638        (uri (git-reference
1639              (url "https://github.com/abishekvashok/cmatrix.git")
1640              (commit (string-append "v" version))))
1641        (file-name (git-file-name name version))
1642        (sha256
1643         (base32
1644          "1h9jz4m4s5l8c3figaq46ja0km1gimrkfxm4dg7mf4s84icmasbm"))))
1645     (build-system gnu-build-system)
1646     (native-inputs
1647      `(("autoconf" ,autoconf)
1648        ("automake" ,automake)))
1649     (arguments
1650      '(#:phases
1651        (modify-phases %standard-phases
1652          (replace 'configure
1653            (lambda* (#:key outputs #:allow-other-keys)
1654              ;; This old ‘configure’ script doesn't support
1655              ;; variables passed as arguments.
1656              (let ((out (assoc-ref outputs "out")))
1657                (setenv "CONFIG_SHELL" (which "bash"))
1658                (invoke "./configure"
1659                        (string-append "--prefix=" out))))))))
1660     (inputs `(("ncurses" ,ncurses)))
1661     (home-page "http://www.asty.org/cmatrix")
1662     (synopsis "Simulate the display from \"The Matrix\"")
1663     (description "CMatrix simulates the display from \"The Matrix\" and is
1664 based on the screensaver from the movie's website.  It works with terminal
1665 settings up to 132x300 and can scroll lines all at the same rate or
1666 asynchronously and at a user-defined speed.")
1667     (license license:gpl2+)))
1668
1669 (define-public chess
1670   (package
1671     (name "chess")
1672     (version "6.2.5")
1673     (source
1674      (origin
1675        (method url-fetch)
1676        (uri (string-append "mirror://gnu/chess/gnuchess-" version
1677                            ".tar.gz"))
1678        (sha256
1679         (base32
1680          "00j8s0npgfdi41a0mr5w9qbdxagdk2v41lcr42rwl1jp6miyk6cs"))))
1681     (build-system gnu-build-system)
1682     (home-page "https://www.gnu.org/software/chess/")
1683     (synopsis "Full chess implementation")
1684     (description "GNU Chess is a chess engine.  It allows you to compete
1685 against the computer in a game of chess, either through the default terminal
1686 interface or via an external visual interface such as GNU XBoard.")
1687     (license license:gpl3+)))
1688
1689 (define freedink-engine
1690   (package
1691     (name "freedink-engine")
1692     (version "109.6")
1693     (source (origin
1694               (method url-fetch)
1695               (uri (string-append "mirror://gnu/freedink/freedink-" version
1696                                   ".tar.gz"))
1697               (sha256
1698                (base32
1699                 "00hhk1bjdrc1np2qz44sa5n1mb62qzwxbvsnws3vpms6iyn3a2sy"))))
1700     (build-system gnu-build-system)
1701     (arguments
1702      `(#:configure-flags '("--disable-embedded-resources")
1703        #:phases
1704        (modify-phases %standard-phases
1705          (add-after 'unpack 'disable-graphical-tests
1706            (lambda _
1707              ;; These tests require a graphical interface.
1708              (substitute* "src/Makefile.am"
1709                (("test_gfx_fonts TestIOGfxDisplay") ""))
1710              #t)))))
1711     (native-inputs `(("autoconf" ,autoconf)
1712                      ("automake" ,automake)
1713                      ("cxxtest" ,cxxtest)
1714                      ("gettext" ,gettext-minimal)
1715                      ("help2man" ,help2man)
1716                      ("pkg-config" ,pkg-config)))
1717     (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer
1718                                              sdl2-ttf sdl2-gfx)))
1719               ("fontconfig" ,fontconfig)
1720               ("glm" ,glm)))
1721     (properties '((ftp-directory . "/freedink")
1722                   (upstream-name . "freedink")))
1723     (home-page "https://www.gnu.org/software/freedink/")
1724     (synopsis "Twisted adventures of young pig farmer Dink Smallwood")
1725     (description
1726      "GNU FreeDink is a free and portable re-implementation of the engine
1727 for the role-playing game Dink Smallwood.  It supports not only the original
1728 game data files but it also supports user-produced game mods or \"D-Mods\".
1729 To that extent, it also includes a front-end for managing all of your D-Mods.")
1730     (license license:gpl3+)))
1731
1732 (define freedink-data
1733   (package
1734     (name "freedink-data")
1735     (version "1.08.20190120")
1736     (source (origin
1737               (method url-fetch)
1738               (uri (string-append "mirror://gnu/freedink/freedink-data-"
1739                                   version ".tar.gz"))
1740               (sha256
1741                (base32
1742                 "17gvryadlxk172mblbsil7hina1z5wahwaxnr6g3mdq57dvl8pvi"))))
1743     (build-system gnu-build-system)
1744     (arguments
1745      `(#:phases
1746        (modify-phases %standard-phases
1747          (delete 'configure)            ; no configure script
1748          (delete 'check))               ; no tests
1749        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
1750     (properties '((ftp-directory . "/freedink")))
1751     (home-page "https://www.gnu.org/software/freedink/")
1752     (synopsis "Game data for GNU Freedink")
1753     (description
1754      "This package contains the game data of GNU Freedink.")
1755     (license license:gpl3+)))
1756
1757 (define-public freedink-dfarc
1758   (package
1759     (name "freedink-dfarc")
1760     (version "3.14")
1761     (source (origin
1762               (method url-fetch)
1763               (uri (string-append "mirror://gnu/freedink/dfarc-"
1764                                   version ".tar.gz"))
1765               (sha256
1766                (base32
1767                 "1yp8n3w426xnlp10xk06vfi2y3k9xrcfyck7s7qs1v0ys7n284d5"))))
1768     (build-system gnu-build-system)
1769     (native-inputs
1770      `(("intltool" ,intltool)))
1771     (inputs
1772      `(("bzip2" ,bzip2)
1773        ("wxwidgets" ,wxwidgets)))
1774     (properties '((ftp-directory . "/freedink")
1775                   (upstream-name . "dfarc")))
1776     (home-page "https://www.gnu.org/software/freedink/")
1777     (synopsis "Front-end for managing and playing Dink Modules")
1778     (description "DFArc makes it easy to play and manage the GNU FreeDink game
1779 and its numerous D-Mods.")
1780     (license license:gpl3+)))
1781
1782 (define-public freedink
1783   ;; This is a wrapper that tells the engine where to find the data.
1784   (package (inherit freedink-engine)
1785     (name "freedink")
1786     (build-system trivial-build-system)
1787     (arguments
1788      '(#:builder (begin
1789                    (use-modules (guix build utils))
1790
1791                    (let* ((output     (assoc-ref %outputs "out"))
1792                           (bin        (string-append output "/bin"))
1793                           (executable (string-append bin "/freedink")))
1794                      (mkdir-p bin)
1795                      (call-with-output-file executable
1796                        (lambda (port)
1797                          (format port "#!~a/bin/sh
1798 exec ~a/bin/freedink -refdir ~a/share/dink\n"
1799                                  (assoc-ref %build-inputs "bash")
1800                                  (assoc-ref %build-inputs "engine")
1801                                  (assoc-ref %build-inputs "data"))
1802                          (chmod port #o777)))
1803                      #t))
1804        #:modules ((guix build utils))))
1805     (inputs `(("engine" ,freedink-engine)
1806               ("data" ,freedink-data)
1807               ("bash" ,bash)))
1808     (native-inputs '())))
1809
1810 (define-public xboard
1811   (package
1812     (name "xboard")
1813     (version "4.9.1")
1814     (source
1815      (origin
1816        (method url-fetch)
1817        (uri (string-append "mirror://gnu/xboard/xboard-" version
1818                            ".tar.gz"))
1819        (sha256
1820         (base32
1821          "1mkh36xnnacnz9r00b5f9ld9309k32jv6mcavklbdnca8bl56bib"))))
1822     (build-system gnu-build-system)
1823     (inputs
1824      `(("gtk+" ,gtk+-2)
1825        ("librsvg" ,librsvg)))
1826     (native-inputs
1827      `(("texinfo" ,texinfo)
1828        ("pkg-config" ,pkg-config)))
1829     (home-page "https://www.gnu.org/software/xboard/")
1830     (synopsis "Graphical user interface for chess programs")
1831     (description "GNU XBoard is a graphical board for all varieties of chess,
1832 including international chess, xiangqi (Chinese chess), shogi (Japanese chess)
1833 and Makruk.  Several lesser-known variants are also supported.  It presents a
1834 fully interactive graphical interface and it can load and save games in the
1835 Portable Game Notation.")
1836     (license license:gpl3+)))
1837
1838 (define-public gtypist
1839   (package
1840     (name "gtypist")
1841     (version "2.9.5")
1842     (source (origin
1843               (method url-fetch)
1844               (uri (string-append "mirror://gnu/gtypist/gtypist-"
1845                                   version ".tar.xz"))
1846               (sha256
1847                (base32
1848                 "0xzrkkmj0b1dw3yr0m9hml2y634cc4h61im6zwcq57s7285z8fn1"))
1849               (modules '((guix build utils)))
1850               (snippet
1851                ;; We do not provide `ncurses.h' within an `ncursesw'
1852                ;; sub-directory, so patch the source accordingly.  See
1853                ;; <http://bugs.gnu.org/19018>.
1854                '(begin
1855                   (for-each (lambda (file)
1856                               (substitute* file
1857                                 (("ncursesw/ncurses.h")
1858                                  "ncurses.h")))
1859                             (find-files "." "configure$|\\.c$"))
1860                   #t))))
1861     (build-system gnu-build-system)
1862     (inputs `(("ncurses" ,ncurses)
1863               ("perl" ,perl)))
1864     (home-page "https://www.gnu.org/software/gtypist/")
1865     (synopsis "Typing tutor")
1866     (description
1867      "GNU Typist is a universal typing tutor.  It can be used to learn and
1868 practice touch-typing.  Several tutorials are included; in addition to
1869 tutorials for the standard QWERTY layout, there are also tutorials for the
1870 alternative layouts Dvorak and Colemak, as well as for the numpad.  Tutorials
1871 are primarily in English, however some in other languages are provided.")
1872     (license license:gpl3+)))
1873
1874 (define-public irrlicht
1875   (package
1876     (name "irrlicht")
1877     (version "1.8.4")
1878     (source (origin
1879               (method url-fetch)
1880               (uri (string-append
1881                     "mirror://sourceforge/irrlicht/Irrlicht%20SDK/"
1882                     (version-major+minor version)
1883                     "/" version "/irrlicht-" version ".zip"))
1884               (sha256
1885                (base32
1886                 "0cz4z4dwrv5ypl19ll67wl6jjpy5k6ly4vr042w4br88qq5jhazl"))
1887               (patches (search-patches "irrlicht-use-system-libs.patch"))
1888               (modules '((guix build utils)))
1889               (snippet
1890                '(begin
1891                   (for-each delete-file-recursively
1892                      '("bin" ; bundled compiled Windows binaries"
1893                        "source/Irrlicht/MacOSX"
1894                        "source/Irrlicht/bzip2"
1895                        "source/Irrlicht/jpeglib"
1896                        "source/Irrlicht/libpng"
1897                        "source/Irrlicht/lzma"
1898                        "source/Irrlicht/zlib"))
1899                   (delete-file "source/Irrlicht/glext.h")
1900                   (delete-file "source/Irrlicht/glxext.h")
1901                   (delete-file "source/Irrlicht/wglext.h")
1902                   #t))))
1903     (build-system gnu-build-system)
1904     (arguments
1905      `(#:phases
1906        (modify-phases %standard-phases
1907          (add-after 'unpack 'chdir-to-source
1908            (lambda _
1909              ;; The actual source is buried a few directories deep.
1910              (chdir "source/Irrlicht/")
1911              #t))
1912          (add-after 'chdir-to-source 'fix-build-env
1913            (lambda* (#:key outputs #:allow-other-keys)
1914              (let ((out (assoc-ref outputs "out")))
1915                (substitute* "Makefile"
1916                  (("INSTALL_DIR = /usr/local/lib")
1917                   (string-append "INSTALL_DIR = " out "/lib"))
1918                  ;; Add '-fpermissive' to the CXXFLAGS
1919                  (("-Wall") "-Wall -fpermissive")) ; CImageLoaderJPG.cpp
1920                ;; The Makefile assumes these directories exist.
1921                (mkdir-p (string-append out "/lib"))
1922                (mkdir-p (string-append out "/include")))))
1923          (delete 'configure))           ; no configure script
1924        #:tests? #f                      ; no check target
1925        #:make-flags '("CC=gcc" "sharedlib")))
1926     (inputs
1927      `(("bzip2" ,bzip2)
1928        ("libjpeg" ,libjpeg-turbo)
1929        ("libpng" ,libpng)
1930        ("libx11" ,libx11)
1931        ("libxxf86vm" ,libxxf86vm)
1932        ("mesa" ,mesa)))
1933     (synopsis "3D game engine written in C++")
1934     (description
1935      "The Irrlicht Engine is a high performance realtime 3D engine written in
1936 C++.  Features include an OpenGL renderer, extensible materials, scene graph
1937 management, character animation, particle and other special effects, support
1938 for common mesh file formats, and collision detection.")
1939     (home-page "http://irrlicht.sourceforge.net/")
1940     (license license:zlib)))
1941
1942 (define-public mars
1943   ;; The latest release on SourceForge relies on an unreleased version of SFML
1944   ;; with a different API, so we take the latest version from the official
1945   ;; repository on Github.
1946   (let ((commit   "c855d044094a1d92317e38935d81ba938946132e")
1947         (revision "1"))
1948     (package
1949       (name "mars")
1950       (version (string-append "0.7.5." revision "." (string-take commit 7) ))
1951       (source (origin
1952                 (method git-fetch)
1953                 (uri (git-reference
1954                       (url "https://github.com/thelaui/M.A.R.S..git")
1955                       (commit commit)))
1956                 (file-name (git-file-name name version))
1957                 (sha256
1958                  (base32
1959                   "1r4c5gap1z2zsv4yjd34qriqkxaq4lb4rykapyzkkdf4g36lc3nh"))
1960                 (patches (search-patches "mars-sfml-2.3.patch"
1961                                          "mars-install.patch"))))
1962       (build-system cmake-build-system)
1963       (arguments
1964        `(#:tests? #f        ; There are no tests
1965          #:phases
1966          (modify-phases %standard-phases
1967            (add-after 'unpack 'fix-install-path
1968             (lambda _
1969               (substitute* "src/CMakeLists.txt"
1970                 (("\\$\\{CMAKE_INSTALL_PREFIX\\}/games")
1971                  "${CMAKE_INSTALL_PREFIX}/bin"))
1972               #t))
1973            (add-after 'unpack 'fix-data-path
1974             (lambda* (#:key outputs #:allow-other-keys)
1975               (substitute* "src/System/settings.cpp"
1976                 (("C_dataPath = \"./data/\";")
1977                  (string-append "C_dataPath = \""
1978                                 (assoc-ref outputs "out")
1979                                 "/share/games/marsshooter/\";")))
1980               #t)))))
1981       (inputs
1982        `(("mesa" ,mesa)
1983          ("fribidi" ,fribidi)
1984          ("taglib" ,taglib)
1985          ("sfml" ,sfml)))
1986       (home-page "http://marsshooter.org")
1987       (synopsis "2D space shooter")
1988       (description
1989        "M.A.R.S. is a 2D space shooter with pretty visual effects and
1990 attractive physics.  Players can battle each other or computer controlled
1991 enemies in different game modes such as space ball, death match, team death
1992 match, cannon keep, and grave-itation pit.")
1993       (license license:gpl3+))))
1994
1995 (define minetest-data
1996   (package
1997     (name "minetest-data")
1998     (version "5.1.1")
1999     (source (origin
2000               (method git-fetch)
2001               (uri (git-reference
2002                      (url "https://github.com/minetest/minetest_game")
2003                      (commit version)))
2004               (file-name (git-file-name name version))
2005               (sha256
2006                (base32
2007                 "1r9fxz2j24q74a9injvbxbf2xk67fzabv616i676zw2cvgv9hn39"))))
2008     (build-system trivial-build-system)
2009     (native-inputs
2010      `(("source" ,source)))
2011     (arguments
2012      `(#:modules ((guix build utils))
2013        #:builder (begin
2014                    (use-modules (guix build utils))
2015                    (let ((install-dir (string-append
2016                                        %output
2017                                        "/share/minetest/games/minetest_game")))
2018                      (mkdir-p install-dir)
2019                      (copy-recursively
2020                        (assoc-ref %build-inputs "source")
2021                        install-dir)
2022                      #t))))
2023     (synopsis "Main game data for the Minetest game engine")
2024     (description
2025      "Game data for the Minetest infinite-world block sandbox game.")
2026     (home-page "https://www.minetest.net/")
2027     (license license:lgpl2.1+)))
2028
2029 (define-public minetest
2030   (package
2031     (name "minetest")
2032     (version "5.1.1")
2033     (source (origin
2034               (method git-fetch)
2035               (uri (git-reference
2036                     (url "https://github.com/minetest/minetest")
2037                     (commit version)))
2038               (file-name (git-file-name name version))
2039               (sha256
2040                (base32
2041                 "0cjj63333b7j4ydfq0h9yc6d2jvmyjd7n7zbd08yrf0rcibrj2k0"))
2042               (modules '((guix build utils)))
2043               (snippet
2044                '(begin
2045                   ;; Delete bundled libraries.
2046                   (delete-file-recursively "lib")
2047                   #t))))
2048     (build-system cmake-build-system)
2049     (arguments
2050      '(#:configure-flags
2051        (list "-DRUN_IN_PLACE=0"
2052              "-DENABLE_FREETYPE=1"
2053              "-DENABLE_GETTEXT=1"
2054              "-DENABLE_SYSTEM_JSONCPP=TRUE"
2055              (string-append "-DIRRLICHT_INCLUDE_DIR="
2056                             (assoc-ref %build-inputs "irrlicht")
2057                             "/include/irrlicht")
2058              (string-append "-DCURL_INCLUDE_DIR="
2059                             (assoc-ref %build-inputs "curl")
2060                             "/include/curl"))
2061        #:tests? #f))                    ;no check target
2062     (native-search-paths
2063      (list (search-path-specification
2064             (variable "MINETEST_SUBGAME_PATH")
2065             (files '("share/minetest/games")))))
2066     (native-inputs
2067      `(("pkg-config" ,pkg-config)))
2068     (inputs
2069      `(("curl" ,curl)
2070        ("freetype" ,freetype)
2071        ("gettext" ,gettext-minimal)
2072        ("gmp" ,gmp)
2073        ("irrlicht" ,irrlicht)
2074        ("jsoncpp" ,jsoncpp)
2075        ("libjpeg" ,libjpeg-turbo)
2076        ("libpng" ,libpng)
2077        ("libogg" ,libogg)
2078        ("libvorbis" ,libvorbis)
2079        ("libxxf86vm" ,libxxf86vm)
2080        ("luajit" ,luajit)
2081        ("mesa" ,mesa)
2082        ("ncurses" ,ncurses)
2083        ("openal" ,openal)
2084        ("sqlite" ,sqlite)))
2085     (propagated-inputs
2086      `(("minetest-data" ,minetest-data)))
2087     (synopsis "Infinite-world block sandbox game")
2088     (description
2089      "Minetest is a sandbox construction game.  Players can create and destroy
2090 various types of blocks in a three-dimensional open world.  This allows
2091 forming structures in every possible creation, on multiplayer servers or as a
2092 single player.  Mods and texture packs allow players to personalize the game
2093 in different ways.")
2094     (home-page "https://www.minetest.net/")
2095     (license license:lgpl2.1+)))
2096
2097 (define glkterm
2098   (package
2099    (name "glkterm")
2100    (version "1.0.4")
2101    (source
2102     (origin
2103      (method url-fetch)
2104      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
2105                          "glk/implementations/glkterm-104.tar.gz"))
2106      (sha256
2107       (base32
2108        "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7"))))
2109    (build-system gnu-build-system)
2110    (propagated-inputs `(("ncurses" ,ncurses))) ; required by Make.glkterm
2111    (arguments
2112     '(#:tests? #f ; no check target
2113       #:phases
2114       (modify-phases %standard-phases
2115         (replace 'install
2116           (lambda* (#:key outputs #:allow-other-keys)
2117             (let* ((out (assoc-ref outputs "out"))
2118                    (inc (string-append out "/include"))
2119                    (lib (string-append out "/lib")))
2120               (for-each
2121                (lambda (file)
2122                  (install-file file inc))
2123                '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
2124               (install-file "libglkterm.a" lib))
2125             #t))
2126         (delete 'configure))))          ; no configure script
2127    (home-page "http://www.eblong.com/zarf/glk/")
2128    (synopsis "Curses Implementation of the Glk API")
2129    (description
2130     "Glk defines a portable API for applications with text UIs.  It was
2131 primarily designed for interactive fiction, but it should be suitable for many
2132 interactive text utilities, particularly those based on a command line.
2133 This is an implementation of the Glk library which runs in a terminal window,
2134 using the @code{curses.h} library for screen control.")
2135    (license (license:fsf-free "file://README"))))
2136
2137 (define-public glulxe
2138   (package
2139    (name "glulxe")
2140    (version "0.5.4")
2141    (source
2142     (origin
2143      (method url-fetch)
2144      (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
2145                          "glulx/interpreters/glulxe/glulxe-054.tar.gz"))
2146      (sha256
2147       (base32
2148        "0vipydg6ra90yf9b3ipgppwxyb2xdhcxwvirgjy0v20wlf56zhhz"))))
2149    (build-system gnu-build-system)
2150    (inputs `(("glk" ,glkterm)))
2151    (arguments
2152     '(#:tests? #f                       ; no check target
2153       #:make-flags
2154       (let* ((glk (assoc-ref %build-inputs "glk")))
2155         (list (string-append "GLKINCLUDEDIR=" glk "/include")
2156               (string-append "GLKLIBDIR=" glk "/lib")
2157               (string-append "GLKMAKEFILE=" "Make.glkterm")))
2158       #:phases
2159       (modify-phases %standard-phases
2160         (replace 'install
2161           (lambda* (#:key outputs #:allow-other-keys)
2162             (let* ((out (assoc-ref outputs "out"))
2163                    (bin (string-append out "/bin")))
2164               (install-file "glulxe" bin))
2165             #t))
2166         (delete 'configure))))          ; no configure script
2167    (home-page "https://www.eblong.com/zarf/glulx/")
2168    (synopsis "Interpreter for Glulx VM")
2169    (description
2170     "Glulx is a 32-bit portable virtual machine intended for writing and
2171 playing interactive fiction.  It was designed by Andrew Plotkin to relieve
2172 some of the restrictions in the venerable Z-machine format.  This is the
2173 reference interpreter, using the Glk API.")
2174    (license license:expat)))
2175
2176 (define-public fifechan
2177   (package
2178     (name "fifechan")
2179     (version "0.1.5")
2180     (source (origin
2181               (method url-fetch)
2182               (uri (string-append "https://codeload.github.com/fifengine/"
2183                                   "fifechan/tar.gz/" version))
2184               (file-name (string-append name "-" version ".tar.gz"))
2185               (sha256
2186                (base32
2187                 "0wxs9vz5x9y8chghd8vp7vfk089lfb0qnzggi17zrqkrngs5zgi9"))))
2188     (build-system cmake-build-system)
2189     (inputs
2190      `(("sdl2" ,sdl2)
2191        ("sdl2-image" ,sdl2-image)
2192        ("mesa" ,mesa)))
2193     (arguments
2194      '(#:tests? #f))                    ; No included tests
2195     (home-page "https://fifengine.github.io/fifechan/")
2196     (synopsis "Cross platform GUI library specifically for games")
2197     (description
2198      "Fifechan is a lightweight cross platform GUI library written in C++
2199 specifically designed for games.  It has a built in set of extendable GUI
2200 Widgets, and allows users to create more.")
2201     (license license:lgpl2.1+)))
2202
2203 (define-public fifengine
2204   (package
2205     (name "fifengine")
2206     (version "0.4.2")
2207     (source (origin
2208               (method url-fetch)
2209               (uri (string-append "https://codeload.github.com/fifengine/"
2210                                   "fifengine/tar.gz/" version))
2211               (file-name (string-append name "-" version ".tar.gz"))
2212               (sha256
2213                (base32
2214                 "1y4grw25cq5iqlg05rnbyxw1njl11ypidnlsm3qy4sm3xxdvb0p8"))))
2215     (build-system cmake-build-system)
2216     (arguments
2217      `(#:tests? #f            ; TODO The test running fails to run some tests.
2218        #:modules ((srfi srfi-1)
2219                   (guix build cmake-build-system)
2220                   (guix build utils))
2221        #:configure-flags
2222        (list
2223         (string-append "-DOPENALSOFT_INCLUDE_DIR="
2224                        (assoc-ref %build-inputs "openal")
2225                        "/include/AL")
2226         (string-append "-DPYTHON_SITE_PACKAGES="
2227                        (assoc-ref %outputs "out")
2228                        "/lib/python3.7/site-packages"))
2229        #:phases
2230        (modify-phases %standard-phases
2231          (add-after 'unpack 'patch-run_tests.py
2232            (lambda _
2233              ;; Patch the test runner to exit with a status of 1 if any test
2234              ;; fails, to allow detecting failures.
2235              (substitute* "run_tests.py"
2236                (("ERROR\\. One or more tests failed!'\\)")
2237                 "ERROR. One or more tests failed!')
2238 \t\texit(1)"))
2239              #t))
2240          ;; Run tests after installation so that we can make use of the built
2241          ;; python modules.
2242          (delete 'check)
2243          (add-after 'install 'check
2244            (lambda* (#:key inputs outputs tests? #:allow-other-keys)
2245              (define python-version
2246                (let* ((version     (last (string-split
2247                                           (assoc-ref inputs "python")
2248                                           #\-)))
2249                       (components  (string-split version #\.))
2250                       (major+minor (take components 2)))
2251                  (string-join major+minor ".")))
2252
2253              (when tests?
2254                ;; Set PYTHONPATH so that python finds the installed modules.
2255                (setenv "PYTHONPATH"
2256                        (string-append (getenv "PYTHONPATH") ":"
2257                                       (assoc-ref outputs "out")
2258                                       "/lib/python"
2259                                       python-version
2260                                       "/site-packages"))
2261                ;; The tests require an X server.
2262                (system "Xvfb :1 &")
2263                (setenv "DISPLAY" ":1")
2264                (setenv "XDG_RUNTIME_DIR" "/tmp")
2265                ;; Run tests
2266                (chdir ,(string-append "../" name "-" version))
2267                (invoke "python3" "run_tests.py" "-a"))
2268              #t)))))
2269     (inputs
2270      `(("sdl2" ,sdl2)
2271        ("sdl2-image" ,sdl2-image)
2272        ("sdl2-ttf" ,sdl2-ttf)
2273        ("tinyxml" ,tinyxml)
2274        ("openal" ,openal)
2275        ("libogg" ,libogg)
2276        ("glew" ,glew)
2277        ("libvorbis" ,libvorbis)
2278        ("boost" ,boost)
2279        ("fifechan" ,fifechan)
2280        ("swig" ,swig)
2281        ("python" ,python)))
2282     (native-inputs
2283      `(("python" ,python)
2284        ("swig" ,swig)
2285        ("xvfb" ,xorg-server)))
2286     (propagated-inputs
2287      `(("python-future" ,python-future)))
2288     (home-page "https://www.fifengine.net/")
2289     (synopsis "FIFE is a multi-platform isometric game engine written in C++")
2290     (description
2291      "@acronym{FIFE, Flexible Isometric Free Engine} is a multi-platform
2292 isometric game engine.  Python bindings are included allowing users to create
2293 games using Python as well as C++.")
2294     (license license:lgpl2.1+)))
2295
2296 (define-public fizmo
2297   (package
2298     (name "fizmo")
2299     (version "0.8.5")
2300     (source (origin
2301               (method url-fetch)
2302               (uri (string-append "https://fizmo.spellbreaker.org/source/"
2303                                   "fizmo-" version ".tar.gz"))
2304               (sha256
2305                (base32
2306                 "1amyc4n41jf08kxmdgkk30bzzx54miaxa97w28f417qwn8lrl98w"))))
2307     (build-system gnu-build-system)
2308     (arguments
2309      '(#:configure-flags
2310        (let ((libjpeg (assoc-ref %build-inputs "libjpeg"))
2311              (ncurses (assoc-ref %build-inputs "ncurses")))
2312          (list (string-append "--with-jpeg-includedir=" libjpeg "/include")))))
2313     (native-inputs
2314      `(("pkg-config" ,pkg-config)))
2315     (inputs
2316      `(("freetype" ,freetype)
2317        ("libjpeg" ,libjpeg-turbo)
2318        ("libpng" ,libpng)
2319        ("libsndfile" ,libsndfile)
2320        ("libxml2" ,libxml2)
2321        ("ncurses" ,ncurses)
2322        ("sdl2" ,sdl2)))
2323     (home-page "https://fizmo.spellbreaker.org/")
2324     (synopsis "Z-machine interpreter")
2325     (description
2326      "Fizmo is a console-based Z-machine interpreter.  It is used to play
2327 interactive fiction, also known as text adventures, which were implemented
2328 either by Infocom or created using the Inform compiler.")
2329     (license license:bsd-3)))
2330
2331 (define-public gnugo
2332   (package
2333     (name "gnugo")
2334     (version "3.8")
2335     (source (origin
2336              (method url-fetch)
2337              (uri (string-append "mirror://gnu/gnugo/gnugo-" version
2338                                  ".tar.gz"))
2339              (sha256
2340               (base32
2341                "0wkahvqpzq6lzl5r49a4sd4p52frdmphnqsfdv7gdp24bykdfs6s"))))
2342     (build-system gnu-build-system)
2343     (inputs `(("readline" ,readline)))
2344     (synopsis "Play the game of Go")
2345     (description
2346      "GNU Go is a program that plays the game of Go, in which players
2347 place stones on a grid to form territory or capture other stones.  While
2348 it can be played directly from the terminal, rendered in ASCII characters,
2349 it is also possible to play GNU Go with 3rd party graphical interfaces or
2350 even in Emacs.  It supports the standard game storage format (SGF, Smart
2351 Game Format) and inter-process communication format (GMP, Go Modem
2352 Protocol).")
2353     (home-page "https://www.gnu.org/software/gnugo/")
2354     (license license:gpl3+)))
2355
2356 (define-public extremetuxracer
2357   (package
2358     (name "extremetuxracer")
2359     (version "0.7.5")
2360     (source (origin
2361               (method url-fetch)
2362               (uri (string-append
2363                     "mirror://sourceforge/extremetuxracer/releases/"
2364                     version "/etr-" version ".tar.xz"))
2365               (sha256
2366                (base32
2367                 "1ly63316c07i0gyqqmyzsyvygsvygn0fpk3bnbg25fi6li99rlsg"))))
2368     (build-system gnu-build-system)
2369     (native-inputs
2370      `(("pkg-config" ,pkg-config)))
2371     (inputs
2372      `(("glu" ,glu)
2373        ("sfml" ,sfml)))
2374     (synopsis "High-speed arctic racing game based on Tux Racer")
2375     ;; Snarfed straight from Debian.
2376     (description "Extreme Tux Racer, or etracer as it is called for short, is
2377 a simple OpenGL racing game featuring Tux, the Linux mascot.  The goal of the
2378 game is to slide down a snow- and ice-covered mountain as quickly as possible,
2379 avoiding the trees and rocks that will slow you down.
2380
2381 Collect herrings and other goodies while sliding down the hill, but avoid fish
2382 bones.
2383
2384 This game is based on the GPL version of the famous game TuxRacer.")
2385     (home-page "https://sourceforge.net/projects/extremetuxracer/")
2386     (license license:gpl2+)))
2387
2388 (define-public supertuxkart
2389   (package
2390     (name "supertuxkart")
2391     (version "1.1")
2392     (source
2393      (origin
2394        (method url-fetch)
2395        (uri (string-append "mirror://sourceforge/supertuxkart/SuperTuxKart/"
2396                            version "/supertuxkart-" version "-src.tar.xz"))
2397        (sha256
2398         (base32
2399          "1s0ai07g3sswck9mr0142989mrgzzq1njc1qxk5als5b245jpc79"))
2400        (modules '((guix build utils)))
2401        (snippet
2402         ;; Delete bundled library sources
2403         '(begin
2404            ;; Supertuxkart uses modified versions of the Irrlicht engine
2405            ;; and the bullet library.  The developers gave an explanation
2406            ;; here: http://forum.freegamedev.net/viewtopic.php?f=17&t=3906
2407            ;; FIXME: try to unbundle angelscript and libraqm
2408            (for-each delete-file-recursively
2409                      '("lib/zlib"
2410                        "lib/libpng"
2411                        "lib/jpeglib"
2412                        "lib/glew"
2413                        "lib/wiiuse"
2414                        "lib/enet"))
2415            #t))))
2416     (build-system cmake-build-system)
2417     (arguments
2418      `(#:tests? #f ; no check target
2419        #:configure-flags
2420        (list "-DUSE_WIIUSE=0"
2421              ;; Do not use the bundled zlib, glew and enet.
2422              "-DNO_IRR_COMPILE_WITH_ZLIB_=TRUE"
2423              "-DUSE_SYSTEM_GLEW=TRUE"
2424              "-DUSE_SYSTEM_ENET=TRUE"
2425              ;; In order to use the system ENet library, IPv6 support (added in
2426              ;; SuperTuxKart version 1.1) must be disabled.
2427              "-DUSE_IPV6=FALSE"
2428              ;; FIXME: needs libopenglrecorder
2429              "-DBUILD_RECORDER=0"
2430              ;; Irrlicht returns an integer instead of a boolean
2431              "-DCMAKE_C_FLAGS=-fpermissive")))
2432     (inputs
2433      `(("glew" ,glew)
2434        ("zlib" ,zlib)
2435        ("openal" ,openal)
2436        ("libvorbis" ,libvorbis)
2437        ("freetype" ,freetype)
2438        ("fribidi" ,fribidi)
2439        ("harfbuzz" ,harfbuzz)
2440        ("mesa" ,mesa)
2441        ("libx11" ,libx11)
2442        ("libxrandr" ,libxrandr)
2443        ("curl" ,curl)
2444        ;; The following input is needed to build the bundled and modified
2445        ;; version of irrlicht.
2446        ("libjpeg" ,libjpeg-turbo)
2447        ("openssl" ,openssl)
2448        ("enet" ,enet)))
2449     (native-inputs
2450      `(("pkg-config" ,pkg-config)))
2451     (home-page "https://supertuxkart.net/Main_Page")
2452     (synopsis "3D kart racing game")
2453     (description "SuperTuxKart is a 3D kart racing game, with a focus on
2454 having fun over realism.  You can play with up to 4 friends on one PC, racing
2455 against each other or just trying to beat the computer; single-player mode is
2456 also available.")
2457     (license license:gpl3+)))
2458
2459 (define-public unknown-horizons
2460   (package
2461     (name "unknown-horizons")
2462     (version "2019.1")
2463     (source (origin
2464               (method url-fetch)
2465               (uri (string-append "https://codeload.github.com/unknown-horizons/"
2466                                   "unknown-horizons/tar.gz/" version))
2467               (file-name (string-append name "-" version ".tar.gz"))
2468               (sha256
2469                (base32
2470                 "1n747p7h0qp48szgp262swg0xh8kxy1bw8ag1qczs4i26hyzs5x4"))))
2471     (build-system python-build-system)
2472     (arguments
2473      '(#:phases
2474        (modify-phases %standard-phases
2475          (add-before 'build 'set-HOME
2476            (lambda _
2477              (setenv "HOME" "/tmp")))
2478          (add-after 'build 'build-extra
2479            (lambda _
2480              (invoke "python3" "./setup.py" "build_i18n")
2481              (invoke "python3" "horizons/engine/generate_atlases.py" "2048")
2482              #t))
2483          (add-after 'install 'patch
2484            (lambda* (#:key outputs #:allow-other-keys)
2485              (let ((out (assoc-ref outputs "out")))
2486                (substitute* (string-append out "/bin/unknown-horizons")
2487                  (("os\\.chdir\\(get\\_content\\_dir\\_parent_path\\(\\)\\)")
2488                   (string-append "os.chdir(\""
2489                                  (assoc-ref outputs "out")
2490                                  "/share/unknown-horizons\")"))))
2491              #t))
2492          ;; TODO: Run GUI tests as well
2493          (replace 'check
2494            (lambda _
2495              (substitute* "horizons/constants.py"
2496                (("IS_DEV_VERSION = False")
2497                 "IS_DEV_VERSION = True"))
2498              (invoke "pytest" "tests")
2499              (substitute* "horizons/constants.py"
2500                (("IS_DEV_VERSION = True")
2501                 "IS_DEV_VERSION = False"))
2502              #t)))))
2503     (inputs
2504      `(("fifengine" ,fifengine)
2505        ("python:tk" ,python "tk")
2506        ("python-pillow" ,python-pillow)
2507        ("python-pyyaml" ,python-pyyaml)))
2508     (native-inputs
2509      `(("intltool" ,intltool)
2510
2511        ;; Required for tests
2512        ("python-greenlet" ,python-greenlet)
2513        ("python-polib" ,python-polib)
2514        ("python-pytest" ,python-pytest)
2515        ("python-pytest-mock" ,python-pytest-mock)))
2516     (home-page "http://unknown-horizons.org/")
2517     (synopsis "Isometric realtime strategy, economy and city building simulation")
2518     (description
2519      "Unknown Horizons is a 2D realtime strategy simulation with an emphasis
2520 on economy and city building.  Expand your small settlement to a strong and
2521 wealthy colony, collect taxes and supply your inhabitants with valuable
2522 goods.  Increase your power with a well balanced economy and with strategic
2523 trade and diplomacy.")
2524     (license (list
2525               license:gpl2+        ; Covers code
2526               license:expat        ; tests/dummy.py, ext/polib.py
2527               license:cc-by-sa3.0  ; Covers some media content
2528               license:cc-by3.0     ; Covers some media content
2529               license:bsd-3))))    ; horizons/ext/speaklater.py
2530
2531 (define-public gnujump
2532   (package
2533     (name "gnujump")
2534     (version "1.0.8")
2535     (source (origin
2536               (method url-fetch)
2537               (uri (string-append "mirror://gnu/gnujump/gnujump-"
2538                                   version ".tar.gz"))
2539               (sha256
2540                (base32
2541                 "05syy9mzbyqcfnm0hrswlmhwlwx54f0l6zhcaq8c1c0f8dgzxhqk"))))
2542     (build-system gnu-build-system)
2543     (arguments
2544      '(#:phases
2545        (modify-phases %standard-phases
2546          (add-before
2547           'configure 'link-libm
2548           (lambda _ (setenv "LIBS" "-lm")))
2549          (add-after 'install 'create-desktop-entry
2550            (lambda* (#:key outputs #:allow-other-keys)
2551              (let* ((out (assoc-ref outputs "out"))
2552                     (apps (string-append out "/share/applications")))
2553                (mkdir-p apps)
2554                (with-output-to-file
2555                  (string-append apps "/gnujump.desktop")
2556                  (lambda _
2557                    (format #t
2558                            "[Desktop Entry]~@
2559                            Name=GNUjump~@
2560                            Comment=Jump up the tower to survive~@
2561                            Exec=~a/bin/gnujump~@
2562                            Terminal=false~@
2563                            Type=Application~@
2564                            Categories=Game;ArcadeGame~%"
2565                            out)))))))))
2566     (inputs
2567      `(("glu" ,glu)
2568        ("mesa" ,mesa)
2569        ("sdl" ,sdl)
2570        ("sdl-image" ,sdl-image)
2571        ("sdl-mixer" ,sdl-mixer)))
2572     (home-page "http://gnujump.es.gnu.org/")
2573     (synopsis
2574      "Game of jumping to the next floor, trying not to fall")
2575     (description
2576      "GNUjump is a simple, yet addictive game in which you must jump from
2577 platform to platform to avoid falling, while the platforms drop at faster rates
2578 the higher you go.  The game features multiplayer, unlimited FPS, smooth floor
2579 falling, themeable graphics and sounds, and replays.")
2580     (license license:gpl3+)))
2581
2582 (define-public wesnoth
2583   (package
2584     (name "wesnoth")
2585     (version "1.14.9")
2586     (source (origin
2587               (method url-fetch)
2588               (uri (string-append "mirror://sourceforge/wesnoth/wesnoth-"
2589                                   (version-major+minor version)
2590                                   "/wesnoth-" version "/"
2591                                   "wesnoth-" version ".tar.bz2"))
2592               (sha256
2593                (base32
2594                 "1mhdrlflxxyknf54lwdbvs7fazlc1scf7z6vxxa3j746fks533ga"))))
2595     (build-system cmake-build-system)
2596     (arguments
2597      `(#:tests? #f                      ;no check target
2598        #:phases (modify-phases %standard-phases
2599                   (add-before 'configure 'treat-boost-as-system-header
2600                     (lambda* (#:key inputs #:allow-other-keys)
2601                       (let ((boost (assoc-ref inputs "boost")))
2602                         ;; Ensure Boost is treated as "system headers" to
2603                         ;; pacify compiler warnings induced by Boost headers.
2604                         (for-each (lambda (variable)
2605                                     (setenv variable
2606                                             (string-append boost "/include:"
2607                                                            (or (getenv variable)
2608                                                                ""))))
2609                                   '("C_INCLUDE_PATH" "CPLUS_INCLUDE_PATH"))
2610                         #t))))))
2611     (native-inputs
2612      `(("gettext" ,gettext-minimal)
2613        ("pkg-config" ,pkg-config)))
2614     (inputs
2615      `(("boost" ,boost)
2616        ("dbus" ,dbus)
2617        ("fribidi" ,fribidi)
2618        ("libvorbis" ,libvorbis)
2619        ("openssl" ,openssl)
2620        ("pango" ,pango)
2621        ("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
2622     (home-page "https://www.wesnoth.org/")
2623     (synopsis "Turn-based strategy game")
2624     (description
2625      "The Battle for Wesnoth is a fantasy, turn based tactical strategy game,
2626 with several single player campaigns, and multiplayer games (both networked and
2627 local).
2628
2629 Battle for control on a range of maps, using variety of units which have
2630 advantages and disadvantages against different types of attacks.  Units gain
2631 experience and advance levels, and are carried over from one scenario to the
2632 next campaign.")
2633     (license license:gpl2+)))
2634
2635 (define-public the-battle-for-wesnoth
2636   (deprecated-package "the-battle-for-wesnoth" wesnoth))
2637
2638 (define-public wesnoth-server
2639   (package
2640     (inherit wesnoth)
2641     (name "wesnoth-server")
2642     (inputs
2643      `(("boost" ,boost)
2644        ("icu4c" ,icu4c)
2645        ("openssl" ,openssl)
2646        ("sdl2" ,sdl2)))
2647     (arguments
2648      `(#:configure-flags '("-DENABLE_GAME=OFF")
2649        ,@(package-arguments wesnoth)))
2650     (synopsis "Dedicated @emph{Battle for Wesnoth} server")
2651     (description "This package contains a dedicated server for @emph{The
2652 Battle for Wesnoth}.")))
2653
2654 (define-public the-battle-for-wesnoth-server
2655   (deprecated-package "the-battle-for-wesnoth-server" wesnoth-server))
2656
2657 (define-public gamine
2658   (package
2659     (name "gamine")
2660     (version "1.6")
2661     (source (origin
2662               (method url-fetch)
2663               (uri (string-append "mirror://sourceforge/gamine-game/"
2664                                   "gamine-" version ".tar.gz"))
2665               (sha256
2666                (base32
2667                 "1sc6f4445ciigd6yw0ri92746k4hk6ps0bvj9fm1gbp3c3fslk5n"))))
2668     (build-system gnu-build-system)
2669     (native-inputs
2670      `(("pkg-config" ,pkg-config)
2671        ("intltool" ,intltool)))
2672     (inputs
2673      `(("gstreamer" ,gstreamer)
2674        ("gst-plugins-base" ,gst-plugins-base) ; playbin plugin
2675        ("gst-plugins-good" ,gst-plugins-good) ; for wav playback
2676        ("gtk+" ,gtk+)))
2677     (arguments
2678      `(#:tests? #f
2679        #:make-flags
2680        (let ((out (assoc-ref %outputs "out")))
2681          (list (string-append "PREFIX=" out)
2682                (string-append "SYSCONFDIR=" out "/etc")))
2683        #:phases
2684        (modify-phases %standard-phases
2685          (delete 'configure)
2686          (add-after
2687           'install 'wrap-gamine
2688           (lambda* (#:key outputs #:allow-other-keys)
2689             (let ((out             (assoc-ref outputs "out"))
2690                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
2691               (wrap-program (string-append out "/bin/gamine")
2692                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
2693             #t)))))
2694     (home-page "http://gamine-game.sourceforge.net/")
2695     (synopsis "Mouse and keyboard discovery for children")
2696     (description
2697      "Gamine is a game designed for young children who are learning to use the
2698 mouse and keyboard.  The child uses the mouse to draw colored dots and lines
2699 on the screen and keyboard to display letters.")
2700     ;; Most files under gpl2+ or gpl3+, but eat.wav under gpl3
2701     (license license:gpl3)))
2702
2703 (define-public manaplus
2704   (package
2705     (name "manaplus")
2706     (version "1.9.3.23")
2707     (source (origin
2708               (method url-fetch)
2709               (uri (string-append
2710                     "https://repo.manaplus.org/manaplus/download/"
2711                     version "/manaplus-" version ".tar.xz"))
2712               (sha256
2713                (base32
2714                 "1ky182p4svwdqm6cf7jbns85hidkhkhq4s17cs2p381f0klapfjz"))))
2715     (build-system gnu-build-system)
2716     (arguments
2717      '(#:configure-flags
2718        (list (string-append "CPPFLAGS=-I"
2719                             (assoc-ref %build-inputs "sdl-union")
2720                             "/include/SDL"))))
2721     (native-inputs
2722      `(("pkg-config" ,pkg-config)))
2723     (inputs
2724      `(("glu" ,glu)
2725        ("curl" ,curl)
2726        ("libxml2" ,libxml2)
2727        ("mesa" ,mesa)
2728        ("sdl-union" ,(sdl-union))))
2729     (home-page "https://manaplus.org")
2730     (synopsis "Client for 'The Mana World' and similar games")
2731     (description
2732      "ManaPlus is a 2D MMORPG client for game servers.  It is the only
2733 fully supported client for @uref{http://www.themanaworld.org, The mana
2734 world}, @uref{http://evolonline.org, Evol Online} and
2735 @uref{http://landoffire.org, Land of fire}.")
2736     ;; "src/debug/*" and "src/sdl2gfx/*" are under Zlib.
2737     ;; "data/themes/{golden-delicious,jewelry}/*" are under CC-BY-SA.
2738     ;; The rest is under GPL2+.
2739     (license (list license:gpl2+ license:zlib license:cc-by-sa4.0))))
2740
2741 (define openttd-engine
2742   (package
2743     (name "openttd-engine")
2744     (version "1.9.3")
2745     (source
2746      (origin (method url-fetch)
2747              (uri (string-append "https://proxy.binaries.openttd.org/openttd-releases/"
2748                                  version "/openttd-" version "-source.tar.xz"))
2749              (sha256
2750               (base32
2751                "0ijq72kgx997ggw40i5f4a3nf7y2g72z37l47i18yjvgbdzy320r"))
2752              (modules '((guix build utils)))
2753              (snippet
2754               ;; The DOS port contains proprietary software.
2755               '(begin
2756                  (delete-file-recursively "os/dos")
2757                  #t))))
2758     (build-system gnu-build-system)
2759     (arguments
2760      `(#:tests? #f              ; no "check" target
2761        #:phases
2762        (modify-phases %standard-phases
2763          ;; The build process fails if the configure script is passed the
2764          ;; option "--enable-fast-install".
2765          (replace 'configure
2766            (lambda* (#:key inputs outputs (configure-flags '())
2767                      #:allow-other-keys)
2768              (let ((out (assoc-ref outputs "out"))
2769                    (lzo (assoc-ref inputs "lzo")))
2770                (apply invoke "./configure"
2771                       (string-append "--prefix=" out)
2772                       ;; Provide the "lzo" path.
2773                       (string-append "--with-liblzo2="
2774                                      lzo "/lib/liblzo2.a")
2775                       ;; Put the binary in 'bin' instead of 'games'.
2776                       "--binary-dir=bin"
2777                       configure-flags)))))))
2778     (native-inputs `(("pkg-config" ,pkg-config)))
2779     (inputs
2780      `(("allegro" ,allegro)
2781        ("fontconfig" ,fontconfig)
2782        ("freetype" ,freetype)
2783        ("icu4c" ,icu4c)
2784        ("libpng" ,libpng)
2785        ("lzo" ,lzo)
2786        ("sdl" ,sdl)
2787        ("xz" ,xz)
2788        ("zlib" ,zlib)))
2789     (synopsis "Transportation economics simulator game")
2790     (description "OpenTTD is a game in which you transport goods and
2791 passengers by land, water and air.  It is a re-implementation of Transport
2792 Tycoon Deluxe with many enhancements including multiplayer mode,
2793 internationalization support, conditional orders and the ability to clone,
2794 autoreplace and autoupdate vehicles.  This package only includes the game
2795 engine.  When you start it you will be prompted to download a graphics set.")
2796     (home-page "https://www.openttd.org/")
2797     ;; This package is GPLv2, except for a few files located in
2798     ;; "src/3rdparty/" which are under the 3-clause BSD, LGPLv2.1+ and Zlib
2799     ;; licenses.  In addition, this software contains an in-game downloader
2800     ;; from which the user may find non-functional data licensed under
2801     ;; different terms.
2802     (license (list license:bsd-3 license:gpl2 license:lgpl2.1+ license:zlib))))
2803
2804 (define openttd-opengfx
2805   (package
2806     (name "openttd-opengfx")
2807     (version "0.5.5")
2808     (source
2809      (origin
2810        (method url-fetch)
2811        (uri (string-append "http://binaries.openttd.org/extra/opengfx/"
2812                            version "/opengfx-" version "-source.tar.xz"))
2813        (sha256
2814         (base32
2815          "009fa1bdin1bk0ynzhzc30hzkmmwzmwkk6j591ax3f6w75l28n49"))))
2816     (build-system gnu-build-system)
2817     (arguments
2818      '(#:make-flags (list "CC=gcc"
2819                           (string-append "INSTALL_DIR="
2820                                          (assoc-ref %outputs "out")
2821                                          "/share/games/openttd/baseset/opengfx"))
2822        #:phases
2823        (modify-phases %standard-phases
2824          (replace 'configure
2825            (lambda _
2826              ;; Make sure HOME is writable for GIMP.
2827              (setenv "HOME" (getcwd))
2828
2829              ;; Redirect stdout, not stderr, to /dev/null. This prevents
2830              ;; dos2unix from receiving its version information as a flag.
2831              (substitute* "Makefile"
2832                (("\\$\\(UNIX2DOS\\) -q --version 2>/dev/null")
2833                 "$(UNIX2DOS) -q --version 1>/dev/null")))))
2834        ;; The check phase for this package only checks the md5sums of the built
2835        ;; GRF files against the md5sums of the release versions. Because we use
2836        ;; different software versions than upstream does, some of the md5sums
2837        ;; are different. However, the package is still reproducible, it's safe
2838        ;; to disable this test.
2839        #:tests? #f
2840        #:parallel-build? #f))
2841     (native-inputs `(("dos2unix" ,dos2unix)
2842                      ("gimp" ,gimp)
2843                      ("grfcodec" ,grfcodec)
2844                      ("nml" ,nml)
2845                      ("python" ,python-2)))
2846     (home-page "http://dev.openttdcoop.org/projects/opengfx")
2847     (synopsis "Base graphics set for OpenTTD")
2848     (description
2849      "The OpenGFX projects is an implementation of the OpenTTD base grahics
2850 set that aims to ensure the best possible out-of-the-box experience.
2851
2852 OpenGFX provides you with...
2853 @enumerate
2854 @item All graphics you need to enjoy OpenTTD.
2855 @item Uniquely drawn rail vehicles for every climate.
2856 @item Completely snow-aware rivers.
2857 @item Different river and sea water.
2858 @item Snow-aware buoys.
2859 @end enumerate")
2860     (license license:gpl2)))
2861
2862 (define openttd-opensfx
2863   (package
2864     (name "openttd-opensfx")
2865     (version "0.2.3")
2866     (source
2867      (origin
2868        (method url-fetch)
2869        (uri (string-append
2870              "https://binaries.openttd.org/extra/opensfx/"
2871              version "/opensfx-" version "-source.tar.gz"))
2872        (sha256
2873         (base32
2874          "03jxgp02ks31hmsdh4xh0xcpkb70ds8jakc9pfc1y9vdrdavh4p5"))))
2875     (build-system gnu-build-system)
2876     (native-inputs
2877      `(("catcodec" ,catcodec)
2878        ("python" ,python-2)))
2879     (arguments
2880      `(#:make-flags
2881        (list (string-append "INSTALL_DIR=" %output
2882                             "/share/games/openttd/baseset/opensfx"))
2883        #:phases
2884        (modify-phases %standard-phases
2885          (add-after 'unpack 'make-reproducible
2886            (lambda _
2887              ;; Remove the time dependency of the installed tarball by setting
2888              ;; the modification times if its members to 0.
2889              (substitute* "scripts/Makefile.def"
2890                (("-cf") " --mtime=@0 -cf"))
2891              #t))
2892          (delete 'configure))))
2893     (home-page "http://dev.openttdcoop.org/projects/opensfx")
2894     (synopsis "Base sounds for OpenTTD")
2895     (description "OpenSFX is a set of free base sounds for OpenTTD which make
2896 it possible to play OpenTTD without requiring the proprietary sound files from
2897 the original Transport Tycoon Deluxe.")
2898     (license license:cc-sampling-plus-1.0)))
2899
2900 (define openttd-openmsx
2901   (package
2902     (name "openttd-openmsx")
2903     (version "0.3.1")
2904     (source
2905      (origin
2906        (method url-fetch)
2907        (uri (string-append
2908              "https://binaries.openttd.org/extra/openmsx/"
2909              version "/openmsx-" version "-source.tar.gz"))
2910        (sha256
2911         (base32
2912          "0nskq97a6fsv1v6d62zf3yb8whzhqnlh3lap3va3nzvj7csjgf7c"))))
2913     (build-system gnu-build-system)
2914     (native-inputs
2915      `(("python" ,python-2)))
2916     (arguments
2917      `(#:make-flags
2918        (list (string-append "INSTALL_DIR=" %output
2919                             "/share/games/openttd/baseset"))
2920        #:phases
2921        (modify-phases %standard-phases
2922          (delete 'configure)
2923          (add-after 'install 'post-install
2924            ;; Rename openmsx-version to openmsx
2925            (lambda* (#:key outputs #:allow-other-keys)
2926              (let ((install-directory (string-append (assoc-ref outputs "out")
2927                                                      "/share/games/openttd/baseset")))
2928                (rename-file (string-append install-directory "/openmsx-" ,version)
2929                             (string-append install-directory "/openmsx"))
2930                #t))))))
2931     (home-page "http://dev.openttdcoop.org/projects/openmsx")
2932     (synopsis "Music set for OpenTTD")
2933     (description "OpenMSX is a music set for OpenTTD which makes it possible
2934 to play OpenTTD without requiring the proprietary music from the original
2935 Transport Tycoon Deluxe.")
2936     (license license:gpl2)))
2937
2938 (define-public openttd
2939   (package
2940     (inherit openttd-engine)
2941     (name "openttd")
2942     (arguments
2943      `(#:configure-flags
2944        (list (string-append "--with-midi=" (assoc-ref %build-inputs "timidity++")
2945                             "/bin/timidity"))
2946        ,@(substitute-keyword-arguments (package-arguments openttd-engine)
2947            ((#:phases phases)
2948             `(modify-phases ,phases
2949                (add-after 'install 'install-data
2950                  (lambda* (#:key inputs outputs #:allow-other-keys)
2951                    (for-each
2952                     (lambda (input)
2953                       (copy-recursively (assoc-ref inputs input)
2954                                         (assoc-ref outputs "out")))
2955                     (list "opengfx" "openmsx" "opensfx"))
2956                    #t)))))))
2957     (inputs
2958      `(("timidity++" ,timidity++)
2959        ,@(package-inputs openttd-engine)))
2960     (native-inputs
2961      `(("opengfx" ,openttd-opengfx)
2962        ("openmsx" ,openttd-openmsx)
2963        ("opensfx" ,openttd-opensfx)
2964        ,@(package-native-inputs openttd-engine)))))
2965
2966 (define openrct2-title-sequences
2967   (package
2968    (name "openrct2-title-sequences")
2969    (version "0.1.2")
2970    (source
2971     (origin
2972      (method url-fetch)
2973      (uri (string-append "https://github.com/OpenRCT2/title-sequences/releases/download/v"
2974                          version "/title-sequence-v" version ".zip"))
2975      (file-name (string-append name "-" version ".zip"))
2976      (sha256
2977       (base32
2978        "0qbyxrsw8hlgaq0r5d7lx7an3idy4qbfv7yiw9byhldk763n9cfw"))))
2979    (build-system trivial-build-system)
2980    (native-inputs
2981     `(("bash" ,bash)
2982       ("coreutils" ,coreutils)
2983       ("unzip" ,unzip)))
2984    (arguments
2985     `(#:modules ((guix build utils))
2986       #:builder
2987       (begin
2988         (use-modules (guix build utils))
2989         (let* ((out (assoc-ref %outputs "out"))
2990                (openrct2-title-sequences (string-append out
2991                                          "/share/openrct2/title-sequences"))
2992                (source (assoc-ref %build-inputs "source"))
2993                (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
2994           (copy-file source (string-append ,name "-" ,version ".zip"))
2995           (invoke unzip (string-append ,name "-" ,version ".zip"))
2996           (delete-file (string-append ,name "-" ,version ".zip"))
2997           (mkdir-p openrct2-title-sequences)
2998           (copy-recursively "."
2999                             openrct2-title-sequences)
3000           #t))))
3001    (home-page "https://github.com/OpenRCT2/OpenRCT2")
3002    (synopsis "Title sequences for OpenRCT2")
3003    (description
3004     "openrct2-title-sequences is a set of title sequences for OpenRCT2.")
3005    (license license:gpl3+)))
3006
3007 (define openrct2-objects
3008   (package
3009    (name "openrct2-objects")
3010    (version "1.0.9")
3011    (source
3012     (origin
3013      (method url-fetch)
3014      (uri (string-append "https://github.com/OpenRCT2/objects/releases/download/v"
3015                          version "/objects.zip"))
3016      (file-name (string-append name "-" version ".zip"))
3017      (sha256
3018       (base32 "02apb8h553m7d6jvysgb1zahvxc1yzyygfca2iclb21b3fhpsas4"))))
3019    (build-system trivial-build-system)
3020    (native-inputs
3021     `(("bash" ,bash)
3022       ("coreutils" ,coreutils)
3023       ("unzip" ,unzip)))
3024    (arguments
3025     `(#:modules ((guix build utils))
3026       #:builder
3027       (begin
3028         (use-modules (guix build utils))
3029         (let* ((out (assoc-ref %outputs "out"))
3030                (openrct2-objects (string-append out
3031                                          "/share/openrct2/objects"))
3032                (source (assoc-ref %build-inputs "source"))
3033                (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
3034           (copy-file source (string-append ,name "-" ,version ".zip"))
3035           (invoke unzip (string-append ,name "-" ,version ".zip"))
3036           (delete-file (string-append ,name "-" ,version ".zip"))
3037           (mkdir-p openrct2-objects)
3038           (copy-recursively "."
3039                             openrct2-objects)
3040           #t))))
3041    (home-page "https://github.com/OpenRCT2/OpenRCT2")
3042    (synopsis "Objects for OpenRCT2")
3043    (description
3044     "openrct2-objects is a set of objects for OpenRCT2.")
3045    (license license:gpl3+)))
3046
3047 (define-public openrct2
3048   (package
3049     (name "openrct2")
3050     (version "0.2.4")
3051     (source
3052      (origin
3053        (method git-fetch)
3054        (uri (git-reference
3055              (url "https://github.com/OpenRCT2/OpenRCT2.git")
3056              (commit (string-append "v" version))))
3057        (file-name (git-file-name name version))
3058        (sha256
3059         (base32 "1rlw3w20llg36sj3bk50g661qw766ng8ma3p42sdkj8br9dw800h"))))
3060     (build-system cmake-build-system)
3061     (arguments
3062      `(#:configure-flags (list "-DDOWNLOAD_OBJECTS=OFF"
3063                                "-DDOWNLOAD_TITLE_SEQUENCES=OFF")
3064        #:tests? #f                      ; tests require network access
3065        #:phases
3066        (modify-phases %standard-phases
3067          (add-after 'unpack 'fix-usr-share-paths&add-data
3068            (lambda* (#:key inputs outputs #:allow-other-keys)
3069              (let ((titles (assoc-ref inputs "openrct2-title-sequences"))
3070                    (objects (assoc-ref inputs "openrct2-objects")))
3071                ;; Fix some references to /usr/share.
3072                (substitute* "src/openrct2/platform/Platform.Linux.cpp"
3073                  (("/usr/share")
3074                   (string-append (assoc-ref %outputs "out") "/share")))
3075                (copy-recursively
3076                 (string-append titles "/share/openrct2/title-sequences")
3077                 "data/title")
3078                (copy-recursively
3079                 (string-append objects "/share/openrct2/objects")
3080                 "data/object"))))
3081          (add-before 'configure 'get-rid-of-errors
3082            (lambda _
3083              ;; Don't treat warnings as errors.
3084              (substitute* "CMakeLists.txt"
3085                (("-Werror") ""))
3086              #t)))))
3087     (inputs `(("curl" ,curl)
3088               ("fontconfig" ,fontconfig)
3089               ("freetype" ,freetype)
3090               ("icu4c" ,icu4c)
3091               ("jansson" ,jansson)
3092               ("libpng" ,libpng)
3093               ("libzip" ,libzip)
3094               ("mesa" ,mesa)
3095               ("openrct2-objects" ,openrct2-objects)
3096               ("openrct2-title-sequences" ,openrct2-title-sequences)
3097               ("openssl" ,openssl)
3098               ("sdl2" ,sdl2)
3099               ("speexdsp" ,speexdsp)
3100               ("zlib" ,zlib)))
3101     (native-inputs
3102      `(("pkg-config" ,pkg-config)))
3103     (home-page "https://github.com/OpenRCT2/OpenRCT2")
3104     (synopsis "Free software re-implementation of RollerCoaster Tycoon 2")
3105     (description "OpenRCT2 is a free software re-implementation of
3106 RollerCoaster Tycoon 2 (RCT2).  The gameplay revolves around building and
3107 maintaining an amusement park containing attractions, shops and facilities.
3108
3109 Note that this package does @emph{not} provide the game assets (sounds,
3110 images, etc.)")
3111     ;; See <https://github.com/OpenRCT2/OpenRCT2/wiki/Required-RCT2-files>
3112     ;; regarding assets.
3113     (license license:gpl3+)))
3114
3115 (define-public pinball
3116   (package
3117     (name "pinball")
3118     (version "0.3.1")
3119     (source
3120      (origin (method url-fetch)
3121              (uri (string-append "mirror://sourceforge/pinball/pinball/"
3122                                  "pinball-" version "/"
3123                                  "pinball-" version ".tar.gz"))
3124              (sha256
3125               (base32
3126                "1f2whlrfidwfh8lvr8cspcyirc6840r5d1ajm7x99qmngygrhixs"))
3127              (patches (search-patches "pinball-const-fix.patch"
3128                                       "pinball-cstddef.patch"
3129                                       "pinball-missing-separators.patch"
3130                                       "pinball-src-deps.patch"
3131                                       "pinball-system-ltdl.patch"))))
3132     (build-system gnu-build-system)
3133     (inputs
3134      `(("glu" ,glu)
3135        ("mesa" ,mesa)
3136        ("sdl" ,sdl)
3137        ("sdl-image" ,sdl-image)
3138        ("sdl-mixer" ,sdl-mixer)))
3139     (arguments
3140      '(#:configure-flags
3141        (list (string-append "CPPFLAGS=-I"
3142                             (assoc-ref %build-inputs "sdl-image")
3143                             "/include/SDL -I"
3144                             (assoc-ref %build-inputs "sdl-mixer")
3145                             "/include/SDL"))))
3146     (home-page "http://pinball.sourceforge.net")
3147     (synopsis "Pinball simulator")
3148     (description "The Emilia Pinball Project is a pinball simulator.  There
3149 are only two levels to play with, but they are very addictive.")
3150     (license license:gpl2)))
3151
3152 (define-public pioneers
3153   (package
3154     (name "pioneers")
3155     (version "15.5")
3156     (source (origin
3157               (method url-fetch)
3158               (uri (string-append "http://downloads.sourceforge.net/pio/"
3159                                   "pioneers-" version ".tar.gz"))
3160               (sha256
3161                (base32
3162                 "037gdiiw690jw3wd1s9lxmkqx0caxyk0b4drpm7i9p28gig43q9y"))))
3163     (build-system gnu-build-system)
3164     (inputs `(("avahi" ,avahi)
3165               ("gtk+" ,gtk+)
3166               ("librsvg" ,librsvg)))
3167     (native-inputs `(("intltool" ,intltool)
3168                      ("itstool" ,itstool)
3169                      ("libxml2" ,libxml2)
3170                      ("pkg-config" ,pkg-config)))
3171     (synopsis "Board game inspired by The Settlers of Catan")
3172     (description "Pioneers is an emulation of the board game The Settlers of
3173 Catan.  It can be played on a local network, on the internet, and with AI
3174 players.")
3175     (home-page "http://pio.sourceforge.net/")
3176     (license license:gpl2+)))
3177
3178 (define-public einstein
3179   (package
3180     (name "einstein")
3181     (version "2.0")
3182     (source (origin
3183               (method url-fetch)
3184               (uri (string-append "mirror://debian/pool/main/e/"
3185                                   "einstein/einstein_2.0.dfsg.2.orig.tar.gz"))
3186               (sha256
3187                (base32
3188                 "1hxrlv6n8py48j487i6wbb4n4vd55w0na69r7ccmmr9vmrsw5mlk"))
3189               (patches (search-patches "einstein-build.patch"))))
3190     (build-system gnu-build-system)
3191     (inputs
3192      `(("freetype" ,freetype)
3193        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf)))
3194        ("zlib" ,zlib)))
3195     (native-inputs
3196      `(("font-dejavu" ,font-dejavu)))
3197     (arguments
3198      `(#:tests? #f ; no check target
3199        #:phases
3200         (modify-phases %standard-phases
3201           (replace 'configure
3202           (lambda* (#:key outputs inputs #:allow-other-keys)
3203             (let ((out (assoc-ref outputs "out"))
3204                   (dejavu (string-append (assoc-ref inputs "font-dejavu")
3205                                          "/share/fonts/truetype/DejaVuSans.ttf")))
3206               (substitute* "Makefile"
3207                 (("PREFIX=/usr/local") (string-append "PREFIX=" out)))
3208               ;; The patch above registers a free font for use by the binary,
3209               ;; but the font is copied during the compile phase into a
3210               ;; resources file, so we need to make the ttf file available.
3211               (symlink dejavu "res/DejaVuSans.ttf")
3212               #t))))))
3213     (synopsis "Logic puzzle game")
3214     (description "The goal of this logic game is to open all cards in a 6x6
3215 grid, using a number of hints as to their relative position.  The game idea
3216 is attributed to Albert Einstein.")
3217     ;; The original home page has disappeared.
3218     (home-page (string-append "http://web.archive.org/web/20120521062745/"
3219                               "http://games.flowix.com/en/index.html"))
3220     ;; License according to
3221     ;; http://web.archive.org/web/20150222180355/http://www.babichev.info/en/projects/index.html
3222     ;; The source code is a DFSG-sanitized tarball and does not contain any
3223     ;; license information.
3224     (license license:gpl3+)))
3225
3226 (define-public powwow
3227   (package
3228     (name "powwow")
3229     (version "1.2.19")
3230     (source (origin
3231               (method url-fetch)
3232               (uri (string-append
3233                     "https://www.hoopajoo.net/static/projects/powwow-"
3234                     version ".tar.gz"))
3235               (sha256
3236                (base32
3237                 "10rjl63hmf62qslyhzqrbw3i2zf09dgxv65avhj0iiz0m4pbc9wy"))))
3238     (inputs
3239      `(("ncurses" ,ncurses)))
3240     (build-system gnu-build-system)
3241     (home-page "https://www.hoopajoo.net/projects/powwow.html")
3242     (synopsis "MUD and telnet client")
3243     (description
3244      "POWWOW is a client software which can be used for telnet as well as for
3245 @dfn{Multi-User Dungeon} (MUD).  Additionally it can serve as a nice client for
3246 the chat server psyced with the specific config located at
3247 http://lavachat.symlynx.com/unix/")
3248     (license license:gpl2+)))
3249
3250 (define-public red-eclipse
3251   (let ((release "2.0.0")
3252         (revision 0))
3253     (package
3254       (name "red-eclipse")
3255       (version (if (zero? revision)
3256                    release
3257                    (string-append release "-"
3258                                   (number->string revision))))
3259       (source
3260        (origin
3261          (method git-fetch)
3262          (uri (git-reference
3263                (url "https://github.com/redeclipse/base.git")
3264                (commit (string-append "v" release))
3265                (recursive? #t))) ; for game data
3266          (file-name (git-file-name name version))
3267          (sha256
3268           (base32 "0sz0mqhwx8r9n4mk3qrxw420nlsm3y0n48gd0lazgd64lfqjh3ab"))
3269          (modules '((guix build utils)))
3270          (snippet
3271           ;; Remove proprietary libraries and other pre-compiled binaries.
3272           '(begin
3273              (delete-file-recursively "bin")
3274              #t))))
3275       (build-system gnu-build-system)
3276       (arguments
3277        `(#:tests? #f            ; no check target
3278          #:make-flags (list "CC=gcc" "-Csrc"
3279                             (string-append "INSTDIR="
3280                                            (assoc-ref %outputs "out") "/bin")
3281                             (string-append "prefix="
3282                                            (assoc-ref %outputs "out")))
3283          #:phases
3284          (modify-phases %standard-phases
3285            (add-after 'unpack 'add-store-data-package-path-as-default
3286              (lambda* (#:key outputs #:allow-other-keys)
3287                (substitute* "src/engine/server.cpp"
3288                  (("data = \"data\"")
3289                   (string-append "data = \""
3290                                  (assoc-ref outputs "out")
3291                                  "/share/redeclipse/data\"")))
3292                #t))
3293            (delete 'configure)  ; no configure script
3294            (add-after 'set-paths 'set-sdl-paths
3295              (lambda* (#:key inputs #:allow-other-keys)
3296                (setenv "CPATH"
3297                        (string-append (assoc-ref inputs "sdl-union")
3298                                       "/include/SDL2:"
3299                                       (or (getenv "CPATH") "")))
3300                #t))
3301            (add-after 'install 'copy-data
3302              (lambda* (#:key outputs #:allow-other-keys)
3303                (let ((out (assoc-ref outputs "out")))
3304                  (copy-recursively "config"
3305                                    (string-append out "/config"))
3306                  (copy-file "doc/examples/servinit.cfg"
3307                             (string-append out "/config/servinit.cfg"))
3308                  (copy-recursively "data"
3309                                    (string-append out "/share/redeclipse/data"))
3310                  (mkdir-p (string-append out "/lib/redeclipse"))
3311                  (symlink (string-append out "/share/redeclipse/data")
3312                           (string-append out "/lib/redeclipse/data")))
3313                #t))
3314            (add-after 'copy-data 'wrap-program
3315              (lambda* (#:key inputs outputs #:allow-other-keys)
3316                (let* ((out (assoc-ref outputs "out"))
3317                       (bin (string-append out "/bin")))
3318                  (with-directory-excursion bin
3319                    (rename-file "redeclipse_linux"
3320                                 ".redeclipse_linux-real")
3321                    (rename-file "redeclipse_server_linux"
3322                                 ".redeclipse_server_linux-real")
3323                    (call-with-output-file "redeclipse_linux"
3324                      (lambda (port)
3325                        (format port "#!~a/bin/sh
3326 # Run the thing from its home, otherwise it just bails out.
3327 cd \"~a\"
3328 exec -a \"$0\" ~a/.redeclipse_linux-real~%"
3329                                (assoc-ref inputs "bash") ;implicit input
3330                                (string-append out)
3331                                (string-append bin))))
3332                    (call-with-output-file "redeclipse_server_linux"
3333                      (lambda (port)
3334                        (format port "#!~a/bin/sh
3335 # Run the thing from its home, otherwise it just bails out.
3336 cd \"~a\"
3337 exec -a \"$0\" ~a/.redeclipse_server_linux-real~%"
3338                                (assoc-ref inputs "bash") ;implicit input
3339                                (string-append out)
3340                                (string-append bin))))
3341                    (chmod "redeclipse_linux" #o555)
3342                    (chmod "redeclipse_server_linux" #o555)))
3343                #t)))))
3344       (native-inputs
3345        `(("pkg-config" ,pkg-config)))
3346       (inputs
3347        `(("curl" ,curl)
3348          ("freetype" ,freetype)
3349          ("glu" ,glu)
3350          ("sdl-union" ,(sdl-union (list sdl2
3351                                         sdl2-image
3352                                         sdl2-mixer)))))
3353       (home-page "https://redeclipse.net/")
3354       (synopsis "Arena shooter derived from the Cube 2 engine")
3355       (description
3356        "Red Eclipse is an arena shooter, created from the Cube2 engine.
3357 Offering an innovative parkour system and distinct but all potent weapons,
3358 Red Eclipse provides fast paced and accessible gameplay.")
3359       ;; The engine is under Zlib; data files are covered by the other
3360       ;; licenses.  More details at file:///doc/all-licenses.txt.
3361       (license (list license:expat
3362                      license:zlib
3363                      license:cc-by-sa4.0
3364                      license:cc-by-sa3.0
3365                      license:cc-by3.0
3366                      license:cc0
3367                      license:public-domain
3368                      license:silofl1.1)))))
3369
3370 (define-public grue-hunter
3371   (package
3372     (name "grue-hunter")
3373     (version "1.0")
3374     (source (origin
3375               (method url-fetch)
3376               (uri (string-append "https://jxself.org/grue-hunter.tar.gz"))
3377               (sha256
3378                (base32
3379                 "1hjcpy5439qs3v2zykis7hsi0i17zjs62gks3zd8mnfw9ni4i2h3"))))
3380     (build-system trivial-build-system) ; no Makefile.PL
3381     (arguments `(#:modules ((guix build utils))
3382                  #:builder
3383                  (begin
3384                    (use-modules (guix build utils))
3385                    (use-modules (srfi srfi-1))
3386
3387                    (let* ((tarball (assoc-ref %build-inputs "tarball"))
3388                           (perl    (string-append (assoc-ref %build-inputs
3389                                                              "perl")
3390                                                   "/bin"))
3391                           (gzip    (string-append (assoc-ref %build-inputs
3392                                                              "gzip")
3393                                                   "/bin/gzip"))
3394                           (tar     (string-append (assoc-ref %build-inputs
3395                                                              "tar")
3396                                                   "/bin/tar"))
3397                           (out     (assoc-ref %outputs "out"))
3398                           (bin     (string-append out "/bin"))
3399                           (doc     (string-append out
3400                                                   "/share/doc/grue-hunter")))
3401                      (copy-file tarball "grue-hunter.tar.gz")
3402                      (invoke gzip "-d" "grue-hunter.tar.gz")
3403                      (invoke tar "xvf" "grue-hunter.tar")
3404
3405                      (mkdir-p bin)
3406                      (copy-file "grue-hunter/gh.pl"
3407                                 (string-append bin "/grue-hunter"))
3408                      (patch-shebang (string-append bin "/grue-hunter")
3409                                     (list perl))
3410
3411                      (install-file "grue-hunter/AGPLv3.txt" doc)
3412
3413                      #t))))
3414     (inputs `(("perl" ,perl)
3415               ("tar" ,tar)
3416               ("gzip" ,gzip)
3417               ("tarball" ,source)))
3418     (home-page "http://jxself.org/grue-hunter.shtml")
3419     (synopsis "Text adventure game")
3420     (description
3421      "Grue Hunter is a text adventure game written in Perl.  You must make
3422 your way through an underground cave system in search of the Grue.  Can you
3423 capture it and get out alive?")
3424     (license license:agpl3+)))
3425
3426 (define-public lierolibre
3427   (package
3428     (name "lierolibre")
3429     (version "0.5")
3430     (source (origin
3431               (method url-fetch)
3432               (uri (string-append "https://launchpad.net/lierolibre/trunk/"
3433                                   version "/+download/lierolibre-"
3434                                   version ".tar.xz"))
3435               (sha256
3436                (base32
3437                 "1cf1gvsn4qq190lrf9k5bpjnqwlcfw7pajvdnh7z5r4jqw0rsbl9"))
3438               (patches
3439                (search-patches "lierolibre-check-unaligned-access.patch"
3440                                "lierolibre-try-building-other-arch.patch"
3441                                "lierolibre-remove-arch-warning.patch"
3442                                "lierolibre-newer-libconfig.patch"
3443                                "lierolibre-is-free-software.patch"))
3444               (modules '((guix build utils)))
3445               (snippet
3446                '(begin
3447                   ;; Delete pre-compiled files.
3448                   (delete-file "data/LIERO.CHR")
3449                   (delete-file "data/LIERO.SND")
3450                   #t))))
3451     (build-system gnu-build-system)
3452     (native-inputs
3453      `(("imagemagick" ,imagemagick)
3454        ("pkg-config" ,pkg-config)
3455        ("util-linux" ,util-linux)
3456        ("sox" ,sox)))
3457     (inputs
3458      `(("boost" ,boost)
3459        ("libconfig" ,libconfig)
3460        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
3461        ("zlib" ,zlib)))
3462     (home-page "https://gitlab.com/lierolibre/lierolibre")
3463     (synopsis "Old-school earthworm action game")
3464     (description
3465      "lierolibre is an earthworm action game where you fight another player
3466 (or the computer) underground using a wide array of weapons.
3467
3468 Features:
3469 @itemize
3470 @item 2 worms, 40 weapons, great playability, two game modes: Kill'em All
3471 and Game of Tag, plus AI-players without true intelligence!
3472 @item Dat nostalgia.
3473 @item Extensions via a hidden F1 menu:
3474 @itemize
3475 @item Replays
3476 @item Game controller support
3477 @item Powerlevel palettes
3478 @end itemize
3479 @item Ability to write game variables to plain text files.
3480 @item Ability to load game variables from both EXE and plain text files.
3481 @item Scripts to extract and repack graphics, sounds and levels.
3482 @end itemize
3483
3484 To switch between different window sizes, use F6, F7 and F8, to switch to
3485 fullscreen, use F5 or Alt+Enter.")
3486     ;; Code mainly BSD-2, some parts under Boost 1.0. All assets are WTFPL2.
3487     (license (list license:bsd-2 license:boost1.0 license:wtfpl2))))
3488
3489 (define-public warzone2100
3490   (package
3491     (name "warzone2100")
3492     (version "3.2.3")
3493     (source
3494      (origin
3495        (method url-fetch)
3496        (uri (string-append "mirror://sourceforge/warzone2100/archives/"
3497                            "unsupported/Warzone2100-"
3498                            (version-major+minor version) "/" version
3499                            "/warzone2100-" version ".tar.xz"))
3500        (sha256
3501         (base32 "10kmpr4cby95zwqsl1zwx95d9achli6khq7flv6xmrq30a39xazw"))))
3502     (build-system gnu-build-system)
3503     (arguments
3504      `(#:configure-flags '("--with-distributor=Guix")
3505        #:phases
3506        (modify-phases %standard-phases
3507          (add-after 'unpack 'link-tests-with-qt
3508            (lambda _
3509              (substitute* "tests/Makefile.in"
3510                (("(framework_linktest_LDADD|maptest_LDADD) = " prefix)
3511                 (string-append prefix "$(QT5_LIBS) ")))
3512              #t))
3513          (add-after 'unpack 'fix-ivis-linktest
3514            (lambda _
3515              (substitute* "tests/ivis_linktest.cpp"
3516                (("iV_DrawTextRotated.*;")
3517                 (string-append "iV_DrawTextRotated(\"Press ESC to exit.\", "
3518                                "100, 100, 0.0f, font_regular);")))
3519              #t)))))
3520     (native-inputs `(("gettext" ,gettext-minimal)
3521                      ("pkg-config" ,pkg-config)
3522                      ("unzip" ,unzip)
3523                      ("zip" ,zip)))
3524     (inputs `(("fontconfig" ,fontconfig)
3525               ("freetype" ,freetype)
3526               ("fribidi" ,fribidi)
3527               ("glew" ,glew)
3528               ("harfbuzz" ,harfbuzz)
3529               ("libtheora" ,libtheora)
3530               ("libvorbis" ,libvorbis)
3531               ("libxrandr" ,libxrandr)
3532               ("openal" ,openal)
3533               ("physfs" ,physfs)
3534               ("qtbase" ,qtbase)
3535               ("qtscript" ,qtscript)
3536               ("openssl" ,openssl)
3537               ("sdl2" ,sdl2)))
3538     (home-page "http://wz2100.net")
3539     (synopsis "3D Real-time strategy and real-time tactics game")
3540     (description
3541      "Warzone 2100 offers campaign, multi-player, and single-player skirmish
3542 modes. An extensive tech tree with over 400 different technologies, combined
3543 with the unit design system, allows for a wide variety of possible units and
3544 tactics.")
3545     ; Everything is GPLv2+ unless otherwise specified in COPYING.NONGPL
3546     (license (list license:bsd-3
3547                    license:cc0
3548                    license:cc-by-sa3.0
3549                    license:expat
3550                    license:gpl2+
3551                    license:lgpl2.1+))))
3552
3553 (define-public starfighter
3554   (package
3555     (name "starfighter")
3556     (version "2.0.0.3")
3557     (source (origin
3558               (method url-fetch)
3559               (uri (string-append
3560                     "https://github.com/pr-starfighter/starfighter/releases"
3561                     "/download/v" version "/starfighter-"
3562                     (version-major+minor version) "-src.tar.gz"))
3563               (sha256
3564                (base32
3565                 "13vi5kh9ahws4f52421cbyw0jn7pmbnld358lqfmr6flql7ilj3b"))))
3566     (build-system gnu-build-system)
3567     (native-inputs
3568      `(("pkg-config" ,pkg-config)))
3569     (inputs
3570      `(("pango" ,pango)
3571        ("sdl2" ,sdl2)
3572        ("sdl2-image" ,sdl2-image)
3573        ("sdl2-mixer" ,sdl2-mixer)
3574        ("sdl2-ttf" ,sdl2-ttf)))
3575     (home-page "https://pr-starfighter.github.io/")
3576     (synopsis "2D scrolling shooter game")
3577     (description
3578      "In the year 2579, the intergalactic weapons corporation, WEAPCO, has
3579 dominated the galaxy.  Guide Chris Bainfield and his friend Sid Wilson on
3580 their quest to liberate the galaxy from the clutches of WEAPCO.  Along the
3581 way, you will encounter new foes, make new allies, and assist local rebels
3582 in strikes against the evil corporation.")
3583     ;; gfx and music are under CC-BY 3.0, CC-BY-SA 3.0, CC0 or Public Domain.
3584     (license (list license:gpl3+
3585                    license:cc-by3.0
3586                    license:cc-by-sa3.0
3587                    license:cc0
3588                    license:public-domain))))
3589
3590 (define-public project-starfighter
3591   (deprecated-package "project-starfighter" starfighter))
3592
3593 (define-public chromium-bsu
3594   (package
3595     (name "chromium-bsu")
3596     (version "0.9.16.1")
3597     (source (origin
3598               (method url-fetch)
3599               (uri (string-append "mirror://sourceforge/chromium-bsu"
3600                                   "/Chromium B.S.U. source code/"
3601                                   "chromium-bsu-" version ".tar.gz"))
3602               (sha256
3603                (base32
3604                 "0jk2w5b6s6nkzri585bbz16cif2fhqcnl5l1mq3rd98r9nil3hd1"))))
3605     (build-system gnu-build-system)
3606     (native-inputs `(("pkg-config" ,pkg-config)))
3607     (inputs `(("gettext" ,gettext-minimal)
3608               ("glu" ,glu)
3609               ("quesoglc" ,quesoglc)
3610               ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))))
3611     (home-page "http://chromium-bsu.sourceforge.net/")
3612     (synopsis "Fast-paced, arcade-style, top-scrolling space shooter")
3613     (description
3614      "In this game you are the captain of the cargo ship Chromium B.S.U. and
3615 are responsible for delivering supplies to the troops on the front line.  Your
3616 ship has a small fleet of robotic fighters which you control from the relative
3617 safety of the Chromium vessel.")
3618     ;; Clarified Artistic License for everything but sound, which is covered
3619     ;; by the Expat License.
3620     (license (list license:clarified-artistic license:expat))))
3621
3622 (define-public tuxpaint
3623   (package
3624     (name "tuxpaint")
3625     (version "0.9.23")                  ;keep VER_DATE below in sync
3626     (source
3627      (origin
3628        (method url-fetch)
3629        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint/"
3630                            version "/tuxpaint-" version ".tar.gz"))
3631        (sha256
3632         (base32
3633          "09k9pxi88r3dx6dyjwf9h85d4qpva4i29qz63dc558hg9v21k69l"))
3634        (modules '((guix build utils)))
3635        (snippet
3636         '(begin
3637            ;; Remove win32 directory which contains binary dll's and the
3638            ;; deprecated visualc directory.
3639            (for-each delete-file-recursively '("win32" "visualc"))
3640            (substitute* "Makefile"
3641              ;; Do not rely on $(GPERF) being an absolute file name
3642              (("\\[ -x \\$\\(GPERF\\) \\]")
3643               "$(GPERF) --version >/dev/null 2>&1"))
3644            #t))
3645        (patches (search-patches "tuxpaint-stamps-path.patch"))))
3646     (build-system gnu-build-system)
3647     (native-inputs
3648      `(("gperf" ,gperf)
3649        ("pkg-config" ,pkg-config)))
3650     (inputs
3651      `(("cairo" ,cairo)
3652        ("fribidi" ,fribidi)
3653        ("gettext" ,gettext-minimal)
3654        ("libpng" ,libpng)
3655        ("librsvg" ,librsvg)
3656        ("libpaper" ,libpaper)
3657        ("netpbm" ,netpbm)
3658        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf sdl-image)))))
3659     ;; TODO: Use system fonts rather than those in data/fonts
3660     (arguments
3661      `(#:make-flags `("VER_DATE=2018-09-02"
3662                       "GPERF=gperf" "CC=gcc"
3663                       "SDL_PCNAME=sdl SDL_image SDL_mixer SDL_ttf"
3664                       ,(string-append "PREFIX=" %output)
3665                       "KDE_PREFIX=$(PREFIX)/share/applications"
3666                       "KDE_ICON_PREFIX=$(PREFIX)/share/icons/"
3667                       "COMPLETIONDIR=$(PREFIX)/etc/bash_completion.d")
3668        #:parallel-build? #f             ;fails on some systems
3669        #:tests? #f                      ;No tests
3670        #:phases (modify-phases %standard-phases
3671                   (delete 'configure)   ;no configure phase
3672                   (add-before 'install 'no-sys-cache
3673                     (lambda _           ;do not rebuild system conf cache
3674                       (substitute* "Makefile"
3675                         (("kbuildsycoca4") ""))
3676                       #t))
3677                   (add-after 'install 'fix-import
3678                     (lambda* (#:key inputs outputs #:allow-other-keys)
3679                       (let* ((out (assoc-ref outputs "out"))
3680                              (net (assoc-ref inputs "netpbm"))
3681                              (tpi (string-append out "/bin/tuxpaint-import")))
3682                         (substitute* tpi
3683                           ;; Point to installation prefix so that the default
3684                           ;; configure file is found.
3685                           (("/usr/local") out))
3686                         ;; tuxpaint-import uses a bunch of programs from
3687                         ;; netpbm, so make sure it knows where those are
3688                         (wrap-program tpi
3689                           `("PATH" ":" prefix
3690                             (,(string-append net "/bin"))))))))))
3691     (native-search-paths
3692      (list (search-path-specification
3693             (variable "TUXPAINT_STAMPS_PATH")
3694             (files '("share/tuxpaint/stamps")))))
3695     (home-page "http://www.tuxpaint.org")
3696     (synopsis "Drawing software for children")
3697     (description
3698      "Tux Paint is a free drawing program designed for young children (kids
3699 ages 3 and up).  It has a simple, easy-to-use interface; fun sound effects;
3700 and an encouraging cartoon mascot who helps guide children as they use the
3701 program.  It provides a blank canvas and a variety of drawing tools to help
3702 your child be creative.")
3703     (license license:gpl2+)))
3704
3705 (define-public tuxpaint-stamps
3706   (package
3707     (name "tuxpaint-stamps")
3708     (version "2018.09.01")
3709     (source
3710      (origin
3711        (method url-fetch)
3712        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-stamps/"
3713                            (string-map (λ (x) (if (eq? x #\.) #\- x)) version)
3714                            "/tuxpaint-stamps-" version ".tar.gz"))
3715        (sha256
3716         (base32
3717          "1skr23k27yj3vgwfazpzxp90lb2a278gxrkr3bxw7az6zpkmb3yp"))))
3718     (build-system trivial-build-system)
3719     (native-inputs
3720      `(("tar" ,tar)
3721        ("gzip" ,gzip)))
3722     (arguments
3723      `(#:modules ((guix build utils))
3724        #:builder (begin
3725                    (use-modules (guix build utils))
3726                    (setenv "PATH"
3727                            (string-append
3728                             (assoc-ref %build-inputs "tar") "/bin" ":"
3729                             (assoc-ref %build-inputs "gzip") "/bin"))
3730                    (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
3731                    (chdir (string-append ,name "-" ,version))
3732                    (let ((dir (string-append %output "/share/tuxpaint/stamps")))
3733                      (mkdir-p dir)
3734                      (copy-recursively "stamps" dir))
3735                    #t)))
3736     (home-page (package-home-page tuxpaint))
3737     (synopsis "Stamp images for Tux Paint")
3738     (description
3739      "This package contains a set of \"Rubber Stamp\" images which can be used
3740 with the \"Stamp\" tool within Tux Paint.")
3741     (license license:gpl2+)))
3742
3743 (define-public tuxpaint-config
3744   (package
3745     (name "tuxpaint-config")
3746     (version "0.0.14")                  ;keep VER_DATE below in sync
3747     (source
3748      (origin
3749        (method url-fetch)
3750        (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-config/"
3751                            version "/tuxpaint-config-" version ".tar.gz"))
3752        (sha256
3753         (base32
3754          "0zkgxk436nqcp43zghkfmh397c7dvh5bwn2as7gwvv208bzyij6g"))))
3755     (build-system gnu-build-system)
3756     (native-inputs
3757      `(("gettext" ,gettext-minimal)))
3758     (inputs
3759      `(("fltk" ,fltk)
3760        ("libpaper" ,libpaper)
3761        ;; TODO: Should the following be propagated by fltk?
3762        ("libx11" ,libx11)
3763        ("libxft" ,libxft)
3764        ("mesa" ,mesa)))
3765     (arguments
3766      `(#:make-flags `("VER_DATE=2018-09-01"
3767                       "CONFDIR=/etc/tuxpaint" ;don't write to store
3768                       ,(string-append "PREFIX=" %output)
3769                       "GNOME_PREFIX=$(PREFIX)")
3770        #:parallel-build? #f             ;race conditions
3771        #:tests? #f                      ;no tests
3772        #:phases (modify-phases %standard-phases
3773                   (delete 'configure)   ;no configure phase
3774                   (add-before 'install 'gzip-no-name
3775                     (lambda* _
3776                       (substitute* "Makefile"
3777                         ;; tuxpaint-config compresses its own documentation;
3778                         ;; make sure it uses flags for reproducibility.
3779                         (("gzip") "gzip --no-name"))))
3780                   (add-before 'install 'make-install-dirs
3781                     (lambda* (#:key outputs #:allow-other-keys)
3782                       (let ((out (assoc-ref outputs "out")))
3783                         (mkdir-p (string-append out "/bin"))
3784                         #t))))))
3785     (home-page (package-home-page tuxpaint))
3786     (synopsis "Configure Tux Paint")
3787     (description
3788      "Tux Paint Config is a graphical configuration editor for Tux Paint.")
3789     (license license:gpl2)))            ;no "or later" present
3790
3791 (define-public supertux
3792   (package
3793    (name "supertux")
3794    (version "0.6.1")
3795    (source (origin
3796             (method url-fetch)
3797             (uri (string-append "https://github.com/SuperTux/supertux/"
3798                                 "releases/download/v" version "/SuperTux-v"
3799                                 version "-Source.tar.gz"))
3800             (file-name (string-append name "-" version ".tar.gz"))
3801             (sha256
3802              (base32
3803               "0lqch5gcq6ccnspy93z9r13bp8w2j1vrd8jhvk5kp4qhrd1f069s"))
3804             (patches
3805              (search-patches "supertux-unbundle-squirrel.patch"))))
3806    (arguments
3807     '(#:tests? #f
3808       #:configure-flags '("-DINSTALL_SUBDIR_BIN=bin"
3809                           "-DUSE_SYSTEM_PHYSFS=ON")
3810       #:phases
3811       (modify-phases %standard-phases
3812         (add-after 'unpack 'patch-squirrel-path
3813           (lambda* (#:key inputs #:allow-other-keys)
3814             (let ((squirrel (assoc-ref inputs "squirrel")))
3815               (substitute* "CMakeLists.txt"
3816                 (("set\\(SQUIRREL_PREFIX.*")
3817                  (string-append "set(SQUIRREL_PREFIX " squirrel ")"))
3818                 (("add_dependencies\\(supertux2_lib squirrel\\)") "")
3819                 (("\\$\\{SQUIRREL_PREFIX\\}/include")
3820                  (string-append "${SQUIRREL_PREFIX}/include/squirrel"))))
3821             #t)))))
3822    (build-system cmake-build-system)
3823    (inputs `(("sdl2" ,sdl2)
3824              ("sdl2-image" ,sdl2-image)
3825              ("sdl2-mixer" ,sdl2-mixer)
3826              ("openal" ,openal)
3827              ("mesa" ,mesa)
3828              ("glew" ,glew)
3829              ("libvorbis" ,libvorbis)
3830              ("libogg" ,libogg)
3831              ("physfs" ,physfs)
3832              ("curl" ,curl)
3833              ("boost" ,boost)
3834              ("freetype" ,freetype)
3835              ("squirrel" ,squirrel)))
3836    (native-inputs
3837     `(("pkg-config" ,pkg-config)))
3838    (synopsis "2D platformer game")
3839    (description "SuperTux is a classic 2D jump'n run sidescroller game in
3840 a style similar to the original Super Mario games.")
3841    (home-page "https://supertux.org/")
3842    (license license:gpl3+)))
3843
3844 (define-public tintin++
3845   (package
3846     (name "tintin++")
3847     (version "2.02.00")
3848     (source
3849      (origin
3850        (method url-fetch)
3851        (uri (string-append "mirror://sourceforge/tintin/TinTin++ Source Code/"
3852                            (string-drop-right version 1)
3853                            "/tintin-" version ".tar.gz"))
3854        (sha256
3855         (base32
3856          "02qmbhzhh2sdy5b37v54gihs9k4bxmlz3j96gyx7icvx2grkbg5i"))))
3857     (inputs
3858      `(("gnutls" ,gnutls)
3859        ("pcre" ,pcre)
3860        ("readline" ,readline)
3861        ("zlib" ,zlib)))
3862     (arguments
3863      '(#:tests? #f                      ; no test suite
3864        #:phases
3865        (modify-phases %standard-phases
3866          ;; The source is in tt/src.
3867          (add-before 'configure 'chdir
3868            (lambda _
3869              (chdir "src")
3870              #t)))))
3871     (build-system gnu-build-system)
3872     (home-page "https://tintin.mudhalla.net/")
3873     (synopsis "MUD client")
3874     (description
3875      "TinTin++ is a MUD client which supports MCCP (Mud Client Compression
3876 Protocol), MMCP (Mud Master Chat Protocol), xterm 256 colors, most TELNET
3877 options used by MUDs, as well as those required to login via telnet on
3878 Linux / Mac OS X servers, and an auto mapper with a VT100 map display.")
3879     (license license:gpl3+)))
3880
3881 (define-public laby
3882   (package
3883     (name "laby")
3884     (version "0.6.4")
3885     (source
3886      (origin (method git-fetch)
3887              (uri (git-reference
3888                     (url "https://github.com/sgimenez/laby.git")
3889                     (commit (string-append name "-" version))))
3890              (file-name (git-file-name name version))
3891              (sha256
3892               (base32
3893                "12fq9hhrxpzgfinmj9ra9ckss9yficwdlrmgjvvsq7agvh3sgyl1"))
3894              (patches (search-patches "laby-make-install.patch"))))
3895     (build-system gnu-build-system)
3896     (inputs
3897      `(("lablgtk" ,lablgtk)
3898        ("ocaml" ,ocaml)
3899        ("ocaml-findlib" ,ocaml-findlib)
3900        ("ocamlbuild" ,ocamlbuild)))
3901     (arguments
3902      '(#:phases
3903        (modify-phases %standard-phases
3904          (delete 'configure)
3905          (add-before 'build 'allow-unsafe-strings
3906            ;; Fix a build failure with ocaml >=4.06.0.
3907            ;; See <https://github.com/sgimenez/laby/issues/53>.
3908            (lambda _
3909              (setenv "OCAMLPARAM" "safe-string=0,_")
3910              #t))
3911          (add-before 'build 'set-library-path
3912            (lambda* (#:key inputs #:allow-other-keys)
3913              (let ((lablgtk (assoc-ref inputs "lablgtk")))
3914                (setenv "LD_LIBRARY_PATH"
3915                        (string-append lablgtk "/lib/ocaml/stublibs"))))))
3916        #:tests? #f ; no 'check' target
3917        #:make-flags
3918        (list (string-append "PREFIX=" (assoc-ref %outputs "out")) "all")))
3919     (home-page "https://sgimenez.github.io/laby/")
3920     (synopsis "Programming game")
3921     (description "Learn programming, playing with ants and spider webs ;-)
3922 Your robot ant can be programmed in many languages: OCaml, Python, C, C++,
3923 Java, Ruby, Lua, JavaScript, Pascal, Perl, Scheme, Vala, Prolog.  Experienced
3924 programmers may also add their own favorite language.")
3925     (license license:gpl3+)))
3926
3927 (define-public bambam
3928   (package
3929     (name "bambam")
3930     (version "1.0.0")
3931     (source
3932       (origin
3933         (method git-fetch)
3934         (uri (git-reference
3935               (url "https://github.com/porridge/bambam")
3936               (commit (string-append "v" version))))
3937         (file-name (git-file-name name version))
3938         (sha256
3939          (base32 "18cwd1wpyyx8y61cags9bkdhx9x858xicc4y1c9c2s0xjmgzhl3i"))))
3940     (build-system python-build-system)
3941     (arguments
3942      `(#:tests? #f                      ; no tests
3943        #:phases
3944        (modify-phases %standard-phases
3945          (delete 'build)                ; nothing to build
3946          (replace 'install
3947            (lambda* (#:key outputs #:allow-other-keys)
3948              (let* ((out   (assoc-ref outputs "out"))
3949                     (bin   (string-append out "/bin"))
3950                     (share (string-append out "/share")))
3951                (mkdir-p bin)
3952                (copy-file "bambam.py" (string-append bin "/bambam"))
3953                (install-file "bambam.6" (string-append share "/man/man6"))
3954                (copy-recursively "data" (string-append share "/bambam/data")))
3955              #t)))))
3956     (inputs
3957      `(("python-pygame" ,python-pygame)))
3958     (home-page "https://github.com/porridge/bambam")
3959     (synopsis "Keyboard mashing and doodling game for babies")
3960     (description "Bambam is a simple baby keyboard (and gamepad) masher
3961 application that locks the keyboard and mouse and instead displays bright
3962 colors, pictures, and sounds.")
3963     (license license:gpl3+)))
3964
3965 (define-public mrrescue
3966   (package
3967     (name "mrrescue")
3968     (version "1.02e")
3969     (source (origin
3970               (method url-fetch)
3971               (uri (string-append
3972                     "https://github.com/SimonLarsen/mrrescue/releases/"
3973                     "download/" version "/mrrescue" version ".love"))
3974               (file-name (string-append name "-" version ".love"))
3975               (sha256
3976                (base32
3977                 "0jwzbwkgp1l5ia6c7s760gmdirbsncp6nfqp7vqdqsfb63la9gl2"))))
3978     (build-system trivial-build-system)
3979     (arguments
3980      `(#:modules ((guix build utils))
3981        #:builder
3982        (begin
3983          (use-modules (guix build utils))
3984          (let* ((out    (assoc-ref %outputs "out"))
3985                 (script (string-append out "/bin/" ,name))
3986                 (data   (string-append out "/share/" ,name))
3987                 (source (assoc-ref %build-inputs "source"))
3988                 (unzip  (string-append (assoc-ref %build-inputs "unzip")
3989                                        "/bin/unzip"))
3990                 (patch  (string-append (assoc-ref %build-inputs "patch")
3991                                        "/bin/patch"))
3992                 (bash   (string-append (assoc-ref %build-inputs "bash")
3993                                        "/bin/bash"))
3994                 (love   (string-append (assoc-ref %build-inputs "love")
3995                                        "/bin/love")))
3996
3997            (mkdir-p (dirname script))
3998            (with-output-to-file script
3999              (lambda ()
4000                (format #t "#!~a~%" bash)
4001                (format #t "exec -a ~a \"~a\" \"~a\"~%" ,name love data)))
4002            (chmod script #o755)
4003
4004            ;; The better way to package this game would be to install *only* the
4005            ;; script above, pointing to the unextracted .love file in the store.
4006            ;; However, mrrescue 1.02e needs to be patched to work with Love 11.
4007            ;; Instead of extracting the .love file, patching it, and re-zipping
4008            ;; it to the store, simply point the script to the extracted patched
4009            ;; data directory directly.
4010            (mkdir-p data)
4011            (with-directory-excursion data
4012              (invoke unzip source)
4013              (invoke patch "-p1" "-i"
4014                      (assoc-ref %build-inputs "love-11.patch")))
4015            #t))))
4016     (native-inputs
4017      `(("unzip" ,unzip)
4018        ("patch" ,patch)
4019        ("love-11.patch" ,(search-patch "mrrescue-support-love-11.patch"))))
4020     (inputs
4021      `(("bash" ,bash)
4022        ("love" ,love)))
4023     (home-page "http://tangramgames.dk/games/mrrescue")
4024     (synopsis "Arcade-style fire fighting game")
4025     (description
4026      "Mr. Rescue is an arcade styled 2d action game centered around evacuating
4027 civilians from burning buildings.  The game features fast-paced fire
4028 extinguishing action, intense boss battles, a catchy soundtrack, and lots of
4029 throwing people around in pseudo-randomly generated buildings.")
4030     (license (list license:zlib             ; for source code
4031                    license:cc-by-sa3.0))))  ; for graphics and music assets
4032
4033 (define-public hyperrogue
4034   (package
4035     (name "hyperrogue")
4036     (version "11.2d")
4037     ;; When updating this package, be sure to update the "hyperrogue-data"
4038     ;; origin in native-inputs.
4039     (source (origin
4040               (method url-fetch)
4041               (uri (string-append
4042                     "https://www.roguetemple.com/z/hyper/hyperrogue"
4043                     (string-join (string-split version #\.) "")
4044                     "-src.tgz"))
4045               (sha256
4046                (base32
4047                 "1b532s94zv1jsni7bvh848m42arxcclsr0x3n7c689iamwqzrxmn"))))
4048     (build-system gnu-build-system)
4049     (arguments
4050      `(#:tests? #f ; no check target
4051        #:make-flags '("HYPERROGUE_USE_GLEW=1"
4052                       "HYPERROGUE_USE_PNG=1")
4053        #:phases
4054        (modify-phases %standard-phases
4055          (add-after 'set-paths 'set-sdl-paths
4056            (lambda* (#:key inputs #:allow-other-keys)
4057              (setenv "CPATH"
4058                      (string-append (getenv "CPATH") ":"
4059                                     (assoc-ref inputs "sdl-union")
4060                                     "/include/SDL"))))
4061          (replace 'configure
4062            (lambda* (#:key inputs outputs #:allow-other-keys)
4063              (let* ((out (assoc-ref outputs "out"))
4064                     (share-dir (string-append out "/share/hyperrogue"))
4065                     (dejavu-dir (string-append
4066                                  (assoc-ref inputs "font-dejavu")
4067                                  "/share/fonts/truetype"))
4068                     (dejavu-font "DejaVuSans-Bold.ttf")
4069                     (music-file "hyperrogue-music.txt"))
4070                ;; Fix font and music paths.
4071                (substitute* "basegraph.cpp"
4072                  ((dejavu-font)
4073                   (string-append dejavu-dir "/" dejavu-font)))
4074                (substitute* music-file
4075                  (("\\*/")
4076                   (string-append share-dir "/sounds/")))
4077                (substitute* "sound.cpp"
4078                  (("musicfile = \"\"")
4079                   (string-append "musicfile = \""
4080                                  share-dir "/" music-file "\"")))
4081                ;; Disable build machine CPU optimizations and warnings treated
4082                ;; as errors.
4083                (substitute* "Makefile"
4084                  (("-march=native") "")
4085                  (("-Werror") "")))
4086              #t))
4087          (replace 'install
4088            (lambda* (#:key inputs outputs #:allow-other-keys)
4089              (let* ((out (assoc-ref outputs "out"))
4090                     (bin (string-append out "/bin"))
4091                     (share-dir (string-append out "/share/hyperrogue")))
4092                (mkdir-p bin)
4093                (install-file "hyperrogue" bin)
4094                (install-file "hyperrogue-music.txt" share-dir))
4095              #t))
4096          (add-after 'install 'install-data
4097            (lambda* (#:key inputs outputs #:allow-other-keys)
4098              (let* ((data (assoc-ref inputs "hyperrogue-data"))
4099                     (out (assoc-ref outputs "out"))
4100                     (sounds (string-append out "/share/hyperrogue/sounds"))
4101                     (unzip (string-append (assoc-ref inputs "unzip") "/bin/unzip")))
4102                ;; Extract media license information into sounds directory.
4103                (invoke unzip "-j" data
4104                        (string-append
4105                         "hyperrogue"
4106                         (string-join (string-split ,version #\.) "")
4107                         "/sounds/credits.txt") "-d" sounds)
4108                ;; Extract sounds and music into sounds directory.
4109                (invoke "unzip" "-j" data
4110                        (string-append
4111                         "hyperrogue"
4112                         (string-join (string-split ,version #\.) "")
4113                         "/*.ogg") "-d" sounds)))))))
4114     (native-inputs
4115      `(("hyperrogue-data"
4116         ,(origin
4117            (method url-fetch)
4118            (uri
4119             (string-append
4120              "https://www.roguetemple.com/z/hyper/hyperrogue"
4121              (string-join (string-split version #\.) "")
4122              "-win.zip"))
4123            (sha256
4124             (base32
4125              "0vq4l1xaqpjj3hmxn1vn2b3bbkn1hrag42ck9f30blinv347bwhf"))))
4126        ("unzip" ,unzip)))
4127     (inputs
4128      `(("font-dejavu" ,font-dejavu)
4129        ("glew" ,glew)
4130        ("libpng" ,libpng)
4131        ("sdl-union" ,(sdl-union (list sdl
4132                                       sdl-gfx
4133                                       sdl-mixer
4134                                       sdl-ttf)))))
4135     (home-page "https://www.roguetemple.com/z/hyper/")
4136     (synopsis "Non-euclidean graphical rogue-like game")
4137     (description
4138      "HyperRogue is a game in which the player collects treasures and fights
4139 monsters -- rogue-like but for the fact that it is played on the hyperbolic
4140 plane and not in euclidean space.
4141
4142 In HyperRogue, the player can move through different parts of the world, which
4143 are home to particular creatures and may be subject to their own rules of
4144 \"physics\".
4145
4146 While the game can use ASCII characters to display the the classical rogue
4147 symbols, it still needs graphics to render the non-euclidean world.")
4148     (license (list license:bsd-3         ; glew.c, mtrand.*
4149                    license:cc-by-sa3.0   ; music
4150                    license:cc-by-sa4.0   ; sounds
4151                    license:cc0
4152                    license:public-domain ; direntx.*, some sounds
4153                    license:zlib          ; savepng.*
4154                    license:gpl2+))))     ; remaining files
4155
4156 (define-public kobodeluxe
4157   (package
4158     (name "kobodeluxe")
4159     (version "0.5.1")
4160     (source (origin
4161               (method url-fetch)
4162               (uri (string-append "http://olofson.net/kobodl/download/KoboDeluxe-"
4163                                   version ".tar.bz2"))
4164               (sha256
4165                (base32
4166                 "0b2wvdpnmaibsy419c16dfwj5kvd3pccby2aaqvm964x74592yqg"))
4167               (patches (search-patches
4168                         "kobodeluxe-const-charp-conversion.patch"
4169                         "kobodeluxe-enemies-pipe-decl.patch"
4170                         "kobodeluxe-graphics-window-signed-char.patch"
4171                         "kobodeluxe-manpage-minus-not-hyphen.patch"
4172                         "kobodeluxe-midicon-segmentation-fault.patch"
4173                         "kobodeluxe-paths.patch"))))
4174     (build-system gnu-build-system)
4175     (arguments
4176      '(#:configure-flags
4177        (list (string-append "CPPFLAGS=-I"
4178                             (assoc-ref %build-inputs "sdl-union")
4179                             "/include/SDL"))))
4180     (inputs `(("sdl-union" ,(sdl-union (list sdl sdl-image)))))
4181     (synopsis "Shooter with space station destruction")
4182     (description
4183      "Kobo Deluxe is an enhanced version of Akira Higuchi's XKobo graphical game
4184 for Un*x systems with X11.")
4185     (home-page "http://olofson.net/kobodl/")
4186     (license license:gpl2+)))
4187
4188 (define-public freeciv
4189   (package
4190    (name "freeciv")
4191    (version "2.6.1")
4192    (source
4193     (origin
4194      (method url-fetch)
4195      (uri (list (string-append
4196                   "http://files.freeciv.org/stable/freeciv-"
4197                   version ".tar.bz2")
4198                 (string-append
4199                   "mirror://sourceforge/freeciv/Freeciv%20"
4200                   (version-major+minor version) "/" version
4201                   "/freeciv-" version ".tar.bz2")))
4202      (sha256
4203       (base32 "1qmrhrwm0ryvsh1zsxcxj128lhyvaxap7k39sam3hh8rl0fq9rnc"))))
4204    (build-system gnu-build-system)
4205    (inputs
4206     `(("curl" ,curl)
4207       ("cyrus-sasl" ,cyrus-sasl)
4208       ("gtk+" ,gtk+)
4209       ("sdl-mixer" ,sdl-mixer)
4210       ("zlib" ,zlib)))
4211    (native-inputs
4212     `(("pkg-config" ,pkg-config)))
4213    (home-page "http://www.freeciv.org/")
4214    (synopsis "Turn-based empire building strategy game")
4215    (description "Freeciv is a turn-based empire building strategy game
4216 inspired by the history of human civilization.  The game commences in
4217 prehistory and your mission is to lead your tribe from the Stone Age
4218 into the Space Age.")
4219    (license license:gpl2+)))
4220
4221 (define-public no-more-secrets
4222   (package
4223     (name "no-more-secrets")
4224     (version "0.3.3")
4225     (source
4226      (origin
4227        (method git-fetch)
4228        (uri (git-reference
4229              (url "https://github.com/bartobri/no-more-secrets.git")
4230              (commit (string-append "v" version))))
4231        (file-name (git-file-name name version))
4232        (sha256
4233         (base32 "1zfv4qabikf8w9winsr4brxrdvs3f0d7xvydksyx8bydadsm2v2h"))))
4234     (build-system gnu-build-system)
4235     (arguments
4236      `(#:tests? #f
4237        #:make-flags (list "CC=gcc" "all-ncurses"
4238                           (string-append "prefix="
4239                                          (assoc-ref %outputs "out")))
4240        #:phases
4241        (modify-phases %standard-phases
4242          (delete 'configure))))
4243     (inputs
4244      `(("ncurses" ,ncurses)))
4245     (home-page "https://github.com/bartobri/no-more-secrets")
4246     (synopsis "Recreation of data decryption effect in \"Sneakers\"")
4247     (description
4248      "@code{No More Secrets} provides a command line tool called \"nms\"
4249 that recreates the famous data decryption effect seen on screen in the 1992
4250 movie \"Sneakers\".
4251
4252 This command works on piped data.  Pipe any ASCII or UTF-8 text to nms, and
4253 it will apply the hollywood effect, initially showing encrypted data, then
4254 starting a decryption sequence to reveal the original plaintext characters.")
4255     (license license:expat)))
4256
4257 (define-public megaglest-data
4258   (package
4259     (name "megaglest-data")
4260     (version "3.13.0")
4261     (source
4262      (origin
4263        (method url-fetch)
4264        (uri (string-append
4265              "https://github.com/MegaGlest/megaglest-data"
4266              "/releases/download/" version "/megaglest-data-"
4267              version ".tar.xz"))
4268        (sha256
4269         (base32
4270          "0ipgza33z89fw3si32iafm981f3fvm0zldvbxj29whghd2k3rpj3"))))
4271     (build-system cmake-build-system)
4272     (arguments
4273      `(#:tests? #f))
4274     (home-page "https://megaglest.org/")
4275     (synopsis "Data files for MegaGlest")
4276     (description "This package contains the data files required for MegaGlest.")
4277     (license license:cc-by-sa3.0)))
4278
4279 (define-public megaglest
4280   (package
4281     (name "megaglest")
4282     (version "3.13.0")
4283     (source
4284      (origin
4285        (method url-fetch)
4286        (uri (string-append
4287              "https://github.com/MegaGlest/megaglest-source"
4288              "/releases/download/" version "/megaglest-source-"
4289              version ".tar.xz"))
4290        (sha256
4291         (base32
4292          "1ffck3ii1wp5k3nn5p0ga06jgp7pzk4zw0xln3xim2w7qrxzdzh9"))))
4293     (build-system cmake-build-system)
4294     (inputs
4295      `(("curl" ,curl)
4296        ("fontconfig" ,fontconfig)
4297        ("ftgl" ,ftgl)
4298        ("glew" ,glew)
4299        ("libjpeg-turbo" ,libjpeg-turbo)
4300        ("megaglest-data" ,megaglest-data)
4301        ("mesa" ,mesa)
4302        ("miniupnpc" ,miniupnpc)
4303        ("openal" ,openal)
4304        ("libircclient" ,libircclient)
4305        ("libpng" ,libpng)
4306        ("libvorbis" ,libvorbis)
4307        ("lua" ,lua)
4308        ("sdl2" ,sdl2)
4309        ("wxwidgets" ,wxwidgets)))
4310     (native-inputs
4311      `(("cppunit" ,cppunit)
4312        ("pkg-config" ,pkg-config)))
4313     (arguments
4314      `(#:configure-flags
4315        (list (string-append "-DCUSTOM_DATA_INSTALL_PATH="
4316                             (assoc-ref %build-inputs "megaglest-data")
4317                             "/share/megaglest")
4318              "-DBUILD_MEGAGLEST_TESTS=ON")
4319        #:phases
4320        (modify-phases %standard-phases
4321          (add-after 'unpack 'fix-ini-search-path
4322                     (lambda* (#:key outputs #:allow-other-keys)
4323                       (substitute* "source/glest_game/global/config.cpp"
4324                         (("/usr/share/megaglest/")
4325                          (string-append (assoc-ref outputs "out")
4326                                         "/share/megaglest/"))))))
4327        #:test-target "megaglest_tests"))
4328     (home-page "https://megaglest.org/")
4329     (synopsis "3D real-time strategy (RTS) game")
4330     (description "MegaGlest is a cross-platform 3D real-time strategy (RTS)
4331 game, where you control the armies of one of seven different factions: Tech,
4332 Magic, Egypt, Indians, Norsemen, Persian or Romans.")
4333     (license license:gpl2+)))
4334
4335 (define-public freegish
4336   (let ((commit "8795cd7adc95957883f2d3465eb9036a774667a7")
4337         (revision "1"))
4338     (package
4339       (name "freegish")
4340       (version (string-append "0-" revision "." (string-take commit 9)))
4341       (source (origin
4342                 (method git-fetch)
4343                 (uri (git-reference
4344                       (url "https://github.com/freegish/freegish.git")
4345                       (commit commit)))
4346                 (file-name (git-file-name name version))
4347                 (sha256
4348                  (base32
4349                   "1p1zf5qqagmcpi1db2bs02cnalpy3qiymp6yzan7k1bhmv859gsx"))
4350                 (modules '((guix build utils)))
4351                 ;; The audio files in the "music" directory are licensed under
4352                 ;; CC-BY-NC, so we delete them.
4353                 (snippet
4354                  '(begin
4355                     (delete-file-recursively "music")
4356                     #t))))
4357       (build-system cmake-build-system)
4358       (arguments
4359        `(#:tests? #f ; no tests included
4360          #:configure-flags
4361          (list "-DCMAKE_INSTALL_FHS=ON")
4362          #:phases
4363          (modify-phases %standard-phases
4364            (add-after 'unpack 'set-DATAPATH
4365              (lambda* (#:key outputs #:allow-other-keys)
4366                (substitute* "CMakeLists.txt"
4367                  (("^option\\(INSTALL_FHS" line)
4368                   (string-append "add_definitions(-DDATAPATH=\""
4369                                  (assoc-ref outputs "out") "/share/freegish\")\n"
4370                                  line)))
4371                #t)))))
4372       (inputs
4373        `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))
4374          ("openal" ,openal)
4375          ("libvorbis" ,libvorbis)
4376          ("libogg" ,libogg)
4377          ("mesa" ,mesa)
4378          ("libpng" ,libpng)
4379          ("zlib" ,zlib)))
4380       (home-page "https://github.com/freegish/freegish")
4381       (synopsis "Side-scrolling physics platformer with a ball of tar")
4382       (description "In FreeGish you control Gish, a ball of tar who lives
4383 happily with his girlfriend Brea, until one day a mysterious dark creature
4384 emerges from a sewer hole and pulls her below ground.")
4385       ;; The textures are available under the Expat license.  All other assets
4386       ;; (including levels) are covered under CC-BY-SA or public domain.  The
4387       ;; source code is under GPLv2+.
4388       (license (list license:gpl2+
4389                      license:expat
4390                      license:public-domain
4391                      license:cc-by-sa3.0)))))
4392
4393 (define-public cdogs-sdl
4394   (package
4395     (name "cdogs-sdl")
4396     (version "0.6.9")
4397     (source (origin
4398               (method git-fetch)
4399               (uri (git-reference
4400                     (url "https://github.com/cxong/cdogs-sdl.git")
4401                     (commit version)))
4402               (file-name (git-file-name name version))
4403               (sha256
4404                (base32
4405                 "13gyv2hzk43za1n3lsjnd5v64xlzfzq7n10scd1rcbsnk1n007zr"))))
4406     (build-system cmake-build-system)
4407     (arguments
4408      `(#:configure-flags
4409        (list (string-append "-DCDOGS_DATA_DIR="
4410                             (assoc-ref %outputs "out")
4411                             "/share/cdogs-sdl/"))))
4412     (inputs
4413      `(("mesa" ,mesa)
4414        ("sdl2" ,sdl2)
4415        ("sdl2-image" ,sdl2-image)
4416        ("sdl2-mixer" ,sdl2-mixer)))
4417     (home-page "https://cxong.github.io/cdogs-sdl/")
4418     (synopsis "Classic overhead run-and-gun game")
4419     (description "C-Dogs SDL is a classic overhead run-and-gun game,
4420 supporting up to 4 players in co-op and deathmatch modes.  Customize your
4421 player, choose from many weapons, and blast, slide and slash your way through
4422 over 100 user-created campaigns.")
4423     ;; GPLv2+ for code (includes files under BSD-2 and BSD-3),
4424     ;; CC0/CC-BY/CC-BY-SA for assets.
4425     (license (list license:gpl2+
4426                    license:bsd-2
4427                    license:bsd-3
4428                    license:cc0
4429                    license:cc-by3.0
4430                    license:cc-by-sa3.0))))
4431
4432 (define-public kiki
4433   (package
4434     (name "kiki")
4435     (version "1.0.2")
4436     (source (origin
4437               (method url-fetch)
4438               (uri (string-append "mirror://sourceforge/kiki/kiki-src/"
4439                                   version "/kiki-" version "-src.tgz"))
4440               (sha256
4441                (base32
4442                 "0ihjdsxbn8z3cz0gpcprafiipcqaiskgdnh1rhmw4qff8dszalbn"))
4443               (modules '((guix build utils)))
4444               (snippet
4445                '(begin
4446                   (for-each delete-file (find-files "." "\\.dll$"))
4447                   #t))
4448               (patches
4449                (search-patches "kiki-level-selection-crash.patch"
4450                                "kiki-makefile.patch"
4451                                "kiki-missing-includes.patch"
4452                                "kiki-portability-64bit.patch"))))
4453     (build-system gnu-build-system)
4454     (arguments
4455      `(#:tests? #f ; there are no tests
4456        #:make-flags '("CXX=g++")
4457        #:phases
4458        (modify-phases %standard-phases
4459          (replace 'configure
4460            (lambda* (#:key inputs outputs #:allow-other-keys)
4461              (setenv "CPLUS_INCLUDE_PATH"
4462                      (string-append (assoc-ref inputs "sdl-union")
4463                                     "/include/SDL:"
4464                                     (assoc-ref inputs "python")
4465                                     "/include/python2.7"))
4466              (substitute* "src/main/main.cpp"
4467                (("#include <SDL.h>" line)
4468                 (string-append line "
4469 #define K_INCLUDE_GLUT
4470 #include \"KIncludeTools.h\""))
4471                (("// initialize SDL" line)
4472                 (string-append "glutInit(&argc,argv);\n" line)))
4473              (substitute* "src/main/KikiController.cpp"
4474                (("getenv\\(\"KIKI_HOME\"\\)")
4475                 (string-append "\"" (assoc-ref outputs "out") "/share/kiki/\"")))
4476              (substitute* "linux/Makefile"
4477                (("CXXOPTS =" line)
4478                 (string-append line " -fpermissive"))
4479                (("PYTHON_VERSION=.*") "PYTHON_VERSION=2.7")
4480                (("PYTHONHOME =.*")
4481                 (string-append "PYTHONHOME = "
4482                                (assoc-ref inputs "python")
4483                                "/lib/python2.7/"))
4484                (("\\$\\(GLLIBS\\)" line)
4485                 (string-append line " -lm -lpython2.7")))
4486              (substitute* "src/main/KikiPythonWidget.h"
4487                (("#define __KikiPythonWidget" line)
4488                 (string-append line "\n#include \"KikiPython.h\"")))
4489              #t))
4490          (add-before 'build 'build-kodilib
4491            (lambda* (#:key make-flags #:allow-other-keys)
4492              (with-directory-excursion "kodilib/linux"
4493                (apply invoke "make" make-flags))))
4494          (add-after 'build-kodilib 'chdir
4495            (lambda _ (chdir "linux") #t))
4496          (replace 'install
4497            (lambda* (#:key outputs #:allow-other-keys)
4498              (let* ((out   (assoc-ref outputs "out"))
4499                     (bin   (string-append out "/bin"))
4500                     (share (string-append out "/share/kiki")))
4501                (mkdir-p bin)
4502                (mkdir-p share)
4503                (install-file "kiki" bin)
4504                (copy-recursively "../py" (string-append share "/py"))
4505                (copy-recursively "../sound" (string-append share "/sound"))
4506                #t))))))
4507     (inputs
4508      `(("glu" ,glu)
4509        ;; Kiki builds fine with freeglut 3.0.0 but segfaults on start.
4510        ("freeglut" ,freeglut-2.8)
4511        ("sdl-union" ,(sdl-union (list sdl
4512                                       sdl-mixer
4513                                       sdl-image)))
4514        ("python" ,python-2)))
4515     (native-inputs
4516      `(("swig" ,swig)))
4517     (home-page "http://kiki.sourceforge.net/")
4518     (synopsis "3D puzzle game")
4519     (description "Kiki the nano bot is a 3D puzzle game.  It is basically a
4520 mixture of the games Sokoban and Kula-World.  Your task is to help Kiki, a
4521 small robot living in the nano world, repair its maker.")
4522     ;; See <http://metadata.ftp-master.debian.org/changelogs/main/k/
4523     ;; kiki-the-nano-bot/kiki-the-nano-bot_1.0.2+dfsg1-4_copyright>
4524     ;; for a statement from the author.
4525     (license license:public-domain)))
4526
4527 (define-public kiki-the-nano-bot
4528   (deprecated-package "kiki-the-nano-bot" kiki))
4529
4530 (define-public teeworlds
4531   (package
4532     (name "teeworlds")
4533     (version "0.7.4")
4534     (source (origin
4535               (method git-fetch)
4536               (uri (git-reference
4537                     (url "https://github.com/teeworlds/teeworlds.git")
4538                     (commit version)))
4539               (file-name (git-file-name name version))
4540               (sha256
4541                (base32
4542                 "1lxdb1k2cdj2421vyz1z0ximzfnpkh2y4y84zpn2gqsa1nzwbryb"))
4543               (modules '((guix build utils)
4544                          (ice-9 ftw)
4545                          (ice-9 regex)
4546                          (srfi srfi-1)
4547                          (srfi srfi-26)))
4548               (snippet ; remove bundled libraries except md5
4549                '(let ((base-dir "src/engine/external/"))
4550                   (for-each (compose (cut delete-file-recursively <>)
4551                                      (cut string-append base-dir <>))
4552                             (remove (cut string-match "(^.)|(^md5$)" <>)
4553                                     (scandir base-dir)))
4554                   #t))))
4555     (build-system gnu-build-system)
4556     (arguments
4557      `(#:tests? #f                      ; no tests included
4558        #:modules ((guix build gnu-build-system)
4559                   (guix build utils)
4560                   (srfi srfi-26))
4561        #:phases
4562        (modify-phases %standard-phases
4563          (replace 'configure
4564            (lambda* (#:key outputs #:allow-other-keys)
4565              ;; Embed path to assets.
4566              (substitute* "src/engine/shared/storage.cpp"
4567                (("#define DATA_DIR.*")
4568                 (string-append "#define DATA_DIR \""
4569                                (assoc-ref outputs "out")
4570                                "/share/teeworlds/data"
4571                                "\"")))
4572
4573              ;; Bam expects all files to have a recent time stamp.
4574              (for-each (cut utime <> 1 1)
4575                        (find-files "."))
4576
4577              ;; Do not use bundled libraries.
4578              (substitute* "bam.lua"
4579                (("local json = Compile.+$")
4580                 "local json = nil
4581 settings.link.libs:Add(\"jsonparser\")")
4582                (("local png = Compile.+$")
4583                 "local png = nil
4584 settings.link.libs:Add(\"pnglite\")")
4585                (("local wavpack = Compile.+$")
4586                 "local wavpack = nil
4587 settings.link.libs:Add(\"wavpack\")")
4588                (("if config\\.zlib\\.value == 1")
4589                 "if config.zlib.value"))
4590              (substitute* "src/engine/client/graphics_threaded.cpp"
4591                (("engine/external/pnglite/pnglite\\.h")
4592                 "pnglite.h"))
4593              (substitute* "src/engine/client/sound.cpp"
4594                (("engine/external/wavpack/wavpack\\.h")
4595                 "wavpack/wavpack.h"))
4596              #t))
4597          (replace 'build
4598            (lambda _
4599              (invoke "bam" "-a" "-v" "conf=release")))
4600          (replace 'install
4601            (lambda* (#:key outputs #:allow-other-keys)
4602              (let* ((arch ,(system->linux-architecture
4603                             (or (%current-target-system)
4604                                 (%current-system))))
4605                     (build (string-append "build/" (if (string=? arch "i386")
4606                                                        "x86" arch)
4607                                           "/release/"))
4608                     (data-built (string-append build "data/"))
4609                     (out (assoc-ref outputs "out"))
4610                     (bin (string-append out "/bin/"))
4611                     (data (string-append out "/share/teeworlds/data/")))
4612                (for-each (cut install-file <> bin)
4613                          (map (cut string-append build <>)
4614                               '("teeworlds" "teeworlds_srv")))
4615                (copy-recursively data-built data)
4616                #t))))))
4617     (inputs
4618      `(("freetype" ,freetype)
4619        ("glu" ,glu)
4620        ("json-parser" ,json-parser)
4621        ("mesa" ,mesa)
4622        ("pnglite" ,pnglite)
4623        ("sdl2" ,sdl2)
4624        ("sdl2-image" ,sdl2-image)
4625        ("sdl2-mixer" ,sdl2-mixer)
4626        ("wavpack" ,wavpack)
4627        ("zlib" ,zlib)))
4628     (native-inputs
4629      `(("bam" ,bam)
4630        ("python" ,python-wrapper)
4631        ("pkg-config" ,pkg-config)))
4632     (home-page "https://www.teeworlds.com")
4633     (synopsis "2D retro multiplayer shooter game")
4634     (description "Teeworlds is an online multiplayer game.  Battle with up to
4635 16 players in a variety of game modes, including Team Deathmatch and Capture
4636 The Flag.  You can even design your own maps!")
4637     (license license:bsd-3)))
4638
4639 (define-public enigma
4640   (package
4641     (name "enigma")
4642     (version "1.21")
4643     (source (origin
4644               (method url-fetch)
4645               (uri (string-append "mirror://sourceforge/enigma-game/"
4646                                   "Release%20" version "/enigma-"
4647                                   version ".tar.gz"))
4648               (sha256
4649                (base32
4650                 "00ffh9pypj1948pg3q9sjp1nmiabh52p5c8wpg9n1dcfgl3cywnq"))))
4651     (build-system gnu-build-system)
4652     (arguments
4653      `(#:configure-flags
4654        (list "--with-system-enet")
4655        #:phases
4656        (modify-phases %standard-phases
4657          (add-after 'unpack 'find-sdl
4658            (lambda _
4659              (substitute* "configure"
4660                (("SDL_ttf.h") "SDL/SDL_ttf.h"))
4661              (substitute* '("tools/ttf2bmf.cc"
4662                             "lib-src/enigma-core/ecl_font.cc"
4663                             "lib-src/enigma-core/ecl_video.cc"
4664                             "lib-src/enigma-core/ecl_buffer.hh"
4665                             "src/SoundEngine.cc"
4666                             "src/SoundEngine.hh"
4667                             "src/MusicManager.cc"
4668                             "src/MusicManager.hh"
4669                             "src/d_models.cc"
4670                             "src/main.cc"
4671                             "src/network.cc")
4672                (("#include \"SDL_(image|ttf|mixer|types|syswm|mutex).h\"" line header)
4673                 (string-append "#include \"SDL/SDL_" header ".h\"")))
4674              (substitute* "src/main.cc"
4675                (("#include <SDL_(image|ttf|mixer).h>" line header)
4676                 (string-append "#include \"SDL/SDL_" header ".h\"")))
4677              #t)))))
4678     (inputs
4679      `(("xerces-c" ,xerces-c)
4680        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
4681        ("curl" ,curl)
4682        ("enet" ,enet)))
4683     (native-inputs
4684      `(("pkg-config" ,pkg-config)
4685        ("imagemagick" ,imagemagick)))
4686     (home-page "https://www.nongnu.org/enigma")
4687     (synopsis "Puzzle game with a dexterity component")
4688     (description "Enigma is a puzzle game with 550 unique levels.  The object
4689 of the game is to find and uncover pairs of identically colored ‘Oxyd’ stones.
4690 Simple?  Yes.  Easy?  Certainly not!  Hidden traps, vast mazes, laser beams,
4691 and most of all, countless hairy puzzles usually block your direct way to the
4692 Oxyd stones.  Enigma’s game objects (and there are hundreds of them, lest you
4693 get bored) interact in many unexpected ways, and since many of them follow the
4694 laws of physics (Enigma’s special laws of physics, that is), controlling them
4695 with the mouse isn’t always trivial.")
4696     (license license:gpl2+)))
4697
4698 (define-public chroma
4699   (package
4700     (name "chroma")
4701     (version "1.17")
4702     (source (origin
4703               (method url-fetch)
4704               (uri (string-append "http://level7.org.uk/chroma/download/chroma-"
4705                                   version ".tar.bz2"))
4706               (sha256
4707                (base32
4708                 "047sf00x71xbmi8bqrhfbmr9bk89l2gbykkqsfpw4wz6yfjscs6y"))))
4709     (build-system gnu-build-system)
4710     (arguments
4711      `(#:tests? #f))                    ; no tests included
4712     (inputs
4713      `(("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
4714        ("freetype" ,freetype)
4715        ("ncurses" ,ncurses)
4716        ("fontconfig" ,fontconfig)
4717        ("libxft" ,libxft)))
4718     (native-inputs
4719      `(("pkg-config" ,pkg-config)))
4720     (home-page "http://level7.org.uk/chroma/")
4721     (synopsis "Abstract puzzle game")
4722     (description "Chroma is an abstract puzzle game. A variety of colourful
4723 shapes are arranged in a series of increasingly complex patterns, forming
4724  fiendish traps that must be disarmed and mysterious puzzles that must be
4725  manipulated in order to give up their subtle secrets. Initially so
4726  straightforward that anyone can pick it up and begin to play, yet gradually
4727  becoming difficult enough to tax even the brightest of minds.")
4728     (license license:gpl2+)))
4729
4730 (define-public fillets-ng
4731   (package
4732     (name "fillets-ng")
4733     (version "1.0.1")
4734     (source (origin
4735               (method url-fetch)
4736               (uri (string-append "mirror://sourceforge/fillets/"
4737                                   "Fish%20Fillets%20-%20Next%20Generation/"
4738                                   version "/fillets-ng-" version ".tar.gz"))
4739               (sha256
4740                (base32
4741                 "1nljp75aqqb35qq3x7abhs2kp69vjcj0h1vxcpdyn2yn2nalv6ij"))))
4742     (build-system gnu-build-system)
4743     (arguments
4744      `(#:configure-flags
4745        (list (string-append "--with-lua="
4746                             (assoc-ref %build-inputs "lua")))
4747        #:make-flags
4748        (list (string-append "CFLAGS=-I"
4749                             (assoc-ref %build-inputs "sdl-union")
4750                             "/include/SDL")
4751              (string-append "CXXFLAGS=-I"
4752                             (assoc-ref %build-inputs "sdl-union")
4753                             "/include/SDL"))
4754        #:phases
4755        (modify-phases %standard-phases
4756          ;; Lua 5.1 does not provide it.
4757          (add-after 'unpack 'do-not-link-with-lualib
4758            (lambda _
4759              (substitute* "configure"
4760                (("-llualib") ""))
4761              #t))
4762          (add-after 'install 'install-data
4763            (lambda* (#:key inputs outputs #:allow-other-keys)
4764              (let ((data (string-append (assoc-ref outputs "out")
4765                                         "/share/games/fillets-ng")))
4766                (mkdir-p data)
4767                (invoke "tar" "-xvf"
4768                        (assoc-ref inputs "fillets-ng-data")
4769                        "--strip-components=1"
4770                        "-C" data)))))))
4771     (inputs
4772      `(("sdl-union" ,(sdl-union (list sdl
4773                                       sdl-mixer
4774                                       sdl-image
4775                                       sdl-ttf)))
4776        ("fribidi" ,fribidi)
4777        ("libx11" ,libx11)
4778        ("lua" ,lua-5.1)))
4779     (native-inputs
4780      `(("pkg-config" ,pkg-config)
4781        ("fillets-ng-data"
4782         ,(origin
4783            (method url-fetch)
4784            (uri (string-append "mirror://sourceforge/fillets/"
4785                                "Fish%20Fillets%20-%20Next%20Generation/"
4786                                version "/fillets-ng-data-" version ".tar.gz"))
4787            (sha256
4788             (base32
4789              "169p0yqh2gxvhdilvjc2ld8aap7lv2nhkhkg4i1hlmgc6pxpkjgh"))))))
4790     (home-page "http://fillets.sourceforge.net/")
4791     (synopsis "Puzzle game")
4792     (description "Fish Fillets NG is strictly a puzzle game.  The goal in
4793 every of the seventy levels is always the same: find a safe way out.  The fish
4794 utter witty remarks about their surroundings, the various inhabitants of their
4795 underwater realm quarrel among themselves or comment on the efforts of your
4796 fish.  The whole game is accompanied by quiet, comforting music.")
4797     (license license:gpl2+)))
4798
4799 (define-public fish-fillets-ng
4800   (deprecated-package "fish-fillets-ng" fillets-ng))
4801
4802 (define-public crawl
4803   (package
4804     (name "crawl")
4805     (version "0.24.0")
4806     (source
4807      (origin
4808        (method url-fetch)
4809        (uri (list
4810              ;; Older releases get moved into a versioned directory
4811              (string-append "http://crawl.develz.org/release/"
4812                             (version-major+minor version) "/stone_soup-"
4813                             version "-nodeps.tar.xz")
4814              ;; Only the latest release is in this directory
4815              (string-append "http://crawl.develz.org/release/stone_soup-"
4816                             version "-nodeps.tar.xz")))
4817        (sha256
4818         (base32 "0kdq6s12myxfdg75ma9x3ys2nd0xwb3xm2ynlmhg4628va0pnixr"))
4819        (patches (search-patches "crawl-upgrade-saves.patch"))))
4820     (build-system gnu-build-system)
4821     (inputs
4822      `(("lua51" ,lua-5.1)
4823        ("ncurses" ,ncurses)
4824        ("sqlite" ,sqlite)
4825        ("zlib" ,zlib)))
4826     (native-inputs
4827      `(("bison" ,bison)
4828        ("flex" ,flex)
4829        ("perl" ,perl)
4830        ("python" ,python-wrapper)
4831        ("python-pyyaml" ,python-pyyaml)
4832        ("pkg-config" ,pkg-config)))
4833     (arguments
4834      `(#:make-flags
4835        (let* ((sqlite (assoc-ref %build-inputs "sqlite"))
4836               (out (assoc-ref %outputs "out")))
4837          (list (string-append "SQLITE_INCLUDE_DIR=" sqlite "/include")
4838                (string-append "prefix=" out)
4839                "SAVEDIR=~/.crawl"
4840                ;; Don't compile with SSE on systems which don't have it.
4841                ,@(match (%current-system)
4842                    ((or "i686-linux" "x86_64-linux")
4843                     '())
4844                    (_ '("NOSSE=TRUE")))
4845                ;; don't build any bundled dependencies
4846                "BUILD_LUA="
4847                "BUILD_SQLITE="
4848                "BUILD_ZLIB="
4849                "-Csource"))
4850        #:phases
4851        (modify-phases %standard-phases
4852          (add-after 'unpack 'find-SDL-image
4853            (lambda _
4854              (substitute* "source/windowmanager-sdl.cc"
4855                (("SDL_image.h") "SDL2/SDL_image.h"))
4856              #t))
4857          (delete 'configure)
4858          (replace 'check
4859            (lambda* (#:key inputs outputs make-flags #:allow-other-keys)
4860              (setenv "HOME" (getcwd))
4861              ;; Fake a terminal for the test cases.
4862              (setenv "TERM" "xterm-256color")
4863              ;; Run the tests that don't require a debug build.
4864              (apply invoke "make" "nondebugtest"
4865                     (format #f "-j~d" (parallel-job-count))
4866                     ;; Force command line build for test cases.
4867                     (append make-flags '("GAME=crawl" "TILES="))))))))
4868     (synopsis "Roguelike dungeon crawler game")
4869     (description "Dungeon Crawl Stone Soup (also known as \"Crawl\" or DCSS
4870 for short) is a roguelike adventure through dungeons filled with dangerous
4871 monsters in a quest to find the mystifyingly fabulous Orb of Zot.")
4872     (home-page "https://crawl.develz.org")
4873     (license (list license:gpl2+
4874                    license:bsd-2
4875                    license:bsd-3
4876                    license:cc0
4877                    license:expat
4878                    license:zlib
4879                    license:asl2.0))))
4880
4881 (define-public dungeon-crawl-stone-soup
4882   (deprecated-package "dungeon-crawl-stone-soup" crawl))
4883
4884 ;; The linter here claims that patch file names should start with the package
4885 ;; name. But, in this case, the patches are inherited from crawl with the
4886 ;; "crawl-" prefix instead of "crawl-tiles-".
4887 (define-public crawl-tiles
4888   (package
4889     (inherit crawl)
4890     (name "crawl-tiles")
4891     (arguments
4892      (substitute-keyword-arguments
4893          (package-arguments crawl)
4894        ((#:make-flags flags)
4895         `(let ((dejavu (assoc-ref %build-inputs "font-dejavu")))
4896            (cons*
4897             (string-append "PROPORTIONAL_FONT=" dejavu
4898                            "/share/fonts/truetype/DejaVuSans.ttf")
4899             (string-append "MONOSPACED_FONT=" dejavu
4900                            "/share/fonts/truetype/DejaVuSansMono.ttf")
4901             "TILES=y"
4902             ;; Rename the executable to allow parallel installation with crawl.
4903             "GAME=crawl-tiles"
4904             ,flags)))))
4905     (inputs
4906      `(,@(package-inputs crawl)
4907        ("font-dejavu" ,font-dejavu)
4908        ("freetype6" ,freetype)
4909        ("glu" ,glu)
4910        ("libpng" ,libpng)
4911        ("sdl2" ,sdl2)
4912        ("sdl2-image" ,sdl2-image)
4913        ("sdl2-mixer" ,sdl2-mixer)))
4914     (native-inputs
4915      `(,@(package-native-inputs crawl)
4916        ("pngcrush" ,pngcrush)
4917        ("which" ,which)))
4918     (synopsis "Graphical roguelike dungeon crawler game")))
4919
4920 (define-public dungeon-crawl-stone-soup-tiles
4921   (deprecated-package "dungeon-crawl-stone-soup-tiles" crawl-tiles))
4922
4923 (define-public lugaru
4924   (package
4925     (name "lugaru")
4926     (version "1.2")
4927     (source (origin
4928               (method url-fetch)
4929               (uri (string-append "https://bitbucket.org/osslugaru/lugaru/downloads/"
4930                                   "lugaru-" version ".tar.xz"))
4931               (sha256
4932                (base32
4933                 "15zgcshy22q51rm72zi6y9z7qlgnz5iw3gczjdlir4bqmxy4gspk"))))
4934     (build-system cmake-build-system)
4935     (arguments
4936      `(#:configure-flags
4937        (list "-DSYSTEM_INSTALL=ON")
4938        ;; no test target
4939        #:tests? #f))
4940     (native-inputs
4941      `(("pkg-config" ,pkg-config)))
4942     (inputs
4943      `(("sdl2" ,sdl2)
4944        ("glu" ,glu)
4945        ("libjpeg" ,libjpeg-turbo)
4946        ("libpng" ,libpng)
4947        ("openal" ,openal)
4948        ("vorbis" ,libvorbis)
4949        ("zlib" ,zlib)))
4950     (home-page "https://osslugaru.gitlab.io")
4951     (synopsis "Cross-platform third-person action game")
4952     (description "Lugaru is a third-person action game.  The main character,
4953 Turner, is an anthropomorphic rebel bunny rabbit with impressive combat skills.
4954 In his quest to find those responsible for slaughtering his village, he uncovers
4955 a far-reaching conspiracy involving the corrupt leaders of the rabbit republic
4956 and the starving wolves from a nearby den.  Turner takes it upon himself to
4957 fight against their plot and save his fellow rabbits from slavery.")
4958     (license (list license:gpl2+ ; code
4959                    ;; assets:
4960                    license:cc-by-sa3.0
4961                    license:cc-by-sa4.0))))
4962
4963 (define-public 0ad-data
4964   (package
4965     (name "0ad-data")
4966     (version "0.0.23b-alpha")
4967     (source
4968      (origin
4969        (method url-fetch)
4970        (uri (string-append "https://releases.wildfiregames.com/0ad-"
4971                            version "-unix-data.tar.xz"))
4972        (file-name (string-append name "-" version ".tar.xz"))
4973        (sha256
4974         (base32
4975          "04x7729hk6zw1xj3n4s4lvaviijsnbjf5rhzvjxlr5fygvg4l6z1"))
4976        (modules '((guix build utils)))
4977        (snippet
4978         #~(begin
4979             (for-each (lambda (name)
4980                         (let* ((dir (string-append "binaries/data/mods/" name))
4981                                (file (string-append dir "/" name ".zip"))
4982                                (unzip #$(file-append unzip "/bin/unzip")))
4983                           (invoke unzip "-d" dir file)
4984                           (delete-file file)))
4985                       '("mod" "public"))
4986             #t))))
4987     (build-system trivial-build-system)
4988     (native-inputs `(("tar" ,tar)
4989                      ("xz" ,xz)))
4990     (arguments
4991      `(#:modules ((guix build utils))
4992        #:builder
4993        (begin
4994          (use-modules (guix build utils))
4995          (let ((out (assoc-ref %outputs "out"))
4996                (source (assoc-ref %build-inputs "source"))
4997                (tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
4998                (xz-path (string-append (assoc-ref %build-inputs "xz") "/bin")))
4999            (setenv "PATH" xz-path)
5000            (mkdir out)
5001            (invoke tar "xvf" source "-C" out "--strip=3")))))
5002     (synopsis "Data files for 0ad")
5003     (description "0ad-data provides the data files required by the game 0ad.")
5004     (home-page "https://play0ad.com")
5005     (license (list (license:fsdg-compatible
5006                     "http://tavmjong.free.fr/FONTS/ArevCopyright.txt"
5007                     "Similar to the license of the Bitstream Vera fonts.")
5008                    (license:fsdg-compatible
5009                     "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts")
5010                    license:cc-by-sa3.0
5011                    license:expat
5012                    license:gfl1.0
5013                    license:gpl2+
5014                    license:gpl3+))))
5015
5016 (define-public 0ad
5017   (package
5018     (name "0ad")
5019     (version "0.0.23b-alpha")
5020     (source
5021      (origin
5022        (method url-fetch)
5023        (uri (string-append "https://releases.wildfiregames.com/0ad-"
5024                            version "-unix-build.tar.xz"))
5025        (file-name (string-append name "-" version ".tar.xz"))
5026        (sha256
5027         (base32
5028          "0draa53xg69i5qhqym85658m45xhwkbiimaldj4sr3703rjgggq1"))))
5029        ;; A snippet here would cause a build failure because of timestamps
5030        ;; reset.  See https://bugs.gnu.org/26734.
5031     (inputs
5032      `(("0ad-data" ,0ad-data)
5033        ("curl" ,curl)
5034        ("enet" ,enet)
5035        ("gloox" ,gloox)
5036        ("icu4c" ,icu4c)
5037        ("libpng" ,libpng)
5038        ("libsodium" ,libsodium)
5039        ("libvorbis" ,libvorbis)
5040        ("libxcursor" ,libxcursor)
5041        ("libxml2" ,libxml2)
5042        ("miniupnpc" ,miniupnpc)
5043        ("mozjs-38" ,mozjs-38)
5044        ("openal" ,openal)
5045        ("sdl2" ,sdl2)
5046        ("wxwidgets" ,wxwidgets)
5047        ("zlib" ,zlib)))
5048     (native-inputs
5049      `(("boost" ,boost)
5050        ("cmake" ,cmake-minimal)
5051        ("mesa" ,mesa)
5052        ("pkg-config" ,pkg-config)
5053        ("python-2" ,python-2)))
5054     (build-system gnu-build-system)
5055     (arguments
5056      `(#:make-flags '("config=release" "verbose=1" "-C" "build/workspaces/gcc")
5057        #:phases
5058        (modify-phases %standard-phases
5059          (add-after 'unpack 'delete-bundles
5060            (lambda _
5061              (delete-file-recursively "libraries/source/spidermonkey")
5062              #t))
5063          (add-after 'unpack 'fix-x11-includes
5064            (lambda _
5065              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5066                (("<Xlib.h>") "<X11/Xlib.h>"))
5067              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5068                (("<Xatom.h>") "<X11/Xatom.h>"))
5069              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5070                (("<Xcursor/Xcursor.h>") "<X11/Xcursor/Xcursor.h>"))
5071              #t))
5072          (replace 'configure
5073            (lambda* (#:key inputs outputs #:allow-other-keys)
5074              (let* ((jobs (number->string (parallel-job-count)))
5075                     (out (assoc-ref outputs "out"))
5076                     (lib (string-append out "/lib"))
5077                     (data (string-append out "/share/0ad")))
5078                (setenv "JOBS" (string-append "-j" jobs))
5079                (setenv "CC" "gcc")
5080                (with-directory-excursion "build/workspaces"
5081                  (invoke "./update-workspaces.sh"
5082                          (string-append "--libdir=" lib)
5083                          (string-append "--datadir=" data)
5084                          ;; TODO: "--with-system-nvtt"
5085                          "--with-system-mozjs38")))))
5086          (delete 'check)
5087          (replace 'install
5088            (lambda* (#:key inputs outputs #:allow-other-keys)
5089              (chdir "binaries")
5090              (let* ((out (assoc-ref outputs "out"))
5091                     (bin (string-append out "/bin"))
5092                     (lib (string-append out "/lib"))
5093                     (data (string-append out "/share/0ad"))
5094                     (applications (string-append out "/share/applications"))
5095                     (pixmaps (string-append out "/share/pixmaps"))
5096                     (0ad-data (assoc-ref inputs "0ad-data")))
5097                ;; data
5098                (copy-recursively "data" data)
5099                (for-each (lambda (file)
5100                            (symlink (string-append 0ad-data "/" file)
5101                                     (string-append data "/" file)))
5102                          '("config" "mods/mod" "mods/public" "tools"))
5103                ;; libraries
5104                (for-each (lambda (file)
5105                            (install-file file lib))
5106                          (find-files "system" "\\.so$"))
5107                ;; binaries
5108                (install-file "system/pyrogenesis" bin)
5109                (with-directory-excursion bin
5110                  (symlink "pyrogenesis" "0ad"))
5111                ;; resources
5112                (with-directory-excursion "../build/resources"
5113                  (install-file "0ad.desktop" applications)
5114                  (install-file "0ad.png" pixmaps))
5115                #t)))
5116          (add-after 'install 'check
5117            (lambda _
5118              (with-directory-excursion "system"
5119                (invoke "./test")))))))
5120     (home-page "https://play0ad.com")
5121     (synopsis "3D real-time strategy game of ancient warfare")
5122     (description "0 A.D. is a real-time strategy (RTS) game of ancient
5123 warfare.  It's a historically-based war/economy game that allows players to
5124 relive or rewrite the history of twelve ancient civilizations, each depicted
5125 at their peak of economic growth and military prowess.
5126
5127 0ad needs a window manager that supports 'Extended Window Manager Hints'.")
5128     (license (list license:bsd-2
5129                    license:bsd-3
5130                    license:expat
5131                    license:gpl2+
5132                    license:ibmpl1.0
5133                    license:isc
5134                    license:lgpl2.1
5135                    license:lgpl3
5136                    license:mpl2.0
5137                    license:zlib))))
5138
5139 ;; There have been no official releases.
5140 (define-public open-adventure
5141   (let* ((commit "d43854f0f6bb8e9eea7fbce80348150e7e7fc34d")
5142          (revision "2"))
5143     (package
5144       (name "open-adventure")
5145       (version (string-append "2.5-" revision "." (string-take commit 7)))
5146       (source (origin
5147                 (method git-fetch)
5148                 (uri (git-reference
5149                       (url "https://gitlab.com/esr/open-adventure")
5150                       (commit commit)))
5151                 (file-name (string-append name "-" version "-checkout"))
5152                 (sha256
5153                  (base32
5154                   "08bwrvf4axb1rsfd6ia1fddsky9pc1p350vjskhaakg2czc6dsk0"))))
5155       (build-system gnu-build-system)
5156       (arguments
5157        `(#:make-flags (list "CC=gcc")
5158          #:parallel-build? #f ; not supported
5159          #:phases
5160          (modify-phases %standard-phases
5161            (replace 'configure
5162              (lambda* (#:key inputs outputs #:allow-other-keys)
5163                ;; Linenoise is meant to be included, so we have to
5164                ;; copy it into the working directory.
5165                (let* ((linenoise (assoc-ref inputs "linenoise"))
5166                       (noisepath (string-append linenoise "/include/linenoise"))
5167                       (out (assoc-ref outputs "out")))
5168                  (copy-recursively noisepath "linenoise"))
5169                #t))
5170            (add-before 'build 'use-echo
5171              (lambda _
5172                (substitute* "tests/Makefile"
5173                  (("/bin/echo") (which "echo")))
5174                #t))
5175            (add-after 'build 'build-manpage
5176              (lambda _
5177                ;; This target is missing a dependency
5178                (substitute* "Makefile"
5179                  ((".adoc.6:" line)
5180                   (string-append line " advent.adoc")))
5181                (invoke "make" ".adoc.6")))
5182            ;; There is no install target
5183            (replace 'install
5184              (lambda* (#:key outputs #:allow-other-keys)
5185                (let* ((out (assoc-ref outputs "out"))
5186                       (bin (string-append out "/bin"))
5187                       (man (string-append out "/share/man/man6")))
5188                  (install-file "advent" bin)
5189                  (install-file "advent.6" man))
5190                #t)))))
5191       (native-inputs
5192        `(("asciidoc" ,asciidoc)
5193          ("linenoise" ,linenoise)
5194          ("python" ,python)
5195          ("python-pyyaml" ,python-pyyaml)))
5196       (home-page "https://gitlab.com/esr/open-adventure")
5197       (synopsis "Colossal Cave Adventure")
5198       (description "The original Colossal Cave Adventure from 1976 was the
5199 origin of all text adventures, dungeon-crawl (computer) games, and
5200 computer-hosted roleplaying games.  This is the last version released by
5201 Crowther & Woods, its original authors, in 1995.  It has been known as
5202 \"adventure 2.5\" and \"430-point adventure\".")
5203       (license license:bsd-2))))
5204
5205 (define-public tome4
5206   (package
5207     (name "tome4")
5208     (version "1.6.6")
5209     (synopsis "Single-player, RPG roguelike game set in the world of Eyal")
5210     (source
5211      (origin
5212        (method url-fetch)
5213        (uri (string-append "https://te4.org/dl/t-engine/t-engine4-src-"
5214                            version ".tar.bz2"))
5215        (sha256
5216         (base32
5217          "1amx0y49scy9hq71wjvkdzvgclwa2g54vkv4bf40mxyp4pl0bq7m"))
5218        (modules '((guix build utils)))
5219        (snippet
5220         '(begin
5221            (substitute* '("src/music.h" "src/tSDL.h")
5222              (("#elif defined(__FreeBSD__)" line)
5223               (string-append
5224                line " || defined(__GNUC__)")))
5225            (substitute* '("src/tgl.h")
5226              (("#include <GL/glext.h>") ""))
5227            #t))))
5228     (build-system gnu-build-system)
5229     (native-inputs
5230      `(("unzip" ,unzip)))
5231     (inputs
5232      `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
5233        ("glu" ,glu)
5234        ("premake4" ,premake4)
5235        ("openal" ,openal)
5236        ("vorbis" ,libvorbis)
5237        ("luajit" ,luajit)))
5238     (arguments
5239      `(#:make-flags '("CC=gcc" "config=release")
5240        ;; XXX: Building in parallel occasionally causes this build failure:
5241        ;;   ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h:
5242        ;;   No such file or directory
5243        #:parallel-build? #f
5244        #:phases (modify-phases %standard-phases
5245                   (delete 'bootstrap)
5246                   (replace 'configure
5247                     (lambda _
5248                       (invoke "premake4" "gmake")
5249                       #t))
5250                   (add-after 'set-paths 'set-sdl-paths
5251                     (lambda* (#:key inputs #:allow-other-keys)
5252                       (setenv "CPATH"
5253                               (string-append (assoc-ref inputs "sdl-union")
5254                                              "/include/SDL2:"
5255                                              (getenv "CPATH")))
5256                       #t))
5257                   (delete 'check)
5258                   ;; premake doesn't provide install target
5259                   (replace 'install
5260                     (lambda* (#:key inputs outputs #:allow-other-keys)
5261                       (let* ((out (assoc-ref outputs "out"))
5262                              (usr (string-append out "/usr"))
5263                              (bin (string-append out "/bin"))
5264                              (licenses (string-append out "/share/licenses"))
5265                              (documents (string-append out "/share/doc"))
5266                              (pixmaps (string-append out "/share/pixmaps"))
5267                              (icon "te4-icon.png")
5268                              (data (string-append out "/share/" ,name))
5269                              (applications (string-append
5270                                             out "/share/applications"))
5271                              (unzip (string-append
5272                                      (assoc-ref inputs "unzip") "/bin/unzip"))
5273                              (wrapper (string-append bin "/" ,name)))
5274                         ;; icon
5275                         (mkdir-p pixmaps)
5276                         (invoke unzip "-j"
5277                                 (string-append
5278                                  "game/engines/te4-" ,version ".teae")
5279                                 (string-append
5280                                  "data/gfx/" icon) "-d" pixmaps)
5281                         ;; game executable
5282                         (install-file "t-engine" data)
5283                         (mkdir-p bin)
5284                         (with-output-to-file wrapper
5285                           (lambda ()
5286                             (display
5287                              (string-append
5288                               "#!/bin/sh\n"
5289                               ;; No bootstrap code found,
5290                               ;; defaulting to working directory
5291                               ;; for engine code!
5292                               "cd " data "\n"
5293                               "exec -a tome4 ./t-engine \"$@\"\n"))))
5294                         (chmod wrapper #o555)
5295                         ;; licenses
5296                         (for-each (lambda (file)
5297                                     (install-file file licenses))
5298                                   '("COPYING" "COPYING-MEDIA"))
5299                         ;; documents
5300                         (for-each (lambda (file)
5301                                     (install-file file documents))
5302                                   '("CONTRIBUTING" "CREDITS"))
5303                         ;; data
5304                         (copy-recursively "bootstrap" (string-append
5305                                                        data "/bootstrap"))
5306                         (copy-recursively "game" (string-append data "/game"))
5307                         ;; launcher
5308                         (mkdir-p applications)
5309                         (make-desktop-entry-file
5310                          (string-append applications "/" ,name ".desktop")
5311                          #:name "ToME4"
5312                          #:comment ,synopsis
5313                          #:exec ,name
5314                          #:icon icon
5315                          #:categories '("Game" "RolePlaying")))
5316                       #t)))))
5317     (home-page "https://te4.org")
5318     (description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based
5319 combat and advanced character building.  Play as one of many unique races and
5320 classes in the lore-filled world of Eyal, exploring random dungeons, facing
5321 challenging battles, and developing characters with your own tailored mix of
5322 abilities and powers.  With a modern graphical and customisable interface,
5323 intuitive mouse control, streamlined mechanics and deep, challenging combat,
5324 Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
5325     (license license:gpl3+)))
5326
5327 (define-public tales-of-maj-eyal
5328   (deprecated-package "tales-of-maj-eyal" tome4))
5329
5330 (define-public quakespasm
5331   (package
5332     (name "quakespasm")
5333     (version "0.93.2")
5334     (source
5335      (origin
5336        (method url-fetch)
5337        (uri (string-append "mirror://sourceforge/quakespasm/Source/quakespasm-"
5338                            version ".tgz"))
5339        (sha256
5340         (base32 "0qm0j5drybvvq8xadfyppkpk3rxqsxbywzm6iwsjwdf0iia3gss5"))))
5341     (arguments
5342      `(#:tests? #f
5343        #:make-flags '("CC=gcc"
5344                       "MP3LIB=mpg123"
5345                       "USE_CODEC_FLAC=1"
5346                       "USE_CODEC_MIKMOD=1"
5347                       "USE_SDL2=1"
5348                       "-CQuake")
5349        #:phases (modify-phases %standard-phases
5350                   (delete 'configure)
5351                   (add-after 'unpack 'fix-makefile-paths
5352                     (lambda* (#:key outputs #:allow-other-keys)
5353                       (let ((out (assoc-ref outputs "out")))
5354                         (mkdir-p (string-append out "/bin"))
5355                         (substitute* "Quake/Makefile"
5356                           (("/usr/local/games")
5357                            (string-append out "/bin")))
5358                         #t))))))
5359     (build-system gnu-build-system)
5360     (inputs `(("libmikmod" ,libmikmod)
5361               ("libvorbis" ,libvorbis)
5362               ("flac" ,flac)
5363               ("mesa" ,mesa)
5364               ("mpg123" ,mpg123)
5365               ("sdl2" ,sdl2)))
5366     (synopsis "First person shooter engine for Quake 1")
5367     (description "Quakespasm is a modern engine for id software's Quake 1.
5368 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5369 some graphical niceities, and numerous bug-fixes and other improvements.")
5370     (home-page "http://quakespasm.sourceforge.net/")
5371     (license license:gpl2+)))
5372
5373 (define-public vkquake
5374   (package
5375     (inherit quakespasm)
5376     (name "vkquake")
5377     (version "1.01.0")
5378     (source
5379      (origin
5380        (method git-fetch)
5381        (uri (git-reference
5382              (url "https://github.com/Novum/vkQuake.git")
5383              (commit version)))
5384        (file-name (git-file-name name version))
5385        (sha256
5386         (base32 "1iwin8j5kbyrknbkhjgpy8nmm7pxqzr0daa9gn7p38qhg2mh0a39"))))
5387     (arguments
5388      `(#:make-flags
5389        (let ((vulkanlib (string-append (assoc-ref %build-inputs
5390                                                   "vulkan-loader") "/lib")))
5391          (list "CC=gcc"
5392                "MP3LIB=mpg123"
5393                "USE_CODEC_FLAC=1"
5394                "USE_CODEC_MIKMOD=1"
5395                "USE_SDL2=1"
5396                (string-append "LDFLAGS=-Wl,-rpath=" vulkanlib)
5397                "-CQuake"))
5398        #:phases (modify-phases %standard-phases
5399                   (delete 'configure)
5400                   (add-after 'unpack 'fix-makefile-paths
5401                     (lambda* (#:key outputs #:allow-other-keys)
5402                       (let ((vulkan (assoc-ref %build-inputs
5403                                                "vulkan-loader"))
5404                             (out (assoc-ref outputs "out")))
5405                         (mkdir-p (string-append out "/bin"))
5406                         (substitute* "Quake/Makefile" ((" /usr")
5407                                                        (string-append " " out)))
5408                         (substitute* "Quake/Makefile" (("/games")
5409                                                        (string-append "/bin")))
5410                         (substitute* "Quake/Makefile" (("..VULKAN_SDK.") vulkan))
5411                         #t))))
5412        ,@(strip-keyword-arguments '(#:make-flags #:phases)
5413                                   (package-arguments quakespasm))))
5414     (inputs `(("vulkan-headers" ,vulkan-headers)
5415               ("vulkan-loader" ,vulkan-loader)
5416               ,@(package-inputs quakespasm)))
5417     (description "vkquake is a modern engine for id software's Quake 1.
5418 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5419 some graphical niceities, and numerous bug-fixes and other improvements.")
5420     (home-page "https://github.com/Novum/vkQuake")))
5421
5422 (define-public yamagi-quake2
5423   (package
5424     (name "yamagi-quake2")
5425     (version "7.10")
5426     (source
5427      (origin
5428        (method url-fetch)
5429        (uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
5430                            version ".tar.xz"))
5431        (sha256
5432         (base32
5433          "0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
5434     (build-system gnu-build-system)
5435     (arguments
5436      `(#:tests? #f
5437        #:make-flags
5438        (list "CC=gcc"
5439              ;; link openAL instead of using dlopen at runtime
5440              "DLOPEN_OPENAL=\"no\""
5441              ;; an optional directory where it will look for quake2 data files
5442              ;; in addition to the current working directory
5443              "WITH_SYSTEMWIDE=yes"
5444              "WITH_SYSTEMDIR=\"/opt/quake2\"")
5445        #:phases
5446        (modify-phases %standard-phases
5447          (delete 'configure)
5448          (replace 'install
5449            (lambda* (#:key outputs #:allow-other-keys)
5450              (let ((out (assoc-ref outputs "out")))
5451                (mkdir-p (string-append out "/lib"))
5452                (mkdir-p (string-append out "/bin"))
5453                ;; The yamagi-quake2 binary must be in the same directory
5454                ;; as it's engine libraries, but symlinking it to /bin is okay
5455                ;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
5456                (copy-recursively "release"
5457                                  (string-append out "/lib/yamagi-quake2"))
5458                (symlink (string-append out "/lib/yamagi-quake2/quake2")
5459                         (string-append out "/bin/yamagi-quake2"))
5460                (symlink (string-append out "/lib/yamagi-quake2/q2ded")
5461                         (string-append out "/bin/yamagi-q2ded"))))))))
5462     (inputs `(("sdl2" ,sdl2)
5463               ("mesa" ,mesa)
5464               ("libvorbis" ,libvorbis)
5465               ("zlib" ,zlib)
5466               ("openal" ,openal)))
5467     (native-inputs `(("pkg-config" ,pkg-config)))
5468     (synopsis "First person shooter engine based on quake2")
5469     (description "Yamagi Quake II is an enhanced client for id Software's Quake II.
5470 The main focus is an unchanged single player experience like back in 1997,
5471 thus the gameplay and the graphics are unaltered.  However the user may use one
5472 of the unofficial retexturing packs.  In comparison with the official client,
5473 over 1000 bugs were fixed and an extensive code audit done,
5474 making Yamagi Quake II one of the most solid Quake II implementations available.")
5475     (home-page "https://www.yamagi.org/quake2/")
5476     (license (list license:gpl2+         ; game and server
5477                    (license:non-copyleft ; info-zip
5478                     "file://LICENSE"
5479                     "See Info-Zip section.")
5480                    license:public-domain)))) ; stb
5481
5482 (define-public nudoku
5483   (package
5484     (name "nudoku")
5485     (version "1.0.0")
5486     (source (origin
5487               (method url-fetch)
5488               (uri (string-append "https://github.com/jubalh/nudoku/"
5489                                   "releases/download/" version
5490                                   "/nudoku-" version ".tar.xz"))
5491               (sha256
5492                (base32
5493                 "0nr2j2z07nxk70s8xnmmpzccxicf7kn5mbwby2kg6aq8paarjm8k"))))
5494     (build-system gnu-build-system)
5495     (inputs `(("ncurses" ,ncurses)))
5496     (home-page "https://jubalh.github.io/nudoku/")
5497     (synopsis "Sudoku for your terminal")
5498     (description "Nudoku is a ncurses-based Sudoku game for your terminal.")
5499     (license license:gpl3+)))
5500
5501 (define-public the-butterfly-effect
5502   (package
5503     (name "the-butterfly-effect")
5504     (version "0.9.3.1")
5505     (source
5506      (origin
5507        (method git-fetch)
5508        (uri (git-reference
5509               (url "https://github.com/the-butterfly-effect/tbe.git")
5510               (commit (string-append "v" version))))
5511        (file-name (git-file-name name version))
5512        (sha256
5513         (base32
5514          "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj"))))
5515     (build-system gnu-build-system)
5516     (arguments
5517      `(#:phases
5518        (modify-phases %standard-phases
5519          (delete 'configure)
5520          ;; There is no "install" phase.  By default, tbe is installed
5521          ;; in the build directory.  Provide our own installation.
5522          (replace 'install
5523            (lambda* (#:key outputs #:allow-other-keys)
5524              (let* ((out (assoc-ref outputs "out"))
5525                     (bin (string-append out "/bin"))
5526                     (share (string-append out "/share")))
5527                (install-file "usr/games/tbe" bin)
5528                (mkdir-p share)
5529                (copy-recursively "usr/share" share)
5530                #t))))
5531        ;; Test suite requires a running Xorg server. Even when
5532        ;; provided, it fails with "D-Bus library appears to be
5533        ;; incorrectly set up; failed to read machine uuid: Failed to
5534        ;; open "/etc/machine-id": No such file or directory" along
5535        ;; with multiple "QPainter:: ... Painter not active" warnings.
5536        #:tests? #f))
5537     (inputs
5538      `(("qtbase" ,qtbase)
5539        ("qtsvg" ,qtsvg)))
5540     (native-inputs
5541      `(("cmake" ,cmake-minimal)
5542        ("gettext-minimal" ,gettext-minimal)
5543        ("qttools" ,qttools)))
5544     (synopsis "Realistic physics puzzle game")
5545     (description "The Butterfly Effect (tbe) is a game that uses
5546 realistic physics simulations to combine lots of simple mechanical
5547 elements to achieve a simple goal in the most complex way possible.")
5548     (home-page "http://the-butterfly-effect.org/")
5549     ;; Main license is GPL2-only.  However, artwork is distributed
5550     ;; under various licenses, listed here.
5551     (license (list license:gpl2 license:public-domain license:expat
5552                    license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
5553
5554 (define-public pioneer
5555   (package
5556     (name "pioneer")
5557     (version "20190203")
5558     (source (origin
5559               (method git-fetch)
5560               (uri (git-reference
5561                     (url "https://github.com/pioneerspacesim/pioneer.git")
5562                     (commit version)))
5563               (file-name (git-file-name name version))
5564               (sha256
5565                (base32
5566                 "1g34wvgyvz793dhm1k64kl82ib0cavkbg0f2p3fp05b457ycljff"))))
5567     (build-system cmake-build-system)
5568     (native-inputs
5569      `(("pkg-config" ,pkg-config)))
5570     (inputs
5571      `(("assimp" ,assimp)
5572        ("curl" ,curl)
5573        ("freetype" ,freetype)
5574        ("glew" ,glew)
5575        ("glu" ,glu)
5576        ("libpng" ,libpng)
5577        ("libsigc++" ,libsigc++)
5578        ("libvorbis" ,libvorbis)
5579        ("lua" ,lua-5.2)                 ;not compatible with 5.3
5580        ("mesa" ,mesa)
5581        ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
5582     (arguments
5583      `(#:tests? #f                      ;tests are broken
5584        #:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
5585                                (string-append "-DPIONEER_DATA_DIR="
5586                                               %output "/share/games/pioneer"))))
5587     (home-page "http://pioneerspacesim.net")
5588     (synopsis "Game of lonely space adventure")
5589     (description
5590      "Pioneer is a space adventure game set in our galaxy at the turn of the
5591 31st century.  The game is open-ended, and you are free to eke out whatever
5592 kind of space-faring existence you can think of.  Look for fame or fortune by
5593 exploring the millions of star systems.  Turn to a life of crime as a pirate,
5594 smuggler or bounty hunter.  Forge and break alliances with the various
5595 factions fighting for power, freedom or self-determination.  The universe is
5596 whatever you make of it.")
5597     (license license:gpl3)))
5598
5599 (define-public badass
5600   (let ((commit "3c3cd669b4fc8f73a102e3702788f7b28dc47dbb")
5601         (revision "0"))
5602   (package
5603     (name "badass")
5604     (version (git-version "0.0" revision commit))
5605     (source (origin
5606               (method git-fetch)
5607               (uri (git-reference
5608                      (url "https://github.com/umayr/badass.git")
5609                      (commit commit)))
5610               (file-name (git-file-name name version))
5611               (sha256
5612                (base32
5613                 "05c9vdcb5ym3z0n5ll3v39mw4yl9jcjnlydmn0yl89ai9pv71zb6"))))
5614     (build-system go-build-system)
5615     (arguments
5616      '(#:import-path "github.com/umayr/badass"))
5617     (synopsis "Hacking contribution graphs in git")
5618     (description
5619      "Badass generates false commits for a range of dates, essentially
5620 hacking the gamification of contribution graphs on platforms such as
5621 Github or Gitlab.")
5622     (home-page "https://github.com/umayr/badass")
5623     (license license:expat))))
5624
5625 (define-public colobot
5626   (package
5627     (name "colobot")
5628     (version "0.1.12-alpha")
5629     (source
5630      (origin
5631        (method git-fetch)
5632        (uri (git-reference
5633              (url "https://github.com/colobot/colobot.git")
5634              (commit (string-append "colobot-gold-" version))
5635              (recursive? #t)))          ;for "data/" subdir
5636        (file-name (git-file-name name version))
5637        (sha256
5638         (base32
5639          "1c181cclkrnspgs07lvndg2c81cjq3smkv7qim8c470cj88rcrp2"))))
5640     (build-system cmake-build-system)
5641     (arguments
5642      `(#:tests? #f                      ;no test
5643        #:phases
5644        (modify-phases %standard-phases
5645          (add-after 'unpack 'make-git-checkout-writable
5646            (lambda _
5647              (for-each make-file-writable (find-files "."))
5648              #t))
5649          (add-after 'unpack 'fix-directories
5650            (lambda _
5651              (substitute* "CMakeLists.txt"
5652                (("(\\$\\{CMAKE_INSTALL_PREFIX\\})/games" _ prefix)
5653                 (string-append prefix "/bin"))
5654                (("(\\$\\{CMAKE_INSTALL_PREFIX\\}/share)/games/colobot" _ prefix)
5655                 (string-append prefix "/colobot")))
5656              #t))
5657          (add-after 'fix-directories 'install-music
5658            ;; Retrieve and install music files.
5659            (lambda* (#:key inputs #:allow-other-keys)
5660              ;; Installation process tries to download music files using
5661              ;; "wget" if not already present.  Since we are going another
5662              ;; route, skip "wget" command check.
5663              (substitute* "data/music/CMakeLists.txt"
5664                (("find_program\\(WGET wget\\)") ""))
5665              ;; Populate "music/" directory.
5666              (let ((data (assoc-ref inputs "colobot-music")))
5667                (invoke "tar" "-xvf" data "-Cdata/music"))
5668              #t)))))
5669     (native-inputs
5670      `(("colobot-music"
5671         ,(origin
5672            (method url-fetch)
5673            (uri (string-append "https://colobot.info/files/music/"
5674                                "colobot-music_ogg_" version ".tar.gz"))
5675            (sha256
5676             (base32
5677              "1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
5678        ("gettext" ,gettext-minimal)
5679        ("librsvg" ,librsvg)
5680        ("po4a" ,po4a)
5681        ("python" ,python-wrapper)))
5682     (inputs
5683      `(("boost" ,boost)
5684        ("glew" ,glew)
5685        ("libogg" ,libogg)
5686        ("libpng" ,libpng)
5687        ("libsndfile" ,libsndfile)
5688        ("libvorbis" ,libvorbis)
5689        ("openal" ,openal)
5690        ("physfs" ,physfs)
5691        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-ttf)))))
5692     (synopsis "Educational programming strategy game")
5693     (description "Colobot: Gold Edition is a real-time strategy game, where
5694 you can program your units (bots) in a language called CBOT, which is similar
5695 to C++ and Java.  Your mission is to find a new planet to live and survive.
5696 You can save humanity and get programming skills!")
5697     (home-page "https://colobot.info")
5698     (license license:gpl3+)))
5699
5700 (define-public gzdoom
5701   (package
5702     (name "gzdoom")
5703     (version "4.3.2")
5704     (source
5705      (origin
5706        (method git-fetch)
5707        (uri (git-reference
5708              (url "https://github.com/coelckers/gzdoom.git")
5709              (commit (string-append "g" version))))
5710        (file-name (git-file-name name version))
5711        (sha256
5712         (base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
5713        (patches (search-patches "gzdoom-search-in-installed-share.patch"
5714                                 "gzdoom-find-system-libgme.patch"))
5715        (modules '((guix build utils)))
5716        (snippet
5717         '(begin
5718            ;; Remove some bundled libraries.  XXX There are more, but removing
5719            ;; them would require, at least, patching the build system.
5720            (with-directory-excursion "libraries"
5721              (delete-file-recursively "bzip2")
5722              (delete-file-recursively "game-music-emu")
5723              (delete-file-recursively "jpeg")
5724              (delete-file-recursively "zlib"))
5725            #t))))
5726     (arguments
5727      '(#:tests? #f
5728        #:configure-flags
5729        (let ((out (assoc-ref %outputs "out")))
5730          (list
5731           (string-append
5732            "-DCMAKE_CXX_FLAGS:="
5733            "-DSHARE_DIR=\\\"" out "/share/\\\" "
5734            "-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
5735
5736           ;; The build requires some extra convincing not to use the bundled
5737           ;; libgme previously deleted in the soure snippet.
5738           "-DFORCE_INTERNAL_GME=OFF"
5739
5740           ;; Link libraries at build time instead of loading them at run time.
5741           "-DDYN_OPENAL=OFF"
5742           "-DDYN_FLUIDSYNTH=OFF"
5743           "-DDYN_GTK=OFF"
5744           "-DDYN_MPG123=OFF"
5745           "-DDYN_SNDFILE=OFF"))
5746        #:phases
5747        (modify-phases %standard-phases
5748          (add-before 'configure 'fix-referenced-paths
5749            (lambda* (#:key inputs outputs #:allow-other-keys)
5750              (let ((fluid-3 (assoc-ref inputs "fluid-3"))
5751                    (timidity++ (assoc-ref inputs "timidity++"))
5752                    (out (assoc-ref outputs "out")))
5753
5754                (substitute*
5755                    "src/CMakeLists.txt"
5756                  (("COMMAND /bin/sh")
5757                   (string-append "COMMAND " (which "sh"))))
5758
5759                (substitute*
5760                    "libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
5761                  (("/usr/share/sounds/sf2/FluidR3_GM.sf2")
5762                   (string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
5763
5764                (substitute*
5765                    "libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
5766                  (("exename = \"timidity\"")
5767                   (string-append "exename = \"" timidity++ "/bin/timidity\"")))
5768                #t))))))
5769     (build-system cmake-build-system)
5770     (inputs `(("bzip2" ,bzip2)
5771               ("fluid-3" ,fluid-3)
5772               ("fluidsynth" ,fluidsynth)
5773               ("gtk+3" ,gtk+)
5774               ("libgme" ,libgme)
5775               ("libjpeg" ,libjpeg-turbo)
5776               ("libsndfile" ,libsndfile)
5777               ("mesa" ,mesa)
5778               ("mpg123" ,mpg123)
5779               ("openal" ,openal)
5780               ("sdl2" ,sdl2)
5781               ("timidity++" ,timidity++)
5782               ("zlib" ,zlib)))
5783     (native-inputs `(("pkg-config" ,pkg-config)
5784                      ("unzip" ,unzip)))
5785     (synopsis "Modern Doom 2 source port")
5786     (description "GZdoom is a port of the Doom 2 game engine, with a modern
5787 renderer.  It improves modding support with ZDoom's advanced mapping features
5788 and the new ZScript language.  In addition to Doom, it supports Heretic, Hexen,
5789 Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
5790     (home-page "https://zdoom.org/index")
5791     ;; The source uses x86 assembly
5792     (supported-systems '("x86_64-linux" "i686-linux"))
5793     (license (list license:gpl3+         ; gzdoom game
5794                    license:lgpl3+        ; gzdoom renderer
5795                    license:expat         ; gdtoa
5796                    (license:non-copyleft ; modified dumb
5797                     "file://dumb/licence.txt"
5798                     "Dumb license, explicitly GPL compatible.")))))
5799
5800 (define-public odamex
5801   (package
5802     (name "odamex")
5803     (version "0.8.1")
5804     (source
5805      (origin
5806        (method url-fetch)
5807        (uri (string-append
5808              "mirror://sourceforge/odamex/Odamex/" version "/"
5809              "odamex-src-" version ".tar.gz"))
5810        (sha256
5811         (base32 "1ywbqkfacc9fc5di3dn95y5ah2ys9i241j64q3f37a73x92llw1i"))))
5812     (build-system cmake-build-system)
5813     (arguments `(#:tests? #f))          ; no tests
5814     (inputs
5815      `(("sdl" ,sdl)
5816        ("sdl-mixer" ,sdl-mixer)
5817        ("zlib" ,zlib)
5818        ("libpng" ,libpng)
5819        ("alsa-lib" ,alsa-lib)))
5820     (home-page "https://odamex.net/")
5821     (synopsis "Multiplayer Doom port")
5822     (description "Odamex is a modification of the Doom engine that
5823 allows players to easily join servers dedicated to playing Doom
5824 online.")
5825     (license license:gpl2+)))
5826
5827 (define-public chocolate-doom
5828   (package
5829     (name "chocolate-doom")
5830     (version "3.0.0")
5831     (source (origin
5832               (method url-fetch)
5833               (uri (string-append "https://www.chocolate-doom.org/downloads/"
5834                                   version
5835                                   "/chocolate-doom-"
5836                                   version
5837                                   ".tar.gz"))
5838               (sha256
5839                (base32
5840                 "1f6sw6qa9z0a70dsjh5cs45fkyyxw68s7vkqlykihz8cjcisdbkk"))))
5841     (build-system gnu-build-system)
5842     (inputs `(("sdl2-net" ,sdl2-net)
5843               ("sdl2-mixer" , sdl2-mixer)
5844               ("sdl2" ,sdl2)))
5845     (native-inputs
5846      `(("pkg-config" ,pkg-config)))
5847     (synopsis "Doom source port preserving the look, feel, and bugs of vanilla
5848 Doom")
5849     (description
5850      "Chocolate Doom takes a different approach to other source ports.  Its
5851 aim is to accurately reproduce the experience of playing Vanilla Doom.  It is
5852 a conservative, historically accurate Doom source port, which is compatible
5853 with the thousands of mods and levels that were made before the Doom source
5854 code was released.  Rather than flashy new graphics, Chocolate Doom's main
5855 features are its accurate reproduction of the game as it was played in the
5856 1990s.  The project is developed around a carefully-considered philosophy that
5857 intentionally restricts which features may be added (and rejects any that
5858 affect gameplay).")
5859     (home-page "https://www.chocolate-doom.org/wiki/index.php/Chocolate_Doom")
5860     (license license:gpl2)))
5861
5862 (define-public crispy-doom
5863   (package
5864     (inherit chocolate-doom)
5865     (name "crispy-doom")
5866     (version "5.6.4")
5867     (source (origin
5868               (method git-fetch)
5869               (uri (git-reference
5870                     (url "https://github.com/fabiangreffrath/crispy-doom.git")
5871                     (commit (string-append "crispy-doom-" version))))
5872               (file-name (git-file-name name version))
5873               (sha256
5874                (base32 "1ls4v2kpb7vi7xji5yqbmyc5lfkz497h1vvj9w86wkrw8k59hlg2"))))
5875     (native-inputs
5876      (append
5877       (package-native-inputs chocolate-doom)
5878       `(("automake" ,automake)
5879         ("autoreconf" ,autoconf))))
5880     (arguments
5881      `(#:phases
5882        (modify-phases %standard-phases
5883          (replace 'bootstrap
5884            ;; The bundled autogen.sh script unconditionally runs ./configure.
5885            (lambda _ (invoke "autoreconf" "-vif"))))))
5886     (synopsis "Limit-removing enhanced-resolution Doom source port based on
5887 Chocolate Doom")
5888     (description
5889      "Crispy Doom is a friendly fork of Chocolate Doom that provides a higher
5890 display resolution, removes the static limits of the Doom engine and offers
5891 further optional visual, tactical and physical enhancements while remaining
5892 entirely config file, savegame, netplay and demo compatible with the
5893 original.")
5894     (home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
5895
5896 (define shlomif-cmake-modules
5897   (origin
5898     (method url-fetch)
5899     (uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
5900                         "raw/c505713d7a7cda608f97f01577e5868a711b883e/"
5901                         "shlomif-cmake-modules/Shlomif_Common.cmake"))
5902     (sha256
5903      (base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
5904
5905 (define-public rinutils
5906   (package
5907     (name "rinutils")
5908     (version "0.2.0")
5909     (source (origin
5910               (method git-fetch)
5911               (uri (git-reference
5912                     (url "https://github.com/shlomif/rinutils.git")
5913                     (commit version)))
5914               (file-name (git-file-name name version))
5915               (sha256
5916                (base32
5917                 "1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
5918     (native-inputs
5919      `(("perl" ,perl)
5920        ;; The following is only needed for tests.
5921        ("perl-file-find-object" ,perl-file-find-object)
5922        ("perl-test-differences" ,perl-test-differences)
5923        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
5924        ("perl-io-all" ,perl-io-all)
5925        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
5926        ("cmake-rules" ,shlomif-cmake-modules)
5927        ("pkg-config" ,pkg-config)))
5928     (inputs
5929      `(("cmocka" ,cmocka)
5930        ("perl-env-path", perl-env-path)
5931        ("perl-inline" ,perl-inline)
5932        ("perl-inline-c" ,perl-inline-c)
5933        ("perl-string-shellquote" ,perl-string-shellquote)
5934        ("perl-test-trailingspace" ,perl-test-trailingspace)
5935        ("perl-file-find-object-rule" ,perl-file-find-object-rule)
5936        ("perl-text-glob" ,perl-text-glob)
5937        ("perl-number-compare" ,perl-number-compare)
5938        ("perl-moo" ,perl-moo)))
5939     (arguments
5940      `(#:phases
5941        (modify-phases %standard-phases
5942          (add-after 'unpack 'fix-build-env
5943            (lambda* (#:key inputs #:allow-other-keys)
5944              (use-modules (guix build utils))
5945              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
5946                (copy-file cmake-rules
5947                           (string-append "cmake/"
5948                                          (strip-store-file-name cmake-rules)))
5949                #t)))
5950          (replace 'check
5951            (lambda _
5952              (with-directory-excursion "../source"
5953                (setenv "FCS_TEST_BUILD" "1")
5954                (setenv "RINUTILS_TEST_BUILD" "1")
5955                ;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
5956                ;; which requires tidy-all.
5957                ;; (setenv "RINUTILS_TEST_TIDY" "1")
5958                (invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
5959     (build-system cmake-build-system)
5960     (home-page "https://www.shlomifish.org/open-source/projects/")
5961     (synopsis "C11 / gnu11 utilities C library")
5962     (description "This package provides C11 / gnu11 utilities C library")
5963     (license license:expat)))
5964
5965 (define-public fortune-mod
5966   (package
5967     (name "fortune-mod")
5968     (version "2.12.0")
5969     (source
5970      (origin
5971        (method git-fetch)
5972        (uri (git-reference
5973              (url "https://github.com/shlomif/fortune-mod")
5974              (commit (string-append "fortune-mod-" version))))
5975        (file-name (git-file-name name version))
5976        (sha256
5977         (base32
5978          "0laxgqsdg7kvpvvm1f54b94ga9r0cr9g3ffii8avg8fy65x6pzc9"))))
5979     (build-system cmake-build-system)
5980     (arguments
5981      `(#:test-target "check"
5982        #:phases
5983        (modify-phases %standard-phases
5984          (add-after 'unpack 'fix-build-env
5985            (lambda* (#:key inputs #:allow-other-keys)
5986              (use-modules (guix build utils))
5987              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
5988                (copy-file cmake-rules
5989                           (string-append "fortune-mod/cmake/"
5990                                          (strip-store-file-name cmake-rules)))
5991                (chdir "fortune-mod")
5992                ;; TODO: Valgrind tests fail for some reason.
5993                ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
5994                (delete-file "tests/t/valgrind.t")
5995                #t)))
5996          (add-after 'install 'fix-install-directory
5997            (lambda* (#:key outputs #:allow-other-keys)
5998              ;; Move binary from "games/" to "bin/" and remove the latter.  This
5999              ;; is easier than patching CMakeLists.txt since the tests hard-code
6000              ;; the location as well.
6001              (let* ((out   (assoc-ref outputs "out"))
6002                     (bin   (string-append out "/bin"))
6003                     (games (string-append out "/games")))
6004                (rename-file (string-append games "/fortune")
6005                             (string-append bin "/fortune"))
6006                (rmdir games)
6007                #t))))))
6008     (inputs `(("recode" ,recode)))
6009     (native-inputs
6010      `(("perl" ,perl)
6011        ;; The following is only needed for tests.
6012        ("perl-file-find-object" ,perl-file-find-object)
6013        ("perl-test-differences" ,perl-test-differences)
6014        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6015        ("perl-io-all" ,perl-io-all)
6016        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6017        ("cmake-rules" ,shlomif-cmake-modules)
6018        ("rinutils" ,rinutils)))
6019     (home-page "http://www.shlomifish.org/open-source/projects/fortune-mod/")
6020     (synopsis "The Fortune Cookie program from BSD games")
6021     (description "Fortune is a command-line utility which displays a random
6022 quotation from a collection of quotes.")
6023     (license license:bsd-4)))
6024
6025 (define xonotic-data
6026   (package
6027     (name "xonotic-data")
6028     (version "0.8.2")
6029     (source
6030      (origin
6031        (method url-fetch)
6032        (uri (string-append "http://dl.xonotic.org/xonotic-"
6033                            version ".zip"))
6034        (file-name (string-append name "-" version ".zip"))
6035        (sha256
6036         (base32
6037          "1mcs6l4clvn7ibfq3q69k2p0z6ww75rxvnngamdq5ic6yhq74bx2"))))
6038     (build-system trivial-build-system)
6039     (native-inputs
6040      `(("unzip" ,unzip)))
6041     (arguments
6042      `(#:modules ((guix build utils))
6043        #:builder
6044        (begin
6045          (use-modules (guix build utils))
6046          (let* ((out (assoc-ref %outputs "out"))
6047                 (xonotic (string-append out "/share/xonotic"))
6048                 (source (assoc-ref %build-inputs "source"))
6049                 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
6050            (copy-file source (string-append ,name "-" ,version ".zip"))
6051            (invoke unzip (string-append ,name "-" ,version ".zip"))
6052            (mkdir-p out)
6053            (mkdir-p xonotic)
6054            (chdir "Xonotic")
6055            (copy-recursively "data"
6056                              (string-append xonotic "/data"))
6057            (copy-recursively "server"
6058                              (string-append xonotic "/server"))
6059            (install-file "key_0.d0pk" xonotic)))))
6060     (home-page "http://xonotic.org")
6061     (synopsis "Data files for Xonotic")
6062     (description
6063      "Xonotic-data provides the data files required by the game Xonotic.")
6064     (license (list license:gpl2+
6065                    (license:x11-style "file://server/rcon.pl")))))
6066
6067 (define-public xonotic
6068   (package
6069     (name "xonotic")
6070     (version "0.8.2")
6071     (source
6072      (origin
6073        (method url-fetch)
6074        (uri (string-append "http://dl.xonotic.org/xonotic-"
6075                            version "-source.zip"))
6076        (file-name (string-append name "-" version ".zip"))
6077        (sha256
6078         (base32
6079          "0axxw04fyz6jlfqd0kp7hdrqa0li31sx1pbipf2j5qp9wvqicsay"))))
6080     (build-system gnu-build-system)
6081     (arguments
6082      `(#:configure-flags (list (string-append "--prefix="
6083                                               (assoc-ref %outputs "out"))
6084                                "--disable-rijndael")
6085        #:phases
6086        (modify-phases %standard-phases
6087          (add-before 'configure 'make-darkplaces
6088            (lambda* (#:key outputs #:allow-other-keys)
6089              (let* ((out (assoc-ref outputs "out"))
6090                     (sharedir (string-append out "/share/xonotic/")))
6091                (invoke "make" "-C" "source/darkplaces"
6092                        (string-append "DP_FS_BASEDIR="
6093                                       sharedir)
6094                        "DP_LINK_TO_LIBJPEG=1"
6095                        "DP_SOUND_API=ALSA"
6096                        "CC=gcc"
6097                        "-f" "makefile"
6098                        "cl-release")
6099                (invoke "make" "-C" "source/darkplaces"
6100                        (string-append "DP_FS_BASEDIR="
6101                                       sharedir)
6102                        "DP_LINK_TO_LIBJPEG=1"
6103                        "DP_SOUND_API=ALSA"
6104                        "CC=gcc"
6105                        "-f" "makefile"
6106                        "sdl-release")
6107                (invoke "make" "-C" "source/darkplaces"
6108                        (string-append "DP_FS_BASEDIR="
6109                                       sharedir)
6110                        "DP_LINK_TO_LIBJPEG=1"
6111                        "DP_SOUND_API=ALSA"
6112                        "CC=gcc"
6113                        "-f" "makefile"
6114                        "sv-release"))))
6115          (add-before 'configure 'bootstrap
6116            (lambda _
6117              (chdir "source/d0_blind_id")
6118              (invoke "sh" "autogen.sh")))
6119          (add-after 'build 'install-desktop-entry
6120            (lambda* (#:key outputs #:allow-other-keys)
6121              ;; Add .desktop files for the 2 variants and the symlink
6122              (let* ((output (assoc-ref outputs "out"))
6123                     (apps (string-append output "/share/applications")))
6124                (mkdir-p apps)
6125                (with-output-to-file
6126                    (string-append apps "/xonotic-glx.desktop")
6127                  (lambda _
6128                    (format #t
6129                            "[Desktop Entry]~@
6130                      Name=xonotic-glx~@
6131                      Comment=Xonotic glx~@
6132                      Exec=~a/bin/xonotic-glx~@
6133                      TryExec=~@*~a/bin/xonotic-glx~@
6134                      Icon=xonotic~@
6135                      Categories=Game~@
6136                      Type=Application~%"
6137                            output)))
6138                (with-output-to-file
6139                    (string-append apps "/xonotic-sdl.desktop")
6140                  (lambda _
6141                    (format #t
6142                            "[Desktop Entry]~@
6143                      Name=xonotic-sdl~@
6144                      Comment=Xonotic sdl~@
6145                      Exec=~a/bin/xonotic-sdl~@
6146                      TryExec=~@*~a/bin/xonotic-sdl~@
6147                      Icon=xonotic~@
6148                      Categories=Game~@
6149                      Type=Application~%"
6150                            output)))
6151                (with-output-to-file
6152                    (string-append apps "/xonotic.desktop")
6153                  (lambda _
6154                    (format #t
6155                            "[Desktop Entry]~@
6156                      Name=xonotic~@
6157                      Comment=Xonotic~@
6158                      Exec=~a/bin/xonotic-glx~@
6159                      TryExec=~@*~a/bin/xonotic~@
6160                      Icon=xonotic~@
6161                      Categories=Game~@
6162                      Type=Application~%"
6163                            output)))
6164                #t)))
6165          (add-after 'install-desktop-entry 'install-icons
6166            (lambda* (#:key outputs #:allow-other-keys)
6167              (let ((out (assoc-ref outputs "out")))
6168                (with-directory-excursion "../../misc/logos/icons_png/"
6169                  (for-each
6170                   (lambda (file)
6171                     (let* ((size (string-filter char-numeric? file))
6172                            (icons (string-append out "/share/icons/hicolor/"
6173                                                  size "x" size "/apps")))
6174                       (mkdir-p icons)
6175                       (copy-file file (string-append icons "/xonotic.png"))))
6176                   '("xonotic_16.png" "xonotic_22.png" "xonotic_24.png"
6177                     "xonotic_32.png" "xonotic_48.png" "xonotic_64.png"
6178                     "xonotic_128.png" "xonotic_256.png" "xonotic_512.png"))))))
6179          (add-after 'install-icons 'install-binaries
6180            (lambda* (#:key outputs #:allow-other-keys)
6181              (let ((out (assoc-ref outputs "out")))
6182                (define (install src dst)
6183                  (let ((dst (string-append out dst)))
6184                    (mkdir-p (dirname dst))
6185                    (copy-file src dst)))
6186                (mkdir-p (string-append out "/bin"))
6187                (install "../darkplaces/darkplaces-dedicated"
6188                         "/bin/xonotic-dedicated")
6189                (install "../darkplaces/darkplaces-glx"
6190                         "/bin/xonotic-glx")
6191                (install "../darkplaces/darkplaces-sdl"
6192                         "/bin/xonotic-sdl")
6193                ;; Provide a default xonotic executable, defaulting to SDL.
6194                (symlink (string-append out "/bin/xonotic-sdl")
6195                         (string-append out "/bin/xonotic"))
6196                #t)))
6197          (add-after 'install-binaries 'install-data
6198            (lambda* (#:key outputs inputs #:allow-other-keys)
6199              (let* ((out (assoc-ref outputs "out"))
6200                     (data (assoc-ref inputs "xonotic-data")))
6201                (symlink (string-append data "/share/xonotic")
6202                         (string-append out "/share/xonotic"))
6203                #t)))
6204          (add-after 'install-binaries 'wrap-binaries
6205            (lambda* (#:key outputs inputs #:allow-other-keys)
6206              ;; Curl and libvorbis need to be wrapped so that we get
6207              ;; sound and networking.
6208              (let* ((out (assoc-ref outputs "out"))
6209                     (bin (string-append out "/bin/xonotic"))
6210                     (bin-sdl (string-append out "/bin/xonotic-sdl"))
6211                     (bin-glx (string-append out "/bin/xonotic-glx"))
6212                     (bin-dedicated (string-append out "/bin/xonotic-dedicated"))
6213                     (curl (assoc-ref inputs "curl"))
6214                     (vorbis (assoc-ref inputs "libvorbis")))
6215                (wrap-program bin
6216                  `("LD_LIBRARY_PATH" ":" prefix
6217                    (,(string-append curl "/lib:" vorbis "/lib"))))
6218                (wrap-program bin-sdl
6219                  `("LD_LIBRARY_PATH" ":" prefix
6220                    (,(string-append curl "/lib:" vorbis "/lib"))))
6221                (wrap-program bin-glx
6222                  `("LD_LIBRARY_PATH" ":" prefix
6223                    (,(string-append curl "/lib:" vorbis "/lib"))))
6224                (wrap-program bin-dedicated
6225                  `("LD_LIBRARY_PATH" ":" prefix
6226                    (,(string-append curl "/lib:" vorbis "/lib"))))
6227                #t))))))
6228     (inputs
6229      `(("xonotic-data" ,xonotic-data)
6230        ("alsa-lib" ,alsa-lib)
6231        ("curl" ,curl)
6232        ("libjpeg" ,libjpeg-turbo)
6233        ("libmodplug" ,libmodplug)
6234        ("libvorbis" ,libvorbis)
6235        ("libogg" ,libogg)
6236        ("libxpm" ,libxpm)
6237        ("libxxf86dga" ,libxxf86dga)
6238        ("libxxf86vm" ,libxxf86vm)
6239        ("libx11" ,libx11)
6240        ("libxext" ,libxext)
6241        ("libxau" ,libxau)
6242        ("libxdmcp" ,libxdmcp)
6243        ("mesa" ,mesa)
6244        ("glu" ,glu)
6245        ("freetype" ,freetype)
6246        ("sdl2" ,sdl2)
6247        ("libpng" ,libpng)
6248        ("hicolor-icon-theme" ,hicolor-icon-theme)))
6249     (native-inputs
6250      `(("unzip" ,unzip)
6251        ("autoconf" ,autoconf)
6252        ("automake" ,automake)
6253        ("pkg-config" ,pkg-config)
6254        ("libtool" ,libtool)
6255        ("gmp" ,gmp)))
6256     (home-page "http://xonotic.org")
6257     (synopsis "Fast-paced first-person shooter game")
6258     (description
6259      "Xonotic is a free, fast-paced first-person shooter.
6260 The project is geared towards providing addictive arena shooter
6261 gameplay which is all spawned and driven by the community itself.
6262 Xonotic is a direct successor of the Nexuiz project with years of
6263 development between them, and it aims to become the best possible
6264 open-source FPS of its kind.")
6265     (license (list license:gpl2+
6266                    license:bsd-3 ; /source/d0_blind_id folder and others
6267                    (license:x11-style "" "See file rcon.pl.")))))
6268
6269 (define-public frotz
6270   (package
6271     (name "frotz")
6272     (version "2.44")
6273     (source (origin
6274               (method url-fetch)
6275               (uri (list (string-append
6276                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6277                           "frotz/frotz-" version ".tar.gz")
6278                          (string-append
6279                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6280                           "frotz/frotz-" version ".tar.gz")))
6281               (sha256
6282                (base32
6283                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6284     (build-system gnu-build-system)
6285     (arguments
6286      `(#:tests? #f                      ; there are no tests
6287        #:phases
6288        (modify-phases %standard-phases
6289          (delete 'configure)
6290          (add-before 'build 'curses
6291            (lambda _
6292              (substitute* "Makefile"
6293                (("lcurses") "lncurses"))
6294              #t))
6295          (replace 'install
6296            (lambda* (#:key outputs #:allow-other-keys)
6297              (let* ((out (assoc-ref outputs "out"))
6298                     (bin (string-append out "/bin"))
6299                     (man (string-append out "/share/man/man6")))
6300                (install-file "frotz" bin)
6301                (mkdir-p man)
6302                (install-file "doc/frotz.6" man)
6303                #t))))))
6304     (inputs `(("libmodplug" ,libmodplug)
6305               ("libsamplerate" ,libsamplerate)
6306               ("libsndfile" ,libsndfile)
6307               ("libvorbis" ,libvorbis)
6308               ("ncurses" ,ncurses)))
6309     (synopsis "Portable Z-machine interpreter (ncurses version) for text adventure games")
6310     (description "Frotz is an interpreter for Infocom games and other Z-machine
6311 games in the text adventure/interactive fiction genre.  This version of Frotz
6312 complies with standard 1.0 of Graham Nelson's specification.  It plays all
6313 Z-code games V1-V8, including V6, with sound support through libao, and uses
6314 ncurses for text display.")
6315     (home-page "http://frotz.sourceforge.net")
6316     (license license:gpl2+)))
6317
6318 (define-public frotz-dumb-terminal
6319   (package
6320     (name "frotz-dumb-terminal")
6321     (version "2.44")
6322     (source (origin
6323               (method url-fetch)
6324               (uri (list (string-append
6325                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6326                           "frotz/frotz-" version ".tar.gz")
6327                          (string-append
6328                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6329                           "frotz/frotz-" version ".tar.gz")))
6330               (sha256
6331                (base32
6332                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6333     (build-system gnu-build-system)
6334     (arguments
6335      `(#:tests? #f                      ; there are no tests
6336        #:phases
6337        (modify-phases %standard-phases
6338          (delete 'configure)
6339          (replace 'build
6340            (lambda _
6341              (invoke "make" "dumb")))
6342          (replace 'install
6343            (lambda* (#:key outputs #:allow-other-keys)
6344              (let* ((out (assoc-ref outputs "out"))
6345                     (bin (string-append out "/bin"))
6346                     (man (string-append out "/share/man/man6")))
6347                (install-file "dfrotz" bin)
6348                (mkdir-p man)
6349                (install-file "doc/dfrotz.6" man)
6350                #t))))))
6351     (synopsis "Portable Z-machine dumb interpreter for text adventure games")
6352     (description "Frotz is an interpreter for Infocom games and
6353 other Z-machine games in the text adventure/interactive fiction genre.
6354 dfrotz is the dumb interface version.  You get no screen control; everything
6355 is just printed to the terminal line by line.  The terminal handles all the
6356 scrolling.  Maybe you'd like to experience what it's like to play Adventure on
6357 a teletype.  A much cooler use for compiling Frotz with the dumb interface is
6358 that it can be wrapped in CGI scripting, PHP, and the like to allow people
6359 to play games on webpages.  It can also be made into a chat bot.")
6360     (home-page "http://frotz.sourceforge.net")
6361     (license license:gpl2+)))
6362
6363 (define-public frotz-sdl
6364   (let* ((commit "4de8c34f2116fff554af6216c30ec9d41bf50b24"))
6365     (package
6366       (name "frotz-sdl")
6367       (version "2.45pre")
6368       (source (origin
6369                 (method git-fetch)
6370                 (uri (git-reference
6371                       (url "https://gitlab.com/DavidGriffith/frotz")
6372                       (commit commit)))
6373                 (sha256
6374                  (base32
6375                   "18ms21pcrl7ipcnyqnf8janamkryzx78frsgd9kfk67jvbj0z2k8"))
6376                 (file-name (git-file-name name version))))
6377       (build-system gnu-build-system)
6378       (arguments
6379        `(#:tests? #f                    ; there are no tests
6380          #:phases
6381          (modify-phases %standard-phases
6382            (delete 'configure)
6383            (add-before 'build 'patch-makefile
6384              (lambda _
6385                (substitute* "Makefile"
6386                  (("lcurses") "lncurses")
6387                  (("^BUILD_DATE_TIME =.*$")
6388                   "BUILD_DATE_TIME = \"2.45pre-20180907.00000\"\n"))
6389                #t))
6390            (replace 'build
6391              (lambda _
6392                (invoke "make" "sdl")))
6393            (replace 'install
6394              (lambda* (#:key outputs #:allow-other-keys)
6395                (let* ((out (assoc-ref outputs "out"))
6396                       (bin (string-append out "/bin"))
6397                       (man (string-append out "/share/man/man6")))
6398                  (install-file "sfrotz" bin)
6399                  (mkdir-p man)
6400                  (install-file "doc/sfrotz.6" man)
6401                  #t))))))
6402       (native-inputs
6403        `(("pkg-config" ,pkg-config)
6404          ("which" ,which)
6405          ("perl" ,perl)))
6406       (inputs `(("sdl2" ,sdl2)
6407                 ("sdl2-mixer" ,sdl2-mixer)
6408                 ("libmodplug" ,libmodplug)
6409                 ("libsamplerate" ,libsamplerate)
6410                 ("libsndfile" ,libsndfile)
6411                 ("libvorbis" ,libvorbis)
6412                 ("ncurses" ,ncurses)
6413                 ("freetype" ,freetype)
6414                 ("libjpeg-turbo" ,libjpeg-turbo)))
6415       (synopsis "Portable Z-machine interpreter (SDL port) for text adventure games")
6416       (description "Frotz is an interpreter for Infocom games and other Z-machine
6417 games in the text adventure/interactive fiction genre.  This version of Frotz
6418 using SDL fully supports all these versions of the Z-Machine including the
6419 graphical version 6.  Graphics and sound are created through the use of the SDL
6420 libraries.  AIFF sound effects and music in MOD and OGG formats are supported
6421 when packaged in Blorb container files or optionally from individual files.")
6422       (home-page "http://frotz.sourceforge.net")
6423       (license license:gpl2+))))
6424
6425 (define-public libmanette
6426   (package
6427     (name "libmanette")
6428     (version "0.2.3")
6429     (source (origin
6430               (method url-fetch)
6431               (uri (string-append "mirror://gnome/sources/libmanette/"
6432                                   (version-major+minor version) "/"
6433                                   "libmanette-" version ".tar.xz"))
6434               (sha256
6435                (base32
6436                 "1zxh7jn2zg7hivmal5zxam6fxvjsd1w6hlw0m2kysk76b8anbw60"))))
6437     (build-system meson-build-system)
6438     (native-inputs
6439      `(("glib" ,glib "bin")             ; for glib-compile-resources
6440        ("gobject-introspection" ,gobject-introspection)
6441        ("pkg-config" ,pkg-config)
6442        ("vala" ,vala)))
6443     (inputs
6444      `(("libevdev" ,libevdev)
6445        ("libgudev" ,libgudev)))
6446     (home-page "https://wiki.gnome.org/Apps/Games")
6447     (synopsis "Game controller library")
6448     (description "Libmanette is a small GObject library giving you simple
6449 access to game controllers.  It supports the de-facto standard gamepads as
6450 defined by the W3C standard Gamepad specification or as implemented by the SDL
6451 GameController.")
6452     (license license:lgpl2.1+)))
6453
6454 (define-public quadrapassel
6455   (package
6456     (name "quadrapassel")
6457     (version "3.32.0")
6458     (source (origin
6459               (method url-fetch)
6460               (uri (string-append "mirror://gnome/sources/quadrapassel/"
6461                                   (version-major+minor version) "/"
6462                                   "quadrapassel-" version ".tar.xz"))
6463               (sha256
6464                (base32
6465                 "1zhi1957knz9dm98drn2dh95mr33sdch590yddh1f8r6bzsfjvpy"))))
6466     (build-system meson-build-system)
6467     (arguments
6468      '(#:glib-or-gtk? #t
6469        #:phases
6470        (modify-phases %standard-phases
6471          (add-after 'unpack 'skip-gtk-update-icon-cache
6472            ;; Don't create 'icon-theme.cache'.
6473            (lambda _
6474              (substitute* "build-aux/meson_post_install.py"
6475                (("gtk-update-icon-cache") (which "true")))
6476              #t)))))
6477     (native-inputs
6478      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
6479        ("gettext" ,gnu-gettext)
6480        ("glib" ,glib "bin")             ;for glib-compile-resources
6481        ("itstool" ,itstool)
6482        ("libxml2" ,libxml2)             ;for xmllint
6483        ("pkg-config" ,pkg-config)
6484        ("vala" ,vala)))
6485     (inputs
6486      `(("clutter" ,clutter)
6487        ("clutter-gtk" ,clutter-gtk)
6488        ("gtk+" ,gtk+)
6489        ("libcanberra" ,libcanberra)
6490        ("libmanette" ,libmanette)
6491        ("librsvg" ,librsvg)))
6492     (home-page "https://wiki.gnome.org/Apps/Quadrapassel")
6493     (synopsis "GNOME version of Tetris")
6494     (description "Quadrapassel comes from the classic falling-block game,
6495 Tetris.  The goal of the game is to create complete horizontal lines of
6496 blocks, which will disappear.  The blocks come in seven different shapes made
6497 from four blocks each: one straight, two L-shaped, one square, and two
6498 S-shaped.  The blocks fall from the top center of the screen in a random
6499 order.  You rotate the blocks and move them across the screen to drop them in
6500 complete lines.  You score by dropping blocks fast and completing lines.  As
6501 your score gets higher, you level up and the blocks fall faster.")
6502     (license license:gpl2+)))
6503
6504 (define-public endless-sky
6505   (package
6506     (name "endless-sky")
6507     (version "0.9.10")
6508     (source
6509       (origin
6510         (method git-fetch)
6511         (uri (git-reference
6512                (url "https://github.com/endless-sky/endless-sky")
6513                (commit (string-append "v" version))))
6514         (file-name (git-file-name name version))
6515         (sha256
6516          (base32
6517           "1wax9qhxakydg6bs92d1jy2fki1n9r0wkps1np02y0pvm1fl189i"))))
6518     (build-system scons-build-system)
6519     (arguments
6520      `(#:scons ,scons-python2
6521        #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6522        #:tests? #f ; no tests
6523        #:phases
6524        (modify-phases %standard-phases
6525          (add-after 'unpack 'patch-resource-locations
6526            (lambda* (#:key outputs #:allow-other-keys)
6527              (substitute* "source/Files.cpp"
6528                (("/usr/local/")
6529                 (string-append (assoc-ref outputs "out") "/")))
6530              #t))
6531          (add-after 'unpack 'patch-scons
6532            (lambda _
6533              (substitute* "SConstruct"
6534                ;; Keep environmental variables
6535                (("Environment\\(\\)")
6536                 "Environment(ENV = os.environ)")
6537                ;; Install into %out/bin
6538                (("games\"") "bin\""))
6539              #t)))))
6540     (inputs
6541      `(("glew" ,glew)
6542        ("libjpeg" ,libjpeg-turbo)
6543        ("libmad" ,libmad)
6544        ("libpng" ,libpng)
6545        ("openal" ,openal)
6546        ("sdl2" ,sdl2)))
6547     (home-page "https://endless-sky.github.io/")
6548     (synopsis "2D space trading and combat game")
6549     (description "Endless Sky is a 2D space trading and combat game.  Explore
6550 other star systems.  Earn money by trading, carrying passengers, or completing
6551 missions.  Use your earnings to buy a better ship or to upgrade the weapons and
6552 engines on your current one.  Blow up pirates.  Take sides in a civil war.  Or
6553 leave human space behind and hope to find friendly aliens whose culture is more
6554 civilized than your own.")
6555     (license (list license:gpl3+
6556                    license:cc-by-sa3.0
6557                    license:cc-by-sa4.0
6558                    license:public-domain))))
6559
6560 (define-public stepmania
6561   (package
6562     (name "stepmania")
6563     (version "5.1.0-b2")
6564     (source
6565      (origin
6566        (method git-fetch)
6567        (uri (git-reference
6568              (url "https://github.com/stepmania/stepmania.git")
6569              (commit (string-append "v" version))))
6570        (file-name (git-file-name name version))
6571        (sha256
6572         (base32
6573          "0a7y9l7xm510vgnpmj1is7p9m6d6yd0fcaxrjcickz295k5w3rdn"))
6574        (modules '((guix build utils)))
6575        (snippet
6576         '(begin
6577            ;; Remove song files, which are licensed under a non-commercial
6578            ;; clause, and a course pointing to them.
6579            (for-each delete-file-recursively
6580                      '("Songs/StepMania 5/Goin' Under"
6581                        "Songs/StepMania 5/MechaTribe Assault"
6582                        "Songs/StepMania 5/Springtime"))
6583            (for-each delete-file '("Courses/Default/Jupiter.crs"
6584                                    "Courses/Default/Jupiter.png"))
6585            ;; Unbundle libpng.
6586            (substitute* "extern/CMakeLists.txt"
6587              (("include\\(CMakeProject-png.cmake\\)") ""))
6588            (delete-file-recursively "extern/libpng")
6589            #t))))
6590     (build-system cmake-build-system)
6591     (arguments
6592      `(#:tests? #f                      ;FIXME: couldn't find how to run tests
6593        #:build-type "Release"
6594        #:out-of-source? #f              ;for the 'install-desktop' phase
6595        #:configure-flags
6596        (list "-DWITH_SYSTEM_FFMPEG=1"
6597              ;; SSE instructions are available on Intel systems only.
6598              ,@(if (any (cute string-prefix? <> (or (%current-target-system)
6599                                                     (%current-system)))
6600                         '("x64_64" "i686"))
6601                    '()
6602                    '("-DWITH_SSE2=NO"))
6603              ;; Configuration cannot find GTK2 without the two following
6604              ;; flags.
6605              (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
6606                             (assoc-ref %build-inputs "gtk+")
6607                             "/lib/gtk-2.0/include")
6608              (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
6609                             (assoc-ref %build-inputs "glib")
6610                             "/lib/glib-2.0/include"))
6611        #:phases
6612        (modify-phases %standard-phases
6613          (add-after 'unpack 'ensure-application-files-can-be-found
6614            (lambda* (#:key outputs #:allow-other-keys)
6615              (let ((out (assoc-ref outputs "out")))
6616                (substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
6617                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
6618                   (string-append "\"" out
6619                                  "/share/stepmania/GtkModule.so\"")))
6620                (substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
6621                  (("Root = sDirOfExecutable")
6622                   (string-append "Root = \"" out "/share/stepmania/\""))
6623                  (("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
6624                   (string-append "\"" out "/share/stepmania/" dir "\"")))
6625                (substitute* "src/RageFileManager.cpp"
6626                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
6627                   (string-append "\"" out "/share/stepmania/\""))))
6628              #t))
6629          (add-after 'unpack 'fix-install-subdir
6630            ;; Installation would be done in "%out/stepmania-X.Y", but we
6631            ;; prefer the more common layout "%out/share/stepmania".
6632            (lambda _
6633              (substitute* "src/CMakeLists.txt"
6634                (("\"stepmania-.*?\"") "\"share/stepmania\""))
6635              #t))
6636          (add-after 'unpack 'unbundle-libpng
6637            (lambda* (#:key inputs #:allow-other-keys)
6638              (substitute* "src/CMakeLists.txt"
6639                (("\\$\\{SM_EXTERN_DIR\\}/libpng/include")
6640                 (string-append (assoc-ref inputs "libpng") "/include")))
6641              #t))
6642          (add-after 'install 'install-executable
6643            (lambda* (#:key outputs #:allow-other-keys)
6644              (let* ((out (assoc-ref outputs "out"))
6645                     (bin (string-append out "/bin"))
6646                     (exe (string-append out "/share/stepmania/stepmania")))
6647                (mkdir-p bin)
6648                (symlink exe (string-append bin "/stepmania"))
6649                #t)))
6650          (add-after 'install-executable 'install-desktop
6651            (lambda* (#:key outputs #:allow-other-keys)
6652              (let* ((out (assoc-ref outputs "out"))
6653                     (share (string-append out "/share"))
6654                     (applications (string-append share "/applications"))
6655                     (icons (string-append share "/icons")))
6656                (install-file "stepmania.desktop" applications)
6657                (mkdir-p icons)
6658                (copy-recursively "icons" icons)
6659                #t)))
6660          ;; Move documentation in a more usual place, i.e.,
6661          ;; "%out/share/doc/stepmania/".
6662          (add-after 'install-desktop 'install-doc
6663            (lambda* (#:key outputs #:allow-other-keys)
6664              (let* ((out (assoc-ref outputs "out"))
6665                     (share (string-append out "/share")))
6666                (with-directory-excursion share
6667                  (mkdir-p "doc")
6668                  (symlink "../stepmania/Docs" "doc/stepmania"))
6669                #t))))))
6670     (native-inputs
6671      `(("pkg-config" ,pkg-config)
6672        ("yasm" ,yasm)))
6673     (inputs
6674      `(("alsa-lib" ,alsa-lib)
6675        ;; Per upstream, StepMania is only guaranteed to work with a very
6676        ;; specific FFmpeg version, which is included in the repository as
6677        ;; a Git submodule.  This particular version requirement usually
6678        ;; changes every few years.
6679        ("ffmpeg" ,ffmpeg-for-stepmania)
6680        ("glib" ,glib)
6681        ("glew" ,glew)
6682        ("gtk+" ,gtk+-2)
6683        ("jsoncpp" ,jsoncpp)
6684        ("libpng" ,libpng)
6685        ("libjpeg" ,libjpeg-turbo)
6686        ("libmad" ,libmad)
6687        ("libogg" ,libogg)
6688        ("libva" ,libva)
6689        ("libvorbis" ,libvorbis)
6690        ("libxinerama" ,libxinerama)
6691        ("libxrandr" ,libxrandr)
6692        ("mesa" ,mesa)
6693        ("pcre" ,pcre)
6694        ("pulseaudio" ,pulseaudio)
6695        ("sdl" ,sdl2)
6696        ("udev" ,eudev)
6697        ("zlib" ,zlib)))
6698     (synopsis "Advanced rhythm game designed for both home and arcade use")
6699     (description "StepMania is a dance and rhythm game.  It features 3D
6700 graphics, keyboard and dance pad support, and an editor for creating your own
6701 steps.
6702
6703 This package provides the core application, but no song is shipped.  You need
6704 to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
6705     (home-page "https://www.stepmania.com")
6706     (license license:expat)))
6707
6708 (define-public btanks
6709   (package
6710     (name "btanks")
6711     (version "0.9.8083")
6712     (source
6713      (origin
6714        (method url-fetch)
6715        (uri (string-append "mirror://sourceforge/btanks/btanks-source/"
6716                            "btanks-" version ".tar.bz2"))
6717        (sha256
6718         (base32
6719          "0ha35kxc8xlbg74wsrbapfgxvcrwy6psjkqi7c6adxs55dmcxliz"))))
6720     (build-system scons-build-system)
6721     (arguments
6722      `(#:tests? #f                      ; there are none
6723        #:scons ,scons-python2
6724        #:scons-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
6725        #:phases
6726        (modify-phases %standard-phases
6727          (add-after 'unpack 'replace-removed-scons-syntax
6728            (lambda _
6729              (substitute* "SConstruct"
6730                (("Options") "Variables")
6731                (("opts.Add\\(BoolOption.*") "opts.Add('gcc_visibility', 'gcc visibility', 'true')")
6732                (("opts.Add\\(EnumOption.*") "opts.Add('mode', 'build mode', 'release')"))
6733              #t))
6734          (add-after 'set-paths 'set-sdl-paths
6735            (lambda* (#:key inputs #:allow-other-keys)
6736              (setenv "CPATH"
6737                      (string-append (assoc-ref inputs "sdl")
6738                                     "/include/SDL:"
6739                                     (or (getenv "CPATH") "")))
6740              #t))
6741          (add-after 'unpack 'fix-compilation-errors
6742            (lambda _
6743              (substitute* "mrt/base_file.h"
6744                (("#include <string>" m)
6745                 (string-append m "\n#include <sys/types.h>")))
6746              (substitute* '("engine/sl08/sl08.h"
6747                             "engine/sl08/sl08.py")
6748                (("signal = NULL") "signal = 0")
6749                (("object\\(NULL\\)") "object(0)")
6750                (("func\\(NULL\\)") "func(0)")
6751                ((" connect\\(signal_ref\\)")
6752                 " this->connect(signal_ref)"))
6753              (substitute* "math/range_list.h"
6754                ((" lower_bound\\(value\\)")
6755                 " this->lower_bound(value)")
6756                (("      erase\\(i\\)")
6757                 "       this->erase(i)"))
6758              (substitute* "clunk/source.cpp"
6759                (("using namespace clunk" m)
6760                 (string-append "# define pow10f(x) exp10f(x)\n" m)))
6761              #t))
6762          (add-after 'unpack 'find-lua
6763            (lambda _
6764              (substitute* "engine/SConscript"
6765                (("lua5.1") "lua-5.1")
6766                (("bt_libs.append\\(lua\\)")
6767                 "bt_libs.append(\"lua\")"))
6768              #t)))))
6769     (inputs
6770      `(("expat" ,expat)
6771        ("glu" ,glu)
6772        ("libsmpeg" ,libsmpeg-with-sdl1)
6773        ("libvorbis" ,libvorbis)
6774        ("lua51" ,lua-5.1)
6775        ("sdl" ,(sdl-union (list sdl
6776                                 sdl-mixer
6777                                 sdl-image
6778                                 sdl-ttf)))
6779        ("zlib" ,zlib)))
6780     (native-inputs
6781      `(("pkg-config" ,pkg-config)
6782        ("zip" ,zip)))
6783     (home-page "http://btanks.sourceforge.net")
6784     (synopsis "Multiplayer tank battle game")
6785     (description "Battle Tanks (also known as \"btanks\") is a funny battle
6786 game, where you can choose one of three vehicles and eliminate your enemy
6787 using the whole arsenal of weapons.  It has original cartoon-like graphics and
6788 cool music, it’s fun and dynamic, it has several network modes for deathmatch
6789 and cooperative.")
6790     ;; Some parts (e.g. mrt/b64.cpp) are LGPLv2.1+, but the whole package is
6791     ;; released under GPLv2 or later.  It comes with extra exceptions for the
6792     ;; developers.
6793     (license (list license:gpl2+ license:lgpl2.1+))))
6794
6795 (define-public battle-tanks
6796   (deprecated-package "battle-tanks" btanks))
6797
6798 (define-public slingshot
6799   (package
6800     (name "slingshot")
6801     (version "0.9")
6802     (source
6803      (origin
6804        (method git-fetch)
6805        (uri (git-reference
6806              (url "https://github.com/ryanakca/slingshot.git")
6807              (commit version)))
6808        (file-name (git-file-name name version))
6809        (sha256
6810         (base32
6811          "19m8b6nsi786bc6gmkp185mwri3r5y249gjmqd5qsc23nnfhgrs1"))))
6812     (build-system python-build-system)
6813     (arguments
6814      `(#:python ,python-2))
6815     (inputs
6816      `(("python-pygame" ,python2-pygame)))
6817     (home-page "https://github.com/ryanakca/slingshot")
6818     (synopsis "Simple 2D shooting strategy game set in space")
6819     (description "Slingshot is a two-dimensional strategy game where two
6820 players attempt to shoot one another through a section of space populated by
6821 planets.  The main feature of the game is that the shots, once fired, are
6822 affected by the gravity of the planets.")
6823     (license license:gpl2+)))
6824
6825 (define-public 4dtris
6826   (package
6827     (name "4dtris")
6828     (version "0.4.3")
6829     (source
6830      (origin
6831        (method url-fetch)
6832        (uri (string-append "https://launchpad.net/4dtris/"
6833                            (version-major+minor version)
6834                            "/" version "/+download/4dtris_"
6835                            version ".orig.tar.gz"))
6836        (sha256
6837         (base32
6838          "1nfkhcm0l89jyw8yr65na97g4l385zhjf7whkyg47c3v5sdqq2g7"))))
6839     (build-system gnu-build-system)
6840     (arguments
6841      `(#:phases
6842        (modify-phases %standard-phases
6843          (add-after 'unpack 'fix-install-directories
6844            (lambda* (#:key outputs #:allow-other-keys)
6845              (let ((out (assoc-ref outputs "out")))
6846                (substitute* "Makefile.in"
6847                  (("bindir = /usr/games")
6848                   (string-append "bindir = " out "/bin"))
6849                  (("/usr/share/applications")
6850                   (string-append out "/share/applications"))
6851                  (("/usr/share/games/4dtris")
6852                   (string-append out "/share/4dtris"))))
6853              #t))
6854          (add-after 'set-paths 'set-sdl-paths
6855            (lambda* (#:key inputs #:allow-other-keys)
6856              (setenv "CPATH"
6857                      (string-append (assoc-ref inputs "sdl")
6858                                     "/include/SDL:"
6859                                     (or (getenv "CPATH") "")))
6860              #t)))))
6861     (inputs
6862      `(("fontconfig" ,fontconfig)
6863        ("freeglut" ,freeglut)
6864        ("sdl" ,(sdl-union (list sdl sdl-ttf)))))
6865     (home-page "https://launchpad.net/4dtris/")
6866     (synopsis "4D Tetris")
6867     (description "4D-TRIS is an alteration of the well-known Tetris game.  The
6868 game field is extended to 4D space, which has to filled up by the gamer with
6869 4D hyper cubes.")
6870     (license license:gpl3)))
6871
6872 (define-public arx-libertatis
6873   (package
6874     (name "arx-libertatis")
6875     (version "1.1.2")
6876     (source
6877      (origin
6878        (method url-fetch)
6879        (uri (string-append "http://arx-libertatis.org/files/arx-libertatis-"
6880                            version ".tar.xz"))
6881        (sha256
6882         (base32
6883          "0hjfxlsmp8wwqr06snv2dlly2s79ra0d9aw49gkp6rn8m50b9bc2"))))
6884     (build-system cmake-build-system)
6885     (outputs '("out" "installer"))
6886     (arguments
6887      '(#:tests? #f                      ; No tests.
6888        #:phases
6889        (modify-phases %standard-phases
6890          (add-after 'unpack 'fix-install-helper-paths
6891            (lambda* (#:key inputs #:allow-other-keys)
6892              (let ((p7zip (assoc-ref inputs "p7zip"))
6893                    (innoextract (assoc-ref inputs "innoextract"))
6894                    (wget (assoc-ref inputs "wget"))
6895                    (zenity (assoc-ref inputs "zenity")))
6896                (substitute* "scripts/arx-install-data"
6897                  (("have innoextract")
6898                   (string-append "have " innoextract "/bin/innoextract"))
6899                  (("then innoextract")
6900                   (string-append "then " innoextract "/bin/innoextract"))
6901                  (("else innoextract")
6902                   (string-append "else " innoextract "/bin/innoextract"))
6903                  (("for _extract_zip_sz in 7za 7z")
6904                   (string-append "for _extract_zip_sz in " p7zip "/bin/7za"))
6905                  (("else if have 7z")
6906                   (string-append "else if have " p7zip "/bin/7za"))
6907                  (("7z x -tiso")
6908                   (string-append p7zip "/bin/7z x -tiso"))
6909                  (("if have wget")
6910                   (string-append "if have " wget "/bin/wget"))
6911                  (("wget -O")
6912                   (string-append wget "/bin/wget -O"))
6913                  (("for backend in \\$preferred zenity")
6914                   (string-append "for backend in $preferred " zenity "/bin/zenity"))
6915                  (("zenity +--title")
6916                   (string-append zenity "/bin/zenity --title"))
6917                  (("^zenity\\)")
6918                   (string-append zenity "/bin/zenity)"))))
6919              #t))
6920          (add-after 'install 'move-installer
6921            (lambda* (#:key outputs #:allow-other-keys)
6922              (let ((out (assoc-ref outputs "out"))
6923                    (installer (assoc-ref outputs "installer")))
6924                (mkdir-p (string-append installer "/bin"))
6925                (rename-file (string-append out "/bin/arx-install-data")
6926                             (string-append installer "/bin/arx-install-data"))))))))
6927     (inputs
6928      `(("sdl" ,sdl)                     ; Switch to sdl2 in >1.1.2.
6929        ("mesa" ,mesa)                   ; Switch to libepoxy in >1.1.2.
6930        ("glew" ,glew)
6931        ("openal" ,openal)
6932        ("zlib" ,zlib)
6933        ("boost" ,boost)
6934        ("glm" ,glm)
6935        ("freetype" ,freetype)
6936        ;; The following are only needed by the arx-install-data script.
6937        ("p7zip" ,p7zip) ; Install-helper uses it to extract ISO and .cab archives.
6938        ("zenity" ,zenity)           ; GUI for install-helper.
6939        ("wget" ,wget)     ; Used by the install-helper to download the patch.
6940        ;; The install-helper needs it to extract the patch.
6941        ("innoextract" ,innoextract)))
6942     (home-page "https://arx-libertatis.org/")
6943     (synopsis "Port of Arx Fatalis, a first-person role-playing game")
6944     (description "Arx Libertatis is a cross-platform port of Arx Fatalis, a 2002
6945 first-person role-playing game / dungeon crawler developed by Arkane Studios.
6946 This port however does not include the game data, so you need to obtain a copy
6947 of the original Arx Fatalis or its demo to play Arx Libertatis.  Arx Fatalis
6948 features crafting, melee and ranged combat, as well as a unique casting system
6949 where the player draws runes in real time to effect the desired spell.")
6950     (license license:gpl3+)))
6951
6952 (define-public edgar
6953   (package
6954     (name "edgar")
6955     (version "1.32")
6956     (source
6957      (origin
6958        (method url-fetch)
6959        (uri
6960         (string-append "https://github.com/riksweeney/edgar/releases/download/"
6961                        version "/edgar-" version "-1.tar.gz"))
6962        (sha256
6963         (base32 "12lam6qcscc5ima1w2ksd1cvsvxbd17h6mqkgsqpzx8ap43p2r5p"))))
6964     (build-system gnu-build-system)
6965     (arguments '(#:tests? #f            ; there are no tests
6966                  #:make-flags
6967                  (list "CC=gcc"
6968                        (string-append "PREFIX=" (assoc-ref %outputs "out"))
6969                        (string-append "BIN_DIR=" (assoc-ref %outputs "out") "/bin/"))
6970                  #:phases
6971                  (modify-phases %standard-phases
6972                    (delete 'configure)
6973                    (add-before 'build 'fix-env
6974                      (lambda* (#:key inputs #:allow-other-keys)
6975                        (setenv "CPATH"
6976                                (string-append (assoc-ref inputs "sdl2-union")
6977                                               "/include/SDL2:"
6978                                               (or (getenv "CPATH") "")))
6979                        #t)))))
6980     (inputs
6981      `(("sdl2-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
6982        ("zlib" ,zlib)))
6983     (native-inputs
6984      `(("pkg-config" ,pkg-config)
6985        ("autoconf" ,autoconf)
6986        ("automake" ,automake)
6987        ("gnu-gettext" ,gnu-gettext)
6988        ("libtool" ,libtool)
6989        ("which" ,which)))
6990     (synopsis "2d action platformer game")
6991     (description "The Legend of Edgar is a 2D platform game with a persistent world.
6992 When Edgar's father fails to return home after venturing out one dark and stormy night,
6993 Edgar fears the worst: he has been captured by the evil sorcerer who lives in
6994 a fortress beyond the forbidden swamp.")
6995     (home-page "https://www.parallelrealities.co.uk/games/edgar/")
6996     (license license:gpl2+)))
6997
6998 (define-public the-legend-of-edgar
6999   (deprecated-package "the-legend-of-edgar" edgar))
7000
7001 (define-public openclonk
7002   (package
7003     (name "openclonk")
7004     (version "8.1")
7005     (source (origin
7006               (method url-fetch)
7007               (uri (string-append
7008                     "https://www.openclonk.org/builds/release/" version "/"
7009                     "openclonk-" version "-src.tar.bz2"))
7010               (sha256
7011                (base32
7012                 "0imkqjp8lww5p0cnqf4k4mb2v682mnsas63qmiz17rspakr7fxik"))))
7013     (build-system cmake-build-system)
7014     (arguments
7015      `(#:configure-flags '("-DAudio_TK=OpenAL")
7016        #:test-target "tests"
7017        #:phases
7018        (modify-phases %standard-phases
7019          (add-after 'unpack 'prepare-gmock
7020            (lambda* (#:key inputs #:allow-other-keys)
7021              (mkdir "gmock")
7022              (copy-recursively (assoc-ref inputs "googlemock") "gmock")
7023              (substitute* "tests/CMakeLists.txt"
7024                (("/usr/src/gmock")
7025                 (string-append (getcwd) "/gmock/googlemock"))
7026                (("/usr/src/gtest")
7027                 (string-append (getcwd) "/gmock/googletest"))
7028                (("PATH_SUFFIXES \"src\" \"gtest\"")
7029                 "PATH_SUFFIXES \"src\""))
7030              #t))
7031          (add-after 'unpack 'adjust-backward-cpp-includes
7032            (lambda _
7033              ;; XXX: The bundled backward-cpp exports a CMake "interface"
7034              ;; that includes external libraries such as libdl from glibc.
7035              ;; By default, CMake interface includes are treated as "system
7036              ;; headers", and GCC behaves poorly when glibc is passed as a
7037              ;; system header (causing #include_next failures).
7038
7039              ;; Here we prevent targets that consume the Backward::Backward
7040              ;; interface from treating it as "system includes".
7041              (substitute* "CMakeLists.txt"
7042                (("target_link_libraries\\((.+) Backward::Backward\\)" all target)
7043                 (string-append "set_property(TARGET " target " PROPERTY "
7044                                "NO_SYSTEM_FROM_IMPORTED true)\n"
7045                                all)))
7046              #t))
7047          (add-after 'unpack 'add-libiberty
7048            ;; Build fails upon linking executables without this.
7049            (lambda _
7050              (substitute* "thirdparty/backward-cpp/BackwardConfig.cmake"
7051                (("set\\(LIBBFD_LIBRARIES (.*?)\\)" _ libraries)
7052                 (string-append "set(LIBBFD_LIBRARIES " libraries " iberty)")))
7053              #t))
7054          (add-after 'add-libiberty 'lax-freealut-requirement
7055            ;; TODO: We provide freealut 1.1.0, but pkg-config somehow detects
7056            ;; it as 1.0.1.  Force minimal version.
7057            (lambda _
7058              (substitute* "cmake/FindAudio.cmake"
7059                (("freealut>=1.1.0") "freealut>=1.0.1"))
7060              #t))
7061          (add-after 'lax-freealut-requirement 'fix-directories
7062            ;; Prefer "$out/share/openclonk" over
7063            ;; "$out/share/games/openclonk". Also install "openclonk"
7064            ;; binary in "bin/", not "games/".
7065            (lambda _
7066              (substitute* "CMakeLists.txt"
7067                (("share/games/openclonk") "share/openclonk")
7068                (("TARGETS openclonk DESTINATION games")
7069                 "TARGETS openclonk DESTINATION bin"))
7070              #t)))))
7071     (native-inputs
7072      `(("googlemock" ,(package-source googletest))
7073        ("googletest" ,googletest)
7074        ("pkg-config" ,pkg-config)))
7075     (inputs
7076      `(("freealut" ,freealut)
7077        ("freetype" ,freetype)
7078        ("glew" ,glew)
7079        ("libiberty" ,libiberty)
7080        ("libjpeg" ,libjpeg-turbo)
7081        ("libogg" ,libogg)
7082        ("libpng" ,libpng)
7083        ("libvorbis" ,libvorbis)
7084        ("libxrandr" ,libxrandr)
7085        ("mesa" ,mesa)
7086        ("miniupnpc" ,miniupnpc)
7087        ("openal" ,openal)
7088        ("qtbase" ,qtbase)
7089        ("readline" ,readline)
7090        ("sdl" ,sdl2)
7091        ("tinyxml" ,tinyxml)
7092        ("zlib" ,zlib)))
7093     (home-page "https://www.openclonk.org/")
7094     (synopsis
7095      "Multiplayer action game where you control small and nimble humanoids")
7096     (description "OpenClonk is a multiplayer action/tactics/skill game.  It is
7097 often referred to as a mixture of The Settlers and Worms.  In a simple 2D
7098 antfarm-style landscape, the player controls a crew of Clonks, small but
7099 robust humanoid beings.  The game encourages free play but the normal goal is
7100 to either exploit valuable resources from the earth by building a mine or
7101 fight each other on an arena-like map.")
7102     ;; Software as a whole is licensed under ISC, artwork under CC-BY.
7103     (license (list license:isc license:cc-by3.0))))
7104
7105 (define-public flare-engine
7106   (package
7107     (name "flare-engine")
7108     (version "1.11")
7109     (source (origin
7110               (method git-fetch)
7111               (uri (git-reference
7112                     (url "https://github.com/flareteam/flare-engine.git")
7113                     (commit (string-append "v" version))))
7114               (file-name (git-file-name name version))
7115               (sha256
7116                (base32
7117                 "1mqr1s72p5bdh4kq2a8hg72dk8lwnddicjnd2cdp1sbfa9lmjym8"))))
7118     (build-system cmake-build-system)
7119     (arguments
7120      `(#:tests? #f                      ;no test
7121        #:configure-flags '("-DBINDIR=bin" "-DDATADIR=share/flare")))
7122     (inputs
7123      `(("hicolor-icon-theme" ,hicolor-icon-theme)
7124        ("python" ,python-wrapper)
7125        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
7126     (home-page "http://www.flarerpg.org/")
7127     (synopsis "Action Roleplaying Engine")
7128     (description "Flare (Free Libre Action Roleplaying Engine) is a simple
7129 game engine built to handle a very specific kind of game: single-player 2D
7130 action RPGs.")
7131     (license license:gpl3+)))
7132
7133 (define-public flare-game
7134   (package
7135     (name "flare-game")
7136     (version "1.11")
7137     (source (origin
7138               (method git-fetch)
7139               (uri (git-reference
7140                     (url "https://github.com/flareteam/flare-game.git")
7141                     (commit (string-append "v" version))))
7142               (file-name (git-file-name name version))
7143               (sha256
7144                (base32
7145                 "0bd5g7sd89a9176ilr408hdqzdfv4j7wj0idd685c1n6s01c3h6p"))))
7146     (build-system cmake-build-system)
7147     (arguments
7148      `(#:tests? #f                      ;no test
7149        #:configure-flags '("-DDATADIR=share/flare")
7150        #:phases
7151        (modify-phases %standard-phases
7152          ;; Flare expects the mods to be located in the same folder.
7153          ;; Yet, "default" mod is in the engine, whereas the others
7154          ;; are in the current package.  Merge everything here with
7155          ;; a symlink.
7156          (add-after 'install 'add-default-mod
7157            (lambda* (#:key inputs outputs #:allow-other-keys)
7158              (let* ((out (assoc-ref outputs "out"))
7159                     (mods (string-append out "/share/flare/mods")))
7160                (with-directory-excursion mods
7161                  (symlink (string-append (assoc-ref inputs "flare-engine")
7162                                          "/share/flare/mods/default")
7163                           "default")))
7164              #t))
7165          (add-after 'install 'install-executable
7166            ;; The package only provides assets for the game, the
7167            ;; executable coming from "flare-engine".  Since more than
7168            ;; one game may use the engine, we create a new executable,
7169            ;; "flare-game", which launches the engine with appropriate
7170            ;; parameters.
7171            (lambda* (#:key inputs outputs #:allow-other-keys)
7172              (let* ((out (assoc-ref outputs "out"))
7173                     (bash (string-append (assoc-ref inputs "bash")
7174                                          "/bin/bash"))
7175                     (flare (string-append (assoc-ref inputs "flare-engine")
7176                                           "/bin/flare"))
7177                     (script (string-append out "/bin/flare-game")))
7178                (mkdir-p (dirname script))
7179                (call-with-output-file script
7180                  (lambda (port)
7181                    (format port
7182                            "#!~a
7183 exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
7184                            bash
7185                            flare
7186                            out)))
7187                (chmod script #o755))
7188              #t)))))
7189     (inputs
7190      `(("flare-engine" ,flare-engine)))
7191     (home-page "http://www.flarerpg.org/")
7192     (synopsis "Fantasy action RPG using the FLARE engine")
7193     (description "Flare is a single-player 2D action RPG with
7194 fast-paced action and a dark fantasy style.")
7195     (license license:cc-by-sa3.0)))
7196
7197 (define-public meritous
7198   (package
7199     (name "meritous")
7200     (version "1.5")
7201     (source (origin
7202               (method git-fetch)
7203               (uri (git-reference
7204                     (url "https://gitlab.com/meritous/meritous.git")
7205                     (commit (string-append "v" version))))
7206               (file-name (git-file-name name version))
7207               (sha256
7208                (base32
7209                 "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
7210     (build-system gnu-build-system)
7211     (arguments
7212      `(#:tests? #f                      ;no test
7213        #:make-flags
7214        (list "CC=gcc"
7215              (string-append "prefix=" (assoc-ref %outputs "out")))
7216        #:phases
7217        (modify-phases %standard-phases
7218          (delete 'configure)
7219          (add-after 'unpack 'fix-sdl-path
7220            ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
7221            ;; directory, not SDL-union provided as an input to the package.
7222            ;; We force the latter with "--prefix=" option.
7223            (lambda* (#:key inputs #:allow-other-keys)
7224              (substitute* "Makefile"
7225                (("sdl-config" command)
7226                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7227              #t))
7228          (add-after 'unpack 'fix-crash
7229            ;; XXX: Songs are not present in the repository, due to licensing
7230            ;; issues.  Yet, the game tries to load them, and, since it cannot
7231            ;; find them, crashes.  Users cannot add them back, the store being
7232            ;; read-only, so we turn off background music altogether.
7233            (lambda _
7234              (substitute* "src/audio.c"
7235                (("PlayBackgroundMusic\\(new_track\\);" all)
7236                 (string-append "// " all)))
7237              #t)))))
7238     (native-inputs
7239      `(("intltool" ,intltool)))
7240     (inputs
7241      `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
7242        ("zlib" ,zlib)))
7243     (home-page "https://gitlab.com/meritous/meritous")
7244     (synopsis "Action-adventure dungeon crawl game")
7245     (description "Far below the surface of the planet is a place of limitless
7246 power.  Those that seek to control such a utopia will soon bring an end to
7247 themselves.  Seeking an end to the troubles that plague him, PSI user Merit
7248 journeys into the hallowed Orcus Dome in search of answers.
7249
7250 Meritous is a action-adventure game with simple controls but a challenge to
7251 find a balance of power versus recovery time during real-time battles.  Set in
7252 a procedurally generated world, the player can explore thousands of rooms in
7253 search of powerful artifacts, tools to help them, and to eventually free the
7254 Orcus Dome from evil.")
7255     (license license:gpl3+)))
7256
7257 (define-public marble-marcher
7258   (let ((commit "e580460a0c3826f9b28ab404607942a8ecb625d7")
7259         (revision "1"))
7260     (package
7261       (name "marble-marcher")
7262       (version (git-version "0" revision commit))
7263       (source (origin
7264                 (method git-fetch)
7265                 (uri (git-reference
7266                       (url "https://github.com/HackerPoet/MarbleMarcher.git")
7267                       (commit commit)))
7268                 (file-name (git-file-name name version))
7269                 (sha256
7270                  (base32
7271                   "0jjv832hl1v170n6gryp2sr3lgqndi9ab841qvgqk68bks8701mx"))))
7272       (build-system cmake-build-system)
7273       (arguments
7274        `(#:tests? #f  ; there are none
7275          #:phases
7276          (modify-phases %standard-phases
7277            (add-after 'unpack 'embed-asset-directory
7278              (lambda* (#:key outputs #:allow-other-keys)
7279                (let ((assets (string-append (assoc-ref outputs "out")
7280                                             "/share/marble-marcher/assets/")))
7281                  ;; Some of the files we're patching are
7282                  ;; ISO-8859-1-encoded, so choose it as the default
7283                  ;; encoding so the byte encoding is preserved.
7284                  (with-fluids ((%default-port-encoding #f))
7285                    (substitute* "src/Resource.rc"
7286                      (("../assets/icon.ico")
7287                       (string-append assets "icon.ico")))
7288                    (substitute* "src/Res.h"
7289                      (("assets/") assets))))
7290                #t))
7291            (replace 'install
7292              (lambda* (#:key outputs #:allow-other-keys)
7293                (let* ((out (assoc-ref outputs "out"))
7294                       (assets (string-append out "/share/marble-marcher/assets"))
7295                       (bin (string-append out "/bin/")))
7296                  (mkdir-p bin)
7297                  (mkdir-p assets)
7298                  (copy-recursively "../source/assets" assets)
7299                  (install-file "MarbleMarcher" bin))
7300                #t)))))
7301       (inputs
7302        `(("eigen" ,eigen)
7303          ("mesa" ,mesa)
7304          ("sfml" ,sfml)))
7305       (native-inputs
7306        `(("pkg-config" ,pkg-config)))
7307       (home-page "https://codeparade.itch.io/marblemarcher")
7308       (synopsis "Guide a marble across fractal landscapes")
7309       (description "Marble Marcher is a video game that uses a fractal physics
7310 engine and fully procedural rendering to produce beautiful and unique
7311 gameplay.  The game is played on the surface of evolving fractals.  The goal
7312 of the game is to get your marble to the flag as quickly as possible.  But be
7313 careful not to fall off the level or get crushed by the fractal!  There are 24
7314 levels to unlock.")
7315       ;; Code is under GPLv2+, assets are under CC-BY-SA 3.0 and OFL 1.1.
7316       (license (list license:gpl2+
7317                      license:silofl1.1
7318                      license:cc-by-sa3.0)))))
7319
7320 ;; This must be updated together with flightgear.
7321 (define simgear
7322   (package
7323     (name "simgear")
7324     (version "2018.3.2")
7325     (source (origin
7326               (method url-fetch)
7327               (uri (string-append "mirror://sourceforge/flightgear/release-"
7328                                   (version-major+minor version) "/"
7329                                   "simgear-" version ".tar.bz2"))
7330               (sha256
7331                (base32
7332                 "1941ay8rngz4vwsx37bbpxr48hpcvcbj3xw1hy264lq4qnl99c68"))))
7333     (build-system cmake-build-system)
7334     (arguments
7335      `(#:phases
7336        (modify-phases %standard-phases
7337          (replace 'check
7338            (lambda _
7339              ;; Skip tests that require internet access.
7340              (invoke "ctest" "-E" "(http|dns)"))))))
7341     (inputs
7342      `(("boost" ,boost-for-mysql) ; fails with 1.69
7343        ("curl" ,curl)
7344        ("expat" ,expat)
7345        ("mesa" ,mesa)
7346        ("openal" ,openal)
7347        ("openscenegraph" ,openscenegraph-3.4)
7348        ("zlib" ,zlib)))
7349     (home-page "https://home.flightgear.org/")
7350     (synopsis "Libraries for 3D simulations and games")
7351     (description "SimGear is a set of libraries designed to be used as
7352 building blocks for quickly assembling 3D simulations, games, and
7353 visualization applications.  SimGear is developed by the FlightGear project
7354 and also provides the base for the FlightGear Flight Simulator.")
7355     (license license:lgpl2.0+)))
7356
7357 (define-public flightgear
7358   (package
7359     (name "flightgear")
7360     (version (package-version simgear))
7361     (source (origin
7362               (method url-fetch)
7363               (uri (string-append "mirror://sourceforge/flightgear/release-"
7364                                   (version-major+minor version) "/"
7365                                   "flightgear-" version ".tar.bz2"))
7366               (sha256
7367                (base32
7368                 "0lzy524cjzs8vldcjcc750bgg5c4mq9fkymxxxzqf68ilc4d1jss"))
7369               (modules '((guix build utils)))
7370               (snippet
7371                '(begin
7372                   ;; There are some bundled libraries.
7373                   (for-each delete-file-recursively
7374                             '("3rdparty/sqlite3/"))
7375                   #t))))
7376     (build-system cmake-build-system)
7377     (arguments
7378      `(#:configure-flags
7379        (list "-DSYSTEM_SQLITE=ON"
7380              (string-append "-DFG_DATA_DIR="
7381                             (assoc-ref %outputs "out")
7382                             "/share/flightgear"))
7383        ;; TODO: test cannot be run because the "run_test_suite" executable
7384        ;; does not seem to be built.
7385        #:tests? #f
7386        #:phases
7387        (modify-phases %standard-phases
7388          (add-after 'install 'wrap-executable
7389            (lambda* (#:key inputs outputs #:allow-other-keys)
7390              (let ((out (assoc-ref outputs "out")))
7391                (wrap-program (string-append out "/bin/fgfs")
7392                  `("QT_PLUGIN_PATH" ":" prefix
7393                    ,(map (lambda (label)
7394                            (string-append (assoc-ref inputs label)
7395                                           "/lib/qt5/plugins"))
7396                          '("qtbase" "qtdeclarative" "qtsvg")))
7397                  `("QML2_IMPORT_PATH" ":" prefix
7398                    ,(map (lambda (label)
7399                            (string-append (assoc-ref inputs label)
7400                                           "/lib/qt5/qml"))
7401                          '("qtdeclarative" "qtsvg"))))
7402                #t)))
7403          (add-after 'install 'install-data
7404            (lambda* (#:key inputs outputs #:allow-other-keys)
7405              (let ((share (string-append (assoc-ref outputs "out") "/share/flightgear")))
7406                (mkdir-p share)
7407                (with-directory-excursion share
7408                  (invoke "tar" "xf" (assoc-ref inputs "flightgear-data")
7409                          "--strip-components=1")))
7410              #t)))))
7411     (inputs
7412      `(("boost" ,boost-for-mysql)       ; same as simgear
7413        ("dbus" ,dbus)
7414        ("eudev" ,eudev)
7415        ("freeglut" ,freeglut)
7416        ("freetype" ,freetype)
7417        ("glew" ,glew)
7418        ("libpng" ,libpng)
7419        ("openal" ,openal)
7420        ("openscenegraph" ,openscenegraph-3.4)
7421        ("plib" ,plib)
7422        ("qtbase" ,qtbase)
7423        ("qtdeclarative" ,qtdeclarative)
7424        ("qtsvg" ,qtsvg)
7425        ("simgear" ,simgear)
7426        ("speexdsp" ,speexdsp)
7427        ("sqlite" ,sqlite)
7428        ("zlib" ,zlib)))
7429     (native-inputs
7430      `(("cppunit" ,cppunit)
7431        ("pkg-config" ,pkg-config)
7432        ("qttools" ,qttools)
7433        ("flightgear-data"
7434         ,(origin
7435            (method url-fetch)
7436            (uri (string-append "mirror://sourceforge/flightgear/release-"
7437                                (version-major+minor version) "/"
7438                                "FlightGear-" version "-data.tar.bz2"))
7439            (sha256
7440             (base32
7441              "0h4npa7gqpf5fw6pv2bpw0wbwr7fa2vhia21cjbigfgd75x82zi7"))))))
7442     (home-page "https://home.flightgear.org/")
7443     (synopsis "Flight simulator")
7444     (description "The goal of the FlightGear project is to create a
7445 sophisticated flight simulator framework for use in research or academic
7446 environments, pilot training, as an industry engineering tool, for DIY-ers to
7447 pursue their favorite interesting flight simulation idea, and last but
7448 certainly not least as a fun, realistic, and challenging desktop flight
7449 simulator.")
7450     (license license:gpl2+)))
7451
7452 (define-public jumpnbump
7453   (package
7454     (name "jumpnbump")
7455     (version "1.61")
7456     (source (origin
7457               (method git-fetch)
7458               (uri (git-reference
7459                     (url "https://gitlab.com/LibreGames/jumpnbump.git")
7460                     (commit version)))
7461               (file-name (git-file-name name version))
7462               (sha256
7463                (base32
7464                 "12lwl5sl5n009nb83r8l4lakb9286csqdf1ynpmwwydy17giqsdp"))))
7465     (build-system gnu-build-system)
7466     (arguments
7467      `(#:make-flags
7468        (list "CC=gcc"
7469              (string-append "PREFIX=" (assoc-ref %outputs "out")))
7470        #:tests? #f                      ;no test
7471        #:phases
7472        (modify-phases %standard-phases
7473          (delete 'configure)            ;no configure script
7474          (add-after 'unpack 'fix-sdl-path
7475            ;; XXX: For some reason, `sdl2-config' reports stand-alone SDL
7476            ;; directory, not SDL-union provided as an input to the package.
7477            ;; We force the latter with "--prefix=" option.
7478            (lambda* (#:key inputs #:allow-other-keys)
7479              (substitute* "Makefile"
7480                (("sdl2-config" command)
7481                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7482              #t)))))
7483     (inputs
7484      `(("bzip2" ,bzip2)
7485        ("sdl" ,(sdl-union (list sdl2 sdl2-mixer sdl2-net)))
7486        ("zlib" ,zlib)))
7487     (native-inputs
7488      `(("gettext" ,gettext-minimal)))   ;for msgfmt
7489     (home-page "https://gitlab.com/LibreGames/jumpnbump")
7490     (synopsis "Multiplayer platform game with bunnies")
7491     (description "You, as a bunny, have to jump on your opponents to make them
7492 explode.  It is a true multiplayer game; you cannot play this alone.  You can
7493 play with up to four players simultaneously.  It has network support.")
7494     (license license:gpl2+)))
7495
7496 (define-public hedgewars
7497   (package
7498     (name "hedgewars")
7499     (version "1.0.0")
7500     (source (origin
7501               (method url-fetch)
7502               (uri (string-append "https://www.hedgewars.org/download/releases/"
7503                                   "hedgewars-src-" version ".tar.bz2"))
7504               (sha256
7505                (base32
7506                 "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1"))))
7507     (build-system cmake-build-system)
7508     (arguments
7509      ;; XXX: Engine is built as Pascal source code, requiring Free Pascal
7510      ;; Compiler, which we haven't packaged yet.  With the flag below, we use
7511      ;; a Pascal to C translator and Clang instead.
7512      `(#:configure-flags (list "-DBUILD_ENGINE_C=ON")
7513        #:phases
7514        (modify-phases %standard-phases
7515          (replace 'check
7516            (lambda _ (invoke "ctest"))))))
7517     (inputs
7518      `(("ffmpeg" ,ffmpeg)
7519        ("freeglut" ,freeglut)
7520        ("ghc-entropy" ,ghc-entropy)
7521        ("ghc-hslogger" ,ghc-hslogger)
7522        ("ghc-network" ,ghc-network)
7523        ("ghc-random" ,ghc-random)
7524        ("ghc-regex-tdfa" ,ghc-regex-tdfa)
7525        ("ghc-sandi" ,ghc-sandi)
7526        ("ghc-sha" ,ghc-sha)
7527        ("ghc-utf8-string" ,ghc-utf8-string)
7528        ("ghc-vector" ,ghc-vector)
7529        ("ghc-zlib" ,ghc-zlib)
7530        ("glew" ,glew)
7531        ("libpng" ,libpng)
7532        ("lua" ,lua-5.1)
7533        ("physfs" ,physfs)
7534        ("qtbase" ,qtbase)
7535        ("sdl" ,(sdl-union
7536                 (list sdl2 sdl2-mixer sdl2-net sdl2-ttf sdl2-image)))))
7537     (native-inputs
7538      `(("clang" ,clang)
7539        ("ghc" ,ghc)
7540        ("pkg-config" ,pkg-config)
7541        ("qttools" ,qttools)))
7542     (home-page "https://hedgewars.org/")
7543     (synopsis "Turn-based artillery game featuring fighting hedgehogs")
7544     (description
7545      "Hedgewars is a turn based strategy, artillery, action and comedy game,
7546 featuring the antics of pink hedgehogs with attitude as they battle from the
7547 depths of hell to the depths of space.
7548
7549 As commander, it's your job to assemble your crack team of hedgehog soldiers
7550 and bring the war to your enemy.")
7551     ;; Software as a whole is licensed under GPL-2 terms.  Artwork and
7552     ;; scripts are distributed under various terms.
7553     (license (list license:gpl2
7554                    license:bsd-2 license:bsd-3 license:cc-by3.0 license:cc0
7555                    license:expat license:fdl1.3+ license:public-domain
7556                    license:zlib))))
7557
7558 (define-public harmonist
7559   (package
7560     (name "harmonist")
7561     (version "0.3.0")
7562     (source (origin
7563               (method git-fetch)
7564               (uri (git-reference
7565                      (url "https://git.tuxfamily.org/harmonist/harmonist.git")
7566                      (commit (string-append "v" version))))
7567               (file-name (git-file-name name version))
7568               (sha256
7569                (base32
7570                 "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
7571     (build-system go-build-system)
7572     (arguments
7573      '(#:import-path "git.tuxfamily.org/harmonist/harmonist"))
7574     (inputs
7575      `(("go-github.com-nsf-termbox-go" ,go-github.com-nsf-termbox-go)))
7576     (home-page "https://harmonist.tuxfamily.org/")
7577     (synopsis "Stealth coffee-break roguelike game")
7578     (description "Harmonist: Dayoriah Clan Infiltration is a stealth
7579 coffee-break roguelike game.  The game has a heavy focus on tactical
7580 positioning, light and noise mechanisms, making use of various terrain types
7581 and cones of view for monsters.  Aiming for a replayable streamlined experience,
7582 the game avoids complex inventory management and character building, relying
7583 on items and player adaptability for character progression.")
7584     (license license:isc)))
7585
7586 (define-public harmonist-tk
7587   (package
7588     (inherit harmonist)
7589     (name "harmonist-tk")
7590     (arguments
7591       (append
7592         (package-arguments harmonist)
7593         `(#:phases
7594           (modify-phases %standard-phases
7595             (replace 'build
7596               (lambda _
7597                 (invoke "go" "install" "-v" "-x" "--tags" "tk"
7598                         "git.tuxfamily.org/harmonist/harmonist")))
7599             (replace 'check
7600               (lambda _
7601                 (invoke "go" "test" "--tags" "tk"
7602                         "git.tuxfamily.org/harmonist/harmonist")))))))
7603     (inputs
7604      `(("go-github.com-nsf-gothic" ,go-github.com-nsf-gothic)))))
7605
7606 (define-public drascula
7607   (package
7608     (name "drascula")
7609     (version "1.0")
7610     (source (origin
7611               (method url-fetch)
7612               (uri (string-append "mirror://sourceforge/scummvm/extras/"
7613                                   "Drascula_%20The%20Vampire%20Strikes%20Back/"
7614                                   "drascula-" version ".zip"))
7615               (sha256
7616                (base32
7617                 "1pj29rpb754sn6a56f8brfv6f2m1p5qgaqik7d68pfi2bb5zccdp"))))
7618     (build-system trivial-build-system)
7619     (arguments
7620      `(#:modules ((guix build utils))
7621        #:builder
7622        (begin
7623          (use-modules (guix build utils)
7624                       (ice-9 match))
7625          (let* ((out (assoc-ref %outputs "out"))
7626                 (share (string-append out "/share/drascula"))
7627                 (scummvm (assoc-ref %build-inputs "scummvm")))
7628            ;; Install data.
7629            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
7630                                        "/bin/unzip"))
7631                  (doc (string-append out "/share/doc/" ,name "-" ,version)))
7632              (for-each
7633               (lambda (input)
7634                 (invoke unzip
7635                         "-j"
7636                         (assoc-ref %build-inputs input)
7637                         "-x" "__MACOSX")
7638                 ;; Every input provides "readme.txt", and we want to
7639                 ;; preserve them all.  Therefore we rename them first.
7640                 (match input
7641                   ("drascula-int"
7642                    (rename-file "readme.txt" "readme-international.txt"))
7643                   ("drascula-audio"
7644                    (rename-file "readme.txt" "readme-audio.txt"))
7645                   (_ #f))
7646                 ;; Install documentation.
7647                 (for-each (lambda (f) (install-file f doc))
7648                           (find-files "." "\\.(txt|doc)$"))
7649                 ;; Install data.
7650                 (for-each (lambda (f) (install-file f share))
7651                           (find-files "." "\\.(ogg|00[0-9])$")))
7652               '("drascula-audio" "drascula-int" "source")))
7653            ;; Create standalone executable.
7654            (let* ((bin (string-append out "/bin"))
7655                   (executable (string-append bin "/drascula"))
7656                   (bash (string-append (assoc-ref %build-inputs "bash")
7657                                        "/bin/bash")))
7658              (mkdir-p bin)
7659              (with-output-to-file executable
7660                (lambda ()
7661                  (format #t "#!~a~%" bash)
7662                  (format #t
7663                          "exec ~a/bin/scummvm --path=~a drascula~%"
7664                          scummvm share)))
7665              (chmod executable #o755))
7666            ;; Create desktop file.  There is no dedicated icon for the
7667            ;; game, so we borrow SCUMMVM's.
7668            (let ((apps (string-append out "/share/applications")))
7669              (mkdir-p apps)
7670              (make-desktop-entry-file
7671               (string-append apps "/drascula.desktop")
7672               #:name "Drascula: The Vampire Strikes Back"
7673               #:generic-name "Drascula"
7674               #:exec (string-append out "/bin/drascula")
7675               #:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
7676               #:categories '("AdventureGame" "Game" "RolePlaying")
7677               #:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
7678               #:comment '((#f "Classic 2D point and click adventure game")
7679                           ("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
7680                           ("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
7681                           ("it" "Gioco classico di avventura punta e clicca 2D"))))
7682            #t))))
7683     (native-inputs
7684      `(("bash" ,bash)
7685        ("unzip" ,unzip)))
7686     (inputs
7687      `(("scummvm" ,scummvm)
7688        ("drascula-int"
7689         ,(let ((version "1.1"))
7690            (origin
7691              (method url-fetch)
7692              (uri (string-append "mirror://sourceforge/scummvm/extras/"
7693                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
7694                                  "drascula-int-" version ".zip"))
7695              (sha256
7696               (base32
7697                "12236i7blamal92p1i8dgp3nhp2yicics4whsl63v682bj999n14")))))
7698        ("drascula-audio"
7699         ,(let ((version "2.0"))
7700            (origin
7701              (method url-fetch)
7702              (uri (string-append "mirror://sourceforge/scummvm/extras/"
7703                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
7704                                  "drascula-audio-" version ".zip"))
7705              (sha256
7706               (base32
7707                "00g4izmsqzxb8ry1vhfx6jrygl58lvlij09nw01ds4zddsiznsky")))))))
7708     (home-page "https://www.scummvm.org")
7709     (synopsis "Classic 2D point and click adventure game")
7710     (description "Drascula: The Vampire Strikes Back is a classic humorous 2D
7711 point and click adventure game.
7712
7713 In Drascula you play the role of John Hacker, a British estate agent, that
7714 gets to meet a gorgeous blond girl who is kidnapped by the notorious vampire
7715 Count Drascula and embark on a fun yet dangerous quest to rescue her.
7716 Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING
7717 the World and demonstrating that he is even more evil than his brother Vlad.")
7718     ;; Drascula uses a BSD-like license.
7719     (license (license:non-copyleft "file:///readme.txt"))))
7720
7721 (define-public gnurobots
7722   (package
7723     (name "gnurobots")
7724     (version "1.2.0")
7725     (source
7726      (origin
7727        (method url-fetch)
7728        (uri (string-append "mirror://gnu/gnurobots/gnurobots-"
7729                            version ".tar.gz"))
7730        (sha256
7731         (base32
7732          "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb"))))
7733     (build-system gnu-build-system)
7734     (inputs
7735      `(("glib" ,glib)
7736        ("gtk+" ,gtk+-2)
7737        ("vte" ,vte/gtk+-2)
7738        ("readline" ,readline)
7739        ("guile" ,guile-1.8)))
7740     (native-inputs
7741      `(("pkg-config" ,pkg-config)))
7742     (arguments
7743      `(#:make-flags
7744        (list
7745         ;; Do not abort build on "deprecated-declarations" warnings.
7746         "CFLAGS=-Wno-error=deprecated-declarations"
7747         ;; Find readline headers in sub-directory.
7748         (string-append "READLINE_CFLAGS=-I"
7749                        (assoc-ref %build-inputs "readline")
7750                        "/include/readline/"))
7751        #:phases
7752        (modify-phases %standard-phases
7753          (add-after 'install 'install-doc
7754            (lambda* (#:key outputs #:allow-other-keys)
7755              (install-file "doc/Robots-HOWTO"
7756                            (string-append (assoc-ref outputs "out")
7757                                           "/share/doc/gnurobots-"
7758                                           ,version))
7759              #t)))))
7760     (home-page "https://www.gnu.org/software/gnurobots/")
7761     (synopsis "Program a little robot and watch it explore a world")
7762     (description
7763      "GNU Robots is a game in which you program a robot to explore a world
7764 full of enemies that can hurt it, obstacles and food to be eaten.  The goal of
7765 the game is to stay alive and collect prizes.  The robot program conveniently
7766 may be written in a plain text file in the Scheme programming language.")
7767     (license license:gpl3+)))
7768
7769 (define-public ri-li
7770   (package
7771     (name "ri-li")
7772     (version "2.0.1")
7773     (source (origin
7774               (method url-fetch)
7775               (uri (string-append "mirror://sourceforge/ri-li/"
7776                                   "Ri-li%20Linux_Unix/Ri-li%20V" version "/"
7777                                   "Ri-li-" version ".tar.bz2"))
7778               (sha256
7779                (base32
7780                 "1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
7781               ;; Taken from
7782               ;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
7783               ;; It doesn't build otherwise.
7784               (patches (search-patches "ri-li-modernize_cpp.patch"))))
7785     (build-system gnu-build-system)
7786     (arguments
7787      `(#:phases
7788        (modify-phases %standard-phases
7789          ;; Remove "gentoo" subdirectory from Makefile, as it is
7790          ;; missing a make file and generates a build failure.
7791          (add-after 'configure 'fix-build
7792            (lambda _
7793              (substitute* "Makefile"
7794                ((" gentoo") ""))
7795              #t))
7796          (add-after 'install 'install-desktop-file
7797            (lambda* (#:key outputs #:allow-other-keys)
7798              (let* ((out (assoc-ref outputs "out"))
7799                     (apps (string-append out "/share/applications"))
7800                     (pixmaps (string-append out "/share/pixmaps")))
7801                (for-each (lambda (f) (install-file f pixmaps))
7802                          (find-files "data" "\\.(png|ico)$"))
7803                (mkdir-p apps)
7804                (with-output-to-file (string-append apps "/ri-li.desktop")
7805                  (lambda _
7806                    (format #t
7807                            "[Desktop Entry]~@
7808                      Name=Ri-li~@
7809                      Exec=~a/bin/Ri_li~@
7810                      Icon=~a/Ri-li-icon-32x32.png~@
7811                      Categories=Game;ArcadeGame;~@
7812                      Keywords=toy;train;wooden;snake-like;engine;~@
7813                      Comment=a toy simulator game~@
7814                      Comment[de]=Ein Spiel mit einem kleinen Zug~@
7815                      Comment[fr]=un jeu de petit train~@
7816                      Comment[ro_RO]=un joc cu un tren de jucărie~@
7817                      Terminal=false~@
7818                      Type=Application~%"
7819                            out pixmaps))))
7820              #t))
7821          (add-after 'install-desktop-file 'remove-spurious-files
7822            ;; Delete redundant files already installed somewhere else.
7823            (lambda* (#:key outputs #:allow-other-keys)
7824              (let ((out (assoc-ref outputs "out")))
7825                (for-each delete-file
7826                          (find-files (string-append out "/share/Ri-li")
7827                                      "\\.(png|ico)|COPYING"))
7828                #t))))))
7829     (inputs
7830      `(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
7831     (home-page "http://www.ri-li.org")
7832     (synopsis "Toy train simulation game")
7833     (description "Ri-li is a game in which you drive a wooden toy
7834 steam locomotive across many levels and collect all the coaches to
7835 win.")
7836     ;; The project is dual-licensed GPL2+ and GPL3+.
7837     (license (list license:gpl2+ license:gpl3+))))
7838
7839 (define-public freeorion
7840   (package
7841     (name "freeorion")
7842     (version "0.4.8")
7843     (source
7844      (origin
7845        (method git-fetch)
7846        (uri (git-reference
7847              (url "https://github.com/freeorion/freeorion.git")
7848              ;; Most recent stable release uses boost_signals (v1) which was
7849              ;; later replaced with boost-signals2 and no longer exists.  This
7850              ;; commit builds and runs.
7851              ;;
7852              ;; TODO: Update this when the next stable release when it is
7853              ;; available.
7854              (commit "470d0711537804df3c2ca25532f674ab4bec58af")))
7855        (file-name (git-file-name name version))
7856        (sha256
7857         (base32
7858          "1wsw632l1cj17px6i88nqjzs0dngp5rsr67n6qkkjlfjfxi69j0f"))
7859        (modules '((guix build utils)))
7860        (snippet
7861         '(begin
7862            ;; There are some bundled fonts.
7863            (for-each delete-file-recursively '("default/data/fonts"))
7864            #t))))
7865     (build-system cmake-build-system)
7866     (arguments
7867      '(#:tests? #f                      ;no test
7868        #:phases
7869        (modify-phases %standard-phases
7870          (add-after 'unpack 'unbundle-fonts
7871            (lambda* (#:key inputs #:allow-other-keys)
7872              (let ((roboto-dir (string-append (assoc-ref inputs "font-roboto")
7873                                               "/share/fonts/truetype/")))
7874                (substitute* "UI/ClientUI.cpp"
7875                  (("\\(GetRootDataDir.*?Roboto-(Bold|Regular)\\.ttf\"\\)\\.string\\(\\)\\);"
7876                    all type)
7877                   (string-append "\"" roboto-dir "Roboto-" type ".ttf\");")))
7878                #t))))))
7879     (inputs
7880      `(("boost" ,boost)
7881        ("boost_signals" ,boost-signals2)
7882        ("font-dejavu" ,font-dejavu)
7883        ("font-roboto" ,font-google-roboto)
7884        ("freetype2" ,freetype)
7885        ("glew" ,glew)
7886        ("glu" ,glu)
7887        ("libogg" ,libogg)
7888        ("libpng" ,libpng)
7889        ("libvorbis" ,libvorbis)
7890        ("openal" ,openal)
7891        ("python2" ,python-2.7)
7892        ("sdl2" ,sdl2)
7893        ("zlib" ,zlib)))
7894     (home-page "https://www.freeorion.org/index.php/Main_Page")
7895     (synopsis "Turn-based space empire and galactic conquest computer game")
7896     (description
7897      "FreeOrion is a turn-based space empire and galactic conquest (4X)
7898 computer game being designed and built by the FreeOrion project.  Control an
7899 empire with the goal of exploring the galaxy, expanding your territory,
7900 exploiting the resources, and exterminating rival alien empires.  FreeOrion is
7901 inspired by the tradition of the Master of Orion games, but is not a clone or
7902 remake of that series or any other game.")
7903     ;; Source code is released under gpl2.  Artwork, music and sounds, and
7904     ;; in-game text are released under cc-by-sa3.0.  Game content scripts are
7905     ;; released under both gpl2 and cc-by-sa3.0.  Bundled Gigi library is
7906     ;; released under lgpl2.1+.
7907     (license (list license:gpl2 license:cc-by-sa3.0 license:lgpl2.1+))))
7908
7909 (define-public leela-zero
7910   (package
7911    (name "leela-zero")
7912    (version "0.17")
7913    (source
7914     (origin
7915      (method git-fetch)
7916      (uri (git-reference
7917            (url "https://github.com/leela-zero/leela-zero.git")
7918            (commit (string-append "v" version))))
7919      (file-name (git-file-name name version))
7920      (sha256
7921       (base32
7922        "17px5iny8mql5c01bymcli7zfssswkzvb2i8gnsmjcck6i2n8srl"))
7923      (patches (search-patches "leela-zero-gtest.patch"))))
7924    (build-system cmake-build-system)
7925    (native-inputs
7926     `(("googletest" ,googletest)))
7927    (inputs
7928     `(("boost" ,boost)
7929       ("ocl-icd" ,ocl-icd)
7930       ("openblas" ,openblas)
7931       ("opencl-headers" ,opencl-headers)
7932       ("qtbase" ,qtbase)
7933       ("zlib" ,zlib)))
7934    (arguments
7935     '(#:configure-flags '("-DUSE_BLAS=YES")
7936       #:phases (modify-phases %standard-phases
7937                  (add-before 'configure 'fix-tests
7938                    (lambda* (#:key outputs #:allow-other-keys)
7939                      (let ((home (getcwd)))
7940                        (setenv "HOME" home)
7941                        (substitute* "src/tests/gtests.cpp"
7942                          (("\\.\\./src/tests/0k\\.txt")
7943                           (string-append home "/src/tests/0k.txt"))
7944                          (("cfg_gtp_mode = true;")
7945                           "cfg_gtp_mode = true; cfg_cpu_only = true;")))
7946                      #t))
7947                  (replace 'check
7948                    (lambda _
7949                      (invoke "./tests"))))))
7950    (home-page "https://github.com/leela-zero/leela-zero")
7951    (synopsis "Program playing the game of Go")
7952    (description
7953     "Leela-zero is a Go engine with no human-provided knowledge, modeled after
7954 the AlphaGo Zero paper.  The current best network weights file for the engine
7955 can be downloaded from @url{https://zero.sjeng.org/best-network}.")
7956    (license license:gpl3+)))
7957
7958 (define-public q5go
7959   (package
7960    (name "q5go")
7961    (version "1.0")
7962    (source (origin
7963             (method git-fetch)
7964             (uri (git-reference
7965                   (url "https://github.com/bernds/q5Go.git")
7966                   (commit (string-append "q5go-" version))))
7967             (file-name (git-file-name name version))
7968             (sha256
7969              (base32
7970               "1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
7971    (build-system gnu-build-system)
7972    (native-inputs
7973     `(("pkg-config" ,pkg-config)))
7974    (inputs
7975     `(("qtbase" ,qtbase)
7976       ("qtmultimedia" ,qtmultimedia)
7977       ("qtsvg" ,qtsvg)))
7978    (arguments
7979     '(#:phases
7980       (modify-phases %standard-phases
7981         (add-after 'unpack 'fix-configure-script
7982           (lambda _
7983             ;; Bypass the unavailable qtchooser program.
7984             (substitute* "configure"
7985               (("test -z \"QTCHOOSER\"")
7986                "false")
7987               (("qtchooser -run-tool=(.*) -qt=qt5" _ command)
7988                command))
7989             #t))
7990         (add-after 'unpack 'fix-paths
7991           (lambda _
7992             (substitute* '("src/pics/Makefile.in"
7993                            "src/translations/Makefile.in")
7994               (("\\$\\(datadir\\)/qGo/")
7995                "$(datadir)/q5go/"))
7996             #t))
7997         (add-after 'install 'install-desktop-file
7998           (lambda* (#:key outputs #:allow-other-keys)
7999             (let* ((out (assoc-ref outputs "out"))
8000                    (apps (string-append out "/share/applications"))
8001                    (pics (string-append out "/share/q5go/pics")))
8002               (delete-file-recursively (string-append out "/share/applnk"))
8003               (delete-file-recursively (string-append out "/share/mimelnk"))
8004               (install-file "../source/src/pics/Bowl.ico" pics)
8005               (mkdir-p apps)
8006               (with-output-to-file (string-append apps "/q5go.desktop")
8007                 (lambda _
8008                   (format #t
8009                           "[Desktop Entry]~@
8010                            Name=q5go~@
8011                            Exec=~a/bin/q5go~@
8012                            Icon=~a/Bowl.ico~@
8013                            Categories=Game;~@
8014                            Comment=Game of Go~@
8015                            Comment[de]=Spiel des Go~@
8016                            Comment[eo]=Goo~@
8017                            Comment[es]=Juego de Go~@
8018                            Comment[fr]=Jeu de Go~@
8019                            Comment[ja]=囲碁~@
8020                            Comment[ko]=바둑~@
8021                            Comment[zh]=围棋~@
8022                            Terminal=false~@
8023                            Type=Application~%"
8024                           out pics))))
8025              #t)))))
8026    (synopsis "Qt GUI to play the game of Go")
8027    (description
8028     "This a tool for Go players which performs the following functions:
8029 @itemize
8030 @item SGF editor,
8031 @item Analysis frontend for Leela Zero (or compatible engines),
8032 @item GTP interface (to play against an engine),
8033 @item IGS client (to play on the internet),
8034 @item Export games to a variety of formats.
8035 @end itemize")
8036    (home-page "https://github.com/bernds/q5Go")
8037    (license license:gpl2+)))
8038
8039 (define-public ktuberling
8040   (package
8041     (name "ktuberling")
8042     (version "19.08.3")
8043     (source
8044      (origin
8045       (method url-fetch)
8046       (uri (string-append "mirror://kde/stable/applications/" version
8047                           "/src/ktuberling-" version ".tar.xz"))
8048       (sha256
8049        (base32 "1qdf4q6wjh1lnlqw5c8z4rpj9w5vbyjfri1dah6yjm3mwppbc12j"))))
8050     (build-system qt-build-system)
8051     (native-inputs
8052      `(("extra-cmake-modules" ,extra-cmake-modules)
8053        ("perl" ,perl)))
8054     (inputs
8055      `(("kcompletion" ,kcompletion)
8056        ("kconfigwidgets" ,kconfigwidgets)
8057        ("kcoreaddons" ,kcoreaddons)
8058        ("kcrash" ,kcrash)
8059        ("kdbusaddons" ,kdbusaddons)
8060        ("kdelibs4support" ,kdelibs4support)
8061        ("ki18n" ,ki18n)
8062        ("kwidgetsaddons" ,kwidgetsaddons)
8063        ("kxmlgui" ,kxmlgui)
8064        ("libkdegames" ,libkdegames)
8065        ("qtbase" ,qtbase)
8066        ("qtmultimedia" ,qtmultimedia)
8067        ("qtdeclarative" ,qtdeclarative)
8068        ("qtsvg" ,qtsvg)))
8069     (home-page "https://games.kde.org/")
8070     (synopsis "Stamp drawing toy")
8071     (description "KTuberling is a drawing toy intended for small children and
8072 adults who remain young at heart.  The game has no winner; the only purpose is
8073 to make the funniest faces you can.  Several activites are possible, e.g.:
8074
8075 @itemize
8076 @item Give the potato a funny face, clothes, and other goodies
8077 @item Build a small town, complete with school, zoo, and fire department
8078 @item Create a fantastic moonscape with spaceships and aliens
8079 @item Top a pizza
8080 @end itemize
8081
8082 KTuberling can speak the name of each the object in several languages,
8083 to assist in learning basic vocabulary.
8084
8085 This package is part of the KDE games module.")
8086     (license (list license:gpl2+ license:fdl1.2+))))
8087
8088 (define-public picmi
8089   (package
8090     (name "picmi")
8091     (version "19.08.3")
8092     (source
8093      (origin
8094       (method url-fetch)
8095       (uri (string-append "mirror://kde/stable/applications/" version
8096                           "/src/picmi-" version ".tar.xz"))
8097       (sha256
8098        (base32 "0z9mpmv49w914gqdx274brdzl6d1bz9j9nkvbwgmr3iq1ba49m3f"))))
8099     (build-system qt-build-system)
8100     (native-inputs
8101      `(("extra-cmake-modules" ,extra-cmake-modules)
8102        ("kdoctools" ,kdoctools)))
8103     (inputs
8104      `(("kcoreaddons" ,kcoreaddons)
8105        ("kcrash" ,kcrash)
8106        ("kdbusaddons" ,kdbusaddons)
8107        ("kdeclarative" ,kdeclarative)
8108        ("ki18n" ,ki18n)
8109        ("kio" ,kio)
8110        ("knewstuff" ,knewstuff)
8111        ("kxmlgui" ,kxmlgui)
8112        ("libkdegames" ,libkdegames)
8113        ("qtbase" ,qtbase)
8114        ("qtdeclarative" ,qtdeclarative)
8115        ("qtsvg" ,qtsvg)))
8116     (home-page "https://games.kde.org/")
8117     (synopsis "Number logic game")
8118     (description "Picmi is a number logic game in which cells in a grid have
8119 to be colored or left blank according to numbers given at the side of the
8120 grid.  The aim is to reveal a hidden picture.
8121
8122 This package is part of the KDE games module.")
8123     (license (list license:gpl2+ license:fdl1.2+))))
8124
8125 (define-public kolf
8126   (package
8127     (name "kolf")
8128     (version "19.08.3")
8129     (source
8130      (origin
8131        (method url-fetch)
8132        (uri (string-append "mirror://kde/stable/applications/" version
8133                            "/src/kolf-" version ".tar.xz"))
8134        (sha256
8135         (base32 "06sfd0llr5cc3zf1vrpcxgw9bm009ky7y8822kynic9ipcd4z1hw"))))
8136     (build-system qt-build-system)
8137     (native-inputs
8138      `(("extra-cmake-modules" ,extra-cmake-modules)
8139        ("kdoctools" ,kdoctools)))
8140     (inputs
8141      `(("kcompletion" ,kcompletion)
8142        ("kconfigwidgets" ,kconfigwidgets)
8143        ("kcoreaddons" ,kcoreaddons)
8144        ("kcrash" ,kcrash)
8145        ("kdbusaddons" ,kdbusaddons)
8146        ("ki18n" ,ki18n)
8147        ("kio" ,kio)
8148        ("kwidgetsaddons" ,kwidgetsaddons)
8149        ("kxmlgui" ,kxmlgui)
8150        ("ktextwidgets" ,ktextwidgets)
8151        ("libkdegames" ,libkdegames)
8152        ("qtbase" ,qtbase)
8153        ("qtdeclarative" ,qtdeclarative)))
8154     (home-page "https://games.kde.org/")
8155     (synopsis "Miniature golf game")
8156     (description "Kolf is a miniature golf game for one to ten players.  The
8157 game is played from an overhead view, with a short bar representing the golf
8158 club.  Kolf features many different types of objects, such as water hazards,
8159 slopes, sand traps, and black holes (warps), among others.
8160
8161 Features are:
8162 @itemize
8163 @item Single and Multi-player (up to ten players) modes
8164 @item High scores table
8165 @item Dynamic courses
8166 @item Third-party courses
8167 @item Course editor
8168 @end itemize
8169
8170 This package is part of the KDE games module.")
8171     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8172
8173 (define-public libkmahjongg
8174   (package
8175     (name "libkmahjongg")
8176     (version "19.08.3")
8177     (source
8178      (origin
8179       (method url-fetch)
8180       (uri (string-append "mirror://kde/stable/applications/"
8181                           version "/src/libkmahjongg-" version ".tar.xz"))
8182       (sha256
8183        (base32 "0rdimk11hrc8qrmiv26z0ddjzi1k6806c0rfskx4cwmildmh6zgx"))))
8184     (build-system qt-build-system)
8185     (native-inputs
8186      `(("extra-cmake-modules" ,extra-cmake-modules)))
8187     (inputs
8188      `(("kauth" ,kauth)
8189        ("kcompletion" ,kcompletion)
8190        ;("kconfig" ,kconfig)
8191        ("kcodecs" ,kcodecs)
8192        ("kconfigwidgets" ,kconfigwidgets)
8193        ("kcoreaddons" ,kcoreaddons)
8194        ("ki18n" ,ki18n)
8195        ("kwidgetsaddons" ,kwidgetsaddons)
8196        ("qtbase" ,qtbase)
8197        ("qtsvg" ,qtsvg)))
8198     (home-page "https://games.kde.org/")
8199     (synopsis "Shared library for kmahjongg and kshisen")
8200     (description "Shared library and common files for kmahjongg, kshisen and
8201 other Mah Jongg like games.")
8202     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8203
8204 (define-public kmahjongg
8205   (package
8206     (name "kmahjongg")
8207     (version "19.08.3")
8208     (source
8209      (origin
8210       (method url-fetch)
8211       (uri (string-append "mirror://kde/stable/applications/"
8212                           version "/src/kmahjongg-" version ".tar.xz"))
8213       (sha256
8214        (base32 "08na845h0nhmfrszdmvfq5y1dy7kgbrlzjp0f5snvbbf7w44ci6p"))))
8215     (build-system qt-build-system)
8216     (native-inputs
8217      `(("extra-cmake-modules" ,extra-cmake-modules)
8218        ("kdoctools" ,kdoctools)))
8219     (inputs
8220      `(("kcompletion" ,kcompletion)
8221        ("kcrash" ,kcrash)
8222        ("kdbusaddons" ,kdbusaddons)
8223        ("kdeclarative" ,kdeclarative)
8224        ("ki18n" ,ki18n)
8225        ("knewstuff" ,knewstuff)
8226        ("kxmlgui" ,kxmlgui)
8227        ("libkdegames" ,libkdegames)
8228        ("libkmahjongg" ,libkmahjongg)
8229        ("qtbase" ,qtbase)
8230        ("qtdeclarative" ,qtdeclarative)
8231        ("qtsvg" ,qtsvg)))
8232     (home-page "https://games.kde.org/")
8233     (synopsis "Tile laying patience")
8234     (description "In KMahjongg the tiles are scrambled and staked on top of
8235 each other to resemble a certain shape.  The player is then expected to remove
8236 all the tiles off the game board by locating each tile's matching pair.
8237
8238 A variety of tile layouts are included, as well as an editor to create new
8239 layouts.
8240
8241 This package is part of the KDE games module.")
8242     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8243
8244 (define-public kshisen
8245   (package
8246     (name "kshisen")
8247     (version "19.08.3")
8248     (source
8249      (origin
8250       (method url-fetch)
8251       (uri (string-append "mirror://kde/stable/applications/"
8252                           version "/src/kshisen-" version ".tar.xz"))
8253       (sha256
8254        (base32 "1bq5m48af4h5apfp3bfsp76nlpv6h5sc0gd544zv7cgpfznz1sds"))))
8255     (build-system qt-build-system)
8256     (native-inputs
8257      `(("extra-cmake-modules" ,extra-cmake-modules)
8258        ;("perl" ,perl)
8259        ;("pkg-config" ,pkg-config)
8260        ("kdoctools" ,kdoctools)))
8261     (inputs
8262      `(("kauth" ,kauth)
8263        ("kcompletion" ,kcompletion)
8264        ("kconfigwidgets" ,kconfigwidgets)
8265        ("kcoreaddons" ,kcoreaddons)
8266        ("kcrash" ,kcrash)
8267        ("kdbusaddons" ,kdbusaddons)
8268        ("ki18n" ,ki18n)
8269        ("kxmlgui" ,kxmlgui)
8270        ("libkdegames" ,libkdegames)
8271        ("libkmahjongg" ,libkmahjongg)
8272        ("qtbase" ,qtbase)
8273        ("qtdeclarative" ,qtdeclarative)))
8274     (home-page "https://games.kde.org/")
8275     (synopsis "Shisen-Sho solitaire game")
8276     (description "KShisen is a solitaire-like game played using the standard
8277 set of Mahjong tiles.  Unlike Mahjong however, KShisen has only one layer of
8278 scrambled tiles
8279
8280 This package is part of the KDE games module.")
8281     (license license:gpl2+)))
8282
8283 (define-public kajongg
8284   (package
8285     (name "kajongg")
8286     (version "19.08.3")
8287     (source
8288      (origin
8289       (method url-fetch)
8290       (uri (string-append "mirror://kde/stable/applications/"
8291                           version "/src/kajongg-" version ".tar.xz"))
8292       (sha256
8293        (base32 "0ql6p5zifdpdf65r7ki9ml123azpwwk9x3x8r9ij6xhjnf7p7x6w"))))
8294     (build-system qt-build-system)
8295     (native-inputs
8296      `(("extra-cmake-modules" ,extra-cmake-modules)
8297        ;("perl" ,perl)
8298        ("kdoctools" ,kdoctools)))
8299     (inputs
8300      `(("kconfig" ,kconfig)
8301        ("kconfigwidgets" ,kconfigwidgets)
8302        ("kcoreaddons" ,kcoreaddons)
8303        ("ki18n" ,ki18n)
8304        ("libkmahjongg" ,libkmahjongg)
8305        ("python" ,python)
8306        ("qtbase" ,qtbase)
8307        ("qtsvg" ,qtsvg)))
8308     (propagated-inputs
8309      `(("python-twisted" ,python-twisted)
8310        ("python-pyqt" ,python-pyqt)))
8311     ;; FIXME: Need to wrap PYTHONPATH
8312     (home-page "https://games.kde.org/")
8313     (synopsis "Classical Mah Jongg game for 4 players")
8314     (description "Kajongg is the ancient Chinese board game for 4 players.
8315
8316 If you are looking for the Mah Jongg solitaire please use the application
8317 kmahjongg.
8318
8319 Kajongg can be used in two different ways: Scoring a manual game where you
8320 play as always and use Kajongg for the computation of scores and for
8321 bookkeeping.  Or you can use Kajongg to play against any combination of other
8322 human players or computer players.
8323
8324 This package is part of the KDE games module.")
8325     (license (list license:gpl2+ license:fdl1.2+))))
8326
8327 (define-public kbreakout
8328   (package
8329     (name "kbreakout")
8330     (version "19.08.3")
8331     (source
8332      (origin
8333       (method url-fetch)
8334       (uri (string-append "mirror://kde/stable/applications/" version
8335                           "/src/kbreakout-" version ".tar.xz"))
8336       (sha256
8337        (base32 "0gwzx1z9mxrjlcjzglg8cxkyd6900whcar3b5j9laxxarc6xhj8w"))))
8338     (build-system qt-build-system)
8339     (native-inputs
8340      `(("extra-cmake-modules" ,extra-cmake-modules)
8341        ("kdoctools" ,kdoctools)))
8342     (inputs
8343      `(("kcompletion" ,kcompletion)
8344        ("kconfig" ,kconfig)
8345        ("kconfigwidgets" ,kconfigwidgets)
8346        ("kcoreaddons" ,kcoreaddons)
8347        ("kcrash" ,kcrash)
8348        ("kdbusaddons" ,kdbusaddons)
8349        ("ki18n" ,ki18n)
8350        ("kwidgetsaddons" ,kwidgetsaddons)
8351        ("kxmlgui" ,kxmlgui)
8352        ("libkdegames" ,libkdegames)
8353        ("qtbase" ,qtbase)
8354        ("qtdeclarative" ,qtdeclarative)))
8355     (home-page "https://games.kde.org/")
8356     (synopsis "Breakout like game")
8357     (description "KBreakout is similar to the classics breakout and xboing,
8358 featuring a number of added graphical enhancements and effects.  You control a
8359 paddle at the bottom of the playing-field, and must destroy bricks at the top
8360 by bouncing balls against them.
8361
8362 This package is part of the KDE games module.")
8363     (license (list license:gpl2+ license:fdl1.2+))))
8364
8365 (define-public kmines
8366   (package
8367     (name "kmines")
8368     (version "19.08.3")
8369     (source
8370      (origin
8371       (method url-fetch)
8372       (uri (string-append "mirror://kde/stable/applications/" version
8373                           "/src/kmines-" version ".tar.xz"))
8374       (sha256
8375        (base32 "0ac3za36lh8hpx6mqfic9amwmzhzhzplm9hg3pw12gxl5a9mvfsf"))))
8376     (build-system qt-build-system)
8377     (native-inputs
8378      `(("extra-cmake-modules" ,extra-cmake-modules)
8379        ("kdoctools" ,kdoctools)))
8380     (inputs
8381      `(("kcompletion" ,kcompletion)
8382        ("kconfig" ,kconfig)
8383        ("kconfigwidgets" ,kconfigwidgets)
8384        ("kcoreaddons" ,kcoreaddons)
8385        ("kcrash" ,kcrash)
8386        ("kdbusaddons" ,kdbusaddons)
8387        ("ki18n" ,ki18n)
8388        ("ktextwidgets" ,ktextwidgets)
8389        ("kwidgetsaddons" ,kwidgetsaddons)
8390        ("kxmlgui" ,kxmlgui)
8391        ("libkdegames" ,libkdegames)
8392        ("qtbase" ,qtbase)
8393        ("qtdeclarative" ,qtdeclarative)))
8394     (home-page "https://games.kde.org/")
8395     (synopsis "Classical mine sweeper game")
8396     (description "KMines is a classic Minesweeper game.  The idea is to
8397 uncover all the squares without blowing up any mines.  When a mine is blown
8398 up, the game is over.
8399
8400 This package is part of the KDE games module.")
8401     (license (list license:gpl2+ license:fdl1.2+))))
8402
8403 (define-public konquest
8404   (package
8405     (name "konquest")
8406     (version "19.08.3")
8407     (source
8408      (origin
8409       (method url-fetch)
8410       (uri (string-append "mirror://kde/stable/applications/"
8411                           version "/src/konquest-" version ".tar.xz"))
8412       (sha256
8413        (base32 "02gjxskhi10a1sqh3skcild8zria7wncz1a4sbz7ax1p851q76k1"))))
8414     (build-system qt-build-system)
8415     (native-inputs
8416      `(("extra-cmake-modules" ,extra-cmake-modules)
8417        ("kdoctools" ,kdoctools)))
8418     (inputs
8419      `(("kcompletion" ,kcompletion)
8420        ("kconfig" ,kconfig)
8421        ("kcoreaddons" ,kcoreaddons)
8422        ("kcrash" ,kcrash)
8423        ("kdbusaddons" ,kdbusaddons)
8424        ("kguiaddons" ,kguiaddons)
8425        ("ki18n" ,ki18n)
8426        ("kwidgetsaddons" ,kwidgetsaddons)
8427        ("kxmlgui" ,kxmlgui)
8428        ("libkdegames" ,libkdegames)
8429        ("qtbase" ,qtbase)
8430        ("qtdeclarative" ,qtdeclarative)
8431        ("qtsvg" ,qtsvg)))
8432     (home-page "https://games.kde.org/")
8433     (synopsis "Simple turn-based strategy game")
8434     (description "Konquest is the KDE version of Gnu-Lactic Konquest.  Players
8435 conquer other planets by sending ships to them.  The goal is to build an
8436 interstellar empire and ultimately conquer all other player's planets.  The
8437 game can be played with up to nine empires, commanded either by the computer
8438 or by puny earthlings.
8439
8440 This package is part of the KDE games module.")
8441     (license (list license:gpl2+ license:fdl1.2+))))
8442
8443 (define-public kbounce
8444   (package
8445     (name "kbounce")
8446     (version "19.08.3")
8447     (source
8448      (origin
8449       (method url-fetch)
8450       (uri (string-append "mirror://kde/stable/applications/"
8451                           version "/src/kbounce-" version ".tar.xz"))
8452       (sha256
8453        (base32 "02rfv0qzz5cmyfx8f56a45hbm9gsp6m3dcy8ajwx88rw5wpbrr11"))))
8454     (build-system qt-build-system)
8455     (native-inputs
8456      `(("extra-cmake-modules" ,extra-cmake-modules)
8457        ("kdoctools" ,kdoctools)))
8458     (inputs
8459      `(("kcompletion" ,kcompletion)
8460        ("kconfigwidgets" ,kconfigwidgets)
8461        ("kcoreaddons" ,kcoreaddons)
8462        ("kcrash" ,kcrash)
8463        ("kdbusaddons" ,kdbusaddons)
8464        ("ki18n" ,ki18n)
8465        ("kio" ,kio)
8466        ("kwidgetsaddons" ,kwidgetsaddons)
8467        ("kxmlgui" ,kxmlgui)
8468        ("libkdegames" ,libkdegames)
8469        ("qtbase" ,qtbase)
8470        ("qtdeclarative" ,qtdeclarative)
8471        ("qtsvg" ,qtsvg)))
8472     (home-page "https://games.kde.org/")
8473     (synopsis "Jezzball arcade game")
8474     (description "KBounce is a single player arcade game with the elements of
8475 puzzle.  It is played on a field, surrounded by wall, with two or more balls
8476 bouncing around within the walls.  The object of the game is to build new
8477 walls to decrease the size of the active field.
8478
8479 This package is part of the KDE games module.")
8480     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8481
8482 (define-public kblocks
8483   (package
8484     (name "kblocks")
8485     (version "19.08.3")
8486     (source
8487      (origin
8488       (method url-fetch)
8489       (uri (string-append "mirror://kde/stable/applications/"
8490                           version "/src/kblocks-" version ".tar.xz"))
8491       (sha256
8492        (base32 "0qrm0dihzhkxsq9l49ndzms802x6jn92vvabb2zf2q9z593m69cx"))))
8493     (build-system qt-build-system)
8494     (native-inputs
8495      `(("extra-cmake-modules" ,extra-cmake-modules)
8496        ("kdoctools" ,kdoctools)))
8497     (inputs
8498      `(("kcompletion" ,kcompletion)
8499        ("kconfig" ,kconfig)
8500        ("kconfigwidgets" ,kconfigwidgets)
8501        ("kcoreaddons" ,kcoreaddons)
8502        ("kcrash" ,kcrash)
8503        ("kdbusaddons" ,kdbusaddons)
8504        ("ki18n" ,ki18n)
8505        ("kwidgetsaddons" ,kwidgetsaddons)
8506        ("kxmlgui" ,kxmlgui)
8507        ("libkdegames" ,libkdegames)
8508        ("qtbase" ,qtbase)
8509        ("qtdeclarative" ,qtdeclarative)
8510        ("qtsvg" ,qtsvg)))
8511     (home-page "https://games.kde.org/")
8512     (synopsis "Single player falling blocks puzzle game")
8513     (description "KBlocks is the classic Tetris-like falling blocks game.
8514
8515 The idea is to stack the falling blocks to create horizontal lines without any
8516 gaps.  When a line is completed it is removed, and more space is available in
8517 the play area.  When there is not enough space for blocks to fall, the game is
8518 over.
8519
8520 This package is part of the KDE games module.")
8521     (license (list license:gpl2+ license:fdl1.2+))))
8522
8523 (define-public ksudoku
8524   (package
8525     (name "ksudoku")
8526     (version "19.08.3")
8527     (source
8528      (origin
8529       (method url-fetch)
8530       (uri (string-append "mirror://kde/stable/applications/"
8531                           version "/src/ksudoku-" version ".tar.xz"))
8532       (sha256
8533        (base32 "0rcscz91hilm7l3am5w02n0n8l7xhi4l0n4sskznh68kblw0ggw2"))))
8534     (build-system qt-build-system)
8535     (native-inputs
8536      `(("extra-cmake-modules" ,extra-cmake-modules)
8537        ("kdoctools" ,kdoctools)))
8538     (inputs
8539      `(("karchive", karchive)
8540        ("kconfig" ,kconfig)
8541        ("kconfigwidgets" ,kconfigwidgets)
8542        ("kcoreaddons" ,kcoreaddons)
8543        ("kcrash" ,kcrash)
8544        ("kguiaddons" ,kguiaddons)
8545        ("ki18n" ,ki18n)
8546        ("kiconthemes" ,kiconthemes)
8547        ("kio" ,kio)
8548        ("kwidgetsaddons" ,kwidgetsaddons)
8549        ("kxmlgui" ,kxmlgui)
8550        ("libkdegames" ,libkdegames)
8551        ("glu" ,glu)
8552        ("qtbase" ,qtbase)
8553        ("qtdeclarative" ,qtdeclarative)
8554        ("qtsvg" ,qtsvg)))
8555     (home-page "https://games.kde.org/")
8556     (synopsis "Sudoku puzzle game and solver")
8557     (description "KSudoku is a Sudoku game and solver, supporting a range of
8558 2D and 3D Sudoku variants.  In addition to playing Sudoku, it can print Sudoku
8559 puzzle sheets and find the solution to any Sudoku puzzle.
8560
8561 The word Sudoku means \"single number in an allotted place\" in Japanese.
8562 These are the basic rules: Every Sudoku is a square divided into 3x3
8563 subsquares with 3x3 cells each.
8564
8565 Some cells are filled with a number at the beginning.  The remaining ones are
8566 to be filled by the player using numbers from 1 to 9, without repeating a
8567 number twice on each column, row or subsquare (each of them must contain only
8568 one 1, one 2, one 3, and so on).  The game requires logic and patience.
8569 Solving takes usually 10 to 30 minutes, depending on puzzle level, your skill
8570 and experience.
8571
8572 The numerals in Sudoku puzzles are used for convenience (for example in 16x16
8573 board we use letters): arithmetic relationships between numbers are
8574 irrelevant.
8575
8576 This program supports also 16x16 games with numbers from 1 to 16 and 256
8577 cells with 16 cols, rows and subsquares!
8578
8579 More information at http://en.wikipedia.org/wiki/Sudoku
8580
8581 This package is part of the KDE games module.")
8582     (license (list license:gpl2+ license:fdl1.2+))))
8583
8584 (define-public klines
8585   (package
8586     (name "klines")
8587     (version "19.08.3")
8588     (source
8589      (origin
8590       (method url-fetch)
8591       (uri (string-append "mirror://kde/stable/applications/" version
8592                           "/src/klines-" version ".tar.xz"))
8593       (sha256
8594        (base32 "1g1f46jp0rb8gpqkgcf915ydpsscn1sxk3gjvm8bcqgx9ddq59xa"))))
8595     (build-system qt-build-system)
8596     (native-inputs
8597      `(("extra-cmake-modules" ,extra-cmake-modules)
8598        ("kdoctools" ,kdoctools)))
8599     (inputs
8600      `(("kcompletion" ,kcompletion)
8601        ("kconfigwidgets" ,kconfigwidgets)
8602        ("kcoreaddons" ,kcoreaddons)
8603        ("kcrash" ,kcrash)
8604        ("kdbusaddons" ,kdbusaddons)
8605        ("ki18n" ,ki18n)
8606        ("kwidgetsaddons" ,kwidgetsaddons)
8607        ("kxmlgui" ,kxmlgui)
8608        ("libkdegames" ,libkdegames)
8609        ("qtbase" ,qtbase)
8610        ("qtdeclarative" ,qtdeclarative)))
8611     (home-page "https://games.kde.org/")
8612     (synopsis "Place 5 equal pieces together, but wait, there are 3 new ones")
8613     (description "KLines is a simple but highly addictive one player game.
8614
8615 The player has to move the colored balls around the game board, gathering them
8616 into the lines of the same color by five.  Once the line is complete it is
8617 removed from the board, therefore freeing precious space.  In the same time
8618 the new balls keep arriving by three after each move, filling up the game
8619 board.
8620
8621 KLines is a single-player game where the player removes colored balls from the
8622 board by arranging them into lines of five or more.  However, every time the
8623 player moves a ball, three more balls are added to the board.
8624
8625 This package is part of the KDE games module.")
8626     (license (list license:gpl2+ license:fdl1.2+))))
8627
8628 (define-public kgoldrunner
8629   (package
8630     (name "kgoldrunner")
8631     (version "19.08.3")
8632     (source
8633      (origin
8634       (method url-fetch)
8635       (uri (string-append "mirror://kde/stable/applications/" version "/src/kgoldrunner-"
8636                            version ".tar.xz"))
8637       (sha256
8638        (base32 "16rcvq796r3asz4v4ap75xvwnxd3dd2nsq5r9vxvzl6rrf1w9bj4"))))
8639     (build-system qt-build-system)
8640     (native-inputs
8641      `(("extra-cmake-modules" ,extra-cmake-modules)
8642        ("kdoctools" ,kdoctools)))
8643     (inputs
8644      `(("kcompletion" ,kcompletion)
8645        ("kcoreaddons" ,kcoreaddons)
8646        ("kcrash" ,kcrash)
8647        ("kdbusaddons" ,kdbusaddons)
8648        ("ki18n" ,ki18n)
8649        ("kio" ,kio)
8650        ("kwidgetsaddons" ,kwidgetsaddons)
8651        ("kxmlgui" ,kxmlgui)
8652        ("libkdegames" ,libkdegames)
8653        ("qtbase" ,qtbase)
8654        ("qtdeclarative" ,qtdeclarative)))
8655     (home-page "https://games.kde.org/")
8656     (synopsis "Action and puzzle solving game")
8657     (description "KGoldrunner is an action game where the hero runs through a
8658 maze, climbs stairs, dig holes and dodges enemies in order to collect all the
8659 gold nuggets and escape to the next level.  Your enemies are also after the
8660 gold.  Worse still, they are after you!.
8661
8662 KGoldrunner is a fast-paced platform game where the player must navigate a
8663 maze while collecting gold nuggets and avoiding enemies.  A variety of level
8664 packs are included, as well as an editor to create new levels.
8665
8666 This package is part of the KDE games module.")
8667     (license (list license:gpl2+ license:fdl1.2+))))
8668
8669 (define-public kdiamond
8670   (package
8671     (name "kdiamond")
8672     (version "19.08.3")
8673     (source
8674      (origin
8675       (method url-fetch)
8676       (uri (string-append "mirror://kde/stable/applications/" version
8677                           "/src/kdiamond-" version ".tar.xz"))
8678       (sha256
8679        (base32 "1v5yb9hb26lk277zhw8d37ks829yfqr5anzx1qhms44gca5kqhva"))))
8680     (build-system qt-build-system)
8681     (native-inputs
8682      `(("extra-cmake-modules" ,extra-cmake-modules)
8683        ("kdoctools" ,kdoctools)))
8684     (inputs
8685      `(("kcompletion", kcompletion)
8686        ("kconfig" ,kconfig)
8687        ("kconfigwidgets" ,kconfigwidgets)
8688        ("kcoreaddons" ,kcoreaddons)
8689        ("kcrash" ,kcrash)
8690        ("kdbusaddons" ,kdbusaddons)
8691        ("ki18n" ,ki18n)
8692        ("knotifications" ,knotifications)
8693        ("knotifyconfig" ,knotifyconfig)
8694        ("kwidgetsaddons" ,kwidgetsaddons)
8695        ("kxmlgui" ,kxmlgui)
8696        ("libkdegames" ,libkdegames)
8697        ("qtbase" ,qtbase)
8698        ("qtdeclarative" ,qtdeclarative)))
8699     (home-page "https://games.kde.org/")
8700     (synopsis "Three-in-a-row game")
8701     (description "KDiamond is a three-in-a-row game like Bejeweled.  It
8702 features unlimited fun with randomly generated games and five difficulty
8703 levels with varying number of diamond colors and board sizes.
8704
8705 This package is part of the KDE games module.")
8706     (license (list license:gpl2+ license:fdl1.2+))))
8707
8708 (define-public kfourinline
8709   (package
8710     (name "kfourinline")
8711     (version "19.08.3")
8712     (source
8713      (origin
8714       (method url-fetch)
8715       (uri (string-append "mirror://kde/stable/applications/" version
8716                           "/src/kfourinline-" version ".tar.xz"))
8717       (sha256
8718        (base32 "1vprs6dc1ccn3g6k594i9s94xy4b91vzlqjysyc6fqcq2fs54ny3"))))
8719     (build-system qt-build-system)
8720     (native-inputs
8721      `(("extra-cmake-modules" ,extra-cmake-modules)
8722        ("kdoctools" ,kdoctools)))
8723     (inputs
8724      `(("kcompletion" ,kcompletion)
8725        ("kconfig" ,kconfig)
8726        ("kconfigwidgets" ,kconfigwidgets)
8727        ("kcoreaddons" ,kcoreaddons)
8728        ("kcrash" ,kcrash)
8729        ("kdelibs4support" ,kdelibs4support)
8730        ("kdnssd" ,kdnssd)
8731        ("ki18n" ,ki18n)
8732        ("kxmlgui" ,kxmlgui)
8733        ("libkdegames" ,libkdegames)
8734        ("qtbase" ,qtbase)
8735        ("qtdeclarative" ,qtdeclarative)
8736        ("qtsvg" ,qtsvg)))
8737     (home-page "https://games.kde.org/")
8738     (synopsis "Place 4 pieces in a row")
8739     (description "KFourInLine is a board game for two players based on the
8740 Connect-Four game.
8741
8742 KFourInLine is a game where two players take turns dropping pieces into a
8743 grid, the winner being the first to place four pieces in a line.
8744
8745 This package is part of the KDE games module.")
8746     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8747
8748 (define-public kblackbox
8749   (package
8750     (name "kblackbox")
8751     (version "19.08.3")
8752     (source
8753      (origin
8754       (method url-fetch)
8755       (uri (string-append "mirror://kde/stable/applications/" version
8756                           "/src/kblackbox-" version ".tar.xz"))
8757       (sha256
8758        (base32 "1x42sfpf75c6mavwkc7g7dm11y9s5dpj8igphly5kvm0pajqby0n"))))
8759     (build-system qt-build-system)
8760     (native-inputs
8761      `(("extra-cmake-modules" ,extra-cmake-modules)
8762        ("kdoctools" ,kdoctools)))
8763     (inputs
8764      `(("karchive" ,karchive)
8765        ("kcompletion" ,kcompletion)
8766        ("kconfig" ,kconfig)
8767        ("kcoreaddons" ,kcoreaddons)
8768        ("kcrash" ,kcrash)
8769        ("kdbusaddons" ,kdbusaddons)
8770        ("ki18n" ,ki18n)
8771        ("ktextwidgets" ,ktextwidgets)
8772        ("kxmlgui" ,kxmlgui)
8773        ("libkdegames" ,libkdegames)
8774        ("qtbase" ,qtbase)
8775        ("qtdeclarative" ,qtdeclarative)
8776        ("qtsvg" ,qtsvg)))
8777     (home-page "https://games.kde.org/")
8778     (synopsis "Find atoms in a grid by shooting electrons")
8779     (description "KBlackbox is a game of hide and seek played on a grid of
8780 boxes where the computer has hidden several balls.  The position of the hidden
8781 balls can be deduced by shooting beams into the box
8782
8783 KBlackBox is a game of hide and seek played on an grid of boxes, where the
8784 player shoots rays into the grid to deduce the positions of hidden objects.
8785
8786 This package is part of the KDE games module.")
8787     (license (list license:gpl2+ license:fdl1.2+))))
8788
8789 (define-public knetwalk
8790   (package
8791     (name "knetwalk")
8792     (version "19.08.3")
8793     (source
8794      (origin
8795       (method url-fetch)
8796       (uri (string-append "mirror://kde/stable/applications/" version
8797                           "/src/knetwalk-" version ".tar.xz"))
8798       (sha256
8799        (base32 "1i340salzgqdw8y33wrrydmpgx3pvwf5wrbljlh67cjf6s4csx7d"))))
8800     (build-system qt-build-system)
8801     (native-inputs
8802      `(("extra-cmake-modules" ,extra-cmake-modules)
8803        ("kdoctools" ,kdoctools)))
8804     (inputs
8805      `(("kcompletion" ,kcompletion)
8806        ("kconfig" ,kconfig)
8807        ("kconfigwidgets" ,kconfigwidgets)
8808        ("kcoreaddons" ,kcoreaddons)
8809        ("kcrash" ,kcrash)
8810        ("kdbusaddons" ,kdbusaddons)
8811        ("ki18n" ,ki18n)
8812        ("ktextwidgets" ,ktextwidgets)
8813        ("kwidgetsaddons" ,kwidgetsaddons)
8814        ("kxmlgui" ,kxmlgui)
8815        ("libkdegames" ,libkdegames)
8816        ("qtbase" ,qtbase)
8817        ("qtdeclarative" ,qtdeclarative)))
8818     (home-page "https://games.kde.org/")
8819     (synopsis "Turn the board pieces to get all computers connected")
8820     (description "KNetWalk is a small game where you have to build up a
8821 computer network by rotating the wires to connect the terminals to the server.
8822 When the network is build, a highscore-list comes up where competitions can be
8823 fought out.
8824
8825 KNetwalk is a puzzle game where the player arranges sections of wire to
8826 connect all the computers on the board.
8827
8828 This package is part of the KDE games module.")
8829     (license (list license:gpl2+ license:fdl1.2+))))
8830
8831 (define-public bomber
8832   (package
8833     (name "bomber")
8834     (version "19.08.3")
8835     (source
8836      (origin
8837        (method url-fetch)
8838        (uri (string-append "mirror://kde/stable/applications/" version
8839                            "/src/bomber-" version ".tar.xz"))
8840        (sha256
8841         (base32 "1lvzd0mzgq25akvwvkm57l3plm65k731v2i1ahakn985bb5gc3is"))))
8842     (build-system qt-build-system)
8843     (native-inputs
8844      `(("extra-cmake-modules" ,extra-cmake-modules)
8845        ("kdoctools" ,kdoctools)))
8846     (inputs
8847      `(("kcompletiom" ,kcompletion)
8848        ("kconfig" ,kconfig)
8849        ("kcoreaddons" ,kcoreaddons)
8850        ("kcrash" ,kcrash)
8851        ("kdbusaddons" ,kdbusaddons)
8852        ("ki18n" ,ki18n)
8853        ("kxmlgui" ,kxmlgui)
8854        ("libkdegames" ,libkdegames)
8855        ("qtbase" ,qtbase)
8856        ("qtdeclarative" ,qtdeclarative)))
8857     (home-page "https://games.kde.org/")
8858     (synopsis "Arcade bombing game")
8859     (description "Bomber is a single player arcade game.
8860
8861 The player is invading various cities in a plane that is decreasing in height.
8862 The goal of the game is to destroy all the buildings and advance to the next
8863 level.  Each level gets a bit harder by increasing the speed of the plane and
8864 the height of the buildings.
8865
8866 Bomber is a game where you fly a spaceship and attempt to bomb the buildings
8867 below you.  Each pass the spaceship makes, it gets lower and lower.  If you've
8868 not destroyed a building in your path, you will crash into it.
8869
8870 This package is part of the KDE games module.")
8871     (license (list license:gpl2+ license:fdl1.2+))))
8872
8873 (define-public granatier
8874   (package
8875     (name "granatier")
8876     (version "19.08.3")
8877     (source
8878      (origin
8879       (method url-fetch)
8880       (uri (string-append "mirror://kde/stable/applications/" version
8881                           "/src/granatier-" version ".tar.xz"))
8882       (sha256
8883        (base32 "141qmdinz7ikbbrs8dq6cap3nl22sl7pw62r80pf3xxwn2q4phpa"))))
8884     (build-system qt-build-system)
8885     (native-inputs
8886      `(("extra-cmake-modules" ,extra-cmake-modules)
8887        ("kdoctools" ,kdoctools)))
8888     (inputs
8889      `(("kcompletion" ,kcompletion)
8890        ("kconfig" ,kconfig)
8891        ("kconfigwidgets" ,kconfigwidgets)
8892        ("kcoreaddons" ,kcoreaddons)
8893        ("kcrash" ,kcrash)
8894        ("kdbusaddons" ,kdbusaddons)
8895        ("ki18n" ,ki18n)
8896        ("knewstuff" ,knewstuff)
8897        ("kwidgetsaddons" ,kwidgetsaddons)
8898        ("kxmlgui" ,kxmlgui)
8899        ("libkdegames" ,libkdegames)
8900        ("qtbase" ,qtbase)
8901        ("qtdeclarative" ,qtdeclarative)
8902        ("qtsvg" ,qtsvg)))
8903     (home-page "https://games.kde.org/")
8904     (synopsis "Bomberman clone")
8905     (description "Granatier is a clone of the classic Bomberman game,
8906 inspired by the work of the Clanbomber clone.
8907
8908 This package is part of the KDE games module.")
8909     (license (list license:gpl2+ license:fdl1.2+))))
8910
8911 (define-public ksirk
8912   (package
8913     (name "ksirk")
8914     (version "19.08.3")
8915     (source
8916      (origin
8917        (method url-fetch)
8918        (uri (string-append "mirror://kde/stable/applications/" version
8919                           "/src/ksirk-" version ".tar.xz"))
8920        (sha256
8921         (base32 "1b1wixs2hp5qnvdygfwa3kvy0kn94ysa4ifmx90q6r3yfr2lpfca"))))
8922     (build-system qt-build-system)
8923     (native-inputs
8924      `(("extra-cmake-modules" ,extra-cmake-modules)
8925        ("kdoctools" ,kdoctools)))
8926     (inputs
8927      `(("kcrash" ,kcrash)
8928        ("ki18n" ,ki18n)
8929        ("kiconthemes" ,kiconthemes)
8930        ("kio" ,kio)
8931        ("knewstuff" ,knewstuff)
8932        ("kwallet" ,kwallet)
8933        ("kxmlgui" ,kxmlgui)
8934        ("libkdegames" ,libkdegames)
8935        ("phonon" ,phonon)
8936        ("qca" ,qca)
8937        ("qtbase" ,qtbase)
8938        ("qtdeclarative" ,qtdeclarative)
8939        ("qtsvg" ,qtsvg)
8940        ("zlib" ,zlib)))
8941     (home-page "https://games.kde.org/")
8942     (synopsis "Computerized version of the well known strategy board game
8943 'Risk'")
8944     (description "KsirK is a multi-player network-enabled game.  The goal of
8945 the game is simply to conquer the world by attacking your neighbors with your
8946 armies.
8947
8948 At the beginning of the game, countries are distributed to all the players.
8949 Each country contains one army represented by an infantryman.  Each player has
8950 some armies to distribute to his countries.  On each turn, each player can
8951 attack his neighbours, eventually conquering one or more countries.  At the
8952 end of each turn, some bonus armies are distributed to the players in function
8953 of the number of countries they own.  The winner is the player that conquered
8954 all the world.
8955
8956 Features:
8957 @itemize
8958 @item Support for 1-6 human or computer players
8959 @item Multi-player gaming over a network
8960 @item You can easily create new skins with SVG graphics and the skin editor
8961 @item Hot New Stuff support.  You can easily download and install new skins
8962 @end itemize
8963
8964 This package is part of the KDE games module.")
8965     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8966
8967 (define-public palapeli
8968   (package
8969     (name "palapeli")
8970     (version "19.08.3")
8971     (source
8972      (origin
8973        (method url-fetch)
8974        (uri (string-append "mirror://kde/stable/applications/" version
8975                            "/src/palapeli-" version ".tar.xz"))
8976        (sha256
8977         (base32 "1g91ydbc0x2y2gn3lcb5w03mn7k78l5bq4cb1s59kx6yjbflv3pw"))))
8978     (build-system qt-build-system)
8979     (native-inputs
8980      `(("extra-cmake-modules" ,extra-cmake-modules)
8981        ("kdoctools" ,kdoctools)))
8982     (inputs
8983      `(("karchive" ,karchive)
8984        ("kcompletion" ,kcompletion)
8985        ("kconfig" ,kconfig)
8986        ("kconfigwidgets" ,kconfigwidgets)
8987        ("kcoreaddons" ,kcoreaddons)
8988        ("kcrash" ,kcrash)
8989        ("kcrash" ,kcrash)
8990        ("ki18n" ,ki18n)
8991        ("ki18n" ,ki18n)
8992        ("kio" ,kio)
8993        ("kitemviews" ,kitemviews)
8994        ("knotifications" ,knotifications)
8995        ("kservice" ,kservice)
8996        ("kwidgetsaddons" ,kwidgetsaddons)
8997        ("kxmlgui" ,kxmlgui)
8998        ("libkdegames" ,libkdegames)
8999        ("qtbase" ,qtbase)
9000        ("qtdeclarative" ,qtdeclarative)
9001        ("qtsvg" ,qtsvg)
9002        ("shared-mime-info" ,shared-mime-info)))
9003     (home-page "https://games.kde.org/")
9004     (synopsis "Jigsaw puzzle game")
9005     (description "Palapeli is a jigsaw puzzle game.  Unlike other games in
9006 that genre, you are not limited to aligning pieces on imaginary grids.  The
9007 pieces are freely moveable.  Also, Palapeli features real persistency, i.e.
9008 everything you do is saved on your disk immediately.
9009
9010 Palapeli is the Finnish word for jigsaw puzzle.
9011
9012 This package is part of the KDE games module.")
9013     (license license:gpl2+)))
9014
9015 (define-public kiriki
9016   (package
9017     (name "kiriki")
9018     (version "19.08.3")
9019     (source
9020      (origin
9021        (method url-fetch)
9022        (uri (string-append "mirror://kde/stable/applications/" version
9023                            "/src/kiriki-" version ".tar.xz"))
9024        (sha256
9025         (base32 "1xg25dj95g81dc5l7k47am4j52abrwwfx4h73lvsbn4lc8lfmshw"))))
9026     (build-system qt-build-system)
9027     (native-inputs
9028      `(("extra-cmake-modules" ,extra-cmake-modules)
9029        ("kdoctools" ,kdoctools)))
9030     (inputs
9031      `(("kcompletion" ,kcompletion)
9032        ("kconfig" ,kconfig)
9033        ("kconfigwidgets" ,kconfigwidgets)
9034        ("kcoreaddons" ,kcoreaddons)
9035        ("kcrash" ,kcrash)
9036        ("kdbusaddons" ,kdbusaddons)
9037        ("ki18n" ,ki18n)
9038        ("kiconthemes" ,kiconthemes)
9039        ("kxmlgui" ,kxmlgui)
9040        ("libkdegames" ,libkdegames)
9041        ("qtbase" ,qtbase)
9042        ("qtdeclarative" ,qtdeclarative)))
9043     (home-page "https://games.kde.org/")
9044     (synopsis "Yahtzee dice game")
9045     (description "Kiriki is an addictive and fun dice game, designed to be
9046 played by as many as six players.
9047
9048 Participants have to collect points by rolling five dice for up to three times
9049 per single turn to make combinations with the highest score.
9050
9051 This package is part of the KDE games module.")
9052     (license (list license:gpl2+ license:fdl1.2+))))
9053
9054 (define-public kigo
9055   (package
9056     (name "kigo")
9057     (version "19.08.3")
9058     (source
9059      (origin
9060        (method url-fetch)
9061        (uri (string-append "mirror://kde/stable/applications/" version
9062                            "/src/kigo-" version ".tar.xz"))
9063        (sha256
9064         (base32 "00l5gcbi8xyj9c1lngkrddka3a4m4cd78prfplrpq32ma9xq681f"))))
9065     (build-system qt-build-system)
9066     (native-inputs
9067      `(("extra-cmake-modules" ,extra-cmake-modules)
9068        ("kdoctools" ,kdoctools)))
9069     (inputs
9070      `(("kconfig" ,kconfig)
9071        ("kconfigwidgets" ,kconfigwidgets)
9072        ("kcoreaddons" ,kcoreaddons)
9073        ("kcrash" ,kcrash)
9074        ("kdbusaddons" ,kdbusaddons)
9075        ("ki18n" ,ki18n)
9076        ("kio" ,kio)
9077        ("knewstuff", knewstuff)
9078        ("ktextwidgets" ,ktextwidgets)
9079        ("kxmlgui" ,kxmlgui)
9080        ("libkdegames" ,libkdegames)
9081        ("qtbase" ,qtbase)
9082        ("qtdeclarative" ,qtdeclarative)
9083        ("qtsvg" ,qtsvg)))
9084     (home-page "https://games.kde.org/")
9085     (synopsis "Go board game")
9086     (description "Kigo is an open-source implementation of the popular Go
9087 game.
9088
9089 Go is a strategic board game for two players.  It is also known as
9090 igo (Japanese), weiqi or wei ch'i (Chinese) or baduk (Korean).  Go is noted
9091 for being rich in strategic complexity despite its simple rules.  The game is
9092 played by two players who alternately place black and white stones (playing
9093 pieces, now usually made of glass or plastic) on the vacant intersections of a
9094 grid of 19x19 lines (9x9 or 13x13 for easier games).
9095
9096 You also need to install a go engine, e.g. @code{gnugo}.
9097
9098 This package is part of the KDE games module.")
9099     (license license:gpl3+)))
9100
9101 (define-public kubrick
9102   (package
9103     (name "kubrick")
9104     (version "19.08.3")
9105     (source
9106      (origin
9107        (method url-fetch)
9108        (uri (string-append "mirror://kde/stable/applications/" version
9109                            "/src/kubrick-" version ".tar.xz"))
9110        (sha256
9111         (base32 "0ma8wja4rqlsmsr8cyicfpkwlgqva4450ls4c0ql53p0kabf04gx"))))
9112     (build-system qt-build-system)
9113     (native-inputs
9114      `(("extra-cmake-modules" ,extra-cmake-modules)
9115        ("kdoctools" ,kdoctools)))
9116     (inputs
9117      `(("glu" ,glu)
9118        ("kconfig" ,kconfig)
9119        ("kconfigwidgets" ,kconfigwidgets)
9120        ("kcoreaddons" ,kcoreaddons)
9121        ("kcrash" ,kcrash)
9122        ("ki18n" ,ki18n)
9123        ("kio" ,kio)
9124        ("kwidgetsaddons" ,kwidgetsaddons)
9125        ("kxmlgui" ,kxmlgui)
9126        ("libkdegames" ,libkdegames)
9127        ("qtbase" ,qtbase)
9128        ("qtdeclarative" ,qtdeclarative)
9129        ("qtsvg" ,qtsvg)))
9130     (home-page "https://games.kde.org/")
9131     (synopsis "Game based on Rubik's Cube")
9132     (description "Kubrick is a game based on the Rubik's Cube puzzle.
9133
9134 The cube sizes range from 2x2x2 up to 6x6x6, or you can play with irregular
9135 \"bricks\" such as 5x3x2 or \"mats\" such as 6x4x1 or 2x2x1.  The game has a
9136 selection of puzzles at several levels of difficulty, as well as demos of
9137 pretty patterns and solution moves, or you can make up your own puzzles.  The
9138 game has unlimited undo, redo, save and reload capabilities.
9139
9140 This package is part of the KDE games module.")
9141     (license (list license:gpl2+ license:fdl1.2+))))
9142
9143 (define-public lskat
9144   (package
9145     (name "lskat")
9146     (version "19.08.3")
9147     (source
9148      (origin
9149        (method url-fetch)
9150        (uri (string-append "mirror://kde/stable/applications/" version
9151                            "/src/lskat-" version ".tar.xz"))
9152        (sha256
9153         (base32 "1qk5hd27zb42pbcxq5wyzz62nj5f0qdmgy54r9rnk92pzzzk94s9"))))
9154     (build-system qt-build-system)
9155     (native-inputs
9156      `(("extra-cmake-modules" ,extra-cmake-modules)
9157        ("kdoctools" ,kdoctools)))
9158     (inputs
9159      `(("kcompletion" ,kcompletion)
9160        ("kconfig" ,kconfig)
9161        ("kcoreaddons" ,kcoreaddons)
9162        ("kcrash" ,kcrash)
9163        ("kguiaddons" ,kguiaddons)
9164        ("ki18n" ,ki18n)
9165        ("kwidgetsaddons" ,kwidgetsaddons)
9166        ("kxmlgui" ,kxmlgui)
9167        ("libkdegames" ,libkdegames)
9168        ("qtbase" ,qtbase)
9169        ("qtdeclarative" ,qtdeclarative)
9170        ("qtsvg" ,qtsvg)))
9171     (home-page "https://games.kde.org/")
9172     (synopsis "Lieutnant Skat card game")
9173     (description "Lieutnant Skat (from German \"Offiziersskat\") is a fun and
9174 engaging card game for two players, where the second player is either live
9175 opponent, or a built in artificial intelligence.
9176
9177 Lieutnant Skat is a simplified variant of the Skat card game for two players.
9178
9179 This package is part of the KDE games module.")
9180     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9181
9182 (define-public kapman
9183   (package
9184     (name "kapman")
9185     (version "19.08.3")
9186     (source
9187      (origin
9188       (method url-fetch)
9189       (uri (string-append "mirror://kde/stable/applications/" version
9190                           "/src/kapman-" version ".tar.xz"))
9191       (sha256
9192        (base32 "03pq38caam30q4bw14c045kayw2d87xq1yaa3s2jkrylylfq3p0f"))))
9193     (build-system qt-build-system)
9194     (native-inputs
9195      `(("extra-cmake-modules" ,extra-cmake-modules)
9196        ("kdoctools" ,kdoctools)))
9197     (inputs
9198      `(("kcompletion" ,kcompletion)
9199        ("kconfig" ,kconfig)
9200        ("kconfigwidgets" ,kconfigwidgets)
9201        ("kcoreaddons" ,kcoreaddons)
9202        ("kcrash" ,kcrash)
9203        ("kdbusaddons" ,kdbusaddons)
9204        ("ki18n" ,ki18n)
9205        ("kxmlgui" ,kxmlgui)
9206        ("libkdegames" ,libkdegames)
9207        ("qtbase" ,qtbase)
9208        ("qtdeclarative" ,qtdeclarative)
9209        ("qtsvg" ,qtsvg)))
9210     (home-page "https://games.kde.org/")
9211     (synopsis "Pac-Man clone")
9212     (description "Kapman is a clone of the well known game Pac-Man.
9213
9214 You must run through the maze to eat all pills without being captured by a
9215 ghost.  By eating an energizer, Kapman gets the ability to eat ghosts for a
9216 few seconds.  When a stage is cleared of pills and energizer the player is
9217 taken to the next stage with slightly increased game speed
9218
9219 This package is part of the KDE games module.")
9220     (license (list license:gpl2+ license:fdl1.2+))))
9221
9222 (define-public kspaceduel
9223   (package
9224     (name "kspaceduel")
9225     (version "19.08.3")
9226     (source
9227      (origin
9228        (method url-fetch)
9229        (uri (string-append "mirror://kde/stable/applications/" version
9230                            "/src/kspaceduel-" version ".tar.xz"))
9231        (sha256
9232         (base32 "1hppni0ihs7psc0dly5rxyy2a38nzhlig9yfyhi3lkh36z05pql8"))))
9233     (build-system qt-build-system)
9234     (native-inputs
9235      `(("extra-cmake-modules" ,extra-cmake-modules)
9236        ("kdoctools" ,kdoctools)))
9237     (inputs
9238      `(("kcompletion" ,kcompletion)
9239        ("kconfig" ,kconfig)
9240        ("kconfigwidgets" ,kconfigwidgets)
9241        ("kcoreaddons" ,kcoreaddons)
9242        ("kcrash" ,kcrash)
9243        ("kdbusaddons" ,kdbusaddons)
9244        ("ki18n" ,ki18n)
9245        ("kxmlgui" ,kxmlgui)
9246        ("libkdegames" ,libkdegames)
9247        ("qtbase" ,qtbase)
9248        ("qtdeclarative" ,qtdeclarative)
9249        ("qtsvg" ,qtsvg)))
9250     (home-page "https://games.kde.org/")
9251     (synopsis "Two player game with shooting spaceships flying around a sun")
9252     (description "KSpaceduel is a space battle game for one or two players,
9253 where two ships fly around a star in a struggle to be the only survivor.
9254
9255 This package is part of the KDE games module.")
9256     (license (list license:gpl2+ license:fdl1.2+))))
9257
9258 (define-public bovo
9259   (package
9260     (name "bovo")
9261     (version "19.08.3")
9262     (source
9263      (origin
9264        (method url-fetch)
9265        (uri (string-append "mirror://kde/stable/applications/" version
9266                            "/src/bovo-" version ".tar.xz"))
9267        (sha256
9268         (base32 "0dbpng0w52nahmx7brsll66zw23ql1g6pcvn2k4g2lnvxch0i59g"))))
9269     (build-system qt-build-system)
9270     (native-inputs
9271      `(("extra-cmake-modules" ,extra-cmake-modules)
9272        ("kdoctools" ,kdoctools)))
9273     (inputs
9274      `(("kcompletion" ,kcompletion)
9275        ("kcoreaddons" ,kcoreaddons)
9276        ("kcrash" ,kcrash)
9277        ("kdbusaddons" ,kdbusaddons)
9278        ("ki18n" ,ki18n)
9279        ("kxmlgui" ,kxmlgui)
9280        ("libkdegames" ,libkdegames)
9281        ("qtbase" ,qtbase)
9282        ("qtdeclarative" ,qtdeclarative)
9283        ("qtsvg" ,qtsvg)))
9284     (home-page "https://games.kde.org/")
9285     (synopsis "Classic pen and paper game: five in a line")
9286     (description "Bovo is a Gomoku (from Japanese 五目並べ - lit.  \"five
9287 points\") like game for two players, where the opponents alternate in placing
9288 their respective pictogram on the game board.  The winner is the first to
9289 complete a line of five markers.  (Also known as: Connect Five, Five in a row,
9290 X and O, Naughts and Crosses)
9291
9292 This package is part of the KDE games module.")
9293     (license (list license:gpl2+ license:fdl1.2+))))
9294
9295 (define-public killbots
9296   (package
9297     (name "killbots")
9298     (version "19.08.3")
9299     (source
9300      (origin
9301        (method url-fetch)
9302        (uri (string-append "mirror://kde/stable/applications/" version
9303                            "/src/killbots-" version ".tar.xz"))
9304        (sha256
9305         (base32 "1qi86q7diw7glkp9v33yim9nhz2da4balbxa1hjrdgjdv8zdbxbm"))))
9306     (build-system qt-build-system)
9307     (native-inputs
9308      `(("extra-cmake-modules" ,extra-cmake-modules)
9309        ("kdoctools" ,kdoctools)))
9310     (inputs
9311      `(("kcompletion" ,kcompletion)
9312        ("kconfig" ,kconfig)
9313        ("kconfigwidgets" ,kconfigwidgets)
9314        ("kcoreaddons" ,kcoreaddons)
9315        ("kcrash" ,kcrash)
9316        ("kdbusaddons" ,kdbusaddons)
9317        ("ki18n" ,ki18n)
9318        ("kwidgetsaddons" ,kwidgetsaddons)
9319        ("kxmlgui" ,kxmlgui)
9320        ("libkdegames" ,libkdegames)
9321        ("qtbase" ,qtbase)
9322        ("qtdeclarative" ,qtdeclarative)))
9323     (home-page "https://games.kde.org/")
9324     (synopsis "Port of the classic BSD console game robots")
9325     (description "Killbots is a simple game of evading killer robots.
9326
9327 Who created the robots and why they have been programmed to destroy, no one
9328 knows.  All that is known is that the robots are numerous and their sole
9329 objective is to destroy you.  Fortunately for you, their creator has focused
9330 on quantity rather than quality and as a result the robots are severely
9331 lacking in intelligence.  Your superior wit and a fancy teleportation device
9332 are your only weapons against the never-ending stream of mindless automatons.
9333
9334 This package is part of the KDE games module.")
9335     (license (list license:gpl2+ license:fdl1.2+))))
9336
9337 (define-public ksnakeduel
9338   (package
9339     (name "ksnakeduel")
9340     (version "19.08.3")
9341     (source
9342      (origin
9343       (method url-fetch)
9344       (uri (string-append "mirror://kde/stable/applications/" version
9345                           "/src/ksnakeduel-" version ".tar.xz"))
9346       (sha256
9347        (base32 "0mprrnpax8pv7ab36zwhvdfj8id52w8g6x76nnj8qvkdlkjiqdnn"))))
9348     (build-system qt-build-system)
9349     (native-inputs
9350      `(("extra-cmake-modules" ,extra-cmake-modules)
9351        ("kdoctools" ,kdoctools)))
9352     (inputs
9353      `(("kcompletion" ,kcompletion)
9354        ("kconfig" ,kconfig)
9355        ("kconfigwidgets" ,kconfigwidgets)
9356        ("kcoreaddons" ,kcoreaddons)
9357        ("kcrash" ,kcrash)
9358        ("kdbusaddons" ,kdbusaddons)
9359        ("kguiaddons" ,kguiaddons)
9360        ("ki18n" ,ki18n)
9361        ("kxmlgui" ,kxmlgui)
9362        ("libkdegames" ,libkdegames)
9363        ("qtbase" ,qtbase)
9364        ("qtdeclarative" ,qtdeclarative)
9365        ("qtsvg" ,qtsvg)))
9366     (home-page "https://games.kde.org/")
9367     (synopsis "Snake race played against the computer")
9368     (description "KSnakeDuel is a fast action game where you steer a snake
9369 which has to eat food.  While eating the snake grows.  But once a player
9370 collides with the other snake or the wall the game is lost.  This becomes of
9371 course more and more difficult the longer the snakes grow.
9372
9373 This package is part of the KDE games module.")
9374     (license (list license:gpl2+ license:fdl1.2+))))
9375
9376 (define-public kollision
9377   (package
9378     (name "kollision")
9379     (version "19.08.3")
9380     (source
9381      (origin
9382       (method url-fetch)
9383       (uri (string-append "mirror://kde/stable/applications/" version
9384                           "/src/kollision-" version ".tar.xz"))
9385       (sha256
9386        (base32 "1p7qrn3d0ybpvc9k6k5wzj54dsrp1rqh39844maz0ay2fhvmch12"))))
9387     (build-system qt-build-system)
9388     (native-inputs
9389      `(("extra-cmake-modules" ,extra-cmake-modules)
9390        ("kdoctools" ,kdoctools)))
9391     (inputs
9392      `(("kcompletion" ,kcompletion)
9393        ("kconfig" ,kconfig)
9394        ("kcoreaddons" ,kcoreaddons)
9395        ("kcrash" ,kcrash)
9396        ("kdbusaddons" ,kdbusaddons)
9397        ("ki18n" ,ki18n)
9398        ("kwidgetsaddons" ,kwidgetsaddons)
9399        ("kxmlgui" ,kxmlgui)
9400        ("libkdegames" ,libkdegames)
9401        ("qtbase" ,qtbase)
9402        ("qtdeclarative" ,qtdeclarative)))
9403     (home-page "https://games.kde.org/")
9404     (synopsis "Simple ball dodging game")
9405     (description "In Kollision you use mouse to control a small blue ball in a
9406 closed space environment filled with small red balls, which move about
9407 chaotically.  Your goal is to avoid touching any of those red balls with your
9408 blue one, because the moment you do the game will be over.  The longer you can
9409 stay in game the higher will your score be.
9410
9411 This package is part of the KDE games module.")
9412     (license (list license:gpl2+ license:fdl1.2+))))
9413
9414 (define-public knavalbattle
9415   (package
9416     (name "knavalbattle")
9417     (version "19.08.3")
9418     (source
9419      (origin
9420       (method url-fetch)
9421       (uri (string-append "mirror://kde/stable/applications/" version
9422 "/src/knavalbattle-" version ".tar.xz"))
9423       (sha256
9424        (base32 "0sdfjplqkb30x2mvh66pkzay6vn5px87779sh2s8lpl6fcw0v9g4"))))
9425     (build-system qt-build-system)
9426     (native-inputs
9427      `(("extra-cmake-modules" ,extra-cmake-modules)
9428        ("kdoctools" ,kdoctools)))
9429     (inputs
9430      `(("kauth" ,kauth)
9431        ("kcompletion" ,kcompletion)
9432        ("kconfig" ,kconfig)
9433        ("kconfigwidgets" ,kconfigwidgets)
9434        ("kcoreaddons" ,kcoreaddons)
9435        ("kcrash" ,kcrash)
9436        ("kdbusaddons" ,kdbusaddons)
9437        ("kdnssd" ,kdnssd)
9438        ("ki18n" ,ki18n)
9439        ("ktextwidgets" ,ktextwidgets)
9440        ("kxmlgui" ,kxmlgui)
9441        ("libkdegames" ,libkdegames)
9442        ("qtbase" ,qtbase)
9443        ("qtdeclarative" ,qtdeclarative)))
9444     (home-page "https://games.kde.org/")
9445     (synopsis "Battleship board game with built-in game server")
9446     (description "KBattleship is a Battle Ship game for KDE.
9447
9448 Ships are placed on a board which represents the sea.  Players try to hit each
9449 others ships in turns without knowing where they are placed.  The first player
9450 to destroy all ships wins the game.
9451
9452 This package is part of the KDE games module.")
9453     (license (list license:gpl2+ license:fdl1.2+))))
9454
9455 (define-public kreversi
9456   (package
9457     (name "kreversi")
9458     (version "19.08.3")
9459     (source
9460      (origin
9461       (method url-fetch)
9462       (uri (string-append "mirror://kde/stable/applications/" version
9463 "/src/kreversi-" version ".tar.xz"))
9464       (sha256
9465        (base32 "0b6q8df2bawgnrswhq59z37axad0q3zpvvzxdds7sz1lw505xw9h"))))
9466     (build-system qt-build-system)
9467     (native-inputs
9468      `(("extra-cmake-modules" ,extra-cmake-modules)
9469        ("kdoctools" ,kdoctools)))
9470     (inputs
9471      `(("kconfig" ,kconfig)
9472        ("kconfigwidgets" ,kconfigwidgets)
9473        ("kcoreaddons" ,kcoreaddons)
9474        ("kcrash" ,kcrash)
9475        ("kdbusaddons" ,kdbusaddons)
9476        ("kdeclarative" ,kdeclarative)
9477        ("ki18n" ,ki18n)
9478        ("kiconthemes" ,kiconthemes)
9479        ("kio" ,kio)
9480        ("kxmlgui" ,kxmlgui)
9481        ("libkdegames" ,libkdegames)
9482        ("qtbase" ,qtbase)
9483        ("qtdeclarative" ,qtdeclarative)
9484        ("qtsvg" ,qtsvg)))
9485     (home-page "https://games.kde.org/")
9486     (synopsis "Old reversi board game, also known as othello")
9487     (description "KReversi is a simple one player strategy game played
9488 against the computer.
9489
9490 If a player's piece is captured by an opposing player, that piece is turned
9491 over to reveal the color of that player.  A winner is declared when one player
9492 has more pieces of his own color on the board and there are no more possible
9493 moves.
9494
9495 This package is part of the KDE games module.")
9496     (license (list license:gpl2+ license:fdl1.2+))))
9497
9498 (define-public ksquares
9499   (package
9500     (name "ksquares")
9501     (version "19.08.3")
9502     (source
9503      (origin
9504       (method url-fetch)
9505       (uri (string-append "mirror://kde/stable/applications/" version
9506                           "/src/ksquares-" version ".tar.xz"))
9507       (sha256
9508        (base32 "0hv8hls5s627lys08nnw72rfzsafj3dmp49mh2afzmh6lgk9h5vy"))))
9509     (build-system qt-build-system)
9510     (native-inputs
9511      `(("extra-cmake-modules" ,extra-cmake-modules)
9512        ("kdoctools" ,kdoctools)))
9513     (inputs
9514      `(("kcompletion" ,kcompletion)
9515        ("kconfig" ,kconfig)
9516        ("kconfigwidgets" ,kconfigwidgets)
9517        ("kcoreaddons" ,kcoreaddons)
9518        ("kcrash" ,kcrash)
9519        ("kdbusaddons" ,kdbusaddons)
9520        ("ki18n" ,ki18n)
9521        ("kwidgetsaddons" ,kwidgetsaddons)
9522        ("kxmlgui" ,kxmlgui)
9523        ("libkdegames" ,libkdegames)
9524        ("qtbase" ,qtbase)
9525        ("qtdeclarative" ,qtdeclarative)))
9526     (home-page "https://games.kde.org/")
9527     (synopsis "Dots and Boxes game")
9528     (description "KSquares is an implementation of the popular paper based
9529 game Squares.  Two players take turns connecting dots on a grid to complete
9530 squares, the player with the most squares wins.
9531
9532 This package is part of the KDE games module.")
9533     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9534
9535 (define-public kjumpingcube
9536   (package
9537     (name "kjumpingcube")
9538     (version "19.08.3")
9539     (source
9540      (origin
9541       (method url-fetch)
9542       (uri (string-append "mirror://kde/stable/applications/" version
9543                           "/src/kjumpingcube-" version ".tar.xz"))
9544       (sha256
9545        (base32 "0d67zqkf2xffjkj671gl2n6nj6jajyn6rgqqj5i6gm500mqi9rm1"))))
9546     (build-system qt-build-system)
9547     (native-inputs
9548      `(("extra-cmake-modules" ,extra-cmake-modules)
9549        ("kdoctools" ,kdoctools)))
9550     (inputs
9551      `(("kconfig" ,kconfig)
9552        ("kconfigwidgets" ,kconfigwidgets)
9553        ("kcoreaddons" ,kcoreaddons)
9554        ("kcrash" ,kcrash)
9555        ("kdbusaddons" ,kdbusaddons)
9556        ("ki18n" ,ki18n)
9557        ("kio" ,kio)
9558        ("kwidgetsaddons" ,kwidgetsaddons)
9559        ("kxmlgui" ,kxmlgui)
9560        ("libkdegames" ,libkdegames)
9561        ("qtbase" ,qtbase)
9562        ("qtdeclarative" ,qtdeclarative)
9563        ("qtsvg" ,qtsvg)))
9564     (home-page "https://games.kde.org/")
9565     (synopsis "Simple tactical game for number-crunchers")
9566     (description "KJumpingcube is a simple tactical game for one or two
9567 players, played on a grid of numbered squares.  Each turn, players compete for
9568 control of the board by capturing or adding to one square.
9569
9570 This package is part of the KDE games module.")
9571     (license (list license:gpl2+ license:fdl1.2+))))
9572
9573 (define-public xmoto
9574   (package
9575     (name "xmoto")
9576     (version "0.5.11")
9577     (source
9578      (origin
9579        (method url-fetch)
9580        (uri (string-append
9581              "http://download.tuxfamily.org/xmoto/xmoto/" version "/"
9582              "xmoto-" version "-src.tar.gz"))
9583        (sha256
9584         (base32 "1ci6r8zd0l7z28cy92ddf9dmqbdqwinz2y1cny34c61b57wsd155"))
9585        (patches
9586         (search-patches
9587          "xmoto-remove-glext.patch"     ;fixes licensing issue
9588          "xmoto-reproducible.patch"
9589          "xmoto-utf8.patch"))
9590        ;; Unbundle ODE.
9591        (modules '((guix build utils)))
9592        (snippet
9593         `(begin
9594            (delete-file-recursively "src/ode")
9595            #t))))
9596     (build-system gnu-build-system)
9597     (arguments
9598      ;; XXX: First flag prevents a build error with GCC7+.  The second
9599      ;; flag works around missing text in game.  Both are fixed
9600      ;; upstream.  Remove once xmoto 0.5.12+ is released.
9601      `(#:make-flags '("CXXFLAGS=-fpermissive -D_GLIBCXX_USE_CXX11_ABI=0")
9602        #:phases
9603        (modify-phases %standard-phases
9604          (add-after 'install 'install-desktop-file
9605            (lambda* (#:key outputs #:allow-other-keys)
9606              (let* ((out (assoc-ref outputs "out"))
9607                     (apps (string-append out "/share/applications"))
9608                     (pixmaps (string-append out "/share/pixmaps")))
9609                (install-file "extra/xmoto.desktop" apps)
9610                (install-file "extra/xmoto.xpm" pixmaps)
9611                #t)))
9612          (add-after 'install-desktop-file 'install-fonts
9613            (lambda* (#:key outputs inputs #:allow-other-keys)
9614              (let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
9615                                             "/share/fonts/truetype/"))
9616                    (target-dir (string-append (assoc-ref outputs "out")
9617                                               "/share/xmoto/Textures/Fonts/")))
9618                (for-each (lambda (f)
9619                            (let ((font (string-append font-dir f))
9620                                  (target (string-append target-dir f)))
9621                              (delete-file target)
9622                              (symlink font target)))
9623                          '("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
9624                #t)))
9625          (add-after 'install-fonts 'install-man-page
9626            (lambda* (#:key outputs #:allow-other-keys)
9627              (install-file "xmoto.6"
9628                            (string-append (assoc-ref outputs "out")
9629                                           "/share/man/man6"))
9630              #t)))))
9631     (native-inputs
9632      `(("gettext" ,gettext-minimal)))
9633     (inputs
9634      `(("curl" ,curl)
9635        ("font-dejavu" ,font-dejavu)
9636        ("glu" ,glu)
9637        ("libjpeg" ,libjpeg-turbo)
9638        ("libpng" ,libpng)
9639        ("libxdg-basedir" ,libxdg-basedir)
9640        ("libxml2" ,libxml2)
9641        ("lua" ,lua-5.2)
9642        ("ode" ,ode)
9643        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
9644        ("sqlite" ,sqlite)
9645        ("zlib" ,zlib)))
9646     (home-page "https://xmoto.tuxfamily.org/")
9647     (synopsis "2D motocross platform game")
9648     (description "X-Moto is a challenging 2D motocross platform game, where
9649 physics play an all important role in the gameplay.  You need to control your
9650 bike to its limit, if you want to have a chance finishing the more difficult
9651 challenges.")
9652     (license (list license:gpl2+        ;whole project
9653                    license:bsd-4        ;src/bzip
9654                    license:bsd-3        ;src/md5sum
9655                    license:lgpl2.1+     ;src/iqsort.h
9656                    license:expat))))