gnu/packages/game-development.scm

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