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