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