gnu/packages/game-development.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 Tomáš Čech <sleep_walker@suse.cz>
   3 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2015, 2018 Ludovic Courtès <ludo@gnu.org>
   5 ;;; Copyright © 2015, 2018 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015, 2016, 2017 David Thompson <davet@gnu.org>
   7 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
   9 ;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net>
  10 ;;; Copyright © 2016, 2017, 2018 Julian Graham <joolean@gmail.com>
  11 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  12 ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
  13 ;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com>
  14 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
  15 ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
  16 ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
  17 ;;;
  18 ;;; This file is part of GNU Guix.
  19 ;;;
  20 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  21 ;;; under the terms of the GNU General Public License as published by
  22 ;;; the Free Software Foundation; either version 3 of the License, or (at
  23 ;;; your option) any later version.
  24 ;;;
  25 ;;; GNU Guix is distributed in the hope that it will be useful, but
  26 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  27 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28 ;;; GNU General Public License for more details.
  29 ;;;
  30 ;;; You should have received a copy of the GNU General Public License
  31 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  32
  33 (define-module (gnu packages game-development)
  34   #:use-module ((guix licenses) #:prefix license:)
  35   #:use-module (guix packages)
  36   #:use-module (guix download)
  37   #:use-module (guix git-download)
  38   #:use-module (guix utils)
  39   #:use-module (guix build-system cmake)
  40   #:use-module (guix build-system gnu)
  41   #:use-module (guix build-system python)
  42   #:use-module (guix build-system scons)
  43   #:use-module (gnu packages)
  44   #:use-module (gnu packages audio)
  45   #:use-module (gnu packages autotools)
  46   #:use-module (gnu packages boost)
  47   #:use-module (gnu packages compression)
  48   #:use-module (gnu packages curl)
  49   #:use-module (gnu packages databases)
  50   #:use-module (gnu packages documentation)
  51   #:use-module (gnu packages fltk)
  52   #:use-module (gnu packages fonts)
  53   #:use-module (gnu packages fontutils)
  54   #:use-module (gnu packages freedesktop)
  55   #:use-module (gnu packages fribidi)
  56   #:use-module (gnu packages gl)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages gnome)
  59   #:use-module (gnu packages gnunet)
  60   #:use-module (gnu packages graphics)
  61   #:use-module (gnu packages graphviz)
  62   #:use-module (gnu packages gtk)
  63   #:use-module (gnu packages guile)
  64   #:use-module (gnu packages image)
  65   #:use-module (gnu packages linux)
  66   #:use-module (gnu packages lua)
  67   #:use-module (gnu packages m4)
  68   #:use-module (gnu packages mp3)
  69   #:use-module (gnu packages multiprecision)
  70   #:use-module (gnu packages music)
  71   #:use-module (gnu packages ncurses)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages pulseaudio)
  74   #:use-module (gnu packages python)
  75   #:use-module (gnu packages qt)
  76   #:use-module (gnu packages sdl)
  77   #:use-module (gnu packages stb)
  78   #:use-module (gnu packages texinfo)
  79   #:use-module (gnu packages tls)
  80   #:use-module (gnu packages video)
  81   #:use-module (gnu packages xdisorg)
  82   #:use-module (gnu packages xiph)
  83   #:use-module (gnu packages xml)
  84   #:use-module (gnu packages xorg))
  85
  86 (define-public bullet
  87   (package
  88     (name "bullet")
  89     (version "2.87")
  90     (source (origin
  91               (method url-fetch)
  92               (uri (string-append "https://github.com/bulletphysics/bullet3/"
  93                                   "archive/" version ".tar.gz"))
  94               (file-name (string-append name "-" version ".tar.gz"))
  95               (sha256
  96                (base32
  97                 "15azjc1jj8ak9ad7c5sbp9nv5gpqjsa0s9pc0bwy63w490f1b323"))))
  98     (build-system cmake-build-system)
  99     (arguments
 100      '(#:configure-flags (list (string-append
 101                                  "-DBUILD_SHARED_LIBS=ON "
 102                                  "-DCMAKE_CXX_FLAGS=-fPIC "
 103                                  (or (getenv "CXXFLAGS") "")))))
 104     (inputs
 105      `(("glu" ,glu)
 106        ("libx11" ,libx11)
 107        ("mesa" ,mesa)))
 108     (home-page "https://pybullet.org/wordpress/")
 109     (synopsis "3D physics engine library")
 110     (description
 111      "Bullet is a physics engine library usable for collision detection.  It
 112 is used in some video games and movies.")
 113     (license license:zlib)))
 114
 115 (define-public deutex
 116   (package
 117    (name "deutex")
 118    (version "5.1.2")
 119    (source (origin
 120             (method url-fetch)
 121             (uri (string-append "https://github.com/Doom-Utils/" name
 122                                 "/releases/download/v" version "/"
 123                                 name "-" version ".tar.xz"))
 124             (sha256
 125              (base32
 126               "1rj3w4xa0n4jixy4j7p6gbclylbgxvhdnji7xnkydrqii9rxnbp4"))))
 127    (build-system gnu-build-system)
 128    (native-inputs `(("asciidoc" ,asciidoc)))
 129    (home-page "https://github.com/Doom-Utils/deutex")
 130    (synopsis "WAD file composer for Doom and related games")
 131    (description
 132     "DeuTex is a wad composer for Doom, Heretic, Hexen and Strife. It can be
 133 used to extract the lumps of a wad and save them as individual files.
 134 Conversely, it can also build a wad from separate files.  When extracting a
 135 lump to a file, it does not just copy the raw data, it converts it to an
 136 appropriate format (such as PPM for graphics, Sun audio for samples, etc.).
 137 Conversely, when it reads files for inclusion in pwads, it does the necessary
 138 conversions (for example, from PPM to Doom picture format).  In addition,
 139 DeuTex has functions such as merging wads, etc.")
 140    (license license:gpl2+)))
 141
 142 (define-public grfcodec
 143   (package
 144     (name "grfcodec")
 145     (version "6.0.6")
 146     (source (origin
 147               (method url-fetch)
 148               (uri (string-append "http://binaries.openttd.org/extra/"
 149                                   name "/" version "/" name "-" version
 150                                   "-source.tar.xz"))
 151               (sha256
 152                (base32
 153                 "08admgnpqcsifpicbm56apgv360fxapqpbbsp10qyk8i22w1ivsk"))))
 154     (build-system gnu-build-system)
 155     (arguments
 156      '(#:tests? #f ; no check target
 157        #:phases
 158       (modify-phases %standard-phases
 159         (delete 'configure) ; no configure script
 160         (replace 'install   ; no install target
 161           (lambda* (#:key outputs #:allow-other-keys)
 162             (let* ((out (assoc-ref outputs "out"))
 163                    (bin (string-append out "/bin"))
 164                    (doc (string-append out "/share/doc"))
 165                    (man (string-append out "/share/man/man1")))
 166               (for-each (lambda (file)
 167                           (install-file file bin))
 168                         '("grfcodec" "grfid" "grfstrip" "nforenum"))
 169               (install-file "COPYING" doc)
 170               (with-directory-excursion "docs"
 171                 (for-each (lambda (file)
 172                             (install-file (string-append file ".txt") doc))
 173                           '("auto_correct" "commands" "grf" "grfcodec" "grftut"
 174                             "readme" "readme.rpn"))
 175                 (for-each (lambda (file)
 176                             (install-file file man))
 177                           (find-files "." "\\.1"))))
 178             #t)))))
 179     (inputs
 180      `(("boost" ,boost)
 181        ("libpng" ,libpng)
 182        ("zlib" ,zlib)))
 183     (synopsis "GRF development tools")
 184     (description
 185      "The @dfn{Graphics Resource File} (GRF) development tools are a set of
 186 tools for developing (New)GRFs. It includes a number of smaller programs, each
 187 with a specific task:
 188 @enumerate
 189 @item @code{grfcodec} decodes and encodes GRF files for OpenTTD.
 190 @item @code{grfid} extracts the so-called \"GRF ID\" from a GRF.
 191 @item @code{grfstrip} strips all sprites from a GRF.
 192 @item @code{nforenum} checks NFO code for errors, making corrections when
 193 necessary.
 194 @end enumerate")
 195     (home-page "http://dev.openttdcoop.org/projects/grfcodec")
 196     ;; GRFCodec, GRFID, and GRFStrip are exclusively under the GPL2.
 197     ;; NFORenum is under the GPL2+.
 198     ;; The MD5 implementation contained in GRFID is under the zlib license.
 199     (license (list license:gpl2 license:gpl2+ license:zlib))))
 200
 201 (define-public catcodec
 202   (package
 203     (name "catcodec")
 204     (version "1.0.5")
 205     (source
 206      (origin
 207        (method url-fetch)
 208        (uri (string-append "https://binaries.openttd.org/extra/catcodec/"
 209                            version "/catcodec-" version "-source.tar.xz"))
 210        (sha256
 211         (base32
 212          "1qg0c2i4p29sxj0q6qp2jynlrzm5pphz2xhcjqlxa69ycrnlxzs7"))))
 213     (build-system gnu-build-system)
 214     (arguments
 215      `(#:tests? #f ; no tests
 216        #:make-flags (list (string-append "prefix=" %output))
 217        #:phases (modify-phases %standard-phases
 218                   (delete 'configure))))
 219     (home-page "http://dev.openttdcoop.org/projects/catcodec")
 220     (synopsis "Encode/decode OpenTTD sounds")
 221     (description "catcodec encodes and decodes sounds for OpenTTD.  These
 222 sounds are not much more than some metadata (description and filename) and raw
 223 PCM data.")
 224     (license license:gpl2)))
 225
 226 (define-public gzochi
 227   (package
 228     (name "gzochi")
 229     (version "0.12")
 230     (source (origin
 231               (method url-fetch)
 232               (uri (string-append "mirror://savannah/gzochi/gzochi-"
 233                                   version ".tar.gz"))
 234               (sha256
 235                (base32
 236                 "0h8yvk7154kd8zdfa9nqy73blrjq2x19kv305jcnwlmm09vvss59"))))
 237     (build-system gnu-build-system)
 238     (arguments
 239      '(#:phases (modify-phases %standard-phases
 240                   (add-before 'build 'no-Werror
 241                     (lambda _
 242                       ;; Don't abort builds due to things like GLib
 243                       ;; deprecation warnings.
 244                       (substitute* (find-files "." "^Makefile\\.in$")
 245                         (("-Werror") ""))
 246                       #t)))))
 247     (native-inputs `(("pkgconfig" ,pkg-config)))
 248     (inputs `(("bdb" ,bdb)
 249               ("glib" ,glib)
 250               ("guile" ,guile-2.2)
 251               ("libmicrohttpd" ,libmicrohttpd)
 252               ("ncurses" ,ncurses)
 253               ("sdl" ,sdl)
 254               ("zlib" ,zlib)))
 255     (home-page "https://www.nongnu.org/gzochi/")
 256     (synopsis "Scalable middleware for multiplayer games")
 257     (description
 258      "gzochi is a framework for developing massively multiplayer online games.
 259 A server container provides services to deployed games, which are written in
 260 Guile Scheme, that abstract and simplify some of the most challenging and
 261 error-prone aspects of online game development: Concurrency, data persistence,
 262 and network communications.  A very thin client library can be embedded to
 263 provide connectivity for client applications written in any language.")
 264     (license license:gpl3+)))
 265
 266 (define-public nml
 267   (package
 268     (name "nml")
 269     (version "0.4.5")
 270     (source
 271      (origin
 272        (method url-fetch)
 273        (uri (string-append "http://bundles.openttdcoop.org/nml/releases/"
 274                            version "/nml-" version ".tar.gz"))
 275        (sha256
 276         (base32
 277          "1pmvvm3sgnpngfa7884mqhq3fwdjh9sr0ca07ypnidcg0y341w53"))))
 278     (build-system python-build-system)
 279     (propagated-inputs
 280      `(("python-pillow" ,python-pillow)
 281        ("python-ply" ,python-ply)))
 282     (home-page "https://dev.openttdcoop.org/projects/nml")
 283     (synopsis "NML compiler")
 284     (description
 285      "@dfn{NewGRF Meta Language} (NML) is a python-based compiler, capable of
 286 compiling NML files (along with their associated language, sound and graphic
 287 files) into @file{.grf} and/or @file{.nfo} files.")
 288     (license license:gpl2+)))
 289
 290 (define-public python-sge-pygame
 291   (package
 292     (name "python-sge-pygame")
 293     (version "1.5.1")
 294     (source
 295      (origin
 296        (method url-fetch)
 297        (uri (string-append "mirror://savannah/stellarengine/"
 298                            (version-major+minor version) "/sge-pygame-"
 299                            version ".tar.gz"))
 300        (file-name (string-append name "-" version ".tar.gz"))
 301        (sha256
 302         (base32
 303          "1rl3xjzh78sl0sq3xl8rl7cgp9v9v3h7s2pfwn7nj1vrmffzkcpd"))))
 304     (build-system python-build-system)
 305     (propagated-inputs
 306      `(("python-pygame" ,python-pygame)
 307        ("python-six" ,python-six)
 308        ("python-uniseg" ,python-uniseg)))
 309     (home-page "http://stellarengine.nongnu.org")
 310     (synopsis "2D game engine for Python")
 311     (description
 312      "The SGE Game Engine (\"SGE\", pronounced like \"Sage\") is a
 313 general-purpose 2D game engine.  It takes care of several details for you so
 314 you can focus on the game itself.  This makes more rapid game development
 315 possible, and it also makes the SGE easy to learn.")
 316     (license license:lgpl3+)))
 317
 318 (define-public python2-sge-pygame
 319   (package-with-python2 python-sge-pygame))
 320
 321 (define-public python-tmx
 322   (package
 323     (name "python-tmx")
 324     (version "1.10")
 325     (source
 326      (origin
 327        (method url-fetch)
 328        (uri (string-append "mirror://savannah/python-tmx/"
 329                            (version-major+minor version) "/tmx-"
 330                            version ".tar.gz"))
 331        (sha256
 332         (base32
 333          "073q0prg1nzlkga2b45vhscz374206qh4x68ccg00mxxwagn64z0"))))
 334     (build-system python-build-system)
 335     (propagated-inputs
 336      `(("python-six" ,python-six)))
 337     (home-page "http://python-tmx.nongnu.org")
 338     (synopsis "Python library for the @code{Tiled} TMX format")
 339     (description
 340      "Python TMX reads and writes the @code{Tiled} TMX format in a simple way.
 341 This is useful for map editors or generic level editors, and it's also useful
 342 for using a map editor or generic level editor like Tiled to edit your game's
 343 levels.")
 344     (license (list license:asl2.0
 345                    ;; Documentation (only available in the source tarball) is
 346                    ;; under the CC0 license.
 347                    license:cc0))))
 348
 349 (define-public python2-tmx
 350   (let ((python2-tmx (package-with-python2 python-tmx)))
 351     (package
 352       (inherit python2-tmx)
 353       (propagated-inputs
 354        `(("python2-pathlib" ,python2-pathlib)
 355          ,@(package-propagated-inputs python2-tmx))))))
 356
 357 (define-public python-xsge
 358   (package
 359     (name "python-xsge")
 360     (version "2018.02.26")
 361     (source (origin
 362               (method url-fetch)
 363               (uri (string-append "mirror://savannah/xsge/xsge/xsge-"
 364                                   version ".tar.gz"))
 365               (sha256
 366                (base32
 367                 "0bx93hgf7cgdw2gsygbh59y8vpw37pgsa279rajw3fkdpl8vrc40"))))
 368     (build-system python-build-system)
 369     (arguments
 370      '(#:phases
 371        (modify-phases %standard-phases
 372          ;; xSGE's setup.py script does not support one of the Python build
 373          ;; system's default flags, "--single-version-externally-managed".
 374          (replace 'install
 375            (lambda* (#:key outputs #:allow-other-keys)
 376              (invoke "python" "setup.py" "install"
 377                      (string-append "--prefix=" (assoc-ref outputs "out"))
 378                      "--root=/"))))
 379        #:tests? #f)) ; no check target
 380     (propagated-inputs
 381      `(("python-sge-pygame" ,python-sge-pygame)
 382        ("python-pygame" ,python-pygame)
 383        ("python-six" ,python-six)
 384        ("python-tmx" ,python-tmx)))
 385     (home-page "http://xsge.nongnu.org")
 386     (synopsis "Extensions for the SGE Game Engine")
 387     (description
 388      "xSGE is a collection of modules that make doing certain tasks with the SGE
 389 Game Engine easier.  In addition to SGE's conveniences, the user has access to a
 390 GUI toolkit, lighting and physics frameworks and @code{Tiled} TMX format
 391 support.")
 392     (license license:gpl3+)))
 393
 394 (define-public python2-xsge
 395   (package-with-python2 python-xsge))
 396
 397 (define-public tiled
 398   (package
 399     (name "tiled")
 400     (version "1.2.1")
 401     (source (origin
 402               (method git-fetch)
 403               (uri (git-reference
 404                     (url "https://github.com/bjorn/tiled.git")
 405                     (commit (string-append "v" version))))
 406               (file-name (git-file-name name version))
 407               (sha256
 408                (base32
 409                 "1dl06k2p0r7l20ghxcq5sn7j0jl2l8q4m27vmfs2qfgvldjll2h3"))))
 410     (build-system gnu-build-system)
 411     (inputs
 412      `(("qtbase" ,qtbase)
 413        ("qtsvg" ,qtsvg)
 414        ("zlib" ,zlib)))
 415     (native-inputs
 416      `(("qttools" ,qttools)))
 417     (arguments
 418      '(#:phases
 419        (modify-phases %standard-phases
 420          (replace 'configure
 421            (lambda* (#:key inputs outputs #:allow-other-keys)
 422              (substitute* "translations/translations.pro"
 423                (("LRELEASE =.*")
 424                 (string-append "LRELEASE = "
 425                                (assoc-ref inputs "qttools")
 426                                "/bin/lrelease\n")))
 427              (let ((out (assoc-ref outputs "out")))
 428                (invoke "qmake"
 429                        (string-append "PREFIX=" out))))))))
 430     (home-page "http://www.mapeditor.org/")
 431     (synopsis "Tile map editor")
 432     (description
 433      "Tiled is a general purpose tile map editor.  It is meant to be used for
 434 editing maps of any tile-based game, be it an RPG, a platformer or a Breakout
 435 clone.")
 436
 437     ;; As noted in 'COPYING', part of it is under GPLv2+, while the rest is
 438     ;; under BSD-2.
 439     (license license:gpl2+)))
 440
 441 (define-public sfml
 442   (package
 443     (name "sfml")
 444     (version "2.5.1")
 445     (source (origin
 446               (method git-fetch)
 447               ;; Do not fetch the archives from
 448               ;; http://mirror0.sfml-dev.org/files/ because files there seem
 449               ;; to be changed in place.
 450               (uri (git-reference
 451                     (url "https://github.com/SFML/SFML.git")
 452                     (commit version)))
 453               (file-name (git-file-name name version))
 454               (sha256
 455                (base32
 456                 "0abr8ri2ssfy9ylpgjrr43m6rhrjy03wbj9bn509zqymifvq5pay"))
 457               (modules '((guix build utils)))
 458               (snippet
 459                '(begin
 460                   ;; Ensure system libraries are used.
 461                   (delete-file-recursively "extlibs")
 462                   #t))))
 463     (build-system cmake-build-system)
 464     (arguments
 465      '(#:configure-flags
 466        (list "-DSFML_INSTALL_PKGCONFIG_FILES=TRUE"
 467              "-DSFML_OS_PKGCONFIG_DIR=lib/pkgconfig")
 468        #:tests? #f)) ; no tests
 469     (native-inputs
 470      `(("pkg-config" ,pkg-config)))
 471     (inputs
 472      `(("mesa" ,mesa)
 473        ("glew" ,glew)
 474        ("libx11" ,libx11)
 475        ("xcb-util-image" ,xcb-util-image)
 476        ("libxrandr" ,libxrandr)
 477        ("eudev" ,eudev)
 478        ("libjpeg" ,libjpeg)
 479        ("libsndfile" ,libsndfile)
 480        ("stb-image" ,stb-image)
 481        ("stb-image-write" ,stb-image-write)))
 482     (propagated-inputs
 483      ;; In Requires.private of pkg-config files.
 484      `(("flac" ,flac)
 485        ("freetype" ,freetype)
 486        ("libvorbis" ,libvorbis)
 487        ("openal" ,openal)))
 488     (home-page "https://www.sfml-dev.org")
 489     (synopsis "Simple and Fast Multimedia Library")
 490     (description
 491      "SFML provides a simple interface to the various computer components,
 492 to ease the development of games and multimedia applications.  It is composed
 493 of five modules: system, window, graphics, audio and network.")
 494     (license license:zlib)))
 495
 496 (define-public sfxr
 497   (package
 498     (name "sfxr")
 499     (version "1.2.1")
 500     (source (origin
 501               (method url-fetch)
 502               (uri (string-append "http://www.drpetter.se/files/sfxr-sdl-1.2.1.tar.gz"))
 503               (sha256
 504                (base32
 505                 "0dfqgid6wzzyyhc0ha94prxax59wx79hqr25r6if6by9cj4vx4ya"))))
 506     (build-system gnu-build-system)
 507     (arguments
 508      `(#:phases (modify-phases %standard-phases
 509                   (delete 'configure) ; no configure script
 510                   (add-before 'build 'patch-makefile
 511                     (lambda* (#:key outputs #:allow-other-keys)
 512                       (let ((out (assoc-ref outputs "out")))
 513                         (substitute* "Makefile"
 514                           (("\\$\\(DESTDIR\\)/usr") out))
 515                         (substitute* "main.cpp"
 516                           (("/usr/share")
 517                            (string-append out "/share")))
 518                         #t))))
 519        #:tests? #f)) ; no tests
 520     (native-inputs
 521      `(("pkg-config" ,pkg-config)
 522        ("desktop-file-utils" ,desktop-file-utils)))
 523     (inputs
 524      `(("sdl" ,sdl)
 525        ("gtk+" ,gtk+)))
 526     (synopsis "Simple sound effect generator")
 527     (description "Sfxr is a tool for quickly generating simple sound effects.
 528 Originally created for use in video game prototypes, it can generate random
 529 sounds from presets such as \"explosion\" or \"powerup\".")
 530     (home-page "http://www.drpetter.se/project_sfxr.html")
 531     (license license:expat)))
 532
 533 (define-public physfs
 534   (package
 535     (name "physfs")
 536     (version "3.0.1")
 537     (source (origin
 538               (method url-fetch)
 539               (uri (string-append
 540                     "https://icculus.org/physfs/downloads/physfs-"
 541                     version ".tar.bz2"))
 542               (file-name (string-append name "-" version ".tar.gz"))
 543               (sha256
 544                (base32
 545                 "1wgj2zqpnfbnyyi1i7bq5pshcc9n5cvwlpzp8im67nb8662ryyxp"))))
 546     (build-system cmake-build-system)
 547     (arguments
 548      '(#:tests? #f                      ; no check target
 549        #:phases (modify-phases %standard-phases
 550                   (add-after 'unpack 'patch-CMakeLists.txt
 551                     (lambda _
 552                       (substitute* "CMakeLists.txt"
 553                         ;; XXX: For some reason CMakeLists.txt disables
 554                         ;; RUNPATH manipulation when the compiler is GCC.
 555                         (("CMAKE_COMPILER_IS_GNUCC") "FALSE"))
 556                       #t)))))
 557     (inputs
 558      `(("zlib" ,zlib)))
 559     (native-inputs
 560      `(("doxygen" ,doxygen)))
 561     (home-page "https://icculus.org/physfs")
 562     (synopsis "File system abstraction library")
 563     (description
 564      "PhysicsFS is a library to provide abstract access to various archives.
 565 It is intended for use in video games.  For security, no file writing done
 566 through the PhysicsFS API can leave a defined @emph{write directory}.  For
 567 file reading, a @emph{search path} with archives and directories is defined,
 568 and it becomes a single, transparent hierarchical file system.  So archive
 569 files can be accessed in the same way as you access files directly on a disk,
 570 and it makes it easy to ship a new archive that will override a previous
 571 archive on a per-file basis.")
 572     (license license:zlib)))
 573
 574 (define-public love
 575   (package
 576     (name "love")
 577     (version "11.1")
 578     (source (origin
 579              (method url-fetch)
 580              (uri (string-append "https://bitbucket.org/rude/love/downloads/"
 581                                  "love-" version "-linux-src.tar.gz"))
 582              (sha256
 583               (base32
 584                "1pkwiszmjs0xrwk0wqbc5cp9108b1y8gwsid0gqk1s0x09q9lpmw"))))
 585     (build-system gnu-build-system)
 586     (native-inputs
 587      `(("pkg-config" ,pkg-config)))
 588     (inputs
 589      `(("devil" ,devil)
 590        ("freetype" ,freetype)
 591        ("libmodplug" ,libmodplug)
 592        ("libtheora" ,libtheora)
 593        ("libvorbis" ,libvorbis)
 594        ("luajit" ,luajit)
 595        ("mesa" ,mesa)
 596        ("mpg123" ,mpg123)
 597        ("openal" ,openal)
 598        ("physfs" ,physfs)
 599        ("sdl2" ,sdl2)
 600        ("zlib" ,zlib)))
 601     (synopsis "2D game framework for Lua")
 602     (description "LÖVE is a framework for making 2D games in the Lua
 603 programming language.")
 604     (home-page "https://love2d.org/")
 605     (license license:zlib)))
 606
 607 (define-public allegro-4
 608   (package
 609     (name "allegro")
 610     (version "4.4.2")
 611     (source (origin
 612               (method url-fetch)
 613               (uri (string-append "https://github.com/liballeg/allegro5/"
 614                                   "releases/download/" version "/allegro-"
 615                                   version ".tar.gz"))
 616               (patches (search-patches
 617                         "allegro4-mesa-18.2.5-and-later.patch"))
 618               (sha256
 619                (base32
 620                 "1p0ghkmpc4kwij1z9rzxfv7adnpy4ayi0ifahlns1bdzgmbyf88v"))))
 621     (build-system cmake-build-system)
 622     (arguments
 623      '(#:phases
 624        (modify-phases %standard-phases
 625          (add-after 'unpack 'patch-build-system
 626            (lambda _
 627              ;; Build addons as shared libraries.  Trying to set ADDON_LINKAGE
 628              ;; via a command line option doesn't work because it is
 629              ;; unconditionally clobbered in the build script.
 630              (substitute* '("CMakeLists.txt")
 631                (("ADDON_LINKAGE STATIC")
 632                 "ADDON_LINKAGE SHARED"))
 633              #t)))))
 634     (inputs
 635      `(("glu" ,glu)
 636        ("libpng" ,libpng)
 637        ("libvorbis" ,libvorbis)
 638        ("mesa" ,mesa)
 639        ("zlib" ,zlib)))
 640     (synopsis "Game programming library")
 641     (description "Allegro is a library mainly aimed at video game and
 642 multimedia programming.  It handles common, low-level tasks such as creating
 643 windows, accepting user input, loading data, drawing images, playing sounds,
 644 etc.")
 645     (home-page "http://liballeg.org")
 646     (license license:giftware)))
 647
 648 (define-public allegro
 649   (package
 650     (name "allegro")
 651     (version "5.2.4.0")
 652     (source (origin
 653               (method url-fetch)
 654               (uri (string-append "https://github.com/liballeg/allegro5/releases"
 655                                   "/download/" version "/allegro-"
 656                                   version ".tar.gz"))
 657               (patches (search-patches
 658                         "allegro-mesa-18.2.5-and-later.patch"))
 659               (sha256
 660                (base32
 661                 "1w9a5yqi5q03b2qvmx5ff90paz0xbr9cy7i7f0xiqa65ava66q9l"))))
 662     (build-system cmake-build-system)
 663     (arguments `(#:tests? #f)) ; there are no tests
 664     (inputs
 665      ;; FIXME: Add the following optional inputs: xinput2, opensl, dumb
 666      `(("flac" ,flac)
 667        ("freetype" ,freetype)
 668        ("glu" ,glu)
 669        ("gtk" ,gtk+-2)
 670        ("libjpeg" ,libjpeg)
 671        ("libpng" ,libpng)
 672        ("libtheora" ,libtheora)
 673        ("libvorbis" ,libvorbis)
 674        ("libxcursor" ,libxcursor)
 675        ("libxinerama" ,libxinerama)
 676        ("libxrandr" ,libxrandr)
 677        ("mesa" ,mesa)
 678        ("openal" ,openal)
 679        ("physfs" ,physfs)
 680        ("zlib" ,zlib)))
 681     (native-inputs
 682      `(("pkg-config" ,pkg-config)))
 683     (synopsis "Game programming library")
 684     (description "Allegro is a library mainly aimed at video game and
 685 multimedia programming.  It handles common, low-level tasks such as creating
 686 windows, accepting user input, loading data, drawing images, playing sounds,
 687 etc.")
 688     (home-page "http://liballeg.org")
 689     (license license:bsd-3)))
 690
 691 (define-public allegro-5.0
 692   (package (inherit allegro)
 693     (name "allegro")
 694     (version "5.0.11")
 695     (source (origin
 696               (method url-fetch)
 697               (uri (string-append "https://github.com/liballeg/allegro5/releases"
 698                                   "/download/" version "/allegro-"
 699                                   (if (equal? "0" (string-take-right version 1))
 700                                     (string-drop-right version 2)
 701                                     version)
 702                                   ".tar.gz"))
 703               (patches (search-patches
 704                         "allegro-mesa-18.2.5-and-later.patch"))
 705               (sha256
 706                (base32
 707                 "0cd51qrh97jrr0xdmnivqgwljpmizg8pixsgvc4blqqlaz4i9zj9"))))))
 708
 709 (define-public aseprite
 710   (package
 711     (name "aseprite")
 712     (version "1.1.7") ; After 1.1.7 the source is no longer distributed under the GPL.
 713     ;; TODO: Unbundle third party software.
 714     (source (origin
 715               (method url-fetch/zipbomb)
 716               (uri (string-append "https://github.com/aseprite/aseprite"
 717                                   "/releases/download/v" version
 718                                   "/Aseprite-v" version "-Source.zip"))
 719               (sha256
 720                (base32
 721                 "1plss4i1lfxcznv9p0pip1bkhj7ipw7jlhsh5avd6dzw079l4nvv"))))
 722     (build-system cmake-build-system)
 723     (arguments
 724      '(#:configure-flags
 725        ;; Use shared libraries instead of building bundled source.
 726        (list "-DWITH_WEBP_SUPPORT=1"
 727              "-DUSE_SHARED_CURL=1"
 728              "-DUSE_SHARED_GIFLIB=1"
 729              "-DUSE_SHARED_JPEGLIB=1"
 730              "-DUSE_SHARED_ZLIB=1"
 731              "-DUSE_SHARED_LIBPNG=1"
 732              "-DUSE_SHARED_LIBLOADPNG=1"
 733              "-DUSE_SHARED_LIBWEBP=1"
 734              "-DUSE_SHARED_TINYXML=1"
 735              "-DUSE_SHARED_PIXMAN=1"
 736              "-DUSE_SHARED_FREETYPE=1"
 737              "-DUSE_SHARED_ALLEGRO4=1"
 738              "-DENABLE_UPDATER=0" ; no auto-updates
 739              (string-append "-DFREETYPE_INCLUDE_DIR="
 740                             (assoc-ref %build-inputs "freetype")
 741                             "/include/freetype2"))))
 742     (native-inputs
 743      `(("pkg-config" ,pkg-config)))
 744     ;; TODO: Use a patched Allegro 4 that supports window resizing.  This
 745     ;; patched version is bundled with Aseprite, but the patches should be
 746     ;; extracted and applied on top of a standalone Allegro 4 package.
 747     (inputs
 748      `(("allegro" ,allegro-4)
 749        ("curl" ,curl)
 750        ("freetype" ,freetype)
 751        ("giflib" ,giflib)
 752        ("libjpeg" ,libjpeg)
 753        ("libpng" ,libpng)
 754        ("libwebp" ,libwebp)
 755        ("libx11" ,libx11)
 756        ("libxext" ,libxext)
 757        ("libxxf86vm" ,libxxf86vm)
 758        ("pixman" ,pixman)
 759        ("tinyxml" ,tinyxml)
 760        ("zlib" ,zlib)))
 761     (synopsis "Animated sprite editor and pixel art tool")
 762     (description "Aseprite is a tool for creating 2D pixel art for video
 763 games.  In addition to basic pixel editing features, Aseprite can assist in
 764 the creation of animations, tiled graphics, texture atlases, and more.")
 765     (home-page "https://www.aseprite.org/")
 766     (license license:gpl2+)))
 767
 768 (define-public qqwing
 769   (package
 770     (name "qqwing")
 771     (version "1.3.4")
 772     (source (origin
 773               (method url-fetch)
 774               (uri (string-append
 775                     "https://qqwing.com/"
 776                     name "-" version ".tar.gz"))
 777               (sha256
 778                (base32
 779                 "0bw0papyqjg22z6irf36gs54y8236wa37b6gyn2h1spy65n76lqp"))))
 780     (build-system gnu-build-system)
 781     (native-inputs
 782       `(("pkg-config" ,pkg-config)))
 783     (home-page "https://qqwing.com/")
 784     (synopsis "Sudoku puzzle solver and generator")
 785     (description
 786      "QQWing is a Sudoku puzzle generator and solver.
 787 It offers the following features:
 788 @enumerate
 789 @item Can solve 1000 puzzles in 1 second and generate 1000 puzzles in 25 seconds.
 790 @item Uses logic.  Uses as many solve techniques as possible when solving
 791   puzzles rather than guessing.
 792 @item Rates puzzles.  Most generators don't give an indication of the difficulty
 793   of a Sudoku puzzle.  QQwing does.
 794 @item Can print solve instructions for any puzzle.
 795 @item Customizable output style, including a CSV style that is easy to
 796   import into a database.
 797 @end enumerate")
 798     (license license:gpl2+)))
 799
 800 (define-public quesoglc
 801   (package
 802     (name "quesoglc")
 803     (version "0.7.2")
 804     (source (origin
 805               (method url-fetch)
 806               (uri (string-append "mirror://sourceforge/" name "/" version "/"
 807                                   name "-" version "-free.tar.bz2"))
 808               (sha256
 809                (base32
 810                 "08ddhywdy2qg17m592ng3yr0p1ih96irg8wg729g75hsxxq9ipks"))))
 811     (build-system gnu-build-system)
 812     (native-inputs `(("pkg-config" ,pkg-config)))
 813     (inputs `(("fontconfig" ,fontconfig)
 814               ("freeglute" ,freeglut)
 815               ("fribidi" ,fribidi)
 816               ("glew" ,glew)))
 817     (home-page "http://quesoglc.sourceforge.net")
 818     (synopsis "Implementation of the OpenGL Character Renderer (GLC)")
 819     (description
 820      "The OpenGL Character Renderer (GLC) is a state machine that provides
 821 OpenGL programs with character rendering services via an application programming
 822 interface (API).")
 823     (license (list license:expat license:lgpl2.1+))))
 824
 825 (define-public python-pygame
 826   (package
 827     (name "python-pygame")
 828     (version "1.9.3")
 829     (source (origin
 830               (method url-fetch)
 831               (uri (pypi-uri "pygame" version))
 832               (sha256
 833                (base32
 834                 "1hlydiyygl444bq5m5g8n3jsxsgrdyxlm42ipmfbw36wkf0j243m"))))
 835     (build-system python-build-system)
 836     (arguments
 837      `(#:tests? #f ; Tests require pygame to be installed first.
 838        #:phases
 839        (modify-phases %standard-phases
 840          ;; Set the paths to the dependencies manually because
 841          ;; the configure script does not allow passing them as
 842          ;; parameters.  This also means we can skip the configure
 843          ;; phase.
 844          (add-before 'build 'set-library-paths
 845            (lambda* (#:key inputs outputs #:allow-other-keys)
 846              (let ((sdl-ref   (assoc-ref inputs "sdl"))
 847                    (font-ref  (assoc-ref inputs "sdl-ttf"))
 848                    (image-ref (assoc-ref inputs "sdl-image"))
 849                    (mixer-ref (assoc-ref inputs "sdl-mixer"))
 850                    (smpeg-ref (assoc-ref inputs "libsmpeg"))
 851                    (png-ref   (assoc-ref inputs "libpng"))
 852                    (jpeg-ref  (assoc-ref inputs "libjpeg"))
 853                    (freetype-ref (assoc-ref inputs "freetype"))
 854                    (v4l-ref   (assoc-ref inputs "v4l-utils"))
 855                    (out-ref   (assoc-ref outputs "out")))
 856                (substitute* "Setup.in"
 857                  (("SDL = -I/usr/include/SDL")
 858                   (string-append "SDL = -I" sdl-ref "/include/SDL -I.")))
 859                (substitute* "Setup.in"
 860                  (("FONT = -lSDL_ttf")
 861                   (string-append "FONT = -I" font-ref "/include/SDL -L"
 862                                              font-ref "/lib -lSDL_ttf")))
 863                (substitute* "Setup.in"
 864                  (("IMAGE = -lSDL_image")
 865                   (string-append "IMAGE = -I" image-ref "/include/SDL -L"
 866                                               image-ref "/lib -lSDL_image")))
 867                (substitute* "Setup.in"
 868                  (("MIXER = -lSDL_mixer")
 869                   (string-append "MIXER = -I" mixer-ref "/include/SDL -L"
 870                                               mixer-ref "/lib -lSDL_mixer")))
 871                (substitute* "Setup.in"
 872                  (("SMPEG = -lsmpeg")
 873                   (string-append "SMPEG = -I" smpeg-ref "/include/smpeg -L"
 874                                               smpeg-ref "/lib -lsmpeg")))
 875                (substitute* "Setup.in"
 876                  (("PNG = -lpng")
 877                   (string-append "PNG = -I" png-ref "/include -L"
 878                                             png-ref "/lib -lpng")))
 879                (substitute* "Setup.in"
 880                  (("JPEG = -ljpeg")
 881                   (string-append "JPEG = -I" jpeg-ref "/include -L"
 882                                  jpeg-ref "/lib -ljpeg")))
 883
 884                (substitute* "Setup.in"
 885                  (("FREETYPE = -lfreetype")
 886                   (string-append "FREETYPE = -I" freetype-ref "/include/freetype2 -L"
 887                                  freetype-ref "/lib -lfreetype")))
 888
 889                (substitute* "Setup.in"
 890                  (("^pypm") "#pypm"))
 891                ;; Create a path to a header file provided by v4l-utils.
 892                (system* "mkdir" "linux")
 893                (system* "ln" "--symbolic"
 894                         (string-append v4l-ref "/include/libv4l1-videodev.h")
 895                         "linux/videodev.h")
 896                (system* "ln" "--symbolic" "Setup.in" "Setup")))))))
 897     (inputs
 898      `(("freetype" ,freetype)
 899        ("sdl" ,sdl)
 900        ("sdl-image" ,sdl-image)
 901        ("sdl-mixer" ,sdl-mixer)
 902        ("sdl-ttf" ,sdl-ttf)
 903        ("sdl-gfx" ,sdl-gfx)
 904        ("libjpeg" ,libjpeg)
 905        ("libpng" ,libpng)
 906        ("libX11" ,libx11)
 907        ("libsmpeg" ,libsmpeg)
 908        ("portmidi" ,portmidi)
 909        ("v4l-utils" ,v4l-utils)))
 910     (home-page "https://www.pygame.org")
 911     (synopsis "SDL wrapper for Python")
 912     (description "Pygame is a set of Python modules designed for writing games.
 913 Pygame adds functionality on top of the excellent SDL library. This allows you
 914 to create fully featured games and multimedia programs in the python language.")
 915     (license (list license:bsd-2
 916                    ;; python numeric license as listed by Debian looks like
 917                    ;; an Expat-style license with a warranty disclaimer for
 918                    ;; the U.S. government and the University of California.
 919                    license:expat
 920                    license:lgpl2.0+
 921                    license:lgpl2.1+
 922                    license:gpl3+
 923                    license:psfl
 924                    license:public-domain
 925                    license:lgpl2.1+))))
 926
 927 (define-public python2-pygame
 928   (package-with-python2 python-pygame))
 929
 930 (define-public grafx2
 931   (package
 932     (name "grafx2")
 933     (version "2.4")
 934     (source (origin
 935               (method url-fetch)
 936               ;; XXX: There is no URL that contains the version. :(
 937               (uri "http://pulkomandy.tk/projects/GrafX2/downloads/21")
 938               (sha256
 939                (base32
 940                 "0svsy6rqmdj11b400c242i2ixihyz0hds0dgicqz6g6dcgmcl62q"))))
 941     (build-system gnu-build-system)
 942     (arguments
 943      '(#:phases
 944        (modify-phases %standard-phases
 945          (delete 'configure) ; no configure script
 946          (add-before 'build 'change-to-src-directory
 947            (lambda _
 948              (chdir "src")
 949              #t)))
 950        #:make-flags
 951        ;; SDL header files are referenced without the preceeding "SDL/".
 952        (list (string-append "CFLAGS=-I"
 953                             (assoc-ref %build-inputs "sdl-union")
 954                             "/include/SDL")
 955              (string-append "prefix="
 956                             (assoc-ref %outputs "out")))
 957        #:tests? #f)) ; no check target
 958     (native-inputs
 959      `(("pkg-config" ,pkg-config)))
 960     (inputs
 961      `(("libpng" ,libpng)
 962        ("lua" ,lua-5.1)
 963        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-ttf)))))
 964     (synopsis "Bitmap paint program")
 965     (description "GrafX2 is a bitmap paint program inspired by the Amiga
 966 programs Deluxe Paint and Brilliance.  Specializing in 256-color drawing, it
 967 includes a very large number of tools and effects that make it particularly
 968 suitable for pixel art, game graphics, and generally any detailed graphics
 969 painted with a mouse.")
 970     (home-page "http://pulkomandy.tk/projects/GrafX2")
 971     (license license:gpl2))) ; GPLv2 only
 972
 973 (define-public ois
 974   (package
 975     (name "ois")
 976     (version "1.3")
 977     (source
 978      (origin
 979        ;; Development has moved to github and there are no recent tarball
 980        ;; releases.
 981        (method git-fetch)
 982        (uri (git-reference
 983              (url "https://github.com/wgois/OIS.git")
 984              (commit "bb75ccc1aabc1c547195579963601ff6080ca2f2")))
 985        (file-name (string-append name "-" version))
 986        (sha256
 987         (base32
 988          "0w0pamjc3vj0jr718hysrw8x076fq6n9rd6wcb36sn2jd0lqvi98"))))
 989     (build-system gnu-build-system)
 990     (native-inputs
 991      `(("autoconf" ,autoconf)
 992        ("automake" ,automake)
 993        ("libtool" ,libtool)
 994        ("m4" ,m4)
 995        ("pkg-config" ,pkg-config)))
 996     (inputs
 997      `(("libxaw" ,libxaw)))
 998     (synopsis "Object Oriented Input System")
 999     (description
1000      "Cross Platform Object Oriented Input Lib System is a cross platform,
1001 simple solution for using all kinds of Input Devices (Keyboards, Mice,
1002 Joysticks, etc) and feedback devices (e.g. force feedback).  Meant to be very
1003 robust and compatible with many systems and operating systems.")
1004     (home-page "https://github.com/wgois/OIS")
1005     (license license:zlib)))
1006
1007 (define-public mygui
1008   (package
1009     (name "mygui")
1010     (version "3.2.2")
1011     (source
1012      (origin
1013        (method url-fetch)
1014        (uri
1015         (string-append "https://github.com/MyGUI/" name
1016                        "/archive/MyGUI" version ".tar.gz"))
1017        (sha256
1018         (base32
1019          "13x7cydmj7gjmsg702sqjbfi53z265iv6j7binv3r6a7ibndfa0a"))))
1020     (build-system cmake-build-system)
1021     (arguments
1022      '(#:tests? #f                      ; No test target
1023        #:configure-flags
1024        (list "-DMYGUI_INSTALL_DOCS=TRUE"
1025              (string-append "-DOGRE_INCLUDE_DIR="
1026                             (assoc-ref %build-inputs "ogre")
1027                             "/include/OGRE"))))
1028     (native-inputs
1029      `(("boost" ,boost)
1030        ("doxygen" ,doxygen)
1031        ("pkg-config" ,pkg-config)))
1032     (inputs
1033      `(("font-dejavu" ,font-dejavu)
1034        ("freetype" ,freetype)
1035        ("graphviz" ,graphviz)
1036        ("libx11" ,libx11)
1037        ("ogre" ,ogre)
1038        ("ois" ,ois)))
1039     (synopsis "Fast, flexible and simple GUI")
1040     (description
1041      "MyGUI is a library for creating Graphical User Interfaces (GUIs) for games
1042 and 3D applications.  The main goals of mygui are: speed, flexibility and ease
1043 of use.")
1044     (home-page "http://mygui.info/")
1045     (license license:expat)))
1046
1047 (define-public openmw
1048   (package
1049     (name "openmw")
1050     (version "0.44.0")
1051     (source
1052      (origin
1053        (method url-fetch)
1054        (uri
1055         (string-append "https://github.com/OpenMW/openmw/archive/"
1056                        name "-" version ".tar.gz"))
1057        (sha256
1058         (base32
1059          "03fgm2f2r7y0aqlgp038pdlnllgvm3jimrp968p4nhz1sffvjzcy"))))
1060     (build-system cmake-build-system)
1061     (arguments
1062      `(#:tests? #f                      ; No test target
1063        #:configure-flags
1064        (list "-DDESIRED_QT_VERSION=5")))
1065     (native-inputs
1066      `(("boost" ,boost)
1067        ("doxygen" ,doxygen)
1068        ("pkg-config" ,pkg-config)))
1069     (inputs
1070      `(("bullet" ,bullet)
1071        ("ffmpeg" ,ffmpeg)
1072        ("libxt" ,libxt)
1073        ("mygui" ,mygui)
1074        ("openal" ,openal)
1075        ("openscenegraph" ,openscenegraph)
1076        ("qtbase" ,qtbase)
1077        ("sdl" ,sdl2)
1078        ("unshield" ,unshield)))
1079     (synopsis "Re-implementation of the RPG Morrowind engine")
1080     (description
1081      "OpenMW is a game engine which reimplements and extends the one that runs
1082 the 2002 open-world RPG Morrowind.  The engine comes with its own editor,
1083 called OpenMW-CS which allows the user to edit or create their own original
1084 games.")
1085     (home-page "https://openmw.org")
1086     (license license:gpl3)))
1087
1088 (define-public godot
1089   (package
1090     (name "godot")
1091     (version "3.0.6")
1092     (source (origin
1093               (method git-fetch)
1094               (uri (git-reference
1095                     (url "https://github.com/godotengine/godot")
1096                     (commit (string-append version "-stable"))))
1097               (file-name (git-file-name name version))
1098               (sha256
1099                (base32
1100                 "0g64h0x8dlv6aa9ggfcidk2mknkfl5li7z1phcav8aqp9srj8avf"))
1101               (modules '((guix build utils)))
1102               (snippet
1103                '(begin
1104                   ;; Drop libraries that we take from Guix.  Note that some
1105                   ;; of these may be modified; see "thirdparty/README.md".
1106                   (with-directory-excursion "thirdparty"
1107                     (for-each delete-file-recursively
1108                               '("freetype"
1109                                 "libogg"
1110                                 "libpng"
1111                                 "libtheora"
1112                                 "libvorbis"
1113                                 "libvpx"
1114                                 "libwebp"
1115                                 "openssl"
1116                                 "opus"
1117                                 "zlib"))
1118                     #t)))))
1119     (build-system scons-build-system)
1120     (arguments
1121      `(#:scons ,scons-python2
1122        #:scons-flags (list "platform=x11"
1123                            ,@(if (string-prefix? "aarch64" (or (%current-target-system)
1124                                                                (%current-system)))
1125                                `("CCFLAGS=-DNO_THREADS")
1126                                '())
1127                            ;; Avoid using many of the bundled libs.
1128                            ;; Note: These options can be found in the SConstruct file.
1129                            "builtin_freetype=no"
1130                            "builtin_glew=no"
1131                            "builtin_libmpdec=no"
1132                            "builtin_libogg=no"
1133                            "builtin_libpng=no"
1134                            "builtin_libtheora=no"
1135                            "builtin_libvorbis=no"
1136                            "builtin_libvpx=no"
1137                            "builtin_libwebp=no"
1138                            "builtin_openssl=no"
1139                            "builtin_opus=no"
1140                            "builtin_zlib=no")
1141        #:tests? #f ; There are no tests
1142        #:phases
1143        (modify-phases %standard-phases
1144          (add-after 'unpack 'scons-use-env
1145            (lambda _
1146              ;; Scons does not use the environment variables by default,
1147              ;; but this substitution makes it do so.
1148              (substitute* "SConstruct"
1149                (("env_base = Environment\\(tools=custom_tools\\)")
1150                 (string-append
1151                  "env_base = Environment(tools=custom_tools)\n"
1152                  "env_base = Environment(ENV=os.environ)")))
1153              #t))
1154          (replace 'install
1155            (lambda* (#:key outputs #:allow-other-keys)
1156              (let* ((out (assoc-ref outputs "out"))
1157                     (bin (string-append out "/bin")))
1158                (with-directory-excursion "bin"
1159                  (if (file-exists? "godot.x11.tools.64")
1160                      (rename-file "godot.x11.tools.64" "godot")
1161                      (rename-file "godot.x11.tools.32" "godot"))
1162                  (install-file "godot" bin))
1163                #t)))
1164          (add-after 'install 'install-godot-desktop
1165            (lambda* (#:key outputs #:allow-other-keys)
1166              (let* ((out (assoc-ref outputs "out"))
1167                     (desktop (string-append out "/share/applications"))
1168                     (icon-dir (string-append out "/share/pixmaps")))
1169                (rename-file "icon.png" "godot.png")
1170                (install-file "godot.png" icon-dir)
1171                (mkdir-p desktop)
1172                (with-output-to-file
1173                    (string-append desktop "/godot.desktop")
1174                  (lambda _
1175                    (format #t
1176                            "[Desktop Entry]~@
1177                            Name=godot~@
1178                            Comment=The godot game engine~@
1179                            Exec=~a/bin/godot~@
1180                            TryExec=~@*~a/bin/godot~@
1181                            Icon=godot~@
1182                            Type=Application~%"
1183                            out)))
1184                #t))))))
1185     (native-inputs `(("pkg-config" ,pkg-config)))
1186     (inputs `(("alsa-lib" ,alsa-lib)
1187               ("freetype" ,freetype)
1188               ("glew" ,glew)
1189               ("glu" ,glu)
1190               ("libtheora" ,libtheora)
1191               ("libvorbis" ,libvorbis)
1192               ("libvpx" ,libvpx)
1193               ("libwebp" ,libwebp)
1194               ("libx11" ,libx11)
1195               ("libxcursor" ,libxcursor)
1196               ("libxi" ,libxi)
1197               ("libxinerama" ,libxinerama)
1198               ("libxrandr" ,libxrandr)
1199               ("mesa" ,mesa)
1200               ("openssl" ,openssl)
1201               ("opusfile" ,opusfile)
1202               ("pulseaudio" ,pulseaudio)))
1203     (home-page "https://godotengine.org/")
1204     (synopsis "Advanced 2D and 3D game engine")
1205     (description
1206      "Godot is an advanced multi-platform game engine written in C++.  If
1207 features design tools such as a visual editor, can import 3D models and
1208 provide high-quality 3D rendering, it contains an animation editor, and can be
1209 scripted in a Python-like language.")
1210     (license license:expat)))
1211
1212 (define-public eureka
1213   (package
1214     (name "eureka")
1215     (version "1.21")
1216     (source (origin
1217               (method url-fetch)
1218               (uri (string-append "mirror://sourceforge/eureka-editor/Eureka/"
1219                                   version "/eureka-"
1220                                   ;; version without dots e.g 1.21 => 121
1221                                   (string-join (string-split version #\.) "")
1222                                   "-source.tar.gz"))
1223               (sha256
1224                (base32
1225                 "1a7pf7xi56fcz7jc8layih5gq5m66g2ss4x5j61kzgip07j6rkir"))))
1226     (build-system gnu-build-system)
1227     (arguments
1228      '(#:tests? #f
1229        #:make-flags
1230        (let ((out (assoc-ref %outputs "out")))
1231          (list (string-append "PREFIX=" out)))
1232        #:phases
1233        (modify-phases %standard-phases
1234          (delete 'configure)
1235          (add-before 'build 'prepare-install-directories
1236            (lambda* (#:key outputs #:allow-other-keys)
1237              (let ((out (assoc-ref outputs "out")))
1238                (mkdir-p (string-append out "/bin"))
1239                (mkdir-p (string-append out "/share"))
1240
1241                (with-fluids ((%default-port-encoding #f))
1242                  (substitute* "./src/main.cc"
1243                    (("/usr/local") out)))
1244
1245                (substitute* "Makefile"
1246                  (("-o root") ""))))))))
1247     (inputs `(("mesa" ,mesa)
1248               ("libxft" ,libxft)
1249               ("libxinerama" ,libxinerama)
1250               ("libfontconfig" ,fontconfig)
1251               ("libjpeg" ,libjpeg)
1252               ("libpng" ,libpng)
1253               ("fltk" ,fltk)
1254               ("zlib" ,zlib)))
1255     (native-inputs `(("pkg-config" ,pkg-config)
1256                      ("xdg-utils" ,xdg-utils)))
1257     (synopsis "Doom map editor")
1258     (description "Eureka is a map editor for the classic DOOM games, and a few
1259 related games such as Heretic and Hexen.  It comes with a 3d preview mode and
1260 a 2D editor view.")
1261     (home-page "http://eureka-editor.sourceforge.net/")
1262     (license license:gpl2+)))
1263
1264 (define-public guile-chickadee
1265   (package
1266     (name "guile-chickadee")
1267     (version "0.3.0")
1268     (source (origin
1269               (method url-fetch)
1270               (uri (string-append "https://files.dthompson.us/chickadee/"
1271                                   "chickadee-" version ".tar.gz"))
1272               (sha256
1273                (base32
1274                 "0jl223dybsj5gvs7z4q60gnafj1b7kgi5mx0kj58m5knrp8qwg5h"))))
1275     (build-system gnu-build-system)
1276     (arguments
1277      '(#:make-flags '("GUILE_AUTO_COMPILE=0")
1278        #:phases
1279        (modify-phases %standard-phases
1280          (add-before 'configure 'patch-godir
1281            (lambda _
1282              ;; Install compiled '.go' files into the site directory.
1283              (substitute* "Makefile.in"
1284                (("/ccache") "/site-ccache")))))))
1285     (propagated-inputs
1286      `(("guile-opengl" ,guile-opengl)
1287        ("guile-sdl2" ,guile-sdl2)))
1288     (inputs
1289      `(("guile" ,guile-2.2)))
1290     (native-inputs
1291      `(("pkg-config" ,pkg-config)
1292        ("texinfo" ,texinfo)))
1293     (home-page "https://dthompson.us/projects/chickadee.html")
1294     (synopsis "Game development toolkit for Guile Scheme with SDL2 and OpenGL")
1295     (description "Chickadee is a game development toolkit for Guile Scheme
1296 built on top of SDL2 and OpenGL.  Chickadee aims to provide all the features
1297 that parenthetically inclined game developers need to make 2D (and eventually
1298 3D) games in Scheme, such as:
1299
1300 @enumerate
1301 @item extensible, fixed-timestep game loop
1302 @item OpenGL-based rendering engine
1303 @item keyboard, mouse, controller input
1304 @item REPL-driven development model
1305 @end enumerate\n")
1306     (license license:gpl3+)))