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, 2020 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 ;;; Copyright © 2019, 2020 Leo Prikler <leo.prikler@student.tugraz.at>
  19 ;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com>
  20 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  21 ;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si>
  22 ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
  23 ;;;
  24 ;;; This file is part of GNU Guix.
  25 ;;;
  26 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  27 ;;; under the terms of the GNU General Public License as published by
  28 ;;; the Free Software Foundation; either version 3 of the License, or (at
  29 ;;; your option) any later version.
  30 ;;;
  31 ;;; GNU Guix is distributed in the hope that it will be useful, but
  32 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  33 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  34 ;;; GNU General Public License for more details.
  35 ;;;
  36 ;;; You should have received a copy of the GNU General Public License
  37 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  38
  39 (define-module (gnu packages game-development)
  40   #:use-module (srfi srfi-1)
  41   #:use-module (ice-9 match)
  42   #:use-module ((guix licenses) #:prefix license:)
  43   #:use-module (guix packages)
  44   #:use-module (guix download)
  45   #:use-module (guix git-download)
  46   #:use-module (guix svn-download)
  47   #:use-module (guix utils)
  48   #:use-module (guix build-system cmake)
  49   #:use-module (guix build-system gnu)
  50   #:use-module (guix build-system python)
  51   #:use-module (guix build-system scons)
  52   #:use-module (gnu packages)
  53   #:use-module (gnu packages audio)
  54   #:use-module (gnu packages autotools)
  55   #:use-module (gnu packages base)
  56   #:use-module (gnu packages boost)
  57   #:use-module (gnu packages compression)
  58   #:use-module (gnu packages curl)
  59   #:use-module (gnu packages documentation)
  60   #:use-module (gnu packages fltk)
  61   #:use-module (gnu packages fonts)
  62   #:use-module (gnu packages fontutils)
  63   #:use-module (gnu packages freedesktop)
  64   #:use-module (gnu packages fribidi)
  65   #:use-module (gnu packages dbm)
  66   #:use-module (gnu packages gl)
  67   #:use-module (gnu packages glib)
  68   #:use-module (gnu packages gnome)
  69   #:use-module (gnu packages gnunet)
  70   #:use-module (gnu packages graphics)
  71   #:use-module (gnu packages graphviz)
  72   #:use-module (gnu packages gtk)
  73   #:use-module (gnu packages guile)
  74   #:use-module (gnu packages image)
  75   #:use-module (gnu packages linux)
  76   #:use-module (gnu packages lua)
  77   #:use-module (gnu packages m4)
  78   #:use-module (gnu packages mono)
  79   #:use-module (gnu packages mp3)
  80   #:use-module (gnu packages multiprecision)
  81   #:use-module (gnu packages music)
  82   #:use-module (gnu packages ncurses)
  83   #:use-module (gnu packages pcre)
  84   #:use-module (gnu packages pkg-config)
  85   #:use-module (gnu packages pulseaudio)
  86   #:use-module (gnu packages python)
  87   #:use-module (gnu packages python-xyz)
  88   #:use-module (gnu packages qt)
  89   #:use-module (gnu packages sdl)
  90   #:use-module (gnu packages sphinx)
  91   #:use-module (gnu packages stb)
  92   #:use-module (gnu packages texinfo)
  93   #:use-module (gnu packages textutils)
  94   #:use-module (gnu packages tls)
  95   #:use-module (gnu packages video)
  96   #:use-module (gnu packages web)
  97   #:use-module (gnu packages xdisorg)
  98   #:use-module (gnu packages xiph)
  99   #:use-module (gnu packages xml)
 100   #:use-module (gnu packages xorg))
 101
 102 (define-public bullet
 103   (package
 104     (name "bullet")
 105     (version "2.89")
 106     (source (origin
 107               (method git-fetch)
 108               (uri (git-reference
 109                      (url "https://github.com/bulletphysics/bullet3/")
 110                      (commit version)))
 111               (file-name (git-file-name name version))
 112               (sha256
 113                (base32
 114                 "10ncf2z474jnv7p5lv01ak2mk2hib3rj5rz1zr8v2v5pnciqbijl"))
 115               (modules '((guix build utils)))
 116               (snippet
 117                '(begin
 118                   (for-each delete-file (find-files "build3" "premake*"))
 119                   (with-directory-excursion "examples/ThirdPartyLibs"
 120                     (for-each delete-file-recursively
 121                               '("Gwen" "clsocket" "enet" "glad" "imgui"
 122                                 "lua-5.2.3" "midi" "minizip" "openvr"
 123                                 "optionalX11" "serial" "zlib")))
 124                   ;; These need files from ThirdPartyLibs.
 125                   (substitute* "Extras/CMakeLists.txt"
 126                     (("BulletRobotics") ""))
 127                   ;; Tests fail on linking, cannot find -lBussIK.
 128                   (substitute* "test/CMakeLists.txt"
 129                     ((" InverseDynamics")
 130                      "../examples/ThirdPartyLibs/BussIK InverseDynamics"))
 131                   ;  (("SharedMemory") ""))
 132                   #t))))
 133     (build-system cmake-build-system)
 134     (arguments
 135      '(#:configure-flags (list "-DBUILD_SHARED_LIBS=ON"
 136                                "-DBUILD_CPU_DEMOS=OFF"
 137                                "-DBUILD_OPENGL3_DEMOS=OFF"
 138                                "-DBUILD_BULLET2_DEMOS=OFF"
 139                                (string-append  "-DCMAKE_CXX_FLAGS=-fPIC "
 140                                                (or (getenv "CXXFLAGS") "")))
 141        #:phases
 142        (modify-phases %standard-phases
 143          (add-after 'unpack 'remove-failing-tests
 144            ;; These tests fail specifically after removing 3rd party code.
 145            (lambda _
 146              (substitute* "test/SharedMemory/CMakeLists.txt"
 147                (("ADD_TEST") "# ADD_TEST"))
 148              (substitute* "test/InverseDynamics/CMakeLists.txt"
 149                (("ADD_TEST\\(Test_BulletInverseForward")
 150                 "# ADD_TEST(Test_BulletInverseForward"))
 151              #t)))))
 152     (inputs
 153      `(("glu" ,glu)
 154        ("libx11" ,libx11)
 155        ("mesa" ,mesa)))
 156     (home-page "https://pybullet.org/wordpress/")
 157     (synopsis "3D physics engine library")
 158     (description
 159      "Bullet is a physics engine library usable for collision detection.  It
 160 is used in some video games and movies.")
 161     (license license:zlib)))
 162
 163 (define-public deutex
 164   (package
 165    (name "deutex")
 166    (version "5.2.1")
 167    (source (origin
 168             (method url-fetch)
 169             (uri (string-append "https://github.com/Doom-Utils/deutex"
 170                                 "/releases/download/v" version "/"
 171                                 "deutex-" version ".tar.xz"))
 172             (sha256
 173              (base32
 174               "07w3asqxx89wl2wfv1z3cak8v83h3ys3b39mq9qq4gyf3xdhs76n"))))
 175    (build-system gnu-build-system)
 176    (native-inputs `(("asciidoc" ,asciidoc)))
 177    (home-page "https://github.com/Doom-Utils/deutex")
 178    (synopsis "WAD file composer for Doom and related games")
 179    (description
 180     "DeuTex is a wad composer for Doom, Heretic, Hexen and Strife. It can be
 181 used to extract the lumps of a wad and save them as individual files.
 182 Conversely, it can also build a wad from separate files.  When extracting a
 183 lump to a file, it does not just copy the raw data, it converts it to an
 184 appropriate format (such as PPM for graphics, Sun audio for samples, etc.).
 185 Conversely, when it reads files for inclusion in pwads, it does the necessary
 186 conversions (for example, from PPM to Doom picture format).  In addition,
 187 DeuTex has functions such as merging wads, etc.")
 188    (license license:gpl2+)))
 189
 190 (define-public grfcodec
 191   (package
 192     (name "grfcodec")
 193     (version "6.0.6")
 194     (source (origin
 195               (method url-fetch)
 196               (uri (string-append "http://binaries.openttd.org/extra/"
 197                                   name "/" version "/" name "-" version
 198                                   "-source.tar.xz"))
 199               (sha256
 200                (base32
 201                 "08admgnpqcsifpicbm56apgv360fxapqpbbsp10qyk8i22w1ivsk"))))
 202     (build-system gnu-build-system)
 203     (arguments
 204      '(#:tests? #f ; no check target
 205        #:phases
 206       (modify-phases %standard-phases
 207         (delete 'configure) ; no configure script
 208         (replace 'install   ; no install target
 209           (lambda* (#:key outputs #:allow-other-keys)
 210             (let* ((out (assoc-ref outputs "out"))
 211                    (bin (string-append out "/bin"))
 212                    (doc (string-append out "/share/doc"))
 213                    (man (string-append out "/share/man/man1")))
 214               (for-each (lambda (file)
 215                           (install-file file bin))
 216                         '("grfcodec" "grfid" "grfstrip" "nforenum"))
 217               (install-file "COPYING" doc)
 218               (with-directory-excursion "docs"
 219                 (for-each (lambda (file)
 220                             (install-file (string-append file ".txt") doc))
 221                           '("auto_correct" "commands" "grf" "grfcodec" "grftut"
 222                             "readme" "readme.rpn"))
 223                 (for-each (lambda (file)
 224                             (install-file file man))
 225                           (find-files "." "\\.1"))))
 226             #t)))))
 227     (inputs
 228      `(("boost" ,boost)
 229        ("libpng" ,libpng)
 230        ("zlib" ,zlib)))
 231     (synopsis "GRF development tools")
 232     (description
 233      "The @dfn{Graphics Resource File} (GRF) development tools are a set of
 234 tools for developing (New)GRFs. It includes a number of smaller programs, each
 235 with a specific task:
 236 @enumerate
 237 @item @code{grfcodec} decodes and encodes GRF files for OpenTTD.
 238 @item @code{grfid} extracts the so-called \"GRF ID\" from a GRF.
 239 @item @code{grfstrip} strips all sprites from a GRF.
 240 @item @code{nforenum} checks NFO code for errors, making corrections when
 241 necessary.
 242 @end enumerate")
 243     (home-page "http://dev.openttdcoop.org/projects/grfcodec")
 244     ;; GRFCodec, GRFID, and GRFStrip are exclusively under the GPL2.
 245     ;; NFORenum is under the GPL2+.
 246     ;; The MD5 implementation contained in GRFID is under the zlib license.
 247     (license (list license:gpl2 license:gpl2+ license:zlib))))
 248
 249 (define-public catcodec
 250   (package
 251     (name "catcodec")
 252     (version "1.0.5")
 253     (source
 254      (origin
 255        (method url-fetch)
 256        (uri (string-append "https://binaries.openttd.org/extra/catcodec/"
 257                            version "/catcodec-" version "-source.tar.xz"))
 258        (sha256
 259         (base32 "1qg0c2i4p29sxj0q6qp2jynlrzm5pphz2xhcjqlxa69ycrnlxzs7"))))
 260     (build-system gnu-build-system)
 261     (arguments
 262      `(#:tests? #f ; no tests
 263        #:make-flags (list (string-append "prefix=" %output))
 264        #:phases (modify-phases %standard-phases
 265                   (delete 'configure))))
 266     (home-page "https://dev.openttdcoop.org/projects/catcodec")
 267     (synopsis "Encode/decode OpenTTD sounds")
 268     (description "catcodec encodes and decodes sounds for OpenTTD.  These
 269 sounds are not much more than some metadata (description and filename) and raw
 270 PCM data.")
 271     (license license:gpl2)))
 272
 273 (define-public gzochi
 274   (package
 275     (name "gzochi")
 276     (version "0.12")
 277     (source (origin
 278               (method url-fetch)
 279               (uri (string-append "mirror://savannah/gzochi/gzochi-"
 280                                   version ".tar.gz"))
 281               (sha256
 282                (base32
 283                 "0h8yvk7154kd8zdfa9nqy73blrjq2x19kv305jcnwlmm09vvss59"))))
 284     (build-system gnu-build-system)
 285     (arguments
 286      '(#:phases (modify-phases %standard-phases
 287                   (add-before 'build 'no-Werror
 288                     (lambda _
 289                       ;; Don't abort builds due to things like GLib
 290                       ;; deprecation warnings.
 291                       (substitute* (find-files "." "^Makefile\\.in$")
 292                         (("-Werror") ""))
 293                       #t)))))
 294     (native-inputs `(("pkgconfig" ,pkg-config)))
 295     (inputs `(("bdb" ,bdb)
 296               ("glib" ,glib)
 297               ("guile" ,guile-2.2)
 298               ("libmicrohttpd" ,libmicrohttpd)
 299               ("ncurses" ,ncurses)
 300               ("sdl" ,sdl)
 301               ("zlib" ,zlib)))
 302     (home-page "https://www.nongnu.org/gzochi/")
 303     (synopsis "Scalable middleware for multiplayer games")
 304     (description
 305      "gzochi is a framework for developing massively multiplayer online games.
 306 A server container provides services to deployed games, which are written in
 307 Guile Scheme, that abstract and simplify some of the most challenging and
 308 error-prone aspects of online game development: Concurrency, data persistence,
 309 and network communications.  A very thin client library can be embedded to
 310 provide connectivity for client applications written in any language.")
 311     (license license:gpl3+)))
 312
 313 (define-public nml
 314   (package
 315     (name "nml")
 316     (version "0.4.5")
 317     (source
 318      (origin
 319        (method url-fetch)
 320        (uri (string-append "http://bundles.openttdcoop.org/nml/releases/"
 321                            version "/nml-" version ".tar.gz"))
 322        (sha256
 323         (base32
 324          "1pmvvm3sgnpngfa7884mqhq3fwdjh9sr0ca07ypnidcg0y341w53"))))
 325     (build-system python-build-system)
 326     (arguments
 327      `(#:phases
 328        (modify-phases %standard-phases
 329          (add-before 'build 'fix-pillow
 330            (lambda _
 331              ;; pillow's version is not in PIL.Image.VERSION anymore
 332              (substitute* "nml/version_info.py"
 333                (("from PIL import Image") "import PIL")
 334                (("Image.VERSION") "PIL.__version__"))
 335              #t)))))
 336     (propagated-inputs
 337      `(("python-pillow" ,python-pillow)
 338        ("python-ply" ,python-ply)))
 339     (home-page "https://dev.openttdcoop.org/projects/nml")
 340     (synopsis "NML compiler")
 341     (description
 342      "@dfn{NewGRF Meta Language} (NML) is a python-based compiler, capable of
 343 compiling NML files (along with their associated language, sound and graphic
 344 files) into @file{.grf} and/or @file{.nfo} files.")
 345     (license license:gpl2+)))
 346
 347 (define-public python-sge-pygame
 348   (package
 349     (name "python-sge-pygame")
 350     (version "1.5.1")
 351     (source
 352      (origin
 353        (method url-fetch)
 354        (uri (string-append "mirror://savannah/stellarengine/"
 355                            (version-major+minor version) "/sge-pygame-"
 356                            version ".tar.gz"))
 357        (file-name (string-append name "-" version ".tar.gz"))
 358        (sha256
 359         (base32
 360          "1rl3xjzh78sl0sq3xl8rl7cgp9v9v3h7s2pfwn7nj1vrmffzkcpd"))))
 361     (build-system python-build-system)
 362     (propagated-inputs
 363      `(("python-pygame" ,python-pygame)
 364        ("python-six" ,python-six)
 365        ("python-uniseg" ,python-uniseg)))
 366     (home-page "http://stellarengine.nongnu.org")
 367     (synopsis "2D game engine for Python")
 368     (description
 369      "The SGE Game Engine (\"SGE\", pronounced like \"Sage\") is a
 370 general-purpose 2D game engine.  It takes care of several details for you so
 371 you can focus on the game itself.  This makes more rapid game development
 372 possible, and it also makes the SGE easy to learn.")
 373     (license license:lgpl3+)))
 374
 375 (define-public python2-sge-pygame
 376   (package-with-python2 python-sge-pygame))
 377
 378 (define-public python-tmx
 379   (package
 380     (name "python-tmx")
 381     (version "1.10")
 382     (source
 383      (origin
 384        (method url-fetch)
 385        (uri (string-append "mirror://savannah/python-tmx/"
 386                            (version-major+minor version) "/tmx-"
 387                            version ".tar.gz"))
 388        (sha256
 389         (base32
 390          "073q0prg1nzlkga2b45vhscz374206qh4x68ccg00mxxwagn64z0"))))
 391     (build-system python-build-system)
 392     (propagated-inputs
 393      `(("python-six" ,python-six)))
 394     (home-page "http://python-tmx.nongnu.org")
 395     (synopsis "Python library for the @code{Tiled} TMX format")
 396     (description
 397      "Python TMX reads and writes the @code{Tiled} TMX format in a simple way.
 398 This is useful for map editors or generic level editors, and it's also useful
 399 for using a map editor or generic level editor like Tiled to edit your game's
 400 levels.")
 401     (license (list license:asl2.0
 402                    ;; Documentation (only available in the source tarball) is
 403                    ;; under the CC0 license.
 404                    license:cc0))))
 405
 406 (define-public python2-tmx
 407   (let ((python2-tmx (package-with-python2 python-tmx)))
 408     (package
 409       (inherit python2-tmx)
 410       (propagated-inputs
 411        `(("python2-pathlib" ,python2-pathlib)
 412          ,@(package-propagated-inputs python2-tmx))))))
 413
 414 (define-public python-xsge
 415   (package
 416     (name "python-xsge")
 417     (version "2018.02.26")
 418     (source (origin
 419               (method url-fetch)
 420               (uri (string-append "mirror://savannah/xsge/xsge/xsge-"
 421                                   version ".tar.gz"))
 422               (sha256
 423                (base32
 424                 "0bx93hgf7cgdw2gsygbh59y8vpw37pgsa279rajw3fkdpl8vrc40"))))
 425     (build-system python-build-system)
 426     (arguments
 427      '(#:phases
 428        (modify-phases %standard-phases
 429          ;; xSGE's setup.py script does not support one of the Python build
 430          ;; system's default flags, "--single-version-externally-managed".
 431          (replace 'install
 432            (lambda* (#:key outputs #:allow-other-keys)
 433              (invoke "python" "setup.py" "install"
 434                      (string-append "--prefix=" (assoc-ref outputs "out"))
 435                      "--root=/"))))
 436        #:tests? #f)) ; no check target
 437     (propagated-inputs
 438      `(("python-sge-pygame" ,python-sge-pygame)
 439        ("python-pygame" ,python-pygame)
 440        ("python-six" ,python-six)
 441        ("python-tmx" ,python-tmx)))
 442     (home-page "http://xsge.nongnu.org")
 443     (synopsis "Extensions for the SGE Game Engine")
 444     (description
 445      "xSGE is a collection of modules that make doing certain tasks with the SGE
 446 Game Engine easier.  In addition to SGE's conveniences, the user has access to a
 447 GUI toolkit, lighting and physics frameworks and @code{Tiled} TMX format
 448 support.")
 449     (license license:gpl3+)))
 450
 451 (define-public python2-xsge
 452   (package-with-python2 python-xsge))
 453
 454 (define-public tiled
 455   (package
 456     (name "tiled")
 457     (version "1.2.5")
 458     (source (origin
 459               (method git-fetch)
 460               (uri (git-reference
 461                     (url "https://github.com/bjorn/tiled.git")
 462                     (commit (string-append "v" version))))
 463               (file-name (git-file-name name version))
 464               (sha256
 465                (base32
 466                 "14v2zfka2y3h0r0biw1rl59585lji5074x958s4xnb352jm5h9b9"))))
 467     (build-system gnu-build-system)
 468     (inputs
 469      `(("qtbase" ,qtbase)
 470        ("qtsvg" ,qtsvg)
 471        ("zlib" ,zlib)))
 472     (native-inputs
 473      `(("qttools" ,qttools)))
 474     (arguments
 475      '(#:phases
 476        (modify-phases %standard-phases
 477          (replace 'configure
 478            (lambda* (#:key inputs outputs #:allow-other-keys)
 479              (substitute* "translations/translations.pro"
 480                (("LRELEASE =.*")
 481                 (string-append "LRELEASE = "
 482                                (assoc-ref inputs "qttools")
 483                                "/bin/lrelease\n")))
 484              (let ((out (assoc-ref outputs "out")))
 485                (invoke "qmake"
 486                        (string-append "PREFIX=" out))))))))
 487     (home-page "https://www.mapeditor.org/")
 488     (synopsis "Tile map editor")
 489     (description
 490      "Tiled is a general purpose tile map editor.  It is meant to be used for
 491 editing maps of any tile-based game, be it an RPG, a platformer or a Breakout
 492 clone.")
 493
 494     ;; As noted in 'COPYING', part of it is under GPLv2+, while the rest is
 495     ;; under BSD-2.
 496     (license license:gpl2+)))
 497
 498 (define-public sfml
 499   (package
 500     (name "sfml")
 501     (version "2.5.1")
 502     (source (origin
 503               (method git-fetch)
 504               ;; Do not fetch the archives from
 505               ;; http://mirror0.sfml-dev.org/files/ because files there seem
 506               ;; to be changed in place.
 507               (uri (git-reference
 508                     (url "https://github.com/SFML/SFML.git")
 509                     (commit version)))
 510               (file-name (git-file-name name version))
 511               (sha256
 512                (base32
 513                 "0abr8ri2ssfy9ylpgjrr43m6rhrjy03wbj9bn509zqymifvq5pay"))
 514               (modules '((guix build utils)))
 515               (snippet
 516                '(begin
 517                   ;; Ensure system libraries are used.
 518                   (delete-file-recursively "extlibs")
 519                   #t))))
 520     (build-system cmake-build-system)
 521     (arguments
 522      '(#:configure-flags
 523        (list "-DSFML_INSTALL_PKGCONFIG_FILES=TRUE"
 524              "-DSFML_OS_PKGCONFIG_DIR=lib/pkgconfig")
 525        #:tests? #f)) ; no tests
 526     (native-inputs
 527      `(("pkg-config" ,pkg-config)))
 528     (inputs
 529      `(("mesa" ,mesa)
 530        ("glew" ,glew)
 531        ("libx11" ,libx11)
 532        ("xcb-util-image" ,xcb-util-image)
 533        ("libxrandr" ,libxrandr)
 534        ("eudev" ,eudev)
 535        ("libjpeg" ,libjpeg-turbo)
 536        ("libsndfile" ,libsndfile)
 537        ("stb-image" ,stb-image)
 538        ("stb-image-write" ,stb-image-write)))
 539     (propagated-inputs
 540      ;; In Requires.private of pkg-config files.
 541      `(("flac" ,flac)
 542        ("freetype" ,freetype)
 543        ("libvorbis" ,libvorbis)
 544        ("openal" ,openal)))
 545     (home-page "https://www.sfml-dev.org")
 546     (synopsis "Simple and Fast Multimedia Library")
 547     (description
 548      "SFML provides a simple interface to the various computer components,
 549 to ease the development of games and multimedia applications.  It is composed
 550 of five modules: system, window, graphics, audio and network.")
 551     (license license:zlib)))
 552
 553 (define-public sfxr
 554   (package
 555     (name "sfxr")
 556     (version "1.2.1")
 557     (source (origin
 558               (method url-fetch)
 559               (uri (string-append "http://www.drpetter.se/files/sfxr-sdl-1.2.1.tar.gz"))
 560               (sha256
 561                (base32
 562                 "0dfqgid6wzzyyhc0ha94prxax59wx79hqr25r6if6by9cj4vx4ya"))))
 563     (build-system gnu-build-system)
 564     (arguments
 565      `(#:phases (modify-phases %standard-phases
 566                   (delete 'configure) ; no configure script
 567                   (add-before 'build 'patch-makefile
 568                     (lambda* (#:key outputs #:allow-other-keys)
 569                       (let ((out (assoc-ref outputs "out")))
 570                         (substitute* "Makefile"
 571                           (("\\$\\(DESTDIR\\)/usr") out))
 572                         (substitute* "main.cpp"
 573                           (("/usr/share")
 574                            (string-append out "/share")))
 575                         #t))))
 576        #:tests? #f)) ; no tests
 577     (native-inputs
 578      `(("pkg-config" ,pkg-config)
 579        ("desktop-file-utils" ,desktop-file-utils)))
 580     (inputs
 581      `(("sdl" ,sdl)
 582        ("gtk+" ,gtk+)))
 583     (synopsis "Simple sound effect generator")
 584     (description "Sfxr is a tool for quickly generating simple sound effects.
 585 Originally created for use in video game prototypes, it can generate random
 586 sounds from presets such as \"explosion\" or \"powerup\".")
 587     (home-page "http://www.drpetter.se/project_sfxr.html")
 588     (license license:expat)))
 589
 590 (define-public surgescript
 591   (package
 592     (name "surgescript")
 593     (version "0.5.4.3")
 594     (source
 595      (origin
 596        (method git-fetch)
 597        (uri (git-reference
 598              (url "https://github.com/alemart/surgescript.git")
 599              (commit (string-append "v" version))))
 600        (file-name (git-file-name name version))
 601        (sha256
 602         (base32 "13q81439zg1bn7gskligskjgcfq0rdapp6f3llmrlk48vnyq49s0"))))
 603      (build-system cmake-build-system)
 604      (arguments
 605       '(#:configure-flags
 606         (let ((share (string-append (assoc-ref %outputs "out") "/share")))
 607           (list (string-append "-DICON_PATH=" share "/pixmaps")
 608                 (string-append "-DMETAINFO_PATH=" share "/metainfo")))
 609         #:tests? #f))
 610      (home-page "https://docs.opensurge2d.org")
 611      (synopsis "Scripting language for games")
 612      (description "@code{SurgeScript} is a dynamically typed object-oriented
 613 scripting language designed for games.  Each object is a state machine that
 614 can be customized by attaching other objects.  The language supports automatic
 615 garbage collection and can be extended with plugins.")
 616     (license license:asl2.0)))
 617
 618 (define-public physfs
 619   (package
 620     (name "physfs")
 621     (version "3.0.2")
 622     (source (origin
 623               (method url-fetch)
 624               (uri (string-append
 625                     "https://icculus.org/physfs/downloads/physfs-"
 626                     version ".tar.bz2"))
 627               (file-name (string-append name "-" version ".tar.gz"))
 628               (sha256
 629                (base32
 630                 "0qzqz4r88gvd8m7sh2z5hvqcr0jfr4wb2f77c19xycyn0rigfk9h"))))
 631     (build-system cmake-build-system)
 632     (arguments
 633      '(#:tests? #f                      ; no check target
 634        #:configure-flags '("-DPHYSFS_BUILD_STATIC=OFF")
 635        #:phases (modify-phases %standard-phases
 636                   (add-after 'unpack 'patch-CMakeLists.txt
 637                     (lambda _
 638                       (substitute* "CMakeLists.txt"
 639                         ;; XXX: For some reason CMakeLists.txt disables
 640                         ;; RUNPATH manipulation when the compiler is GCC.
 641                         (("CMAKE_COMPILER_IS_GNUCC") "FALSE"))
 642                       #t)))))
 643     (inputs
 644      `(("zlib" ,zlib)))
 645     (native-inputs
 646      `(("doxygen" ,doxygen)))
 647     (home-page "https://icculus.org/physfs")
 648     (synopsis "File system abstraction library")
 649     (description
 650      "PhysicsFS is a library to provide abstract access to various archives.
 651 It is intended for use in video games.  For security, no file writing done
 652 through the PhysicsFS API can leave a defined @emph{write directory}.  For
 653 file reading, a @emph{search path} with archives and directories is defined,
 654 and it becomes a single, transparent hierarchical file system.  So archive
 655 files can be accessed in the same way as you access files directly on a disk,
 656 and it makes it easy to ship a new archive that will override a previous
 657 archive on a per-file basis.")
 658     (license license:zlib)))
 659
 660 (define-public love
 661   (package
 662     (name "love")
 663     (version "11.3")
 664     (source (origin
 665              (method url-fetch)
 666              (uri (string-append "https://bitbucket.org/rude/love/downloads/"
 667                                  "love-" version "-linux-src.tar.gz"))
 668              (sha256
 669               (base32
 670                "0m8lvlabmcchskx4qpzkdlsm44360f3j0q3vvvj2388cfnvhv7v4"))))
 671     (build-system gnu-build-system)
 672     (native-inputs
 673      `(("pkg-config" ,pkg-config)))
 674     (inputs
 675      `(("devil" ,devil)
 676        ("freetype" ,freetype)
 677        ("libmodplug" ,libmodplug)
 678        ("libtheora" ,libtheora)
 679        ("libvorbis" ,libvorbis)
 680        ("luajit" ,luajit)
 681        ("mesa" ,mesa)
 682        ("mpg123" ,mpg123)
 683        ("openal" ,openal)
 684        ("sdl2" ,sdl2)
 685        ("zlib" ,zlib)))
 686     (synopsis "2D game framework for Lua")
 687     (description "LÖVE is a framework for making 2D games in the Lua
 688 programming language.")
 689     (home-page "https://love2d.org/")
 690     (license license:zlib)))
 691
 692 (define-public love-nuklear
 693   (let ((version "v2.6")
 694         (commit "fef4e00a602efb16c57ae962850b6e7a01f7a29a"))
 695     (package
 696       (name "love-nuklear")
 697       (version (git-version version "1" commit))
 698       (source (origin
 699                 (method git-fetch)
 700                 (uri (git-reference
 701                       (url "https://github.com/keharriso/love-nuklear/")
 702                       (commit commit)
 703                       (recursive? #t)))
 704                 ;; NOTE: the HEAD of the Nuklear git-submodule is at commit
 705                 ;; "adc52d710fe3c87194b99f540c53e82eb75c2521" of Oct 1 2019
 706                 (file-name (git-file-name name version))
 707                 (sha256
 708                  (base32
 709                   "15qmy8mfwkxy2x9rmxs6f9cyvjvwwj6yf78bs863xmc56dmjzzbn"))))
 710       (build-system cmake-build-system)
 711       (arguments
 712        `(#:build-type "Release"
 713          #:tests? #f))
 714       (inputs
 715        `(("luajit" ,luajit)))
 716       (synopsis "Lightweight immediate mode GUI for LÖVE games")
 717       (description "LÖVE is a Lua framework for making 2D games.  Nuklear
 718 is a minimal state immediate mode graphical user interface toolkit.  This
 719 package is the Nuklear bindings for LÖVE created by Kevin Harrison.")
 720       (home-page "https://github.com/keharriso/love-nuklear/")
 721       (license license:expat))))
 722
 723 (define-public allegro-4
 724   (package
 725     (name "allegro")
 726     (version "4.4.3")
 727     (source (origin
 728               (method url-fetch)
 729               (uri (string-append "https://github.com/liballeg/allegro5/"
 730                                   "releases/download/" version "/allegro-"
 731                                   version ".tar.gz"))
 732               (sha256
 733                (base32
 734                 "1d5ws3ihvpa6f4qc6a6drq31pajw6bblxifr4kcxzqj9br1nw28y"))))
 735     (build-system cmake-build-system)
 736     (arguments
 737      '(#:phases
 738        (modify-phases %standard-phases
 739          (add-after 'unpack 'patch-build-system
 740            (lambda _
 741              ;; Build addons as shared libraries.  Trying to set ADDON_LINKAGE
 742              ;; via a command line option doesn't work because it is
 743              ;; unconditionally clobbered in the build script.
 744              (substitute* '("CMakeLists.txt")
 745                (("ADDON_LINKAGE STATIC")
 746                 "ADDON_LINKAGE SHARED"))
 747              #t)))))
 748     (inputs
 749      `(("glu" ,glu)
 750        ("libpng" ,libpng)
 751        ("libvorbis" ,libvorbis)
 752        ("mesa" ,mesa)
 753        ("zlib" ,zlib)))
 754     (synopsis "Game programming library")
 755     (description "Allegro is a library mainly aimed at video game and
 756 multimedia programming.  It handles common, low-level tasks such as creating
 757 windows, accepting user input, loading data, drawing images, playing sounds,
 758 etc.")
 759     (home-page "https://liballeg.org")
 760     (license license:giftware)))
 761
 762 (define-public allegro
 763   (package
 764     (name "allegro")
 765     (version "5.2.5.0")
 766     (source (origin
 767               (method url-fetch)
 768               (uri (string-append "https://github.com/liballeg/allegro5/releases"
 769                                   "/download/" version "/allegro-"
 770                                   version ".tar.gz"))
 771               (sha256
 772                (base32
 773                 "06dpkfnac8w3pq36834nn2iij3ajz6prladqd0w92lq39aiqv5jr"))))
 774     (build-system cmake-build-system)
 775     (arguments `(#:tests? #f))          ; there are no tests
 776     (inputs
 777      ;; FIXME: Add the following optional inputs: xinput2, opensl, dumb
 778      `(("flac" ,flac)
 779        ("freetype" ,freetype)
 780        ("glu" ,glu)
 781        ("gtk" ,gtk+-2)
 782        ("libjpeg" ,libjpeg-turbo)
 783        ("libpng" ,libpng)
 784        ("libtheora" ,libtheora)
 785        ("libvorbis" ,libvorbis)
 786        ("libxcursor" ,libxcursor)
 787        ("libxinerama" ,libxinerama)
 788        ("libxrandr" ,libxrandr)
 789        ("mesa" ,mesa)
 790        ("openal" ,openal)
 791        ("physfs" ,physfs)
 792        ("zlib" ,zlib)))
 793     (native-inputs
 794      `(("pkg-config" ,pkg-config)))
 795     (synopsis "Game programming library")
 796     (description "Allegro is a library mainly aimed at video game and
 797 multimedia programming.  It handles common, low-level tasks such as creating
 798 windows, accepting user input, loading data, drawing images, playing sounds,
 799 etc.")
 800     (home-page "https://liballeg.org")
 801     (license license:bsd-3)))
 802
 803 (define-public allegro-5.0
 804   (package (inherit allegro)
 805     (name "allegro")
 806     (version "5.0.11")
 807     (source (origin
 808               (method url-fetch)
 809               (uri (string-append "https://github.com/liballeg/allegro5/releases"
 810                                   "/download/" version "/allegro-"
 811                                   (if (equal? "0" (string-take-right version 1))
 812                                     (string-drop-right version 2)
 813                                     version)
 814                                   ".tar.gz"))
 815               (patches (search-patches
 816                         "allegro-mesa-18.2.5-and-later.patch"))
 817               (sha256
 818                (base32
 819                 "0cd51qrh97jrr0xdmnivqgwljpmizg8pixsgvc4blqqlaz4i9zj9"))))))
 820
 821 (define-public aseprite
 822   (package
 823     (name "aseprite")
 824     (version "1.1.7") ; After 1.1.7 the source is no longer distributed under the GPL.
 825     ;; TODO: Unbundle third party software.
 826     (source (origin
 827               (method url-fetch/zipbomb)
 828               (uri (string-append "https://github.com/aseprite/aseprite"
 829                                   "/releases/download/v" version
 830                                   "/Aseprite-v" version "-Source.zip"))
 831               (sha256
 832                (base32
 833                 "1plss4i1lfxcznv9p0pip1bkhj7ipw7jlhsh5avd6dzw079l4nvv"))))
 834     (build-system cmake-build-system)
 835     (arguments
 836      '(#:configure-flags
 837        ;; Use shared libraries instead of building bundled source.
 838        (list "-DWITH_WEBP_SUPPORT=1"
 839              "-DUSE_SHARED_CURL=1"
 840              "-DUSE_SHARED_GIFLIB=1"
 841              "-DUSE_SHARED_JPEGLIB=1"
 842              "-DUSE_SHARED_ZLIB=1"
 843              "-DUSE_SHARED_LIBPNG=1"
 844              "-DUSE_SHARED_LIBLOADPNG=1"
 845              "-DUSE_SHARED_LIBWEBP=1"
 846              "-DUSE_SHARED_TINYXML=1"
 847              "-DUSE_SHARED_PIXMAN=1"
 848              "-DUSE_SHARED_FREETYPE=1"
 849              "-DUSE_SHARED_ALLEGRO4=1"
 850              "-DENABLE_UPDATER=0" ; no auto-updates
 851              (string-append "-DFREETYPE_INCLUDE_DIR="
 852                             (assoc-ref %build-inputs "freetype")
 853                             "/include/freetype2"))))
 854     (native-inputs
 855      `(("pkg-config" ,pkg-config)))
 856     ;; TODO: Use a patched Allegro 4 that supports window resizing.  This
 857     ;; patched version is bundled with Aseprite, but the patches should be
 858     ;; extracted and applied on top of a standalone Allegro 4 package.
 859     (inputs
 860      `(("allegro" ,allegro-4)
 861        ("curl" ,curl)
 862        ("freetype" ,freetype)
 863        ("giflib" ,giflib)
 864        ("libjpeg" ,libjpeg-turbo)
 865        ("libpng" ,libpng)
 866        ("libwebp" ,libwebp)
 867        ("libx11" ,libx11)
 868        ("libxext" ,libxext)
 869        ("libxxf86vm" ,libxxf86vm)
 870        ("pixman" ,pixman)
 871        ("tinyxml" ,tinyxml)
 872        ("zlib" ,zlib)))
 873     (synopsis "Animated sprite editor and pixel art tool")
 874     (description "Aseprite is a tool for creating 2D pixel art for video
 875 games.  In addition to basic pixel editing features, Aseprite can assist in
 876 the creation of animations, tiled graphics, texture atlases, and more.")
 877     (home-page "https://www.aseprite.org/")
 878     (license license:gpl2+)))
 879
 880 (define-public qqwing
 881   (package
 882     (name "qqwing")
 883     (version "1.3.4")
 884     (source (origin
 885               (method url-fetch)
 886               (uri (string-append
 887                     "https://qqwing.com/"
 888                     name "-" version ".tar.gz"))
 889               (sha256
 890                (base32
 891                 "0bw0papyqjg22z6irf36gs54y8236wa37b6gyn2h1spy65n76lqp"))))
 892     (build-system gnu-build-system)
 893     (native-inputs
 894       `(("pkg-config" ,pkg-config)))
 895     (home-page "https://qqwing.com/")
 896     (synopsis "Sudoku puzzle solver and generator")
 897     (description
 898      "QQWing is a Sudoku puzzle generator and solver.
 899 It offers the following features:
 900 @enumerate
 901 @item Can solve 1000 puzzles in 1 second and generate 1000 puzzles in 25 seconds.
 902 @item Uses logic.  Uses as many solve techniques as possible when solving
 903   puzzles rather than guessing.
 904 @item Rates puzzles.  Most generators don't give an indication of the difficulty
 905   of a Sudoku puzzle.  QQwing does.
 906 @item Can print solve instructions for any puzzle.
 907 @item Customizable output style, including a CSV style that is easy to
 908   import into a database.
 909 @end enumerate")
 910     (license license:gpl2+)))
 911
 912 (define-public quesoglc
 913   (package
 914     (name "quesoglc")
 915     (version "0.7.2")
 916     (source (origin
 917               (method url-fetch)
 918               (uri (string-append "mirror://sourceforge/" name "/" version "/"
 919                                   name "-" version "-free.tar.bz2"))
 920               (sha256
 921                (base32
 922                 "08ddhywdy2qg17m592ng3yr0p1ih96irg8wg729g75hsxxq9ipks"))))
 923     (build-system gnu-build-system)
 924     (native-inputs `(("pkg-config" ,pkg-config)))
 925     (inputs `(("fontconfig" ,fontconfig)
 926               ("freeglute" ,freeglut)
 927               ("fribidi" ,fribidi)
 928               ("glew" ,glew)))
 929     (home-page "http://quesoglc.sourceforge.net")
 930     (synopsis "Implementation of the OpenGL Character Renderer (GLC)")
 931     (description
 932      "The OpenGL Character Renderer (GLC) is a state machine that provides
 933 OpenGL programs with character rendering services via an application programming
 934 interface (API).")
 935     (license (list license:expat license:lgpl2.1+))))
 936
 937 (define-public python-pygame
 938   (package
 939     (name "python-pygame")
 940     (version "1.9.4")
 941     (source (origin
 942               (method url-fetch)
 943               (uri (pypi-uri "pygame" version))
 944               (sha256
 945                (base32
 946                 "1dn0nb86jl7yr8709cncxdr0yrmviqakw7zx3g8jbbwrr60if3bh"))))
 947     (build-system python-build-system)
 948     (arguments
 949      `(#:tests? #f                ; tests require pygame to be installed first
 950        #:phases
 951        (modify-phases %standard-phases
 952          ;; Set the paths to the dependencies manually because
 953          ;; the configure script does not allow passing them as
 954          ;; parameters.  This also means we can skip the configure
 955          ;; phase.
 956          (add-before 'build 'set-library-paths
 957            (lambda* (#:key inputs outputs #:allow-other-keys)
 958              (let ((sdl-ref   (assoc-ref inputs "sdl"))
 959                    (font-ref  (assoc-ref inputs "sdl-ttf"))
 960                    (image-ref (assoc-ref inputs "sdl-image"))
 961                    (mixer-ref (assoc-ref inputs "sdl-mixer"))
 962                    (smpeg-ref (assoc-ref inputs "libsmpeg"))
 963                    (png-ref   (assoc-ref inputs "libpng"))
 964                    (jpeg-ref  (assoc-ref inputs "libjpeg"))
 965                    (freetype-ref (assoc-ref inputs "freetype"))
 966                    (v4l-ref   (assoc-ref inputs "v4l-utils"))
 967                    (out-ref   (assoc-ref outputs "out")))
 968                (substitute* "Setup.in"
 969                  (("SDL = -I/usr/include/SDL")
 970                   (string-append "SDL = -I" sdl-ref "/include/SDL -I.")))
 971                (substitute* "Setup.in"
 972                  (("FONT = -lSDL_ttf")
 973                   (string-append "FONT = -I" font-ref "/include/SDL -L"
 974                                  font-ref "/lib -lSDL_ttf")))
 975                (substitute* "Setup.in"
 976                  (("IMAGE = -lSDL_image")
 977                   (string-append "IMAGE = -I" image-ref "/include/SDL -L"
 978                                  image-ref "/lib -lSDL_image")))
 979                (substitute* "Setup.in"
 980                  (("MIXER = -lSDL_mixer")
 981                   (string-append "MIXER = -I" mixer-ref "/include/SDL -L"
 982                                  mixer-ref "/lib -lSDL_mixer")))
 983                (substitute* "Setup.in"
 984                  (("SMPEG = -lsmpeg")
 985                   (string-append "SMPEG = -I" smpeg-ref "/include/smpeg -L"
 986                                  smpeg-ref "/lib -lsmpeg")))
 987                (substitute* "Setup.in"
 988                  (("PNG = -lpng")
 989                   (string-append "PNG = -I" png-ref "/include -L"
 990                                  png-ref "/lib -lpng")))
 991                (substitute* "Setup.in"
 992                  (("JPEG = -ljpeg")
 993                   (string-append "JPEG = -I" jpeg-ref "/include -L"
 994                                  jpeg-ref "/lib -ljpeg")))
 995
 996                (substitute* "Setup.in"
 997                  (("FREETYPE = -lfreetype")
 998                   (string-append "FREETYPE = -I" freetype-ref "/include/freetype2 -L"
 999                                  freetype-ref "/lib -lfreetype")))
1000
1001                (substitute* "Setup.in"
1002                  (("^pypm") "#pypm"))
1003                ;; Create a path to a header file provided by v4l-utils.
1004                (system* "mkdir" "linux")
1005                (system* "ln" "--symbolic"
1006                         (string-append v4l-ref "/include/libv4l1-videodev.h")
1007                         "linux/videodev.h")
1008                (system* "ln" "--symbolic" "Setup.in" "Setup")))))))
1009     (inputs
1010      `(("freetype" ,freetype)
1011        ("sdl" ,sdl)
1012        ("sdl-image" ,sdl-image)
1013        ("sdl-mixer" ,sdl-mixer)
1014        ("sdl-ttf" ,sdl-ttf)
1015        ("sdl-gfx" ,sdl-gfx)
1016        ("libjpeg" ,libjpeg-turbo)
1017        ("libpng" ,libpng)
1018        ("libX11" ,libx11)
1019        ("libsmpeg" ,libsmpeg)
1020        ("portmidi" ,portmidi)
1021        ("v4l-utils" ,v4l-utils)))
1022     (home-page "https://www.pygame.org")
1023     (synopsis "SDL wrapper for Python")
1024     (description "Pygame is a set of Python modules designed for writing games.
1025 Pygame adds functionality on top of the excellent SDL library. This allows you
1026 to create fully featured games and multimedia programs in the python language.")
1027     (license (list license:bsd-2
1028                    ;; python numeric license as listed by Debian looks like
1029                    ;; an Expat-style license with a warranty disclaimer for
1030                    ;; the U.S. government and the University of California.
1031                    license:expat
1032                    license:lgpl2.0+
1033                    license:lgpl2.1+
1034                    license:gpl3+
1035                    license:psfl
1036                    license:public-domain
1037                    license:lgpl2.1+))))
1038
1039 (define-public python2-pygame
1040   (package-with-python2 python-pygame))
1041
1042 (define-public python2-pygame-sdl2
1043   (let ((real-version "2.1.0")
1044         (renpy-version "7.3.5"))
1045     (package
1046       (inherit python2-pygame)
1047       (name "python2-pygame-sdl2")
1048       (version (string-append real-version "-for-renpy-" renpy-version))
1049       (source
1050        (origin
1051          (method url-fetch)
1052          (uri (string-append "https://www.renpy.org/dl/" renpy-version
1053                              "/pygame_sdl2-" version ".tar.gz"))
1054          (sha256 (base32 "1bmr7j9mlsc4czpgw70ld15ymyp4wxrk9hdsqad40wjwdxvvg2dr"))))
1055       (build-system python-build-system)
1056       (arguments
1057        `(#:tests? #f                ; tests require pygame to be installed first
1058          #:python ,python-2
1059          #:phases
1060          (modify-phases %standard-phases
1061            (add-after 'set-paths 'set-sdl-vars
1062              (lambda* (#:key inputs #:allow-other-keys)
1063                (setenv "PYGAME_SDL2_CFLAGS"
1064                        (string-append "-I"
1065                                       (assoc-ref inputs "sdl-union")
1066                                       "/include/SDL2 -D_REENTRANT"))
1067                (setenv "PYGAME_SDL2_LDFLAGS"
1068                        (string-append "-L"
1069                                       (assoc-ref inputs "sdl-union")
1070                                       "/lib -Wl,-rpath,"
1071                                       (assoc-ref inputs "sdl-union")
1072                                       "/lib -Wl,--enable-new-dtags -lSDL2"))
1073                #t))
1074            (add-before 'build 'drop-generated-files
1075              (lambda args
1076                (delete-file-recursively "gen")
1077                (delete-file-recursively "gen3")
1078                #t)))))
1079       (inputs
1080        `(("sdl-union"
1081           ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
1082       (native-inputs
1083        `(("python2-cython" ,python2-cython)))
1084       (home-page "http://www.renpy.org/")
1085       (synopsis "Reimplementation of the Pygame API using SDL2")
1086       (description "Pygame_SDL2 reimplements the Pygame API using SDL2,
1087 staying close to the original, but also adding some SDL2-specific features.
1088 While it aims to be used as a drop-in replacement, it appears to be
1089 developed mainly for Ren'py.")
1090       (license (list license:lgpl2.1 license:zlib)))))
1091
1092 (define-public python2-renpy
1093   (package
1094     (name "python2-renpy")
1095     (version "7.3.5")
1096     (source
1097      (origin
1098        (method url-fetch)
1099        (uri (string-append "https://www.renpy.org/dl/" version
1100                            "/renpy-" version "-source.tar.bz2"))
1101        (sha256 (base32 "1anr5cfbvbsbik4v4rvrkdkciwhg700k4lydfbs4n85raimz9mw4"))))
1102     (build-system python-build-system)
1103     (arguments
1104      `(#:tests? #f ; Ren'py doesn't seem to package tests
1105        #:python ,python-2
1106        #:phases
1107        (modify-phases %standard-phases
1108          (add-after 'unpack 'fix-commands
1109            (lambda _
1110              (substitute* "renpy/editor.py"
1111                (("xdg-open")
1112                 (which "xdg-open")))
1113              #t))
1114          (add-after 'set-paths 'set-build-vars
1115            (lambda* (#:key inputs #:allow-other-keys)
1116              (setenv "RENPY_CYTHON"
1117                      (string-append (assoc-ref inputs "python2-cython")
1118                                     "/bin/cython"))
1119              (setenv "RENPY_DEPS_INSTALL" (string-join (map cdr inputs) ":"))
1120              #t))
1121          (replace 'build
1122            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1123              ;; The "module" subdirectory contains a python (really cython)
1124              ;; project, which is built using a script, that is thankfully
1125              ;; named "setup.py".
1126              (with-directory-excursion "module"
1127                (apply (assoc-ref %standard-phases 'build) args))
1128              ;; the above causes renpy.__init__ to be compiled but does not
1129              ;; compile anything else, hence we do that here
1130              (delete-file "renpy/__init__.pyc")
1131              (invoke "python" "-m" "compileall" "renpy")
1132              #t))
1133          (replace 'install
1134            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1135              ;; Again, we have to wrap the module installation.
1136              ;; Additionally, we want to install the python code
1137              ;; (both source and compiled) in the same directory.
1138              (let* ((out (assoc-ref outputs "out"))
1139                     (site (string-append "/lib/python"
1140                                          ,(version-major+minor
1141                                            (package-version python-2))
1142                                          "/site-packages")))
1143                (with-directory-excursion "module"
1144                  (apply (assoc-ref %standard-phases 'install) args))
1145                (copy-recursively "renpy"
1146                                  (string-append out site "/renpy")))
1147              #t)))))
1148     (inputs
1149      `(("ffmpeg" ,ffmpeg)
1150        ("freetype" ,freetype)
1151        ("glew" ,glew)
1152        ("libpng" ,libpng)
1153        ("python2-pygame" ,python2-pygame-sdl2)
1154        ("sdl-union"
1155         ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
1156     (native-inputs
1157      `(("python2-cython" ,python2-cython)
1158        ("xdg-utils" ,xdg-utils)))
1159     (home-page "https://www.renpy.org/")
1160     (synopsis "Ren'py python module")
1161     (description "This package contains the shared libraries and Python
1162 modules of Ren'py.")
1163     (license license:expat)))
1164
1165 (define-public renpy
1166   (package
1167     (inherit python2-renpy)
1168     (name "renpy")
1169     (version "7.3.5")
1170     (build-system python-build-system)
1171     (arguments
1172      `(#:tests? #f ; see python2-renpy
1173        #:python ,python-2
1174        #:phases
1175        (modify-phases %standard-phases
1176          (add-after 'unpack 'fix-commands
1177            (lambda* (#:key outputs #:allow-other-keys)
1178              (substitute* "launcher/game/choose_directory.rpy"
1179                (("/usr/bin/python") (which "python2")))
1180              (substitute* "launcher/game/front_page.rpy"
1181                (("xdg-open")
1182                 (which "xdg-open")))
1183              (substitute* "launcher/game/project.rpy"
1184                (("cmd = \\[ executable, \"-EO\", sys.argv\\[0\\] \\]")
1185                 (string-append "cmd = [ \"" (assoc-ref outputs "out")
1186                                "/bin/renpy\" ]"))
1187                ;; Projects are still created in the usual style, so we need
1188                ;; to adjust the path.
1189                (("cmd.append\\(self.path\\)")
1190                 "cmd.append(self.path + \"/game\")"))
1191              #t))
1192          (add-after 'unpack 'drop-game-from-paths
1193            (lambda _
1194              (substitute* (list "launcher/game/gui7.rpy"
1195                                 "launcher/game/gui7/images.py")
1196                ((", \"game\",") ","))
1197              #t))
1198          (add-before 'build 'start-xserver
1199            (lambda* (#:key inputs #:allow-other-keys)
1200              (let ((xorg-server (assoc-ref inputs "xorg-server")))
1201                (setenv "HOME" (getcwd))
1202                (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
1203                (setenv "DISPLAY" ":1")
1204                #t)))
1205          (replace 'build
1206            (lambda _
1207              (invoke "python" "renpy.py" "launcher" "quit")
1208              (invoke "python" "renpy.py" "the_question" "quit")
1209              (invoke "python" "renpy.py" "tutorial" "quit")
1210              #t))
1211          (replace 'install
1212            (lambda* (#:key inputs outputs #:allow-other-keys)
1213              ;; Here we install our custom renpy program.
1214              ;; After finishing this step, "out" will have the following:
1215              ;; |-- bin/renpy
1216              ;; `-- share/renpy ; i.e. path_to_renpy_base()
1217              ;;     `-- common
1218              ;;
1219              ;; Note that common is also a de facto unused directory in
1220              ;; python2-renpy. On other systems, renpy_base would point to
1221              ;; site-packages or even somewhere in /opt.
1222              ;; The former approach is not as straightforward as it seems
1223              ;; -- it causes renpy to load files twice for some weird reason --
1224              ;; and the latter is impossible on Guix. Hence the detour through
1225              ;; share/renpy and the custom renpy program.
1226              ;;
1227              ;; As a convention, other games should be installed as
1228              ;; subdirectories of share/renpy in their respective outputs as
1229              ;; well. This differs from the traditional layout, which is
1230              ;; roughly the following:
1231              ;; `-- Super Awesome Game
1232              ;;     |-- game      ; <- the folder we actually want
1233              ;;     |-- lib       ; compiled renpy module and dependencies
1234              ;;     |-- renpy     ; Ren'py python code (source + compiled)
1235              ;;     |-- Super Awesome Game.py
1236              ;;     `-- Super Awesome Game.sh
1237              (let* ((out (assoc-ref outputs "out"))
1238                     (bin/renpy (string-append out "/bin/renpy")))
1239                (mkdir-p (string-append out "/bin"))
1240                (copy-recursively "renpy/common"
1241                                  (string-append out "/share/renpy/common"))
1242                (copy-recursively "gui"
1243                                  (string-append out "/share/renpy/gui"))
1244
1245                (call-with-output-file bin/renpy
1246                  (lambda (port)
1247                    (format port "#!~a~%" (which "python2"))
1248                    (format port "
1249 from __future__ import print_function
1250
1251 import os
1252 import sys
1253 import warnings
1254
1255 def path_to_common(renpy_base):
1256     return renpy_base + \"/common\"
1257
1258 def path_to_saves(gamedir, save_directory=None):
1259     import renpy  # @UnresolvedImport
1260
1261     if save_directory is None:
1262         save_directory = renpy.config.save_directory
1263         save_directory = renpy.exports.fsencode(save_directory)
1264
1265     if not save_directory:
1266         return gamedir + \"/saves\"
1267
1268     return os.path.expanduser(\"~~/.renpy/\" + save_directory)
1269
1270 def path_to_renpy_base():
1271     return \"~a\"
1272
1273 def main():
1274     renpy_base = path_to_renpy_base()
1275     try:
1276         import renpy.bootstrap
1277         import renpy.arguments
1278     except ImportError:
1279         print(\"\"\"Could not import renpy.bootstrap.
1280 Please ensure you decompressed Ren'Py correctly, preserving the directory
1281 structure.\"\"\", file=sys.stderr)
1282         raise
1283
1284     args = renpy.arguments.bootstrap()
1285     if not args.basedir:
1286         print(\"\"\"This Ren'py requires a basedir to launch.
1287 The basedir is the directory, in which .rpy files live -- usually the 'game'
1288 subdirectory of a game packaged by Ren'py.
1289
1290 If you want the Ren'py launcher, use renpy-launcher instead.\"\"\",
1291               file=sys.stderr)
1292         sys.exit()
1293
1294     renpy.bootstrap.bootstrap(renpy_base)
1295
1296 if __name__ == \"__main__\":
1297     main()
1298 "
1299                            (string-append out "/share/renpy"))))
1300                (chmod bin/renpy #o755)
1301                #t)))
1302
1303          (add-after 'install 'install-games
1304            (lambda* (#:key outputs #:allow-other-keys)
1305              (define renpy (assoc-ref outputs "out"))
1306              ;; TODO: We should offer a renpy-build-system to make the
1307              ;; installation of Ren'py games easier.
1308              (define* (install-renpy-game #:key output game name (renpy renpy)
1309                                           #:allow-other-keys)
1310                (let* ((name (or name (basename game)))
1311                       (launcher (string-append output "/bin/renpy-" name))
1312                       (share (string-append output "/share/renpy/" name)))
1313                  (copy-recursively (string-append game "/game") share)
1314                  (mkdir-p (string-append output "/bin"))
1315                  (with-output-to-file launcher
1316                    (lambda ()
1317                      (format #t
1318                              "#!~a~%~a ~a \"$@\""
1319                              (which "bash")
1320                              (string-append renpy "/bin/renpy")
1321                              share)))
1322                  (chmod launcher #o755)))
1323
1324              (install-renpy-game #:output (assoc-ref outputs "out")
1325                                  #:game "launcher")
1326
1327              (install-renpy-game #:output (assoc-ref outputs "the-question")
1328                                  #:game "the_question"
1329                                  #:name "the-question")
1330
1331              (install-renpy-game #:output (assoc-ref outputs "tutorial")
1332                                  #:game "tutorial")
1333              #t))
1334          (replace 'wrap
1335            (lambda* (#:key inputs outputs #:allow-other-keys)
1336              (wrap-program (string-append (assoc-ref outputs "out")
1337                                           "/bin/renpy")
1338                `("PYTHONPATH" = (,(getenv "PYTHONPATH"))))
1339              #t)))))
1340     (inputs
1341      `(("python2-tkinter" ,python-2 "tk")
1342        ("python2-pygame" ,python2-pygame-sdl2)
1343        ("python2-renpy" ,python2-renpy)
1344        ("xorg-server" ,xorg-server)))
1345     (outputs
1346      (list "out" "tutorial" "the-question"))
1347     (home-page "https://www.renpy.org/")
1348     (synopsis "Visual Novel Engine")
1349     (description "Ren'Py is a visual novel engine that helps you use words,
1350 images, and sounds to tell interactive stories that run on computers and
1351 mobile devices.  These can be both visual novels and life simulation games.
1352 The easy to learn script language allows anyone to efficiently write large
1353 visual novels, while its Python scripting is enough for complex simulation
1354 games.")
1355     (license license:expat)))
1356
1357 (define-public grafx2
1358   (package
1359     (name "grafx2")
1360     (version "2.4")
1361     (source (origin
1362               (method url-fetch)
1363               ;; XXX: There is no URL that contains the version. :(
1364               (uri "http://pulkomandy.tk/projects/GrafX2/downloads/21")
1365               (sha256
1366                (base32
1367                 "0svsy6rqmdj11b400c242i2ixihyz0hds0dgicqz6g6dcgmcl62q"))))
1368     (build-system gnu-build-system)
1369     (arguments
1370      '(#:phases
1371        (modify-phases %standard-phases
1372          (delete 'configure) ; no configure script
1373          (add-before 'build 'change-to-src-directory
1374            (lambda _
1375              (chdir "src")
1376              #t)))
1377        #:make-flags
1378        ;; SDL header files are referenced without the preceeding "SDL/".
1379        (list (string-append "CFLAGS=-I"
1380                             (assoc-ref %build-inputs "sdl-union")
1381                             "/include/SDL")
1382              (string-append "prefix="
1383                             (assoc-ref %outputs "out")))
1384        #:tests? #f)) ; no check target
1385     (native-inputs
1386      `(("pkg-config" ,pkg-config)))
1387     (inputs
1388      `(("libpng" ,libpng)
1389        ("lua" ,lua-5.1)
1390        ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-ttf)))))
1391     (synopsis "Bitmap paint program")
1392     (description "GrafX2 is a bitmap paint program inspired by the Amiga
1393 programs Deluxe Paint and Brilliance.  Specializing in 256-color drawing, it
1394 includes a very large number of tools and effects that make it particularly
1395 suitable for pixel art, game graphics, and generally any detailed graphics
1396 painted with a mouse.")
1397     (home-page "http://pulkomandy.tk/projects/GrafX2")
1398     (license license:gpl2))) ; GPLv2 only
1399
1400 (define-public ois
1401   (package
1402     (name "ois")
1403     (version "1.5")
1404     (source
1405      (origin
1406        (method git-fetch)
1407        (uri (git-reference
1408              (url "https://github.com/wgois/OIS.git")
1409              (commit (string-append "v" version))))
1410        (file-name (git-file-name name version))
1411        (sha256
1412         (base32 "0g8krgq5bdx2rw7ig0xva4kqv4x815672i7z6lljp3n8847wmypa"))))
1413     (build-system cmake-build-system)
1414     (arguments
1415      `(#:tests? #f))                    ; no test suite
1416     (inputs
1417      `(("libx11" ,libx11)))
1418     (synopsis "Object Oriented Input System")
1419     (description
1420      "Cross Platform Object Oriented Input Lib System is a cross platform,
1421 simple solution for using all kinds of Input Devices (Keyboards, Mice,
1422 Joysticks, etc) and feedback devices (e.g. force feedback).  Meant to be very
1423 robust and compatible with many systems and operating systems.")
1424     (home-page "https://github.com/wgois/OIS")
1425     (license license:zlib)))
1426
1427 (define-public mygui
1428   (package
1429     (name "mygui")
1430     (version "3.2.2")
1431     (source
1432      (origin
1433        (method git-fetch)
1434        (uri (git-reference
1435              (url "https://github.com/MyGUI/mygui")
1436              (commit (string-append "MyGUI" version))))
1437        (file-name (git-file-name name version))
1438        (sha256
1439         (base32
1440          "1wk7jmwm55rhlqqcyvqsxdmwvl70bysl9azh4kd9n57qlmgk3zmw"))))
1441     (build-system cmake-build-system)
1442     (arguments
1443      '(#:tests? #f                      ; No test target
1444        #:configure-flags
1445        (list "-DMYGUI_INSTALL_DOCS=TRUE"
1446              (string-append "-DOGRE_INCLUDE_DIR="
1447                             (assoc-ref %build-inputs "ogre")
1448                             "/include/OGRE")
1449              ;; Demos and tools are Windows-specific:
1450              ;; https://github.com/MyGUI/mygui/issues/24.
1451              "-DMYGUI_BUILD_DEMOS=FALSE"
1452              "-DMYGUI_BUILD_TOOLS=FALSE")))
1453     (native-inputs
1454      `(("boost" ,boost)
1455        ("doxygen" ,doxygen)
1456        ("pkg-config" ,pkg-config)))
1457     (inputs
1458      `(("font-dejavu" ,font-dejavu)
1459        ("freetype" ,freetype)
1460        ("graphviz" ,graphviz)
1461        ("libx11" ,libx11)
1462        ("ogre" ,ogre)
1463        ("ois" ,ois)))
1464     (synopsis "Fast, flexible and simple GUI")
1465     (description
1466      "MyGUI is a library for creating Graphical User Interfaces (GUIs) for games
1467 and 3D applications.  The main goals of mygui are: speed, flexibility and ease
1468 of use.")
1469     (home-page "http://mygui.info/")
1470     (license license:expat)))
1471
1472 (define-public mygui-gl
1473   ;; Closure size is reduced by some 800 MiB.
1474   (package
1475     (inherit mygui)
1476     (name "mygui-gl")
1477     (version "3.2.2")
1478     (arguments
1479      (substitute-keyword-arguments (package-arguments mygui)
1480        ((#:configure-flags _)
1481         `(cons* "-DMYGUI_RENDERSYSTEM=4" ; 3 is Ogre, 4 is OpenGL.
1482                 ;; We can't reuse the flags because of the mention to Ogre.
1483                 (list "-DMYGUI_INSTALL_DOCS=TRUE"
1484                       ;; Demos and tools are Windows-specific:
1485                       ;; https://github.com/MyGUI/mygui/issues/24.
1486                       "-DMYGUI_BUILD_DEMOS=FALSE"
1487                       "-DMYGUI_BUILD_TOOLS=FALSE")))))
1488     (inputs
1489      `(("mesa" ,mesa)
1490        ("glu" ,glu)
1491        ,@(fold alist-delete (package-inputs mygui)
1492                '("ogre"))))
1493     (synopsis "Fast, flexible and simple GUI (OpenGL backend)")))
1494
1495 (define-public openmw
1496   (package
1497     (name "openmw")
1498     (version "0.45.0")
1499     (source
1500      (origin
1501        (method url-fetch)
1502        (uri
1503         (string-append "https://github.com/OpenMW/openmw/archive/"
1504                        "openmw-" version ".tar.gz"))
1505        (sha256
1506         (base32
1507          "0r0wgvv1faan8z8lbply8lks4hcnppifjrcz04l5zvq6yiqzjg5n"))))
1508     (build-system cmake-build-system)
1509     (arguments
1510      `(#:tests? #f                      ; No test target
1511        #:configure-flags
1512        (list "-DDESIRED_QT_VERSION=5")))
1513     (native-inputs
1514      `(("boost" ,boost)
1515        ("doxygen" ,doxygen)
1516        ("pkg-config" ,pkg-config)))
1517     (inputs
1518      `(("bullet" ,bullet)
1519        ("ffmpeg" ,ffmpeg)
1520        ("libxt" ,libxt)
1521        ("mygui" ,mygui-gl)              ; OpenMW does not need Ogre.
1522        ("openal" ,openal)
1523        ("openscenegraph" ,openmw-openscenegraph)
1524        ("qtbase" ,qtbase)
1525        ("sdl" ,sdl2)
1526        ("unshield" ,unshield)))
1527     (synopsis "Re-implementation of the RPG Morrowind engine")
1528     (description
1529      "OpenMW is a game engine which reimplements and extends the one that runs
1530 the 2002 open-world RPG Morrowind.  The engine comes with its own editor,
1531 called OpenMW-CS which allows the user to edit or create their own original
1532 games.")
1533     (home-page "https://openmw.org")
1534     (license license:gpl3)))
1535
1536 (define-public godot
1537   (package
1538     (name "godot")
1539     (version "3.2.1")
1540     (source (origin
1541               (method git-fetch)
1542               (uri (git-reference
1543                     (url "https://github.com/godotengine/godot")
1544                     (commit (string-append version "-stable"))))
1545               (file-name (git-file-name name version))
1546               (sha256
1547                (base32
1548                 "1kndls0rklha7kz9l4i2ivjxab4jpk3b2j7dcgcg2qc3s81yd0r6"))
1549               (modules '((guix build utils)
1550                          (ice-9 ftw)
1551                          (srfi srfi-1)))
1552               (snippet
1553                '(begin
1554                   ;; Keep only those bundled files we have not (yet) replaced
1555                   ;; with Guix versions. Note that some of these may be
1556                   ;; modified; see "thirdparty/README.md".
1557                   (with-directory-excursion "thirdparty"
1558                     (let* ((preserved-files
1559                             '("README.md"
1560                               "assimp"
1561                               "certs"
1562                               "cvtt"
1563                               "enet"
1564                               "etc2comp"
1565                               "fonts"
1566                               "glad"
1567                               "jpeg-compressor"
1568                               "libsimplewebm"
1569                               "miniupnpc"
1570                               "minizip"
1571                               "misc"
1572                               "nanosvg"
1573                               "pvrtccompressor"
1574                               "recastnavigation"
1575                               "squish"
1576                               "tinyexr"
1577                               "vhacd"
1578                               "xatlas")))
1579                       (for-each delete-file-recursively
1580                                 (lset-difference string=?
1581                                                  (scandir ".")
1582                                                  (cons* "." ".." preserved-files)))))
1583                   #t))))
1584     (build-system scons-build-system)
1585     (arguments
1586      `(#:scons ,scons-python2
1587        #:scons-flags (list "platform=x11" "target=release_debug"
1588                            ;; Avoid using many of the bundled libs.
1589                            ;; Note: These options can be found in the SConstruct file.
1590                            "builtin_bullet=no"
1591                            "builtin_freetype=no"
1592                            "builtin_glew=no"
1593                            "builtin_libmpdec=no"
1594                            "builtin_libogg=no"
1595                            "builtin_libpng=no"
1596                            "builtin_libtheora=no"
1597                            "builtin_libvorbis=no"
1598                            "builtin_libvpx=no"
1599                            "builtin_libwebp=no"
1600                            "builtin_mbedtls=no"
1601                            "builtin_opus=no"
1602                            "builtin_pcre2=no"
1603                            "builtin_wslay=no"
1604                            "builtin_zlib=no"
1605                            "builtin_zstd=no")
1606        #:tests? #f                      ; There are no tests
1607        #:phases
1608        (modify-phases %standard-phases
1609          (add-after 'unpack 'scons-use-env
1610            (lambda _
1611              ;; Scons does not use the environment variables by default,
1612              ;; but this substitution makes it do so.
1613              (substitute* "SConstruct"
1614                (("env_base = Environment\\(tools=custom_tools\\)")
1615                 (string-append
1616                  "env_base = Environment(tools=custom_tools)\n"
1617                  "env_base = Environment(ENV=os.environ)")))
1618              #t))
1619          ;; Build headless tools, used for packaging games without depending on X.
1620          (add-after 'build 'build-headless
1621            (lambda* (#:key scons-flags #:allow-other-keys)
1622              (apply invoke "scons"
1623                     `(,(string-append "-j" (number->string (parallel-job-count)))
1624                       "platform=server" ,@(delete "platform=x11" scons-flags)))))
1625          (replace 'install
1626            (lambda* (#:key inputs outputs #:allow-other-keys)
1627              (let* ((out (assoc-ref outputs "out"))
1628                     (headless (assoc-ref outputs "headless"))
1629                     (zenity (assoc-ref inputs "zenity")))
1630                ;; Strip build info from filenames.
1631                (with-directory-excursion "bin"
1632                  (for-each
1633                   (lambda (file)
1634                     (let ((dest (car (string-split (basename file) #\.))))
1635                       (rename-file file dest)))
1636                   (find-files "." "godot.*\\.x11\\.opt\\.tools.*"))
1637                  (install-file "godot" (string-append out "/bin"))
1638                  (install-file "godot_server" (string-append headless "/bin")))
1639                ;; Tell the editor where to find zenity for OS.alert().
1640                (wrap-program (string-append out "/bin/godot")
1641                  `("PATH" ":" prefix (,(string-append zenity "/bin")))))
1642              #t))
1643          (add-after 'install 'install-godot-desktop
1644            (lambda* (#:key outputs #:allow-other-keys)
1645              (let* ((out (assoc-ref outputs "out"))
1646                     (applications (string-append out "/share/applications"))
1647                     (icons (string-append out "/share/icons/hicolor")))
1648                (mkdir-p applications)
1649                (copy-file "misc/dist/linux/org.godotengine.Godot.desktop"
1650                           (string-append applications "/godot.desktop"))
1651                (for-each (lambda (icon dest)
1652                            (mkdir-p (dirname dest))
1653                            (copy-file icon dest))
1654                          '("icon.png" "icon.svg")
1655                          `(,(string-append icons "/256x256/apps/godot.png")
1656                            ,(string-append icons "/scalable/apps/godot.svg"))))
1657              #t)))))
1658     (outputs '("out" "headless"))
1659     (native-inputs `(("pkg-config" ,pkg-config)))
1660     (inputs `(("alsa-lib" ,alsa-lib)
1661               ("bullet" ,bullet)
1662               ("freetype" ,freetype)
1663               ("glew" ,glew)
1664               ("glu" ,glu)
1665               ("libtheora" ,libtheora)
1666               ("libvorbis" ,libvorbis)
1667               ("libvpx" ,libvpx)
1668               ("libwebp" ,libwebp)
1669               ("libx11" ,libx11)
1670               ("libxcursor" ,libxcursor)
1671               ("libxi" ,libxi)
1672               ("libxinerama" ,libxinerama)
1673               ("libxrandr" ,libxrandr)
1674               ("mbedtls" ,mbedtls-apache)
1675               ("mesa" ,mesa)
1676               ("opusfile" ,opusfile)
1677               ("pcre2" ,pcre2)
1678               ("pulseaudio" ,pulseaudio)
1679               ("wslay" ,wslay)
1680               ("zenity" ,zenity)
1681               ("zstd" ,zstd "lib")))
1682     (home-page "https://godotengine.org/")
1683     (synopsis "Advanced 2D and 3D game engine")
1684     (description
1685      "Godot is an advanced multi-platform game engine written in C++.  If
1686 features design tools such as a visual editor, can import 3D models and
1687 provide high-quality 3D rendering, it contains an animation editor, and can be
1688 scripted in a Python-like language.")
1689     (license license:expat)))
1690
1691 (define-public eureka
1692   (package
1693     (name "eureka")
1694     (version "1.24")
1695     (source (origin
1696               (method url-fetch)
1697               (uri (string-append "mirror://sourceforge/eureka-editor/Eureka/"
1698                                   version "/eureka-"
1699                                   ;; version without dots e.g 1.21 => 121
1700                                   (string-join (string-split version #\.) "")
1701                                   "-source.tar.gz"))
1702               (sha256
1703                (base32
1704                 "1x4idjniz9sma3j9ss6ni7fafmz22zs2jnpsqw4my9rsnmra5d9v"))))
1705     (build-system gnu-build-system)
1706     (arguments
1707      '(#:tests? #f
1708        #:make-flags
1709        (let ((out (assoc-ref %outputs "out")))
1710          (list (string-append "PREFIX=" out)))
1711        #:phases
1712        (modify-phases %standard-phases
1713          (delete 'configure)
1714          (add-before 'build 'prepare-install-directories
1715            (lambda* (#:key outputs #:allow-other-keys)
1716              (let ((out (assoc-ref outputs "out")))
1717                (mkdir-p (string-append out "/bin"))
1718                (mkdir-p (string-append out "/share"))
1719
1720                (with-fluids ((%default-port-encoding #f))
1721                  (substitute* "./src/main.cc"
1722                    (("/usr/local") out)))
1723
1724                (substitute* "Makefile"
1725                  (("-o root") ""))))))))
1726     (inputs `(("mesa" ,mesa)
1727               ("libxft" ,libxft)
1728               ("libxinerama" ,libxinerama)
1729               ("libfontconfig" ,fontconfig)
1730               ("libjpeg" ,libjpeg-turbo)
1731               ("libpng" ,libpng)
1732               ("fltk" ,fltk)
1733               ("zlib" ,zlib)))
1734     (native-inputs `(("pkg-config" ,pkg-config)
1735                      ("xdg-utils" ,xdg-utils)))
1736     (synopsis "Doom map editor")
1737     (description "Eureka is a map editor for the classic DOOM games, and a few
1738 related games such as Heretic and Hexen.  It comes with a 3d preview mode and
1739 a 2D editor view.")
1740     (home-page "http://eureka-editor.sourceforge.net/")
1741     (license license:gpl2+)))
1742
1743 (define-public guile-chickadee
1744   (package
1745     (name "guile-chickadee")
1746     (version "0.4.0")
1747     (source (origin
1748               (method url-fetch)
1749               (uri (string-append "https://files.dthompson.us/chickadee/"
1750                                   "chickadee-" version ".tar.gz"))
1751               (sha256
1752                (base32
1753                 "1fdicsgls5cp0yffcm5vjmav67gv9bxhz1s3jvdvinspxb485x7l"))))
1754     (build-system gnu-build-system)
1755     (propagated-inputs
1756      `(("guile-opengl" ,guile-opengl)
1757        ("guile-sdl2" ,guile-sdl2)))
1758     (inputs
1759      `(("guile" ,guile-2.2)))
1760     (native-inputs
1761      `(("pkg-config" ,pkg-config)
1762        ("texinfo" ,texinfo)))
1763     (home-page "https://dthompson.us/projects/chickadee.html")
1764     (synopsis "Game development toolkit for Guile Scheme with SDL2 and OpenGL")
1765     (description "Chickadee is a game development toolkit for Guile Scheme
1766 built on top of SDL2 and OpenGL.  Chickadee aims to provide all the features
1767 that parenthetically inclined game developers need to make 2D (and eventually
1768 3D) games in Scheme, such as:
1769
1770 @enumerate
1771 @item extensible, fixed-timestep game loop
1772 @item OpenGL-based rendering engine
1773 @item keyboard, mouse, controller input
1774 @item REPL-driven development model
1775 @end enumerate\n")
1776     (license license:gpl3+)))
1777
1778 (define-public guile3.0-chickadee
1779   (package
1780     (inherit guile-chickadee)
1781     (name "guile3.0-chickadee")
1782     (version "0.4.0")
1783     (source (origin
1784               (method url-fetch)
1785               (uri (string-append "https://files.dthompson.us/chickadee/"
1786                                   "chickadee-" version ".tar.gz"))
1787               (sha256
1788                (base32
1789                 "1fdicsgls5cp0yffcm5vjmav67gv9bxhz1s3jvdvinspxb485x7l"))))
1790     (build-system gnu-build-system)
1791     (propagated-inputs
1792      `(("guile-opengl" ,guile3.0-opengl)
1793        ("guile-sdl2" ,guile3.0-sdl2)))
1794     (inputs
1795      `(("guile" ,guile-3.0)))
1796     (native-inputs
1797      `(("pkg-config" ,pkg-config)
1798        ("texinfo" ,texinfo)))
1799     (home-page "https://dthompson.us/projects/chickadee.html")
1800     (synopsis "Game development toolkit for Guile Scheme with SDL2 and OpenGL")
1801     (description "Chickadee is a game development toolkit for Guile Scheme
1802 built on top of SDL2 and OpenGL.  Chickadee aims to provide all the features
1803 that parenthetically inclined game developers need to make 2D (and eventually
1804 3D) games in Scheme, such as:
1805
1806 @enumerate
1807 @item extensible, fixed-timestep game loop
1808 @item OpenGL-based rendering engine
1809 @item keyboard, mouse, controller input
1810 @item REPL-driven development model
1811 @end enumerate\n")
1812     (license license:gpl3+)))
1813
1814 (define-public bennu-game-development
1815   (package
1816     (name "bennu-game-development")
1817     (version "348")
1818     (source (origin
1819               (method svn-fetch)
1820               (uri (svn-reference
1821                     (url "http://svn.code.sf.net/p/bennugd/code")
1822                     (revision (string->number version))))
1823               (file-name (string-append name "-" version))
1824               (sha256
1825                (base32
1826                 "0wpzsbh4zi3931493dnyl5ffmh1b7fj2sx3mzrq304z9zs4d6lqq"))
1827               (modules '((guix build utils)))
1828               (snippet
1829                '(begin
1830                   (delete-file-recursively "3rdparty") #t))))
1831     (build-system gnu-build-system)
1832     (arguments
1833      '(#:phases
1834        (modify-phases %standard-phases
1835          (add-after 'unpack 'patch-configure-to-use-openssl
1836            (lambda* (#:key outputs #:allow-other-keys)
1837              (chdir "core")
1838              (delete-file "configure")
1839              (substitute* "configure.in"
1840                (("i\\*86\\)")
1841                 "*)
1842                 COMMON_CFLAGS=\"$COMMON_CFLAGS -DUSE_OPENSSL\"
1843                 COMMON_LDFLAGS=\"$COMMON_LDFLAGS\"
1844                 LIBSSL=\"crypto\"
1845                 USE_OPENSSL=yes
1846                 ;;
1847
1848             i*86)"))
1849                #t)))))
1850     (inputs `(("openssl" ,openssl)
1851               ("zlib" ,zlib)))
1852     (native-inputs `(("pkg-config" ,pkg-config)
1853                      ("autoconf" ,autoconf)
1854                      ("automake" ,automake)
1855                      ("libtool" ,libtool)))
1856     (synopsis "Programming language to create games")
1857     (description "Bennu Game Development, also known as bennudg, is a
1858 programming language tailored at game development.  It is the successor of
1859 Fenix.")
1860     (home-page "https://sourceforge.net/projects/bennugd/")
1861     (license license:zlib)))
1862
1863 (define-public bennu-game-development-modules
1864   (package
1865     (inherit bennu-game-development)
1866     (name "bennu-game-development-modules")
1867     (arguments
1868      '(#:phases
1869        (modify-phases %standard-phases
1870          (add-after 'unpack 'patch-conflicting-definitions
1871            (lambda _
1872              (with-fluids ((%default-port-encoding #f))
1873                (substitute* "core/include/fmath.h"
1874                  (("extern fixed fmul\\( int x, int y \\);") "")
1875                  (("extern fixed fdiv\\( int x, int y \\);") "")))
1876              (chdir "modules"))))))
1877     (inputs `(("zlib" ,zlib)
1878               ("libpng" ,libpng)
1879               ("openssl" ,openssl)
1880               ("sdl-mixer" ,sdl-mixer)
1881               ("bennu-game-development" ,bennu-game-development)))
1882     (synopsis "Modules for the Bennu Game Development programming language")
1883     (description "This package contains a collection of modules for the Bennu
1884 Game Development programming language, from CD handling through SDL to
1885 joystick support.")))
1886
1887 (define-public plib
1888   (package
1889     (name "plib")
1890     (version "1.8.5")
1891     (source (origin
1892               (method url-fetch)
1893               (uri (string-append "http://plib.sourceforge.net/dist/"
1894                                   "plib-" version ".tar.gz"))
1895               (sha256
1896                (base32
1897                 "0cha71mflpa10vh2l7ipyqk67dq2y0k5xbafwdks03fwdyzj4ns8"))
1898               (patches (search-patches "plib-CVE-2011-4620.patch"
1899                                        "plib-CVE-2012-4552.patch"))))
1900     (build-system gnu-build-system)
1901     (inputs
1902      `(("mesa" ,mesa)
1903        ("libxi" ,libxi)
1904        ("libxmu" ,libxmu)))
1905     (native-inputs
1906      `(("pkg-config" ,pkg-config)))
1907     (home-page "http://plib.sourceforge.net/")
1908     (synopsis "Suite of portable game libraries")
1909     (description "PLIB is a set of libraries that will permit programmers to
1910 write games and other realtime interactive applications that are 100% portable
1911 across a wide range of hardware and operating systems.  PLIB includes sound
1912 effects, music, a complete 3D engine, font rendering, a simple Windowing
1913 library, a game scripting language, a GUI, networking, 3D math library and a
1914 collection of handy utility functions.  All are 100% portable across nearly
1915 all modern computing platforms.  Each library component is fairly independent
1916 of the others")
1917     (license license:lgpl2.0+)))
1918
1919 (define-public ioquake3
1920   ;; We follow master since it seems that there won't be releases after 1.3.6.
1921   (let ((commit "95b9cab4d644fa3bf757cfff821cc4f7d76e38b0"))
1922     (package
1923       (name "ioquake3")
1924       (version (git-version "1.3.6" "1" commit))
1925       (source
1926        (origin
1927          (method git-fetch)
1928          (uri (git-reference
1929                (url "https://github.com/ioquake/ioq3.git")
1930                (commit commit)))
1931          (file-name (git-file-name name version))
1932          (sha256
1933           (base32
1934            "1vflk028z9gccg5yfi5451y1k5wxjdh3qbhjf4x6r7w2pzlxh16z"))))
1935       (build-system gnu-build-system)
1936       (inputs
1937        `(("sdl2" ,sdl2)
1938          ("libjpeg" ,libjpeg-turbo)
1939          ("openal" ,openal)
1940          ("curl" ,curl)
1941          ("opusfile" ,opusfile)
1942          ("opus" ,opus)
1943          ("libvorbis" ,libvorbis)
1944          ("freetype" ,freetype)
1945          ("libogg" ,libogg)))
1946       (native-inputs
1947        `(("which" ,which)               ; Else SDL_version.h won't be found.
1948          ("pkg-config" ,pkg-config)))
1949       (arguments
1950        '(#:tests? #f                    ; No tests.
1951          #:make-flags '("CC=gcc"
1952                         "USE_INTERNAL_LIBS=0"
1953                         "USE_FREETYPE=1"
1954                         "USE_RENDERER_DLOPEN=0"
1955                         "USE_OPENAL_DLOPEN=0"
1956                         "USE_CURL_DLOPEN=0")
1957          #:phases
1958          (modify-phases %standard-phases
1959            (delete 'configure)
1960            (replace 'install
1961              (lambda* (#:key outputs #:allow-other-keys)
1962                (invoke "make" "copyfiles" "CC=gcc"
1963                         "USE_INTERNAL_LIBS=0"
1964                        (string-append "COPYDIR="
1965                                       (assoc-ref outputs "out")
1966                                       "/bin")))))))
1967       (home-page "https://ioquake3.org/")
1968       (synopsis "FPS game engine based on Quake 3")
1969       (description "ioquake3 is a free software first person shooter engine
1970 based on the Quake 3: Arena and Quake 3: Team Arena source code.  Compared to
1971 the original, ioquake3 has been cleaned up, bugs have been fixed and features
1972 added.  The permanent goal is to create the open source Quake 3 distribution
1973 upon which people base their games, ports to new platforms, and other
1974 projects.")
1975       (license license:gpl2))))
1976
1977 (define-public openvr
1978   (package
1979     (name "openvr")
1980     (version "1.8.19")
1981     (home-page "https://github.com/ValveSoftware/openvr/")
1982     (source
1983      (origin
1984        (method git-fetch)
1985        (uri (git-reference
1986              (url home-page)
1987              (commit (string-append "v" version))))
1988        (file-name (git-file-name name version))
1989        (sha256
1990         (base32 "1b8cppvw6ib0kvx0vjq7jsk3plg1vh171w8xr230vjn05381wp52"))))
1991     (build-system cmake-build-system)
1992     (arguments
1993      ;; No tests.
1994      '(#:tests? #f
1995        #:configure-flags (list "-DBUILD_SHARED=1")))
1996     (synopsis "Virtual reality software development kit")
1997     (description "OpenVR is an API and runtime that allows access to VR
1998 hardware from multiple vendors without requiring that applications have
1999 specific knowledge of the hardware they are targeting.")
2000     (license license:bsd-3)))
2001
2002 (define-public fna
2003   (package
2004     (name "fna")
2005     (version "19.12.01")
2006     (source
2007      (origin
2008        (method git-fetch)
2009        (uri (git-reference
2010              (url "https://github.com/FNA-XNA/FNA.git")
2011              (commit version)))
2012        (file-name (git-file-name name version))
2013        (sha256
2014         (base32 "1vdyi9hac24fqcs8kpj6yk36bf5rrl4dvlvdd9fc701fawcf6lrr"))))
2015     (build-system gnu-build-system)
2016     (arguments
2017      '(#:tests? #f                      ; No tests.
2018        #:phases
2019        (modify-phases %standard-phases
2020          (add-after 'unpack 'link-dep-src
2021            (lambda* (#:key inputs #:allow-other-keys)
2022              (let ((sdl2 (assoc-ref inputs "sdl2-cs-src"))
2023                    (mojoshader (assoc-ref inputs "mojoshader-src"))
2024                    (faudio (assoc-ref inputs "faudio-src"))
2025                    (theorafile (assoc-ref inputs "theorafile-src")))
2026                (symlink (string-append sdl2 "/src") "lib/SDL2-CS/src")
2027                (symlink (string-append mojoshader "/csharp") "lib/MojoShader/csharp")
2028                (symlink (string-append faudio "/csharp") "lib/FAudio/csharp")
2029                (symlink (string-append theorafile "/csharp") "lib/Theorafile/csharp"))))
2030          (delete 'configure)
2031          (replace 'build
2032            (lambda _
2033              (invoke "make" "release")))
2034          (replace 'install
2035            (lambda* (#:key outputs #:allow-other-keys)
2036              (let ((out (assoc-ref outputs "out")))
2037                (install-file "bin/Release/FNA.dll" (string-append out "/lib"))
2038                #t))))))
2039     (native-inputs
2040      `(("mono" ,mono)))
2041     (inputs `(("sdl2-cs-src" ,(package-source sdl2-cs))
2042               ("mojoshader-src" ,(package-source mojoshader-cs))
2043               ("faudio-src" ,(package-source faudio))
2044               ("theorafile-src" ,(package-source theorafile))))
2045     (home-page "https://fna-xna.github.io/")
2046     (synopsis "Accuracy-focused XNA4 reimplementation")
2047     (description "FNA is a Microsoft XNA Game Studio 4.0 reimplementation that
2048 focuses solely on developing a fully accurate XNA4 runtime for the desktop.")
2049     (license (list license:ms-pl        ; FNA
2050                    license:lgpl2.1      ; LzxDecoder.cs
2051                    ;; Mono.Xna:
2052                    license:expat))))
2053
2054 (define-public libccd
2055   (package
2056     (name "libccd")
2057     (version "2.1")
2058     (source
2059      (origin
2060        (method git-fetch)
2061        (uri (git-reference
2062              (url "https://github.com/danfis/libccd.git")
2063              (commit (string-append "v" version))))
2064        (file-name (git-file-name name version))
2065        (sha256
2066         (base32 "0sfmn5pd7k5kyhbxnd689xmsa5v843r7sska96dlysqpljd691jc"))))
2067     (build-system cmake-build-system)
2068     (arguments
2069      `(#:configure-flags '("-DBUILD_DOCUMENTATION=ON"
2070                            "-DBUILD_TESTING=ON"
2071                            "-DENABLE_DOUBLE_PRECISION=ON")))
2072     (native-inputs
2073      `(("python-sphinx" ,python-sphinx)))
2074     (home-page "https://github.com/danfis/libccd")
2075     (synopsis "Library for collision detection between two convex shapes")
2076     (description "@code{libccd} is library for a collision detection
2077 between two convex shapes.  @code{libccd} implements variation on
2078 Gilbert–Johnson–Keerthi algorithm plus Expand Polytope Algorithm (EPA)
2079 and also implements algorithm Minkowski Portal Refinement (MPR,
2080 a.k.a. XenoCollide) as described in Game Programming Gems 7.")
2081     (license license:expat)))
2082
2083 (define-public ode
2084   (package
2085     (name "ode")
2086     (version "0.16.1")
2087     (source
2088      (origin
2089        (method url-fetch)
2090        (uri (string-append "https://bitbucket.org/odedevs/ode/downloads/"
2091                            "ode-" version ".tar.gz"))
2092        (sha256
2093         (base32 "1flfdqgdbcn1bx8nrrd4qnp6cvsxrhvk8cdg7vaq2dzkh6nsqa5j"))
2094        (modules '((guix build utils)))
2095        (snippet
2096         '(begin
2097            (delete-file-recursively "libccd")
2098            #t))))
2099     (build-system cmake-build-system)
2100     (arguments
2101      ;; Tests fail on all systems but x86_64.  This is fixed upstream and can
2102      ;; be removed in 0.16.2+.
2103      `(#:tests? ,(string-prefix? "x86_64-"
2104                                  (or (%current-target-system)
2105                                      (%current-system)))
2106        #:configure-flags '("-DODE_WITH_LIBCCD_SYSTEM=ON")
2107        #:phases
2108        (modify-phases %standard-phases
2109          (add-after 'unpack 'unbundle-libccd
2110            (lambda _
2111              (substitute* "CMakeLists.txt"
2112                (("configure_file\\(libccd/.*") ""))
2113              #t)))))
2114     (inputs
2115      `(("glu" ,glu)
2116        ("libccd" ,libccd)
2117        ("mesa" ,mesa)))
2118     (home-page "https://www.ode.org/")
2119     (synopsis "High performance library for simulating rigid body dynamics")
2120     (description "ODE is a high performance library for simulating
2121 rigid body dynamics.  It is fully featured, stable, mature and
2122 platform independent with an easy to use C/C++ API.  It has advanced
2123 joint types and integrated collision detection with friction.  ODE is
2124 useful for simulating vehicles, objects in virtual reality
2125 environments and virtual creatures.  It is currently used in many
2126 computer games, 3D authoring tools and simulation tools.")
2127     ;; Software is dual-licensed.
2128     (license (list license:lgpl2.1+ license:expat))))
2129
2130 (define-public chipmunk
2131   (package
2132     (name "chipmunk")
2133     (version "7.0.3")
2134     (source
2135      (origin
2136        (method git-fetch)
2137        (uri (git-reference
2138              (url "https://github.com/slembcke/Chipmunk2D.git")
2139              (commit (string-append "Chipmunk-" version))))
2140        (file-name (git-file-name name version))
2141        (sha256
2142         (base32 "1qmkn01g06p3rnhmbyffmjns6wj5vhgf9cscigk3wzxcpwv1hyxb"))))
2143     (build-system cmake-build-system)
2144     (arguments
2145      `(#:tests? #f                      ;no test
2146        #:configure-flags '("-DBUILD_STATIC=OFF"
2147                            "-DBUILD_DEMOS=OFF")))
2148     (inputs
2149      `(("freeglut" ,freeglut)
2150        ("libxmu" ,libxmu)
2151        ("libxrandr" ,libxrandr)))
2152     (home-page "https://chipmunk-physics.net/")
2153     (synopsis "Fast and lightweight 2D game physics library")
2154     (description "Chipmunk is a simple, lightweight, fast and portable 2D
2155 rigid body physics library written in C.")
2156     (license license:expat)))
2157
2158 (define-public libtcod
2159   (package
2160     (name "libtcod")
2161     (version "1.15.1")
2162     (source (origin
2163               (method git-fetch)
2164               (uri (git-reference
2165                     (url "https://github.com/libtcod/libtcod.git")
2166                     (commit version)))
2167               (file-name (git-file-name name version))
2168               (sha256
2169                (base32
2170                 "0pzr8ajmbqvh43ldjajx962xirj3rf8ayh344p6mqlrmb8gxrfr5"))
2171               (modules '((guix build utils)))
2172               (snippet '(begin
2173                           (delete-file-recursively "src/vendor/utf8proc")
2174                           (delete-file-recursively "src/vendor/zlib")
2175                           (delete-file "src/vendor/stb_truetype.h")
2176                           (delete-file "src/vendor/stb_sprintf.h")
2177                           (delete-file "src/vendor/lodepng.cpp")
2178                           (delete-file "src/vendor/lodepng.h")
2179
2180                           (substitute* "buildsys/autotools/sources.am"
2181                             (("\\.\\./\\.\\./src/vendor/lodepng\\.cpp \\\\\n") "")
2182                             (("\\.\\./\\.\\./src/vendor/stb\\.c \\\\")
2183                              "../../src/vendor/stb.c")
2184                             (("\\.\\./\\.\\./src/vendor/utf8proc/utf8proc\\.c") ""))
2185
2186                           (substitute* "src/libtcod/sys_sdl_img_png.cpp"
2187                             (("\\.\\./vendor/") ""))
2188
2189                           (substitute* '("src/libtcod/color/canvas.cpp"
2190                                          "src/libtcod/sys_sdl_img_png.cpp"
2191                                          "src/libtcod/tileset/truetype.cpp"
2192                                          "src/libtcod/tileset/tilesheet.cpp")
2193                             (("\\.\\./\\.\\./vendor/") ""))
2194
2195                           (substitute* "src/libtcod/console/printing.cpp"
2196                             (("\\.\\./\\.\\./vendor/utf8proc/") ""))
2197                           #t))))
2198     (build-system gnu-build-system)
2199     (arguments
2200      `(#:configure-flags '("--with-gnu-ld"
2201                            "LIBS=-lutf8proc -llodepng")
2202        #:phases
2203        (modify-phases %standard-phases
2204          (add-after 'unpack 'change-to-build-dir
2205            (lambda _
2206              (chdir "buildsys/autotools")
2207              (patch-shebang "get_version.py")
2208              #t)))))
2209     (native-inputs
2210      `(("autoconf" ,autoconf)
2211        ("automake" ,automake)
2212        ("libtool" ,libtool)
2213        ("python" ,python)
2214        ("pkg-config" ,pkg-config)
2215        ("stb-sprintf" ,stb-sprintf)
2216        ("stb-truetype" ,stb-truetype)))
2217     (inputs
2218      `(("lodepng" ,lodepng)
2219        ("sdl2" ,sdl2)
2220        ("utf8proc" ,utf8proc)
2221        ("zlib" ,zlib)))
2222     (home-page "https://github.com/libtcod/libtcod")
2223     (synopsis "Library specifically designed for writing roguelikes")
2224     (description
2225      "libtcod is a fast, portable and uncomplicated API for roguelike
2226 developers providing an advanced true color console, input, and lots of other
2227 utilities frequently used in roguelikes.")
2228     (license license:bsd-3)))
2229
2230 (define-public warsow-qfusion
2231   ;; As of 2020-04-09, the latest stable version 2.1.0 is deprecated.
2232   ;; The 2.5 beta as published on the homepage is commit
2233   ;; c4de15df559410aff0ca6643724e24cddb0ecbbd
2234   (let ((commit "c4de15df559410aff0ca6643724e24cddb0ecbbd"))
2235     (package
2236       (name "warsow-qfusion")
2237       (version (git-version "2.5" "1" commit)) ; 2.5-beta
2238       (source (origin
2239                 (method git-fetch)
2240                 (uri (git-reference
2241                       (url "https://github.com/Warsow/qfusion/")
2242                       (commit commit)
2243                       (recursive? #t)))
2244                 (file-name (git-file-name name version))
2245                 (sha256
2246                  (base32
2247                   "0xv2yycr43p3xmq7lm6j6zb3cpcr6w00x7qg918faq0mw9j7v48g"))
2248                 ;; Issue reported here: https://github.com/Warsow/qfusion/issues/46
2249                 (patches (search-patches "warsow-qfusion-fix-bool-return-type.patch"))
2250                 (modules '((guix build utils)))
2251                 (snippet '(begin
2252                             (delete-file-recursively "platforms")
2253                             (delete-file-recursively "debian")
2254                             (delete-file-recursively "libsrcs")
2255                             #t))))
2256       (build-system cmake-build-system)
2257       (arguments
2258        `(#:tests? #f                    ; No tests.
2259          #:configure-flags '("-DQFUSION_GAME=Warsow")
2260          #:modules
2261          ((guix build utils)
2262           (guix build cmake-build-system)
2263           (ice-9 match))
2264          #:phases
2265          (modify-phases %standard-phases
2266            (add-after 'unpack 'change-to-build-dir
2267              (lambda _
2268                (chdir "source")
2269                #t))
2270            (add-after 'install 'really-install
2271              (lambda* (#:key outputs system #:allow-other-keys)
2272                (let ((arch (match system
2273                              ("x86_64-linux" "x86_64")
2274                              ("i686-linux" "i386")))
2275                      (out (assoc-ref outputs "out")))
2276                  (install-file (string-append "../source/build/basewsw/libgame_"
2277                                               arch ".so")
2278                                (string-append out "/lib/"))
2279                  (install-file (string-append "../source/build/libui_" arch ".so")
2280                                (string-append out "/lib/"))
2281                  (for-each
2282                   (lambda (file)
2283                     (install-file file (string-append out "/bin/")))
2284                   (append (find-files "../source/build" "warsow")
2285                           (find-files "../source/build" "wsw_server."))))
2286                #t)))))
2287       (inputs
2288        `(("alsa-lib" ,alsa-lib)
2289          ("curl" ,curl)
2290          ("freetype" ,freetype)
2291          ("ffmpeg" ,ffmpeg)
2292          ("libjpeg" ,libjpeg-turbo)
2293          ("libogg" ,libogg)
2294          ("libpng" ,libpng)
2295          ("libtheora" ,libtheora)
2296          ("libvorbis" ,libvorbis)
2297          ("mesa" ,mesa)
2298          ("openal" ,openal)
2299          ("pulseaudio" ,pulseaudio)
2300          ("qtbase" ,qtbase)
2301          ("qtdeclarative" ,qtdeclarative)
2302          ("sdl2" ,sdl2)
2303          ("uuid.h" ,util-linux "lib")
2304          ("zlib" ,zlib)))
2305       (native-inputs
2306        `(("pkg-config" ,pkg-config)))
2307       (home-page "https://github.com/Warsow/qfusion")
2308       (supported-systems '("i686-linux" "x86_64-linux"))
2309       (synopsis "Warsow's fork of qfusion, the id Tech 2 derived game engine")
2310       (description
2311        "This package contains the game engine of Warsow, a first-person
2312 shooter video game.  The engine is based on qfusion, the id Tech 2 derived
2313 game engine.  id Tech 2 is the engine originally behind Quake 2.")
2314       (license license:gpl2+))))