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