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
4181      `(("glu" ,glu)
4182        ("sdl-union" ,(sdl-union (list sdl sdl-image)))))
4183     (synopsis "Shooter with space station destruction")
4184     (description
4185      "Kobo Deluxe is an enhanced version of Akira Higuchi's XKobo graphical game
4186 for Un*x systems with X11.")
4187     (home-page "http://olofson.net/kobodl/")
4188     (license license:gpl2+)))
4189
4190 (define-public freeciv
4191   (package
4192    (name "freeciv")
4193    (version "2.6.1")
4194    (source
4195     (origin
4196      (method url-fetch)
4197      (uri (list (string-append
4198                   "http://files.freeciv.org/stable/freeciv-"
4199                   version ".tar.bz2")
4200                 (string-append
4201                   "mirror://sourceforge/freeciv/Freeciv%20"
4202                   (version-major+minor version) "/" version
4203                   "/freeciv-" version ".tar.bz2")))
4204      (sha256
4205       (base32 "1qmrhrwm0ryvsh1zsxcxj128lhyvaxap7k39sam3hh8rl0fq9rnc"))))
4206    (build-system gnu-build-system)
4207    (inputs
4208     `(("curl" ,curl)
4209       ("cyrus-sasl" ,cyrus-sasl)
4210       ("gtk+" ,gtk+)
4211       ("sdl-mixer" ,sdl-mixer)
4212       ("zlib" ,zlib)))
4213    (native-inputs
4214     `(("pkg-config" ,pkg-config)))
4215    (home-page "http://www.freeciv.org/")
4216    (synopsis "Turn-based empire building strategy game")
4217    (description "Freeciv is a turn-based empire building strategy game
4218 inspired by the history of human civilization.  The game commences in
4219 prehistory and your mission is to lead your tribe from the Stone Age
4220 into the Space Age.")
4221    (license license:gpl2+)))
4222
4223 (define-public no-more-secrets
4224   (package
4225     (name "no-more-secrets")
4226     (version "0.3.3")
4227     (source
4228      (origin
4229        (method git-fetch)
4230        (uri (git-reference
4231              (url "https://github.com/bartobri/no-more-secrets.git")
4232              (commit (string-append "v" version))))
4233        (file-name (git-file-name name version))
4234        (sha256
4235         (base32 "1zfv4qabikf8w9winsr4brxrdvs3f0d7xvydksyx8bydadsm2v2h"))))
4236     (build-system gnu-build-system)
4237     (arguments
4238      `(#:tests? #f
4239        #:make-flags (list "CC=gcc" "all-ncurses"
4240                           (string-append "prefix="
4241                                          (assoc-ref %outputs "out")))
4242        #:phases
4243        (modify-phases %standard-phases
4244          (delete 'configure))))
4245     (inputs
4246      `(("ncurses" ,ncurses)))
4247     (home-page "https://github.com/bartobri/no-more-secrets")
4248     (synopsis "Recreation of data decryption effect in \"Sneakers\"")
4249     (description
4250      "@code{No More Secrets} provides a command line tool called \"nms\"
4251 that recreates the famous data decryption effect seen on screen in the 1992
4252 movie \"Sneakers\".
4253
4254 This command works on piped data.  Pipe any ASCII or UTF-8 text to nms, and
4255 it will apply the hollywood effect, initially showing encrypted data, then
4256 starting a decryption sequence to reveal the original plaintext characters.")
4257     (license license:expat)))
4258
4259 (define-public megaglest-data
4260   (package
4261     (name "megaglest-data")
4262     (version "3.13.0")
4263     (source
4264      (origin
4265        (method url-fetch)
4266        (uri (string-append
4267              "https://github.com/MegaGlest/megaglest-data"
4268              "/releases/download/" version "/megaglest-data-"
4269              version ".tar.xz"))
4270        (sha256
4271         (base32
4272          "0ipgza33z89fw3si32iafm981f3fvm0zldvbxj29whghd2k3rpj3"))))
4273     (build-system cmake-build-system)
4274     (arguments
4275      `(#:tests? #f))
4276     (home-page "https://megaglest.org/")
4277     (synopsis "Data files for MegaGlest")
4278     (description "This package contains the data files required for MegaGlest.")
4279     (license license:cc-by-sa3.0)))
4280
4281 (define-public megaglest
4282   (package
4283     (name "megaglest")
4284     (version "3.13.0")
4285     (source
4286      (origin
4287        (method url-fetch)
4288        (uri (string-append
4289              "https://github.com/MegaGlest/megaglest-source"
4290              "/releases/download/" version "/megaglest-source-"
4291              version ".tar.xz"))
4292        (sha256
4293         (base32
4294          "1ffck3ii1wp5k3nn5p0ga06jgp7pzk4zw0xln3xim2w7qrxzdzh9"))))
4295     (build-system cmake-build-system)
4296     (inputs
4297      `(("curl" ,curl)
4298        ("fontconfig" ,fontconfig)
4299        ("ftgl" ,ftgl)
4300        ("glew" ,glew)
4301        ("libjpeg-turbo" ,libjpeg-turbo)
4302        ("megaglest-data" ,megaglest-data)
4303        ("mesa" ,mesa)
4304        ("miniupnpc" ,miniupnpc)
4305        ("openal" ,openal)
4306        ("libircclient" ,libircclient)
4307        ("libpng" ,libpng)
4308        ("libvorbis" ,libvorbis)
4309        ("lua" ,lua)
4310        ("sdl2" ,sdl2)
4311        ("wxwidgets" ,wxwidgets)))
4312     (native-inputs
4313      `(("cppunit" ,cppunit)
4314        ("pkg-config" ,pkg-config)))
4315     (arguments
4316      `(#:configure-flags
4317        (list (string-append "-DCUSTOM_DATA_INSTALL_PATH="
4318                             (assoc-ref %build-inputs "megaglest-data")
4319                             "/share/megaglest")
4320              "-DBUILD_MEGAGLEST_TESTS=ON")
4321        #:phases
4322        (modify-phases %standard-phases
4323          (add-after 'unpack 'fix-ini-search-path
4324                     (lambda* (#:key outputs #:allow-other-keys)
4325                       (substitute* "source/glest_game/global/config.cpp"
4326                         (("/usr/share/megaglest/")
4327                          (string-append (assoc-ref outputs "out")
4328                                         "/share/megaglest/"))))))
4329        #:test-target "megaglest_tests"))
4330     (home-page "https://megaglest.org/")
4331     (synopsis "3D real-time strategy (RTS) game")
4332     (description "MegaGlest is a cross-platform 3D real-time strategy (RTS)
4333 game, where you control the armies of one of seven different factions: Tech,
4334 Magic, Egypt, Indians, Norsemen, Persian or Romans.")
4335     (license license:gpl2+)))
4336
4337 (define-public freegish
4338   (let ((commit "8795cd7adc95957883f2d3465eb9036a774667a7")
4339         (revision "1"))
4340     (package
4341       (name "freegish")
4342       (version (string-append "0-" revision "." (string-take commit 9)))
4343       (source (origin
4344                 (method git-fetch)
4345                 (uri (git-reference
4346                       (url "https://github.com/freegish/freegish.git")
4347                       (commit commit)))
4348                 (file-name (git-file-name name version))
4349                 (sha256
4350                  (base32
4351                   "1p1zf5qqagmcpi1db2bs02cnalpy3qiymp6yzan7k1bhmv859gsx"))
4352                 (modules '((guix build utils)))
4353                 ;; The audio files in the "music" directory are licensed under
4354                 ;; CC-BY-NC, so we delete them.
4355                 (snippet
4356                  '(begin
4357                     (delete-file-recursively "music")
4358                     #t))))
4359       (build-system cmake-build-system)
4360       (arguments
4361        `(#:tests? #f ; no tests included
4362          #:configure-flags
4363          (list "-DCMAKE_INSTALL_FHS=ON")
4364          #:phases
4365          (modify-phases %standard-phases
4366            (add-after 'unpack 'set-DATAPATH
4367              (lambda* (#:key outputs #:allow-other-keys)
4368                (substitute* "CMakeLists.txt"
4369                  (("^option\\(INSTALL_FHS" line)
4370                   (string-append "add_definitions(-DDATAPATH=\""
4371                                  (assoc-ref outputs "out") "/share/freegish\")\n"
4372                                  line)))
4373                #t)))))
4374       (inputs
4375        `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))
4376          ("openal" ,openal)
4377          ("libvorbis" ,libvorbis)
4378          ("libogg" ,libogg)
4379          ("mesa" ,mesa)
4380          ("libpng" ,libpng)
4381          ("zlib" ,zlib)))
4382       (home-page "https://github.com/freegish/freegish")
4383       (synopsis "Side-scrolling physics platformer with a ball of tar")
4384       (description "In FreeGish you control Gish, a ball of tar who lives
4385 happily with his girlfriend Brea, until one day a mysterious dark creature
4386 emerges from a sewer hole and pulls her below ground.")
4387       ;; The textures are available under the Expat license.  All other assets
4388       ;; (including levels) are covered under CC-BY-SA or public domain.  The
4389       ;; source code is under GPLv2+.
4390       (license (list license:gpl2+
4391                      license:expat
4392                      license:public-domain
4393                      license:cc-by-sa3.0)))))
4394
4395 (define-public cdogs-sdl
4396   (package
4397     (name "cdogs-sdl")
4398     (version "0.6.9")
4399     (source (origin
4400               (method git-fetch)
4401               (uri (git-reference
4402                     (url "https://github.com/cxong/cdogs-sdl.git")
4403                     (commit version)))
4404               (file-name (git-file-name name version))
4405               (sha256
4406                (base32
4407                 "13gyv2hzk43za1n3lsjnd5v64xlzfzq7n10scd1rcbsnk1n007zr"))))
4408     (build-system cmake-build-system)
4409     (arguments
4410      `(#:configure-flags
4411        (list (string-append "-DCDOGS_DATA_DIR="
4412                             (assoc-ref %outputs "out")
4413                             "/share/cdogs-sdl/"))))
4414     (inputs
4415      `(("mesa" ,mesa)
4416        ("sdl2" ,sdl2)
4417        ("sdl2-image" ,sdl2-image)
4418        ("sdl2-mixer" ,sdl2-mixer)))
4419     (home-page "https://cxong.github.io/cdogs-sdl/")
4420     (synopsis "Classic overhead run-and-gun game")
4421     (description "C-Dogs SDL is a classic overhead run-and-gun game,
4422 supporting up to 4 players in co-op and deathmatch modes.  Customize your
4423 player, choose from many weapons, and blast, slide and slash your way through
4424 over 100 user-created campaigns.")
4425     ;; GPLv2+ for code (includes files under BSD-2 and BSD-3),
4426     ;; CC0/CC-BY/CC-BY-SA for assets.
4427     (license (list license:gpl2+
4428                    license:bsd-2
4429                    license:bsd-3
4430                    license:cc0
4431                    license:cc-by3.0
4432                    license:cc-by-sa3.0))))
4433
4434 (define-public kiki
4435   (package
4436     (name "kiki")
4437     (version "1.0.2")
4438     (source (origin
4439               (method url-fetch)
4440               (uri (string-append "mirror://sourceforge/kiki/kiki-src/"
4441                                   version "/kiki-" version "-src.tgz"))
4442               (sha256
4443                (base32
4444                 "0ihjdsxbn8z3cz0gpcprafiipcqaiskgdnh1rhmw4qff8dszalbn"))
4445               (modules '((guix build utils)))
4446               (snippet
4447                '(begin
4448                   (for-each delete-file (find-files "." "\\.dll$"))
4449                   #t))
4450               (patches
4451                (search-patches "kiki-level-selection-crash.patch"
4452                                "kiki-makefile.patch"
4453                                "kiki-missing-includes.patch"
4454                                "kiki-portability-64bit.patch"))))
4455     (build-system gnu-build-system)
4456     (arguments
4457      `(#:tests? #f ; there are no tests
4458        #:make-flags '("CXX=g++")
4459        #:phases
4460        (modify-phases %standard-phases
4461          (replace 'configure
4462            (lambda* (#:key inputs outputs #:allow-other-keys)
4463              (setenv "CPLUS_INCLUDE_PATH"
4464                      (string-append (assoc-ref inputs "sdl-union")
4465                                     "/include/SDL:"
4466                                     (assoc-ref inputs "python")
4467                                     "/include/python2.7"))
4468              (substitute* "src/main/main.cpp"
4469                (("#include <SDL.h>" line)
4470                 (string-append line "
4471 #define K_INCLUDE_GLUT
4472 #include \"KIncludeTools.h\""))
4473                (("// initialize SDL" line)
4474                 (string-append "glutInit(&argc,argv);\n" line)))
4475              (substitute* "src/main/KikiController.cpp"
4476                (("getenv\\(\"KIKI_HOME\"\\)")
4477                 (string-append "\"" (assoc-ref outputs "out") "/share/kiki/\"")))
4478              (substitute* "linux/Makefile"
4479                (("CXXOPTS =" line)
4480                 (string-append line " -fpermissive"))
4481                (("PYTHON_VERSION=.*") "PYTHON_VERSION=2.7")
4482                (("PYTHONHOME =.*")
4483                 (string-append "PYTHONHOME = "
4484                                (assoc-ref inputs "python")
4485                                "/lib/python2.7/"))
4486                (("\\$\\(GLLIBS\\)" line)
4487                 (string-append line " -lm -lpython2.7")))
4488              (substitute* "src/main/KikiPythonWidget.h"
4489                (("#define __KikiPythonWidget" line)
4490                 (string-append line "\n#include \"KikiPython.h\"")))
4491              #t))
4492          (add-before 'build 'build-kodilib
4493            (lambda* (#:key make-flags #:allow-other-keys)
4494              (with-directory-excursion "kodilib/linux"
4495                (apply invoke "make" make-flags))))
4496          (add-after 'build-kodilib 'chdir
4497            (lambda _ (chdir "linux") #t))
4498          (replace 'install
4499            (lambda* (#:key outputs #:allow-other-keys)
4500              (let* ((out   (assoc-ref outputs "out"))
4501                     (bin   (string-append out "/bin"))
4502                     (share (string-append out "/share/kiki")))
4503                (mkdir-p bin)
4504                (mkdir-p share)
4505                (install-file "kiki" bin)
4506                (copy-recursively "../py" (string-append share "/py"))
4507                (copy-recursively "../sound" (string-append share "/sound"))
4508                #t))))))
4509     (inputs
4510      `(("glu" ,glu)
4511        ;; Kiki builds fine with freeglut 3.0.0 but segfaults on start.
4512        ("freeglut" ,freeglut-2.8)
4513        ("sdl-union" ,(sdl-union (list sdl
4514                                       sdl-mixer
4515                                       sdl-image)))
4516        ("python" ,python-2)))
4517     (native-inputs
4518      `(("swig" ,swig)))
4519     (home-page "http://kiki.sourceforge.net/")
4520     (synopsis "3D puzzle game")
4521     (description "Kiki the nano bot is a 3D puzzle game.  It is basically a
4522 mixture of the games Sokoban and Kula-World.  Your task is to help Kiki, a
4523 small robot living in the nano world, repair its maker.")
4524     ;; See <http://metadata.ftp-master.debian.org/changelogs/main/k/
4525     ;; kiki-the-nano-bot/kiki-the-nano-bot_1.0.2+dfsg1-4_copyright>
4526     ;; for a statement from the author.
4527     (license license:public-domain)))
4528
4529 (define-public kiki-the-nano-bot
4530   (deprecated-package "kiki-the-nano-bot" kiki))
4531
4532 (define-public teeworlds
4533   (package
4534     (name "teeworlds")
4535     (version "0.7.4")
4536     (source (origin
4537               (method git-fetch)
4538               (uri (git-reference
4539                     (url "https://github.com/teeworlds/teeworlds.git")
4540                     (commit version)))
4541               (file-name (git-file-name name version))
4542               (sha256
4543                (base32
4544                 "1lxdb1k2cdj2421vyz1z0ximzfnpkh2y4y84zpn2gqsa1nzwbryb"))
4545               (modules '((guix build utils)
4546                          (ice-9 ftw)
4547                          (ice-9 regex)
4548                          (srfi srfi-1)
4549                          (srfi srfi-26)))
4550               (snippet ; remove bundled libraries except md5
4551                '(let ((base-dir "src/engine/external/"))
4552                   (for-each (compose (cut delete-file-recursively <>)
4553                                      (cut string-append base-dir <>))
4554                             (remove (cut string-match "(^.)|(^md5$)" <>)
4555                                     (scandir base-dir)))
4556                   #t))))
4557     (build-system gnu-build-system)
4558     (arguments
4559      `(#:tests? #f                      ; no tests included
4560        #:modules ((guix build gnu-build-system)
4561                   (guix build utils)
4562                   (srfi srfi-26))
4563        #:phases
4564        (modify-phases %standard-phases
4565          (replace 'configure
4566            (lambda* (#:key outputs #:allow-other-keys)
4567              ;; Embed path to assets.
4568              (substitute* "src/engine/shared/storage.cpp"
4569                (("#define DATA_DIR.*")
4570                 (string-append "#define DATA_DIR \""
4571                                (assoc-ref outputs "out")
4572                                "/share/teeworlds/data"
4573                                "\"")))
4574
4575              ;; Bam expects all files to have a recent time stamp.
4576              (for-each (cut utime <> 1 1)
4577                        (find-files "."))
4578
4579              ;; Do not use bundled libraries.
4580              (substitute* "bam.lua"
4581                (("local json = Compile.+$")
4582                 "local json = nil
4583 settings.link.libs:Add(\"jsonparser\")")
4584                (("local png = Compile.+$")
4585                 "local png = nil
4586 settings.link.libs:Add(\"pnglite\")")
4587                (("local wavpack = Compile.+$")
4588                 "local wavpack = nil
4589 settings.link.libs:Add(\"wavpack\")")
4590                (("if config\\.zlib\\.value == 1")
4591                 "if config.zlib.value"))
4592              (substitute* "src/engine/client/graphics_threaded.cpp"
4593                (("engine/external/pnglite/pnglite\\.h")
4594                 "pnglite.h"))
4595              (substitute* "src/engine/client/sound.cpp"
4596                (("engine/external/wavpack/wavpack\\.h")
4597                 "wavpack/wavpack.h"))
4598              #t))
4599          (replace 'build
4600            (lambda _
4601              (invoke "bam" "-a" "-v" "conf=release")))
4602          (replace 'install
4603            (lambda* (#:key outputs #:allow-other-keys)
4604              (let* ((arch ,(system->linux-architecture
4605                             (or (%current-target-system)
4606                                 (%current-system))))
4607                     (build (string-append "build/" (if (string=? arch "i386")
4608                                                        "x86" arch)
4609                                           "/release/"))
4610                     (data-built (string-append build "data/"))
4611                     (out (assoc-ref outputs "out"))
4612                     (bin (string-append out "/bin/"))
4613                     (data (string-append out "/share/teeworlds/data/")))
4614                (for-each (cut install-file <> bin)
4615                          (map (cut string-append build <>)
4616                               '("teeworlds" "teeworlds_srv")))
4617                (copy-recursively data-built data)
4618                #t))))))
4619     (inputs
4620      `(("freetype" ,freetype)
4621        ("glu" ,glu)
4622        ("json-parser" ,json-parser)
4623        ("mesa" ,mesa)
4624        ("pnglite" ,pnglite)
4625        ("sdl2" ,sdl2)
4626        ("sdl2-image" ,sdl2-image)
4627        ("sdl2-mixer" ,sdl2-mixer)
4628        ("wavpack" ,wavpack)
4629        ("zlib" ,zlib)))
4630     (native-inputs
4631      `(("bam" ,bam)
4632        ("python" ,python-wrapper)
4633        ("pkg-config" ,pkg-config)))
4634     (home-page "https://www.teeworlds.com")
4635     (synopsis "2D retro multiplayer shooter game")
4636     (description "Teeworlds is an online multiplayer game.  Battle with up to
4637 16 players in a variety of game modes, including Team Deathmatch and Capture
4638 The Flag.  You can even design your own maps!")
4639     (license license:bsd-3)))
4640
4641 (define-public enigma
4642   (package
4643     (name "enigma")
4644     (version "1.21")
4645     (source (origin
4646               (method url-fetch)
4647               (uri (string-append "mirror://sourceforge/enigma-game/"
4648                                   "Release%20" version "/enigma-"
4649                                   version ".tar.gz"))
4650               (sha256
4651                (base32
4652                 "00ffh9pypj1948pg3q9sjp1nmiabh52p5c8wpg9n1dcfgl3cywnq"))))
4653     (build-system gnu-build-system)
4654     (arguments
4655      `(#:configure-flags
4656        (list "--with-system-enet")
4657        #:phases
4658        (modify-phases %standard-phases
4659          (add-after 'unpack 'find-sdl
4660            (lambda _
4661              (substitute* "configure"
4662                (("SDL_ttf.h") "SDL/SDL_ttf.h"))
4663              (substitute* '("tools/ttf2bmf.cc"
4664                             "lib-src/enigma-core/ecl_font.cc"
4665                             "lib-src/enigma-core/ecl_video.cc"
4666                             "lib-src/enigma-core/ecl_buffer.hh"
4667                             "src/SoundEngine.cc"
4668                             "src/SoundEngine.hh"
4669                             "src/MusicManager.cc"
4670                             "src/MusicManager.hh"
4671                             "src/d_models.cc"
4672                             "src/main.cc"
4673                             "src/network.cc")
4674                (("#include \"SDL_(image|ttf|mixer|types|syswm|mutex).h\"" line header)
4675                 (string-append "#include \"SDL/SDL_" header ".h\"")))
4676              (substitute* "src/main.cc"
4677                (("#include <SDL_(image|ttf|mixer).h>" line header)
4678                 (string-append "#include \"SDL/SDL_" header ".h\"")))
4679              #t)))))
4680     (inputs
4681      `(("xerces-c" ,xerces-c)
4682        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
4683        ("curl" ,curl)
4684        ("enet" ,enet)))
4685     (native-inputs
4686      `(("pkg-config" ,pkg-config)
4687        ("imagemagick" ,imagemagick)))
4688     (home-page "https://www.nongnu.org/enigma")
4689     (synopsis "Puzzle game with a dexterity component")
4690     (description "Enigma is a puzzle game with 550 unique levels.  The object
4691 of the game is to find and uncover pairs of identically colored ‘Oxyd’ stones.
4692 Simple?  Yes.  Easy?  Certainly not!  Hidden traps, vast mazes, laser beams,
4693 and most of all, countless hairy puzzles usually block your direct way to the
4694 Oxyd stones.  Enigma’s game objects (and there are hundreds of them, lest you
4695 get bored) interact in many unexpected ways, and since many of them follow the
4696 laws of physics (Enigma’s special laws of physics, that is), controlling them
4697 with the mouse isn’t always trivial.")
4698     (license license:gpl2+)))
4699
4700 (define-public chroma
4701   (package
4702     (name "chroma")
4703     (version "1.17")
4704     (source (origin
4705               (method url-fetch)
4706               (uri (string-append "http://level7.org.uk/chroma/download/chroma-"
4707                                   version ".tar.bz2"))
4708               (sha256
4709                (base32
4710                 "047sf00x71xbmi8bqrhfbmr9bk89l2gbykkqsfpw4wz6yfjscs6y"))))
4711     (build-system gnu-build-system)
4712     (arguments
4713      `(#:tests? #f))                    ; no tests included
4714     (inputs
4715      `(("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
4716        ("freetype" ,freetype)
4717        ("ncurses" ,ncurses)
4718        ("fontconfig" ,fontconfig)
4719        ("libxft" ,libxft)))
4720     (native-inputs
4721      `(("pkg-config" ,pkg-config)))
4722     (home-page "http://level7.org.uk/chroma/")
4723     (synopsis "Abstract puzzle game")
4724     (description "Chroma is an abstract puzzle game. A variety of colourful
4725 shapes are arranged in a series of increasingly complex patterns, forming
4726  fiendish traps that must be disarmed and mysterious puzzles that must be
4727  manipulated in order to give up their subtle secrets. Initially so
4728  straightforward that anyone can pick it up and begin to play, yet gradually
4729  becoming difficult enough to tax even the brightest of minds.")
4730     (license license:gpl2+)))
4731
4732 (define-public fillets-ng
4733   (package
4734     (name "fillets-ng")
4735     (version "1.0.1")
4736     (source (origin
4737               (method url-fetch)
4738               (uri (string-append "mirror://sourceforge/fillets/"
4739                                   "Fish%20Fillets%20-%20Next%20Generation/"
4740                                   version "/fillets-ng-" version ".tar.gz"))
4741               (sha256
4742                (base32
4743                 "1nljp75aqqb35qq3x7abhs2kp69vjcj0h1vxcpdyn2yn2nalv6ij"))))
4744     (build-system gnu-build-system)
4745     (arguments
4746      `(#:configure-flags
4747        (list (string-append "--with-lua="
4748                             (assoc-ref %build-inputs "lua")))
4749        #:make-flags
4750        (list (string-append "CFLAGS=-I"
4751                             (assoc-ref %build-inputs "sdl-union")
4752                             "/include/SDL")
4753              (string-append "CXXFLAGS=-I"
4754                             (assoc-ref %build-inputs "sdl-union")
4755                             "/include/SDL"))
4756        #:phases
4757        (modify-phases %standard-phases
4758          ;; Lua 5.1 does not provide it.
4759          (add-after 'unpack 'do-not-link-with-lualib
4760            (lambda _
4761              (substitute* "configure"
4762                (("-llualib") ""))
4763              #t))
4764          (add-after 'install 'install-data
4765            (lambda* (#:key inputs outputs #:allow-other-keys)
4766              (let ((data (string-append (assoc-ref outputs "out")
4767                                         "/share/games/fillets-ng")))
4768                (mkdir-p data)
4769                (invoke "tar" "-xvf"
4770                        (assoc-ref inputs "fillets-ng-data")
4771                        "--strip-components=1"
4772                        "-C" data)))))))
4773     (inputs
4774      `(("sdl-union" ,(sdl-union (list sdl
4775                                       sdl-mixer
4776                                       sdl-image
4777                                       sdl-ttf)))
4778        ("fribidi" ,fribidi)
4779        ("libx11" ,libx11)
4780        ("lua" ,lua-5.1)))
4781     (native-inputs
4782      `(("pkg-config" ,pkg-config)
4783        ("fillets-ng-data"
4784         ,(origin
4785            (method url-fetch)
4786            (uri (string-append "mirror://sourceforge/fillets/"
4787                                "Fish%20Fillets%20-%20Next%20Generation/"
4788                                version "/fillets-ng-data-" version ".tar.gz"))
4789            (sha256
4790             (base32
4791              "169p0yqh2gxvhdilvjc2ld8aap7lv2nhkhkg4i1hlmgc6pxpkjgh"))))))
4792     (home-page "http://fillets.sourceforge.net/")
4793     (synopsis "Puzzle game")
4794     (description "Fish Fillets NG is strictly a puzzle game.  The goal in
4795 every of the seventy levels is always the same: find a safe way out.  The fish
4796 utter witty remarks about their surroundings, the various inhabitants of their
4797 underwater realm quarrel among themselves or comment on the efforts of your
4798 fish.  The whole game is accompanied by quiet, comforting music.")
4799     (license license:gpl2+)))
4800
4801 (define-public fish-fillets-ng
4802   (deprecated-package "fish-fillets-ng" fillets-ng))
4803
4804 (define-public crawl
4805   (package
4806     (name "crawl")
4807     (version "0.24.0")
4808     (source
4809      (origin
4810        (method url-fetch)
4811        (uri (list
4812              ;; Older releases get moved into a versioned directory
4813              (string-append "http://crawl.develz.org/release/"
4814                             (version-major+minor version) "/stone_soup-"
4815                             version "-nodeps.tar.xz")
4816              ;; Only the latest release is in this directory
4817              (string-append "http://crawl.develz.org/release/stone_soup-"
4818                             version "-nodeps.tar.xz")))
4819        (sha256
4820         (base32 "0kdq6s12myxfdg75ma9x3ys2nd0xwb3xm2ynlmhg4628va0pnixr"))
4821        (patches (search-patches "crawl-upgrade-saves.patch"))))
4822     (build-system gnu-build-system)
4823     (inputs
4824      `(("lua51" ,lua-5.1)
4825        ("ncurses" ,ncurses)
4826        ("sqlite" ,sqlite)
4827        ("zlib" ,zlib)))
4828     (native-inputs
4829      `(("bison" ,bison)
4830        ("flex" ,flex)
4831        ("perl" ,perl)
4832        ("python" ,python-wrapper)
4833        ("python-pyyaml" ,python-pyyaml)
4834        ("pkg-config" ,pkg-config)))
4835     (arguments
4836      `(#:make-flags
4837        (let* ((sqlite (assoc-ref %build-inputs "sqlite"))
4838               (out (assoc-ref %outputs "out")))
4839          (list (string-append "SQLITE_INCLUDE_DIR=" sqlite "/include")
4840                (string-append "prefix=" out)
4841                "SAVEDIR=~/.crawl"
4842                ;; Don't compile with SSE on systems which don't have it.
4843                ,@(match (%current-system)
4844                    ((or "i686-linux" "x86_64-linux")
4845                     '())
4846                    (_ '("NOSSE=TRUE")))
4847                ;; don't build any bundled dependencies
4848                "BUILD_LUA="
4849                "BUILD_SQLITE="
4850                "BUILD_ZLIB="
4851                "-Csource"))
4852        #:phases
4853        (modify-phases %standard-phases
4854          (add-after 'unpack 'find-SDL-image
4855            (lambda _
4856              (substitute* "source/windowmanager-sdl.cc"
4857                (("SDL_image.h") "SDL2/SDL_image.h"))
4858              #t))
4859          (delete 'configure)
4860          (replace 'check
4861            (lambda* (#:key inputs outputs make-flags #:allow-other-keys)
4862              (setenv "HOME" (getcwd))
4863              ;; Fake a terminal for the test cases.
4864              (setenv "TERM" "xterm-256color")
4865              ;; Run the tests that don't require a debug build.
4866              (apply invoke "make" "nondebugtest"
4867                     (format #f "-j~d" (parallel-job-count))
4868                     ;; Force command line build for test cases.
4869                     (append make-flags '("GAME=crawl" "TILES="))))))))
4870     (synopsis "Roguelike dungeon crawler game")
4871     (description "Dungeon Crawl Stone Soup (also known as \"Crawl\" or DCSS
4872 for short) is a roguelike adventure through dungeons filled with dangerous
4873 monsters in a quest to find the mystifyingly fabulous Orb of Zot.")
4874     (home-page "https://crawl.develz.org")
4875     (license (list license:gpl2+
4876                    license:bsd-2
4877                    license:bsd-3
4878                    license:cc0
4879                    license:expat
4880                    license:zlib
4881                    license:asl2.0))))
4882
4883 (define-public dungeon-crawl-stone-soup
4884   (deprecated-package "dungeon-crawl-stone-soup" crawl))
4885
4886 ;; The linter here claims that patch file names should start with the package
4887 ;; name. But, in this case, the patches are inherited from crawl with the
4888 ;; "crawl-" prefix instead of "crawl-tiles-".
4889 (define-public crawl-tiles
4890   (package
4891     (inherit crawl)
4892     (name "crawl-tiles")
4893     (arguments
4894      (substitute-keyword-arguments
4895          (package-arguments crawl)
4896        ((#:make-flags flags)
4897         `(let ((dejavu (assoc-ref %build-inputs "font-dejavu")))
4898            (cons*
4899             (string-append "PROPORTIONAL_FONT=" dejavu
4900                            "/share/fonts/truetype/DejaVuSans.ttf")
4901             (string-append "MONOSPACED_FONT=" dejavu
4902                            "/share/fonts/truetype/DejaVuSansMono.ttf")
4903             "TILES=y"
4904             ;; Rename the executable to allow parallel installation with crawl.
4905             "GAME=crawl-tiles"
4906             ,flags)))))
4907     (inputs
4908      `(,@(package-inputs crawl)
4909        ("font-dejavu" ,font-dejavu)
4910        ("freetype6" ,freetype)
4911        ("glu" ,glu)
4912        ("libpng" ,libpng)
4913        ("sdl2" ,sdl2)
4914        ("sdl2-image" ,sdl2-image)
4915        ("sdl2-mixer" ,sdl2-mixer)))
4916     (native-inputs
4917      `(,@(package-native-inputs crawl)
4918        ("pngcrush" ,pngcrush)
4919        ("which" ,which)))
4920     (synopsis "Graphical roguelike dungeon crawler game")))
4921
4922 (define-public dungeon-crawl-stone-soup-tiles
4923   (deprecated-package "dungeon-crawl-stone-soup-tiles" crawl-tiles))
4924
4925 (define-public lugaru
4926   (package
4927     (name "lugaru")
4928     (version "1.2")
4929     (source (origin
4930               (method url-fetch)
4931               (uri (string-append "https://bitbucket.org/osslugaru/lugaru/downloads/"
4932                                   "lugaru-" version ".tar.xz"))
4933               (sha256
4934                (base32
4935                 "15zgcshy22q51rm72zi6y9z7qlgnz5iw3gczjdlir4bqmxy4gspk"))))
4936     (build-system cmake-build-system)
4937     (arguments
4938      `(#:configure-flags
4939        (list "-DSYSTEM_INSTALL=ON")
4940        ;; no test target
4941        #:tests? #f))
4942     (native-inputs
4943      `(("pkg-config" ,pkg-config)))
4944     (inputs
4945      `(("sdl2" ,sdl2)
4946        ("glu" ,glu)
4947        ("libjpeg" ,libjpeg-turbo)
4948        ("libpng" ,libpng)
4949        ("openal" ,openal)
4950        ("vorbis" ,libvorbis)
4951        ("zlib" ,zlib)))
4952     (home-page "https://osslugaru.gitlab.io")
4953     (synopsis "Cross-platform third-person action game")
4954     (description "Lugaru is a third-person action game.  The main character,
4955 Turner, is an anthropomorphic rebel bunny rabbit with impressive combat skills.
4956 In his quest to find those responsible for slaughtering his village, he uncovers
4957 a far-reaching conspiracy involving the corrupt leaders of the rabbit republic
4958 and the starving wolves from a nearby den.  Turner takes it upon himself to
4959 fight against their plot and save his fellow rabbits from slavery.")
4960     (license (list license:gpl2+ ; code
4961                    ;; assets:
4962                    license:cc-by-sa3.0
4963                    license:cc-by-sa4.0))))
4964
4965 (define-public 0ad-data
4966   (package
4967     (name "0ad-data")
4968     (version "0.0.23b-alpha")
4969     (source
4970      (origin
4971        (method url-fetch)
4972        (uri (string-append "https://releases.wildfiregames.com/0ad-"
4973                            version "-unix-data.tar.xz"))
4974        (file-name (string-append name "-" version ".tar.xz"))
4975        (sha256
4976         (base32
4977          "04x7729hk6zw1xj3n4s4lvaviijsnbjf5rhzvjxlr5fygvg4l6z1"))
4978        (modules '((guix build utils)))
4979        (snippet
4980         #~(begin
4981             (for-each (lambda (name)
4982                         (let* ((dir (string-append "binaries/data/mods/" name))
4983                                (file (string-append dir "/" name ".zip"))
4984                                (unzip #$(file-append unzip "/bin/unzip")))
4985                           (invoke unzip "-d" dir file)
4986                           (delete-file file)))
4987                       '("mod" "public"))
4988             #t))))
4989     (build-system trivial-build-system)
4990     (native-inputs `(("tar" ,tar)
4991                      ("xz" ,xz)))
4992     (arguments
4993      `(#:modules ((guix build utils))
4994        #:builder
4995        (begin
4996          (use-modules (guix build utils))
4997          (let ((out (assoc-ref %outputs "out"))
4998                (source (assoc-ref %build-inputs "source"))
4999                (tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
5000                (xz-path (string-append (assoc-ref %build-inputs "xz") "/bin")))
5001            (setenv "PATH" xz-path)
5002            (mkdir out)
5003            (invoke tar "xvf" source "-C" out "--strip=3")))))
5004     (synopsis "Data files for 0ad")
5005     (description "0ad-data provides the data files required by the game 0ad.")
5006     (home-page "https://play0ad.com")
5007     (license (list (license:fsdg-compatible
5008                     "http://tavmjong.free.fr/FONTS/ArevCopyright.txt"
5009                     "Similar to the license of the Bitstream Vera fonts.")
5010                    (license:fsdg-compatible
5011                     "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts")
5012                    license:cc-by-sa3.0
5013                    license:expat
5014                    license:gfl1.0
5015                    license:gpl2+
5016                    license:gpl3+))))
5017
5018 (define-public 0ad
5019   (package
5020     (name "0ad")
5021     (version "0.0.23b-alpha")
5022     (source
5023      (origin
5024        (method url-fetch)
5025        (uri (string-append "https://releases.wildfiregames.com/0ad-"
5026                            version "-unix-build.tar.xz"))
5027        (file-name (string-append name "-" version ".tar.xz"))
5028        (sha256
5029         (base32
5030          "0draa53xg69i5qhqym85658m45xhwkbiimaldj4sr3703rjgggq1"))))
5031        ;; A snippet here would cause a build failure because of timestamps
5032        ;; reset.  See https://bugs.gnu.org/26734.
5033     (inputs
5034      `(("0ad-data" ,0ad-data)
5035        ("curl" ,curl)
5036        ("enet" ,enet)
5037        ("gloox" ,gloox)
5038        ("icu4c" ,icu4c)
5039        ("libpng" ,libpng)
5040        ("libsodium" ,libsodium)
5041        ("libvorbis" ,libvorbis)
5042        ("libxcursor" ,libxcursor)
5043        ("libxml2" ,libxml2)
5044        ("miniupnpc" ,miniupnpc)
5045        ("mozjs-38" ,mozjs-38)
5046        ("openal" ,openal)
5047        ("sdl2" ,sdl2)
5048        ("wxwidgets" ,wxwidgets)
5049        ("zlib" ,zlib)))
5050     (native-inputs
5051      `(("boost" ,boost)
5052        ("cmake" ,cmake-minimal)
5053        ("mesa" ,mesa)
5054        ("pkg-config" ,pkg-config)
5055        ("python-2" ,python-2)))
5056     (build-system gnu-build-system)
5057     (arguments
5058      `(#:make-flags '("config=release" "verbose=1" "-C" "build/workspaces/gcc")
5059        #:phases
5060        (modify-phases %standard-phases
5061          (add-after 'unpack 'delete-bundles
5062            (lambda _
5063              (delete-file-recursively "libraries/source/spidermonkey")
5064              #t))
5065          (add-after 'unpack 'fix-x11-includes
5066            (lambda _
5067              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5068                (("<Xlib.h>") "<X11/Xlib.h>"))
5069              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5070                (("<Xatom.h>") "<X11/Xatom.h>"))
5071              (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
5072                (("<Xcursor/Xcursor.h>") "<X11/Xcursor/Xcursor.h>"))
5073              #t))
5074          (replace 'configure
5075            (lambda* (#:key inputs outputs #:allow-other-keys)
5076              (let* ((jobs (number->string (parallel-job-count)))
5077                     (out (assoc-ref outputs "out"))
5078                     (lib (string-append out "/lib"))
5079                     (data (string-append out "/share/0ad")))
5080                (setenv "JOBS" (string-append "-j" jobs))
5081                (setenv "CC" "gcc")
5082                (with-directory-excursion "build/workspaces"
5083                  (invoke "./update-workspaces.sh"
5084                          (string-append "--libdir=" lib)
5085                          (string-append "--datadir=" data)
5086                          ;; TODO: "--with-system-nvtt"
5087                          "--with-system-mozjs38")))))
5088          (delete 'check)
5089          (replace 'install
5090            (lambda* (#:key inputs outputs #:allow-other-keys)
5091              (chdir "binaries")
5092              (let* ((out (assoc-ref outputs "out"))
5093                     (bin (string-append out "/bin"))
5094                     (lib (string-append out "/lib"))
5095                     (data (string-append out "/share/0ad"))
5096                     (applications (string-append out "/share/applications"))
5097                     (pixmaps (string-append out "/share/pixmaps"))
5098                     (0ad-data (assoc-ref inputs "0ad-data")))
5099                ;; data
5100                (copy-recursively "data" data)
5101                (for-each (lambda (file)
5102                            (symlink (string-append 0ad-data "/" file)
5103                                     (string-append data "/" file)))
5104                          '("config" "mods/mod" "mods/public" "tools"))
5105                ;; libraries
5106                (for-each (lambda (file)
5107                            (install-file file lib))
5108                          (find-files "system" "\\.so$"))
5109                ;; binaries
5110                (install-file "system/pyrogenesis" bin)
5111                (with-directory-excursion bin
5112                  (symlink "pyrogenesis" "0ad"))
5113                ;; resources
5114                (with-directory-excursion "../build/resources"
5115                  (install-file "0ad.desktop" applications)
5116                  (install-file "0ad.png" pixmaps))
5117                #t)))
5118          (add-after 'install 'check
5119            (lambda _
5120              (with-directory-excursion "system"
5121                (invoke "./test")))))))
5122     (home-page "https://play0ad.com")
5123     (synopsis "3D real-time strategy game of ancient warfare")
5124     (description "0 A.D. is a real-time strategy (RTS) game of ancient
5125 warfare.  It's a historically-based war/economy game that allows players to
5126 relive or rewrite the history of twelve ancient civilizations, each depicted
5127 at their peak of economic growth and military prowess.
5128
5129 0ad needs a window manager that supports 'Extended Window Manager Hints'.")
5130     (license (list license:bsd-2
5131                    license:bsd-3
5132                    license:expat
5133                    license:gpl2+
5134                    license:ibmpl1.0
5135                    license:isc
5136                    license:lgpl2.1
5137                    license:lgpl3
5138                    license:mpl2.0
5139                    license:zlib))))
5140
5141 ;; There have been no official releases.
5142 (define-public open-adventure
5143   (let* ((commit "d43854f0f6bb8e9eea7fbce80348150e7e7fc34d")
5144          (revision "2"))
5145     (package
5146       (name "open-adventure")
5147       (version (string-append "2.5-" revision "." (string-take commit 7)))
5148       (source (origin
5149                 (method git-fetch)
5150                 (uri (git-reference
5151                       (url "https://gitlab.com/esr/open-adventure")
5152                       (commit commit)))
5153                 (file-name (string-append name "-" version "-checkout"))
5154                 (sha256
5155                  (base32
5156                   "08bwrvf4axb1rsfd6ia1fddsky9pc1p350vjskhaakg2czc6dsk0"))))
5157       (build-system gnu-build-system)
5158       (arguments
5159        `(#:make-flags (list "CC=gcc")
5160          #:parallel-build? #f ; not supported
5161          #:phases
5162          (modify-phases %standard-phases
5163            (replace 'configure
5164              (lambda* (#:key inputs outputs #:allow-other-keys)
5165                ;; Linenoise is meant to be included, so we have to
5166                ;; copy it into the working directory.
5167                (let* ((linenoise (assoc-ref inputs "linenoise"))
5168                       (noisepath (string-append linenoise "/include/linenoise"))
5169                       (out (assoc-ref outputs "out")))
5170                  (copy-recursively noisepath "linenoise"))
5171                #t))
5172            (add-before 'build 'use-echo
5173              (lambda _
5174                (substitute* "tests/Makefile"
5175                  (("/bin/echo") (which "echo")))
5176                #t))
5177            (add-after 'build 'build-manpage
5178              (lambda _
5179                ;; This target is missing a dependency
5180                (substitute* "Makefile"
5181                  ((".adoc.6:" line)
5182                   (string-append line " advent.adoc")))
5183                (invoke "make" ".adoc.6")))
5184            ;; There is no install target
5185            (replace 'install
5186              (lambda* (#:key outputs #:allow-other-keys)
5187                (let* ((out (assoc-ref outputs "out"))
5188                       (bin (string-append out "/bin"))
5189                       (man (string-append out "/share/man/man6")))
5190                  (install-file "advent" bin)
5191                  (install-file "advent.6" man))
5192                #t)))))
5193       (native-inputs
5194        `(("asciidoc" ,asciidoc)
5195          ("linenoise" ,linenoise)
5196          ("python" ,python)
5197          ("python-pyyaml" ,python-pyyaml)))
5198       (home-page "https://gitlab.com/esr/open-adventure")
5199       (synopsis "Colossal Cave Adventure")
5200       (description "The original Colossal Cave Adventure from 1976 was the
5201 origin of all text adventures, dungeon-crawl (computer) games, and
5202 computer-hosted roleplaying games.  This is the last version released by
5203 Crowther & Woods, its original authors, in 1995.  It has been known as
5204 \"adventure 2.5\" and \"430-point adventure\".")
5205       (license license:bsd-2))))
5206
5207 (define-public tome4
5208   (package
5209     (name "tome4")
5210     (version "1.6.6")
5211     (synopsis "Single-player, RPG roguelike game set in the world of Eyal")
5212     (source
5213      (origin
5214        (method url-fetch)
5215        (uri (string-append "https://te4.org/dl/t-engine/t-engine4-src-"
5216                            version ".tar.bz2"))
5217        (sha256
5218         (base32
5219          "1amx0y49scy9hq71wjvkdzvgclwa2g54vkv4bf40mxyp4pl0bq7m"))
5220        (modules '((guix build utils)))
5221        (snippet
5222         '(begin
5223            (substitute* '("src/music.h" "src/tSDL.h")
5224              (("#elif defined(__FreeBSD__)" line)
5225               (string-append
5226                line " || defined(__GNUC__)")))
5227            (substitute* '("src/tgl.h")
5228              (("#include <GL/glext.h>") ""))
5229            #t))))
5230     (build-system gnu-build-system)
5231     (native-inputs
5232      `(("unzip" ,unzip)))
5233     (inputs
5234      `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
5235        ("glu" ,glu)
5236        ("premake4" ,premake4)
5237        ("openal" ,openal)
5238        ("vorbis" ,libvorbis)
5239        ("luajit" ,luajit)))
5240     (arguments
5241      `(#:make-flags '("CC=gcc" "config=release")
5242        ;; XXX: Building in parallel occasionally causes this build failure:
5243        ;;   ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h:
5244        ;;   No such file or directory
5245        #:parallel-build? #f
5246        #:phases (modify-phases %standard-phases
5247                   (delete 'bootstrap)
5248                   (replace 'configure
5249                     (lambda _
5250                       (invoke "premake4" "gmake")
5251                       #t))
5252                   (add-after 'set-paths 'set-sdl-paths
5253                     (lambda* (#:key inputs #:allow-other-keys)
5254                       (setenv "CPATH"
5255                               (string-append (assoc-ref inputs "sdl-union")
5256                                              "/include/SDL2:"
5257                                              (getenv "CPATH")))
5258                       #t))
5259                   (delete 'check)
5260                   ;; premake doesn't provide install target
5261                   (replace 'install
5262                     (lambda* (#:key inputs outputs #:allow-other-keys)
5263                       (let* ((out (assoc-ref outputs "out"))
5264                              (usr (string-append out "/usr"))
5265                              (bin (string-append out "/bin"))
5266                              (licenses (string-append out "/share/licenses"))
5267                              (documents (string-append out "/share/doc"))
5268                              (pixmaps (string-append out "/share/pixmaps"))
5269                              (icon "te4-icon.png")
5270                              (data (string-append out "/share/" ,name))
5271                              (applications (string-append
5272                                             out "/share/applications"))
5273                              (unzip (string-append
5274                                      (assoc-ref inputs "unzip") "/bin/unzip"))
5275                              (wrapper (string-append bin "/" ,name)))
5276                         ;; icon
5277                         (mkdir-p pixmaps)
5278                         (invoke unzip "-j"
5279                                 (string-append
5280                                  "game/engines/te4-" ,version ".teae")
5281                                 (string-append
5282                                  "data/gfx/" icon) "-d" pixmaps)
5283                         ;; game executable
5284                         (install-file "t-engine" data)
5285                         (mkdir-p bin)
5286                         (with-output-to-file wrapper
5287                           (lambda ()
5288                             (display
5289                              (string-append
5290                               "#!/bin/sh\n"
5291                               ;; No bootstrap code found,
5292                               ;; defaulting to working directory
5293                               ;; for engine code!
5294                               "cd " data "\n"
5295                               "exec -a tome4 ./t-engine \"$@\"\n"))))
5296                         (chmod wrapper #o555)
5297                         ;; licenses
5298                         (for-each (lambda (file)
5299                                     (install-file file licenses))
5300                                   '("COPYING" "COPYING-MEDIA"))
5301                         ;; documents
5302                         (for-each (lambda (file)
5303                                     (install-file file documents))
5304                                   '("CONTRIBUTING" "CREDITS"))
5305                         ;; data
5306                         (copy-recursively "bootstrap" (string-append
5307                                                        data "/bootstrap"))
5308                         (copy-recursively "game" (string-append data "/game"))
5309                         ;; launcher
5310                         (mkdir-p applications)
5311                         (make-desktop-entry-file
5312                          (string-append applications "/" ,name ".desktop")
5313                          #:name "ToME4"
5314                          #:comment ,synopsis
5315                          #:exec ,name
5316                          #:icon icon
5317                          #:categories '("Game" "RolePlaying")))
5318                       #t)))))
5319     (home-page "https://te4.org")
5320     (description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based
5321 combat and advanced character building.  Play as one of many unique races and
5322 classes in the lore-filled world of Eyal, exploring random dungeons, facing
5323 challenging battles, and developing characters with your own tailored mix of
5324 abilities and powers.  With a modern graphical and customisable interface,
5325 intuitive mouse control, streamlined mechanics and deep, challenging combat,
5326 Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
5327     (license license:gpl3+)))
5328
5329 (define-public tales-of-maj-eyal
5330   (deprecated-package "tales-of-maj-eyal" tome4))
5331
5332 (define-public quakespasm
5333   (package
5334     (name "quakespasm")
5335     (version "0.93.2")
5336     (source
5337      (origin
5338        (method url-fetch)
5339        (uri (string-append "mirror://sourceforge/quakespasm/Source/quakespasm-"
5340                            version ".tgz"))
5341        (sha256
5342         (base32 "0qm0j5drybvvq8xadfyppkpk3rxqsxbywzm6iwsjwdf0iia3gss5"))))
5343     (arguments
5344      `(#:tests? #f
5345        #:make-flags '("CC=gcc"
5346                       "MP3LIB=mpg123"
5347                       "USE_CODEC_FLAC=1"
5348                       "USE_CODEC_MIKMOD=1"
5349                       "USE_SDL2=1"
5350                       "-CQuake")
5351        #:phases (modify-phases %standard-phases
5352                   (delete 'configure)
5353                   (add-after 'unpack 'fix-makefile-paths
5354                     (lambda* (#:key outputs #:allow-other-keys)
5355                       (let ((out (assoc-ref outputs "out")))
5356                         (mkdir-p (string-append out "/bin"))
5357                         (substitute* "Quake/Makefile"
5358                           (("/usr/local/games")
5359                            (string-append out "/bin")))
5360                         #t))))))
5361     (build-system gnu-build-system)
5362     (inputs `(("libmikmod" ,libmikmod)
5363               ("libvorbis" ,libvorbis)
5364               ("flac" ,flac)
5365               ("mesa" ,mesa)
5366               ("mpg123" ,mpg123)
5367               ("sdl2" ,sdl2)))
5368     (synopsis "First person shooter engine for Quake 1")
5369     (description "Quakespasm is a modern engine for id software's Quake 1.
5370 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5371 some graphical niceities, and numerous bug-fixes and other improvements.")
5372     (home-page "http://quakespasm.sourceforge.net/")
5373     (license license:gpl2+)))
5374
5375 (define-public vkquake
5376   (package
5377     (inherit quakespasm)
5378     (name "vkquake")
5379     (version "1.01.0")
5380     (source
5381      (origin
5382        (method git-fetch)
5383        (uri (git-reference
5384              (url "https://github.com/Novum/vkQuake.git")
5385              (commit version)))
5386        (file-name (git-file-name name version))
5387        (sha256
5388         (base32 "1iwin8j5kbyrknbkhjgpy8nmm7pxqzr0daa9gn7p38qhg2mh0a39"))))
5389     (arguments
5390      `(#:make-flags
5391        (let ((vulkanlib (string-append (assoc-ref %build-inputs
5392                                                   "vulkan-loader") "/lib")))
5393          (list "CC=gcc"
5394                "MP3LIB=mpg123"
5395                "USE_CODEC_FLAC=1"
5396                "USE_CODEC_MIKMOD=1"
5397                "USE_SDL2=1"
5398                (string-append "LDFLAGS=-Wl,-rpath=" vulkanlib)
5399                "-CQuake"))
5400        #:phases (modify-phases %standard-phases
5401                   (delete 'configure)
5402                   (add-after 'unpack 'fix-makefile-paths
5403                     (lambda* (#:key outputs #:allow-other-keys)
5404                       (let ((vulkan (assoc-ref %build-inputs
5405                                                "vulkan-loader"))
5406                             (out (assoc-ref outputs "out")))
5407                         (mkdir-p (string-append out "/bin"))
5408                         (substitute* "Quake/Makefile" ((" /usr")
5409                                                        (string-append " " out)))
5410                         (substitute* "Quake/Makefile" (("/games")
5411                                                        (string-append "/bin")))
5412                         (substitute* "Quake/Makefile" (("..VULKAN_SDK.") vulkan))
5413                         #t))))
5414        ,@(strip-keyword-arguments '(#:make-flags #:phases)
5415                                   (package-arguments quakespasm))))
5416     (inputs `(("vulkan-headers" ,vulkan-headers)
5417               ("vulkan-loader" ,vulkan-loader)
5418               ,@(package-inputs quakespasm)))
5419     (description "vkquake is a modern engine for id software's Quake 1.
5420 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
5421 some graphical niceities, and numerous bug-fixes and other improvements.")
5422     (home-page "https://github.com/Novum/vkQuake")))
5423
5424 (define-public yamagi-quake2
5425   (package
5426     (name "yamagi-quake2")
5427     (version "7.10")
5428     (source
5429      (origin
5430        (method url-fetch)
5431        (uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
5432                            version ".tar.xz"))
5433        (sha256
5434         (base32
5435          "0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
5436     (build-system gnu-build-system)
5437     (arguments
5438      `(#:tests? #f
5439        #:make-flags
5440        (list "CC=gcc"
5441              ;; link openAL instead of using dlopen at runtime
5442              "DLOPEN_OPENAL=\"no\""
5443              ;; an optional directory where it will look for quake2 data files
5444              ;; in addition to the current working directory
5445              "WITH_SYSTEMWIDE=yes"
5446              "WITH_SYSTEMDIR=\"/opt/quake2\"")
5447        #:phases
5448        (modify-phases %standard-phases
5449          (delete 'configure)
5450          (replace 'install
5451            (lambda* (#:key outputs #:allow-other-keys)
5452              (let ((out (assoc-ref outputs "out")))
5453                (mkdir-p (string-append out "/lib"))
5454                (mkdir-p (string-append out "/bin"))
5455                ;; The yamagi-quake2 binary must be in the same directory
5456                ;; as it's engine libraries, but symlinking it to /bin is okay
5457                ;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
5458                (copy-recursively "release"
5459                                  (string-append out "/lib/yamagi-quake2"))
5460                (symlink (string-append out "/lib/yamagi-quake2/quake2")
5461                         (string-append out "/bin/yamagi-quake2"))
5462                (symlink (string-append out "/lib/yamagi-quake2/q2ded")
5463                         (string-append out "/bin/yamagi-q2ded"))))))))
5464     (inputs `(("sdl2" ,sdl2)
5465               ("mesa" ,mesa)
5466               ("libvorbis" ,libvorbis)
5467               ("zlib" ,zlib)
5468               ("openal" ,openal)))
5469     (native-inputs `(("pkg-config" ,pkg-config)))
5470     (synopsis "First person shooter engine based on quake2")
5471     (description "Yamagi Quake II is an enhanced client for id Software's Quake II.
5472 The main focus is an unchanged single player experience like back in 1997,
5473 thus the gameplay and the graphics are unaltered.  However the user may use one
5474 of the unofficial retexturing packs.  In comparison with the official client,
5475 over 1000 bugs were fixed and an extensive code audit done,
5476 making Yamagi Quake II one of the most solid Quake II implementations available.")
5477     (home-page "https://www.yamagi.org/quake2/")
5478     (license (list license:gpl2+         ; game and server
5479                    (license:non-copyleft ; info-zip
5480                     "file://LICENSE"
5481                     "See Info-Zip section.")
5482                    license:public-domain)))) ; stb
5483
5484 (define-public nudoku
5485   (package
5486     (name "nudoku")
5487     (version "1.0.0")
5488     (source (origin
5489               (method url-fetch)
5490               (uri (string-append "https://github.com/jubalh/nudoku/"
5491                                   "releases/download/" version
5492                                   "/nudoku-" version ".tar.xz"))
5493               (sha256
5494                (base32
5495                 "0nr2j2z07nxk70s8xnmmpzccxicf7kn5mbwby2kg6aq8paarjm8k"))))
5496     (build-system gnu-build-system)
5497     (inputs `(("ncurses" ,ncurses)))
5498     (home-page "https://jubalh.github.io/nudoku/")
5499     (synopsis "Sudoku for your terminal")
5500     (description "Nudoku is a ncurses-based Sudoku game for your terminal.")
5501     (license license:gpl3+)))
5502
5503 (define-public the-butterfly-effect
5504   (package
5505     (name "the-butterfly-effect")
5506     (version "0.9.3.1")
5507     (source
5508      (origin
5509        (method git-fetch)
5510        (uri (git-reference
5511               (url "https://github.com/the-butterfly-effect/tbe.git")
5512               (commit (string-append "v" version))))
5513        (file-name (git-file-name name version))
5514        (sha256
5515         (base32
5516          "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj"))))
5517     (build-system gnu-build-system)
5518     (arguments
5519      `(#:phases
5520        (modify-phases %standard-phases
5521          (delete 'configure)
5522          ;; There is no "install" phase.  By default, tbe is installed
5523          ;; in the build directory.  Provide our own installation.
5524          (replace 'install
5525            (lambda* (#:key outputs #:allow-other-keys)
5526              (let* ((out (assoc-ref outputs "out"))
5527                     (bin (string-append out "/bin"))
5528                     (share (string-append out "/share")))
5529                (install-file "usr/games/tbe" bin)
5530                (mkdir-p share)
5531                (copy-recursively "usr/share" share)
5532                #t))))
5533        ;; Test suite requires a running Xorg server. Even when
5534        ;; provided, it fails with "D-Bus library appears to be
5535        ;; incorrectly set up; failed to read machine uuid: Failed to
5536        ;; open "/etc/machine-id": No such file or directory" along
5537        ;; with multiple "QPainter:: ... Painter not active" warnings.
5538        #:tests? #f))
5539     (inputs
5540      `(("qtbase" ,qtbase)
5541        ("qtsvg" ,qtsvg)))
5542     (native-inputs
5543      `(("cmake" ,cmake-minimal)
5544        ("gettext-minimal" ,gettext-minimal)
5545        ("qttools" ,qttools)))
5546     (synopsis "Realistic physics puzzle game")
5547     (description "The Butterfly Effect (tbe) is a game that uses
5548 realistic physics simulations to combine lots of simple mechanical
5549 elements to achieve a simple goal in the most complex way possible.")
5550     (home-page "http://the-butterfly-effect.org/")
5551     ;; Main license is GPL2-only.  However, artwork is distributed
5552     ;; under various licenses, listed here.
5553     (license (list license:gpl2 license:public-domain license:expat
5554                    license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
5555
5556 (define-public pioneer
5557   (package
5558     (name "pioneer")
5559     (version "20190203")
5560     (source (origin
5561               (method git-fetch)
5562               (uri (git-reference
5563                     (url "https://github.com/pioneerspacesim/pioneer.git")
5564                     (commit version)))
5565               (file-name (git-file-name name version))
5566               (sha256
5567                (base32
5568                 "1g34wvgyvz793dhm1k64kl82ib0cavkbg0f2p3fp05b457ycljff"))))
5569     (build-system cmake-build-system)
5570     (native-inputs
5571      `(("pkg-config" ,pkg-config)))
5572     (inputs
5573      `(("assimp" ,assimp)
5574        ("curl" ,curl)
5575        ("freetype" ,freetype)
5576        ("glew" ,glew)
5577        ("glu" ,glu)
5578        ("libpng" ,libpng)
5579        ("libsigc++" ,libsigc++)
5580        ("libvorbis" ,libvorbis)
5581        ("lua" ,lua-5.2)                 ;not compatible with 5.3
5582        ("mesa" ,mesa)
5583        ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
5584     (arguments
5585      `(#:tests? #f                      ;tests are broken
5586        #:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
5587                                (string-append "-DPIONEER_DATA_DIR="
5588                                               %output "/share/games/pioneer"))))
5589     (home-page "http://pioneerspacesim.net")
5590     (synopsis "Game of lonely space adventure")
5591     (description
5592      "Pioneer is a space adventure game set in our galaxy at the turn of the
5593 31st century.  The game is open-ended, and you are free to eke out whatever
5594 kind of space-faring existence you can think of.  Look for fame or fortune by
5595 exploring the millions of star systems.  Turn to a life of crime as a pirate,
5596 smuggler or bounty hunter.  Forge and break alliances with the various
5597 factions fighting for power, freedom or self-determination.  The universe is
5598 whatever you make of it.")
5599     (license license:gpl3)))
5600
5601 (define-public badass
5602   (let ((commit "3c3cd669b4fc8f73a102e3702788f7b28dc47dbb")
5603         (revision "0"))
5604   (package
5605     (name "badass")
5606     (version (git-version "0.0" revision commit))
5607     (source (origin
5608               (method git-fetch)
5609               (uri (git-reference
5610                      (url "https://github.com/umayr/badass.git")
5611                      (commit commit)))
5612               (file-name (git-file-name name version))
5613               (sha256
5614                (base32
5615                 "05c9vdcb5ym3z0n5ll3v39mw4yl9jcjnlydmn0yl89ai9pv71zb6"))))
5616     (build-system go-build-system)
5617     (arguments
5618      '(#:import-path "github.com/umayr/badass"))
5619     (synopsis "Hacking contribution graphs in git")
5620     (description
5621      "Badass generates false commits for a range of dates, essentially
5622 hacking the gamification of contribution graphs on platforms such as
5623 Github or Gitlab.")
5624     (home-page "https://github.com/umayr/badass")
5625     (license license:expat))))
5626
5627 (define-public colobot
5628   (package
5629     (name "colobot")
5630     (version "0.1.12-alpha")
5631     (source
5632      (origin
5633        (method git-fetch)
5634        (uri (git-reference
5635              (url "https://github.com/colobot/colobot.git")
5636              (commit (string-append "colobot-gold-" version))
5637              (recursive? #t)))          ;for "data/" subdir
5638        (file-name (git-file-name name version))
5639        (sha256
5640         (base32
5641          "1c181cclkrnspgs07lvndg2c81cjq3smkv7qim8c470cj88rcrp2"))))
5642     (build-system cmake-build-system)
5643     (arguments
5644      `(#:tests? #f                      ;no test
5645        #:phases
5646        (modify-phases %standard-phases
5647          (add-after 'unpack 'make-git-checkout-writable
5648            (lambda _
5649              (for-each make-file-writable (find-files "."))
5650              #t))
5651          (add-after 'unpack 'fix-directories
5652            (lambda _
5653              (substitute* "CMakeLists.txt"
5654                (("(\\$\\{CMAKE_INSTALL_PREFIX\\})/games" _ prefix)
5655                 (string-append prefix "/bin"))
5656                (("(\\$\\{CMAKE_INSTALL_PREFIX\\}/share)/games/colobot" _ prefix)
5657                 (string-append prefix "/colobot")))
5658              #t))
5659          (add-after 'fix-directories 'install-music
5660            ;; Retrieve and install music files.
5661            (lambda* (#:key inputs #:allow-other-keys)
5662              ;; Installation process tries to download music files using
5663              ;; "wget" if not already present.  Since we are going another
5664              ;; route, skip "wget" command check.
5665              (substitute* "data/music/CMakeLists.txt"
5666                (("find_program\\(WGET wget\\)") ""))
5667              ;; Populate "music/" directory.
5668              (let ((data (assoc-ref inputs "colobot-music")))
5669                (invoke "tar" "-xvf" data "-Cdata/music"))
5670              #t)))))
5671     (native-inputs
5672      `(("colobot-music"
5673         ,(origin
5674            (method url-fetch)
5675            (uri (string-append "https://colobot.info/files/music/"
5676                                "colobot-music_ogg_" version ".tar.gz"))
5677            (sha256
5678             (base32
5679              "1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
5680        ("gettext" ,gettext-minimal)
5681        ("librsvg" ,librsvg)
5682        ("po4a" ,po4a)
5683        ("python" ,python-wrapper)))
5684     (inputs
5685      `(("boost" ,boost)
5686        ("glew" ,glew)
5687        ("libogg" ,libogg)
5688        ("libpng" ,libpng)
5689        ("libsndfile" ,libsndfile)
5690        ("libvorbis" ,libvorbis)
5691        ("openal" ,openal)
5692        ("physfs" ,physfs)
5693        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-ttf)))))
5694     (synopsis "Educational programming strategy game")
5695     (description "Colobot: Gold Edition is a real-time strategy game, where
5696 you can program your units (bots) in a language called CBOT, which is similar
5697 to C++ and Java.  Your mission is to find a new planet to live and survive.
5698 You can save humanity and get programming skills!")
5699     (home-page "https://colobot.info")
5700     (license license:gpl3+)))
5701
5702 (define-public gzdoom
5703   (package
5704     (name "gzdoom")
5705     (version "4.3.2")
5706     (source
5707      (origin
5708        (method git-fetch)
5709        (uri (git-reference
5710              (url "https://github.com/coelckers/gzdoom.git")
5711              (commit (string-append "g" version))))
5712        (file-name (git-file-name name version))
5713        (sha256
5714         (base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
5715        (patches (search-patches "gzdoom-search-in-installed-share.patch"
5716                                 "gzdoom-find-system-libgme.patch"))
5717        (modules '((guix build utils)))
5718        (snippet
5719         '(begin
5720            ;; Remove some bundled libraries.  XXX There are more, but removing
5721            ;; them would require, at least, patching the build system.
5722            (with-directory-excursion "libraries"
5723              (delete-file-recursively "bzip2")
5724              (delete-file-recursively "game-music-emu")
5725              (delete-file-recursively "jpeg")
5726              (delete-file-recursively "zlib"))
5727            #t))))
5728     (arguments
5729      '(#:tests? #f
5730        #:configure-flags
5731        (let ((out (assoc-ref %outputs "out")))
5732          (list
5733           (string-append
5734            "-DCMAKE_CXX_FLAGS:="
5735            "-DSHARE_DIR=\\\"" out "/share/\\\" "
5736            "-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
5737
5738           ;; The build requires some extra convincing not to use the bundled
5739           ;; libgme previously deleted in the soure snippet.
5740           "-DFORCE_INTERNAL_GME=OFF"
5741
5742           ;; Link libraries at build time instead of loading them at run time.
5743           "-DDYN_OPENAL=OFF"
5744           "-DDYN_FLUIDSYNTH=OFF"
5745           "-DDYN_GTK=OFF"
5746           "-DDYN_MPG123=OFF"
5747           "-DDYN_SNDFILE=OFF"))
5748        #:phases
5749        (modify-phases %standard-phases
5750          (add-before 'configure 'fix-referenced-paths
5751            (lambda* (#:key inputs outputs #:allow-other-keys)
5752              (let ((fluid-3 (assoc-ref inputs "fluid-3"))
5753                    (timidity++ (assoc-ref inputs "timidity++"))
5754                    (out (assoc-ref outputs "out")))
5755
5756                (substitute*
5757                    "src/CMakeLists.txt"
5758                  (("COMMAND /bin/sh")
5759                   (string-append "COMMAND " (which "sh"))))
5760
5761                (substitute*
5762                    "libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
5763                  (("/usr/share/sounds/sf2/FluidR3_GM.sf2")
5764                   (string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
5765
5766                (substitute*
5767                    "libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
5768                  (("exename = \"timidity\"")
5769                   (string-append "exename = \"" timidity++ "/bin/timidity\"")))
5770                #t))))))
5771     (build-system cmake-build-system)
5772     (inputs `(("bzip2" ,bzip2)
5773               ("fluid-3" ,fluid-3)
5774               ("fluidsynth" ,fluidsynth)
5775               ("gtk+3" ,gtk+)
5776               ("libgme" ,libgme)
5777               ("libjpeg" ,libjpeg-turbo)
5778               ("libsndfile" ,libsndfile)
5779               ("mesa" ,mesa)
5780               ("mpg123" ,mpg123)
5781               ("openal" ,openal)
5782               ("sdl2" ,sdl2)
5783               ("timidity++" ,timidity++)
5784               ("zlib" ,zlib)))
5785     (native-inputs `(("pkg-config" ,pkg-config)
5786                      ("unzip" ,unzip)))
5787     (synopsis "Modern Doom 2 source port")
5788     (description "GZdoom is a port of the Doom 2 game engine, with a modern
5789 renderer.  It improves modding support with ZDoom's advanced mapping features
5790 and the new ZScript language.  In addition to Doom, it supports Heretic, Hexen,
5791 Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
5792     (home-page "https://zdoom.org/index")
5793     ;; The source uses x86 assembly
5794     (supported-systems '("x86_64-linux" "i686-linux"))
5795     (license (list license:gpl3+         ; gzdoom game
5796                    license:lgpl3+        ; gzdoom renderer
5797                    license:expat         ; gdtoa
5798                    (license:non-copyleft ; modified dumb
5799                     "file://dumb/licence.txt"
5800                     "Dumb license, explicitly GPL compatible.")))))
5801
5802 (define-public odamex
5803   (package
5804     (name "odamex")
5805     (version "0.8.1")
5806     (source
5807      (origin
5808        (method url-fetch)
5809        (uri (string-append
5810              "mirror://sourceforge/odamex/Odamex/" version "/"
5811              "odamex-src-" version ".tar.gz"))
5812        (sha256
5813         (base32 "1ywbqkfacc9fc5di3dn95y5ah2ys9i241j64q3f37a73x92llw1i"))))
5814     (build-system cmake-build-system)
5815     (arguments `(#:tests? #f))          ; no tests
5816     (inputs
5817      `(("sdl" ,sdl)
5818        ("sdl-mixer" ,sdl-mixer)
5819        ("zlib" ,zlib)
5820        ("libpng" ,libpng)
5821        ("alsa-lib" ,alsa-lib)))
5822     (home-page "https://odamex.net/")
5823     (synopsis "Multiplayer Doom port")
5824     (description "Odamex is a modification of the Doom engine that
5825 allows players to easily join servers dedicated to playing Doom
5826 online.")
5827     (license license:gpl2+)))
5828
5829 (define-public chocolate-doom
5830   (package
5831     (name "chocolate-doom")
5832     (version "3.0.0")
5833     (source (origin
5834               (method url-fetch)
5835               (uri (string-append "https://www.chocolate-doom.org/downloads/"
5836                                   version
5837                                   "/chocolate-doom-"
5838                                   version
5839                                   ".tar.gz"))
5840               (sha256
5841                (base32
5842                 "1f6sw6qa9z0a70dsjh5cs45fkyyxw68s7vkqlykihz8cjcisdbkk"))))
5843     (build-system gnu-build-system)
5844     (inputs `(("sdl2-net" ,sdl2-net)
5845               ("sdl2-mixer" , sdl2-mixer)
5846               ("sdl2" ,sdl2)))
5847     (native-inputs
5848      `(("pkg-config" ,pkg-config)))
5849     (synopsis "Doom source port preserving the look, feel, and bugs of vanilla
5850 Doom")
5851     (description
5852      "Chocolate Doom takes a different approach to other source ports.  Its
5853 aim is to accurately reproduce the experience of playing Vanilla Doom.  It is
5854 a conservative, historically accurate Doom source port, which is compatible
5855 with the thousands of mods and levels that were made before the Doom source
5856 code was released.  Rather than flashy new graphics, Chocolate Doom's main
5857 features are its accurate reproduction of the game as it was played in the
5858 1990s.  The project is developed around a carefully-considered philosophy that
5859 intentionally restricts which features may be added (and rejects any that
5860 affect gameplay).")
5861     (home-page "https://www.chocolate-doom.org/wiki/index.php/Chocolate_Doom")
5862     (license license:gpl2)))
5863
5864 (define-public crispy-doom
5865   (package
5866     (inherit chocolate-doom)
5867     (name "crispy-doom")
5868     (version "5.6.4")
5869     (source (origin
5870               (method git-fetch)
5871               (uri (git-reference
5872                     (url "https://github.com/fabiangreffrath/crispy-doom.git")
5873                     (commit (string-append "crispy-doom-" version))))
5874               (file-name (git-file-name name version))
5875               (sha256
5876                (base32 "1ls4v2kpb7vi7xji5yqbmyc5lfkz497h1vvj9w86wkrw8k59hlg2"))))
5877     (native-inputs
5878      (append
5879       (package-native-inputs chocolate-doom)
5880       `(("automake" ,automake)
5881         ("autoreconf" ,autoconf))))
5882     (arguments
5883      `(#:phases
5884        (modify-phases %standard-phases
5885          (replace 'bootstrap
5886            ;; The bundled autogen.sh script unconditionally runs ./configure.
5887            (lambda _ (invoke "autoreconf" "-vif"))))))
5888     (synopsis "Limit-removing enhanced-resolution Doom source port based on
5889 Chocolate Doom")
5890     (description
5891      "Crispy Doom is a friendly fork of Chocolate Doom that provides a higher
5892 display resolution, removes the static limits of the Doom engine and offers
5893 further optional visual, tactical and physical enhancements while remaining
5894 entirely config file, savegame, netplay and demo compatible with the
5895 original.")
5896     (home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
5897
5898 (define shlomif-cmake-modules
5899   (origin
5900     (method url-fetch)
5901     (uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
5902                         "raw/c505713d7a7cda608f97f01577e5868a711b883e/"
5903                         "shlomif-cmake-modules/Shlomif_Common.cmake"))
5904     (sha256
5905      (base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
5906
5907 (define-public rinutils
5908   (package
5909     (name "rinutils")
5910     (version "0.2.0")
5911     (source (origin
5912               (method git-fetch)
5913               (uri (git-reference
5914                     (url "https://github.com/shlomif/rinutils.git")
5915                     (commit version)))
5916               (file-name (git-file-name name version))
5917               (sha256
5918                (base32
5919                 "1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
5920     (native-inputs
5921      `(("perl" ,perl)
5922        ;; The following is only needed for tests.
5923        ("perl-file-find-object" ,perl-file-find-object)
5924        ("perl-test-differences" ,perl-test-differences)
5925        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
5926        ("perl-io-all" ,perl-io-all)
5927        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
5928        ("cmake-rules" ,shlomif-cmake-modules)
5929        ("pkg-config" ,pkg-config)))
5930     (inputs
5931      `(("cmocka" ,cmocka)
5932        ("perl-env-path", perl-env-path)
5933        ("perl-inline" ,perl-inline)
5934        ("perl-inline-c" ,perl-inline-c)
5935        ("perl-string-shellquote" ,perl-string-shellquote)
5936        ("perl-test-trailingspace" ,perl-test-trailingspace)
5937        ("perl-file-find-object-rule" ,perl-file-find-object-rule)
5938        ("perl-text-glob" ,perl-text-glob)
5939        ("perl-number-compare" ,perl-number-compare)
5940        ("perl-moo" ,perl-moo)))
5941     (arguments
5942      `(#:phases
5943        (modify-phases %standard-phases
5944          (add-after 'unpack 'fix-build-env
5945            (lambda* (#:key inputs #:allow-other-keys)
5946              (use-modules (guix build utils))
5947              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
5948                (copy-file cmake-rules
5949                           (string-append "cmake/"
5950                                          (strip-store-file-name cmake-rules)))
5951                #t)))
5952          (replace 'check
5953            (lambda _
5954              (with-directory-excursion "../source"
5955                (setenv "FCS_TEST_BUILD" "1")
5956                (setenv "RINUTILS_TEST_BUILD" "1")
5957                ;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
5958                ;; which requires tidy-all.
5959                ;; (setenv "RINUTILS_TEST_TIDY" "1")
5960                (invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
5961     (build-system cmake-build-system)
5962     (home-page "https://www.shlomifish.org/open-source/projects/")
5963     (synopsis "C11 / gnu11 utilities C library")
5964     (description "This package provides C11 / gnu11 utilities C library")
5965     (license license:expat)))
5966
5967 (define-public fortune-mod
5968   (package
5969     (name "fortune-mod")
5970     (version "2.12.0")
5971     (source
5972      (origin
5973        (method git-fetch)
5974        (uri (git-reference
5975              (url "https://github.com/shlomif/fortune-mod")
5976              (commit (string-append "fortune-mod-" version))))
5977        (file-name (git-file-name name version))
5978        (sha256
5979         (base32
5980          "0laxgqsdg7kvpvvm1f54b94ga9r0cr9g3ffii8avg8fy65x6pzc9"))))
5981     (build-system cmake-build-system)
5982     (arguments
5983      `(#:test-target "check"
5984        #:phases
5985        (modify-phases %standard-phases
5986          (add-after 'unpack 'fix-build-env
5987            (lambda* (#:key inputs #:allow-other-keys)
5988              (use-modules (guix build utils))
5989              (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
5990                (copy-file cmake-rules
5991                           (string-append "fortune-mod/cmake/"
5992                                          (strip-store-file-name cmake-rules)))
5993                (chdir "fortune-mod")
5994                ;; TODO: Valgrind tests fail for some reason.
5995                ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
5996                (delete-file "tests/t/valgrind.t")
5997                #t)))
5998          (add-after 'install 'fix-install-directory
5999            (lambda* (#:key outputs #:allow-other-keys)
6000              ;; Move binary from "games/" to "bin/" and remove the latter.  This
6001              ;; is easier than patching CMakeLists.txt since the tests hard-code
6002              ;; the location as well.
6003              (let* ((out   (assoc-ref outputs "out"))
6004                     (bin   (string-append out "/bin"))
6005                     (games (string-append out "/games")))
6006                (rename-file (string-append games "/fortune")
6007                             (string-append bin "/fortune"))
6008                (rmdir games)
6009                #t))))))
6010     (inputs `(("recode" ,recode)))
6011     (native-inputs
6012      `(("perl" ,perl)
6013        ;; The following is only needed for tests.
6014        ("perl-file-find-object" ,perl-file-find-object)
6015        ("perl-test-differences" ,perl-test-differences)
6016        ("perl-class-xsaccessor" ,perl-class-xsaccessor)
6017        ("perl-io-all" ,perl-io-all)
6018        ("perl-test-runvalgrind" ,perl-test-runvalgrind)
6019        ("cmake-rules" ,shlomif-cmake-modules)
6020        ("rinutils" ,rinutils)))
6021     (home-page "http://www.shlomifish.org/open-source/projects/fortune-mod/")
6022     (synopsis "The Fortune Cookie program from BSD games")
6023     (description "Fortune is a command-line utility which displays a random
6024 quotation from a collection of quotes.")
6025     (license license:bsd-4)))
6026
6027 (define xonotic-data
6028   (package
6029     (name "xonotic-data")
6030     (version "0.8.2")
6031     (source
6032      (origin
6033        (method url-fetch)
6034        (uri (string-append "http://dl.xonotic.org/xonotic-"
6035                            version ".zip"))
6036        (file-name (string-append name "-" version ".zip"))
6037        (sha256
6038         (base32
6039          "1mcs6l4clvn7ibfq3q69k2p0z6ww75rxvnngamdq5ic6yhq74bx2"))))
6040     (build-system trivial-build-system)
6041     (native-inputs
6042      `(("unzip" ,unzip)))
6043     (arguments
6044      `(#:modules ((guix build utils))
6045        #:builder
6046        (begin
6047          (use-modules (guix build utils))
6048          (let* ((out (assoc-ref %outputs "out"))
6049                 (xonotic (string-append out "/share/xonotic"))
6050                 (source (assoc-ref %build-inputs "source"))
6051                 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
6052            (copy-file source (string-append ,name "-" ,version ".zip"))
6053            (invoke unzip (string-append ,name "-" ,version ".zip"))
6054            (mkdir-p out)
6055            (mkdir-p xonotic)
6056            (chdir "Xonotic")
6057            (copy-recursively "data"
6058                              (string-append xonotic "/data"))
6059            (copy-recursively "server"
6060                              (string-append xonotic "/server"))
6061            (install-file "key_0.d0pk" xonotic)))))
6062     (home-page "http://xonotic.org")
6063     (synopsis "Data files for Xonotic")
6064     (description
6065      "Xonotic-data provides the data files required by the game Xonotic.")
6066     (license (list license:gpl2+
6067                    (license:x11-style "file://server/rcon.pl")))))
6068
6069 (define-public xonotic
6070   (package
6071     (name "xonotic")
6072     (version "0.8.2")
6073     (source
6074      (origin
6075        (method url-fetch)
6076        (uri (string-append "http://dl.xonotic.org/xonotic-"
6077                            version "-source.zip"))
6078        (file-name (string-append name "-" version ".zip"))
6079        (sha256
6080         (base32
6081          "0axxw04fyz6jlfqd0kp7hdrqa0li31sx1pbipf2j5qp9wvqicsay"))))
6082     (build-system gnu-build-system)
6083     (arguments
6084      `(#:configure-flags (list (string-append "--prefix="
6085                                               (assoc-ref %outputs "out"))
6086                                "--disable-rijndael")
6087        #:phases
6088        (modify-phases %standard-phases
6089          (add-before 'configure 'make-darkplaces
6090            (lambda* (#:key outputs #:allow-other-keys)
6091              (let* ((out (assoc-ref outputs "out"))
6092                     (sharedir (string-append out "/share/xonotic/")))
6093                (invoke "make" "-C" "source/darkplaces"
6094                        (string-append "DP_FS_BASEDIR="
6095                                       sharedir)
6096                        "DP_LINK_TO_LIBJPEG=1"
6097                        "DP_SOUND_API=ALSA"
6098                        "CC=gcc"
6099                        "-f" "makefile"
6100                        "cl-release")
6101                (invoke "make" "-C" "source/darkplaces"
6102                        (string-append "DP_FS_BASEDIR="
6103                                       sharedir)
6104                        "DP_LINK_TO_LIBJPEG=1"
6105                        "DP_SOUND_API=ALSA"
6106                        "CC=gcc"
6107                        "-f" "makefile"
6108                        "sdl-release")
6109                (invoke "make" "-C" "source/darkplaces"
6110                        (string-append "DP_FS_BASEDIR="
6111                                       sharedir)
6112                        "DP_LINK_TO_LIBJPEG=1"
6113                        "DP_SOUND_API=ALSA"
6114                        "CC=gcc"
6115                        "-f" "makefile"
6116                        "sv-release"))))
6117          (add-before 'configure 'bootstrap
6118            (lambda _
6119              (chdir "source/d0_blind_id")
6120              (invoke "sh" "autogen.sh")))
6121          (add-after 'build 'install-desktop-entry
6122            (lambda* (#:key outputs #:allow-other-keys)
6123              ;; Add .desktop files for the 2 variants and the symlink
6124              (let* ((output (assoc-ref outputs "out"))
6125                     (apps (string-append output "/share/applications")))
6126                (mkdir-p apps)
6127                (with-output-to-file
6128                    (string-append apps "/xonotic-glx.desktop")
6129                  (lambda _
6130                    (format #t
6131                            "[Desktop Entry]~@
6132                      Name=xonotic-glx~@
6133                      Comment=Xonotic glx~@
6134                      Exec=~a/bin/xonotic-glx~@
6135                      TryExec=~@*~a/bin/xonotic-glx~@
6136                      Icon=xonotic~@
6137                      Categories=Game~@
6138                      Type=Application~%"
6139                            output)))
6140                (with-output-to-file
6141                    (string-append apps "/xonotic-sdl.desktop")
6142                  (lambda _
6143                    (format #t
6144                            "[Desktop Entry]~@
6145                      Name=xonotic-sdl~@
6146                      Comment=Xonotic sdl~@
6147                      Exec=~a/bin/xonotic-sdl~@
6148                      TryExec=~@*~a/bin/xonotic-sdl~@
6149                      Icon=xonotic~@
6150                      Categories=Game~@
6151                      Type=Application~%"
6152                            output)))
6153                (with-output-to-file
6154                    (string-append apps "/xonotic.desktop")
6155                  (lambda _
6156                    (format #t
6157                            "[Desktop Entry]~@
6158                      Name=xonotic~@
6159                      Comment=Xonotic~@
6160                      Exec=~a/bin/xonotic-glx~@
6161                      TryExec=~@*~a/bin/xonotic~@
6162                      Icon=xonotic~@
6163                      Categories=Game~@
6164                      Type=Application~%"
6165                            output)))
6166                #t)))
6167          (add-after 'install-desktop-entry 'install-icons
6168            (lambda* (#:key outputs #:allow-other-keys)
6169              (let ((out (assoc-ref outputs "out")))
6170                (with-directory-excursion "../../misc/logos/icons_png/"
6171                  (for-each
6172                   (lambda (file)
6173                     (let* ((size (string-filter char-numeric? file))
6174                            (icons (string-append out "/share/icons/hicolor/"
6175                                                  size "x" size "/apps")))
6176                       (mkdir-p icons)
6177                       (copy-file file (string-append icons "/xonotic.png"))))
6178                   '("xonotic_16.png" "xonotic_22.png" "xonotic_24.png"
6179                     "xonotic_32.png" "xonotic_48.png" "xonotic_64.png"
6180                     "xonotic_128.png" "xonotic_256.png" "xonotic_512.png"))))))
6181          (add-after 'install-icons 'install-binaries
6182            (lambda* (#:key outputs #:allow-other-keys)
6183              (let ((out (assoc-ref outputs "out")))
6184                (define (install src dst)
6185                  (let ((dst (string-append out dst)))
6186                    (mkdir-p (dirname dst))
6187                    (copy-file src dst)))
6188                (mkdir-p (string-append out "/bin"))
6189                (install "../darkplaces/darkplaces-dedicated"
6190                         "/bin/xonotic-dedicated")
6191                (install "../darkplaces/darkplaces-glx"
6192                         "/bin/xonotic-glx")
6193                (install "../darkplaces/darkplaces-sdl"
6194                         "/bin/xonotic-sdl")
6195                ;; Provide a default xonotic executable, defaulting to SDL.
6196                (symlink (string-append out "/bin/xonotic-sdl")
6197                         (string-append out "/bin/xonotic"))
6198                #t)))
6199          (add-after 'install-binaries 'install-data
6200            (lambda* (#:key outputs inputs #:allow-other-keys)
6201              (let* ((out (assoc-ref outputs "out"))
6202                     (data (assoc-ref inputs "xonotic-data")))
6203                (symlink (string-append data "/share/xonotic")
6204                         (string-append out "/share/xonotic"))
6205                #t)))
6206          (add-after 'install-binaries 'wrap-binaries
6207            (lambda* (#:key outputs inputs #:allow-other-keys)
6208              ;; Curl and libvorbis need to be wrapped so that we get
6209              ;; sound and networking.
6210              (let* ((out (assoc-ref outputs "out"))
6211                     (bin (string-append out "/bin/xonotic"))
6212                     (bin-sdl (string-append out "/bin/xonotic-sdl"))
6213                     (bin-glx (string-append out "/bin/xonotic-glx"))
6214                     (bin-dedicated (string-append out "/bin/xonotic-dedicated"))
6215                     (curl (assoc-ref inputs "curl"))
6216                     (vorbis (assoc-ref inputs "libvorbis")))
6217                (wrap-program bin
6218                  `("LD_LIBRARY_PATH" ":" prefix
6219                    (,(string-append curl "/lib:" vorbis "/lib"))))
6220                (wrap-program bin-sdl
6221                  `("LD_LIBRARY_PATH" ":" prefix
6222                    (,(string-append curl "/lib:" vorbis "/lib"))))
6223                (wrap-program bin-glx
6224                  `("LD_LIBRARY_PATH" ":" prefix
6225                    (,(string-append curl "/lib:" vorbis "/lib"))))
6226                (wrap-program bin-dedicated
6227                  `("LD_LIBRARY_PATH" ":" prefix
6228                    (,(string-append curl "/lib:" vorbis "/lib"))))
6229                #t))))))
6230     (inputs
6231      `(("xonotic-data" ,xonotic-data)
6232        ("alsa-lib" ,alsa-lib)
6233        ("curl" ,curl)
6234        ("libjpeg" ,libjpeg-turbo)
6235        ("libmodplug" ,libmodplug)
6236        ("libvorbis" ,libvorbis)
6237        ("libogg" ,libogg)
6238        ("libxpm" ,libxpm)
6239        ("libxxf86dga" ,libxxf86dga)
6240        ("libxxf86vm" ,libxxf86vm)
6241        ("libx11" ,libx11)
6242        ("libxext" ,libxext)
6243        ("libxau" ,libxau)
6244        ("libxdmcp" ,libxdmcp)
6245        ("mesa" ,mesa)
6246        ("glu" ,glu)
6247        ("freetype" ,freetype)
6248        ("sdl2" ,sdl2)
6249        ("libpng" ,libpng)
6250        ("hicolor-icon-theme" ,hicolor-icon-theme)))
6251     (native-inputs
6252      `(("unzip" ,unzip)
6253        ("autoconf" ,autoconf)
6254        ("automake" ,automake)
6255        ("pkg-config" ,pkg-config)
6256        ("libtool" ,libtool)
6257        ("gmp" ,gmp)))
6258     (home-page "http://xonotic.org")
6259     (synopsis "Fast-paced first-person shooter game")
6260     (description
6261      "Xonotic is a free, fast-paced first-person shooter.
6262 The project is geared towards providing addictive arena shooter
6263 gameplay which is all spawned and driven by the community itself.
6264 Xonotic is a direct successor of the Nexuiz project with years of
6265 development between them, and it aims to become the best possible
6266 open-source FPS of its kind.")
6267     (license (list license:gpl2+
6268                    license:bsd-3 ; /source/d0_blind_id folder and others
6269                    (license:x11-style "" "See file rcon.pl.")))))
6270
6271 (define-public frotz
6272   (package
6273     (name "frotz")
6274     (version "2.44")
6275     (source (origin
6276               (method url-fetch)
6277               (uri (list (string-append
6278                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6279                           "frotz/frotz-" version ".tar.gz")
6280                          (string-append
6281                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6282                           "frotz/frotz-" version ".tar.gz")))
6283               (sha256
6284                (base32
6285                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6286     (build-system gnu-build-system)
6287     (arguments
6288      `(#:tests? #f                      ; there are no tests
6289        #:phases
6290        (modify-phases %standard-phases
6291          (delete 'configure)
6292          (add-before 'build 'curses
6293            (lambda _
6294              (substitute* "Makefile"
6295                (("lcurses") "lncurses"))
6296              #t))
6297          (replace 'install
6298            (lambda* (#:key outputs #:allow-other-keys)
6299              (let* ((out (assoc-ref outputs "out"))
6300                     (bin (string-append out "/bin"))
6301                     (man (string-append out "/share/man/man6")))
6302                (install-file "frotz" bin)
6303                (mkdir-p man)
6304                (install-file "doc/frotz.6" man)
6305                #t))))))
6306     (inputs `(("libmodplug" ,libmodplug)
6307               ("libsamplerate" ,libsamplerate)
6308               ("libsndfile" ,libsndfile)
6309               ("libvorbis" ,libvorbis)
6310               ("ncurses" ,ncurses)))
6311     (synopsis "Portable Z-machine interpreter (ncurses version) for text adventure games")
6312     (description "Frotz is an interpreter for Infocom games and other Z-machine
6313 games in the text adventure/interactive fiction genre.  This version of Frotz
6314 complies with standard 1.0 of Graham Nelson's specification.  It plays all
6315 Z-code games V1-V8, including V6, with sound support through libao, and uses
6316 ncurses for text display.")
6317     (home-page "http://frotz.sourceforge.net")
6318     (license license:gpl2+)))
6319
6320 (define-public frotz-dumb-terminal
6321   (package
6322     (name "frotz-dumb-terminal")
6323     (version "2.44")
6324     (source (origin
6325               (method url-fetch)
6326               (uri (list (string-append
6327                           "http://www.ifarchive.org/if-archive/infocom/interpreters/"
6328                           "frotz/frotz-" version ".tar.gz")
6329                          (string-append
6330                           "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
6331                           "frotz/frotz-" version ".tar.gz")))
6332               (sha256
6333                (base32
6334                 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
6335     (build-system gnu-build-system)
6336     (arguments
6337      `(#:tests? #f                      ; there are no tests
6338        #:phases
6339        (modify-phases %standard-phases
6340          (delete 'configure)
6341          (replace 'build
6342            (lambda _
6343              (invoke "make" "dumb")))
6344          (replace 'install
6345            (lambda* (#:key outputs #:allow-other-keys)
6346              (let* ((out (assoc-ref outputs "out"))
6347                     (bin (string-append out "/bin"))
6348                     (man (string-append out "/share/man/man6")))
6349                (install-file "dfrotz" bin)
6350                (mkdir-p man)
6351                (install-file "doc/dfrotz.6" man)
6352                #t))))))
6353     (synopsis "Portable Z-machine dumb interpreter for text adventure games")
6354     (description "Frotz is an interpreter for Infocom games and
6355 other Z-machine games in the text adventure/interactive fiction genre.
6356 dfrotz is the dumb interface version.  You get no screen control; everything
6357 is just printed to the terminal line by line.  The terminal handles all the
6358 scrolling.  Maybe you'd like to experience what it's like to play Adventure on
6359 a teletype.  A much cooler use for compiling Frotz with the dumb interface is
6360 that it can be wrapped in CGI scripting, PHP, and the like to allow people
6361 to play games on webpages.  It can also be made into a chat bot.")
6362     (home-page "http://frotz.sourceforge.net")
6363     (license license:gpl2+)))
6364
6365 (define-public frotz-sdl
6366   (let* ((commit "4de8c34f2116fff554af6216c30ec9d41bf50b24"))
6367     (package
6368       (name "frotz-sdl")
6369       (version "2.45pre")
6370       (source (origin
6371                 (method git-fetch)
6372                 (uri (git-reference
6373                       (url "https://gitlab.com/DavidGriffith/frotz")
6374                       (commit commit)))
6375                 (sha256
6376                  (base32
6377                   "18ms21pcrl7ipcnyqnf8janamkryzx78frsgd9kfk67jvbj0z2k8"))
6378                 (file-name (git-file-name name version))))
6379       (build-system gnu-build-system)
6380       (arguments
6381        `(#:tests? #f                    ; there are no tests
6382          #:phases
6383          (modify-phases %standard-phases
6384            (delete 'configure)
6385            (add-before 'build 'patch-makefile
6386              (lambda _
6387                (substitute* "Makefile"
6388                  (("lcurses") "lncurses")
6389                  (("^BUILD_DATE_TIME =.*$")
6390                   "BUILD_DATE_TIME = \"2.45pre-20180907.00000\"\n"))
6391                #t))
6392            (replace 'build
6393              (lambda _
6394                (invoke "make" "sdl")))
6395            (replace 'install
6396              (lambda* (#:key outputs #:allow-other-keys)
6397                (let* ((out (assoc-ref outputs "out"))
6398                       (bin (string-append out "/bin"))
6399                       (man (string-append out "/share/man/man6")))
6400                  (install-file "sfrotz" bin)
6401                  (mkdir-p man)
6402                  (install-file "doc/sfrotz.6" man)
6403                  #t))))))
6404       (native-inputs
6405        `(("pkg-config" ,pkg-config)
6406          ("which" ,which)
6407          ("perl" ,perl)))
6408       (inputs `(("sdl2" ,sdl2)
6409                 ("sdl2-mixer" ,sdl2-mixer)
6410                 ("libmodplug" ,libmodplug)
6411                 ("libsamplerate" ,libsamplerate)
6412                 ("libsndfile" ,libsndfile)
6413                 ("libvorbis" ,libvorbis)
6414                 ("ncurses" ,ncurses)
6415                 ("freetype" ,freetype)
6416                 ("libjpeg-turbo" ,libjpeg-turbo)))
6417       (synopsis "Portable Z-machine interpreter (SDL port) for text adventure games")
6418       (description "Frotz is an interpreter for Infocom games and other Z-machine
6419 games in the text adventure/interactive fiction genre.  This version of Frotz
6420 using SDL fully supports all these versions of the Z-Machine including the
6421 graphical version 6.  Graphics and sound are created through the use of the SDL
6422 libraries.  AIFF sound effects and music in MOD and OGG formats are supported
6423 when packaged in Blorb container files or optionally from individual files.")
6424       (home-page "http://frotz.sourceforge.net")
6425       (license license:gpl2+))))
6426
6427 (define-public libmanette
6428   (package
6429     (name "libmanette")
6430     (version "0.2.3")
6431     (source (origin
6432               (method url-fetch)
6433               (uri (string-append "mirror://gnome/sources/libmanette/"
6434                                   (version-major+minor version) "/"
6435                                   "libmanette-" version ".tar.xz"))
6436               (sha256
6437                (base32
6438                 "1zxh7jn2zg7hivmal5zxam6fxvjsd1w6hlw0m2kysk76b8anbw60"))))
6439     (build-system meson-build-system)
6440     (native-inputs
6441      `(("glib" ,glib "bin")             ; for glib-compile-resources
6442        ("gobject-introspection" ,gobject-introspection)
6443        ("pkg-config" ,pkg-config)
6444        ("vala" ,vala)))
6445     (inputs
6446      `(("libevdev" ,libevdev)
6447        ("libgudev" ,libgudev)))
6448     (home-page "https://wiki.gnome.org/Apps/Games")
6449     (synopsis "Game controller library")
6450     (description "Libmanette is a small GObject library giving you simple
6451 access to game controllers.  It supports the de-facto standard gamepads as
6452 defined by the W3C standard Gamepad specification or as implemented by the SDL
6453 GameController.")
6454     (license license:lgpl2.1+)))
6455
6456 (define-public quadrapassel
6457   (package
6458     (name "quadrapassel")
6459     (version "3.32.0")
6460     (source (origin
6461               (method url-fetch)
6462               (uri (string-append "mirror://gnome/sources/quadrapassel/"
6463                                   (version-major+minor version) "/"
6464                                   "quadrapassel-" version ".tar.xz"))
6465               (sha256
6466                (base32
6467                 "1zhi1957knz9dm98drn2dh95mr33sdch590yddh1f8r6bzsfjvpy"))))
6468     (build-system meson-build-system)
6469     (arguments
6470      '(#:glib-or-gtk? #t
6471        #:phases
6472        (modify-phases %standard-phases
6473          (add-after 'unpack 'skip-gtk-update-icon-cache
6474            ;; Don't create 'icon-theme.cache'.
6475            (lambda _
6476              (substitute* "build-aux/meson_post_install.py"
6477                (("gtk-update-icon-cache") (which "true")))
6478              #t)))))
6479     (native-inputs
6480      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
6481        ("gettext" ,gnu-gettext)
6482        ("glib" ,glib "bin")             ;for glib-compile-resources
6483        ("itstool" ,itstool)
6484        ("libxml2" ,libxml2)             ;for xmllint
6485        ("pkg-config" ,pkg-config)
6486        ("vala" ,vala)))
6487     (inputs
6488      `(("clutter" ,clutter)
6489        ("clutter-gtk" ,clutter-gtk)
6490        ("gtk+" ,gtk+)
6491        ("libcanberra" ,libcanberra)
6492        ("libmanette" ,libmanette)
6493        ("librsvg" ,librsvg)))
6494     (home-page "https://wiki.gnome.org/Apps/Quadrapassel")
6495     (synopsis "GNOME version of Tetris")
6496     (description "Quadrapassel comes from the classic falling-block game,
6497 Tetris.  The goal of the game is to create complete horizontal lines of
6498 blocks, which will disappear.  The blocks come in seven different shapes made
6499 from four blocks each: one straight, two L-shaped, one square, and two
6500 S-shaped.  The blocks fall from the top center of the screen in a random
6501 order.  You rotate the blocks and move them across the screen to drop them in
6502 complete lines.  You score by dropping blocks fast and completing lines.  As
6503 your score gets higher, you level up and the blocks fall faster.")
6504     (license license:gpl2+)))
6505
6506 (define-public endless-sky
6507   (package
6508     (name "endless-sky")
6509     (version "0.9.10")
6510     (source
6511       (origin
6512         (method git-fetch)
6513         (uri (git-reference
6514                (url "https://github.com/endless-sky/endless-sky")
6515                (commit (string-append "v" version))))
6516         (file-name (git-file-name name version))
6517         (sha256
6518          (base32
6519           "1wax9qhxakydg6bs92d1jy2fki1n9r0wkps1np02y0pvm1fl189i"))))
6520     (build-system scons-build-system)
6521     (arguments
6522      `(#:scons ,scons-python2
6523        #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6524        #:tests? #f ; no tests
6525        #:phases
6526        (modify-phases %standard-phases
6527          (add-after 'unpack 'patch-resource-locations
6528            (lambda* (#:key outputs #:allow-other-keys)
6529              (substitute* "source/Files.cpp"
6530                (("/usr/local/")
6531                 (string-append (assoc-ref outputs "out") "/")))
6532              #t))
6533          (add-after 'unpack 'patch-scons
6534            (lambda _
6535              (substitute* "SConstruct"
6536                ;; Keep environmental variables
6537                (("Environment\\(\\)")
6538                 "Environment(ENV = os.environ)")
6539                ;; Install into %out/bin
6540                (("games\"") "bin\""))
6541              #t)))))
6542     (inputs
6543      `(("glew" ,glew)
6544        ("libjpeg" ,libjpeg-turbo)
6545        ("libmad" ,libmad)
6546        ("libpng" ,libpng)
6547        ("openal" ,openal)
6548        ("sdl2" ,sdl2)))
6549     (home-page "https://endless-sky.github.io/")
6550     (synopsis "2D space trading and combat game")
6551     (description "Endless Sky is a 2D space trading and combat game.  Explore
6552 other star systems.  Earn money by trading, carrying passengers, or completing
6553 missions.  Use your earnings to buy a better ship or to upgrade the weapons and
6554 engines on your current one.  Blow up pirates.  Take sides in a civil war.  Or
6555 leave human space behind and hope to find friendly aliens whose culture is more
6556 civilized than your own.")
6557     (license (list license:gpl3+
6558                    license:cc-by-sa3.0
6559                    license:cc-by-sa4.0
6560                    license:public-domain))))
6561
6562 (define-public stepmania
6563   (package
6564     (name "stepmania")
6565     (version "5.1.0-b2")
6566     (source
6567      (origin
6568        (method git-fetch)
6569        (uri (git-reference
6570              (url "https://github.com/stepmania/stepmania.git")
6571              (commit (string-append "v" version))))
6572        (file-name (git-file-name name version))
6573        (sha256
6574         (base32
6575          "0a7y9l7xm510vgnpmj1is7p9m6d6yd0fcaxrjcickz295k5w3rdn"))
6576        (modules '((guix build utils)))
6577        (snippet
6578         '(begin
6579            ;; Remove song files, which are licensed under a non-commercial
6580            ;; clause, and a course pointing to them.
6581            (for-each delete-file-recursively
6582                      '("Songs/StepMania 5/Goin' Under"
6583                        "Songs/StepMania 5/MechaTribe Assault"
6584                        "Songs/StepMania 5/Springtime"))
6585            (for-each delete-file '("Courses/Default/Jupiter.crs"
6586                                    "Courses/Default/Jupiter.png"))
6587            ;; Unbundle libpng.
6588            (substitute* "extern/CMakeLists.txt"
6589              (("include\\(CMakeProject-png.cmake\\)") ""))
6590            (delete-file-recursively "extern/libpng")
6591            #t))))
6592     (build-system cmake-build-system)
6593     (arguments
6594      `(#:tests? #f                      ;FIXME: couldn't find how to run tests
6595        #:build-type "Release"
6596        #:out-of-source? #f              ;for the 'install-desktop' phase
6597        #:configure-flags
6598        (list "-DWITH_SYSTEM_FFMPEG=1"
6599              ;; SSE instructions are available on Intel systems only.
6600              ,@(if (any (cute string-prefix? <> (or (%current-target-system)
6601                                                     (%current-system)))
6602                         '("x64_64" "i686"))
6603                    '()
6604                    '("-DWITH_SSE2=NO"))
6605              ;; Configuration cannot find GTK2 without the two following
6606              ;; flags.
6607              (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
6608                             (assoc-ref %build-inputs "gtk+")
6609                             "/lib/gtk-2.0/include")
6610              (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
6611                             (assoc-ref %build-inputs "glib")
6612                             "/lib/glib-2.0/include"))
6613        #:phases
6614        (modify-phases %standard-phases
6615          (add-after 'unpack 'ensure-application-files-can-be-found
6616            (lambda* (#:key outputs #:allow-other-keys)
6617              (let ((out (assoc-ref outputs "out")))
6618                (substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
6619                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
6620                   (string-append "\"" out
6621                                  "/share/stepmania/GtkModule.so\"")))
6622                (substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
6623                  (("Root = sDirOfExecutable")
6624                   (string-append "Root = \"" out "/share/stepmania/\""))
6625                  (("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
6626                   (string-append "\"" out "/share/stepmania/" dir "\"")))
6627                (substitute* "src/RageFileManager.cpp"
6628                  (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
6629                   (string-append "\"" out "/share/stepmania/\""))))
6630              #t))
6631          (add-after 'unpack 'fix-install-subdir
6632            ;; Installation would be done in "%out/stepmania-X.Y", but we
6633            ;; prefer the more common layout "%out/share/stepmania".
6634            (lambda _
6635              (substitute* "src/CMakeLists.txt"
6636                (("\"stepmania-.*?\"") "\"share/stepmania\""))
6637              #t))
6638          (add-after 'unpack 'unbundle-libpng
6639            (lambda* (#:key inputs #:allow-other-keys)
6640              (substitute* "src/CMakeLists.txt"
6641                (("\\$\\{SM_EXTERN_DIR\\}/libpng/include")
6642                 (string-append (assoc-ref inputs "libpng") "/include")))
6643              #t))
6644          (add-after 'install 'install-executable
6645            (lambda* (#:key outputs #:allow-other-keys)
6646              (let* ((out (assoc-ref outputs "out"))
6647                     (bin (string-append out "/bin"))
6648                     (exe (string-append out "/share/stepmania/stepmania")))
6649                (mkdir-p bin)
6650                (symlink exe (string-append bin "/stepmania"))
6651                #t)))
6652          (add-after 'install-executable 'install-desktop
6653            (lambda* (#:key outputs #:allow-other-keys)
6654              (let* ((out (assoc-ref outputs "out"))
6655                     (share (string-append out "/share"))
6656                     (applications (string-append share "/applications"))
6657                     (icons (string-append share "/icons")))
6658                (install-file "stepmania.desktop" applications)
6659                (mkdir-p icons)
6660                (copy-recursively "icons" icons)
6661                #t)))
6662          ;; Move documentation in a more usual place, i.e.,
6663          ;; "%out/share/doc/stepmania/".
6664          (add-after 'install-desktop 'install-doc
6665            (lambda* (#:key outputs #:allow-other-keys)
6666              (let* ((out (assoc-ref outputs "out"))
6667                     (share (string-append out "/share")))
6668                (with-directory-excursion share
6669                  (mkdir-p "doc")
6670                  (symlink "../stepmania/Docs" "doc/stepmania"))
6671                #t))))))
6672     (native-inputs
6673      `(("pkg-config" ,pkg-config)
6674        ("yasm" ,yasm)))
6675     (inputs
6676      `(("alsa-lib" ,alsa-lib)
6677        ;; Per upstream, StepMania is only guaranteed to work with a very
6678        ;; specific FFmpeg version, which is included in the repository as
6679        ;; a Git submodule.  This particular version requirement usually
6680        ;; changes every few years.
6681        ("ffmpeg" ,ffmpeg-for-stepmania)
6682        ("glib" ,glib)
6683        ("glew" ,glew)
6684        ("gtk+" ,gtk+-2)
6685        ("jsoncpp" ,jsoncpp)
6686        ("libpng" ,libpng)
6687        ("libjpeg" ,libjpeg-turbo)
6688        ("libmad" ,libmad)
6689        ("libogg" ,libogg)
6690        ("libva" ,libva)
6691        ("libvorbis" ,libvorbis)
6692        ("libxinerama" ,libxinerama)
6693        ("libxrandr" ,libxrandr)
6694        ("mesa" ,mesa)
6695        ("pcre" ,pcre)
6696        ("pulseaudio" ,pulseaudio)
6697        ("sdl" ,sdl2)
6698        ("udev" ,eudev)
6699        ("zlib" ,zlib)))
6700     (synopsis "Advanced rhythm game designed for both home and arcade use")
6701     (description "StepMania is a dance and rhythm game.  It features 3D
6702 graphics, keyboard and dance pad support, and an editor for creating your own
6703 steps.
6704
6705 This package provides the core application, but no song is shipped.  You need
6706 to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
6707     (home-page "https://www.stepmania.com")
6708     (license license:expat)))
6709
6710 (define-public btanks
6711   (package
6712     (name "btanks")
6713     (version "0.9.8083")
6714     (source
6715      (origin
6716        (method url-fetch)
6717        (uri (string-append "mirror://sourceforge/btanks/btanks-source/"
6718                            "btanks-" version ".tar.bz2"))
6719        (sha256
6720         (base32
6721          "0ha35kxc8xlbg74wsrbapfgxvcrwy6psjkqi7c6adxs55dmcxliz"))))
6722     (build-system scons-build-system)
6723     (arguments
6724      `(#:tests? #f                      ; there are none
6725        #:scons ,scons-python2
6726        #:scons-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
6727        #:phases
6728        (modify-phases %standard-phases
6729          (add-after 'unpack 'replace-removed-scons-syntax
6730            (lambda _
6731              (substitute* "SConstruct"
6732                (("Options") "Variables")
6733                (("opts.Add\\(BoolOption.*") "opts.Add('gcc_visibility', 'gcc visibility', 'true')")
6734                (("opts.Add\\(EnumOption.*") "opts.Add('mode', 'build mode', 'release')"))
6735              #t))
6736          (add-after 'set-paths 'set-sdl-paths
6737            (lambda* (#:key inputs #:allow-other-keys)
6738              (setenv "CPATH"
6739                      (string-append (assoc-ref inputs "sdl")
6740                                     "/include/SDL:"
6741                                     (or (getenv "CPATH") "")))
6742              #t))
6743          (add-after 'unpack 'fix-compilation-errors
6744            (lambda _
6745              (substitute* "mrt/base_file.h"
6746                (("#include <string>" m)
6747                 (string-append m "\n#include <sys/types.h>")))
6748              (substitute* '("engine/sl08/sl08.h"
6749                             "engine/sl08/sl08.py")
6750                (("signal = NULL") "signal = 0")
6751                (("object\\(NULL\\)") "object(0)")
6752                (("func\\(NULL\\)") "func(0)")
6753                ((" connect\\(signal_ref\\)")
6754                 " this->connect(signal_ref)"))
6755              (substitute* "math/range_list.h"
6756                ((" lower_bound\\(value\\)")
6757                 " this->lower_bound(value)")
6758                (("      erase\\(i\\)")
6759                 "       this->erase(i)"))
6760              (substitute* "clunk/source.cpp"
6761                (("using namespace clunk" m)
6762                 (string-append "# define pow10f(x) exp10f(x)\n" m)))
6763              #t))
6764          (add-after 'unpack 'find-lua
6765            (lambda _
6766              (substitute* "engine/SConscript"
6767                (("lua5.1") "lua-5.1")
6768                (("bt_libs.append\\(lua\\)")
6769                 "bt_libs.append(\"lua\")"))
6770              #t)))))
6771     (inputs
6772      `(("expat" ,expat)
6773        ("glu" ,glu)
6774        ("libsmpeg" ,libsmpeg-with-sdl1)
6775        ("libvorbis" ,libvorbis)
6776        ("lua51" ,lua-5.1)
6777        ("sdl" ,(sdl-union (list sdl
6778                                 sdl-mixer
6779                                 sdl-image
6780                                 sdl-ttf)))
6781        ("zlib" ,zlib)))
6782     (native-inputs
6783      `(("pkg-config" ,pkg-config)
6784        ("zip" ,zip)))
6785     (home-page "http://btanks.sourceforge.net")
6786     (synopsis "Multiplayer tank battle game")
6787     (description "Battle Tanks (also known as \"btanks\") is a funny battle
6788 game, where you can choose one of three vehicles and eliminate your enemy
6789 using the whole arsenal of weapons.  It has original cartoon-like graphics and
6790 cool music, it’s fun and dynamic, it has several network modes for deathmatch
6791 and cooperative.")
6792     ;; Some parts (e.g. mrt/b64.cpp) are LGPLv2.1+, but the whole package is
6793     ;; released under GPLv2 or later.  It comes with extra exceptions for the
6794     ;; developers.
6795     (license (list license:gpl2+ license:lgpl2.1+))))
6796
6797 (define-public battle-tanks
6798   (deprecated-package "battle-tanks" btanks))
6799
6800 (define-public slingshot
6801   (package
6802     (name "slingshot")
6803     (version "0.9")
6804     (source
6805      (origin
6806        (method git-fetch)
6807        (uri (git-reference
6808              (url "https://github.com/ryanakca/slingshot.git")
6809              (commit version)))
6810        (file-name (git-file-name name version))
6811        (sha256
6812         (base32
6813          "19m8b6nsi786bc6gmkp185mwri3r5y249gjmqd5qsc23nnfhgrs1"))))
6814     (build-system python-build-system)
6815     (arguments
6816      `(#:python ,python-2))
6817     (inputs
6818      `(("python-pygame" ,python2-pygame)))
6819     (home-page "https://github.com/ryanakca/slingshot")
6820     (synopsis "Simple 2D shooting strategy game set in space")
6821     (description "Slingshot is a two-dimensional strategy game where two
6822 players attempt to shoot one another through a section of space populated by
6823 planets.  The main feature of the game is that the shots, once fired, are
6824 affected by the gravity of the planets.")
6825     (license license:gpl2+)))
6826
6827 (define-public 4dtris
6828   (package
6829     (name "4dtris")
6830     (version "0.4.3")
6831     (source
6832      (origin
6833        (method url-fetch)
6834        (uri (string-append "https://launchpad.net/4dtris/"
6835                            (version-major+minor version)
6836                            "/" version "/+download/4dtris_"
6837                            version ".orig.tar.gz"))
6838        (sha256
6839         (base32
6840          "1nfkhcm0l89jyw8yr65na97g4l385zhjf7whkyg47c3v5sdqq2g7"))))
6841     (build-system gnu-build-system)
6842     (arguments
6843      `(#:phases
6844        (modify-phases %standard-phases
6845          (add-after 'unpack 'fix-install-directories
6846            (lambda* (#:key outputs #:allow-other-keys)
6847              (let ((out (assoc-ref outputs "out")))
6848                (substitute* "Makefile.in"
6849                  (("bindir = /usr/games")
6850                   (string-append "bindir = " out "/bin"))
6851                  (("/usr/share/applications")
6852                   (string-append out "/share/applications"))
6853                  (("/usr/share/games/4dtris")
6854                   (string-append out "/share/4dtris"))))
6855              #t))
6856          (add-after 'set-paths 'set-sdl-paths
6857            (lambda* (#:key inputs #:allow-other-keys)
6858              (setenv "CPATH"
6859                      (string-append (assoc-ref inputs "sdl")
6860                                     "/include/SDL:"
6861                                     (or (getenv "CPATH") "")))
6862              #t)))))
6863     (inputs
6864      `(("fontconfig" ,fontconfig)
6865        ("freeglut" ,freeglut)
6866        ("sdl" ,(sdl-union (list sdl sdl-ttf)))))
6867     (home-page "https://launchpad.net/4dtris/")
6868     (synopsis "4D Tetris")
6869     (description "4D-TRIS is an alteration of the well-known Tetris game.  The
6870 game field is extended to 4D space, which has to filled up by the gamer with
6871 4D hyper cubes.")
6872     (license license:gpl3)))
6873
6874 (define-public arx-libertatis
6875   (package
6876     (name "arx-libertatis")
6877     (version "1.1.2")
6878     (source
6879      (origin
6880        (method url-fetch)
6881        (uri (string-append "http://arx-libertatis.org/files/arx-libertatis-"
6882                            version ".tar.xz"))
6883        (sha256
6884         (base32
6885          "0hjfxlsmp8wwqr06snv2dlly2s79ra0d9aw49gkp6rn8m50b9bc2"))))
6886     (build-system cmake-build-system)
6887     (outputs '("out" "installer"))
6888     (arguments
6889      '(#:tests? #f                      ; No tests.
6890        #:phases
6891        (modify-phases %standard-phases
6892          (add-after 'unpack 'fix-install-helper-paths
6893            (lambda* (#:key inputs #:allow-other-keys)
6894              (let ((p7zip (assoc-ref inputs "p7zip"))
6895                    (innoextract (assoc-ref inputs "innoextract"))
6896                    (wget (assoc-ref inputs "wget"))
6897                    (zenity (assoc-ref inputs "zenity")))
6898                (substitute* "scripts/arx-install-data"
6899                  (("have innoextract")
6900                   (string-append "have " innoextract "/bin/innoextract"))
6901                  (("then innoextract")
6902                   (string-append "then " innoextract "/bin/innoextract"))
6903                  (("else innoextract")
6904                   (string-append "else " innoextract "/bin/innoextract"))
6905                  (("for _extract_zip_sz in 7za 7z")
6906                   (string-append "for _extract_zip_sz in " p7zip "/bin/7za"))
6907                  (("else if have 7z")
6908                   (string-append "else if have " p7zip "/bin/7za"))
6909                  (("7z x -tiso")
6910                   (string-append p7zip "/bin/7z x -tiso"))
6911                  (("if have wget")
6912                   (string-append "if have " wget "/bin/wget"))
6913                  (("wget -O")
6914                   (string-append wget "/bin/wget -O"))
6915                  (("for backend in \\$preferred zenity")
6916                   (string-append "for backend in $preferred " zenity "/bin/zenity"))
6917                  (("zenity +--title")
6918                   (string-append zenity "/bin/zenity --title"))
6919                  (("^zenity\\)")
6920                   (string-append zenity "/bin/zenity)"))))
6921              #t))
6922          (add-after 'install 'move-installer
6923            (lambda* (#:key outputs #:allow-other-keys)
6924              (let ((out (assoc-ref outputs "out"))
6925                    (installer (assoc-ref outputs "installer")))
6926                (mkdir-p (string-append installer "/bin"))
6927                (rename-file (string-append out "/bin/arx-install-data")
6928                             (string-append installer "/bin/arx-install-data"))))))))
6929     (inputs
6930      `(("sdl" ,sdl)                     ; Switch to sdl2 in >1.1.2.
6931        ("mesa" ,mesa)                   ; Switch to libepoxy in >1.1.2.
6932        ("glew" ,glew)
6933        ("openal" ,openal)
6934        ("zlib" ,zlib)
6935        ("boost" ,boost)
6936        ("glm" ,glm)
6937        ("freetype" ,freetype)
6938        ;; The following are only needed by the arx-install-data script.
6939        ("p7zip" ,p7zip) ; Install-helper uses it to extract ISO and .cab archives.
6940        ("zenity" ,zenity)           ; GUI for install-helper.
6941        ("wget" ,wget)     ; Used by the install-helper to download the patch.
6942        ;; The install-helper needs it to extract the patch.
6943        ("innoextract" ,innoextract)))
6944     (home-page "https://arx-libertatis.org/")
6945     (synopsis "Port of Arx Fatalis, a first-person role-playing game")
6946     (description "Arx Libertatis is a cross-platform port of Arx Fatalis, a 2002
6947 first-person role-playing game / dungeon crawler developed by Arkane Studios.
6948 This port however does not include the game data, so you need to obtain a copy
6949 of the original Arx Fatalis or its demo to play Arx Libertatis.  Arx Fatalis
6950 features crafting, melee and ranged combat, as well as a unique casting system
6951 where the player draws runes in real time to effect the desired spell.")
6952     (license license:gpl3+)))
6953
6954 (define-public edgar
6955   (package
6956     (name "edgar")
6957     (version "1.32")
6958     (source
6959      (origin
6960        (method url-fetch)
6961        (uri
6962         (string-append "https://github.com/riksweeney/edgar/releases/download/"
6963                        version "/edgar-" version "-1.tar.gz"))
6964        (sha256
6965         (base32 "12lam6qcscc5ima1w2ksd1cvsvxbd17h6mqkgsqpzx8ap43p2r5p"))))
6966     (build-system gnu-build-system)
6967     (arguments '(#:tests? #f            ; there are no tests
6968                  #:make-flags
6969                  (list "CC=gcc"
6970                        (string-append "PREFIX=" (assoc-ref %outputs "out"))
6971                        (string-append "BIN_DIR=" (assoc-ref %outputs "out") "/bin/"))
6972                  #:phases
6973                  (modify-phases %standard-phases
6974                    (delete 'configure)
6975                    (add-before 'build 'fix-env
6976                      (lambda* (#:key inputs #:allow-other-keys)
6977                        (setenv "CPATH"
6978                                (string-append (assoc-ref inputs "sdl2-union")
6979                                               "/include/SDL2:"
6980                                               (or (getenv "CPATH") "")))
6981                        #t)))))
6982     (inputs
6983      `(("sdl2-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
6984        ("zlib" ,zlib)))
6985     (native-inputs
6986      `(("pkg-config" ,pkg-config)
6987        ("autoconf" ,autoconf)
6988        ("automake" ,automake)
6989        ("gnu-gettext" ,gnu-gettext)
6990        ("libtool" ,libtool)
6991        ("which" ,which)))
6992     (synopsis "2d action platformer game")
6993     (description "The Legend of Edgar is a 2D platform game with a persistent world.
6994 When Edgar's father fails to return home after venturing out one dark and stormy night,
6995 Edgar fears the worst: he has been captured by the evil sorcerer who lives in
6996 a fortress beyond the forbidden swamp.")
6997     (home-page "https://www.parallelrealities.co.uk/games/edgar/")
6998     (license license:gpl2+)))
6999
7000 (define-public the-legend-of-edgar
7001   (deprecated-package "the-legend-of-edgar" edgar))
7002
7003 (define-public openclonk
7004   (package
7005     (name "openclonk")
7006     (version "8.1")
7007     (source (origin
7008               (method url-fetch)
7009               (uri (string-append
7010                     "https://www.openclonk.org/builds/release/" version "/"
7011                     "openclonk-" version "-src.tar.bz2"))
7012               (sha256
7013                (base32
7014                 "0imkqjp8lww5p0cnqf4k4mb2v682mnsas63qmiz17rspakr7fxik"))))
7015     (build-system cmake-build-system)
7016     (arguments
7017      `(#:configure-flags '("-DAudio_TK=OpenAL")
7018        #:test-target "tests"
7019        #:phases
7020        (modify-phases %standard-phases
7021          (add-after 'unpack 'prepare-gmock
7022            (lambda* (#:key inputs #:allow-other-keys)
7023              (mkdir "gmock")
7024              (copy-recursively (assoc-ref inputs "googlemock") "gmock")
7025              (substitute* "tests/CMakeLists.txt"
7026                (("/usr/src/gmock")
7027                 (string-append (getcwd) "/gmock/googlemock"))
7028                (("/usr/src/gtest")
7029                 (string-append (getcwd) "/gmock/googletest"))
7030                (("PATH_SUFFIXES \"src\" \"gtest\"")
7031                 "PATH_SUFFIXES \"src\""))
7032              #t))
7033          (add-after 'unpack 'adjust-backward-cpp-includes
7034            (lambda _
7035              ;; XXX: The bundled backward-cpp exports a CMake "interface"
7036              ;; that includes external libraries such as libdl from glibc.
7037              ;; By default, CMake interface includes are treated as "system
7038              ;; headers", and GCC behaves poorly when glibc is passed as a
7039              ;; system header (causing #include_next failures).
7040
7041              ;; Here we prevent targets that consume the Backward::Backward
7042              ;; interface from treating it as "system includes".
7043              (substitute* "CMakeLists.txt"
7044                (("target_link_libraries\\((.+) Backward::Backward\\)" all target)
7045                 (string-append "set_property(TARGET " target " PROPERTY "
7046                                "NO_SYSTEM_FROM_IMPORTED true)\n"
7047                                all)))
7048              #t))
7049          (add-after 'unpack 'add-libiberty
7050            ;; Build fails upon linking executables without this.
7051            (lambda _
7052              (substitute* "thirdparty/backward-cpp/BackwardConfig.cmake"
7053                (("set\\(LIBBFD_LIBRARIES (.*?)\\)" _ libraries)
7054                 (string-append "set(LIBBFD_LIBRARIES " libraries " iberty)")))
7055              #t))
7056          (add-after 'add-libiberty 'lax-freealut-requirement
7057            ;; TODO: We provide freealut 1.1.0, but pkg-config somehow detects
7058            ;; it as 1.0.1.  Force minimal version.
7059            (lambda _
7060              (substitute* "cmake/FindAudio.cmake"
7061                (("freealut>=1.1.0") "freealut>=1.0.1"))
7062              #t))
7063          (add-after 'lax-freealut-requirement 'fix-directories
7064            ;; Prefer "$out/share/openclonk" over
7065            ;; "$out/share/games/openclonk". Also install "openclonk"
7066            ;; binary in "bin/", not "games/".
7067            (lambda _
7068              (substitute* "CMakeLists.txt"
7069                (("share/games/openclonk") "share/openclonk")
7070                (("TARGETS openclonk DESTINATION games")
7071                 "TARGETS openclonk DESTINATION bin"))
7072              #t)))))
7073     (native-inputs
7074      `(("googlemock" ,(package-source googletest))
7075        ("googletest" ,googletest)
7076        ("pkg-config" ,pkg-config)))
7077     (inputs
7078      `(("freealut" ,freealut)
7079        ("freetype" ,freetype)
7080        ("glew" ,glew)
7081        ("libiberty" ,libiberty)
7082        ("libjpeg" ,libjpeg-turbo)
7083        ("libogg" ,libogg)
7084        ("libpng" ,libpng)
7085        ("libvorbis" ,libvorbis)
7086        ("libxrandr" ,libxrandr)
7087        ("mesa" ,mesa)
7088        ("miniupnpc" ,miniupnpc)
7089        ("openal" ,openal)
7090        ("qtbase" ,qtbase)
7091        ("readline" ,readline)
7092        ("sdl" ,sdl2)
7093        ("tinyxml" ,tinyxml)
7094        ("zlib" ,zlib)))
7095     (home-page "https://www.openclonk.org/")
7096     (synopsis
7097      "Multiplayer action game where you control small and nimble humanoids")
7098     (description "OpenClonk is a multiplayer action/tactics/skill game.  It is
7099 often referred to as a mixture of The Settlers and Worms.  In a simple 2D
7100 antfarm-style landscape, the player controls a crew of Clonks, small but
7101 robust humanoid beings.  The game encourages free play but the normal goal is
7102 to either exploit valuable resources from the earth by building a mine or
7103 fight each other on an arena-like map.")
7104     ;; Software as a whole is licensed under ISC, artwork under CC-BY.
7105     (license (list license:isc license:cc-by3.0))))
7106
7107 (define-public flare-engine
7108   (package
7109     (name "flare-engine")
7110     (version "1.11")
7111     (source (origin
7112               (method git-fetch)
7113               (uri (git-reference
7114                     (url "https://github.com/flareteam/flare-engine.git")
7115                     (commit (string-append "v" version))))
7116               (file-name (git-file-name name version))
7117               (sha256
7118                (base32
7119                 "1mqr1s72p5bdh4kq2a8hg72dk8lwnddicjnd2cdp1sbfa9lmjym8"))))
7120     (build-system cmake-build-system)
7121     (arguments
7122      `(#:tests? #f                      ;no test
7123        #:configure-flags '("-DBINDIR=bin" "-DDATADIR=share/flare")))
7124     (inputs
7125      `(("hicolor-icon-theme" ,hicolor-icon-theme)
7126        ("python" ,python-wrapper)
7127        ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
7128     (home-page "http://www.flarerpg.org/")
7129     (synopsis "Action Roleplaying Engine")
7130     (description "Flare (Free Libre Action Roleplaying Engine) is a simple
7131 game engine built to handle a very specific kind of game: single-player 2D
7132 action RPGs.")
7133     (license license:gpl3+)))
7134
7135 (define-public flare-game
7136   (package
7137     (name "flare-game")
7138     (version "1.11")
7139     (source (origin
7140               (method git-fetch)
7141               (uri (git-reference
7142                     (url "https://github.com/flareteam/flare-game.git")
7143                     (commit (string-append "v" version))))
7144               (file-name (git-file-name name version))
7145               (sha256
7146                (base32
7147                 "0bd5g7sd89a9176ilr408hdqzdfv4j7wj0idd685c1n6s01c3h6p"))))
7148     (build-system cmake-build-system)
7149     (arguments
7150      `(#:tests? #f                      ;no test
7151        #:configure-flags '("-DDATADIR=share/flare")
7152        #:phases
7153        (modify-phases %standard-phases
7154          ;; Flare expects the mods to be located in the same folder.
7155          ;; Yet, "default" mod is in the engine, whereas the others
7156          ;; are in the current package.  Merge everything here with
7157          ;; a symlink.
7158          (add-after 'install 'add-default-mod
7159            (lambda* (#:key inputs outputs #:allow-other-keys)
7160              (let* ((out (assoc-ref outputs "out"))
7161                     (mods (string-append out "/share/flare/mods")))
7162                (with-directory-excursion mods
7163                  (symlink (string-append (assoc-ref inputs "flare-engine")
7164                                          "/share/flare/mods/default")
7165                           "default")))
7166              #t))
7167          (add-after 'install 'install-executable
7168            ;; The package only provides assets for the game, the
7169            ;; executable coming from "flare-engine".  Since more than
7170            ;; one game may use the engine, we create a new executable,
7171            ;; "flare-game", which launches the engine with appropriate
7172            ;; parameters.
7173            (lambda* (#:key inputs outputs #:allow-other-keys)
7174              (let* ((out (assoc-ref outputs "out"))
7175                     (bash (string-append (assoc-ref inputs "bash")
7176                                          "/bin/bash"))
7177                     (flare (string-append (assoc-ref inputs "flare-engine")
7178                                           "/bin/flare"))
7179                     (script (string-append out "/bin/flare-game")))
7180                (mkdir-p (dirname script))
7181                (call-with-output-file script
7182                  (lambda (port)
7183                    (format port
7184                            "#!~a
7185 exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
7186                            bash
7187                            flare
7188                            out)))
7189                (chmod script #o755))
7190              #t)))))
7191     (inputs
7192      `(("flare-engine" ,flare-engine)))
7193     (home-page "http://www.flarerpg.org/")
7194     (synopsis "Fantasy action RPG using the FLARE engine")
7195     (description "Flare is a single-player 2D action RPG with
7196 fast-paced action and a dark fantasy style.")
7197     (license license:cc-by-sa3.0)))
7198
7199 (define-public meritous
7200   (package
7201     (name "meritous")
7202     (version "1.5")
7203     (source (origin
7204               (method git-fetch)
7205               (uri (git-reference
7206                     (url "https://gitlab.com/meritous/meritous.git")
7207                     (commit (string-append "v" version))))
7208               (file-name (git-file-name name version))
7209               (sha256
7210                (base32
7211                 "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
7212     (build-system gnu-build-system)
7213     (arguments
7214      `(#:tests? #f                      ;no test
7215        #:make-flags
7216        (list "CC=gcc"
7217              (string-append "prefix=" (assoc-ref %outputs "out")))
7218        #:phases
7219        (modify-phases %standard-phases
7220          (delete 'configure)
7221          (add-after 'unpack 'fix-sdl-path
7222            ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
7223            ;; directory, not SDL-union provided as an input to the package.
7224            ;; We force the latter with "--prefix=" option.
7225            (lambda* (#:key inputs #:allow-other-keys)
7226              (substitute* "Makefile"
7227                (("sdl-config" command)
7228                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7229              #t))
7230          (add-after 'unpack 'fix-crash
7231            ;; XXX: Songs are not present in the repository, due to licensing
7232            ;; issues.  Yet, the game tries to load them, and, since it cannot
7233            ;; find them, crashes.  Users cannot add them back, the store being
7234            ;; read-only, so we turn off background music altogether.
7235            (lambda _
7236              (substitute* "src/audio.c"
7237                (("PlayBackgroundMusic\\(new_track\\);" all)
7238                 (string-append "// " all)))
7239              #t)))))
7240     (native-inputs
7241      `(("intltool" ,intltool)))
7242     (inputs
7243      `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
7244        ("zlib" ,zlib)))
7245     (home-page "https://gitlab.com/meritous/meritous")
7246     (synopsis "Action-adventure dungeon crawl game")
7247     (description "Far below the surface of the planet is a place of limitless
7248 power.  Those that seek to control such a utopia will soon bring an end to
7249 themselves.  Seeking an end to the troubles that plague him, PSI user Merit
7250 journeys into the hallowed Orcus Dome in search of answers.
7251
7252 Meritous is a action-adventure game with simple controls but a challenge to
7253 find a balance of power versus recovery time during real-time battles.  Set in
7254 a procedurally generated world, the player can explore thousands of rooms in
7255 search of powerful artifacts, tools to help them, and to eventually free the
7256 Orcus Dome from evil.")
7257     (license license:gpl3+)))
7258
7259 (define-public marble-marcher
7260   (let ((commit "e580460a0c3826f9b28ab404607942a8ecb625d7")
7261         (revision "1"))
7262     (package
7263       (name "marble-marcher")
7264       (version (git-version "0" revision commit))
7265       (source (origin
7266                 (method git-fetch)
7267                 (uri (git-reference
7268                       (url "https://github.com/HackerPoet/MarbleMarcher.git")
7269                       (commit commit)))
7270                 (file-name (git-file-name name version))
7271                 (sha256
7272                  (base32
7273                   "0jjv832hl1v170n6gryp2sr3lgqndi9ab841qvgqk68bks8701mx"))))
7274       (build-system cmake-build-system)
7275       (arguments
7276        `(#:tests? #f  ; there are none
7277          #:phases
7278          (modify-phases %standard-phases
7279            (add-after 'unpack 'embed-asset-directory
7280              (lambda* (#:key outputs #:allow-other-keys)
7281                (let ((assets (string-append (assoc-ref outputs "out")
7282                                             "/share/marble-marcher/assets/")))
7283                  ;; Some of the files we're patching are
7284                  ;; ISO-8859-1-encoded, so choose it as the default
7285                  ;; encoding so the byte encoding is preserved.
7286                  (with-fluids ((%default-port-encoding #f))
7287                    (substitute* "src/Resource.rc"
7288                      (("../assets/icon.ico")
7289                       (string-append assets "icon.ico")))
7290                    (substitute* "src/Res.h"
7291                      (("assets/") assets))))
7292                #t))
7293            (replace 'install
7294              (lambda* (#:key outputs #:allow-other-keys)
7295                (let* ((out (assoc-ref outputs "out"))
7296                       (assets (string-append out "/share/marble-marcher/assets"))
7297                       (bin (string-append out "/bin/")))
7298                  (mkdir-p bin)
7299                  (mkdir-p assets)
7300                  (copy-recursively "../source/assets" assets)
7301                  (install-file "MarbleMarcher" bin))
7302                #t)))))
7303       (inputs
7304        `(("eigen" ,eigen)
7305          ("mesa" ,mesa)
7306          ("sfml" ,sfml)))
7307       (native-inputs
7308        `(("pkg-config" ,pkg-config)))
7309       (home-page "https://codeparade.itch.io/marblemarcher")
7310       (synopsis "Guide a marble across fractal landscapes")
7311       (description "Marble Marcher is a video game that uses a fractal physics
7312 engine and fully procedural rendering to produce beautiful and unique
7313 gameplay.  The game is played on the surface of evolving fractals.  The goal
7314 of the game is to get your marble to the flag as quickly as possible.  But be
7315 careful not to fall off the level or get crushed by the fractal!  There are 24
7316 levels to unlock.")
7317       ;; Code is under GPLv2+, assets are under CC-BY-SA 3.0 and OFL 1.1.
7318       (license (list license:gpl2+
7319                      license:silofl1.1
7320                      license:cc-by-sa3.0)))))
7321
7322 ;; This must be updated together with flightgear.
7323 (define simgear
7324   (package
7325     (name "simgear")
7326     (version "2018.3.2")
7327     (source (origin
7328               (method url-fetch)
7329               (uri (string-append "mirror://sourceforge/flightgear/release-"
7330                                   (version-major+minor version) "/"
7331                                   "simgear-" version ".tar.bz2"))
7332               (sha256
7333                (base32
7334                 "1941ay8rngz4vwsx37bbpxr48hpcvcbj3xw1hy264lq4qnl99c68"))))
7335     (build-system cmake-build-system)
7336     (arguments
7337      `(#:phases
7338        (modify-phases %standard-phases
7339          (replace 'check
7340            (lambda _
7341              ;; Skip tests that require internet access.
7342              (invoke "ctest" "-E" "(http|dns)"))))))
7343     (inputs
7344      `(("boost" ,boost-for-mysql) ; fails with 1.69
7345        ("curl" ,curl)
7346        ("expat" ,expat)
7347        ("mesa" ,mesa)
7348        ("openal" ,openal)
7349        ("openscenegraph" ,openscenegraph-3.4)
7350        ("zlib" ,zlib)))
7351     (home-page "https://home.flightgear.org/")
7352     (synopsis "Libraries for 3D simulations and games")
7353     (description "SimGear is a set of libraries designed to be used as
7354 building blocks for quickly assembling 3D simulations, games, and
7355 visualization applications.  SimGear is developed by the FlightGear project
7356 and also provides the base for the FlightGear Flight Simulator.")
7357     (license license:lgpl2.0+)))
7358
7359 (define-public flightgear
7360   (package
7361     (name "flightgear")
7362     (version (package-version simgear))
7363     (source (origin
7364               (method url-fetch)
7365               (uri (string-append "mirror://sourceforge/flightgear/release-"
7366                                   (version-major+minor version) "/"
7367                                   "flightgear-" version ".tar.bz2"))
7368               (sha256
7369                (base32
7370                 "0lzy524cjzs8vldcjcc750bgg5c4mq9fkymxxxzqf68ilc4d1jss"))
7371               (modules '((guix build utils)))
7372               (snippet
7373                '(begin
7374                   ;; There are some bundled libraries.
7375                   (for-each delete-file-recursively
7376                             '("3rdparty/sqlite3/"))
7377                   #t))))
7378     (build-system cmake-build-system)
7379     (arguments
7380      `(#:configure-flags
7381        (list "-DSYSTEM_SQLITE=ON"
7382              (string-append "-DFG_DATA_DIR="
7383                             (assoc-ref %outputs "out")
7384                             "/share/flightgear"))
7385        ;; TODO: test cannot be run because the "run_test_suite" executable
7386        ;; does not seem to be built.
7387        #:tests? #f
7388        #:phases
7389        (modify-phases %standard-phases
7390          (add-after 'install 'wrap-executable
7391            (lambda* (#:key inputs outputs #:allow-other-keys)
7392              (let ((out (assoc-ref outputs "out")))
7393                (wrap-program (string-append out "/bin/fgfs")
7394                  `("QT_PLUGIN_PATH" ":" prefix
7395                    ,(map (lambda (label)
7396                            (string-append (assoc-ref inputs label)
7397                                           "/lib/qt5/plugins"))
7398                          '("qtbase" "qtdeclarative" "qtsvg")))
7399                  `("QML2_IMPORT_PATH" ":" prefix
7400                    ,(map (lambda (label)
7401                            (string-append (assoc-ref inputs label)
7402                                           "/lib/qt5/qml"))
7403                          '("qtdeclarative" "qtsvg"))))
7404                #t)))
7405          (add-after 'install 'install-data
7406            (lambda* (#:key inputs outputs #:allow-other-keys)
7407              (let ((share (string-append (assoc-ref outputs "out") "/share/flightgear")))
7408                (mkdir-p share)
7409                (with-directory-excursion share
7410                  (invoke "tar" "xf" (assoc-ref inputs "flightgear-data")
7411                          "--strip-components=1")))
7412              #t)))))
7413     (inputs
7414      `(("boost" ,boost-for-mysql)       ; same as simgear
7415        ("dbus" ,dbus)
7416        ("eudev" ,eudev)
7417        ("freeglut" ,freeglut)
7418        ("freetype" ,freetype)
7419        ("glew" ,glew)
7420        ("libpng" ,libpng)
7421        ("openal" ,openal)
7422        ("openscenegraph" ,openscenegraph-3.4)
7423        ("plib" ,plib)
7424        ("qtbase" ,qtbase)
7425        ("qtdeclarative" ,qtdeclarative)
7426        ("qtsvg" ,qtsvg)
7427        ("simgear" ,simgear)
7428        ("speexdsp" ,speexdsp)
7429        ("sqlite" ,sqlite)
7430        ("zlib" ,zlib)))
7431     (native-inputs
7432      `(("cppunit" ,cppunit)
7433        ("pkg-config" ,pkg-config)
7434        ("qttools" ,qttools)
7435        ("flightgear-data"
7436         ,(origin
7437            (method url-fetch)
7438            (uri (string-append "mirror://sourceforge/flightgear/release-"
7439                                (version-major+minor version) "/"
7440                                "FlightGear-" version "-data.tar.bz2"))
7441            (sha256
7442             (base32
7443              "0h4npa7gqpf5fw6pv2bpw0wbwr7fa2vhia21cjbigfgd75x82zi7"))))))
7444     (home-page "https://home.flightgear.org/")
7445     (synopsis "Flight simulator")
7446     (description "The goal of the FlightGear project is to create a
7447 sophisticated flight simulator framework for use in research or academic
7448 environments, pilot training, as an industry engineering tool, for DIY-ers to
7449 pursue their favorite interesting flight simulation idea, and last but
7450 certainly not least as a fun, realistic, and challenging desktop flight
7451 simulator.")
7452     (license license:gpl2+)))
7453
7454 (define-public jumpnbump
7455   (package
7456     (name "jumpnbump")
7457     (version "1.61")
7458     (source (origin
7459               (method git-fetch)
7460               (uri (git-reference
7461                     (url "https://gitlab.com/LibreGames/jumpnbump.git")
7462                     (commit version)))
7463               (file-name (git-file-name name version))
7464               (sha256
7465                (base32
7466                 "12lwl5sl5n009nb83r8l4lakb9286csqdf1ynpmwwydy17giqsdp"))))
7467     (build-system gnu-build-system)
7468     (arguments
7469      `(#:make-flags
7470        (list "CC=gcc"
7471              (string-append "PREFIX=" (assoc-ref %outputs "out")))
7472        #:tests? #f                      ;no test
7473        #:phases
7474        (modify-phases %standard-phases
7475          (delete 'configure)            ;no configure script
7476          (add-after 'unpack 'fix-sdl-path
7477            ;; XXX: For some reason, `sdl2-config' reports stand-alone SDL
7478            ;; directory, not SDL-union provided as an input to the package.
7479            ;; We force the latter with "--prefix=" option.
7480            (lambda* (#:key inputs #:allow-other-keys)
7481              (substitute* "Makefile"
7482                (("sdl2-config" command)
7483                 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
7484              #t)))))
7485     (inputs
7486      `(("bzip2" ,bzip2)
7487        ("sdl" ,(sdl-union (list sdl2 sdl2-mixer sdl2-net)))
7488        ("zlib" ,zlib)))
7489     (native-inputs
7490      `(("gettext" ,gettext-minimal)))   ;for msgfmt
7491     (home-page "https://gitlab.com/LibreGames/jumpnbump")
7492     (synopsis "Multiplayer platform game with bunnies")
7493     (description "You, as a bunny, have to jump on your opponents to make them
7494 explode.  It is a true multiplayer game; you cannot play this alone.  You can
7495 play with up to four players simultaneously.  It has network support.")
7496     (license license:gpl2+)))
7497
7498 (define-public hedgewars
7499   (package
7500     (name "hedgewars")
7501     (version "1.0.0")
7502     (source (origin
7503               (method url-fetch)
7504               (uri (string-append "https://www.hedgewars.org/download/releases/"
7505                                   "hedgewars-src-" version ".tar.bz2"))
7506               (sha256
7507                (base32
7508                 "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1"))))
7509     (build-system cmake-build-system)
7510     (arguments
7511      ;; XXX: Engine is built as Pascal source code, requiring Free Pascal
7512      ;; Compiler, which we haven't packaged yet.  With the flag below, we use
7513      ;; a Pascal to C translator and Clang instead.
7514      `(#:configure-flags (list "-DBUILD_ENGINE_C=ON")
7515        #:phases
7516        (modify-phases %standard-phases
7517          (replace 'check
7518            (lambda _ (invoke "ctest"))))))
7519     (inputs
7520      `(("ffmpeg" ,ffmpeg)
7521        ("freeglut" ,freeglut)
7522        ("ghc-entropy" ,ghc-entropy)
7523        ("ghc-hslogger" ,ghc-hslogger)
7524        ("ghc-network" ,ghc-network)
7525        ("ghc-random" ,ghc-random)
7526        ("ghc-regex-tdfa" ,ghc-regex-tdfa)
7527        ("ghc-sandi" ,ghc-sandi)
7528        ("ghc-sha" ,ghc-sha)
7529        ("ghc-utf8-string" ,ghc-utf8-string)
7530        ("ghc-vector" ,ghc-vector)
7531        ("ghc-zlib" ,ghc-zlib)
7532        ("glew" ,glew)
7533        ("libpng" ,libpng)
7534        ("lua" ,lua-5.1)
7535        ("physfs" ,physfs)
7536        ("qtbase" ,qtbase)
7537        ("sdl" ,(sdl-union
7538                 (list sdl2 sdl2-mixer sdl2-net sdl2-ttf sdl2-image)))))
7539     (native-inputs
7540      `(("clang" ,clang)
7541        ("ghc" ,ghc)
7542        ("pkg-config" ,pkg-config)
7543        ("qttools" ,qttools)))
7544     (home-page "https://hedgewars.org/")
7545     (synopsis "Turn-based artillery game featuring fighting hedgehogs")
7546     (description
7547      "Hedgewars is a turn based strategy, artillery, action and comedy game,
7548 featuring the antics of pink hedgehogs with attitude as they battle from the
7549 depths of hell to the depths of space.
7550
7551 As commander, it's your job to assemble your crack team of hedgehog soldiers
7552 and bring the war to your enemy.")
7553     ;; Software as a whole is licensed under GPL-2 terms.  Artwork and
7554     ;; scripts are distributed under various terms.
7555     (license (list license:gpl2
7556                    license:bsd-2 license:bsd-3 license:cc-by3.0 license:cc0
7557                    license:expat license:fdl1.3+ license:public-domain
7558                    license:zlib))))
7559
7560 (define-public harmonist
7561   (package
7562     (name "harmonist")
7563     (version "0.3.0")
7564     (source (origin
7565               (method git-fetch)
7566               (uri (git-reference
7567                      (url "https://git.tuxfamily.org/harmonist/harmonist.git")
7568                      (commit (string-append "v" version))))
7569               (file-name (git-file-name name version))
7570               (sha256
7571                (base32
7572                 "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
7573     (build-system go-build-system)
7574     (arguments
7575      '(#:import-path "git.tuxfamily.org/harmonist/harmonist"))
7576     (inputs
7577      `(("go-github.com-nsf-termbox-go" ,go-github.com-nsf-termbox-go)))
7578     (home-page "https://harmonist.tuxfamily.org/")
7579     (synopsis "Stealth coffee-break roguelike game")
7580     (description "Harmonist: Dayoriah Clan Infiltration is a stealth
7581 coffee-break roguelike game.  The game has a heavy focus on tactical
7582 positioning, light and noise mechanisms, making use of various terrain types
7583 and cones of view for monsters.  Aiming for a replayable streamlined experience,
7584 the game avoids complex inventory management and character building, relying
7585 on items and player adaptability for character progression.")
7586     (license license:isc)))
7587
7588 (define-public harmonist-tk
7589   (package
7590     (inherit harmonist)
7591     (name "harmonist-tk")
7592     (arguments
7593       (append
7594         (package-arguments harmonist)
7595         `(#:phases
7596           (modify-phases %standard-phases
7597             (replace 'build
7598               (lambda _
7599                 (invoke "go" "install" "-v" "-x" "--tags" "tk"
7600                         "git.tuxfamily.org/harmonist/harmonist")))
7601             (replace 'check
7602               (lambda _
7603                 (invoke "go" "test" "--tags" "tk"
7604                         "git.tuxfamily.org/harmonist/harmonist")))))))
7605     (inputs
7606      `(("go-github.com-nsf-gothic" ,go-github.com-nsf-gothic)))))
7607
7608 (define-public drascula
7609   (package
7610     (name "drascula")
7611     (version "1.0")
7612     (source (origin
7613               (method url-fetch)
7614               (uri (string-append "mirror://sourceforge/scummvm/extras/"
7615                                   "Drascula_%20The%20Vampire%20Strikes%20Back/"
7616                                   "drascula-" version ".zip"))
7617               (sha256
7618                (base32
7619                 "1pj29rpb754sn6a56f8brfv6f2m1p5qgaqik7d68pfi2bb5zccdp"))))
7620     (build-system trivial-build-system)
7621     (arguments
7622      `(#:modules ((guix build utils))
7623        #:builder
7624        (begin
7625          (use-modules (guix build utils)
7626                       (ice-9 match))
7627          (let* ((out (assoc-ref %outputs "out"))
7628                 (share (string-append out "/share/drascula"))
7629                 (scummvm (assoc-ref %build-inputs "scummvm")))
7630            ;; Install data.
7631            (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
7632                                        "/bin/unzip"))
7633                  (doc (string-append out "/share/doc/" ,name "-" ,version)))
7634              (for-each
7635               (lambda (input)
7636                 (invoke unzip
7637                         "-j"
7638                         (assoc-ref %build-inputs input)
7639                         "-x" "__MACOSX")
7640                 ;; Every input provides "readme.txt", and we want to
7641                 ;; preserve them all.  Therefore we rename them first.
7642                 (match input
7643                   ("drascula-int"
7644                    (rename-file "readme.txt" "readme-international.txt"))
7645                   ("drascula-audio"
7646                    (rename-file "readme.txt" "readme-audio.txt"))
7647                   (_ #f))
7648                 ;; Install documentation.
7649                 (for-each (lambda (f) (install-file f doc))
7650                           (find-files "." "\\.(txt|doc)$"))
7651                 ;; Install data.
7652                 (for-each (lambda (f) (install-file f share))
7653                           (find-files "." "\\.(ogg|00[0-9])$")))
7654               '("drascula-audio" "drascula-int" "source")))
7655            ;; Create standalone executable.
7656            (let* ((bin (string-append out "/bin"))
7657                   (executable (string-append bin "/drascula"))
7658                   (bash (string-append (assoc-ref %build-inputs "bash")
7659                                        "/bin/bash")))
7660              (mkdir-p bin)
7661              (with-output-to-file executable
7662                (lambda ()
7663                  (format #t "#!~a~%" bash)
7664                  (format #t
7665                          "exec ~a/bin/scummvm --path=~a drascula~%"
7666                          scummvm share)))
7667              (chmod executable #o755))
7668            ;; Create desktop file.  There is no dedicated icon for the
7669            ;; game, so we borrow SCUMMVM's.
7670            (let ((apps (string-append out "/share/applications")))
7671              (mkdir-p apps)
7672              (make-desktop-entry-file
7673               (string-append apps "/drascula.desktop")
7674               #:name "Drascula: The Vampire Strikes Back"
7675               #:generic-name "Drascula"
7676               #:exec (string-append out "/bin/drascula")
7677               #:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
7678               #:categories '("AdventureGame" "Game" "RolePlaying")
7679               #:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
7680               #:comment '((#f "Classic 2D point and click adventure game")
7681                           ("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
7682                           ("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
7683                           ("it" "Gioco classico di avventura punta e clicca 2D"))))
7684            #t))))
7685     (native-inputs
7686      `(("bash" ,bash)
7687        ("unzip" ,unzip)))
7688     (inputs
7689      `(("scummvm" ,scummvm)
7690        ("drascula-int"
7691         ,(let ((version "1.1"))
7692            (origin
7693              (method url-fetch)
7694              (uri (string-append "mirror://sourceforge/scummvm/extras/"
7695                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
7696                                  "drascula-int-" version ".zip"))
7697              (sha256
7698               (base32
7699                "12236i7blamal92p1i8dgp3nhp2yicics4whsl63v682bj999n14")))))
7700        ("drascula-audio"
7701         ,(let ((version "2.0"))
7702            (origin
7703              (method url-fetch)
7704              (uri (string-append "mirror://sourceforge/scummvm/extras/"
7705                                  "Drascula_%20The%20Vampire%20Strikes%20Back/"
7706                                  "drascula-audio-" version ".zip"))
7707              (sha256
7708               (base32
7709                "00g4izmsqzxb8ry1vhfx6jrygl58lvlij09nw01ds4zddsiznsky")))))))
7710     (home-page "https://www.scummvm.org")
7711     (synopsis "Classic 2D point and click adventure game")
7712     (description "Drascula: The Vampire Strikes Back is a classic humorous 2D
7713 point and click adventure game.
7714
7715 In Drascula you play the role of John Hacker, a British estate agent, that
7716 gets to meet a gorgeous blond girl who is kidnapped by the notorious vampire
7717 Count Drascula and embark on a fun yet dangerous quest to rescue her.
7718 Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING
7719 the World and demonstrating that he is even more evil than his brother Vlad.")
7720     ;; Drascula uses a BSD-like license.
7721     (license (license:non-copyleft "file:///readme.txt"))))
7722
7723 (define-public gnurobots
7724   (package
7725     (name "gnurobots")
7726     (version "1.2.0")
7727     (source
7728      (origin
7729        (method url-fetch)
7730        (uri (string-append "mirror://gnu/gnurobots/gnurobots-"
7731                            version ".tar.gz"))
7732        (sha256
7733         (base32
7734          "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb"))))
7735     (build-system gnu-build-system)
7736     (inputs
7737      `(("glib" ,glib)
7738        ("gtk+" ,gtk+-2)
7739        ("vte" ,vte/gtk+-2)
7740        ("readline" ,readline)
7741        ("guile" ,guile-1.8)))
7742     (native-inputs
7743      `(("pkg-config" ,pkg-config)))
7744     (arguments
7745      `(#:make-flags
7746        (list
7747         ;; Do not abort build on "deprecated-declarations" warnings.
7748         "CFLAGS=-Wno-error=deprecated-declarations"
7749         ;; Find readline headers in sub-directory.
7750         (string-append "READLINE_CFLAGS=-I"
7751                        (assoc-ref %build-inputs "readline")
7752                        "/include/readline/"))
7753        #:phases
7754        (modify-phases %standard-phases
7755          (add-after 'install 'install-doc
7756            (lambda* (#:key outputs #:allow-other-keys)
7757              (install-file "doc/Robots-HOWTO"
7758                            (string-append (assoc-ref outputs "out")
7759                                           "/share/doc/gnurobots-"
7760                                           ,version))
7761              #t)))))
7762     (home-page "https://www.gnu.org/software/gnurobots/")
7763     (synopsis "Program a little robot and watch it explore a world")
7764     (description
7765      "GNU Robots is a game in which you program a robot to explore a world
7766 full of enemies that can hurt it, obstacles and food to be eaten.  The goal of
7767 the game is to stay alive and collect prizes.  The robot program conveniently
7768 may be written in a plain text file in the Scheme programming language.")
7769     (license license:gpl3+)))
7770
7771 (define-public ri-li
7772   (package
7773     (name "ri-li")
7774     (version "2.0.1")
7775     (source (origin
7776               (method url-fetch)
7777               (uri (string-append "mirror://sourceforge/ri-li/"
7778                                   "Ri-li%20Linux_Unix/Ri-li%20V" version "/"
7779                                   "Ri-li-" version ".tar.bz2"))
7780               (sha256
7781                (base32
7782                 "1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
7783               ;; Taken from
7784               ;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
7785               ;; It doesn't build otherwise.
7786               (patches (search-patches "ri-li-modernize_cpp.patch"))))
7787     (build-system gnu-build-system)
7788     (arguments
7789      `(#:phases
7790        (modify-phases %standard-phases
7791          ;; Remove "gentoo" subdirectory from Makefile, as it is
7792          ;; missing a make file and generates a build failure.
7793          (add-after 'configure 'fix-build
7794            (lambda _
7795              (substitute* "Makefile"
7796                ((" gentoo") ""))
7797              #t))
7798          (add-after 'install 'install-desktop-file
7799            (lambda* (#:key outputs #:allow-other-keys)
7800              (let* ((out (assoc-ref outputs "out"))
7801                     (apps (string-append out "/share/applications"))
7802                     (pixmaps (string-append out "/share/pixmaps")))
7803                (for-each (lambda (f) (install-file f pixmaps))
7804                          (find-files "data" "\\.(png|ico)$"))
7805                (mkdir-p apps)
7806                (with-output-to-file (string-append apps "/ri-li.desktop")
7807                  (lambda _
7808                    (format #t
7809                            "[Desktop Entry]~@
7810                      Name=Ri-li~@
7811                      Exec=~a/bin/Ri_li~@
7812                      Icon=~a/Ri-li-icon-32x32.png~@
7813                      Categories=Game;ArcadeGame;~@
7814                      Keywords=toy;train;wooden;snake-like;engine;~@
7815                      Comment=a toy simulator game~@
7816                      Comment[de]=Ein Spiel mit einem kleinen Zug~@
7817                      Comment[fr]=un jeu de petit train~@
7818                      Comment[ro_RO]=un joc cu un tren de jucărie~@
7819                      Terminal=false~@
7820                      Type=Application~%"
7821                            out pixmaps))))
7822              #t))
7823          (add-after 'install-desktop-file 'remove-spurious-files
7824            ;; Delete redundant files already installed somewhere else.
7825            (lambda* (#:key outputs #:allow-other-keys)
7826              (let ((out (assoc-ref outputs "out")))
7827                (for-each delete-file
7828                          (find-files (string-append out "/share/Ri-li")
7829                                      "\\.(png|ico)|COPYING"))
7830                #t))))))
7831     (inputs
7832      `(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
7833     (home-page "http://www.ri-li.org")
7834     (synopsis "Toy train simulation game")
7835     (description "Ri-li is a game in which you drive a wooden toy
7836 steam locomotive across many levels and collect all the coaches to
7837 win.")
7838     ;; The project is dual-licensed GPL2+ and GPL3+.
7839     (license (list license:gpl2+ license:gpl3+))))
7840
7841 (define-public freeorion
7842   (package
7843     (name "freeorion")
7844     (version "0.4.8")
7845     (source
7846      (origin
7847        (method git-fetch)
7848        (uri (git-reference
7849              (url "https://github.com/freeorion/freeorion.git")
7850              ;; Most recent stable release uses boost_signals (v1) which was
7851              ;; later replaced with boost-signals2 and no longer exists.  This
7852              ;; commit builds and runs.
7853              ;;
7854              ;; TODO: Update this when the next stable release when it is
7855              ;; available.
7856              (commit "470d0711537804df3c2ca25532f674ab4bec58af")))
7857        (file-name (git-file-name name version))
7858        (sha256
7859         (base32
7860          "1wsw632l1cj17px6i88nqjzs0dngp5rsr67n6qkkjlfjfxi69j0f"))
7861        (modules '((guix build utils)))
7862        (snippet
7863         '(begin
7864            ;; There are some bundled fonts.
7865            (for-each delete-file-recursively '("default/data/fonts"))
7866            #t))))
7867     (build-system cmake-build-system)
7868     (arguments
7869      '(#:tests? #f                      ;no test
7870        #:phases
7871        (modify-phases %standard-phases
7872          (add-after 'unpack 'unbundle-fonts
7873            (lambda* (#:key inputs #:allow-other-keys)
7874              (let ((roboto-dir (string-append (assoc-ref inputs "font-roboto")
7875                                               "/share/fonts/truetype/")))
7876                (substitute* "UI/ClientUI.cpp"
7877                  (("\\(GetRootDataDir.*?Roboto-(Bold|Regular)\\.ttf\"\\)\\.string\\(\\)\\);"
7878                    all type)
7879                   (string-append "\"" roboto-dir "Roboto-" type ".ttf\");")))
7880                #t))))))
7881     (inputs
7882      `(("boost" ,boost)
7883        ("boost_signals" ,boost-signals2)
7884        ("font-dejavu" ,font-dejavu)
7885        ("font-roboto" ,font-google-roboto)
7886        ("freetype2" ,freetype)
7887        ("glew" ,glew)
7888        ("glu" ,glu)
7889        ("libogg" ,libogg)
7890        ("libpng" ,libpng)
7891        ("libvorbis" ,libvorbis)
7892        ("openal" ,openal)
7893        ("python2" ,python-2.7)
7894        ("sdl2" ,sdl2)
7895        ("zlib" ,zlib)))
7896     (home-page "https://www.freeorion.org/index.php/Main_Page")
7897     (synopsis "Turn-based space empire and galactic conquest computer game")
7898     (description
7899      "FreeOrion is a turn-based space empire and galactic conquest (4X)
7900 computer game being designed and built by the FreeOrion project.  Control an
7901 empire with the goal of exploring the galaxy, expanding your territory,
7902 exploiting the resources, and exterminating rival alien empires.  FreeOrion is
7903 inspired by the tradition of the Master of Orion games, but is not a clone or
7904 remake of that series or any other game.")
7905     ;; Source code is released under gpl2.  Artwork, music and sounds, and
7906     ;; in-game text are released under cc-by-sa3.0.  Game content scripts are
7907     ;; released under both gpl2 and cc-by-sa3.0.  Bundled Gigi library is
7908     ;; released under lgpl2.1+.
7909     (license (list license:gpl2 license:cc-by-sa3.0 license:lgpl2.1+))))
7910
7911 (define-public leela-zero
7912   (package
7913    (name "leela-zero")
7914    (version "0.17")
7915    (source
7916     (origin
7917      (method git-fetch)
7918      (uri (git-reference
7919            (url "https://github.com/leela-zero/leela-zero.git")
7920            (commit (string-append "v" version))))
7921      (file-name (git-file-name name version))
7922      (sha256
7923       (base32
7924        "17px5iny8mql5c01bymcli7zfssswkzvb2i8gnsmjcck6i2n8srl"))
7925      (patches (search-patches "leela-zero-gtest.patch"))))
7926    (build-system cmake-build-system)
7927    (native-inputs
7928     `(("googletest" ,googletest)))
7929    (inputs
7930     `(("boost" ,boost)
7931       ("ocl-icd" ,ocl-icd)
7932       ("openblas" ,openblas)
7933       ("opencl-headers" ,opencl-headers)
7934       ("qtbase" ,qtbase)
7935       ("zlib" ,zlib)))
7936    (arguments
7937     '(#:configure-flags '("-DUSE_BLAS=YES")
7938       #:phases (modify-phases %standard-phases
7939                  (add-before 'configure 'fix-tests
7940                    (lambda* (#:key outputs #:allow-other-keys)
7941                      (let ((home (getcwd)))
7942                        (setenv "HOME" home)
7943                        (substitute* "src/tests/gtests.cpp"
7944                          (("\\.\\./src/tests/0k\\.txt")
7945                           (string-append home "/src/tests/0k.txt"))
7946                          (("cfg_gtp_mode = true;")
7947                           "cfg_gtp_mode = true; cfg_cpu_only = true;")))
7948                      #t))
7949                  (replace 'check
7950                    (lambda _
7951                      (invoke "./tests"))))))
7952    (home-page "https://github.com/leela-zero/leela-zero")
7953    (synopsis "Program playing the game of Go")
7954    (description
7955     "Leela-zero is a Go engine with no human-provided knowledge, modeled after
7956 the AlphaGo Zero paper.  The current best network weights file for the engine
7957 can be downloaded from @url{https://zero.sjeng.org/best-network}.")
7958    (license license:gpl3+)))
7959
7960 (define-public q5go
7961   (package
7962    (name "q5go")
7963    (version "1.0")
7964    (source (origin
7965             (method git-fetch)
7966             (uri (git-reference
7967                   (url "https://github.com/bernds/q5Go.git")
7968                   (commit (string-append "q5go-" version))))
7969             (file-name (git-file-name name version))
7970             (sha256
7971              (base32
7972               "1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
7973    (build-system gnu-build-system)
7974    (native-inputs
7975     `(("pkg-config" ,pkg-config)))
7976    (inputs
7977     `(("qtbase" ,qtbase)
7978       ("qtmultimedia" ,qtmultimedia)
7979       ("qtsvg" ,qtsvg)))
7980    (arguments
7981     '(#:phases
7982       (modify-phases %standard-phases
7983         (add-after 'unpack 'fix-configure-script
7984           (lambda _
7985             ;; Bypass the unavailable qtchooser program.
7986             (substitute* "configure"
7987               (("test -z \"QTCHOOSER\"")
7988                "false")
7989               (("qtchooser -run-tool=(.*) -qt=qt5" _ command)
7990                command))
7991             #t))
7992         (add-after 'unpack 'fix-paths
7993           (lambda _
7994             (substitute* '("src/pics/Makefile.in"
7995                            "src/translations/Makefile.in")
7996               (("\\$\\(datadir\\)/qGo/")
7997                "$(datadir)/q5go/"))
7998             #t))
7999         (add-after 'install 'install-desktop-file
8000           (lambda* (#:key outputs #:allow-other-keys)
8001             (let* ((out (assoc-ref outputs "out"))
8002                    (apps (string-append out "/share/applications"))
8003                    (pics (string-append out "/share/q5go/pics")))
8004               (delete-file-recursively (string-append out "/share/applnk"))
8005               (delete-file-recursively (string-append out "/share/mimelnk"))
8006               (install-file "../source/src/pics/Bowl.ico" pics)
8007               (mkdir-p apps)
8008               (with-output-to-file (string-append apps "/q5go.desktop")
8009                 (lambda _
8010                   (format #t
8011                           "[Desktop Entry]~@
8012                            Name=q5go~@
8013                            Exec=~a/bin/q5go~@
8014                            Icon=~a/Bowl.ico~@
8015                            Categories=Game;~@
8016                            Comment=Game of Go~@
8017                            Comment[de]=Spiel des Go~@
8018                            Comment[eo]=Goo~@
8019                            Comment[es]=Juego de Go~@
8020                            Comment[fr]=Jeu de Go~@
8021                            Comment[ja]=囲碁~@
8022                            Comment[ko]=바둑~@
8023                            Comment[zh]=围棋~@
8024                            Terminal=false~@
8025                            Type=Application~%"
8026                           out pics))))
8027              #t)))))
8028    (synopsis "Qt GUI to play the game of Go")
8029    (description
8030     "This a tool for Go players which performs the following functions:
8031 @itemize
8032 @item SGF editor,
8033 @item Analysis frontend for Leela Zero (or compatible engines),
8034 @item GTP interface (to play against an engine),
8035 @item IGS client (to play on the internet),
8036 @item Export games to a variety of formats.
8037 @end itemize")
8038    (home-page "https://github.com/bernds/q5Go")
8039    (license license:gpl2+)))
8040
8041 (define-public ktuberling
8042   (package
8043     (name "ktuberling")
8044     (version "19.08.3")
8045     (source
8046      (origin
8047       (method url-fetch)
8048       (uri (string-append "mirror://kde/stable/applications/" version
8049                           "/src/ktuberling-" version ".tar.xz"))
8050       (sha256
8051        (base32 "1qdf4q6wjh1lnlqw5c8z4rpj9w5vbyjfri1dah6yjm3mwppbc12j"))))
8052     (build-system qt-build-system)
8053     (native-inputs
8054      `(("extra-cmake-modules" ,extra-cmake-modules)
8055        ("perl" ,perl)))
8056     (inputs
8057      `(("kcompletion" ,kcompletion)
8058        ("kconfigwidgets" ,kconfigwidgets)
8059        ("kcoreaddons" ,kcoreaddons)
8060        ("kcrash" ,kcrash)
8061        ("kdbusaddons" ,kdbusaddons)
8062        ("kdelibs4support" ,kdelibs4support)
8063        ("ki18n" ,ki18n)
8064        ("kwidgetsaddons" ,kwidgetsaddons)
8065        ("kxmlgui" ,kxmlgui)
8066        ("libkdegames" ,libkdegames)
8067        ("qtbase" ,qtbase)
8068        ("qtmultimedia" ,qtmultimedia)
8069        ("qtdeclarative" ,qtdeclarative)
8070        ("qtsvg" ,qtsvg)))
8071     (home-page "https://games.kde.org/")
8072     (synopsis "Stamp drawing toy")
8073     (description "KTuberling is a drawing toy intended for small children and
8074 adults who remain young at heart.  The game has no winner; the only purpose is
8075 to make the funniest faces you can.  Several activites are possible, e.g.:
8076
8077 @itemize
8078 @item Give the potato a funny face, clothes, and other goodies
8079 @item Build a small town, complete with school, zoo, and fire department
8080 @item Create a fantastic moonscape with spaceships and aliens
8081 @item Top a pizza
8082 @end itemize
8083
8084 KTuberling can speak the name of each the object in several languages,
8085 to assist in learning basic vocabulary.
8086
8087 This package is part of the KDE games module.")
8088     (license (list license:gpl2+ license:fdl1.2+))))
8089
8090 (define-public picmi
8091   (package
8092     (name "picmi")
8093     (version "19.08.3")
8094     (source
8095      (origin
8096       (method url-fetch)
8097       (uri (string-append "mirror://kde/stable/applications/" version
8098                           "/src/picmi-" version ".tar.xz"))
8099       (sha256
8100        (base32 "0z9mpmv49w914gqdx274brdzl6d1bz9j9nkvbwgmr3iq1ba49m3f"))))
8101     (build-system qt-build-system)
8102     (native-inputs
8103      `(("extra-cmake-modules" ,extra-cmake-modules)
8104        ("kdoctools" ,kdoctools)))
8105     (inputs
8106      `(("kcoreaddons" ,kcoreaddons)
8107        ("kcrash" ,kcrash)
8108        ("kdbusaddons" ,kdbusaddons)
8109        ("kdeclarative" ,kdeclarative)
8110        ("ki18n" ,ki18n)
8111        ("kio" ,kio)
8112        ("knewstuff" ,knewstuff)
8113        ("kxmlgui" ,kxmlgui)
8114        ("libkdegames" ,libkdegames)
8115        ("qtbase" ,qtbase)
8116        ("qtdeclarative" ,qtdeclarative)
8117        ("qtsvg" ,qtsvg)))
8118     (home-page "https://games.kde.org/")
8119     (synopsis "Number logic game")
8120     (description "Picmi is a number logic game in which cells in a grid have
8121 to be colored or left blank according to numbers given at the side of the
8122 grid.  The aim is to reveal a hidden picture.
8123
8124 This package is part of the KDE games module.")
8125     (license (list license:gpl2+ license:fdl1.2+))))
8126
8127 (define-public kolf
8128   (package
8129     (name "kolf")
8130     (version "19.08.3")
8131     (source
8132      (origin
8133        (method url-fetch)
8134        (uri (string-append "mirror://kde/stable/applications/" version
8135                            "/src/kolf-" version ".tar.xz"))
8136        (sha256
8137         (base32 "06sfd0llr5cc3zf1vrpcxgw9bm009ky7y8822kynic9ipcd4z1hw"))))
8138     (build-system qt-build-system)
8139     (native-inputs
8140      `(("extra-cmake-modules" ,extra-cmake-modules)
8141        ("kdoctools" ,kdoctools)))
8142     (inputs
8143      `(("kcompletion" ,kcompletion)
8144        ("kconfigwidgets" ,kconfigwidgets)
8145        ("kcoreaddons" ,kcoreaddons)
8146        ("kcrash" ,kcrash)
8147        ("kdbusaddons" ,kdbusaddons)
8148        ("ki18n" ,ki18n)
8149        ("kio" ,kio)
8150        ("kwidgetsaddons" ,kwidgetsaddons)
8151        ("kxmlgui" ,kxmlgui)
8152        ("ktextwidgets" ,ktextwidgets)
8153        ("libkdegames" ,libkdegames)
8154        ("qtbase" ,qtbase)
8155        ("qtdeclarative" ,qtdeclarative)))
8156     (home-page "https://games.kde.org/")
8157     (synopsis "Miniature golf game")
8158     (description "Kolf is a miniature golf game for one to ten players.  The
8159 game is played from an overhead view, with a short bar representing the golf
8160 club.  Kolf features many different types of objects, such as water hazards,
8161 slopes, sand traps, and black holes (warps), among others.
8162
8163 Features are:
8164 @itemize
8165 @item Single and Multi-player (up to ten players) modes
8166 @item High scores table
8167 @item Dynamic courses
8168 @item Third-party courses
8169 @item Course editor
8170 @end itemize
8171
8172 This package is part of the KDE games module.")
8173     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8174
8175 (define-public libkmahjongg
8176   (package
8177     (name "libkmahjongg")
8178     (version "19.08.3")
8179     (source
8180      (origin
8181       (method url-fetch)
8182       (uri (string-append "mirror://kde/stable/applications/"
8183                           version "/src/libkmahjongg-" version ".tar.xz"))
8184       (sha256
8185        (base32 "0rdimk11hrc8qrmiv26z0ddjzi1k6806c0rfskx4cwmildmh6zgx"))))
8186     (build-system qt-build-system)
8187     (native-inputs
8188      `(("extra-cmake-modules" ,extra-cmake-modules)))
8189     (inputs
8190      `(("kauth" ,kauth)
8191        ("kcompletion" ,kcompletion)
8192        ;("kconfig" ,kconfig)
8193        ("kcodecs" ,kcodecs)
8194        ("kconfigwidgets" ,kconfigwidgets)
8195        ("kcoreaddons" ,kcoreaddons)
8196        ("ki18n" ,ki18n)
8197        ("kwidgetsaddons" ,kwidgetsaddons)
8198        ("qtbase" ,qtbase)
8199        ("qtsvg" ,qtsvg)))
8200     (home-page "https://games.kde.org/")
8201     (synopsis "Shared library for kmahjongg and kshisen")
8202     (description "Shared library and common files for kmahjongg, kshisen and
8203 other Mah Jongg like games.")
8204     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8205
8206 (define-public kmahjongg
8207   (package
8208     (name "kmahjongg")
8209     (version "19.08.3")
8210     (source
8211      (origin
8212       (method url-fetch)
8213       (uri (string-append "mirror://kde/stable/applications/"
8214                           version "/src/kmahjongg-" version ".tar.xz"))
8215       (sha256
8216        (base32 "08na845h0nhmfrszdmvfq5y1dy7kgbrlzjp0f5snvbbf7w44ci6p"))))
8217     (build-system qt-build-system)
8218     (native-inputs
8219      `(("extra-cmake-modules" ,extra-cmake-modules)
8220        ("kdoctools" ,kdoctools)))
8221     (inputs
8222      `(("kcompletion" ,kcompletion)
8223        ("kcrash" ,kcrash)
8224        ("kdbusaddons" ,kdbusaddons)
8225        ("kdeclarative" ,kdeclarative)
8226        ("ki18n" ,ki18n)
8227        ("knewstuff" ,knewstuff)
8228        ("kxmlgui" ,kxmlgui)
8229        ("libkdegames" ,libkdegames)
8230        ("libkmahjongg" ,libkmahjongg)
8231        ("qtbase" ,qtbase)
8232        ("qtdeclarative" ,qtdeclarative)
8233        ("qtsvg" ,qtsvg)))
8234     (home-page "https://games.kde.org/")
8235     (synopsis "Tile laying patience")
8236     (description "In KMahjongg the tiles are scrambled and staked on top of
8237 each other to resemble a certain shape.  The player is then expected to remove
8238 all the tiles off the game board by locating each tile's matching pair.
8239
8240 A variety of tile layouts are included, as well as an editor to create new
8241 layouts.
8242
8243 This package is part of the KDE games module.")
8244     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8245
8246 (define-public kshisen
8247   (package
8248     (name "kshisen")
8249     (version "19.08.3")
8250     (source
8251      (origin
8252       (method url-fetch)
8253       (uri (string-append "mirror://kde/stable/applications/"
8254                           version "/src/kshisen-" version ".tar.xz"))
8255       (sha256
8256        (base32 "1bq5m48af4h5apfp3bfsp76nlpv6h5sc0gd544zv7cgpfznz1sds"))))
8257     (build-system qt-build-system)
8258     (native-inputs
8259      `(("extra-cmake-modules" ,extra-cmake-modules)
8260        ;("perl" ,perl)
8261        ;("pkg-config" ,pkg-config)
8262        ("kdoctools" ,kdoctools)))
8263     (inputs
8264      `(("kauth" ,kauth)
8265        ("kcompletion" ,kcompletion)
8266        ("kconfigwidgets" ,kconfigwidgets)
8267        ("kcoreaddons" ,kcoreaddons)
8268        ("kcrash" ,kcrash)
8269        ("kdbusaddons" ,kdbusaddons)
8270        ("ki18n" ,ki18n)
8271        ("kxmlgui" ,kxmlgui)
8272        ("libkdegames" ,libkdegames)
8273        ("libkmahjongg" ,libkmahjongg)
8274        ("qtbase" ,qtbase)
8275        ("qtdeclarative" ,qtdeclarative)))
8276     (home-page "https://games.kde.org/")
8277     (synopsis "Shisen-Sho solitaire game")
8278     (description "KShisen is a solitaire-like game played using the standard
8279 set of Mahjong tiles.  Unlike Mahjong however, KShisen has only one layer of
8280 scrambled tiles
8281
8282 This package is part of the KDE games module.")
8283     (license license:gpl2+)))
8284
8285 (define-public kajongg
8286   (package
8287     (name "kajongg")
8288     (version "19.08.3")
8289     (source
8290      (origin
8291       (method url-fetch)
8292       (uri (string-append "mirror://kde/stable/applications/"
8293                           version "/src/kajongg-" version ".tar.xz"))
8294       (sha256
8295        (base32 "0ql6p5zifdpdf65r7ki9ml123azpwwk9x3x8r9ij6xhjnf7p7x6w"))))
8296     (build-system qt-build-system)
8297     (native-inputs
8298      `(("extra-cmake-modules" ,extra-cmake-modules)
8299        ;("perl" ,perl)
8300        ("kdoctools" ,kdoctools)))
8301     (inputs
8302      `(("kconfig" ,kconfig)
8303        ("kconfigwidgets" ,kconfigwidgets)
8304        ("kcoreaddons" ,kcoreaddons)
8305        ("ki18n" ,ki18n)
8306        ("libkmahjongg" ,libkmahjongg)
8307        ("python" ,python)
8308        ("qtbase" ,qtbase)
8309        ("qtsvg" ,qtsvg)))
8310     (propagated-inputs
8311      `(("python-twisted" ,python-twisted)
8312        ("python-pyqt" ,python-pyqt)))
8313     ;; FIXME: Need to wrap PYTHONPATH
8314     (home-page "https://games.kde.org/")
8315     (synopsis "Classical Mah Jongg game for 4 players")
8316     (description "Kajongg is the ancient Chinese board game for 4 players.
8317
8318 If you are looking for the Mah Jongg solitaire please use the application
8319 kmahjongg.
8320
8321 Kajongg can be used in two different ways: Scoring a manual game where you
8322 play as always and use Kajongg for the computation of scores and for
8323 bookkeeping.  Or you can use Kajongg to play against any combination of other
8324 human players or computer players.
8325
8326 This package is part of the KDE games module.")
8327     (license (list license:gpl2+ license:fdl1.2+))))
8328
8329 (define-public kbreakout
8330   (package
8331     (name "kbreakout")
8332     (version "19.08.3")
8333     (source
8334      (origin
8335       (method url-fetch)
8336       (uri (string-append "mirror://kde/stable/applications/" version
8337                           "/src/kbreakout-" version ".tar.xz"))
8338       (sha256
8339        (base32 "0gwzx1z9mxrjlcjzglg8cxkyd6900whcar3b5j9laxxarc6xhj8w"))))
8340     (build-system qt-build-system)
8341     (native-inputs
8342      `(("extra-cmake-modules" ,extra-cmake-modules)
8343        ("kdoctools" ,kdoctools)))
8344     (inputs
8345      `(("kcompletion" ,kcompletion)
8346        ("kconfig" ,kconfig)
8347        ("kconfigwidgets" ,kconfigwidgets)
8348        ("kcoreaddons" ,kcoreaddons)
8349        ("kcrash" ,kcrash)
8350        ("kdbusaddons" ,kdbusaddons)
8351        ("ki18n" ,ki18n)
8352        ("kwidgetsaddons" ,kwidgetsaddons)
8353        ("kxmlgui" ,kxmlgui)
8354        ("libkdegames" ,libkdegames)
8355        ("qtbase" ,qtbase)
8356        ("qtdeclarative" ,qtdeclarative)))
8357     (home-page "https://games.kde.org/")
8358     (synopsis "Breakout like game")
8359     (description "KBreakout is similar to the classics breakout and xboing,
8360 featuring a number of added graphical enhancements and effects.  You control a
8361 paddle at the bottom of the playing-field, and must destroy bricks at the top
8362 by bouncing balls against them.
8363
8364 This package is part of the KDE games module.")
8365     (license (list license:gpl2+ license:fdl1.2+))))
8366
8367 (define-public kmines
8368   (package
8369     (name "kmines")
8370     (version "19.08.3")
8371     (source
8372      (origin
8373       (method url-fetch)
8374       (uri (string-append "mirror://kde/stable/applications/" version
8375                           "/src/kmines-" version ".tar.xz"))
8376       (sha256
8377        (base32 "0ac3za36lh8hpx6mqfic9amwmzhzhzplm9hg3pw12gxl5a9mvfsf"))))
8378     (build-system qt-build-system)
8379     (native-inputs
8380      `(("extra-cmake-modules" ,extra-cmake-modules)
8381        ("kdoctools" ,kdoctools)))
8382     (inputs
8383      `(("kcompletion" ,kcompletion)
8384        ("kconfig" ,kconfig)
8385        ("kconfigwidgets" ,kconfigwidgets)
8386        ("kcoreaddons" ,kcoreaddons)
8387        ("kcrash" ,kcrash)
8388        ("kdbusaddons" ,kdbusaddons)
8389        ("ki18n" ,ki18n)
8390        ("ktextwidgets" ,ktextwidgets)
8391        ("kwidgetsaddons" ,kwidgetsaddons)
8392        ("kxmlgui" ,kxmlgui)
8393        ("libkdegames" ,libkdegames)
8394        ("qtbase" ,qtbase)
8395        ("qtdeclarative" ,qtdeclarative)))
8396     (home-page "https://games.kde.org/")
8397     (synopsis "Classical mine sweeper game")
8398     (description "KMines is a classic Minesweeper game.  The idea is to
8399 uncover all the squares without blowing up any mines.  When a mine is blown
8400 up, the game is over.
8401
8402 This package is part of the KDE games module.")
8403     (license (list license:gpl2+ license:fdl1.2+))))
8404
8405 (define-public konquest
8406   (package
8407     (name "konquest")
8408     (version "19.08.3")
8409     (source
8410      (origin
8411       (method url-fetch)
8412       (uri (string-append "mirror://kde/stable/applications/"
8413                           version "/src/konquest-" version ".tar.xz"))
8414       (sha256
8415        (base32 "02gjxskhi10a1sqh3skcild8zria7wncz1a4sbz7ax1p851q76k1"))))
8416     (build-system qt-build-system)
8417     (native-inputs
8418      `(("extra-cmake-modules" ,extra-cmake-modules)
8419        ("kdoctools" ,kdoctools)))
8420     (inputs
8421      `(("kcompletion" ,kcompletion)
8422        ("kconfig" ,kconfig)
8423        ("kcoreaddons" ,kcoreaddons)
8424        ("kcrash" ,kcrash)
8425        ("kdbusaddons" ,kdbusaddons)
8426        ("kguiaddons" ,kguiaddons)
8427        ("ki18n" ,ki18n)
8428        ("kwidgetsaddons" ,kwidgetsaddons)
8429        ("kxmlgui" ,kxmlgui)
8430        ("libkdegames" ,libkdegames)
8431        ("qtbase" ,qtbase)
8432        ("qtdeclarative" ,qtdeclarative)
8433        ("qtsvg" ,qtsvg)))
8434     (home-page "https://games.kde.org/")
8435     (synopsis "Simple turn-based strategy game")
8436     (description "Konquest is the KDE version of Gnu-Lactic Konquest.  Players
8437 conquer other planets by sending ships to them.  The goal is to build an
8438 interstellar empire and ultimately conquer all other player's planets.  The
8439 game can be played with up to nine empires, commanded either by the computer
8440 or by puny earthlings.
8441
8442 This package is part of the KDE games module.")
8443     (license (list license:gpl2+ license:fdl1.2+))))
8444
8445 (define-public kbounce
8446   (package
8447     (name "kbounce")
8448     (version "19.08.3")
8449     (source
8450      (origin
8451       (method url-fetch)
8452       (uri (string-append "mirror://kde/stable/applications/"
8453                           version "/src/kbounce-" version ".tar.xz"))
8454       (sha256
8455        (base32 "02rfv0qzz5cmyfx8f56a45hbm9gsp6m3dcy8ajwx88rw5wpbrr11"))))
8456     (build-system qt-build-system)
8457     (native-inputs
8458      `(("extra-cmake-modules" ,extra-cmake-modules)
8459        ("kdoctools" ,kdoctools)))
8460     (inputs
8461      `(("kcompletion" ,kcompletion)
8462        ("kconfigwidgets" ,kconfigwidgets)
8463        ("kcoreaddons" ,kcoreaddons)
8464        ("kcrash" ,kcrash)
8465        ("kdbusaddons" ,kdbusaddons)
8466        ("ki18n" ,ki18n)
8467        ("kio" ,kio)
8468        ("kwidgetsaddons" ,kwidgetsaddons)
8469        ("kxmlgui" ,kxmlgui)
8470        ("libkdegames" ,libkdegames)
8471        ("qtbase" ,qtbase)
8472        ("qtdeclarative" ,qtdeclarative)
8473        ("qtsvg" ,qtsvg)))
8474     (home-page "https://games.kde.org/")
8475     (synopsis "Jezzball arcade game")
8476     (description "KBounce is a single player arcade game with the elements of
8477 puzzle.  It is played on a field, surrounded by wall, with two or more balls
8478 bouncing around within the walls.  The object of the game is to build new
8479 walls to decrease the size of the active field.
8480
8481 This package is part of the KDE games module.")
8482     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8483
8484 (define-public kblocks
8485   (package
8486     (name "kblocks")
8487     (version "19.08.3")
8488     (source
8489      (origin
8490       (method url-fetch)
8491       (uri (string-append "mirror://kde/stable/applications/"
8492                           version "/src/kblocks-" version ".tar.xz"))
8493       (sha256
8494        (base32 "0qrm0dihzhkxsq9l49ndzms802x6jn92vvabb2zf2q9z593m69cx"))))
8495     (build-system qt-build-system)
8496     (native-inputs
8497      `(("extra-cmake-modules" ,extra-cmake-modules)
8498        ("kdoctools" ,kdoctools)))
8499     (inputs
8500      `(("kcompletion" ,kcompletion)
8501        ("kconfig" ,kconfig)
8502        ("kconfigwidgets" ,kconfigwidgets)
8503        ("kcoreaddons" ,kcoreaddons)
8504        ("kcrash" ,kcrash)
8505        ("kdbusaddons" ,kdbusaddons)
8506        ("ki18n" ,ki18n)
8507        ("kwidgetsaddons" ,kwidgetsaddons)
8508        ("kxmlgui" ,kxmlgui)
8509        ("libkdegames" ,libkdegames)
8510        ("qtbase" ,qtbase)
8511        ("qtdeclarative" ,qtdeclarative)
8512        ("qtsvg" ,qtsvg)))
8513     (home-page "https://games.kde.org/")
8514     (synopsis "Single player falling blocks puzzle game")
8515     (description "KBlocks is the classic Tetris-like falling blocks game.
8516
8517 The idea is to stack the falling blocks to create horizontal lines without any
8518 gaps.  When a line is completed it is removed, and more space is available in
8519 the play area.  When there is not enough space for blocks to fall, the game is
8520 over.
8521
8522 This package is part of the KDE games module.")
8523     (license (list license:gpl2+ license:fdl1.2+))))
8524
8525 (define-public ksudoku
8526   (package
8527     (name "ksudoku")
8528     (version "19.08.3")
8529     (source
8530      (origin
8531       (method url-fetch)
8532       (uri (string-append "mirror://kde/stable/applications/"
8533                           version "/src/ksudoku-" version ".tar.xz"))
8534       (sha256
8535        (base32 "0rcscz91hilm7l3am5w02n0n8l7xhi4l0n4sskznh68kblw0ggw2"))))
8536     (build-system qt-build-system)
8537     (native-inputs
8538      `(("extra-cmake-modules" ,extra-cmake-modules)
8539        ("kdoctools" ,kdoctools)))
8540     (inputs
8541      `(("karchive", karchive)
8542        ("kconfig" ,kconfig)
8543        ("kconfigwidgets" ,kconfigwidgets)
8544        ("kcoreaddons" ,kcoreaddons)
8545        ("kcrash" ,kcrash)
8546        ("kguiaddons" ,kguiaddons)
8547        ("ki18n" ,ki18n)
8548        ("kiconthemes" ,kiconthemes)
8549        ("kio" ,kio)
8550        ("kwidgetsaddons" ,kwidgetsaddons)
8551        ("kxmlgui" ,kxmlgui)
8552        ("libkdegames" ,libkdegames)
8553        ("glu" ,glu)
8554        ("qtbase" ,qtbase)
8555        ("qtdeclarative" ,qtdeclarative)
8556        ("qtsvg" ,qtsvg)))
8557     (home-page "https://games.kde.org/")
8558     (synopsis "Sudoku puzzle game and solver")
8559     (description "KSudoku is a Sudoku game and solver, supporting a range of
8560 2D and 3D Sudoku variants.  In addition to playing Sudoku, it can print Sudoku
8561 puzzle sheets and find the solution to any Sudoku puzzle.
8562
8563 The word Sudoku means \"single number in an allotted place\" in Japanese.
8564 These are the basic rules: Every Sudoku is a square divided into 3x3
8565 subsquares with 3x3 cells each.
8566
8567 Some cells are filled with a number at the beginning.  The remaining ones are
8568 to be filled by the player using numbers from 1 to 9, without repeating a
8569 number twice on each column, row or subsquare (each of them must contain only
8570 one 1, one 2, one 3, and so on).  The game requires logic and patience.
8571 Solving takes usually 10 to 30 minutes, depending on puzzle level, your skill
8572 and experience.
8573
8574 The numerals in Sudoku puzzles are used for convenience (for example in 16x16
8575 board we use letters): arithmetic relationships between numbers are
8576 irrelevant.
8577
8578 This program supports also 16x16 games with numbers from 1 to 16 and 256
8579 cells with 16 cols, rows and subsquares!
8580
8581 More information at http://en.wikipedia.org/wiki/Sudoku
8582
8583 This package is part of the KDE games module.")
8584     (license (list license:gpl2+ license:fdl1.2+))))
8585
8586 (define-public klines
8587   (package
8588     (name "klines")
8589     (version "19.08.3")
8590     (source
8591      (origin
8592       (method url-fetch)
8593       (uri (string-append "mirror://kde/stable/applications/" version
8594                           "/src/klines-" version ".tar.xz"))
8595       (sha256
8596        (base32 "1g1f46jp0rb8gpqkgcf915ydpsscn1sxk3gjvm8bcqgx9ddq59xa"))))
8597     (build-system qt-build-system)
8598     (native-inputs
8599      `(("extra-cmake-modules" ,extra-cmake-modules)
8600        ("kdoctools" ,kdoctools)))
8601     (inputs
8602      `(("kcompletion" ,kcompletion)
8603        ("kconfigwidgets" ,kconfigwidgets)
8604        ("kcoreaddons" ,kcoreaddons)
8605        ("kcrash" ,kcrash)
8606        ("kdbusaddons" ,kdbusaddons)
8607        ("ki18n" ,ki18n)
8608        ("kwidgetsaddons" ,kwidgetsaddons)
8609        ("kxmlgui" ,kxmlgui)
8610        ("libkdegames" ,libkdegames)
8611        ("qtbase" ,qtbase)
8612        ("qtdeclarative" ,qtdeclarative)))
8613     (home-page "https://games.kde.org/")
8614     (synopsis "Place 5 equal pieces together, but wait, there are 3 new ones")
8615     (description "KLines is a simple but highly addictive one player game.
8616
8617 The player has to move the colored balls around the game board, gathering them
8618 into the lines of the same color by five.  Once the line is complete it is
8619 removed from the board, therefore freeing precious space.  In the same time
8620 the new balls keep arriving by three after each move, filling up the game
8621 board.
8622
8623 KLines is a single-player game where the player removes colored balls from the
8624 board by arranging them into lines of five or more.  However, every time the
8625 player moves a ball, three more balls are added to the board.
8626
8627 This package is part of the KDE games module.")
8628     (license (list license:gpl2+ license:fdl1.2+))))
8629
8630 (define-public kgoldrunner
8631   (package
8632     (name "kgoldrunner")
8633     (version "19.08.3")
8634     (source
8635      (origin
8636       (method url-fetch)
8637       (uri (string-append "mirror://kde/stable/applications/" version "/src/kgoldrunner-"
8638                            version ".tar.xz"))
8639       (sha256
8640        (base32 "16rcvq796r3asz4v4ap75xvwnxd3dd2nsq5r9vxvzl6rrf1w9bj4"))))
8641     (build-system qt-build-system)
8642     (native-inputs
8643      `(("extra-cmake-modules" ,extra-cmake-modules)
8644        ("kdoctools" ,kdoctools)))
8645     (inputs
8646      `(("kcompletion" ,kcompletion)
8647        ("kcoreaddons" ,kcoreaddons)
8648        ("kcrash" ,kcrash)
8649        ("kdbusaddons" ,kdbusaddons)
8650        ("ki18n" ,ki18n)
8651        ("kio" ,kio)
8652        ("kwidgetsaddons" ,kwidgetsaddons)
8653        ("kxmlgui" ,kxmlgui)
8654        ("libkdegames" ,libkdegames)
8655        ("qtbase" ,qtbase)
8656        ("qtdeclarative" ,qtdeclarative)))
8657     (home-page "https://games.kde.org/")
8658     (synopsis "Action and puzzle solving game")
8659     (description "KGoldrunner is an action game where the hero runs through a
8660 maze, climbs stairs, dig holes and dodges enemies in order to collect all the
8661 gold nuggets and escape to the next level.  Your enemies are also after the
8662 gold.  Worse still, they are after you!.
8663
8664 KGoldrunner is a fast-paced platform game where the player must navigate a
8665 maze while collecting gold nuggets and avoiding enemies.  A variety of level
8666 packs are included, as well as an editor to create new levels.
8667
8668 This package is part of the KDE games module.")
8669     (license (list license:gpl2+ license:fdl1.2+))))
8670
8671 (define-public kdiamond
8672   (package
8673     (name "kdiamond")
8674     (version "19.08.3")
8675     (source
8676      (origin
8677       (method url-fetch)
8678       (uri (string-append "mirror://kde/stable/applications/" version
8679                           "/src/kdiamond-" version ".tar.xz"))
8680       (sha256
8681        (base32 "1v5yb9hb26lk277zhw8d37ks829yfqr5anzx1qhms44gca5kqhva"))))
8682     (build-system qt-build-system)
8683     (native-inputs
8684      `(("extra-cmake-modules" ,extra-cmake-modules)
8685        ("kdoctools" ,kdoctools)))
8686     (inputs
8687      `(("kcompletion", kcompletion)
8688        ("kconfig" ,kconfig)
8689        ("kconfigwidgets" ,kconfigwidgets)
8690        ("kcoreaddons" ,kcoreaddons)
8691        ("kcrash" ,kcrash)
8692        ("kdbusaddons" ,kdbusaddons)
8693        ("ki18n" ,ki18n)
8694        ("knotifications" ,knotifications)
8695        ("knotifyconfig" ,knotifyconfig)
8696        ("kwidgetsaddons" ,kwidgetsaddons)
8697        ("kxmlgui" ,kxmlgui)
8698        ("libkdegames" ,libkdegames)
8699        ("qtbase" ,qtbase)
8700        ("qtdeclarative" ,qtdeclarative)))
8701     (home-page "https://games.kde.org/")
8702     (synopsis "Three-in-a-row game")
8703     (description "KDiamond is a three-in-a-row game like Bejeweled.  It
8704 features unlimited fun with randomly generated games and five difficulty
8705 levels with varying number of diamond colors and board sizes.
8706
8707 This package is part of the KDE games module.")
8708     (license (list license:gpl2+ license:fdl1.2+))))
8709
8710 (define-public kfourinline
8711   (package
8712     (name "kfourinline")
8713     (version "19.08.3")
8714     (source
8715      (origin
8716       (method url-fetch)
8717       (uri (string-append "mirror://kde/stable/applications/" version
8718                           "/src/kfourinline-" version ".tar.xz"))
8719       (sha256
8720        (base32 "1vprs6dc1ccn3g6k594i9s94xy4b91vzlqjysyc6fqcq2fs54ny3"))))
8721     (build-system qt-build-system)
8722     (native-inputs
8723      `(("extra-cmake-modules" ,extra-cmake-modules)
8724        ("kdoctools" ,kdoctools)))
8725     (inputs
8726      `(("kcompletion" ,kcompletion)
8727        ("kconfig" ,kconfig)
8728        ("kconfigwidgets" ,kconfigwidgets)
8729        ("kcoreaddons" ,kcoreaddons)
8730        ("kcrash" ,kcrash)
8731        ("kdelibs4support" ,kdelibs4support)
8732        ("kdnssd" ,kdnssd)
8733        ("ki18n" ,ki18n)
8734        ("kxmlgui" ,kxmlgui)
8735        ("libkdegames" ,libkdegames)
8736        ("qtbase" ,qtbase)
8737        ("qtdeclarative" ,qtdeclarative)
8738        ("qtsvg" ,qtsvg)))
8739     (home-page "https://games.kde.org/")
8740     (synopsis "Place 4 pieces in a row")
8741     (description "KFourInLine is a board game for two players based on the
8742 Connect-Four game.
8743
8744 KFourInLine is a game where two players take turns dropping pieces into a
8745 grid, the winner being the first to place four pieces in a line.
8746
8747 This package is part of the KDE games module.")
8748     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8749
8750 (define-public kblackbox
8751   (package
8752     (name "kblackbox")
8753     (version "19.08.3")
8754     (source
8755      (origin
8756       (method url-fetch)
8757       (uri (string-append "mirror://kde/stable/applications/" version
8758                           "/src/kblackbox-" version ".tar.xz"))
8759       (sha256
8760        (base32 "1x42sfpf75c6mavwkc7g7dm11y9s5dpj8igphly5kvm0pajqby0n"))))
8761     (build-system qt-build-system)
8762     (native-inputs
8763      `(("extra-cmake-modules" ,extra-cmake-modules)
8764        ("kdoctools" ,kdoctools)))
8765     (inputs
8766      `(("karchive" ,karchive)
8767        ("kcompletion" ,kcompletion)
8768        ("kconfig" ,kconfig)
8769        ("kcoreaddons" ,kcoreaddons)
8770        ("kcrash" ,kcrash)
8771        ("kdbusaddons" ,kdbusaddons)
8772        ("ki18n" ,ki18n)
8773        ("ktextwidgets" ,ktextwidgets)
8774        ("kxmlgui" ,kxmlgui)
8775        ("libkdegames" ,libkdegames)
8776        ("qtbase" ,qtbase)
8777        ("qtdeclarative" ,qtdeclarative)
8778        ("qtsvg" ,qtsvg)))
8779     (home-page "https://games.kde.org/")
8780     (synopsis "Find atoms in a grid by shooting electrons")
8781     (description "KBlackbox is a game of hide and seek played on a grid of
8782 boxes where the computer has hidden several balls.  The position of the hidden
8783 balls can be deduced by shooting beams into the box
8784
8785 KBlackBox is a game of hide and seek played on an grid of boxes, where the
8786 player shoots rays into the grid to deduce the positions of hidden objects.
8787
8788 This package is part of the KDE games module.")
8789     (license (list license:gpl2+ license:fdl1.2+))))
8790
8791 (define-public knetwalk
8792   (package
8793     (name "knetwalk")
8794     (version "19.08.3")
8795     (source
8796      (origin
8797       (method url-fetch)
8798       (uri (string-append "mirror://kde/stable/applications/" version
8799                           "/src/knetwalk-" version ".tar.xz"))
8800       (sha256
8801        (base32 "1i340salzgqdw8y33wrrydmpgx3pvwf5wrbljlh67cjf6s4csx7d"))))
8802     (build-system qt-build-system)
8803     (native-inputs
8804      `(("extra-cmake-modules" ,extra-cmake-modules)
8805        ("kdoctools" ,kdoctools)))
8806     (inputs
8807      `(("kcompletion" ,kcompletion)
8808        ("kconfig" ,kconfig)
8809        ("kconfigwidgets" ,kconfigwidgets)
8810        ("kcoreaddons" ,kcoreaddons)
8811        ("kcrash" ,kcrash)
8812        ("kdbusaddons" ,kdbusaddons)
8813        ("ki18n" ,ki18n)
8814        ("ktextwidgets" ,ktextwidgets)
8815        ("kwidgetsaddons" ,kwidgetsaddons)
8816        ("kxmlgui" ,kxmlgui)
8817        ("libkdegames" ,libkdegames)
8818        ("qtbase" ,qtbase)
8819        ("qtdeclarative" ,qtdeclarative)))
8820     (home-page "https://games.kde.org/")
8821     (synopsis "Turn the board pieces to get all computers connected")
8822     (description "KNetWalk is a small game where you have to build up a
8823 computer network by rotating the wires to connect the terminals to the server.
8824 When the network is build, a highscore-list comes up where competitions can be
8825 fought out.
8826
8827 KNetwalk is a puzzle game where the player arranges sections of wire to
8828 connect all the computers on the board.
8829
8830 This package is part of the KDE games module.")
8831     (license (list license:gpl2+ license:fdl1.2+))))
8832
8833 (define-public bomber
8834   (package
8835     (name "bomber")
8836     (version "19.08.3")
8837     (source
8838      (origin
8839        (method url-fetch)
8840        (uri (string-append "mirror://kde/stable/applications/" version
8841                            "/src/bomber-" version ".tar.xz"))
8842        (sha256
8843         (base32 "1lvzd0mzgq25akvwvkm57l3plm65k731v2i1ahakn985bb5gc3is"))))
8844     (build-system qt-build-system)
8845     (native-inputs
8846      `(("extra-cmake-modules" ,extra-cmake-modules)
8847        ("kdoctools" ,kdoctools)))
8848     (inputs
8849      `(("kcompletiom" ,kcompletion)
8850        ("kconfig" ,kconfig)
8851        ("kcoreaddons" ,kcoreaddons)
8852        ("kcrash" ,kcrash)
8853        ("kdbusaddons" ,kdbusaddons)
8854        ("ki18n" ,ki18n)
8855        ("kxmlgui" ,kxmlgui)
8856        ("libkdegames" ,libkdegames)
8857        ("qtbase" ,qtbase)
8858        ("qtdeclarative" ,qtdeclarative)))
8859     (home-page "https://games.kde.org/")
8860     (synopsis "Arcade bombing game")
8861     (description "Bomber is a single player arcade game.
8862
8863 The player is invading various cities in a plane that is decreasing in height.
8864 The goal of the game is to destroy all the buildings and advance to the next
8865 level.  Each level gets a bit harder by increasing the speed of the plane and
8866 the height of the buildings.
8867
8868 Bomber is a game where you fly a spaceship and attempt to bomb the buildings
8869 below you.  Each pass the spaceship makes, it gets lower and lower.  If you've
8870 not destroyed a building in your path, you will crash into it.
8871
8872 This package is part of the KDE games module.")
8873     (license (list license:gpl2+ license:fdl1.2+))))
8874
8875 (define-public granatier
8876   (package
8877     (name "granatier")
8878     (version "19.08.3")
8879     (source
8880      (origin
8881       (method url-fetch)
8882       (uri (string-append "mirror://kde/stable/applications/" version
8883                           "/src/granatier-" version ".tar.xz"))
8884       (sha256
8885        (base32 "141qmdinz7ikbbrs8dq6cap3nl22sl7pw62r80pf3xxwn2q4phpa"))))
8886     (build-system qt-build-system)
8887     (native-inputs
8888      `(("extra-cmake-modules" ,extra-cmake-modules)
8889        ("kdoctools" ,kdoctools)))
8890     (inputs
8891      `(("kcompletion" ,kcompletion)
8892        ("kconfig" ,kconfig)
8893        ("kconfigwidgets" ,kconfigwidgets)
8894        ("kcoreaddons" ,kcoreaddons)
8895        ("kcrash" ,kcrash)
8896        ("kdbusaddons" ,kdbusaddons)
8897        ("ki18n" ,ki18n)
8898        ("knewstuff" ,knewstuff)
8899        ("kwidgetsaddons" ,kwidgetsaddons)
8900        ("kxmlgui" ,kxmlgui)
8901        ("libkdegames" ,libkdegames)
8902        ("qtbase" ,qtbase)
8903        ("qtdeclarative" ,qtdeclarative)
8904        ("qtsvg" ,qtsvg)))
8905     (home-page "https://games.kde.org/")
8906     (synopsis "Bomberman clone")
8907     (description "Granatier is a clone of the classic Bomberman game,
8908 inspired by the work of the Clanbomber clone.
8909
8910 This package is part of the KDE games module.")
8911     (license (list license:gpl2+ license:fdl1.2+))))
8912
8913 (define-public ksirk
8914   (package
8915     (name "ksirk")
8916     (version "19.08.3")
8917     (source
8918      (origin
8919        (method url-fetch)
8920        (uri (string-append "mirror://kde/stable/applications/" version
8921                           "/src/ksirk-" version ".tar.xz"))
8922        (sha256
8923         (base32 "1b1wixs2hp5qnvdygfwa3kvy0kn94ysa4ifmx90q6r3yfr2lpfca"))))
8924     (build-system qt-build-system)
8925     (native-inputs
8926      `(("extra-cmake-modules" ,extra-cmake-modules)
8927        ("kdoctools" ,kdoctools)))
8928     (inputs
8929      `(("kcrash" ,kcrash)
8930        ("ki18n" ,ki18n)
8931        ("kiconthemes" ,kiconthemes)
8932        ("kio" ,kio)
8933        ("knewstuff" ,knewstuff)
8934        ("kwallet" ,kwallet)
8935        ("kxmlgui" ,kxmlgui)
8936        ("libkdegames" ,libkdegames)
8937        ("phonon" ,phonon)
8938        ("qca" ,qca)
8939        ("qtbase" ,qtbase)
8940        ("qtdeclarative" ,qtdeclarative)
8941        ("qtsvg" ,qtsvg)
8942        ("zlib" ,zlib)))
8943     (home-page "https://games.kde.org/")
8944     (synopsis "Computerized version of the well known strategy board game
8945 'Risk'")
8946     (description "KsirK is a multi-player network-enabled game.  The goal of
8947 the game is simply to conquer the world by attacking your neighbors with your
8948 armies.
8949
8950 At the beginning of the game, countries are distributed to all the players.
8951 Each country contains one army represented by an infantryman.  Each player has
8952 some armies to distribute to his countries.  On each turn, each player can
8953 attack his neighbours, eventually conquering one or more countries.  At the
8954 end of each turn, some bonus armies are distributed to the players in function
8955 of the number of countries they own.  The winner is the player that conquered
8956 all the world.
8957
8958 Features:
8959 @itemize
8960 @item Support for 1-6 human or computer players
8961 @item Multi-player gaming over a network
8962 @item You can easily create new skins with SVG graphics and the skin editor
8963 @item Hot New Stuff support.  You can easily download and install new skins
8964 @end itemize
8965
8966 This package is part of the KDE games module.")
8967     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
8968
8969 (define-public palapeli
8970   (package
8971     (name "palapeli")
8972     (version "19.08.3")
8973     (source
8974      (origin
8975        (method url-fetch)
8976        (uri (string-append "mirror://kde/stable/applications/" version
8977                            "/src/palapeli-" version ".tar.xz"))
8978        (sha256
8979         (base32 "1g91ydbc0x2y2gn3lcb5w03mn7k78l5bq4cb1s59kx6yjbflv3pw"))))
8980     (build-system qt-build-system)
8981     (native-inputs
8982      `(("extra-cmake-modules" ,extra-cmake-modules)
8983        ("kdoctools" ,kdoctools)))
8984     (inputs
8985      `(("karchive" ,karchive)
8986        ("kcompletion" ,kcompletion)
8987        ("kconfig" ,kconfig)
8988        ("kconfigwidgets" ,kconfigwidgets)
8989        ("kcoreaddons" ,kcoreaddons)
8990        ("kcrash" ,kcrash)
8991        ("kcrash" ,kcrash)
8992        ("ki18n" ,ki18n)
8993        ("ki18n" ,ki18n)
8994        ("kio" ,kio)
8995        ("kitemviews" ,kitemviews)
8996        ("knotifications" ,knotifications)
8997        ("kservice" ,kservice)
8998        ("kwidgetsaddons" ,kwidgetsaddons)
8999        ("kxmlgui" ,kxmlgui)
9000        ("libkdegames" ,libkdegames)
9001        ("qtbase" ,qtbase)
9002        ("qtdeclarative" ,qtdeclarative)
9003        ("qtsvg" ,qtsvg)
9004        ("shared-mime-info" ,shared-mime-info)))
9005     (home-page "https://games.kde.org/")
9006     (synopsis "Jigsaw puzzle game")
9007     (description "Palapeli is a jigsaw puzzle game.  Unlike other games in
9008 that genre, you are not limited to aligning pieces on imaginary grids.  The
9009 pieces are freely moveable.  Also, Palapeli features real persistency, i.e.
9010 everything you do is saved on your disk immediately.
9011
9012 Palapeli is the Finnish word for jigsaw puzzle.
9013
9014 This package is part of the KDE games module.")
9015     (license license:gpl2+)))
9016
9017 (define-public kiriki
9018   (package
9019     (name "kiriki")
9020     (version "19.08.3")
9021     (source
9022      (origin
9023        (method url-fetch)
9024        (uri (string-append "mirror://kde/stable/applications/" version
9025                            "/src/kiriki-" version ".tar.xz"))
9026        (sha256
9027         (base32 "1xg25dj95g81dc5l7k47am4j52abrwwfx4h73lvsbn4lc8lfmshw"))))
9028     (build-system qt-build-system)
9029     (native-inputs
9030      `(("extra-cmake-modules" ,extra-cmake-modules)
9031        ("kdoctools" ,kdoctools)))
9032     (inputs
9033      `(("kcompletion" ,kcompletion)
9034        ("kconfig" ,kconfig)
9035        ("kconfigwidgets" ,kconfigwidgets)
9036        ("kcoreaddons" ,kcoreaddons)
9037        ("kcrash" ,kcrash)
9038        ("kdbusaddons" ,kdbusaddons)
9039        ("ki18n" ,ki18n)
9040        ("kiconthemes" ,kiconthemes)
9041        ("kxmlgui" ,kxmlgui)
9042        ("libkdegames" ,libkdegames)
9043        ("qtbase" ,qtbase)
9044        ("qtdeclarative" ,qtdeclarative)))
9045     (home-page "https://games.kde.org/")
9046     (synopsis "Yahtzee dice game")
9047     (description "Kiriki is an addictive and fun dice game, designed to be
9048 played by as many as six players.
9049
9050 Participants have to collect points by rolling five dice for up to three times
9051 per single turn to make combinations with the highest score.
9052
9053 This package is part of the KDE games module.")
9054     (license (list license:gpl2+ license:fdl1.2+))))
9055
9056 (define-public kigo
9057   (package
9058     (name "kigo")
9059     (version "19.08.3")
9060     (source
9061      (origin
9062        (method url-fetch)
9063        (uri (string-append "mirror://kde/stable/applications/" version
9064                            "/src/kigo-" version ".tar.xz"))
9065        (sha256
9066         (base32 "00l5gcbi8xyj9c1lngkrddka3a4m4cd78prfplrpq32ma9xq681f"))))
9067     (build-system qt-build-system)
9068     (native-inputs
9069      `(("extra-cmake-modules" ,extra-cmake-modules)
9070        ("kdoctools" ,kdoctools)))
9071     (inputs
9072      `(("kconfig" ,kconfig)
9073        ("kconfigwidgets" ,kconfigwidgets)
9074        ("kcoreaddons" ,kcoreaddons)
9075        ("kcrash" ,kcrash)
9076        ("kdbusaddons" ,kdbusaddons)
9077        ("ki18n" ,ki18n)
9078        ("kio" ,kio)
9079        ("knewstuff", knewstuff)
9080        ("ktextwidgets" ,ktextwidgets)
9081        ("kxmlgui" ,kxmlgui)
9082        ("libkdegames" ,libkdegames)
9083        ("qtbase" ,qtbase)
9084        ("qtdeclarative" ,qtdeclarative)
9085        ("qtsvg" ,qtsvg)))
9086     (home-page "https://games.kde.org/")
9087     (synopsis "Go board game")
9088     (description "Kigo is an open-source implementation of the popular Go
9089 game.
9090
9091 Go is a strategic board game for two players.  It is also known as
9092 igo (Japanese), weiqi or wei ch'i (Chinese) or baduk (Korean).  Go is noted
9093 for being rich in strategic complexity despite its simple rules.  The game is
9094 played by two players who alternately place black and white stones (playing
9095 pieces, now usually made of glass or plastic) on the vacant intersections of a
9096 grid of 19x19 lines (9x9 or 13x13 for easier games).
9097
9098 You also need to install a go engine, e.g. @code{gnugo}.
9099
9100 This package is part of the KDE games module.")
9101     (license license:gpl3+)))
9102
9103 (define-public kubrick
9104   (package
9105     (name "kubrick")
9106     (version "19.08.3")
9107     (source
9108      (origin
9109        (method url-fetch)
9110        (uri (string-append "mirror://kde/stable/applications/" version
9111                            "/src/kubrick-" version ".tar.xz"))
9112        (sha256
9113         (base32 "0ma8wja4rqlsmsr8cyicfpkwlgqva4450ls4c0ql53p0kabf04gx"))))
9114     (build-system qt-build-system)
9115     (native-inputs
9116      `(("extra-cmake-modules" ,extra-cmake-modules)
9117        ("kdoctools" ,kdoctools)))
9118     (inputs
9119      `(("glu" ,glu)
9120        ("kconfig" ,kconfig)
9121        ("kconfigwidgets" ,kconfigwidgets)
9122        ("kcoreaddons" ,kcoreaddons)
9123        ("kcrash" ,kcrash)
9124        ("ki18n" ,ki18n)
9125        ("kio" ,kio)
9126        ("kwidgetsaddons" ,kwidgetsaddons)
9127        ("kxmlgui" ,kxmlgui)
9128        ("libkdegames" ,libkdegames)
9129        ("qtbase" ,qtbase)
9130        ("qtdeclarative" ,qtdeclarative)
9131        ("qtsvg" ,qtsvg)))
9132     (home-page "https://games.kde.org/")
9133     (synopsis "Game based on Rubik's Cube")
9134     (description "Kubrick is a game based on the Rubik's Cube puzzle.
9135
9136 The cube sizes range from 2x2x2 up to 6x6x6, or you can play with irregular
9137 \"bricks\" such as 5x3x2 or \"mats\" such as 6x4x1 or 2x2x1.  The game has a
9138 selection of puzzles at several levels of difficulty, as well as demos of
9139 pretty patterns and solution moves, or you can make up your own puzzles.  The
9140 game has unlimited undo, redo, save and reload capabilities.
9141
9142 This package is part of the KDE games module.")
9143     (license (list license:gpl2+ license:fdl1.2+))))
9144
9145 (define-public lskat
9146   (package
9147     (name "lskat")
9148     (version "19.08.3")
9149     (source
9150      (origin
9151        (method url-fetch)
9152        (uri (string-append "mirror://kde/stable/applications/" version
9153                            "/src/lskat-" version ".tar.xz"))
9154        (sha256
9155         (base32 "1qk5hd27zb42pbcxq5wyzz62nj5f0qdmgy54r9rnk92pzzzk94s9"))))
9156     (build-system qt-build-system)
9157     (native-inputs
9158      `(("extra-cmake-modules" ,extra-cmake-modules)
9159        ("kdoctools" ,kdoctools)))
9160     (inputs
9161      `(("kcompletion" ,kcompletion)
9162        ("kconfig" ,kconfig)
9163        ("kcoreaddons" ,kcoreaddons)
9164        ("kcrash" ,kcrash)
9165        ("kguiaddons" ,kguiaddons)
9166        ("ki18n" ,ki18n)
9167        ("kwidgetsaddons" ,kwidgetsaddons)
9168        ("kxmlgui" ,kxmlgui)
9169        ("libkdegames" ,libkdegames)
9170        ("qtbase" ,qtbase)
9171        ("qtdeclarative" ,qtdeclarative)
9172        ("qtsvg" ,qtsvg)))
9173     (home-page "https://games.kde.org/")
9174     (synopsis "Lieutnant Skat card game")
9175     (description "Lieutnant Skat (from German \"Offiziersskat\") is a fun and
9176 engaging card game for two players, where the second player is either live
9177 opponent, or a built in artificial intelligence.
9178
9179 Lieutnant Skat is a simplified variant of the Skat card game for two players.
9180
9181 This package is part of the KDE games module.")
9182     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9183
9184 (define-public kapman
9185   (package
9186     (name "kapman")
9187     (version "19.08.3")
9188     (source
9189      (origin
9190       (method url-fetch)
9191       (uri (string-append "mirror://kde/stable/applications/" version
9192                           "/src/kapman-" version ".tar.xz"))
9193       (sha256
9194        (base32 "03pq38caam30q4bw14c045kayw2d87xq1yaa3s2jkrylylfq3p0f"))))
9195     (build-system qt-build-system)
9196     (native-inputs
9197      `(("extra-cmake-modules" ,extra-cmake-modules)
9198        ("kdoctools" ,kdoctools)))
9199     (inputs
9200      `(("kcompletion" ,kcompletion)
9201        ("kconfig" ,kconfig)
9202        ("kconfigwidgets" ,kconfigwidgets)
9203        ("kcoreaddons" ,kcoreaddons)
9204        ("kcrash" ,kcrash)
9205        ("kdbusaddons" ,kdbusaddons)
9206        ("ki18n" ,ki18n)
9207        ("kxmlgui" ,kxmlgui)
9208        ("libkdegames" ,libkdegames)
9209        ("qtbase" ,qtbase)
9210        ("qtdeclarative" ,qtdeclarative)
9211        ("qtsvg" ,qtsvg)))
9212     (home-page "https://games.kde.org/")
9213     (synopsis "Pac-Man clone")
9214     (description "Kapman is a clone of the well known game Pac-Man.
9215
9216 You must run through the maze to eat all pills without being captured by a
9217 ghost.  By eating an energizer, Kapman gets the ability to eat ghosts for a
9218 few seconds.  When a stage is cleared of pills and energizer the player is
9219 taken to the next stage with slightly increased game speed
9220
9221 This package is part of the KDE games module.")
9222     (license (list license:gpl2+ license:fdl1.2+))))
9223
9224 (define-public kspaceduel
9225   (package
9226     (name "kspaceduel")
9227     (version "19.08.3")
9228     (source
9229      (origin
9230        (method url-fetch)
9231        (uri (string-append "mirror://kde/stable/applications/" version
9232                            "/src/kspaceduel-" version ".tar.xz"))
9233        (sha256
9234         (base32 "1hppni0ihs7psc0dly5rxyy2a38nzhlig9yfyhi3lkh36z05pql8"))))
9235     (build-system qt-build-system)
9236     (native-inputs
9237      `(("extra-cmake-modules" ,extra-cmake-modules)
9238        ("kdoctools" ,kdoctools)))
9239     (inputs
9240      `(("kcompletion" ,kcompletion)
9241        ("kconfig" ,kconfig)
9242        ("kconfigwidgets" ,kconfigwidgets)
9243        ("kcoreaddons" ,kcoreaddons)
9244        ("kcrash" ,kcrash)
9245        ("kdbusaddons" ,kdbusaddons)
9246        ("ki18n" ,ki18n)
9247        ("kxmlgui" ,kxmlgui)
9248        ("libkdegames" ,libkdegames)
9249        ("qtbase" ,qtbase)
9250        ("qtdeclarative" ,qtdeclarative)
9251        ("qtsvg" ,qtsvg)))
9252     (home-page "https://games.kde.org/")
9253     (synopsis "Two player game with shooting spaceships flying around a sun")
9254     (description "KSpaceduel is a space battle game for one or two players,
9255 where two ships fly around a star in a struggle to be the only survivor.
9256
9257 This package is part of the KDE games module.")
9258     (license (list license:gpl2+ license:fdl1.2+))))
9259
9260 (define-public bovo
9261   (package
9262     (name "bovo")
9263     (version "19.08.3")
9264     (source
9265      (origin
9266        (method url-fetch)
9267        (uri (string-append "mirror://kde/stable/applications/" version
9268                            "/src/bovo-" version ".tar.xz"))
9269        (sha256
9270         (base32 "0dbpng0w52nahmx7brsll66zw23ql1g6pcvn2k4g2lnvxch0i59g"))))
9271     (build-system qt-build-system)
9272     (native-inputs
9273      `(("extra-cmake-modules" ,extra-cmake-modules)
9274        ("kdoctools" ,kdoctools)))
9275     (inputs
9276      `(("kcompletion" ,kcompletion)
9277        ("kcoreaddons" ,kcoreaddons)
9278        ("kcrash" ,kcrash)
9279        ("kdbusaddons" ,kdbusaddons)
9280        ("ki18n" ,ki18n)
9281        ("kxmlgui" ,kxmlgui)
9282        ("libkdegames" ,libkdegames)
9283        ("qtbase" ,qtbase)
9284        ("qtdeclarative" ,qtdeclarative)
9285        ("qtsvg" ,qtsvg)))
9286     (home-page "https://games.kde.org/")
9287     (synopsis "Classic pen and paper game: five in a line")
9288     (description "Bovo is a Gomoku (from Japanese 五目並べ - lit.  \"five
9289 points\") like game for two players, where the opponents alternate in placing
9290 their respective pictogram on the game board.  The winner is the first to
9291 complete a line of five markers.  (Also known as: Connect Five, Five in a row,
9292 X and O, Naughts and Crosses)
9293
9294 This package is part of the KDE games module.")
9295     (license (list license:gpl2+ license:fdl1.2+))))
9296
9297 (define-public killbots
9298   (package
9299     (name "killbots")
9300     (version "19.08.3")
9301     (source
9302      (origin
9303        (method url-fetch)
9304        (uri (string-append "mirror://kde/stable/applications/" version
9305                            "/src/killbots-" version ".tar.xz"))
9306        (sha256
9307         (base32 "1qi86q7diw7glkp9v33yim9nhz2da4balbxa1hjrdgjdv8zdbxbm"))))
9308     (build-system qt-build-system)
9309     (native-inputs
9310      `(("extra-cmake-modules" ,extra-cmake-modules)
9311        ("kdoctools" ,kdoctools)))
9312     (inputs
9313      `(("kcompletion" ,kcompletion)
9314        ("kconfig" ,kconfig)
9315        ("kconfigwidgets" ,kconfigwidgets)
9316        ("kcoreaddons" ,kcoreaddons)
9317        ("kcrash" ,kcrash)
9318        ("kdbusaddons" ,kdbusaddons)
9319        ("ki18n" ,ki18n)
9320        ("kwidgetsaddons" ,kwidgetsaddons)
9321        ("kxmlgui" ,kxmlgui)
9322        ("libkdegames" ,libkdegames)
9323        ("qtbase" ,qtbase)
9324        ("qtdeclarative" ,qtdeclarative)))
9325     (home-page "https://games.kde.org/")
9326     (synopsis "Port of the classic BSD console game robots")
9327     (description "Killbots is a simple game of evading killer robots.
9328
9329 Who created the robots and why they have been programmed to destroy, no one
9330 knows.  All that is known is that the robots are numerous and their sole
9331 objective is to destroy you.  Fortunately for you, their creator has focused
9332 on quantity rather than quality and as a result the robots are severely
9333 lacking in intelligence.  Your superior wit and a fancy teleportation device
9334 are your only weapons against the never-ending stream of mindless automatons.
9335
9336 This package is part of the KDE games module.")
9337     (license (list license:gpl2+ license:fdl1.2+))))
9338
9339 (define-public ksnakeduel
9340   (package
9341     (name "ksnakeduel")
9342     (version "19.08.3")
9343     (source
9344      (origin
9345       (method url-fetch)
9346       (uri (string-append "mirror://kde/stable/applications/" version
9347                           "/src/ksnakeduel-" version ".tar.xz"))
9348       (sha256
9349        (base32 "0mprrnpax8pv7ab36zwhvdfj8id52w8g6x76nnj8qvkdlkjiqdnn"))))
9350     (build-system qt-build-system)
9351     (native-inputs
9352      `(("extra-cmake-modules" ,extra-cmake-modules)
9353        ("kdoctools" ,kdoctools)))
9354     (inputs
9355      `(("kcompletion" ,kcompletion)
9356        ("kconfig" ,kconfig)
9357        ("kconfigwidgets" ,kconfigwidgets)
9358        ("kcoreaddons" ,kcoreaddons)
9359        ("kcrash" ,kcrash)
9360        ("kdbusaddons" ,kdbusaddons)
9361        ("kguiaddons" ,kguiaddons)
9362        ("ki18n" ,ki18n)
9363        ("kxmlgui" ,kxmlgui)
9364        ("libkdegames" ,libkdegames)
9365        ("qtbase" ,qtbase)
9366        ("qtdeclarative" ,qtdeclarative)
9367        ("qtsvg" ,qtsvg)))
9368     (home-page "https://games.kde.org/")
9369     (synopsis "Snake race played against the computer")
9370     (description "KSnakeDuel is a fast action game where you steer a snake
9371 which has to eat food.  While eating the snake grows.  But once a player
9372 collides with the other snake or the wall the game is lost.  This becomes of
9373 course more and more difficult the longer the snakes grow.
9374
9375 This package is part of the KDE games module.")
9376     (license (list license:gpl2+ license:fdl1.2+))))
9377
9378 (define-public kollision
9379   (package
9380     (name "kollision")
9381     (version "19.08.3")
9382     (source
9383      (origin
9384       (method url-fetch)
9385       (uri (string-append "mirror://kde/stable/applications/" version
9386                           "/src/kollision-" version ".tar.xz"))
9387       (sha256
9388        (base32 "1p7qrn3d0ybpvc9k6k5wzj54dsrp1rqh39844maz0ay2fhvmch12"))))
9389     (build-system qt-build-system)
9390     (native-inputs
9391      `(("extra-cmake-modules" ,extra-cmake-modules)
9392        ("kdoctools" ,kdoctools)))
9393     (inputs
9394      `(("kcompletion" ,kcompletion)
9395        ("kconfig" ,kconfig)
9396        ("kcoreaddons" ,kcoreaddons)
9397        ("kcrash" ,kcrash)
9398        ("kdbusaddons" ,kdbusaddons)
9399        ("ki18n" ,ki18n)
9400        ("kwidgetsaddons" ,kwidgetsaddons)
9401        ("kxmlgui" ,kxmlgui)
9402        ("libkdegames" ,libkdegames)
9403        ("qtbase" ,qtbase)
9404        ("qtdeclarative" ,qtdeclarative)))
9405     (home-page "https://games.kde.org/")
9406     (synopsis "Simple ball dodging game")
9407     (description "In Kollision you use mouse to control a small blue ball in a
9408 closed space environment filled with small red balls, which move about
9409 chaotically.  Your goal is to avoid touching any of those red balls with your
9410 blue one, because the moment you do the game will be over.  The longer you can
9411 stay in game the higher will your score be.
9412
9413 This package is part of the KDE games module.")
9414     (license (list license:gpl2+ license:fdl1.2+))))
9415
9416 (define-public knavalbattle
9417   (package
9418     (name "knavalbattle")
9419     (version "19.08.3")
9420     (source
9421      (origin
9422       (method url-fetch)
9423       (uri (string-append "mirror://kde/stable/applications/" version
9424 "/src/knavalbattle-" version ".tar.xz"))
9425       (sha256
9426        (base32 "0sdfjplqkb30x2mvh66pkzay6vn5px87779sh2s8lpl6fcw0v9g4"))))
9427     (build-system qt-build-system)
9428     (native-inputs
9429      `(("extra-cmake-modules" ,extra-cmake-modules)
9430        ("kdoctools" ,kdoctools)))
9431     (inputs
9432      `(("kauth" ,kauth)
9433        ("kcompletion" ,kcompletion)
9434        ("kconfig" ,kconfig)
9435        ("kconfigwidgets" ,kconfigwidgets)
9436        ("kcoreaddons" ,kcoreaddons)
9437        ("kcrash" ,kcrash)
9438        ("kdbusaddons" ,kdbusaddons)
9439        ("kdnssd" ,kdnssd)
9440        ("ki18n" ,ki18n)
9441        ("ktextwidgets" ,ktextwidgets)
9442        ("kxmlgui" ,kxmlgui)
9443        ("libkdegames" ,libkdegames)
9444        ("qtbase" ,qtbase)
9445        ("qtdeclarative" ,qtdeclarative)))
9446     (home-page "https://games.kde.org/")
9447     (synopsis "Battleship board game with built-in game server")
9448     (description "KBattleship is a Battle Ship game for KDE.
9449
9450 Ships are placed on a board which represents the sea.  Players try to hit each
9451 others ships in turns without knowing where they are placed.  The first player
9452 to destroy all ships wins the game.
9453
9454 This package is part of the KDE games module.")
9455     (license (list license:gpl2+ license:fdl1.2+))))
9456
9457 (define-public kreversi
9458   (package
9459     (name "kreversi")
9460     (version "19.08.3")
9461     (source
9462      (origin
9463       (method url-fetch)
9464       (uri (string-append "mirror://kde/stable/applications/" version
9465 "/src/kreversi-" version ".tar.xz"))
9466       (sha256
9467        (base32 "0b6q8df2bawgnrswhq59z37axad0q3zpvvzxdds7sz1lw505xw9h"))))
9468     (build-system qt-build-system)
9469     (native-inputs
9470      `(("extra-cmake-modules" ,extra-cmake-modules)
9471        ("kdoctools" ,kdoctools)))
9472     (inputs
9473      `(("kconfig" ,kconfig)
9474        ("kconfigwidgets" ,kconfigwidgets)
9475        ("kcoreaddons" ,kcoreaddons)
9476        ("kcrash" ,kcrash)
9477        ("kdbusaddons" ,kdbusaddons)
9478        ("kdeclarative" ,kdeclarative)
9479        ("ki18n" ,ki18n)
9480        ("kiconthemes" ,kiconthemes)
9481        ("kio" ,kio)
9482        ("kxmlgui" ,kxmlgui)
9483        ("libkdegames" ,libkdegames)
9484        ("qtbase" ,qtbase)
9485        ("qtdeclarative" ,qtdeclarative)
9486        ("qtsvg" ,qtsvg)))
9487     (home-page "https://games.kde.org/")
9488     (synopsis "Old reversi board game, also known as othello")
9489     (description "KReversi is a simple one player strategy game played
9490 against the computer.
9491
9492 If a player's piece is captured by an opposing player, that piece is turned
9493 over to reveal the color of that player.  A winner is declared when one player
9494 has more pieces of his own color on the board and there are no more possible
9495 moves.
9496
9497 This package is part of the KDE games module.")
9498     (license (list license:gpl2+ license:fdl1.2+))))
9499
9500 (define-public ksquares
9501   (package
9502     (name "ksquares")
9503     (version "19.08.3")
9504     (source
9505      (origin
9506       (method url-fetch)
9507       (uri (string-append "mirror://kde/stable/applications/" version
9508                           "/src/ksquares-" version ".tar.xz"))
9509       (sha256
9510        (base32 "0hv8hls5s627lys08nnw72rfzsafj3dmp49mh2afzmh6lgk9h5vy"))))
9511     (build-system qt-build-system)
9512     (native-inputs
9513      `(("extra-cmake-modules" ,extra-cmake-modules)
9514        ("kdoctools" ,kdoctools)))
9515     (inputs
9516      `(("kcompletion" ,kcompletion)
9517        ("kconfig" ,kconfig)
9518        ("kconfigwidgets" ,kconfigwidgets)
9519        ("kcoreaddons" ,kcoreaddons)
9520        ("kcrash" ,kcrash)
9521        ("kdbusaddons" ,kdbusaddons)
9522        ("ki18n" ,ki18n)
9523        ("kwidgetsaddons" ,kwidgetsaddons)
9524        ("kxmlgui" ,kxmlgui)
9525        ("libkdegames" ,libkdegames)
9526        ("qtbase" ,qtbase)
9527        ("qtdeclarative" ,qtdeclarative)))
9528     (home-page "https://games.kde.org/")
9529     (synopsis "Dots and Boxes game")
9530     (description "KSquares is an implementation of the popular paper based
9531 game Squares.  Two players take turns connecting dots on a grid to complete
9532 squares, the player with the most squares wins.
9533
9534 This package is part of the KDE games module.")
9535     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9536
9537 (define-public kjumpingcube
9538   (package
9539     (name "kjumpingcube")
9540     (version "19.08.3")
9541     (source
9542      (origin
9543       (method url-fetch)
9544       (uri (string-append "mirror://kde/stable/applications/" version
9545                           "/src/kjumpingcube-" version ".tar.xz"))
9546       (sha256
9547        (base32 "0d67zqkf2xffjkj671gl2n6nj6jajyn6rgqqj5i6gm500mqi9rm1"))))
9548     (build-system qt-build-system)
9549     (native-inputs
9550      `(("extra-cmake-modules" ,extra-cmake-modules)
9551        ("kdoctools" ,kdoctools)))
9552     (inputs
9553      `(("kconfig" ,kconfig)
9554        ("kconfigwidgets" ,kconfigwidgets)
9555        ("kcoreaddons" ,kcoreaddons)
9556        ("kcrash" ,kcrash)
9557        ("kdbusaddons" ,kdbusaddons)
9558        ("ki18n" ,ki18n)
9559        ("kio" ,kio)
9560        ("kwidgetsaddons" ,kwidgetsaddons)
9561        ("kxmlgui" ,kxmlgui)
9562        ("libkdegames" ,libkdegames)
9563        ("qtbase" ,qtbase)
9564        ("qtdeclarative" ,qtdeclarative)
9565        ("qtsvg" ,qtsvg)))
9566     (home-page "https://games.kde.org/")
9567     (synopsis "Simple tactical game for number-crunchers")
9568     (description "KJumpingcube is a simple tactical game for one or two
9569 players, played on a grid of numbered squares.  Each turn, players compete for
9570 control of the board by capturing or adding to one square.
9571
9572 This package is part of the KDE games module.")
9573     (license (list license:gpl2+ license:fdl1.2+))))
9574
9575 (define-public xmoto
9576   (package
9577     (name "xmoto")
9578     (version "0.5.11")
9579     (source
9580      (origin
9581        (method url-fetch)
9582        (uri (string-append
9583              "http://download.tuxfamily.org/xmoto/xmoto/" version "/"
9584              "xmoto-" version "-src.tar.gz"))
9585        (sha256
9586         (base32 "1ci6r8zd0l7z28cy92ddf9dmqbdqwinz2y1cny34c61b57wsd155"))
9587        (patches
9588         (search-patches
9589          "xmoto-remove-glext.patch"     ;fixes licensing issue
9590          "xmoto-reproducible.patch"
9591          "xmoto-utf8.patch"))
9592        ;; Unbundle ODE.
9593        (modules '((guix build utils)))
9594        (snippet
9595         `(begin
9596            (delete-file-recursively "src/ode")
9597            #t))))
9598     (build-system gnu-build-system)
9599     (arguments
9600      ;; XXX: First flag prevents a build error with GCC7+.  The second
9601      ;; flag works around missing text in game.  Both are fixed
9602      ;; upstream.  Remove once xmoto 0.5.12+ is released.
9603      `(#:make-flags '("CXXFLAGS=-fpermissive -D_GLIBCXX_USE_CXX11_ABI=0")
9604        #:phases
9605        (modify-phases %standard-phases
9606          (add-after 'install 'install-desktop-file
9607            (lambda* (#:key outputs #:allow-other-keys)
9608              (let* ((out (assoc-ref outputs "out"))
9609                     (apps (string-append out "/share/applications"))
9610                     (pixmaps (string-append out "/share/pixmaps")))
9611                (install-file "extra/xmoto.desktop" apps)
9612                (install-file "extra/xmoto.xpm" pixmaps)
9613                #t)))
9614          (add-after 'install-desktop-file 'install-fonts
9615            (lambda* (#:key outputs inputs #:allow-other-keys)
9616              (let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
9617                                             "/share/fonts/truetype/"))
9618                    (target-dir (string-append (assoc-ref outputs "out")
9619                                               "/share/xmoto/Textures/Fonts/")))
9620                (for-each (lambda (f)
9621                            (let ((font (string-append font-dir f))
9622                                  (target (string-append target-dir f)))
9623                              (delete-file target)
9624                              (symlink font target)))
9625                          '("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
9626                #t)))
9627          (add-after 'install-fonts 'install-man-page
9628            (lambda* (#:key outputs #:allow-other-keys)
9629              (install-file "xmoto.6"
9630                            (string-append (assoc-ref outputs "out")
9631                                           "/share/man/man6"))
9632              #t)))))
9633     (native-inputs
9634      `(("gettext" ,gettext-minimal)))
9635     (inputs
9636      `(("curl" ,curl)
9637        ("font-dejavu" ,font-dejavu)
9638        ("glu" ,glu)
9639        ("libjpeg" ,libjpeg-turbo)
9640        ("libpng" ,libpng)
9641        ("libxdg-basedir" ,libxdg-basedir)
9642        ("libxml2" ,libxml2)
9643        ("lua" ,lua-5.2)
9644        ("ode" ,ode)
9645        ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
9646        ("sqlite" ,sqlite)
9647        ("zlib" ,zlib)))
9648     (home-page "https://xmoto.tuxfamily.org/")
9649     (synopsis "2D motocross platform game")
9650     (description "X-Moto is a challenging 2D motocross platform game, where
9651 physics play an all important role in the gameplay.  You need to control your
9652 bike to its limit, if you want to have a chance finishing the more difficult
9653 challenges.")
9654     (license (list license:gpl2+        ;whole project
9655                    license:bsd-4        ;src/bzip
9656                    license:bsd-3        ;src/md5sum
9657                    license:lgpl2.1+     ;src/iqsort.h
9658                    license:expat))))