gnu: open-adventure: Update to 1.9.
[jackhill/guix/guix.git] / gnu / packages / games.scm
1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013 John Darrington <jmd@gnu.org>
3 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
4 ;;; Copyright © 2014, 2016 David Thompson <dthompson2@worcester.edu>
5 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Eric Bavier <bavier@posteo.net>
6 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
7 ;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net>
8 ;;; Copyright © 2014, 2015, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
9 ;;; Copyright © 2014, 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
10 ;;; Copyright © 2014, 2015, 2019 Mark H Weaver <mhw@netris.org>
11 ;;; Copyright © 2015, 2016 Andreas Enge <andreas@enge.fr>
12 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
13 ;;; Copyright © 2015, 2017, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org>
14 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
15 ;;; Copyright © 2015, 2016, 2017 Alex Kost <alezost@gmail.com>
16 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
17 ;;; Copyright © 2016, 2017 Rodger Fox <thylakoid@openmailbox.org>
18 ;;; Copyright © 2016, 2017, 2018 Nikita <nikita@n0.is>
19 ;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org>
20 ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Kei Kebreau <kkebreau@posteo.net>
21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
22 ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
23 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
24 ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com>
25 ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info>
26 ;;; Copyright © 2017, 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
27 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
28 ;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue>
29 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
30 ;;; Copyright © 2017, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
32 ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
33 ;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
34 ;;; Copyright © 2018 okapi <okapi@firemail.cc>
35 ;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
36 ;;; Copyright © 2018 Madalin Ionel-Patrascu <madalinionel.patrascu@mdc-berlin.de>
37 ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
38 ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
39 ;;; Copyright © 2019, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
40 ;;; Copyright © 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
41 ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
42 ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
43 ;;; Copyright © 2019, 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
44 ;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
45 ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
46 ;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
47 ;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
48 ;;; Copyright © 2017, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
49 ;;; Copyright © 2020 Alberto Eleuterio Flores Guerrero <barbanegra+guix@posteo.mx>
50 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
51 ;;; Copyright © 2020 Vitaliy Shatrov <D0dyBo0D0dyBo0@protonmail.com>
52 ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
53 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
54 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
55 ;;; Copyright © 2020 Trevor Hass <thass@okstate.edu>
56 ;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
57 ;;; Copyright © 2020 Lu hux <luhux@outlook.com>
58 ;;;
59 ;;; This file is part of GNU Guix.
60 ;;;
61 ;;; GNU Guix is free software; you can redistribute it and/or modify it
62 ;;; under the terms of the GNU General Public License as published by
63 ;;; the Free Software Foundation; either version 3 of the License, or (at
64 ;;; your option) any later version.
65 ;;;
66 ;;; GNU Guix is distributed in the hope that it will be useful, but
67 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
68 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
69 ;;; GNU General Public License for more details.
70 ;;;
71 ;;; You should have received a copy of the GNU General Public License
72 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
73
74 (define-module (gnu packages games)
75 #:use-module (ice-9 match)
76 #:use-module ((guix licenses) #:prefix license:)
77 #:use-module (guix utils)
78 #:use-module (guix packages)
79 #:use-module (guix download)
80 #:use-module (guix git-download)
81 #:use-module (guix svn-download)
82 #:use-module (guix gexp)
83 #:use-module (gnu packages)
84 #:use-module (gnu packages adns)
85 #:use-module (gnu packages algebra)
86 #:use-module (gnu packages autotools)
87 #:use-module (gnu packages backup)
88 #:use-module (gnu packages base)
89 #:use-module (gnu packages build-tools)
90 #:use-module (gnu packages admin)
91 #:use-module (gnu packages audio)
92 #:use-module (gnu packages avahi)
93 #:use-module (gnu packages assembly)
94 #:use-module (gnu packages bash)
95 #:use-module (gnu packages bison)
96 #:use-module (gnu packages boost)
97 #:use-module (gnu packages check)
98 #:use-module (gnu packages cmake)
99 #:use-module (gnu packages compression)
100 #:use-module (gnu packages curl)
101 #:use-module (gnu packages crypto)
102 #:use-module (gnu packages cyrus-sasl)
103 #:use-module (gnu packages documentation)
104 #:use-module (gnu packages docbook)
105 #:use-module (gnu packages emulators)
106 #:use-module (gnu packages flex)
107 #:use-module (gnu packages fltk)
108 #:use-module (gnu packages fonts)
109 #:use-module (gnu packages fontutils)
110 #:use-module (gnu packages freedesktop)
111 #:use-module (gnu packages fribidi)
112 #:use-module (gnu packages game-development)
113 #:use-module (gnu packages gcc)
114 #:use-module (gnu packages gettext)
115 #:use-module (gnu packages ghostscript)
116 #:use-module (gnu packages gimp)
117 #:use-module (gnu packages gl)
118 #:use-module (gnu packages glib)
119 #:use-module (gnu packages gnome)
120 #:use-module (gnu packages gnu-doc)
121 #:use-module (gnu packages gnupg)
122 #:use-module (gnu packages gnuzilla)
123 #:use-module (gnu packages gperf)
124 #:use-module (gnu packages graphics)
125 #:use-module (gnu packages gsasl)
126 #:use-module (gnu packages gstreamer)
127 #:use-module (gnu packages gtk)
128 #:use-module (gnu packages guile)
129 #:use-module (gnu packages haskell)
130 #:use-module (gnu packages haskell-crypto)
131 #:use-module (gnu packages haskell-xyz)
132 #:use-module (gnu packages icu4c)
133 #:use-module (gnu packages image)
134 #:use-module (gnu packages imagemagick)
135 #:use-module (gnu packages kde)
136 #:use-module (gnu packages kde-frameworks)
137 #:use-module (gnu packages less)
138 #:use-module (gnu packages libcanberra)
139 #:use-module (gnu packages libedit)
140 #:use-module (gnu packages libunwind)
141 #:use-module (gnu packages linux)
142 #:use-module (gnu packages llvm)
143 #:use-module (gnu packages lua)
144 #:use-module (gnu packages man)
145 #:use-module (gnu packages maths)
146 #:use-module (gnu packages messaging)
147 #:use-module (gnu packages mp3)
148 #:use-module (gnu packages music)
149 #:use-module (gnu packages multiprecision)
150 #:use-module (gnu packages ncurses)
151 #:use-module (gnu packages netpbm)
152 #:use-module (gnu packages networking)
153 #:use-module (gnu packages ocaml)
154 #:use-module (gnu packages opencl)
155 #:use-module (gnu packages pcre)
156 #:use-module (gnu packages perl)
157 #:use-module (gnu packages perl-check)
158 #:use-module (gnu packages perl-compression)
159 #:use-module (gnu packages pkg-config)
160 #:use-module (gnu packages protobuf)
161 #:use-module (gnu packages pulseaudio)
162 #:use-module (gnu packages python)
163 #:use-module (gnu packages python-xyz)
164 #:use-module (gnu packages qt)
165 #:use-module (gnu packages readline)
166 #:use-module (gnu packages ruby)
167 #:use-module (gnu packages shells)
168 #:use-module (gnu packages sdl)
169 #:use-module (gnu packages serialization)
170 #:use-module (gnu packages sqlite)
171 #:use-module (gnu packages squirrel)
172 #:use-module (gnu packages swig)
173 #:use-module (gnu packages tcl)
174 #:use-module (gnu packages terminals)
175 #:use-module (gnu packages texinfo)
176 #:use-module (gnu packages textutils)
177 #:use-module (gnu packages tls)
178 #:use-module (gnu packages upnp)
179 #:use-module (gnu packages video)
180 #:use-module (gnu packages vulkan)
181 #:use-module (gnu packages web)
182 #:use-module (gnu packages wget)
183 #:use-module (gnu packages wxwidgets)
184 #:use-module (gnu packages xdisorg)
185 #:use-module (gnu packages xorg)
186 #:use-module (gnu packages xiph)
187 #:use-module (gnu packages xml)
188 #:use-module (guix build-system copy)
189 #:use-module (guix build-system cmake)
190 #:use-module (guix build-system glib-or-gtk)
191 #:use-module (guix build-system gnu)
192 #:use-module (guix build-system go)
193 #:use-module (guix build-system meson)
194 #:use-module (guix build-system perl)
195 #:use-module (guix build-system python)
196 #:use-module (guix build-system qt)
197 #:use-module (guix build-system scons)
198 #:use-module (guix build-system trivial)
199 #:use-module ((srfi srfi-1) #:hide (zip))
200 #:use-module (srfi srfi-26))
201
202 (define-public abe
203 (package
204 (name "abe")
205 (version "1.1")
206 (source
207 (origin
208 (method url-fetch)
209 (uri (string-append "mirror://sourceforge/abe/abe/abe-" version
210 "/abe-" version ".tar.gz"))
211 (sha256
212 (base32 "1xvpnq1y6y48fn3pvn2lk0h1ilmalv7nb7awpid1g4jcq1sfmi6z"))))
213 (build-system gnu-build-system)
214 (arguments
215 `(#:configure-flags
216 (list (string-append "--with-data-dir="
217 (assoc-ref %outputs "out")
218 "/share/abe"))
219 #:phases
220 (modify-phases %standard-phases
221 (replace 'bootstrap
222 (lambda _ (invoke "sh" "autogen.sh")))
223 (add-before 'build 'set-SDL
224 ;; Set correct environment for SDL.
225 (lambda* (#:key inputs #:allow-other-keys)
226 (setenv "CPATH"
227 (string-append
228 (assoc-ref inputs "sdl") "/include/SDL:"
229 (or (getenv "CPATH") "")))
230 #t))
231 (add-after 'install 'finalize-install
232 (lambda* (#:key outputs #:allow-other-keys)
233 (let ((share (string-append (assoc-ref outputs "out") "/share")))
234 ;; Installation script does not copy game data files.
235 (let ((data (string-append share "/abe")))
236 (for-each (lambda (dir)
237 (let ((target (string-append data "/" dir)))
238 (mkdir-p target)
239 (copy-recursively dir target)))
240 '("images" "maps" "sounds")))
241 ;; Create desktop file.
242 (let ((apps (string-append share "/applications")))
243 (mkdir-p apps)
244 (make-desktop-entry-file
245 (string-append apps "/abe.desktop")
246 #:name "Abe's Amazing Adventure"
247 #:exec ,name
248 #:categories '("AdventureGame" "Game")
249 #:keywords
250 '("side-scrolling" "adventure" "pyramid" "singleplayer")
251 #:comment
252 '(("de" "Ein sich seitwärts bewegendes Abenteuerspiel")
253 (#f "Side-scrolling game")))))
254 #t)))))
255 (native-inputs
256 `(("autoconf" ,autoconf)
257 ("automake" ,automake)))
258 (inputs
259 `(("libxi" ,libxi)
260 ("libxmu" ,libxmu)
261 ("libxt" ,libxt)
262 ("sdl" ,(sdl-union (list sdl sdl-mixer)))))
263 (home-page "http://abe.sourceforge.net")
264 (synopsis "Scrolling, platform-jumping, ancient pyramid exploring game")
265 (description
266 "Abe's Amazing Adventure is a scrolling,
267 platform-jumping, key-collecting, ancient pyramid exploring game, vaguely in
268 the style of similar games for the Commodore+4.")
269 (license license:gpl2+)))
270
271 ;; Data package for adanaxisgpl.
272 (define adanaxis-mush
273 (let ((version "1.1.0"))
274 (origin
275 (method url-fetch)
276 (uri (string-append "http://www.mushware.com/files/adanaxis-mush-"
277 version ".tar.gz"))
278 (sha256
279 (base32 "0mk9ibis5nkdcalcg1lkgnsdxxbw4g5w2i3icjzy667hqirsng03")))))
280
281 (define-public adanaxisgpl
282 (package
283 (name "adanaxisgpl")
284 (version "1.2.5")
285 (source
286 (origin
287 (method url-fetch)
288 (uri (string-append "http://www.mushware.com/files/adanaxisgpl-"
289 version ".tar.gz"))
290 (sha256
291 (base32 "0jkn637jaabvlhd6hpvzb57vvjph94l6fbf7qxbjlw9zpr19dw1f"))
292 (modules '((guix build utils)))
293 (snippet
294 '(begin
295 ;; Necessary for building with gcc >=4.7.
296 (substitute* "src/Mushcore/MushcoreSingleton.h"
297 (("SingletonPtrSet\\(new SingletonType\\);")
298 "MushcoreSingleton::SingletonPtrSet(new SingletonType);"))
299 ;; Avoid an "invalid conversion from const char* to char*" error.
300 (substitute* "src/Platform/X11/PlatformMiscUtils.cpp"
301 (("char \\*end, \\*result;")
302 (string-append "const char *end;"
303 "\n"
304 "char *result;")))
305 #t))))
306 (build-system gnu-build-system)
307 (arguments
308 `(#:tests? #f ; no check target
309 #:phases
310 (modify-phases %standard-phases
311 (add-after 'install 'install-data
312 (lambda* (#:key inputs outputs #:allow-other-keys)
313 (let ((data (assoc-ref inputs "adanaxis-mush"))
314 (share (string-append (assoc-ref outputs "out")
315 "/share/" ,name "-" ,version)))
316 (mkdir-p share)
317 (invoke "tar" "xvf" data "-C" share)))))))
318 (native-inputs
319 `(("adanaxis-mush" ,adanaxis-mush))) ; game data
320 (inputs
321 `(("expat" ,expat)
322 ("freeglut" ,freeglut)
323 ("glu" ,glu)
324 ("libjpeg" ,libjpeg-turbo)
325 ("libogg" ,libogg)
326 ("libtiff" ,libtiff)
327 ("libvorbis" ,libvorbis)
328 ("libx11" ,libx11)
329 ("libxext" ,libxext)
330 ("pcre" ,pcre)
331 ("sdl" ,sdl)
332 ("sdl-mixer" ,sdl-mixer)))
333 (home-page "https://www.mushware.com")
334 (synopsis "Action game in four spatial dimensions")
335 (description
336 "Adanaxis is a fast-moving first person shooter set in deep space, where
337 the fundamentals of space itself are changed. By adding another dimension to
338 space this game provides an environment with movement in four directions and
339 six planes of rotation. Initially the game explains the 4D control system via
340 a graphical sequence, before moving on to 30 levels of gameplay with numerous
341 enemy, ally, weapon and mission types. Features include simulated 4D texturing,
342 mouse and joystick control, and original music.")
343 (license license:gpl2)))
344
345 (define-public alex4
346 (package
347 (name "alex4")
348 (version "1.2.1")
349 (source
350 (origin
351 (method git-fetch)
352 (uri (git-reference
353 (url "https://github.com/carstene1ns/alex4")
354 (commit version)))
355 (file-name (git-file-name name version))
356 (sha256
357 (base32 "098wy72mh4lsvq3gm0rhamjssf9l1hp6hhkpzrv7klpb97cwwc3h"))))
358 (build-system gnu-build-system)
359 (arguments
360 `(#:tests? #f ; no check target
361 #:make-flags
362 (list "CC=gcc"
363 "CFLAGS=-D_FILE_OFFSET_BITS=64"
364 (string-append "PREFIX=" (assoc-ref %outputs "out")))
365 #:phases
366 (modify-phases %standard-phases
367 (delete 'configure) ; no configure script
368 (add-after 'install 'install-data
369 (lambda* (#:key outputs #:allow-other-keys)
370 (let ((share (string-append (assoc-ref outputs "out")
371 "/share/" ,name)))
372 (install-file "alex4.ini" share)
373 #t))))))
374 (inputs
375 `(("allegro" ,allegro-4)
376 ("dumb" ,dumb-allegro4)))
377 (home-page "http://allegator.sourceforge.net/")
378 (synopsis "Retro platform game")
379 (description
380 "Guide Alex the Allegator through the jungle in order to save his
381 girlfriend Lola from evil humans who want to make a pair of shoes out of her.
382 Plenty of classic platforming in four nice colors guaranteed!
383
384 The game includes a built-in editor so you can design and share your own maps.")
385 (license license:gpl2+)))
386
387 (define-public armagetronad
388 (package
389 (name "armagetronad")
390 (version "0.2.9.0.1")
391 (source (origin
392 (method url-fetch)
393 (uri (string-append "mirror://sourceforge/armagetronad/stable/"
394 version "/armagetronad-" version ".tbz"))
395 (sha256
396 (base32
397 "19rfhlg4gp0r7k1j8v4iw20325ciy156nmzax4xikmw22c6nmxcz"))))
398 (build-system gnu-build-system)
399 (native-inputs
400 `(("pkg-config" ,pkg-config)))
401 (inputs
402 `(("libxml2" ,libxml2)
403 ("sdl" ,sdl)
404 ("sdl-image" ,sdl-image)
405 ("freeglut" ,freeglut)
406 ("libpng" ,libpng)
407 ("libjpeg-turbo" ,libjpeg-turbo)))
408 (home-page "http://www.armagetronad.org")
409 (synopsis "Tron clone in 3D")
410 (description "Armagetron Advanced is a multiplayer game in 3d that
411 attempts to emulate and expand on the lightcycle sequence from the movie Tron.
412 It's an old school arcade game slung into the 21st century. Highlights
413 include a customizable playing arena, HUD, unique graphics, and AI bots. For
414 the more advanced player there are new game modes and a wide variety of
415 physics settings to tweak as well.")
416 (license license:gpl2+)))
417
418 (define-public astromenace
419 (package
420 (name "astromenace")
421 (version "1.4.1")
422 (source
423 (origin
424 (method git-fetch)
425 (uri (git-reference
426 (url "https://github.com/viewizard/astromenace")
427 (commit (string-append "v" version))))
428 (file-name (git-file-name name version))
429 (sha256
430 (base32 "1ad6l887jxqv8xspwc2rvy8ym9sdlmkqdqhsh0pi076kjarxsyws"))))
431 (build-system cmake-build-system)
432 (arguments
433 `(#:tests? #f ;no test
434 #:configure-flags (list (string-append "-DDATADIR="
435 (assoc-ref %outputs "out")
436 "/share/astromenace"))
437 #:phases
438 (modify-phases %standard-phases
439 (replace 'install
440 ;; Upstream provides no install phase.
441 (lambda* (#:key inputs outputs #:allow-other-keys)
442 (let* ((out (assoc-ref outputs "out"))
443 (bin (string-append out "/bin"))
444 (share (string-append out "/share"))
445 (apps (string-append share "/applications"))
446 (data (string-append share "/astromenace"))
447 (icons (string-append share "/icons/hicolor/64x64/apps")))
448 (install-file "astromenace" bin)
449 (install-file "gamedata.vfs" data)
450 (let ((source (assoc-ref inputs "source")))
451 (with-directory-excursion (string-append source "/share")
452 (install-file "astromenace.desktop" apps)
453 (mkdir-p icons)
454 (copy-file "astromenace_64.png"
455 (string-append icons "/astromenace.png")))))
456 #t)))))
457 (inputs
458 `(("freealut" ,freealut)
459 ("freetype" ,freetype)
460 ("glu" ,glu)
461 ("libogg" ,libogg)
462 ("libvorbis" ,libvorbis)
463 ("openal" ,openal)
464 ("sdl2" ,sdl2)))
465 (home-page "https://www.viewizard.com/")
466 (synopsis "3D space shooter with spaceship upgrade possibilities")
467 (description
468 "Space is a vast area, an unbounded territory where it seems there is
469 a room for everybody, but reversal of fortune put things differently. The
470 hordes of hostile creatures crawled out from the dark corners of the universe,
471 craving to conquer your homeland. Their force is compelling, their legions
472 are interminable. However, humans didn't give up without a final showdown and
473 put their best pilot to fight back. These malicious invaders chose the wrong
474 galaxy to conquer and you are to prove it! Go ahead and make alien aggressors
475 regret their insolence.")
476 ;; Game is released under GPL3+ terms. Artwork is subject to CC
477 ;; BY-SA 4.0, and fonts to OFL1.1.
478 (license (list license:gpl3+ license:cc-by-sa4.0 license:silofl1.1))))
479
480 (define-public bastet
481 (package
482 (name "bastet")
483 (version "0.43.2")
484 (source
485 (origin
486 (method git-fetch)
487 (uri (git-reference
488 (url "https://github.com/fph/bastet")
489 (commit version)))
490 (file-name (git-file-name name version))
491 (sha256
492 (base32 "09kamxapm9jw9przpsgjfg33n9k94bccv65w95dakj0br33a75wn"))
493 (patches
494 (search-patches "bastet-change-source-of-unordered_set.patch"))))
495 (build-system gnu-build-system)
496 (arguments
497 `(#:make-flags
498 (list (string-append "CXXFLAGS=-I"
499 (assoc-ref %build-inputs "boost") "/include"))
500 #:phases
501 (modify-phases %standard-phases
502 (delete 'configure) ; no configure script
503 (replace 'check
504 ;; The 'Test' target builds the tests, but doesn't actually run them.
505 (lambda* (#:key make-flags #:allow-other-keys)
506 (apply invoke "make" "Test" make-flags)
507 (setenv "HOME" ".")
508 (invoke "./Test")))
509 (replace 'install
510 (lambda* (#:key outputs #:allow-other-keys)
511 (let* ((out (assoc-ref outputs "out"))
512 (share (string-append out "/share"))
513 (hicolor (string-append share "/icons/hicolor")))
514 (install-file "bastet"
515 (string-append out "/bin"))
516
517 (install-file "bastet.desktop"
518 (string-append share "/applications"))
519 (install-file "bastet.svg"
520 (string-append hicolor "/scalable/apps"))
521
522 (install-file "bastet.appdata.xml"
523 (string-append share "/appdata"))
524
525 (install-file "bastet.6"
526 (string-append out "/share/man/man6"))
527 #t))))))
528 (native-inputs
529 `(("hicolor-icon-theme" ,hicolor-icon-theme)))
530 (inputs
531 `(("boost" ,boost)
532 ("ncurses" ,ncurses)))
533 (home-page "https://fph.altervista.org/prog/bastet.html")
534 (synopsis "Antagonistic Tetris-style falling brick game for text terminals")
535 (description
536 "Bastet (short for Bastard Tetris) is a simple ncurses-based falling brick
537 game. Unlike normal Tetris, Bastet does not choose the next brick at random.
538 Instead, it uses a special algorithm to choose the worst brick possible.
539
540 Playing bastet can be a painful experience, especially if you usually make
541 canyons and wait for the long I-shaped block to clear four rows at a time.")
542 (license license:gpl3+)))
543
544 (define-public blobwars
545 (package
546 (name "blobwars")
547 (version "2.00")
548 (source
549 (origin
550 (method url-fetch)
551 (uri (string-append "mirror://sourceforge/blobwars/"
552 "blobwars-" version ".tar.gz"))
553 (sha256
554 (base32 "16aagvkx6azf75gm5kaa94bh5npydvhqp3fvdqyfsanzdjgjf1n4"))))
555 (build-system gnu-build-system)
556 (arguments
557 `(#:tests? #f ;no test
558 #:make-flags
559 (let ((out (assoc-ref %outputs "out")))
560 (list (string-append "PREFIX=" out)
561 (string-append "BINDIR=" out "/bin/")
562 "USEPAK=1"
563 "RELEASE=1"))
564 #:phases
565 (modify-phases %standard-phases
566 (add-after 'unpack 'werror-begone
567 (lambda _
568 (substitute* "Makefile" (("-Werror") ""))
569 #t))
570 (delete 'configure)))) ;no configure script
571 (native-inputs
572 `(("gettext" ,gettext-minimal)
573 ("pkg-config" ,pkg-config)))
574 (inputs
575 `(("hicolor-icon-theme" ,hicolor-icon-theme)
576 ("sdl" ,(sdl-union (list sdl2
577 sdl2-image
578 sdl2-mixer
579 sdl2-ttf
580 sdl2-net)))))
581 (home-page "https://sourceforge.net/projects/blobwars/")
582 (synopsis "Platform action game featuring a blob with a lot of weapons")
583 (description "Blobwars: Metal Blob Solid is a 2D platform game, the first
584 in the Blobwars series. You take on the role of a fearless Blob agent. Your
585 mission is to infiltrate various enemy bases and rescue as many MIAs as
586 possible, while battling many vicious aliens.")
587 (license (list license:gpl2 ; For code and graphics
588 license:cc0 ; Music and sounds have specific licenses
589 license:cc-by3.0 ; see /doc/readme
590 license:cc-by-sa3.0
591 license:lgpl2.1+
592 license:bsd-2))))
593
594 (define-public bsd-games
595 (package
596 (name "bsd-games")
597 (version "2.17.0")
598 (source
599 (origin
600 (method url-fetch)
601 (uri "https://ibiblio.org/pub/linux/games/bsd-games-2.17.tar.gz")
602 (sha256
603 (base32 "0q7zdyyfvn15y0w4g54kq3gza89h61py727m8slmw73cxx594vq6"))
604 (patches
605 (search-patches
606 ;; thanks Arch, and Debian
607 "bsd-games-2.17-64bit.patch"
608 "bsd-games-bad-ntohl-cast.patch"
609 "bsd-games-gamescreen.h.patch"
610 "bsd-games-getline.patch"
611 "bsd-games-null-check.patch"
612 "bsd-games-number.c-and-test.patch"
613 "bsd-games-stdio.h.patch"
614 "bsd-games-prevent-name-collisions.patch"
615 ;; Guix customizations
616 "bsd-games-add-configure-config.patch"
617 "bsd-games-dont-install-empty-files.patch"
618 "bsd-games-add-wrapper.patch"))))
619 (build-system gnu-build-system)
620 (native-inputs
621 `(("flex" ,flex)
622 ("bison" ,bison)))
623 (inputs
624 `(("curses" ,ncurses)
625 ("pager" ,less)
626 ("miscfiles" ,miscfiles)
627 ("openssl" ,openssl))) ;used only by 'factor'
628 (arguments
629 `(#:phases
630 (modify-phases %standard-phases
631 (replace 'configure
632 (lambda* (#:key outputs inputs #:allow-other-keys)
633 (let* ((out (assoc-ref outputs "out"))
634 (bin (string-append out "/bin"))
635 (doc (string-append out "/share/doc/bsd-games-" ,version))
636 (man (string-append out "/share/man"))
637 (word-list (string-append (assoc-ref inputs "miscfiles")
638 "/share/web2"))
639 (static-data (string-append out "/share/games/bsd-games"))
640 ;; Not a "./" because of substitute* in 'patch-install
641 ;; below. The .// allow us not to mess with the games'
642 ;; code any further: we just use a wrapper script that
643 ;; cd's to a BSD_GAMES_DIR. :]
644 (save-files ".//"))
645 (substitute* "configure"
646 (("/usr/share/man") man)
647 (("/usr/share/doc/bsd-games") doc)
648 (("/usr/share/[^\n/]*") static-data)
649 (("/var/games") save-files)
650 (("/usr/bin/less") (which "less"))
651 (("(/usr/bin|/usr/games)") bin))
652 (substitute* "config.params" (("WORD_LIST") word-list))
653 (substitute* "wrapper" (("STATIC_DATA") static-data))
654 (invoke "./configure"))
655 #t))
656 (add-before 'install 'patch-install
657 ;; Some games need a writable directory containing pre-maded files.
658 ;; The files get installed to the Store. Then the wrapper kicks in.
659 (lambda* (#:key outputs #:allow-other-keys)
660 (let* ((out (assoc-ref outputs "out"))
661 (static-data (string-append out "/share/games/bsd-games"))
662 (save-files ".//"))
663 (substitute* "Makeconfig" ((save-files) static-data)))
664 #t))
665 (add-after 'install 'install-documents
666 (lambda* (#:key outputs #:allow-other-keys)
667 (let* ((out (assoc-ref outputs "out"))
668 (doc (string-append out "/share/doc/bsd-games-" ,version)))
669 (rename-file "phantasia/COPYRIGHT" "phantasia-COPYRIGHT")
670 (for-each
671 (lambda(file) (install-file file doc))
672 '("AUTHORS" "BUGS" "README" "SECURITY" "THANKS"
673 "phantasia-COPYRIGHT")))
674 #t)))))
675 (home-page "https://github.com/vattam/BSDGames")
676 (synopsis "Collection of the old text-based games and amusements")
677 (description
678 "These are the BSD games. See the fortune-mod package for fortunes.
679
680 Action: atc (keep the airplanes safe), hack (explore the dangerous Dungeon),
681 hunt (kill the others for the Pair of Boots, multi-player only), robots (avoid
682 the evil robots), sail (game of naval warfare with wooden ships), snake (steal
683 the $$ from the cave, anger the snake, and get out alive), tetris (game of
684 lining up the falling bricks of different shapes), and worm (eat, grow big,
685 and neither bite your tail, nor ram the wall).
686
687 Amusements: banner (prints a large banner), bcd & morse & ppt (print a punch
688 card, or paper tape, or Morse codes), caesar & rot13 (ciphers and deciphers
689 the input), factor (factorizes a number), number (translates numbers into
690 text), pig (translates from English to Pig Latin), pom (should print the
691 Moon's phase), primes (generates primes), rain & worms (plays an screen-saver
692 in terminal), random (prints randomly chosen lines from files, or returns a
693 random exit-code), and wtf (explains what do some acronyms mean).
694
695 Board: backgammon (lead the men out of board faster than the friend do),
696 boggle (find the words in the square of letters), dab (game of dots and
697 boxes), gomoku (game of five in a row), hangman (guess a word before man is
698 hanged), and monop (game of monopoly, hot-seat only). Also the card-games:
699 canfield, cribbage, fish (juniors game), and mille.
700
701 Quests: adventure (search for treasures with the help of wizard),
702 battlestar (explore the world around, starting from dying spaceship),
703 phantasia (role-play as an rogue), trek (hunt the Klingons, and save the
704 Federation), and wump (hunt the big smelly Wumpus in a dark cave).
705
706 Quizes: arithmetic, and quiz.")
707 ;; "Auxiliary and data files, distributed with the games in NetBSD, but
708 ;; not bearing copyright notices, probably fall under the terms of the UCB
709 ;; or NetBSD copyrights and licences. The file "fortune/Notes" contains a
710 ;; warning in regard to the fortune databases."
711 (license (list
712 ;; Most games. Files: countmail/countmail.6, dab/dab.6,
713 ;; lib/strlcpy.c, wargames/wargames.6
714 license:bsd-3
715 ;; dab and hunt. Files: adventure/extern.h,
716 ;; backgammon/backgammon/backlocal.h, caesar/rot13.in,
717 ;; countmail/countmail, dm/utmpentry.c, dm/utmpentry.h,
718 ;; hack/extern.h, robots/auto.c, sail/display.h,
719 ;; sail/restart.h, wargames/wargames
720 license:bsd-4
721 ;; wtf (the game)
722 license:public-domain
723 ;; phantasia (all but phantasia/pathnames.h.in, which is bsd-3)
724 (license:fsf-free "file:///phantasia/COPYRIGHT")))))
725
726
727 (define-public bzflag
728 (package
729 (name "bzflag")
730 (version "2.4.20")
731 (source
732 (origin
733 (method url-fetch)
734 (uri (string-append "https://download.bzflag.org/bzflag/source/"
735 version "/bzflag-" version ".tar.bz2"))
736 (sha256
737 (base32 "16brxqmfiyz4j4lb8ihzjcbwqmpsms6vm3ijbp34lnw0blbwdjb2"))))
738 (build-system gnu-build-system)
739 (arguments
740 `(#:phases
741 (modify-phases %standard-phases
742 (add-after 'install 'install-desktop-file-and-icons
743 (lambda* (#:key outputs #:allow-other-keys)
744 (let* ((share (string-append (assoc-ref outputs "out") "/share"))
745 (data (string-append share "/bzflag"))
746 (hicolor (string-append share "/icons/hicolor"))
747 (applications (string-append share "/applications")))
748 ;; Move desktop file.
749 (install-file (string-append data "/bzflag.desktop")
750 applications)
751 ;; Install icons.
752 (for-each (lambda (size)
753 (let* ((dim (string-append size "x" size))
754 (dir (string-append hicolor "/" dim "/apps")))
755 (mkdir-p dir)
756 (copy-file
757 (string-append data "/bzflag-" dim ".png")
758 (string-append dir "/bzflag.png"))))
759 '("48" "256")))
760 #t)))))
761 (native-inputs
762 `(("pkg-config" ,pkg-config)))
763 (inputs
764 `(("c-ares" ,c-ares)
765 ("curl" ,curl)
766 ("glew" ,glew)
767 ("glu" ,glu)
768 ("sdl2" ,sdl2)
769 ("zlib" ,zlib)))
770 (home-page "https://www.bzflag.org/")
771 (synopsis "3D first person tank battle game")
772 (description
773 "BZFlag is a 3D multi-player multiplatform tank battle game that
774 allows users to play against each other in a network environment.
775 There are five teams: red, green, blue, purple and rogue (rogue tanks
776 are black). Destroying a player on another team scores a win, while
777 being destroyed or destroying a teammate scores a loss. Rogues have
778 no teammates (not even other rogues), so they cannot shoot teammates
779 and they do not have a team score.
780
781 There are two main styles of play: capture-the-flag and free-for-all.
782 In capture-the-flag, each team (except rogues) has a team base and
783 each team with at least one player has a team flag. The object is to
784 capture an enemy team's flag by bringing it to your team's base. This
785 destroys every player on the captured team, subtracts one from that
786 team's score, and adds one to your team's score. In free-for-all,
787 there are no team flags or team bases. The object is simply to get as
788 high a score as possible.")
789 ;; The game is dual-licensed.
790 (license (list license:lgpl2.1 license:mpl2.0))))
791
792 (define-public cataclysm-dda
793 (package
794 (name "cataclysm-dda")
795 (version "0.E-2")
796 (source
797 (origin
798 (method git-fetch)
799 (uri (git-reference
800 (url "https://github.com/CleverRaven/Cataclysm-DDA")
801 (commit version)))
802 (sha256
803 (base32 "15l6w6lxays7qmsv0ci2ry53asb9an9dh7l7fc13256k085qcg68"))
804 (file-name (git-file-name name version))))
805 (build-system gnu-build-system)
806 (arguments
807 '(#:make-flags
808 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
809 "USE_HOME_DIR=1" "DYNAMIC_LINKING=1" "RELEASE=1"
810 "LOCALIZE=1" "LANGUAGES=all")
811 #:phases
812 (modify-phases %standard-phases
813 (delete 'configure)
814 (add-after 'build 'build-tiles
815 (lambda* (#:key make-flags outputs #:allow-other-keys)
816 ;; Change prefix directory and enable tile graphics and sound.
817 (apply invoke "make" "TILES=1" "SOUND=1"
818 (string-append "PREFIX="
819 (assoc-ref outputs "tiles"))
820 (cdr make-flags))))
821 (add-after 'install 'install-tiles
822 (lambda* (#:key make-flags outputs #:allow-other-keys)
823 (apply invoke "make" "install" "TILES=1" "SOUND=1"
824 (string-append "PREFIX="
825 (assoc-ref outputs "tiles"))
826 (cdr make-flags)))))
827 ;; TODO: Add libtap++ from https://github.com/cbab/libtappp as a native
828 ;; input in order to support tests.
829 #:tests? #f))
830 (outputs '("out"
831 "tiles")) ;for tile graphics and sound support
832 (native-inputs
833 `(("gettext" ,gettext-minimal)
834 ("pkg-config" ,pkg-config)))
835 (inputs
836 `(("freetype" ,freetype)
837 ("libogg" ,libogg)
838 ("libvorbis" ,libvorbis)
839 ("ncurses" ,ncurses)
840 ("sdl2" ,sdl2)
841 ("sdl2-image" ,sdl2-image)
842 ("sdl2-ttf" ,sdl2-ttf)
843 ("sdl2-mixer" ,sdl2-mixer)))
844 (home-page "https://cataclysmdda.org/")
845 (synopsis "Survival horror roguelike video game")
846 (description
847 "Cataclysm: Dark Days Ahead (or \"DDA\" for short) is a roguelike set
848 in a post-apocalyptic world. Struggle to survive in a harsh, persistent,
849 procedurally generated world. Scavenge the remnants of a dead civilization
850 for food, equipment, or, if you are lucky, a vehicle with a full tank of gas
851 to get you out of Dodge. Fight to defeat or escape from a wide variety of
852 powerful monstrosities, from zombies to giant insects to killer robots and
853 things far stranger and deadlier, and against the others like yourself, that
854 want what you have.")
855 (license license:cc-by-sa3.0)))
856
857 (define-public corsix-th
858 (package
859 (name "corsix-th")
860 (version "0.64")
861 (source
862 (origin
863 (method git-fetch)
864 (uri (git-reference
865 (url "https://github.com/CorsixTH/CorsixTH")
866 (commit (string-append "v" version))))
867 (file-name (git-file-name name version))
868 (sha256
869 (base32 "0chh9cv2kdc39sr0x8hclcyzd8dz2y6grgagqzkvr7j570wa5cqh"))))
870 (build-system cmake-build-system)
871 (arguments
872 `(#:phases
873 (modify-phases %standard-phases
874 (add-after 'install 'wrap-binary
875 (lambda _
876 ;; Set Lua module paths and default MIDI soundfont on startup.
877 (let* ((out (assoc-ref %outputs "out"))
878 (fluid (assoc-ref %build-inputs "fluid-3"))
879 (lua-version ,(version-major+minor (package-version lua)))
880 (lua-cpath
881 (map (lambda (lib)
882 (string-append
883 (assoc-ref %build-inputs (string-append "lua-" lib))
884 "/lib/lua/" lua-version "/?.so"))
885 '("filesystem" "lpeg"))))
886 (wrap-program (string-append out "/bin/corsix-th")
887 `("LUA_CPATH" ";" = ,lua-cpath)
888 `("SDL_SOUNDFONTS" ":" suffix
889 (,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3")))))
890 #t)))
891 #:tests? #f)) ; TODO need busted package to run tests
892 ;; Omit Lua-Socket dependency to disable automatic updates.
893 (inputs
894 `(("ffmpeg" ,ffmpeg)
895 ("fluid-3" ,fluid-3)
896 ("freetype" ,freetype)
897 ("lua" ,lua)
898 ("lua-filesystem" ,lua-filesystem)
899 ("lua-lpeg" ,lua-lpeg)
900 ("sdl2" ,sdl2)
901 ("sdl2-mixer" ,sdl2-mixer)))
902 (home-page "https://corsixth.com")
903 (synopsis "Implementation of the @i{Theme Hospital} game engine")
904 (description
905 "This package provides a reimplementation of the 1997 Bullfrog business
906 simulation game @i{Theme Hospital}. As well as faithfully recreating the
907 original engine, CorsixTH adds support for high resolutions, custom levels and
908 more. This package does @emph{not} provide the game assets.")
909 (license (list
910 license:expat ; main license
911 license:bsd-3)))) ; CorsixTH/Src/random.c
912
913 (define-public cowsay
914 (package
915 (name "cowsay")
916 (version "3.04")
917 (source (origin
918 (method git-fetch)
919 (uri (git-reference
920 (url "https://github.com/tnalpgge/rank-amateur-cowsay")
921 (commit (string-append name "-" version))))
922 (file-name (git-file-name name version))
923 (sha256
924 (base32
925 "06455kq37hvq1xb7adyiwrx0djs50arsxvjgixyxks16lm1rlc7n"))))
926 (build-system gnu-build-system)
927 (arguments
928 `(#:phases
929 (modify-phases %standard-phases
930 (delete 'configure) ; no configure script
931 (delete 'build) ; nothing to be built
932 (replace 'install
933 (lambda* (#:key outputs #:allow-other-keys)
934 (invoke "sh" "install.sh"
935 (assoc-ref outputs "out"))))
936 (delete 'check)
937 (add-after 'install 'check
938 (lambda* (#:key outputs #:allow-other-keys)
939 (invoke (string-append (assoc-ref outputs "out")
940 "/bin/cowsay")
941 "We're done!"))))))
942 (inputs
943 `(("perl" ,perl)))
944 (home-page (string-append "https://web.archive.org/web/20071026043648/"
945 "http://www.nog.net:80/~tony/warez/cowsay.shtml"))
946 (synopsis "Speaking cow text filter")
947 (description "Cowsay is basically a text filter. Send some text into it,
948 and you get a cow saying your text. If you think a talking cow isn't enough,
949 cows can think too: all you have to do is run @command{cowthink}. If you're
950 tired of cows, a variety of other ASCII-art messengers are available.")
951 (license license:gpl3+)))
952
953 (define-public lolcat
954 (let ((commit "35dca3d0a381496d7195cd78f5b24aa7b62f2154")
955 (revision "0"))
956 (package
957 (name "lolcat")
958 (version (git-version "1.0" revision commit))
959 (source
960 (origin
961 (method git-fetch)
962 (uri (git-reference
963 (url "https://github.com/jaseg/lolcat")
964 (commit commit)))
965 (sha256
966 (base32
967 "0jjbkqcc2ikjxd1xgdyv4rb0vsw218181h89f2ywg29ffs3ypd8g"))
968 (file-name (git-file-name name version))))
969 (build-system gnu-build-system)
970 (arguments
971 `(#:tests? #f ; no check target
972 #:make-flags
973 (list ,(string-append "CC=" (cc-for-target)))
974 #:phases
975 (modify-phases %standard-phases
976 (delete 'bootstrap)
977 (delete 'configure)
978 (replace 'install
979 (lambda* (#:key outputs #:allow-other-keys)
980 (let* ((out (assoc-ref outputs "out"))
981 (dest (string-append out "/bin")))
982 (mkdir-p dest)
983 (install-file "lolcat" dest)
984 (install-file "censor" dest)
985 #t))))))
986 (home-page "https://github.com/jaseg/lolcat")
987 (synopsis "Rainbow coloring effect for text console display")
988 (description "@command{lolcat} concatenates files and streams like
989 regular @command{cat}, but it also adds terminal escape codes between
990 characters and lines resulting in a rainbow effect.")
991 (license license:wtfpl2))))
992
993 (define-public foobillard++
994 ;; Even though this latest revision is old already, stable release is
995 ;; lagging way behind it, and has issues with textures rendering.
996 (let ((svn-revision 170))
997 (package
998 (name "foobillard++")
999 (version (string-append "3.43-r" (number->string svn-revision)))
1000 (source
1001 (origin
1002 (method svn-fetch)
1003 (uri (svn-reference
1004 (url "svn://svn.code.sf.net/p/foobillardplus/code/")
1005 (revision svn-revision)))
1006 (file-name (git-file-name name version))
1007 (sha256
1008 (base32 "00b693ys5zvzjbjzzj3dqfzm5xw64gwjf9m8qv6bkmf0klbhmayk"))
1009 (patches
1010 (search-patches "foobillard++-pkg-config.patch"))
1011 (modules '((guix build utils)))
1012 (snippet
1013 '(begin
1014 ;; Unfortunately, the game includes background music with
1015 ;; a non-commercial clause. Delete it.
1016 (for-each delete-file (find-files "data/music" "\\.ogg$"))
1017 #t))))
1018 (build-system gnu-build-system)
1019 (arguments
1020 `(#:configure-flags
1021 (list
1022 ;; Install data in a less exotic location.
1023 (string-append "--prefix=" (assoc-ref %outputs "out") "/share")
1024 ;; Prevent a build error about undefined trigonometric functions.
1025 "--enable-fastmath=no")
1026 #:phases
1027 (modify-phases %standard-phases
1028 (add-after 'unpack 'fix-makefile
1029 ;; Remove hard-coded directories. Also fix installation
1030 ;; rule: it tries to move around non-existent files or
1031 ;; files already moved.
1032 (lambda* (#:key outputs #:allow-other-keys)
1033 (substitute* "Makefile.am"
1034 (("/usr") (assoc-ref outputs "out"))
1035 (("cp .*?/foobillardplus\\.desktop.*") "")
1036 (("cp .*?/foobillardplus\\.(png|xbm) \\$\\(datarootdir\\).*")
1037 ""))
1038 #t))
1039 (add-after 'unpack 'unbundle-font
1040 ;; XXX: The package ships with LinBiolinum_aSB.ttf and
1041 ;; LinBiolinum_aS.ttf, which are not provided by
1042 ;; `font-linuxlibertine' package. Therefore, we cannot replace
1043 ;; them yet.
1044 (lambda* (#:key inputs #:allow-other-keys)
1045 (let ((dejavu (string-append (assoc-ref inputs "font-dejavu")
1046 "/share/fonts/truetype/")))
1047 (with-directory-excursion "data"
1048 (for-each (lambda (f)
1049 (delete-file f)
1050 (symlink (string-append dejavu f) f))
1051 '("DejaVuSans-Bold.ttf" "DejaVuSans.ttf"))))
1052 #t))
1053 (replace 'bootstrap
1054 (lambda _
1055 (invoke "aclocal" "--force")
1056 (invoke "autoconf" "-f")
1057 (invoke "autoheader" "-f")
1058 (invoke "automake" "-a" "-c" "-f")))
1059 (add-before 'build 'prepare-build
1060 ;; Set correct environment for SDL.
1061 (lambda* (#:key inputs #:allow-other-keys)
1062 (setenv "CPATH"
1063 (string-append (assoc-ref inputs "sdl")
1064 "/include/SDL:"
1065 (or (getenv "CPATH") "")))
1066 #t))
1067 (add-before 'build 'fix-settings-directory
1068 ;; Hide foobillardplus settings directory in $HOME.
1069 (lambda _
1070 (substitute* "src/history.c"
1071 (("/foobillardplus-data") "/.foobillardplus"))
1072 #t))
1073 (add-before 'install 'create-directories
1074 ;; Install process does not create directories before
1075 ;; trying to move file in it.
1076 (lambda* (#:key outputs #:allow-other-keys)
1077 (let ((out (assoc-ref outputs "out")))
1078 (mkdir-p (string-append out "/share/icons"))
1079 (mkdir-p (string-append out "/share/applications")))
1080 #t))
1081 (add-after 'install 'symlink-executable
1082 ;; Symlink executable to $out/bin.
1083 (lambda* (#:key outputs #:allow-other-keys)
1084 (let* ((out (assoc-ref outputs "out"))
1085 (bin (string-append out "/bin")))
1086 (mkdir-p bin)
1087 (with-directory-excursion bin
1088 (symlink "../share/foobillardplus/bin/foobillardplus"
1089 "foobillardplus"))
1090 #t))))))
1091 (native-inputs
1092 `(("autoconf" ,autoconf)
1093 ("automake" ,automake)
1094 ("pkg-config" ,pkg-config)))
1095 (inputs
1096 `(("font-dejavu" ,font-dejavu)
1097 ("freetype" ,freetype)
1098 ("glu" ,glu)
1099 ("libpng" ,libpng)
1100 ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net)))))
1101 (home-page "http://foobillardplus.sourceforge.net/")
1102 (synopsis "3D billiard game")
1103 (description "FooBillard++ is an advanced 3D OpenGL billiard game
1104 based on the original foobillard 3.0a sources from Florian Berger.
1105 You can play it with one or two players or against the computer.
1106
1107 The game features:
1108
1109 @itemize
1110 @item Wood paneled table with gold covers and gold diamonds.
1111 @item Reflections on balls.
1112 @item Zoom in and out, rotation, different angles and bird's eye view.
1113 @item Different game modes: 8 or 9-ball, Snooker or Carambole.
1114 @item Tournaments. Compete against other players.
1115 @item Animated cue with strength and eccentric hit adjustment.
1116 @item Jump shots and snipping.
1117 @item Realistic gameplay and billiard sounds.
1118 @item Red-Green stereo.
1119 @item And much more.
1120 @end itemize")
1121 (license (list license:gpl2 license:silofl1.1)))))
1122
1123 (define-public freedoom
1124 (package
1125 (name "freedoom")
1126 (version "0.12.1")
1127 (source
1128 (origin
1129 (method git-fetch)
1130 (uri (git-reference
1131 (url "https://github.com/freedoom/freedoom")
1132 (commit (string-append "v" version))))
1133 (file-name (git-file-name name version))
1134 (sha256
1135 (base32 "1mq60lfwaaxmch7hsz8403pwafnlsmsd5z2df2j77ppwndwcrypb"))))
1136 (build-system gnu-build-system)
1137 (arguments
1138 '(#:make-flags
1139 (list (string-append "prefix=" (assoc-ref %outputs "out")))
1140 #:tests? #f ; no check target
1141 #:phases
1142 (modify-phases %standard-phases
1143 (delete 'bootstrap)
1144 (replace 'configure
1145 (lambda* (#:key inputs outputs #:allow-other-keys)
1146 (let* ((freedoom (assoc-ref outputs "out"))
1147 (wad-dir (string-append freedoom "/share/games/doom")))
1148 ;; Make sure that the install scripts know where to find
1149 ;; the appropriate WAD files.
1150 (substitute* "dist/freedoom"
1151 (("IWAD=freedm.wad")
1152 (string-append "IWAD=" wad-dir "/freedm.wad"))
1153 (("IWAD=freedoom1.wad")
1154 (string-append "IWAD=" wad-dir "/freedoom1.wad"))
1155 (("IWAD=freedoom2.wad")
1156 (string-append "IWAD=" wad-dir "/freedoom2.wad")))
1157 #t))))))
1158 (native-inputs
1159 `(("asciidoc" ,asciidoc)
1160 ("deutex" ,deutex)
1161 ("python" ,python)
1162 ("python-pillow" ,python-pillow)))
1163 (home-page "https://freedoom.github.io/")
1164 (synopsis "Free content game based on the Doom engine")
1165 (native-search-paths
1166 (list (search-path-specification
1167 (variable "DOOMWADDIR")
1168 (files '("share/games/doom")))
1169 (search-path-specification
1170 (variable "DOOMWADPATH")
1171 (files '("share/games/doom")))))
1172 (description
1173 "The Freedoom project aims to create a complete free content first person
1174 shooter game. Freedoom by itself is just the raw material for a game: it must
1175 be paired with a compatible game engine (such as @code{prboom-plus}) to be
1176 played. Freedoom complements the Doom engine with free levels, artwork, sound
1177 effects and music to make a completely free game.")
1178 (license license:bsd-3)))
1179
1180 (define-public freedroidrpg
1181 (package
1182 (name "freedroidrpg")
1183 (version "0.16.1")
1184 (source
1185 (origin
1186 (method url-fetch)
1187 (uri (string-append "http://ftp.osuosl.org/pub/freedroid/"
1188 "freedroidRPG-" (version-major+minor version) "/"
1189 "freedroidRPG-" version ".tar.gz"))
1190 (sha256
1191 (base32 "0n4kn38ncmcy3lrxmq8fjry6c1z50z4q1zcqfig0j4jb0dsz2va2"))))
1192 (build-system gnu-build-system)
1193 (arguments
1194 `(#:configure-flags
1195 (list
1196 (string-append "CFLAGS="
1197 "-I" (assoc-ref %build-inputs "sdl-gfx") "/include/SDL "
1198 "-I" (assoc-ref %build-inputs "sdl-image") "/include/SDL "
1199 "-I" (assoc-ref %build-inputs "sdl-mixer") "/include/SDL")
1200 "--enable-opengl")
1201 ;; FIXME: the test suite fails with the following error output:
1202 ;; 4586 Segmentation fault env SDL_VIDEODRIVER=dummy \
1203 ;; SDL_AUDIODRIVER=dummy ./src/freedroidRPG -nb text
1204 #:tests? #f))
1205 (native-inputs
1206 `(("pkg-config" ,pkg-config)))
1207 (inputs
1208 `(("glu" ,glu)
1209 ("libjpeg" ,libjpeg-turbo)
1210 ("libogg" ,libogg)
1211 ("libpng" ,libpng)
1212 ("libvorbis" ,libvorbis)
1213 ("mesa" ,mesa)
1214 ("python" ,python-wrapper)
1215 ("sdl" ,sdl)
1216 ("sdl-gfx" ,sdl-gfx)
1217 ("sdl-image" ,sdl-image)
1218 ("sdl-mixer" ,sdl-mixer)
1219 ("zlib" ,zlib)))
1220 (home-page "http://www.freedroid.org/")
1221 (synopsis "Isometric role-playing game against killer robots")
1222 (description
1223 "Freedroid RPG is an @dfn{RPG} (Role-Playing Game) with isometric graphics.
1224 The game tells the story of a world destroyed by a conflict between robots and
1225 their human masters. To restore peace to humankind, the player must complete
1226 numerous quests while fighting off rebelling robots---either by taking control
1227 of them, or by simply blasting them to pieces with melee and ranged weapons in
1228 real-time combat.")
1229 (license (list license:expat ; lua/
1230 license:gpl3 ; src/gen_savestruct.py
1231 license:gpl2+)))) ; the rest
1232
1233 (define-public golly
1234 (package
1235 (name "golly")
1236 (version "3.3")
1237 (source (origin
1238 (method url-fetch)
1239 (uri (string-append "mirror://sourceforge/golly/golly/golly-"
1240 version "/golly-" version
1241 "-src.tar.gz"))
1242 (sha256
1243 (base32
1244 "1j3ksnar4rdam4xiyspgyrs1pifbvxfxkrn65brkwxpx39mpgzc8"))))
1245 (build-system gnu-build-system)
1246 (arguments
1247 '(#:make-flags (list "CC=gcc"
1248 (string-append "GOLLYDIR="
1249 (assoc-ref %outputs "out")
1250 "/share/golly"))
1251 #:tests? #f ; no check target
1252 #:phases
1253 (modify-phases %standard-phases
1254 (replace 'configure
1255 (lambda* (#:key inputs #:allow-other-keys)
1256 ;; For some reason, setting the PYTHON_SHLIB make flag doesn't
1257 ;; properly set the path to the Python shared library. This
1258 ;; substitution acheives the same end by different means.
1259 (substitute* "gui-wx/wxprefs.cpp"
1260 (("pythonlib = wxT\\(STRINGIFY\\(PYTHON_SHLIB\\)\\)")
1261 (string-append "pythonlib = \""
1262 (assoc-ref inputs "python")
1263 "/lib/libpython-2.7.so\"")))
1264 #t))
1265 (replace 'build
1266 (lambda* (#:key make-flags outputs #:allow-other-keys)
1267 (with-directory-excursion "gui-wx"
1268 (apply invoke `("make" ,@make-flags "-f" "makefile-gtk")))))
1269 (replace 'install
1270 (lambda* (#:key outputs #:allow-other-keys)
1271 (let* ((out (assoc-ref outputs "out"))
1272 (bin (string-append out "/bin"))
1273 (doc (string-append out "/share/doc/golly"))
1274 (pixmaps (string-append out "/share/pixmaps"))
1275 (share (string-append out "/share/golly")))
1276 (for-each (lambda (binary)
1277 (install-file binary bin))
1278 '("bgolly" "golly"))
1279 (for-each (lambda (document)
1280 (install-file
1281 (string-append "docs/" document ".html")
1282 doc))
1283 '("License" "ReadMe" "ToDo"))
1284 (install-file "gui-wx/icons/appicon.xpm" pixmaps)
1285 (for-each (lambda (folder)
1286 (copy-recursively
1287 folder
1288 (string-append share "/" folder)))
1289 '("Help" "Patterns" "Rules" "Scripts")))
1290 #t)))))
1291 (native-inputs
1292 `(("lua" ,lua)))
1293 (inputs
1294 `(("glu" ,glu)
1295 ("mesa" ,mesa)
1296 ("python" ,python-2)
1297 ("wxwidgets" ,wxwidgets-gtk2)
1298 ("zlib" ,zlib)))
1299 (home-page "http://golly.sourceforge.net/")
1300 (synopsis "Software for exploring cellular automata")
1301 (description
1302 "Golly simulates Conway's Game of Life and many other types of cellular
1303 automata. The following features are available:
1304 @enumerate
1305 @item Support for bounded and unbounded universes, with cells of up to 256
1306 states.
1307 @item Support for multiple algorithms, including Bill Gosper's Hashlife
1308 algorithm.
1309 @item Loading patterns from BMP, PNG, GIF and TIFF image files.
1310 @item Reading RLE, macrocell, Life 1.05/1.06, dblife and MCell files.
1311 @item Scriptable via Lua or Python.
1312 @item Extracting patterns, rules and scripts from zip files.
1313 @item Downloading patterns, rules and scripts from online archives.
1314 @item Pasting patterns from the clipboard.
1315 @item Unlimited undo/redo.
1316 @item Configurable keyboard shortcuts.
1317 @item Auto fit option to keep patterns within the view.
1318 @end enumerate")
1319 (license license:gpl2+)))
1320
1321 (define-public julius
1322 (package
1323 (name "julius")
1324 (version "1.5.1")
1325 (source
1326 (origin
1327 (method git-fetch)
1328 (uri (git-reference
1329 (url "https://github.com/bvschaik/julius")
1330 (commit (string-append "v" version))))
1331 (file-name (git-file-name name version))
1332 (sha256
1333 (base32 "10d6py1cmkq8lnb5h3w8rdpp4fmpd1wgqkgiabdghqxi7b2s0g4b"))
1334 ;; Remove unused bundled libraries.
1335 (modules '((guix build utils)))
1336 (snippet
1337 '(begin
1338 (with-directory-excursion "ext"
1339 (for-each delete-file-recursively '("dirent" "png" "SDL2" "zlib")))
1340 #t))))
1341 (build-system cmake-build-system)
1342 (inputs
1343 `(("libpng" ,libpng)
1344 ("sdl2" ,sdl2)
1345 ("sdl2-mixer" ,sdl2-mixer)))
1346 (home-page "https://github.com/bvschaik/julius")
1347 (synopsis "Re-implementation of Caesar III game engine")
1348 (description
1349 "Engine for Caesar III, a city-building real-time strategy game.
1350 Julius includes some UI enhancements while preserving the logic (including
1351 bugs) of the original game, so that saved games are compatible. This package
1352 does not include game data.")
1353 (license (list license:agpl3
1354 license:zlib)))) ; ext/tinyfiledialogs
1355
1356 (define-public augustus
1357 (package
1358 (inherit julius)
1359 (name "augustus")
1360 (version "1.4.1a")
1361 (source
1362 (origin
1363 (method git-fetch)
1364 (uri (git-reference
1365 (url "https://github.com/Keriew/augustus")
1366 (commit (string-append "v" version))))
1367 (file-name (git-file-name name version))
1368 (sha256
1369 (base32 "1xqv8j8jh3f13fjhyf7hk1anrn799cwwsvsd75kpl9n5yh5s1j5y"))
1370 ;; Remove unused bundled libraries.
1371 (modules '((guix build utils)))
1372 (snippet
1373 '(begin
1374 (with-directory-excursion "ext"
1375 (for-each delete-file-recursively '("dirent" "png" "SDL2" "zlib")))
1376 #t))))
1377 (arguments
1378 ;; No tests. See https://github.com/Keriew/augustus/issues/82.
1379 `(#:tests? #f))
1380 (home-page "https://github.com/Keriew/augustus")
1381 (synopsis "Re-implementation of Caesar III game engine with gameplay changes")
1382 (description
1383 "Fork of Julius, an engine for the a city-building real-time strategy
1384 game Caesar III. Gameplay enhancements include:
1385
1386 @itemize
1387 @item roadblocks;
1388 @item market special orders;
1389 @item global labour pool;
1390 @item partial warehouse storage;
1391 @item increased game limits;
1392 @item zoom controls.
1393 @end itemize\n")))
1394
1395 (define-public meandmyshadow
1396 (package
1397 (name "meandmyshadow")
1398 (version "0.5a")
1399 (source (origin
1400 (method url-fetch)
1401 (uri (string-append "mirror://sourceforge/meandmyshadow/"
1402 version "/meandmyshadow-" version
1403 "-src.tar.gz"))
1404 (sha256
1405 (base32
1406 "0i98v6cgmpsxy7mbb0s2y6f6qq6mkwzk2nrv1nz39ncf948aky2h"))))
1407 (build-system cmake-build-system)
1408 (arguments
1409 `(#:tests? #f)) ; there are no tests
1410 (native-inputs
1411 `(("pkg-config" ,pkg-config)))
1412 (inputs
1413 `(("curl" ,curl)
1414 ("libarchive" ,libarchive)
1415 ("lua" ,lua)
1416 ("sdl" ,(sdl-union (list sdl2
1417 sdl2-image
1418 sdl2-mixer
1419 sdl2-ttf)))))
1420 (home-page "https://acmepjz.github.io/meandmyshadow/")
1421 (synopsis "Puzzle/platform game")
1422 (description "Me and My Shadow is a puzzle/platform game in which you try
1423 to reach the exit by solving puzzles. Spikes, moving blocks, fragile blocks
1424 and much more stand between you and the exit. Record your moves and let your
1425 shadow mimic them to reach blocks you couldn't reach alone.")
1426 (license license:gpl3+)))
1427
1428 (define-public opensurge
1429 (package
1430 (name "opensurge")
1431 (version "0.5.1.2")
1432 (source
1433 (origin
1434 (method git-fetch)
1435 (uri (git-reference
1436 (url "https://github.com/alemart/opensurge")
1437 (commit (string-append "v" version))))
1438 (file-name (git-file-name name version))
1439 (sha256
1440 (base32 "0ih7hlqjnp9rv0m4lqf7c0s1ai532way5i4pk45jq1gqm8325dbv"))))
1441 (build-system cmake-build-system)
1442 (arguments
1443 `(#:tests? #f ;there are no tests
1444 #:configure-flags
1445 (let* ((out (assoc-ref %outputs "out"))
1446 (share (string-append out "/share")))
1447 (list (string-append "-DCMAKE_INSTALL_PREFIX=" out "/bin")
1448 (string-append "-DGAME_DATADIR=" share "/" ,name)
1449 (string-append "-DDESKTOP_ENTRY_PATH=" share "/applications")
1450 (string-append "-DDESKTOP_ICON_PATH=" share "/pixmaps")
1451 (string-append "-DDESKTOP_METAINFO_PATH=" share "/metainfo")))
1452 #:phases
1453 (modify-phases %standard-phases
1454 (add-after 'unpack 'fix-xdg-open-path
1455 (lambda* (#:key inputs #:allow-other-keys)
1456 ;; Look for xdg-open in the store.
1457 (substitute* "src/core/web.c"
1458 (("/usr(/bin/xdg-open)" _ bin)
1459 (string-append (assoc-ref inputs "xdg-utils") bin)))
1460 #t))
1461 (add-after 'unpack 'unbundle-fonts
1462 (lambda* (#:key inputs #:allow-other-keys)
1463 ;; Replace bundled Roboto fonts with links to the store.
1464 (with-directory-excursion "fonts"
1465 (let ((roboto-dir (string-append
1466 (assoc-ref inputs "font-google-roboto")
1467 "/share/fonts/truetype/")))
1468 (for-each
1469 (lambda (font)
1470 (delete-file font)
1471 (symlink (string-append roboto-dir font) font))
1472 '("Roboto-Black.ttf" "Roboto-Bold.ttf" "Roboto-Medium.ttf")))
1473 #t))))))
1474 (inputs
1475 `(("allegro" ,allegro)
1476 ("font-google-roboto" ,font-google-roboto)
1477 ("surgescript" ,surgescript)
1478 ("xdg-utils" ,xdg-utils)))
1479 (home-page "https://opensurge2d.org")
1480 (synopsis "2D retro side-scrolling game")
1481 (description "@code{Open Surge} is a 2D retro side-scrolling platformer
1482 inspired by the Sonic games. The player runs at high speeds through each
1483 level while collecting items and avoiding obstacles. The game includes a
1484 built-in level editor.")
1485 (license
1486 ;; Code is under GPL 3+, assets are under various licenses.
1487 ;; See src/misc/credits.c for details.
1488 (list license:gpl3+
1489 license:cc0
1490 license:cc-by3.0
1491 license:cc-by-sa3.0
1492 license:expat
1493 license:public-domain
1494 license:silofl1.1))))
1495
1496 (define-public knights
1497 (package
1498 (name "knights")
1499 (version "025")
1500 (source (origin
1501 (method url-fetch)
1502 (uri (string-append "http://www.knightsgame.org.uk/files/knights_"
1503 version "_src.tar.gz"))
1504 (sha256
1505 (base32
1506 "18vp2ygvn0s0jz8rm585jqf6hjqkam1ximq81k0r9hpmfj7wb88f"))))
1507 (build-system gnu-build-system)
1508 (arguments
1509 '(#:make-flags
1510 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1511 "CXXFLAGS=-lpthread")
1512 #:phases
1513 (modify-phases %standard-phases
1514 ;; No configure script.
1515 (delete 'configure))
1516 #:tests? #f)) ;; No check target.
1517 (inputs
1518 `(("boost" ,boost)
1519 ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
1520 ("freetype" ,freetype)
1521 ("fontconfig" ,fontconfig)
1522 ("curl" ,curl)))
1523 (native-inputs
1524 `(("pkg-config" ,pkg-config)))
1525 (home-page "http://www.knightsgame.org.uk/")
1526 (synopsis "Multiplayer dungeon game involving knights and quests")
1527 (description "Knights is a multiplayer game involving several knights who
1528 must run around a dungeon and complete various quests. Each game revolves
1529 around a quest – for example, you might have to find some items and carry them
1530 back to your starting point. This may sound easy, but as there are only
1531 enough items in the dungeon for one player to win, you may end up having to
1532 kill your opponents to get their stuff! Other quests involve escaping from
1533 the dungeon, fighting a duel to the death against the enemy knights, or
1534 destroying an ancient book using a special wand.")
1535 ;; This package includes modified sources of lua (X11), enet (Expat), and
1536 ;; guichan (BSD-3). The "Coercri" library is released under the Boost
1537 ;; license. The whole package is released under GPLv3+.
1538 (license license:gpl3+)))
1539
1540 (define-public gnome-chess
1541 (package
1542 (name "gnome-chess")
1543 (version "3.37.3")
1544 (source (origin
1545 (method url-fetch)
1546 (uri (string-append "mirror://gnome/sources/gnome-chess/"
1547 (version-major+minor version) "/"
1548 "gnome-chess-" version ".tar.xz"))
1549 (sha256
1550 (base32
1551 "09axf0q1mp13sv8cs0syfg8ahcd9r2qb26278r09j6s4njxmkfv4"))))
1552 (build-system meson-build-system)
1553 (arguments
1554 '(#:glib-or-gtk? #t
1555 #:phases
1556 (modify-phases %standard-phases
1557 (add-after 'unpack 'skip-gtk-update-icon-cache
1558 ;; Don't create 'icon-theme.cache'.
1559 (lambda _
1560 (substitute* "meson_post_install.py"
1561 (("gtk-update-icon-cache") "true"))
1562 #t)))))
1563 (inputs
1564 `(("gtk+" ,gtk+)
1565 ("librsvg" ,librsvg)))
1566 (native-inputs
1567 `(("gettext" ,gettext-minimal)
1568 ("glib:bin" ,glib "bin") ; for desktop-file-validate and appstream-util
1569 ("itstool" ,itstool)
1570 ("pkg-config" ,pkg-config)
1571 ("vala" ,vala)))
1572 (home-page "https://wiki.gnome.org/Apps/Chess")
1573 (synopsis "Chess board for GNOME")
1574 (description "GNOME Chess provides a 2D board for playing chess games
1575 against human or computer players. It supports loading and saving games in
1576 Portable Game Notation. To play against a computer, install a chess engine
1577 such as chess or stockfish.")
1578 (license license:gpl3+)))
1579
1580 (define-public gnubg
1581 (package
1582 (name "gnubg")
1583 (version "1.06.002")
1584 (source
1585 (origin
1586 (method url-fetch)
1587 (uri (string-append "mirror://gnu/gnubg/gnubg-release-"
1588 version "-sources.tar.gz"))
1589 (sha256
1590 (base32
1591 "11xwhcli1h12k6rnhhyq4jphzrhfik7i8ah3k32pqw803460n6yf"))))
1592 (build-system gnu-build-system)
1593 (inputs `(;; XXX: Build with an older Pango for 'pango_font_get_hb_font' and
1594 ;; 'pango_coverage_get_type'. Try removing this for versions > 1.06.002.
1595 ("pango" ,pango-1.42)
1596
1597 ("glib" ,glib)
1598 ("readline" ,readline)
1599 ("gtk+" ,gtk+-2)
1600 ("mesa" ,mesa)
1601 ("glu" ,glu)
1602 ("gtkglext" ,gtkglext)
1603 ("sqlite" ,sqlite)
1604 ("libcanberra" ,libcanberra)))
1605 (native-inputs `(("python-2" ,python-2)
1606 ("pkg-config" ,pkg-config)))
1607 (arguments
1608 `(#:configure-flags
1609 ;; SSE instructions are available on Intel systems only.
1610 (list ,@(if (any (cute string-prefix? <> (or (%current-target-system)
1611 (%current-system)))
1612 '("x86_64" "i686"))
1613 '("--enable-simd=sse2") ; prevent avx instructions
1614 '()))
1615 #:phases
1616 (modify-phases %standard-phases
1617 (add-after 'install 'install-desktop-file
1618 (lambda* (#:key outputs #:allow-other-keys)
1619 (let* ((out (assoc-ref outputs "out"))
1620 (apps (string-append out "/share/applications")))
1621 (mkdir-p apps)
1622 (with-output-to-file (string-append apps "/gnubg.desktop")
1623 (lambda _
1624 (format #t
1625 "[Desktop Entry]~@
1626 Name=GNU Backgammon~@
1627 Exec=~a/bin/gnubg -w~@
1628 Icon=gnubg~@
1629 Categories=Game;~@
1630 Terminal=false~@
1631 Type=Application~%"
1632 out))))
1633 #t)))))
1634 (home-page "https://www.gnu.org/software/gnubg/")
1635 (synopsis "Backgammon game")
1636 (description "The GNU backgammon application (also known as \"gnubg\") can
1637 be used for playing, analyzing and teaching the game. It has an advanced
1638 evaluation engine based on artificial neural networks suitable for both
1639 beginners and advanced players. In addition to a command-line interface, it
1640 also features an attractive, 3D representation of the playing board.")
1641 (license license:gpl3+)))
1642
1643 (define-public gnubik
1644 (package
1645 (name "gnubik")
1646 (version "2.4.3")
1647 (source
1648 (origin
1649 (method url-fetch)
1650 (uri (string-append "mirror://gnu/gnubik/gnubik-"
1651 version ".tar.gz"))
1652 (sha256
1653 (base32
1654 "1vlf924mq8hg93bsjj0rzvs0crc6psmlxyc6zn0fr7msnmpx6gib"))))
1655 (build-system gnu-build-system)
1656 (arguments
1657 '(#:phases (modify-phases %standard-phases
1658 (add-after 'unpack 'skip-gtk-update-icon-cache
1659 (lambda _
1660 ;; Do not attempt to run 'gtk-update-icon-cache', which is
1661 ;; unnecessary and causes a needless dependency on glib.
1662 (substitute* "Makefile.in"
1663 (("gtk-update-icon-cache")
1664 "true"))
1665 #t)))))
1666 (inputs `(("gtk+" ,gtk+-2)
1667 ("mesa" ,mesa)
1668 ("glu" ,glu)
1669 ("libx11" ,libx11)
1670 ("guile" ,guile-2.0)
1671 ("gtkglext" ,gtkglext)))
1672 (native-inputs `(("gettext" ,gettext-minimal)
1673 ("pkg-config" ,pkg-config)))
1674 (home-page "https://www.gnu.org/software/gnubik/")
1675 (synopsis "3d Rubik's cube game")
1676 (description
1677 "GNUbik is a puzzle game in which you must manipulate a cube to make
1678 each of its faces have a uniform color. The game is customizable, allowing
1679 you to set the size of the cube (the default is 3x3) or to change the colors.
1680 You may even apply photos to the faces instead of colors. The game is
1681 scriptable with Guile.")
1682 (license license:gpl3+)))
1683
1684 (define-public gnushogi
1685 (package
1686 (name "gnushogi")
1687 (version "1.4.2")
1688 (source
1689 (origin
1690 (method url-fetch)
1691 (uri (string-append "mirror://gnu/gnushogi/gnushogi-"
1692 version ".tar.gz"))
1693 (sha256
1694 (base32
1695 "0a9bsl2nbnb138lq0h14jfc5xvz7hpb2bcsj4mjn6g1hcsl4ik0y"))))
1696 (arguments `(#:tests? #f)) ;; No check target.
1697 (build-system gnu-build-system)
1698 (home-page "https://www.gnu.org/software/gnushogi/")
1699 (synopsis "The game of Shogi (Japanese chess)")
1700 (description "GNU Shogi is a program that plays the game Shogi (Japanese
1701 Chess). It is similar to standard chess but this variant is far more complicated.")
1702 (license license:gpl3+)))
1703
1704 (define-public ltris
1705 (package
1706 (name "ltris")
1707 (version "1.2.1")
1708 (source
1709 (origin
1710 (method url-fetch)
1711 (uri (string-append "mirror://sourceforge/lgames/ltris/"
1712 "ltris-" version ".tar.gz"))
1713 (sha256
1714 (base32 "0959vvxh5xnxzpdv7i67lpd2b6ghx69z65ldnclj1z6llyfzfs7q"))))
1715 (build-system gnu-build-system)
1716 (arguments
1717 '(;; The code in LTris uses traditional GNU semantics for inline functions
1718 #:configure-flags '("CFLAGS=-fgnu89-inline")
1719 #:phases
1720 (modify-phases %standard-phases
1721 (add-after 'set-paths 'set-sdl-paths
1722 (lambda* (#:key inputs #:allow-other-keys)
1723 (setenv "CPATH"
1724 (string-append (assoc-ref inputs "sdl-union")
1725 "/include/SDL:"
1726 (or (getenv "CPATH") "")))
1727 #t)))))
1728 (inputs
1729 `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))))
1730 (home-page "http://lgames.sourceforge.net/LTris/")
1731 (synopsis "Tetris clone based on the SDL library")
1732 (description
1733 "LTris is a tetris clone: differently shaped blocks are falling down the
1734 rectangular playing field and can be moved sideways or rotated by 90 degree
1735 units with the aim of building lines without gaps which then disappear (causing
1736 any block above the deleted line to fall down). LTris has three game modes: In
1737 Classic you play until the stack of blocks reaches the top of the playing field
1738 and no new blocks can enter. In Figures the playing field is reset to a new
1739 figure each level and later on tiles and lines suddenly appear. In Multiplayer
1740 up to three players (either human or CPU) compete with each other sending
1741 removed lines to all opponents. There is also a Demo mode in which you can
1742 watch your CPU playing while enjoying a cup of tea!")
1743 (license license:gpl2+)))
1744
1745 (define-public nethack
1746 (package
1747 (name "nethack")
1748 (version "3.6.6")
1749 (source
1750 (origin
1751 (method url-fetch)
1752 (uri
1753 (string-append "https://www.nethack.org/download/" version "/nethack-"
1754 (string-join (string-split version #\.) "") "-src.tgz"))
1755 (sha256
1756 (base32 "1liyckjp34j354qnxc1zn9730lh1p2dabrg1hap24z6xnqx0rpng"))))
1757 (native-inputs
1758 `(("bison" ,bison)
1759 ("flex" ,flex)))
1760 (inputs
1761 `(("ncurses" ,ncurses)
1762 ("less" ,less)))
1763 (build-system gnu-build-system)
1764 (arguments
1765 '(#:make-flags
1766 `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
1767 #:phases
1768 (modify-phases %standard-phases
1769 (add-before 'configure 'patch-paths
1770 (lambda _
1771 (substitute* "sys/unix/nethack.sh"
1772 (("^ *cd .*$") ""))
1773 (substitute* "sys/unix/Makefile.utl"
1774 (("^YACC *=.*$") "YACC = bison -y\n")
1775 (("^LEX *=.*$") "LEX = flex\n")
1776 (("^# CC = gcc") "CC = gcc"))
1777 (substitute* "sys/unix/hints/linux"
1778 (("/bin/gzip") (string-append
1779 (assoc-ref %build-inputs "gzip")
1780 "/bin/gzip"))
1781 (("^WINTTYLIB=.*") "WINTTYLIB=-lncurses"))
1782 (substitute* "include/config.h"
1783 (("^.*define CHDIR.*$") "")
1784 (("^/\\* *#*define *REPRODUCIBLE_BUILD *\\*/")
1785 ;; Honor SOURCE_DATE_EPOCH.
1786 "#define REPRODUCIBLE_BUILD"))
1787
1788 ;; Note: 'makedefs' rejects and ignores dates that are too old
1789 ;; or too new, so we must choose something reasonable here.
1790 (setenv "SOURCE_DATE_EPOCH" "1531865062")
1791
1792 (substitute* "sys/unix/Makefile.src"
1793 (("^# CC = gcc") "CC = gcc"))
1794 #t))
1795 (replace 'configure
1796 (lambda _
1797 (let ((bash (string-append
1798 (assoc-ref %build-inputs "bash")
1799 "/bin/bash")))
1800 (with-directory-excursion "sys/unix"
1801 (substitute* "setup.sh" (("/bin/sh") bash))
1802 (invoke bash "setup.sh" "hints/linux"))
1803 #t)))
1804 (add-after 'install 'fixup-paths
1805 (lambda _
1806 (let* ((output (assoc-ref %outputs "out"))
1807 (nethack-script (string-append output "/bin/nethack")))
1808 (mkdir-p (string-append output "/games/lib/nethackuserdir"))
1809 (for-each
1810 (lambda (file)
1811 (rename-file
1812 (string-append output "/games/lib/nethackdir/" file)
1813 (string-append output "/games/lib/nethackuserdir/"
1814 file)))
1815 '("xlogfile" "logfile" "perm" "record" "save"))
1816 (mkdir-p (string-append output "/bin"))
1817 (call-with-output-file nethack-script
1818 (lambda (port)
1819 (format port "#!~a/bin/sh
1820 PATH=~a:$PATH
1821 if [ ! -d ~~/.config/nethack ]; then
1822 mkdir -p ~~/.config/nethack
1823 cp -r ~a/games/lib/nethackuserdir/* ~~/.config/nethack
1824 chmod -R +w ~~/.config/nethack
1825 fi
1826
1827 RUNDIR=$(mktemp -d)
1828
1829 cleanup() {
1830 rm -rf $RUNDIR
1831 }
1832 trap cleanup EXIT
1833
1834 cd $RUNDIR
1835 for i in ~~/.config/nethack/*; do
1836 ln -s $i $(basename $i)
1837 done
1838 for i in ~a/games/lib/nethackdir/*; do
1839 ln -s $i $(basename $i)
1840 done
1841 ~a/games/nethack"
1842 (assoc-ref %build-inputs "bash")
1843 (list->search-path-as-string
1844 (list
1845 (string-append
1846 (assoc-ref %build-inputs "coreutils") "/bin")
1847 (string-append
1848 (assoc-ref %build-inputs "less") "/bin"))
1849 ":")
1850 output
1851 output
1852 output)))
1853 (chmod nethack-script #o555)
1854 #t)))
1855 (delete 'check))))
1856 (home-page "https://nethack.org")
1857 (synopsis "Classic dungeon crawl game")
1858 (description "NetHack is a single player dungeon exploration game that runs
1859 on a wide variety of computer systems, with a variety of graphical and text
1860 interfaces all using the same game engine. Unlike many other Dungeons &
1861 Dragons-inspired games, the emphasis in NetHack is on discovering the detail of
1862 the dungeon and not simply killing everything in sight - in fact, killing
1863 everything in sight is a good way to die quickly. Each game presents a
1864 different landscape - the random number generator provides an essentially
1865 unlimited number of variations of the dungeon and its denizens to be discovered
1866 by the player in one of a number of characters: you can pick your race, your
1867 role, and your gender.")
1868 (license
1869 (license:fsdg-compatible
1870 "https://nethack.org/common/license.html"))))
1871
1872 (define-public pipewalker
1873 (package
1874 (name "pipewalker")
1875 (version "0.9.4")
1876 (source
1877 (origin
1878 (method url-fetch)
1879 (uri (string-append "mirror://sourceforge/pipewalker/pipewalker/"
1880 version "/pipewalker-" version ".tar.gz"))
1881 (sha256
1882 (base32 "1x46wgk0s55562pd96cxagxkn6wpgglq779f9b64ff1k3xzp3myn"))))
1883 (build-system gnu-build-system)
1884 (arguments
1885 `(#:configure-flags
1886 (list (string-append "--docdir=" (assoc-ref %outputs "out")
1887 "/share/doc/" ,name "-" ,version))
1888 #:phases
1889 (modify-phases %standard-phases
1890 (add-after 'configure 'patch-docdir
1891 ;; Makefile.in ignores configure's ‘--docdir=...’ option. Fix that.
1892 (lambda _
1893 (substitute* "Makefile"
1894 (("(pkgdocdatadir = ).*" _ assignment)
1895 (string-append assignment "$(docdir)\n")))
1896 #t)))))
1897 (inputs
1898 `(("libpng" ,libpng)
1899 ("mesa" ,mesa)
1900 ("sdl" ,sdl)))
1901 (home-page "http://pipewalker.sourceforge.net/")
1902 (synopsis "Logical tile puzzle")
1903 (description
1904 "PipeWalker is a simple puzzle game with many diffent themes: connect all
1905 computers to one network server, bring water from a source to the taps, etc.
1906 The underlying mechanism is always the same: you must turn each tile in the
1907 grid in the right direction to combine all components into a single circuit.
1908 Every puzzle has a complete solution, although there may be more than one.")
1909 (license license:gpl3+)))
1910
1911 (define-public prboom-plus
1912 (package
1913 (name "prboom-plus")
1914 (version "2.5.1.4")
1915 (source (origin
1916 (method url-fetch)
1917 (uri (string-append "mirror://sourceforge/prboom-plus/prboom-plus/"
1918 version "/prboom-plus-" version ".tar.gz"))
1919 (sha256
1920 (base32 "151v6nign86m1a2vqz27krsccpc9m4d1jax4y43v2fa82wfj9qp0"))
1921 (modules '((guix build utils)))
1922 (snippet
1923 '(begin
1924 (substitute* "src/version.c"
1925 (("__DATE__") "")
1926 (("__TIME__") ""))
1927 #t))))
1928 (build-system gnu-build-system)
1929 (arguments
1930 '(#:configure-flags '("--disable-cpu-opt")
1931 #:make-flags `(,(string-append "gamesdir="
1932 (assoc-ref %outputs "out") "/bin"))
1933 #:phases
1934 (modify-phases %standard-phases
1935 (add-after 'set-paths 'set-sdl'paths
1936 (lambda* (#:key inputs #:allow-other-keys)
1937 (setenv "CPATH"
1938 (string-append (assoc-ref inputs "sdl-union")
1939 "/include/SDL:"
1940 (or (getenv "CPATH") "")))
1941 #t)))))
1942 (inputs
1943 `(("fluidsynth" ,fluidsynth)
1944 ("glu" ,glu)
1945 ("libmad" ,libmad)
1946 ("libpng" ,libpng)
1947 ("libvorbis" ,libvorbis)
1948 ("pcre" ,pcre)
1949 ("portmidi" ,portmidi)
1950 ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net)))))
1951 (home-page "http://prboom-plus.sourceforge.net/")
1952 (synopsis "Version of the classic 3D shoot'em'up game Doom")
1953 (description
1954 "PrBoom+ is a Doom source port developed from the original PrBoom project.")
1955 (license license:gpl2+)))
1956
1957 (define-public retux
1958 (let ((release "1.4.1")
1959 (revision 1))
1960 (package
1961 (name "retux")
1962 (version (if (zero? revision)
1963 release
1964 (string-append release "-"
1965 (number->string revision))))
1966 (source (origin
1967 (method url-fetch)
1968 (uri (string-append "https://github.com/retux-game/retux/"
1969 "releases/download/v"
1970 version "/retux-"
1971 release "-src.tar.gz"))
1972 (sha256
1973 (base32
1974 "1vrldg2qh2gqfswj7vkpc589ldrrjd903j6cnfdik9zh0jhlq4h2"))))
1975 (build-system python-build-system)
1976 (arguments
1977 `(#:tests? #f ; no check target
1978 #:phases
1979 (modify-phases %standard-phases
1980 ;; no setup.py script
1981 (delete 'build)
1982 (replace 'install
1983 (lambda* (#:key outputs #:allow-other-keys)
1984 (let* ((out (assoc-ref outputs "out"))
1985 (bin (string-append out "/bin"))
1986 (data (string-append out "/share/retux")))
1987 (mkdir-p bin)
1988
1989 (substitute* "retux.py"
1990 ;; Use the correct data directory.
1991 (("os\\.path\\.join\\(os\\.path\\.dirname\\(__file__\\), \"data\"\\),")
1992 (string-append "\"" data "\",")))
1993
1994 (copy-file "retux.py" (string-append bin "/retux"))
1995 (copy-recursively "data" data)
1996 #t))))))
1997 (inputs
1998 `(("python-sge-pygame" ,python-sge-pygame)
1999 ("python-six" ,python-six)
2000 ("python-xsge" ,python-xsge)))
2001 (home-page "https://retux-game.github.io/")
2002 (synopsis "Action platformer game")
2003 (description
2004 "ReTux is an action platformer loosely inspired by the Mario games,
2005 utilizing the art assets from the @code{SuperTux} project.")
2006 ;; GPL version 3 or later is the license for the code and some art.
2007 ;; The rest of the licenses are for the art exclusively, as listed in
2008 ;; data/LICENSES.
2009 (license (list license:cc0
2010 license:cc-by3.0
2011 license:cc-by-sa3.0
2012 license:cc-by-sa4.0
2013 license:gpl2+
2014 license:gpl3+)))))
2015
2016 (define-public roguebox-adventures
2017 (package
2018 (name "roguebox-adventures")
2019 (version "3.0.1")
2020 (source
2021 (origin
2022 (method url-fetch)
2023 (uri (string-append
2024 "http://download.tuxfamily.org/rba/RogueBoxAdventures_v"
2025 (string-join (string-split version #\.) "_") "_Source.zip"))
2026 (file-name (string-append name "-" version ".zip"))
2027 (sha256
2028 (base32
2029 "05zd03s5w9kcpklfgcggbaa6rwf59nm0q9vcj6gh9v2lh402k067"))))
2030 (build-system python-build-system)
2031 (arguments
2032 `(#:tests? #f ; no check target
2033 #:phases
2034 (modify-phases %standard-phases
2035 (replace 'unpack
2036 (lambda* (#:key source #:allow-other-keys)
2037 (and (invoke "unzip" source)
2038 ;; The actual source is buried a few directories deep.
2039 (chdir (string-append "RogueBoxAdventures_v"
2040 (string-join
2041 (string-split ,version #\.) "_")
2042 "_Source")))))
2043 ;; no setup.py script
2044 (replace 'build
2045 (lambda* (#:key outputs #:allow-other-keys)
2046 (let* ((out (assoc-ref outputs "out"))
2047 (data (string-append
2048 out "/share/games/roguebox-adventures")))
2049 ;; Use the correct data directory.
2050 (substitute* '("main.py" "LIB/getch.py" "LIB/getch_gcwz.py")
2051 (("basic_path + os\\.sep + 'DATA'")
2052 (string-append "'" data "'"))
2053 (("^basic_path.*$")
2054 (string-append "basic_path ='" data "'\n")))
2055 (substitute* "LIB/dialog.py"
2056 (("d_path = os\\.path\\.dirname\\(.*\\)\\)")
2057 (string-append "d_path = '" data "'")))
2058 (substitute* "LIB/gra_files.py"
2059 (("basic_path = b_path\\.replace\\('/LIB',''\\)")
2060 (string-append "basic_path ='" data "'\n")))
2061
2062 ;; The game must save in the user's home directory because
2063 ;; the store is read-only.
2064 (substitute* "main.py"
2065 (("home_save = False") "home_save = True")
2066 (("'icon_small.png'")
2067 (string-append "'" data "/icon_small.png'"))))
2068 #t))
2069 (replace 'install
2070 (lambda* (#:key outputs #:allow-other-keys)
2071 (let* ((out (assoc-ref outputs "out"))
2072 (bin (string-append out "/bin"))
2073 (roguebox-adventures
2074 (string-append bin "/roguebox-adventures"))
2075 (data (string-append
2076 out "/share/games/roguebox-adventures"))
2077 (lib (string-append data "/LIB"))
2078 (doc (string-append
2079 out "/share/doc/roguebox-adventures")))
2080 (mkdir-p bin)
2081 (mkdir-p doc)
2082
2083 (for-each (lambda (file)
2084 (copy-recursively file
2085 (string-append data "/" file)))
2086 '("AUDIO" "FONT" "GRAPHIC" "LIB" "LICENSE"
2087 "icon_big.png" "icon_small.png"))
2088 (for-each (lambda (file)
2089 (chmod file #o555)
2090 (install-file file lib))
2091 '("main.py" "run.py"))
2092
2093 (copy-recursively "DOC" doc)
2094
2095 (call-with-output-file
2096 roguebox-adventures
2097 (lambda (p)
2098 (format p "\
2099 #!~a
2100 export PYTHONPATH=~a/LIB:~a
2101 exec -a \"~a\" ~a \"$@\"\n"
2102 (which "bash") data (getenv "PYTHONPATH")
2103 (which "python3")
2104 (string-append lib "/main.py"))))
2105 (chmod roguebox-adventures #o555))
2106 #t)))))
2107 (native-inputs
2108 `(("unzip" ,unzip)))
2109 (inputs
2110 `(("python-pygame" ,python-pygame)
2111 ("python-tmx" ,python-tmx)))
2112 (home-page "https://rogueboxadventures.tuxfamily.org")
2113 (synopsis "A classical roguelike/sandbox game")
2114 (description
2115 "RogueBox Adventures is a graphical roguelike with strong influences
2116 from sandbox games like Minecraft or Terraria. The main idea of RogueBox
2117 Adventures is to offer the player a kind of roguelike toy-world. This world
2118 can be explored and changed freely.")
2119 ;; The GPL3+ is for code, the rest are for art.
2120 (license (list license:cc0
2121 license:cc-by3.0
2122 license:gpl3+
2123 license:silofl1.1))))
2124
2125 (define-public seahorse-adventures
2126 (package
2127 (name "seahorse-adventures")
2128 (version "1.2")
2129 (source
2130 (origin
2131 (method git-fetch)
2132 (uri (git-reference
2133 (url "https://github.com/dulsi/seahorse-adventures")
2134 (commit (string-append "release-" version))))
2135 (file-name (git-file-name name version))
2136 (sha256
2137 (base32 "1rnvk06npaqcpjz5z6xcmssz61i32s422lydp49vrnf3j2g4yimd"))
2138 (modules '((guix build utils)
2139 (ice-9 ftw)
2140 (srfi srfi-1)))
2141 ;; Remove non-free (non-commercial) font.
2142 (snippet
2143 `(begin
2144 (for-each delete-file (find-files "data/fonts" "."))
2145 #t))))
2146 (build-system python-build-system)
2147 (arguments
2148 `(#:tests? #f ;no test
2149 #:phases
2150 (modify-phases %standard-phases
2151 (delete 'build) ;pure Python
2152 (replace 'install ;no install script
2153 (lambda* (#:key outputs #:allow-other-keys)
2154 (let* ((out (assoc-ref outputs "out"))
2155 (bin (string-append out "/bin"))
2156 (share (string-append out "/share"))
2157 (applications (string-append share "/applications"))
2158 (data (string-append share "/seahorse-adventures")))
2159 ;; Install data.
2160 (for-each (lambda (f)
2161 (chmod f #o555)
2162 (install-file f data))
2163 '("leveledit.py" "run_game.py" "tileedit.py"))
2164 (for-each (lambda (dir)
2165 (let ((target (string-append data "/" dir)))
2166 (mkdir-p target)
2167 (copy-recursively dir target)))
2168 '("data" "lib"))
2169 ;; Create executable.
2170 (mkdir-p bin)
2171 (let ((executable (string-append bin "/seahorse-adventures")))
2172 (call-with-output-file executable
2173 (lambda (p)
2174 (format p
2175 "#!~a~@
2176 export PYTHONPATH=~a:~a~@
2177 exec -a \"~a\" ~a \"$@\"~%"
2178 (which "bash") data (getenv "PYTHONPATH")
2179 (which "python3")
2180 (string-append data "/run_game.py"))))
2181 (chmod executable #o555))
2182 ;; Add desktop file.
2183 (mkdir-p applications)
2184 (make-desktop-entry-file
2185 (string-append applications "/seahorse-adventures.desktop")
2186 #:name "Seahorse Adventures"
2187 #:comment
2188 '((#f "Help Barbie the seahorse float on bubbles to the moon"))
2189 #:exec ,name
2190 #:icon ,name
2191 #:categories '("Game" "ActionGame")
2192 #:keywords '("game" "retro" "platform"))
2193 ;; Add icons.
2194 (for-each
2195 (lambda (size)
2196 (let ((dir (string-append share "/icons/hicolor/"
2197 size "x" size "/apps")))
2198 (mkdir-p dir)
2199 (copy-file
2200 (string-append "icon" size ".png")
2201 (string-append dir "/searhorse-adventures.png"))))
2202 '("32" "64" "128")))
2203 #t))
2204 (add-after 'install 'unbundle-fonts
2205 ;; Unbundle Bitstream Vera font and replace deleted one.
2206 (lambda* (#:key outputs inputs #:allow-other-keys)
2207 (let* ((out (assoc-ref outputs "out"))
2208 (data (string-append out "/share/seahorse-adventures"))
2209 (vera (string-append (assoc-ref inputs "font-bitstream-vera")
2210 "/share/fonts/truetype/Vera.ttf")))
2211 (let ((themes-dir (string-append data "/data/themes/")))
2212 (for-each
2213 (lambda (theme)
2214 (let ((target (string-append themes-dir theme "/Vera.ttf")))
2215 (delete-file target)
2216 (symlink vera target)))
2217 '("default" "gray")))
2218 (symlink vera (string-append data "/data/fonts/04B_20__.TTF"))
2219 (substitute* (string-append data "/lib/main.py")
2220 (("f_scale = 0.35") "f_scale = 0.47")))
2221 #t)))))
2222 (inputs
2223 `(("font-bitstream-vera" ,font-bitstream-vera)
2224 ("python-pygame" ,python-pygame)))
2225 (home-page "http://www.imitationpickles.org/barbie/")
2226 (synopsis "Help Barbie the seahorse float on bubbles to the moon")
2227 (description
2228 "Barbie Seahorse Adventures is a retro style platform arcade game.
2229 You are Barbie the seahorse who travels through the jungle, up to the
2230 volcano until you float on bubbles to the moon. On the way to your
2231 final destination you will encounter various enemies, servants of the
2232 evil overlord who has stolen the galaxy crystal. Avoid getting hit
2233 and defeat them with your bubbles!")
2234 ;; GPL2+ is for code, CC0 is for art.
2235 (license (list license:gpl2+ license:cc0))))
2236
2237 (define-public superstarfighter
2238 (package
2239 (name "superstarfighter")
2240 (version "0.6.4")
2241 (source
2242 (origin
2243 (method git-fetch)
2244 (uri (git-reference
2245 (url "https://github.com/notapixelstudio/superstarfighter")
2246 (commit (string-append "v" version))))
2247 (file-name (git-file-name name version))
2248 (sha256
2249 (base32 "1fly63yf5ls1xwm15if4lxwy67wi84k4gvjllljpykrl18vw2y0y"))))
2250 (build-system gnu-build-system)
2251 (arguments
2252 `(#:tests? #f ;there are no tests
2253 #:phases
2254 (modify-phases %standard-phases
2255 (replace 'configure
2256 (lambda _
2257 (chdir "godot")
2258 (setenv "HOME" (getcwd))
2259 (with-output-to-file "export_presets.cfg"
2260 (lambda ()
2261 (display
2262 "[preset.0]
2263 name=\"Guix\"
2264 platform=\"Linux/X11\"
2265 runnable=true
2266 [preset.0.options]")))
2267 #t))
2268 (replace 'build
2269 (lambda _
2270 (let ((godot (assoc-ref %build-inputs "godot-headless")))
2271 (invoke (string-append godot "/bin/godot_server")
2272 "--export-pack" "Guix"
2273 "superstarfighter.pck" "project.godot"))
2274 #t))
2275 (replace 'install
2276 (lambda* (#:key inputs outputs #:allow-other-keys)
2277 (let* ((out (assoc-ref outputs "out"))
2278 (bin (string-append out "/bin"))
2279 (share (string-append out "/share"))
2280 (data (string-append share "/superstarfighter"))
2281 (icons (string-append share "/icons/hicolor/256x256/apps")))
2282 (install-file "superstarfighter.pck" data)
2283 (mkdir-p bin)
2284 (call-with-output-file (string-append bin "/superstarfighter")
2285 (lambda (port)
2286 (format port
2287 "#!/bin/sh~@
2288 exec ~a/bin/godot --main-pack ~a/superstarfighter.pck~%"
2289 (assoc-ref inputs "godot")
2290 data)
2291 (chmod port #o755)))
2292 (mkdir-p icons)
2293 (copy-file "icon.png" (string-append icons "/" ,name ".png"))
2294 (make-desktop-entry-file
2295 (string-append share "/applications/" ,name ".desktop")
2296 #:name "SuperStarfighter"
2297 #:comment "Fast-paced arcade combat game"
2298 #:exec ,name
2299 #:icon ,name
2300 #:categories '("Game" "ArcadeGame")))
2301 #t)))))
2302 (native-inputs
2303 `(("godot-headless" ,godot "headless")))
2304 (inputs
2305 `(("godot" ,godot)))
2306 (home-page "https://notapixel.itch.io/superstarfighter")
2307 (synopsis "Fast-paced local multiplayer arcade game")
2308 (description "In SuperStarfighter, up to four local players compete in a
2309 2D arena with fast-moving ships and missiles. Different game types are
2310 available, as well as a single-player mode with AI-controlled ships.")
2311 (license (list license:expat ; game
2312 license:silofl1.1)))) ; fonts
2313
2314 (define %ufoai-commit "a542a87a891f96b1ab2c44d35b2f6f16859a5019")
2315 (define %ufoai-revision "0")
2316 (define %ufoai-version (git-version "2.6.0_dev" %ufoai-revision %ufoai-commit))
2317 (define ufoai-source
2318 (origin
2319 (method git-fetch)
2320 (uri (git-reference
2321 (url "git://git.code.sf.net/p/ufoai/code") ;HTTPS fails mid-clone
2322 (commit %ufoai-commit)))
2323 (file-name (string-append "ufoai-" %ufoai-version "-checkout"))
2324 (sha256
2325 (base32
2326 "024s7b9rcg7iw8i2p72gwnvabk23ljlq0nldws0y4b6hpwzyn1wz"))
2327 (modules '((guix build utils)
2328 (srfi srfi-1)
2329 (ice-9 ftw)))
2330 (snippet
2331 '(begin
2332 ;; Delete ~32MiB of bundled dependencies.
2333 (with-directory-excursion "src/libs"
2334 (for-each delete-file-recursively
2335 (lset-difference equal? (scandir ".")
2336 '("." ".." "gtest" "mumble"))))
2337
2338 ;; Use relative path to Lua headers.
2339 (substitute* "src/common/scripts_lua.h"
2340 (("\\.\\./libs/lua/") ""))
2341
2342 ;; Adjust Makefile targets to not depend on 'ufo2map', since we build
2343 ;; it as a separate package. This way we don't need to make the same
2344 ;; adjustments for 'ufoai-data' and 'ufoai' below.
2345 (substitute* "build/maps.mk"
2346 (("\\./ufo2map") "ufo2map")
2347 (("maps: ufo2map") "maps:"))
2348 (substitute* "build/modules/testall.mk"
2349 (("testall: ufo2map") "testall:"))
2350
2351 ;; If no cURL headers are found, the build system will try to include
2352 ;; the bundled version, even when not required. Prevent that.
2353 (substitute* "build/default.mk"
2354 (("^include src/libs/curl/lib/Makefile\\.inc")
2355 ""))
2356
2357 ;; While here, improve reproducibility by adding the '-X' flag to the
2358 ;; zip command used to create the map files, in order to prevent time
2359 ;; stamps from making it into the generated archives.
2360 (substitute* "build/data.mk"
2361 (("\\$\\(call ZIP\\)")
2362 "$(call ZIP) -X"))
2363 #t))))
2364
2365 (define-public ufo2map
2366 (package
2367 (name "ufo2map")
2368 (version %ufoai-version)
2369 (home-page "https://ufoai.org/")
2370 (source ufoai-source)
2371 (build-system gnu-build-system)
2372 (arguments
2373 '(#:configure-flags '("CC=gcc" "CXX=g++"
2374 "--enable-release"
2375 "--enable-ufo2map"
2376 "--disable-uforadiant"
2377 "--disable-cgame-campaign"
2378 "--disable-cgame-multiplayer"
2379 "--disable-cgame-skirmish"
2380 "--disable-game"
2381 "--disable-memory"
2382 "--disable-testall"
2383 "--disable-ufoded"
2384 "--disable-ufo"
2385 "--disable-ufomodel"
2386 "--disable-ufoslicer")
2387 #:tests? #f ;no tests
2388 #:phases (modify-phases %standard-phases
2389 (replace 'configure
2390 (lambda* (#:key (configure-flags '()) #:allow-other-keys)
2391 ;; The home-made configure script does not understand
2392 ;; some of the default flags of gnu-build-system.
2393 (apply invoke "./configure" configure-flags)))
2394 (replace 'install
2395 (lambda* (#:key outputs #:allow-other-keys)
2396 (let ((out (assoc-ref outputs "out")))
2397 (install-file "ufo2map" (string-append out "/bin"))
2398 (install-file "debian/ufo2map.6"
2399 (string-append out "/share/man/man6"))
2400 #t))))))
2401 (native-inputs
2402 `(("pkg-config" ,pkg-config)))
2403 (inputs
2404 `(("libjpeg" ,libjpeg-turbo)
2405 ("libpng" ,libpng)
2406 ("lua" ,lua-5.1)
2407 ("sdl-union" ,(sdl-union (list sdl2 sdl2-mixer sdl2-ttf)))))
2408 (synopsis "UFO: AI map generator")
2409 (description
2410 "This package provides @command{ufo2map}, a program used to generate
2411 maps for the UFO: Alien Invasion strategy game.")
2412 (license license:gpl2+)))
2413
2414 (define ufoai-data
2415 (package
2416 (name "ufoai-data")
2417 (version %ufoai-version)
2418 (home-page "https://ufoai.org/")
2419 (source ufoai-source)
2420 (build-system gnu-build-system)
2421 (arguments
2422 '(#:tests? #f
2423 #:configure-flags '("CC=gcc" "CXX=g++")
2424 #:phases (modify-phases %standard-phases
2425 (replace 'configure
2426 (lambda* (#:key outputs (configure-flags '()) #:allow-other-keys)
2427 (apply invoke "./configure" configure-flags)))
2428 (replace 'build
2429 (lambda* (#:key (parallel-build? #t) #:allow-other-keys)
2430 (invoke "make"
2431 "-j" (if parallel-build?
2432 (number->string (parallel-job-count))
2433 "1")
2434 "maps")))
2435 (add-after 'build 'pack
2436 (lambda _
2437 (invoke "make" "pk3")))
2438 (replace 'install
2439 (lambda* (#:key outputs #:allow-other-keys)
2440 (let ((out (assoc-ref outputs "out")))
2441 (for-each (lambda (file)
2442 (install-file file out))
2443 (find-files "base" "\\.pk3$"))
2444 #t))))))
2445 (native-inputs
2446 `(("python" ,python-2)
2447 ("ufo2map" ,ufo2map)
2448 ("which" ,which)
2449 ("zip" ,zip)))
2450 (synopsis "UFO: AI data files")
2451 (description
2452 "This package contains maps and other assets for UFO: Alien Invasion.")
2453 ;; Most assets are available under either GPL2 or GPL2+. Some use other
2454 ;; licenses, see LICENSES for details.
2455 (license (list license:gpl2+ license:gpl2 license:cc-by3.0
2456 license:cc-by-sa3.0 license:public-domain))))
2457
2458 (define-public ufoai
2459 (package
2460 (name "ufoai")
2461 (version %ufoai-version)
2462 (home-page "https://ufoai.org/")
2463 (source ufoai-source)
2464 (build-system gnu-build-system)
2465 (arguments
2466 `(#:configure-flags
2467 (list (string-append "--prefix=" (assoc-ref %outputs "out"))
2468 (string-append "--datadir=" (assoc-ref %outputs "out")
2469 "/share/games/ufo")
2470 "CC=gcc" "CXX=g++"
2471 "--enable-release"
2472 "--enable-game"
2473 "--disable-ufo2map"
2474 "--disable-dependency-tracking"
2475
2476 ;; Disable hard links to prevent huge NARs.
2477 "--disable-hardlinkedgame"
2478 "--disable-hardlinkedcgame")
2479 #:phases (modify-phases %standard-phases
2480 (add-after 'unpack 'symlink-data-files
2481 (lambda* (#:key inputs #:allow-other-keys)
2482 (let ((data (assoc-ref inputs "ufoai-data")))
2483 ;; Symlink the data files to where the build system
2484 ;; expects to find them. Ultimately these files are
2485 ;; copied to $out/share/games/ufoai/base, losing the
2486 ;; symlinks; we could fix that after install, but it
2487 ;; does not make a big difference in practice due to
2488 ;; deduplication.
2489 (with-directory-excursion "base"
2490 (for-each (lambda (file)
2491 (symlink file (basename file)))
2492 (find-files data "\\.pk3$")))
2493 #t)))
2494 (add-before 'configure 'create-language-files
2495 (lambda _
2496 (invoke "make" "lang")))
2497 (replace 'configure
2498 (lambda* (#:key outputs (configure-flags '()) #:allow-other-keys)
2499 (apply invoke "./configure" configure-flags)))
2500 (replace 'check
2501 (lambda* (#:key tests? #:allow-other-keys)
2502 (if tests?
2503 (invoke "./testall")
2504 (format #t "test suite not run~%"))
2505 #t))
2506 (add-after 'install 'install-man-pages
2507 (lambda* (#:key outputs #:allow-other-keys)
2508 (let* ((out (assoc-ref outputs "out"))
2509 (man6 (string-append out "/share/man/man6")))
2510 (install-file "debian/ufo.6" man6)
2511 (install-file "debian/ufoded.6" man6)
2512 #t))))
2513
2514 ;; TODO: Some map tests occasionally fail because of randomness issues,
2515 ;; e.g. not enough generated aliens. The test runner also fails early
2516 ;; in the build container with 'failed to shutdown server'?
2517 #:tests? #f))
2518 (native-inputs
2519 `(("gettext" ,gettext-minimal)
2520 ("pkg-config" ,pkg-config)
2521 ("python" ,python-2)
2522 ("ufo2map" ,ufo2map)
2523 ("ufoai-data" ,ufoai-data)))
2524 (inputs
2525 `(("curl" ,curl)
2526 ("libjpeg" ,libjpeg-turbo)
2527 ("libogg" ,libogg)
2528 ("libpng" ,libpng)
2529 ("libtheora" ,libtheora)
2530 ("libvorbis" ,libvorbis)
2531 ("libxml2" ,libxml2)
2532 ("lua" ,lua-5.1)
2533 ("mesa" ,mesa)
2534 ("minixml" ,minixml)
2535 ("sdl-union" ,(sdl-union (list sdl2 sdl2-mixer sdl2-ttf)))
2536 ("zlib" ,zlib)))
2537 (synopsis "Turn-based tactical strategy game")
2538 (description
2539 "UFO: Alien Invasion is a tactical strategy game set in the year 2084.
2540 You control a secret organisation charged with defending Earth from a brutal
2541 alien enemy. Build up your bases, prepare your team, and dive head-first into
2542 the fast and flowing turn-based combat.
2543
2544 Over the long term you will need to conduct research into the alien threat to
2545 figure out their mysterious goals and use their powerful weapons for your own
2546 ends. You will produce unique items and use them in combat against your
2547 enemies.
2548
2549 You can also use them against your friends with the multiplayer functionality.
2550
2551 Warning: This is a pre-release version of UFO: AI! Some things may not work
2552 properly.")
2553
2554 ;; The game code and most assets are GPL2+, but we use GPL2 only here
2555 ;; because some assets do not use the "or later" clause. Many individual
2556 ;; assets use Creative Commons or Public Domain; see the LICENSE file.
2557 (license (delete license:gpl2+ (package-license ufoai-data)))))
2558
2559 (define-public xshogi
2560 (package
2561 (name "xshogi")
2562 (version "1.4.2")
2563 (source
2564 (origin
2565 (method url-fetch)
2566 (uri (string-append "mirror://gnu/gnushogi/xshogi-"
2567 version ".tar.gz"))
2568 (sha256
2569 (base32
2570 "1dns0nhymak44by18sv48m4xb2skiwbi2i3nb9hl6w9iwd2i2brf"))))
2571 (build-system gnu-build-system)
2572 (inputs
2573 `(("libxaw" ,libxaw)
2574 ("libxt" ,libxt)))
2575 (home-page "https://www.gnu.org/software/gnushogi/")
2576 (synopsis "User interface for gnushogi")
2577 (description "A graphical user interface for the package @code{gnushogi}.")
2578 ;; Contains a copy of GPLv3 but the licence notices simply
2579 ;; state "GNU General Public Licence" without specifying a version.
2580 (license license:gpl1+)))
2581
2582 (define-public abbaye
2583 (package
2584 (name "abbaye")
2585 (version "2.0.1")
2586 (source
2587 (origin
2588 (method git-fetch)
2589 (uri (git-reference
2590 (url "https://github.com/nevat/abbayedesmorts-gpl")
2591 (commit (string-append "v" version))))
2592 (file-name (git-file-name name version))
2593 (sha256
2594 (base32 "1pwqf7r9bqb2p3xrw9i7y8pgr1401fy3mnnqpb1qkhmdl3gqi9hb"))
2595 (modules '((guix build utils)))
2596 (snippet
2597 ;; Unbundle fonts.
2598 '(begin
2599 (delete-file-recursively "fonts")
2600 #t))))
2601 (build-system gnu-build-system)
2602 (arguments
2603 '(#:make-flags '("CC=gcc")
2604 #:phases (modify-phases %standard-phases
2605 (add-after 'set-paths 'set-sdl-paths
2606 (lambda* (#:key inputs #:allow-other-keys)
2607 (setenv "CPATH"
2608 (string-append (assoc-ref inputs "sdl-union")
2609 "/include/SDL:"
2610 (or (getenv "CPATH") "")))))
2611 (add-after 'patch-source-shebangs 'patch-makefile
2612 (lambda* (#:key outputs #:allow-other-keys)
2613 ;; Replace /usr with package output directory.
2614 (substitute* "Makefile"
2615 (("/usr") (assoc-ref outputs "out")))))
2616 (add-before 'install 'make-install-dirs
2617 (lambda* (#:key outputs #:allow-other-keys)
2618 (let ((prefix (assoc-ref outputs "out")))
2619 ;; Create directories that the makefile assumes exist.
2620 (mkdir-p (string-append prefix "/bin"))
2621 (mkdir-p (string-append prefix "/share/applications"))
2622 (mkdir-p (string-append prefix "/share/pixmaps")))))
2623 ;; No configure script.
2624 (delete 'configure))
2625 #:tests? #f)) ;; No check target.
2626 (native-inputs `(("pkg-config" ,pkg-config)))
2627 (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer)))))
2628 (home-page "https://github.com/nevat/abbayedesmorts-gpl")
2629 (synopsis "GNU/Linux port of the indie game \"l'Abbaye des Morts\"")
2630 (description "L'Abbaye des Morts is a 2D platform game set in 13th century
2631 France. The Cathars, who preach about good Christian beliefs, were being
2632 expelled by the Catholic Church out of the Languedoc region in France. One of
2633 them, called Jean Raymond, found an old church in which to hide, not knowing
2634 that beneath its ruins lay buried an ancient evil.")
2635 (license license:gpl3)))
2636
2637 (define-public angband
2638 (package
2639 (name "angband")
2640 (version "4.2.1")
2641 (source
2642 (origin
2643 (method url-fetch)
2644 (uri (string-append "https://rephial.org/downloads/"
2645 (version-major+minor version)
2646 "/angband-" version ".tar.gz"))
2647 (sha256
2648 (base32 "03qdavkj2ik02mqjxmlm5bn17ba3yxb1rirp8ghnxy3bsk4kbmxc"))
2649 (modules '((guix build utils)))
2650 (snippet
2651 ;; So, some of the sounds/graphics/tilesets are under different
2652 ;; licenses... some of them even nonfree! This is a console-only
2653 ;; version of this package so we just remove them.
2654 ;; In the future, if someone tries to make a graphical variant of
2655 ;; this package, they can deal with that mess themselves. :)
2656 '(begin
2657 (for-each (lambda (subdir)
2658 (let ((lib-subdir (string-append "lib/" subdir)))
2659 (delete-file-recursively lib-subdir)))
2660 '("fonts" "icons" "sounds" "tiles"))
2661 (substitute* "lib/Makefile"
2662 ;; And don't try to invoke makefiles in the directories we removed.
2663 (("gamedata customize help screens fonts tiles sounds icons user")
2664 "gamedata customize help screens user"))
2665 #t))))
2666 (build-system gnu-build-system)
2667 (arguments
2668 `(#:tests? #f ; no check target
2669 #:configure-flags (list (string-append "--bindir=" %output "/bin"))
2670 #:phases
2671 (modify-phases %standard-phases
2672 (replace 'bootstrap
2673 (lambda _
2674 (substitute* "acinclude.m4"
2675 (("ncursesw5-config") "ncursesw6-config"))
2676 (invoke "sh" "autogen.sh"))))))
2677 (native-inputs
2678 `(("autoconf" ,autoconf)
2679 ("automake" ,automake)))
2680 (inputs `(("ncurses" ,ncurses)))
2681 (home-page "https://rephial.org/")
2682 (synopsis "Dungeon exploration roguelike")
2683 (description "Angband is a Classic dungeon exploration roguelike. Explore
2684 the depths below Angband, seeking riches, fighting monsters, and preparing to
2685 fight Morgoth, the Lord of Darkness.")
2686 (license license:gpl2)))
2687
2688 (define-public pingus
2689 (package
2690 (name "pingus")
2691 (version "0.7.6")
2692 (source
2693 (origin
2694 (method git-fetch)
2695 (uri (git-reference
2696 (url "https://gitlab.com/pingus/pingus.git")
2697 (commit (string-append "v" version))))
2698 (file-name (git-file-name name version))
2699 (sha256
2700 (base32
2701 "0wp06kcmknsnxz7bjnsndb8x062z7r23fb3yrnbfnj68qhz18y74"))
2702 (patches (search-patches "pingus-boost-headers.patch"
2703 "pingus-sdl-libs-config.patch"))
2704 (modules '((guix build utils)))
2705 (snippet
2706 '(begin
2707 (substitute* "src/pingus/screens/demo_session.cpp"
2708 (("#include <iostream>")
2709 ;; std::function moved to <functional> with C++ 11.
2710 ;; Remove this for versions newer than 0.7.6.
2711 "#include <iostream>\n#include <functional>"))
2712 #t))))
2713 (build-system gnu-build-system)
2714 (native-inputs `(("pkg-config" ,pkg-config)
2715 ("scons-python2" ,scons-python2)))
2716 (inputs `(("sdl" ,sdl)
2717 ("sdl-image" ,sdl-image)
2718 ("sdl-mixer" ,sdl-mixer)
2719 ("mesa" ,mesa)
2720 ("glu" ,glu)
2721 ("libpng" ,libpng)
2722 ("boost" ,boost)))
2723 (arguments
2724 '(#:make-flags (list (string-append "PREFIX=" %output))
2725 #:tests? #f ; no check target
2726 #:phases
2727 (modify-phases %standard-phases
2728 (delete 'configure)))) ; no configure script
2729 (home-page "https://pingus.seul.org/")
2730 (synopsis "Lemmings clone")
2731 (description
2732 "Pingus is a free Lemmings-like puzzle game in which the player takes
2733 command of a bunch of small animals and has to guide them through levels.
2734 Since the animals walk on their own, the player can only influence them by
2735 giving them commands, like build a bridge, dig a hole, or redirect all animals
2736 in the other direction. Multiple such commands are necessary to reach the
2737 level's exit. The game is presented in a 2D side view.")
2738 ;; Some source files are under bsd-3 and gpl2+ licenses.
2739 (license license:gpl3+)))
2740
2741 (define-public talkfilters
2742 (package
2743 (name "talkfilters")
2744 (version "2.3.8")
2745 (source
2746 (origin
2747 (method url-fetch)
2748 (uri (string-append "http://www.hyperrealm.com/talkfilters/"
2749 "talkfilters-" version ".tar.gz"))
2750 (sha256
2751 (base32 "19nc5vq4bnkjvhk8srqddzhcs93jyvpm9r6lzjzwc1mgf08yg0a6"))))
2752 (build-system gnu-build-system)
2753 (home-page "https://www.gnu.org/software/talkfilters/")
2754 (synopsis "Convert English text to humorous dialects")
2755 (description "The GNU Talk Filters are programs that convert English text
2756 into stereotyped or otherwise humorous dialects. The filters are provided as
2757 a C library, so they can easily be integrated into other programs.")
2758 (license license:gpl2+)))
2759
2760 (define-public taisei
2761 (package
2762 (name "taisei")
2763 (version "1.3.1")
2764 (source
2765 (origin
2766 (method url-fetch)
2767 (uri (string-append "https://github.com/taisei-project/"
2768 "taisei/releases/download/v" version
2769 "/taisei-v" version ".tar.xz"))
2770 (sha256
2771 (base32 "11f9mlqmzy1lszwcc1nsbar9q1hs4ml6pbm52hqfd4q0f4x3ln46"))))
2772 (build-system meson-build-system)
2773 (arguments
2774 `(#:build-type "release" ;comment out for bug-reporting (and cheats)
2775 #:configure-flags
2776 (list "-Dr_default=gles30"
2777 "-Dr_gles20=true"
2778 "-Dr_gles30=true"
2779 "-Dshader_transpiler=true")))
2780 (native-inputs
2781 `(("pkg-config" ,pkg-config)
2782 ("python" ,python)
2783 ("python-docutils" ,python-docutils)
2784 ("python-pygments" ,python-pygments)))
2785 (inputs
2786 `(("freetype" ,freetype)
2787 ("libpng" ,libpng)
2788 ("libwebp" ,libwebp)
2789 ("libzip" ,libzip)
2790 ("mesa" ,mesa)
2791 ("openssl" ,openssl)
2792 ("opusfile" ,opusfile)
2793 ("sdl2" ,sdl2)
2794 ("sdl2-mixer" ,sdl2-mixer)
2795 ("shaderc" ,shaderc)
2796 ("spirv-cross" ,spirv-cross)
2797 ("zlib" ,zlib)))
2798 (home-page "https://taisei-project.org/")
2799 (synopsis "Shoot'em up fangame and libre clone of Touhou Project")
2800 (description
2801 "The player controls a character (one of three: Good, Bad, and Dead),
2802 dodges the missiles (lots of it cover the screen, but the character's hitbox
2803 is very small), and shoot at the adversaries that keep appear on the screen.")
2804 (license (list ;;game
2805 license:expat
2806 ;;resources/00-taisei.pkgdir/bgm/
2807 ;;atlas/portraits/
2808 license:cc-by4.0
2809 ;;miscellaneous
2810 license:cc0
2811 license:public-domain))))
2812
2813 (define-public cmatrix
2814 (package
2815 (name "cmatrix")
2816 (version "2.0")
2817 (source
2818 (origin
2819 (method git-fetch)
2820 (uri (git-reference
2821 (url "https://github.com/abishekvashok/cmatrix")
2822 (commit (string-append "v" version))))
2823 (file-name (git-file-name name version))
2824 (sha256
2825 (base32
2826 "1h9jz4m4s5l8c3figaq46ja0km1gimrkfxm4dg7mf4s84icmasbm"))))
2827 (build-system gnu-build-system)
2828 (native-inputs
2829 `(("autoconf" ,autoconf)
2830 ("automake" ,automake)))
2831 (arguments
2832 '(#:phases
2833 (modify-phases %standard-phases
2834 (replace 'configure
2835 (lambda* (#:key outputs #:allow-other-keys)
2836 ;; This old ‘configure’ script doesn't support
2837 ;; variables passed as arguments.
2838 (let ((out (assoc-ref outputs "out")))
2839 (setenv "CONFIG_SHELL" (which "bash"))
2840 (invoke "./configure"
2841 (string-append "--prefix=" out))))))))
2842 (inputs `(("ncurses" ,ncurses)))
2843 (home-page "http://www.asty.org/cmatrix")
2844 (synopsis "Simulate the display from \"The Matrix\"")
2845 (description "CMatrix simulates the display from \"The Matrix\" and is
2846 based on the screensaver from the movie's website. It works with terminal
2847 settings up to 132x300 and can scroll lines all at the same rate or
2848 asynchronously and at a user-defined speed.")
2849 (license license:gpl2+)))
2850
2851 (define-public chess
2852 (package
2853 (name "chess")
2854 (version "6.2.7")
2855 (source
2856 (origin
2857 (method url-fetch)
2858 (uri (string-append "mirror://gnu/chess/gnuchess-" version
2859 ".tar.gz"))
2860 (sha256
2861 (base32
2862 "0ilq4bfl0lwyzf11q7n2skydjhalfn3bgxhrp5hjxs5bc5d6fdp5"))))
2863 (build-system gnu-build-system)
2864 (home-page "https://www.gnu.org/software/chess/")
2865 (synopsis "Full chess implementation")
2866 (description "GNU Chess is a chess engine. It allows you to compete
2867 against the computer in a game of chess, either through the default terminal
2868 interface or via an external visual interface such as GNU XBoard.")
2869 (properties '((upstream-name . "gnuchess")
2870 (ftp-directory . "/chess")))
2871 (license license:gpl3+)))
2872
2873 (define-public freedink-engine
2874 (package
2875 (name "freedink-engine")
2876 (version "109.6")
2877 (source (origin
2878 (method url-fetch)
2879 (uri (string-append "mirror://gnu/freedink/freedink-" version
2880 ".tar.gz"))
2881 (patches (search-patches "freedink-engine-fix-sdl-hints.patch"))
2882 (sha256
2883 (base32
2884 "00hhk1bjdrc1np2qz44sa5n1mb62qzwxbvsnws3vpms6iyn3a2sy"))))
2885 (build-system gnu-build-system)
2886 (arguments
2887 `(#:configure-flags '("--disable-embedded-resources")
2888 #:phases
2889 (modify-phases %standard-phases
2890 (add-after 'unpack 'disable-graphical-tests
2891 (lambda _
2892 ;; These tests require a graphical interface.
2893 (substitute* "src/Makefile.am"
2894 (("test_gfx_fonts TestIOGfxDisplay") ""))
2895 #t))
2896 (add-before 'bootstrap 'autoreconf
2897 (lambda _
2898 ;; automake is out of date in the source
2899 ;; autoreconf updates the automake scripts
2900 (invoke "autoreconf")
2901 ;; Build fails when autom4te.cache exists.
2902 (delete-file-recursively "autom4te.cache")
2903 #t))
2904 (add-after 'install 'delete-freedinkedit-desktop
2905 (lambda* (#:key outputs #:allow-other-keys)
2906 (let ((out (assoc-ref outputs "out")))
2907 ;; freedinkedit does not know where to find freedink data
2908 ;; freedink data is read-only, so it cannot be edited anyway.
2909 ;; TODO: fix freedink.desktop
2910 (delete-file-recursively (string-append
2911 out "/share/applications"))
2912 #t))))))
2913 (native-inputs `(("autoconf" ,autoconf)
2914 ("automake" ,automake)
2915 ("cxxtest" ,cxxtest)
2916 ("gettext" ,gettext-minimal)
2917 ("help2man" ,help2man)
2918 ("pkg-config" ,pkg-config)))
2919 (inputs `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer
2920 sdl2-ttf sdl2-gfx)))
2921 ("fontconfig" ,fontconfig)
2922 ("glm" ,glm)))
2923 (properties '((ftp-directory . "/freedink")
2924 (upstream-name . "freedink")))
2925 (home-page "https://www.gnu.org/software/freedink/")
2926 (synopsis "Twisted adventures of young pig farmer Dink Smallwood")
2927 (description
2928 "GNU FreeDink is a free and portable re-implementation of the engine
2929 for the role-playing game Dink Smallwood. It supports not only the original
2930 game data files but it also supports user-produced game mods or \"D-Mods\".
2931 To that extent, it also includes a front-end for managing all of your D-Mods.")
2932 (license license:gpl3+)))
2933
2934 (define-public freedink-data
2935 (package
2936 (name "freedink-data")
2937 (version "1.08.20190120")
2938 (source (origin
2939 (method url-fetch)
2940 (uri (string-append "mirror://gnu/freedink/freedink-data-"
2941 version ".tar.gz"))
2942 (sha256
2943 (base32
2944 "17gvryadlxk172mblbsil7hina1z5wahwaxnr6g3mdq57dvl8pvi"))))
2945 (build-system gnu-build-system)
2946 (arguments
2947 `(#:phases
2948 (modify-phases %standard-phases
2949 (delete 'configure) ; no configure script
2950 (delete 'check)) ; no tests
2951 #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
2952 (properties '((ftp-directory . "/freedink")))
2953 (home-page "https://www.gnu.org/software/freedink/")
2954 (synopsis "Game data for GNU Freedink")
2955 (description
2956 "This package contains the game data of GNU Freedink.")
2957 (license license:gpl3+)))
2958
2959 (define-public freedink-dfarc
2960 (package
2961 (name "freedink-dfarc")
2962 (version "3.14")
2963 (source (origin
2964 (method url-fetch)
2965 (uri (string-append "mirror://gnu/freedink/dfarc-"
2966 version ".tar.gz"))
2967 (sha256
2968 (base32
2969 "1yp8n3w426xnlp10xk06vfi2y3k9xrcfyck7s7qs1v0ys7n284d5"))))
2970 (build-system gnu-build-system)
2971 (native-inputs
2972 `(("intltool" ,intltool)))
2973 (inputs
2974 `(("bzip2" ,bzip2)
2975 ("wxwidgets" ,wxwidgets)))
2976 (properties '((ftp-directory . "/freedink")
2977 (upstream-name . "dfarc")))
2978 (home-page "https://www.gnu.org/software/freedink/")
2979 (synopsis "Front-end for managing and playing Dink Modules")
2980 (description "DFArc makes it easy to play and manage the GNU FreeDink game
2981 and its numerous D-Mods.")
2982 (license license:gpl3+)))
2983
2984 (define-public freedink
2985 ;; This is a wrapper that tells the engine where to find the data.
2986 (package (inherit freedink-engine)
2987 (name "freedink")
2988 (build-system trivial-build-system)
2989 (arguments
2990 '(#:builder (begin
2991 (use-modules (guix build utils))
2992
2993 (let* ((output (assoc-ref %outputs "out"))
2994 (bin (string-append output "/bin"))
2995 (executable (string-append bin "/freedink")))
2996 (mkdir-p bin)
2997 (call-with-output-file executable
2998 (lambda (port)
2999 (format port "#!~a/bin/sh
3000 exec ~a/bin/freedink -refdir ~a/share/dink\n"
3001 (assoc-ref %build-inputs "bash")
3002 (assoc-ref %build-inputs "engine")
3003 (assoc-ref %build-inputs "data"))
3004 (chmod port #o777)))
3005 #t))
3006 #:modules ((guix build utils))))
3007 (inputs `(("engine" ,freedink-engine)
3008 ("data" ,freedink-data)
3009 ("bash" ,bash)))
3010 (native-inputs '())))
3011
3012 (define-public xboard
3013 (package
3014 (name "xboard")
3015 (version "4.9.1")
3016 (source
3017 (origin
3018 (method url-fetch)
3019 (uri (string-append "mirror://gnu/xboard/xboard-" version
3020 ".tar.gz"))
3021 (sha256
3022 (base32
3023 "1mkh36xnnacnz9r00b5f9ld9309k32jv6mcavklbdnca8bl56bib"))))
3024 (build-system gnu-build-system)
3025 (inputs
3026 `(("gtk+" ,gtk+-2)
3027 ("librsvg" ,librsvg)))
3028 (native-inputs
3029 `(("texinfo" ,texinfo)
3030 ("pkg-config" ,pkg-config)))
3031 (home-page "https://www.gnu.org/software/xboard/")
3032 (synopsis "Graphical user interface for chess programs")
3033 (description "GNU XBoard is a graphical board for all varieties of chess,
3034 including international chess, xiangqi (Chinese chess), shogi (Japanese chess)
3035 and Makruk. Several lesser-known variants are also supported. It presents a
3036 fully interactive graphical interface and it can load and save games in the
3037 Portable Game Notation.")
3038 (license license:gpl3+)))
3039
3040 (define-public gtypist
3041 (package
3042 (name "gtypist")
3043 (version "2.9.5")
3044 (source (origin
3045 (method url-fetch)
3046 (uri (string-append "mirror://gnu/gtypist/gtypist-"
3047 version ".tar.xz"))
3048 (sha256
3049 (base32
3050 "0xzrkkmj0b1dw3yr0m9hml2y634cc4h61im6zwcq57s7285z8fn1"))
3051 (modules '((guix build utils)))
3052 (snippet
3053 ;; We do not provide `ncurses.h' within an `ncursesw'
3054 ;; sub-directory, so patch the source accordingly. See
3055 ;; <http://bugs.gnu.org/19018>.
3056 '(begin
3057 (for-each (lambda (file)
3058 (substitute* file
3059 (("ncursesw/ncurses.h")
3060 "ncurses.h")))
3061 (find-files "." "configure$|\\.c$"))
3062 #t))))
3063 (build-system gnu-build-system)
3064 (inputs `(("ncurses" ,ncurses)
3065 ("perl" ,perl)))
3066 (home-page "https://www.gnu.org/software/gtypist/")
3067 (synopsis "Typing tutor")
3068 (description
3069 "GNU Typist is a universal typing tutor. It can be used to learn and
3070 practice touch-typing. Several tutorials are included; in addition to
3071 tutorials for the standard QWERTY layout, there are also tutorials for the
3072 alternative layouts Dvorak and Colemak, as well as for the numpad. Tutorials
3073 are primarily in English, however some in other languages are provided.")
3074 (license license:gpl3+)))
3075
3076 (define-public irrlicht
3077 (package
3078 (name "irrlicht")
3079 (version "1.8.4")
3080 (source (origin
3081 (method url-fetch)
3082 (uri (string-append
3083 "mirror://sourceforge/irrlicht/Irrlicht%20SDK/"
3084 (version-major+minor version)
3085 "/" version "/irrlicht-" version ".zip"))
3086 (sha256
3087 (base32
3088 "0cz4z4dwrv5ypl19ll67wl6jjpy5k6ly4vr042w4br88qq5jhazl"))
3089 (patches (search-patches "irrlicht-use-system-libs.patch"))
3090 (modules '((guix build utils)))
3091 (snippet
3092 '(begin
3093 (for-each delete-file-recursively
3094 '("bin" ; bundled compiled Windows binaries"
3095 "source/Irrlicht/MacOSX"
3096 "source/Irrlicht/bzip2"
3097 "source/Irrlicht/jpeglib"
3098 "source/Irrlicht/libpng"
3099 "source/Irrlicht/lzma"
3100 "source/Irrlicht/zlib"))
3101 (delete-file "source/Irrlicht/glext.h")
3102 (delete-file "source/Irrlicht/glxext.h")
3103 (delete-file "source/Irrlicht/wglext.h")
3104 #t))))
3105 (build-system gnu-build-system)
3106 (arguments
3107 `(#:phases
3108 (modify-phases %standard-phases
3109 (add-after 'unpack 'chdir-to-source
3110 (lambda _
3111 ;; The actual source is buried a few directories deep.
3112 (chdir "source/Irrlicht/")
3113 #t))
3114 (add-after 'chdir-to-source 'fix-build-env
3115 (lambda* (#:key outputs #:allow-other-keys)
3116 (let ((out (assoc-ref outputs "out")))
3117 (substitute* "Makefile"
3118 (("INSTALL_DIR = /usr/local/lib")
3119 (string-append "INSTALL_DIR = " out "/lib"))
3120 ;; Add '-fpermissive' to the CXXFLAGS
3121 (("-Wall") "-Wall -fpermissive")) ; CImageLoaderJPG.cpp
3122 ;; The Makefile assumes these directories exist.
3123 (mkdir-p (string-append out "/lib"))
3124 (mkdir-p (string-append out "/include")))))
3125 (delete 'configure)) ; no configure script
3126 #:tests? #f ; no check target
3127 #:make-flags '("CC=gcc" "sharedlib")))
3128 (inputs
3129 `(("bzip2" ,bzip2)
3130 ("libjpeg" ,libjpeg-turbo)
3131 ("libpng" ,libpng)
3132 ("libx11" ,libx11)
3133 ("libxxf86vm" ,libxxf86vm)
3134 ("mesa" ,mesa)))
3135 (synopsis "3D game engine written in C++")
3136 (description
3137 "The Irrlicht Engine is a high performance realtime 3D engine written in
3138 C++. Features include an OpenGL renderer, extensible materials, scene graph
3139 management, character animation, particle and other special effects, support
3140 for common mesh file formats, and collision detection.")
3141 (home-page "http://irrlicht.sourceforge.net/")
3142 (license license:zlib)))
3143
3144 (define-public mars
3145 ;; The latest release on SourceForge relies on an unreleased version of SFML
3146 ;; with a different API, so we take the latest version from the official
3147 ;; repository on Github.
3148 (let ((commit "c855d044094a1d92317e38935d81ba938946132e")
3149 (revision "1"))
3150 (package
3151 (name "mars")
3152 (version (string-append "0.7.5." revision "." (string-take commit 7) ))
3153 (source (origin
3154 (method git-fetch)
3155 (uri (git-reference
3156 (url "https://github.com/thelaui/M.A.R.S.")
3157 (commit commit)))
3158 (file-name (git-file-name name version))
3159 (sha256
3160 (base32
3161 "1r4c5gap1z2zsv4yjd34qriqkxaq4lb4rykapyzkkdf4g36lc3nh"))
3162 (patches (search-patches "mars-sfml-2.3.patch"
3163 "mars-install.patch"))))
3164 (build-system cmake-build-system)
3165 (arguments
3166 `(#:tests? #f ; There are no tests
3167 #:phases
3168 (modify-phases %standard-phases
3169 (add-after 'unpack 'fix-install-path
3170 (lambda _
3171 (substitute* "src/CMakeLists.txt"
3172 (("\\$\\{CMAKE_INSTALL_PREFIX\\}/games")
3173 "${CMAKE_INSTALL_PREFIX}/bin"))
3174 #t))
3175 (add-after 'unpack 'fix-data-path
3176 (lambda* (#:key outputs #:allow-other-keys)
3177 (substitute* "src/System/settings.cpp"
3178 (("C_dataPath = \"./data/\";")
3179 (string-append "C_dataPath = \""
3180 (assoc-ref outputs "out")
3181 "/share/games/marsshooter/\";")))
3182 #t)))))
3183 (inputs
3184 `(("mesa" ,mesa)
3185 ("fribidi" ,fribidi)
3186 ("taglib" ,taglib)
3187 ("sfml" ,sfml)))
3188 (home-page "http://mars-game.sourceforge.net/")
3189 (synopsis "2D space shooter")
3190 (description
3191 "M.A.R.S. is a 2D space shooter with pretty visual effects and
3192 attractive physics. Players can battle each other or computer controlled
3193 enemies in different game modes such as space ball, death match, team death
3194 match, cannon keep, and grave-itation pit.")
3195 (license license:gpl3+))))
3196
3197 (define-public minetest
3198 (package
3199 (name "minetest")
3200 (version "5.3.0")
3201 (source (origin
3202 (method git-fetch)
3203 (uri (git-reference
3204 (url "https://github.com/minetest/minetest")
3205 (commit version)))
3206 (file-name (git-file-name name version))
3207 (sha256
3208 (base32
3209 "03ga3j3cg38w4lg4d4qxasmnjdl8n3lbizidrinanvyfdyvznyh6"))
3210 (modules '((guix build utils)))
3211 (snippet
3212 '(begin
3213 ;; Delete bundled libraries.
3214 (delete-file-recursively "lib")
3215 #t))))
3216 (build-system cmake-build-system)
3217 (arguments
3218 '(#:configure-flags
3219 (list "-DRUN_IN_PLACE=0"
3220 "-DENABLE_FREETYPE=1"
3221 "-DENABLE_GETTEXT=1"
3222 "-DENABLE_SYSTEM_JSONCPP=TRUE"
3223 (string-append "-DIRRLICHT_INCLUDE_DIR="
3224 (assoc-ref %build-inputs "irrlicht")
3225 "/include/irrlicht")
3226 (string-append "-DCURL_INCLUDE_DIR="
3227 (assoc-ref %build-inputs "curl")
3228 "/include/curl"))
3229 #:tests? #f)) ;no check target
3230 (native-search-paths
3231 (list (search-path-specification
3232 (variable "MINETEST_SUBGAME_PATH")
3233 (files '("share/minetest/games")))))
3234 (native-inputs
3235 `(("pkg-config" ,pkg-config)))
3236 (inputs
3237 `(("curl" ,curl)
3238 ("freetype" ,freetype)
3239 ("gettext" ,gettext-minimal)
3240 ("gmp" ,gmp)
3241 ("irrlicht" ,irrlicht)
3242 ("jsoncpp" ,jsoncpp)
3243 ("libjpeg" ,libjpeg-turbo)
3244 ("libpng" ,libpng)
3245 ("libogg" ,libogg)
3246 ("libvorbis" ,libvorbis)
3247 ("libxxf86vm" ,libxxf86vm)
3248 ("luajit" ,luajit)
3249 ("mesa" ,mesa)
3250 ("ncurses" ,ncurses)
3251 ("openal" ,openal)
3252 ("sqlite" ,sqlite)))
3253 (propagated-inputs
3254 `(("minetest-data" ,minetest-data)))
3255 (synopsis "Infinite-world block sandbox game")
3256 (description
3257 "Minetest is a sandbox construction game. Players can create and destroy
3258 various types of blocks in a three-dimensional open world. This allows
3259 forming structures in every possible creation, on multiplayer servers or as a
3260 single player. Mods and texture packs allow players to personalize the game
3261 in different ways.")
3262 (home-page "https://www.minetest.net/")
3263 (license license:lgpl2.1+)))
3264
3265 (define minetest-data
3266 (package
3267 (name "minetest-data")
3268 (version (package-version minetest))
3269 (source (origin
3270 (method git-fetch)
3271 (uri (git-reference
3272 (url "https://github.com/minetest/minetest_game")
3273 (commit version)))
3274 (file-name (git-file-name name version))
3275 (sha256
3276 (base32
3277 "1liciwlh013z5h08ib0psjbwn5wkvlr937ir7kslfk4vly984cjx"))))
3278 (build-system trivial-build-system)
3279 (native-inputs
3280 `(("source" ,source)))
3281 (arguments
3282 `(#:modules ((guix build utils))
3283 #:builder (begin
3284 (use-modules (guix build utils))
3285 (let ((install-dir (string-append
3286 %output
3287 "/share/minetest/games/minetest_game")))
3288 (mkdir-p install-dir)
3289 (copy-recursively
3290 (assoc-ref %build-inputs "source")
3291 install-dir)
3292 #t))))
3293 (synopsis "Main game data for the Minetest game engine")
3294 (description
3295 "Game data for the Minetest infinite-world block sandbox game.")
3296 (home-page "https://www.minetest.net/")
3297 (license license:lgpl2.1+)))
3298
3299 (define-public minetest-mineclone
3300 (package
3301 (name "minetest-mineclone")
3302 (version "0.66.2")
3303 (source (origin
3304 (method git-fetch)
3305 (uri (git-reference
3306 (url "https://git.minetest.land/Wuzzy/MineClone2")
3307 (commit version)))
3308 (file-name (git-file-name name version))
3309 (sha256
3310 (base32
3311 "0miszzlzplpvaj0j1yii9867ydr42wsaqa9g6grxdrci75p05g00"))))
3312 (build-system copy-build-system)
3313 (arguments
3314 `(#:install-plan
3315 '(("." "share/minetest/games/mineclone"))))
3316 (synopsis "Minecraft clone based on Minetest engine")
3317 (description
3318 "MineClone is a Minetest subgame, that aims to recreate Minecraft as
3319 closely as the engine allows.")
3320 (home-page "https://content.minetest.net/packages/Wuzzy/mineclone2/")
3321 (license license:gpl3+)))
3322
3323 (define glkterm
3324 (package
3325 (name "glkterm")
3326 (version "1.0.4")
3327 (source
3328 (origin
3329 (method url-fetch)
3330 (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
3331 "glk/implementations/glkterm-104.tar.gz"))
3332 (sha256
3333 (base32
3334 "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7"))))
3335 (build-system gnu-build-system)
3336 (propagated-inputs `(("ncurses" ,ncurses))) ; required by Make.glkterm
3337 (arguments
3338 '(#:tests? #f ; no check target
3339 #:phases
3340 (modify-phases %standard-phases
3341 (replace 'install
3342 (lambda* (#:key outputs #:allow-other-keys)
3343 (let* ((out (assoc-ref outputs "out"))
3344 (inc (string-append out "/include"))
3345 (lib (string-append out "/lib")))
3346 (for-each
3347 (lambda (file)
3348 (install-file file inc))
3349 '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
3350 (install-file "libglkterm.a" lib))
3351 #t))
3352 (delete 'configure)))) ; no configure script
3353 (home-page "http://www.eblong.com/zarf/glk/")
3354 (synopsis "Curses Implementation of the Glk API")
3355 (description
3356 "Glk defines a portable API for applications with text UIs. It was
3357 primarily designed for interactive fiction, but it should be suitable for many
3358 interactive text utilities, particularly those based on a command line.
3359 This is an implementation of the Glk library which runs in a terminal window,
3360 using the @code{curses.h} library for screen control.")
3361 (license (license:fsf-free "file://README"))))
3362
3363 (define-public glulxe
3364 (package
3365 (name "glulxe")
3366 (version "0.5.4")
3367 (source
3368 (origin
3369 (method url-fetch)
3370 (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
3371 "glulx/interpreters/glulxe/glulxe-054.tar.gz"))
3372 (sha256
3373 (base32
3374 "0vipydg6ra90yf9b3ipgppwxyb2xdhcxwvirgjy0v20wlf56zhhz"))))
3375 (build-system gnu-build-system)
3376 (inputs `(("glk" ,glkterm)))
3377 (arguments
3378 '(#:tests? #f ; no check target
3379 #:make-flags
3380 (let* ((glk (assoc-ref %build-inputs "glk")))
3381 (list (string-append "GLKINCLUDEDIR=" glk "/include")
3382 (string-append "GLKLIBDIR=" glk "/lib")
3383 (string-append "GLKMAKEFILE=" "Make.glkterm")))
3384 #:phases
3385 (modify-phases %standard-phases
3386 (replace 'install
3387 (lambda* (#:key outputs #:allow-other-keys)
3388 (let* ((out (assoc-ref outputs "out"))
3389 (bin (string-append out "/bin")))
3390 (install-file "glulxe" bin))
3391 #t))
3392 (delete 'configure)))) ; no configure script
3393 (home-page "https://www.eblong.com/zarf/glulx/")
3394 (synopsis "Interpreter for Glulx VM")
3395 (description
3396 "Glulx is a 32-bit portable virtual machine intended for writing and
3397 playing interactive fiction. It was designed by Andrew Plotkin to relieve
3398 some of the restrictions in the venerable Z-machine format. This is the
3399 reference interpreter, using the Glk API.")
3400 (license license:expat)))
3401
3402 (define-public fifechan
3403 (package
3404 (name "fifechan")
3405 (version "0.1.5")
3406 (source (origin
3407 (method url-fetch)
3408 (uri (string-append "https://codeload.github.com/fifengine/"
3409 "fifechan/tar.gz/" version))
3410 (file-name (string-append name "-" version ".tar.gz"))
3411 (sha256
3412 (base32
3413 "0wxs9vz5x9y8chghd8vp7vfk089lfb0qnzggi17zrqkrngs5zgi9"))))
3414 (build-system cmake-build-system)
3415 (inputs
3416 `(("sdl2" ,sdl2)
3417 ("sdl2-image" ,sdl2-image)
3418 ("mesa" ,mesa)))
3419 (arguments
3420 '(#:tests? #f)) ; No included tests
3421 (home-page "https://fifengine.github.io/fifechan/")
3422 (synopsis "Cross platform GUI library specifically for games")
3423 (description
3424 "Fifechan is a lightweight cross platform GUI library written in C++
3425 specifically designed for games. It has a built in set of extendable GUI
3426 Widgets, and allows users to create more.")
3427 (license license:lgpl2.1+)))
3428
3429 (define-public fifengine
3430 (package
3431 (name "fifengine")
3432 (version "0.4.2")
3433 (source (origin
3434 (method url-fetch)
3435 (uri (string-append "https://codeload.github.com/fifengine/"
3436 "fifengine/tar.gz/" version))
3437 (file-name (string-append name "-" version ".tar.gz"))
3438 (patches (search-patches "fifengine-swig-compat.patch"))
3439 (sha256
3440 (base32
3441 "1y4grw25cq5iqlg05rnbyxw1njl11ypidnlsm3qy4sm3xxdvb0p8"))))
3442 (build-system cmake-build-system)
3443 (arguments
3444 `(#:tests? #f ; TODO The test running fails to run some tests.
3445 #:modules ((srfi srfi-1)
3446 (guix build cmake-build-system)
3447 (guix build utils))
3448 #:configure-flags
3449 (list
3450 (string-append "-DOPENALSOFT_INCLUDE_DIR="
3451 (assoc-ref %build-inputs "openal")
3452 "/include/AL")
3453 (string-append "-DPYTHON_SITE_PACKAGES="
3454 (assoc-ref %outputs "out")
3455 "/lib/python"
3456 ,(version-major+minor (package-version python))
3457 "/site-packages"))
3458 #:phases
3459 (modify-phases %standard-phases
3460 (add-after 'unpack 'patch-run_tests.py
3461 (lambda _
3462 ;; Patch the test runner to exit with a status of 1 if any test
3463 ;; fails, to allow detecting failures.
3464 (substitute* "run_tests.py"
3465 (("ERROR\\. One or more tests failed!'\\)")
3466 "ERROR. One or more tests failed!')
3467 \t\texit(1)"))
3468 #t))
3469 ;; Run tests after installation so that we can make use of the built
3470 ;; python modules.
3471 (delete 'check)
3472 (add-after 'install 'check
3473 (lambda* (#:key inputs outputs tests? #:allow-other-keys)
3474 (define python-version
3475 (let* ((version (last (string-split
3476 (assoc-ref inputs "python")
3477 #\-)))
3478 (components (string-split version #\.))
3479 (major+minor (take components 2)))
3480 (string-join major+minor ".")))
3481
3482 (when tests?
3483 ;; Set PYTHONPATH so that python finds the installed modules.
3484 (setenv "PYTHONPATH"
3485 (string-append (getenv "PYTHONPATH") ":"
3486 (assoc-ref outputs "out")
3487 "/lib/python"
3488 python-version
3489 "/site-packages"))
3490 ;; The tests require an X server.
3491 (system "Xvfb :1 &")
3492 (setenv "DISPLAY" ":1")
3493 (setenv "XDG_RUNTIME_DIR" "/tmp")
3494 ;; Run tests
3495 (chdir ,(string-append "../" name "-" version))
3496 (invoke "python3" "run_tests.py" "-a"))
3497 #t)))))
3498 (inputs
3499 `(("sdl2" ,sdl2)
3500 ("sdl2-image" ,sdl2-image)
3501 ("sdl2-ttf" ,sdl2-ttf)
3502 ("tinyxml" ,tinyxml)
3503 ("openal" ,openal)
3504 ("libogg" ,libogg)
3505 ("glew" ,glew)
3506 ("libvorbis" ,libvorbis)
3507 ("boost" ,boost)
3508 ("fifechan" ,fifechan)
3509 ("swig" ,swig)
3510 ("python" ,python)))
3511 (native-inputs
3512 `(("python" ,python)
3513 ("swig" ,swig)
3514 ("xvfb" ,xorg-server)))
3515 (propagated-inputs
3516 `(("python-future" ,python-future)))
3517 (home-page "https://www.fifengine.net/")
3518 (synopsis "FIFE is a multi-platform isometric game engine written in C++")
3519 (description
3520 "@acronym{FIFE, Flexible Isometric Free Engine} is a multi-platform
3521 isometric game engine. Python bindings are included allowing users to create
3522 games using Python as well as C++.")
3523 (license license:lgpl2.1+)))
3524
3525 (define-public fizmo
3526 (package
3527 (name "fizmo")
3528 (version "0.8.5")
3529 (source (origin
3530 (method url-fetch)
3531 (uri (string-append "https://fizmo.spellbreaker.org/source/"
3532 "fizmo-" version ".tar.gz"))
3533 (sha256
3534 (base32
3535 "1amyc4n41jf08kxmdgkk30bzzx54miaxa97w28f417qwn8lrl98w"))))
3536 (build-system gnu-build-system)
3537 (arguments
3538 '(#:configure-flags
3539 (let ((libjpeg (assoc-ref %build-inputs "libjpeg"))
3540 (ncurses (assoc-ref %build-inputs "ncurses")))
3541 (list (string-append "--with-jpeg-includedir=" libjpeg "/include")))))
3542 (native-inputs
3543 `(("pkg-config" ,pkg-config)))
3544 (inputs
3545 `(("freetype" ,freetype)
3546 ("libjpeg" ,libjpeg-turbo)
3547 ("libpng" ,libpng)
3548 ("libsndfile" ,libsndfile)
3549 ("libxml2" ,libxml2)
3550 ("ncurses" ,ncurses)
3551 ("sdl2" ,sdl2)))
3552 (home-page "https://fizmo.spellbreaker.org/")
3553 (synopsis "Z-machine interpreter")
3554 (description
3555 "Fizmo is a console-based Z-machine interpreter. It is used to play
3556 interactive fiction, also known as text adventures, which were implemented
3557 either by Infocom or created using the Inform compiler.")
3558 (license license:bsd-3)))
3559
3560 (define-public gnugo
3561 (package
3562 (name "gnugo")
3563 (version "3.8")
3564 (source (origin
3565 (method url-fetch)
3566 (uri (string-append "mirror://gnu/gnugo/gnugo-" version
3567 ".tar.gz"))
3568 (sha256
3569 (base32
3570 "0wkahvqpzq6lzl5r49a4sd4p52frdmphnqsfdv7gdp24bykdfs6s"))))
3571 (build-system gnu-build-system)
3572 (inputs `(("readline" ,readline)))
3573 (synopsis "Play the game of Go")
3574 (description
3575 "GNU Go is a program that plays the game of Go, in which players
3576 place stones on a grid to form territory or capture other stones. While
3577 it can be played directly from the terminal, rendered in ASCII characters,
3578 it is also possible to play GNU Go with 3rd party graphical interfaces or
3579 even in Emacs. It supports the standard game storage format (SGF, Smart
3580 Game Format) and inter-process communication format (GMP, Go Modem
3581 Protocol).")
3582 (home-page "https://www.gnu.org/software/gnugo/")
3583 (license license:gpl3+)))
3584
3585 (define-public extremetuxracer
3586 (package
3587 (name "extremetuxracer")
3588 (version "0.8.0")
3589 (source (origin
3590 (method url-fetch)
3591 (uri (string-append
3592 "mirror://sourceforge/extremetuxracer/releases/"
3593 version "/etr-" version ".tar.xz"))
3594 (sha256
3595 (base32
3596 "05ysaxvsgps9fxc421kdifsxmc1sn6n79cjaa0k0i3fs9qqrja2b"))))
3597 (build-system gnu-build-system)
3598 (native-inputs
3599 `(("pkg-config" ,pkg-config)))
3600 (inputs
3601 `(("glu" ,glu)
3602 ("sfml" ,sfml)))
3603 (synopsis "High-speed arctic racing game based on Tux Racer")
3604 ;; Snarfed straight from Debian.
3605 (description "Extreme Tux Racer, or etracer as it is called for short, is
3606 a simple OpenGL racing game featuring Tux, the Linux mascot. The goal of the
3607 game is to slide down a snow- and ice-covered mountain as quickly as possible,
3608 avoiding the trees and rocks that will slow you down.
3609
3610 Collect herrings and other goodies while sliding down the hill, but avoid fish
3611 bones.
3612
3613 This game is based on the GPL version of the famous game TuxRacer.")
3614 (home-page "https://sourceforge.net/projects/extremetuxracer/")
3615 (license license:gpl2+)))
3616
3617 (define-public supertuxkart
3618 (package
3619 (name "supertuxkart")
3620 (version "1.2")
3621 (source
3622 (origin
3623 (method url-fetch)
3624 (uri (string-append "mirror://sourceforge/supertuxkart/SuperTuxKart/"
3625 version "/SuperTuxKart-" version "-src.tar.xz"))
3626 (sha256
3627 (base32
3628 "0dvx56hmy6wdhl7m9dw8zc1n3jqfp05gnxl6zs1rbfdyzl5dybh5"))
3629 (modules '((guix build utils)))
3630 (snippet
3631 ;; Delete bundled library sources
3632 '(begin
3633 ;; Supertuxkart uses modified versions of the Irrlicht engine
3634 ;; and the bullet library. The developers gave an explanation
3635 ;; here: http://forum.freegamedev.net/viewtopic.php?f=17&t=3906
3636 ;; FIXME: try to unbundle angelscript, libmcpp and libraqm
3637 (for-each delete-file-recursively
3638 '("lib/glew"
3639 "lib/wiiuse"
3640 "lib/enet"))
3641 #t))))
3642 (build-system cmake-build-system)
3643 (arguments
3644 `(#:tests? #f ; no check target
3645 #:configure-flags
3646 (list "-DUSE_WIIUSE=0"
3647 "-DUSE_SYSTEM_GLEW=TRUE"
3648 "-DUSE_SYSTEM_ENET=TRUE"
3649 ;; In order to use the system ENet library, IPv6 support (added in
3650 ;; SuperTuxKart version 1.1) must be disabled.
3651 "-DUSE_IPV6=FALSE"
3652 ;; FIXME: needs libopenglrecorder
3653 "-DBUILD_RECORDER=0")))
3654 (inputs
3655 `(("curl" ,curl)
3656 ("freetype" ,freetype)
3657 ("fribidi" ,fribidi)
3658 ("glew" ,glew)
3659 ("harfbuzz" ,harfbuzz)
3660 ("libvorbis" ,libvorbis)
3661 ("libx11" ,libx11)
3662 ("libxrandr" ,libxrandr)
3663 ("mesa" ,mesa)
3664 ("openal" ,openal)
3665 ("sdl2" ,sdl2)
3666 ("zlib" ,zlib)
3667 ;; The following input is needed to build the bundled and modified
3668 ;; version of irrlicht.
3669 ("enet" ,enet)
3670 ("libjpeg" ,libjpeg-turbo)
3671 ("openssl" ,openssl)))
3672 (native-inputs
3673 `(("pkg-config" ,pkg-config)))
3674 (home-page "https://supertuxkart.net/Main_Page")
3675 (synopsis "3D kart racing game")
3676 (description "SuperTuxKart is a 3D kart racing game, with a focus on
3677 having fun over realism. You can play with up to 4 friends on one PC, racing
3678 against each other or just trying to beat the computer; single-player mode is
3679 also available.")
3680 (license license:gpl3+)))
3681
3682 (define-public unknown-horizons
3683 (package
3684 (name "unknown-horizons")
3685 (version "2019.1")
3686 (source (origin
3687 (method url-fetch)
3688 (uri (string-append "https://codeload.github.com/unknown-horizons/"
3689 "unknown-horizons/tar.gz/" version))
3690 (file-name (string-append name "-" version ".tar.gz"))
3691 (sha256
3692 (base32
3693 "1n747p7h0qp48szgp262swg0xh8kxy1bw8ag1qczs4i26hyzs5x4"))
3694 (patches (search-patches "unknown-horizons-python-3.8-distro.patch"))))
3695 (build-system python-build-system)
3696 (arguments
3697 '(#:phases
3698 (modify-phases %standard-phases
3699 (add-before 'build 'set-HOME
3700 (lambda _
3701 (setenv "HOME" "/tmp")
3702 #t))
3703 (add-after 'build 'build-extra
3704 (lambda _
3705 (invoke "python3" "./setup.py" "build_i18n")
3706 (invoke "python3" "horizons/engine/generate_atlases.py" "2048")
3707 #t))
3708 (add-after 'install 'patch
3709 (lambda* (#:key outputs #:allow-other-keys)
3710 (let ((out (assoc-ref outputs "out")))
3711 (substitute* (string-append out "/bin/unknown-horizons")
3712 (("os\\.chdir\\(get\\_content\\_dir\\_parent_path\\(\\)\\)")
3713 (string-append "os.chdir(\""
3714 (assoc-ref outputs "out")
3715 "/share/unknown-horizons\")"))))
3716 #t))
3717 (add-before 'check 'fix-tests-with-pytest>=4
3718 (lambda _
3719 (substitute* "tests/conftest.py"
3720 (("pytest_namespace")
3721 "pytest_configure")
3722 (("get_marker")
3723 "get_closest_marker"))
3724 #t))
3725 ;; TODO: Run GUI tests as well
3726 (replace 'check
3727 (lambda _
3728 (substitute* "horizons/constants.py"
3729 (("IS_DEV_VERSION = False")
3730 "IS_DEV_VERSION = True"))
3731 (invoke "pytest" "tests")
3732 (substitute* "horizons/constants.py"
3733 (("IS_DEV_VERSION = True")
3734 "IS_DEV_VERSION = False"))
3735 #t)))))
3736 (inputs
3737 `(("fifengine" ,fifengine)
3738 ("python:tk" ,python "tk")
3739 ("python-pillow" ,python-pillow)
3740 ("python-pyyaml" ,python-pyyaml)))
3741 (native-inputs
3742 `(("intltool" ,intltool)
3743 ("python-distro" ,python-distro)
3744
3745 ;; Required for tests
3746 ("python-greenlet" ,python-greenlet)
3747 ("python-polib" ,python-polib)
3748 ("python-pytest" ,python-pytest)
3749 ("python-pytest-mock" ,python-pytest-mock)))
3750 (home-page "http://unknown-horizons.org/")
3751 (synopsis "Isometric realtime strategy, economy and city building simulation")
3752 (description
3753 "Unknown Horizons is a 2D realtime strategy simulation with an emphasis
3754 on economy and city building. Expand your small settlement to a strong and
3755 wealthy colony, collect taxes and supply your inhabitants with valuable
3756 goods. Increase your power with a well balanced economy and with strategic
3757 trade and diplomacy.")
3758 (license (list
3759 license:gpl2+ ; Covers code
3760 license:expat ; tests/dummy.py, ext/polib.py
3761 license:cc-by-sa3.0 ; Covers some media content
3762 license:cc-by3.0 ; Covers some media content
3763 license:bsd-3)))) ; horizons/ext/speaklater.py
3764
3765 (define-public gnujump
3766 (package
3767 (name "gnujump")
3768 (version "1.0.8")
3769 (source (origin
3770 (method url-fetch)
3771 (uri (string-append "mirror://gnu/gnujump/gnujump-"
3772 version ".tar.gz"))
3773 (sha256
3774 (base32
3775 "05syy9mzbyqcfnm0hrswlmhwlwx54f0l6zhcaq8c1c0f8dgzxhqk"))))
3776 (build-system gnu-build-system)
3777 (arguments
3778 '(#:phases
3779 (modify-phases %standard-phases
3780 (add-before
3781 'configure 'link-libm
3782 (lambda _ (setenv "LIBS" "-lm")))
3783 (add-after 'install 'create-desktop-entry
3784 (lambda* (#:key outputs #:allow-other-keys)
3785 (let* ((out (assoc-ref outputs "out"))
3786 (apps (string-append out "/share/applications")))
3787 (mkdir-p apps)
3788 (with-output-to-file
3789 (string-append apps "/gnujump.desktop")
3790 (lambda _
3791 (format #t
3792 "[Desktop Entry]~@
3793 Name=GNUjump~@
3794 Comment=Jump up the tower to survive~@
3795 Exec=~a/bin/gnujump~@
3796 Terminal=false~@
3797 Type=Application~@
3798 Categories=Game;ArcadeGame~%"
3799 out)))))))))
3800 (inputs
3801 `(("glu" ,glu)
3802 ("mesa" ,mesa)
3803 ("sdl" ,sdl)
3804 ("sdl-image" ,sdl-image)
3805 ("sdl-mixer" ,sdl-mixer)))
3806 (home-page "http://gnujump.es.gnu.org/")
3807 (synopsis
3808 "Game of jumping to the next floor, trying not to fall")
3809 (description
3810 "GNUjump is a simple, yet addictive game in which you must jump from
3811 platform to platform to avoid falling, while the platforms drop at faster rates
3812 the higher you go. The game features multiplayer, unlimited FPS, smooth floor
3813 falling, themeable graphics and sounds, and replays.")
3814 (license license:gpl3+)))
3815
3816 (define-public wesnoth
3817 (package
3818 (name "wesnoth")
3819 (version "1.14.14")
3820 (source (origin
3821 (method url-fetch)
3822 (uri (string-append "mirror://sourceforge/wesnoth/wesnoth-"
3823 (version-major+minor version)
3824 "/wesnoth-" version "/"
3825 "wesnoth-" version ".tar.bz2"))
3826 (sha256
3827 (base32
3828 "1l7mdxn4kw938qz824057rqh99b7y9439a54s64n1xz95w77lp0r"))))
3829 (build-system cmake-build-system)
3830 (arguments
3831 `(#:tests? #f)) ;no check target
3832 (native-inputs
3833 `(("gettext" ,gettext-minimal)
3834 ("pkg-config" ,pkg-config)))
3835 (inputs
3836 `(("boost" ,boost)
3837 ("dbus" ,dbus)
3838 ("fribidi" ,fribidi)
3839 ("libvorbis" ,libvorbis)
3840 ("openssl" ,openssl)
3841 ("pango" ,pango)
3842 ("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
3843 (home-page "https://www.wesnoth.org/")
3844 (synopsis "Turn-based strategy game")
3845 (description
3846 "The Battle for Wesnoth is a fantasy, turn based tactical strategy game,
3847 with several single player campaigns, and multiplayer games (both networked and
3848 local).
3849
3850 Battle for control on a range of maps, using variety of units which have
3851 advantages and disadvantages against different types of attacks. Units gain
3852 experience and advance levels, and are carried over from one scenario to the
3853 next campaign.")
3854 (license license:gpl2+)))
3855
3856 (define-public wesnoth-server
3857 (package
3858 (inherit wesnoth)
3859 (name "wesnoth-server")
3860 (inputs
3861 `(("boost" ,boost)
3862 ("icu4c" ,icu4c)
3863 ("openssl" ,openssl)
3864 ("sdl2" ,sdl2)))
3865 (arguments
3866 `(#:configure-flags '("-DENABLE_GAME=OFF")
3867 ,@(package-arguments wesnoth)))
3868 (synopsis "Dedicated @emph{Battle for Wesnoth} server")
3869 (description "This package contains a dedicated server for @emph{The
3870 Battle for Wesnoth}.")))
3871
3872 (define-public gamine
3873 (package
3874 (name "gamine")
3875 (version "1.6")
3876 (source (origin
3877 (method url-fetch)
3878 (uri (string-append "mirror://sourceforge/gamine-game/"
3879 "gamine-" version ".tar.gz"))
3880 (sha256
3881 (base32
3882 "1sc6f4445ciigd6yw0ri92746k4hk6ps0bvj9fm1gbp3c3fslk5n"))))
3883 (build-system gnu-build-system)
3884 (native-inputs
3885 `(("pkg-config" ,pkg-config)
3886 ("intltool" ,intltool)))
3887 (inputs
3888 `(("gstreamer" ,gstreamer)
3889 ("gst-plugins-base" ,gst-plugins-base) ; playbin plugin
3890 ("gst-plugins-good" ,gst-plugins-good) ; for wav playback
3891 ("gtk+" ,gtk+)))
3892 (arguments
3893 `(#:tests? #f
3894 #:make-flags
3895 (let ((out (assoc-ref %outputs "out")))
3896 (list (string-append "PREFIX=" out)
3897 (string-append "SYSCONFDIR=" out "/etc")))
3898 #:phases
3899 (modify-phases %standard-phases
3900 (delete 'configure)
3901 (add-after
3902 'install 'wrap-gamine
3903 (lambda* (#:key outputs #:allow-other-keys)
3904 (let ((out (assoc-ref outputs "out"))
3905 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
3906 (wrap-program (string-append out "/bin/gamine")
3907 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
3908 #t)))))
3909 (home-page "http://gamine-game.sourceforge.net/")
3910 (synopsis "Mouse and keyboard discovery for children")
3911 (description
3912 "Gamine is a game designed for young children who are learning to use the
3913 mouse and keyboard. The child uses the mouse to draw colored dots and lines
3914 on the screen and keyboard to display letters.")
3915 ;; Most files under gpl2+ or gpl3+, but eat.wav under gpl3
3916 (license license:gpl3)))
3917
3918 (define-public manaplus
3919 (package
3920 (name "manaplus")
3921 (version "1.9.3.23")
3922 (source (origin
3923 (method url-fetch)
3924 (uri (string-append
3925 "https://repo.manaplus.org/manaplus/download/"
3926 version "/manaplus-" version ".tar.xz"))
3927 (sha256
3928 (base32
3929 "1ky182p4svwdqm6cf7jbns85hidkhkhq4s17cs2p381f0klapfjz"))))
3930 (build-system gnu-build-system)
3931 (arguments
3932 '(#:configure-flags
3933 (list (string-append "CPPFLAGS=-I"
3934 (assoc-ref %build-inputs "sdl-union")
3935 "/include/SDL"))))
3936 (native-inputs
3937 `(("pkg-config" ,pkg-config)))
3938 (inputs
3939 `(("glu" ,glu)
3940 ("curl" ,curl)
3941 ("libxml2" ,libxml2)
3942 ("mesa" ,mesa)
3943 ("sdl-union" ,(sdl-union))))
3944 (home-page "https://manaplus.org")
3945 (synopsis "Client for 'The Mana World' and similar games")
3946 (description
3947 "ManaPlus is a 2D MMORPG client for game servers. It is the only
3948 fully supported client for @uref{http://www.themanaworld.org, The mana
3949 world}, @uref{http://evolonline.org, Evol Online} and
3950 @uref{http://landoffire.org, Land of fire}.")
3951 ;; "src/debug/*" and "src/sdl2gfx/*" are under Zlib.
3952 ;; "data/themes/{golden-delicious,jewelry}/*" are under CC-BY-SA.
3953 ;; The rest is under GPL2+.
3954 (license (list license:gpl2+ license:zlib license:cc-by-sa4.0))))
3955
3956 (define openttd-engine
3957 (package
3958 (name "openttd-engine")
3959 (version "1.10.0")
3960 (source
3961 (origin (method url-fetch)
3962 (uri (string-append "https://cdn.openttd.org/openttd-releases/"
3963 version "/openttd-" version "-source.tar.xz"))
3964 (sha256
3965 (base32
3966 "0lz2y2rjc23k0d97y65cqhy2splw9cmrbvhgz0iqps8xkan1m8hv"))))
3967 (build-system gnu-build-system)
3968 (arguments
3969 `(#:tests? #f ; no "check" target
3970 #:phases
3971 (modify-phases %standard-phases
3972 ;; The build process fails if the configure script is passed the
3973 ;; option "--enable-fast-install".
3974 (replace 'configure
3975 (lambda* (#:key inputs outputs (configure-flags '())
3976 #:allow-other-keys)
3977 (let ((out (assoc-ref outputs "out"))
3978 (lzo (assoc-ref inputs "lzo")))
3979 (apply invoke "./configure"
3980 (string-append "--prefix=" out)
3981 ;; Provide the "lzo" path.
3982 (string-append "--with-liblzo2="
3983 lzo "/lib/liblzo2.a")
3984 ;; Put the binary in 'bin' instead of 'games'.
3985 "--binary-dir=bin"
3986 configure-flags)))))))
3987 (native-inputs `(("pkg-config" ,pkg-config)))
3988 (inputs
3989 `(("allegro" ,allegro)
3990 ("fontconfig" ,fontconfig)
3991 ("freetype" ,freetype)
3992 ("icu4c" ,icu4c)
3993 ("libpng" ,libpng)
3994 ("lzo" ,lzo)
3995 ("sdl" ,sdl)
3996 ("xz" ,xz)
3997 ("zlib" ,zlib)))
3998 (synopsis "Transportation economics simulator game")
3999 (description "OpenTTD is a game in which you transport goods and
4000 passengers by land, water and air. It is a re-implementation of Transport
4001 Tycoon Deluxe with many enhancements including multiplayer mode,
4002 internationalization support, conditional orders and the ability to clone,
4003 autoreplace and autoupdate vehicles. This package only includes the game
4004 engine. When you start it you will be prompted to download a graphics set.")
4005 (home-page "https://www.openttd.org/")
4006 ;; This package is GPLv2, except for a few files located in
4007 ;; "src/3rdparty/" which are under the 3-clause BSD, LGPLv2.1+ and Zlib
4008 ;; licenses. In addition, this software contains an in-game downloader
4009 ;; from which the user may find non-functional data licensed under
4010 ;; different terms.
4011 (license (list license:bsd-3 license:gpl2 license:lgpl2.1+ license:zlib))))
4012
4013 (define openttd-opengfx
4014 (package
4015 (name "openttd-opengfx")
4016 (version "0.6.0")
4017 (source
4018 (origin
4019 (method url-fetch)
4020 (uri (string-append "https://cdn.openttd.org/opengfx-releases/"
4021 version "/opengfx-" version "-source.tar.xz"))
4022 (sha256
4023 (base32
4024 "0qxc6gl2gxcrn1np88dnjgbaaakkkx96b13rcmy1spryc8c09hyr"))))
4025 (build-system gnu-build-system)
4026 (arguments
4027 '(#:make-flags (list "CC=gcc"
4028 (string-append "INSTALL_DIR="
4029 (assoc-ref %outputs "out")
4030 "/share/games/openttd/baseset/opengfx"))
4031 #:phases
4032 (modify-phases %standard-phases
4033 (replace 'configure
4034 (lambda _
4035 ;; Make sure HOME is writable for GIMP.
4036 (setenv "HOME" (getcwd))
4037
4038 ;; Redirect stdout, not stderr, to /dev/null. This prevents
4039 ;; dos2unix from receiving its version information as a flag.
4040 (substitute* "Makefile"
4041 (("\\$\\(UNIX2DOS\\) -q --version 2>/dev/null")
4042 "$(UNIX2DOS) -q --version 1>/dev/null")))))
4043 ;; The check phase for this package only checks the md5sums of the built
4044 ;; GRF files against the md5sums of the release versions. Because we use
4045 ;; different software versions than upstream does, some of the md5sums
4046 ;; are different. However, the package is still reproducible, it's safe
4047 ;; to disable this test.
4048 #:tests? #f
4049 #:parallel-build? #f))
4050 (native-inputs `(("dos2unix" ,dos2unix)
4051 ("gimp" ,gimp)
4052 ("grfcodec" ,grfcodec)
4053 ("nml" ,nml)
4054 ("which" ,which)
4055 ("python" ,python-2)))
4056 (home-page "http://dev.openttdcoop.org/projects/opengfx")
4057 (synopsis "Base graphics set for OpenTTD")
4058 (description
4059 "The OpenGFX project is an implementation of the OpenTTD base graphics
4060 set that aims to ensure the best possible out-of-the-box experience.
4061
4062 OpenGFX provides you with...
4063 @enumerate
4064 @item All graphics you need to enjoy OpenTTD.
4065 @item Uniquely drawn rail vehicles for every climate.
4066 @item Completely snow-aware rivers.
4067 @item Different river and sea water.
4068 @item Snow-aware buoys.
4069 @end enumerate")
4070 (license license:gpl2)))
4071
4072 (define openttd-opensfx
4073 (package
4074 (name "openttd-opensfx")
4075 (version "0.2.3")
4076 (source
4077 (origin
4078 (method url-fetch)
4079 (uri (string-append
4080 "https://binaries.openttd.org/extra/opensfx/"
4081 version "/opensfx-" version "-source.tar.gz"))
4082 (sha256
4083 (base32
4084 "03jxgp02ks31hmsdh4xh0xcpkb70ds8jakc9pfc1y9vdrdavh4p5"))))
4085 (build-system gnu-build-system)
4086 (native-inputs
4087 `(("catcodec" ,catcodec)
4088 ("python" ,python-2)))
4089 (arguments
4090 `(#:make-flags
4091 (list (string-append "INSTALL_DIR=" %output
4092 "/share/games/openttd/baseset/opensfx"))
4093 #:phases
4094 (modify-phases %standard-phases
4095 (add-after 'unpack 'make-reproducible
4096 (lambda _
4097 ;; Remove the time dependency of the installed tarball by setting
4098 ;; the modification times if its members to 0.
4099 (substitute* "scripts/Makefile.def"
4100 (("-cf") " --mtime=@0 -cf"))
4101 #t))
4102 (delete 'configure))))
4103 (home-page "http://dev.openttdcoop.org/projects/opensfx")
4104 (synopsis "Base sounds for OpenTTD")
4105 (description "OpenSFX is a set of free base sounds for OpenTTD which make
4106 it possible to play OpenTTD without requiring the proprietary sound files from
4107 the original Transport Tycoon Deluxe.")
4108 (license license:cc-sampling-plus-1.0)))
4109
4110 (define openttd-openmsx
4111 (package
4112 (name "openttd-openmsx")
4113 (version "0.3.1")
4114 (source
4115 (origin
4116 (method url-fetch)
4117 (uri (string-append
4118 "https://binaries.openttd.org/extra/openmsx/"
4119 version "/openmsx-" version "-source.tar.gz"))
4120 (sha256
4121 (base32
4122 "0nskq97a6fsv1v6d62zf3yb8whzhqnlh3lap3va3nzvj7csjgf7c"))))
4123 (build-system gnu-build-system)
4124 (native-inputs
4125 `(("python" ,python-2)))
4126 (arguments
4127 `(#:make-flags
4128 (list (string-append "INSTALL_DIR=" %output
4129 "/share/games/openttd/baseset"))
4130 #:phases
4131 (modify-phases %standard-phases
4132 (delete 'configure)
4133 (add-after 'install 'post-install
4134 ;; Rename openmsx-version to openmsx
4135 (lambda* (#:key outputs #:allow-other-keys)
4136 (let ((install-directory (string-append (assoc-ref outputs "out")
4137 "/share/games/openttd/baseset")))
4138 (rename-file (string-append install-directory "/openmsx-" ,version)
4139 (string-append install-directory "/openmsx"))
4140 #t))))))
4141 (home-page "http://dev.openttdcoop.org/projects/openmsx")
4142 (synopsis "Music set for OpenTTD")
4143 (description "OpenMSX is a music set for OpenTTD which makes it possible
4144 to play OpenTTD without requiring the proprietary music from the original
4145 Transport Tycoon Deluxe.")
4146 (license license:gpl2)))
4147
4148 (define-public openttd
4149 (package
4150 (inherit openttd-engine)
4151 (name "openttd")
4152 (arguments
4153 `(#:configure-flags
4154 (list (string-append "--with-midi=" (assoc-ref %build-inputs "timidity++")
4155 "/bin/timidity"))
4156 ,@(substitute-keyword-arguments (package-arguments openttd-engine)
4157 ((#:phases phases)
4158 `(modify-phases ,phases
4159 (add-after 'install 'install-data
4160 (lambda* (#:key inputs outputs #:allow-other-keys)
4161 (for-each
4162 (lambda (input)
4163 (copy-recursively (assoc-ref inputs input)
4164 (assoc-ref outputs "out")))
4165 (list "opengfx" "openmsx" "opensfx"))
4166 #t)))))))
4167 (inputs
4168 `(("timidity++" ,timidity++)
4169 ,@(package-inputs openttd-engine)))
4170 (native-inputs
4171 `(("opengfx" ,openttd-opengfx)
4172 ("openmsx" ,openttd-openmsx)
4173 ("opensfx" ,openttd-opensfx)
4174 ,@(package-native-inputs openttd-engine)))))
4175
4176 (define openrct2-title-sequences
4177 (package
4178 (name "openrct2-title-sequences")
4179 (version "0.1.2")
4180 (source
4181 (origin
4182 (method url-fetch)
4183 (uri (string-append "https://github.com/OpenRCT2/title-sequences/releases/download/v"
4184 version "/title-sequence-v" version ".zip"))
4185 (file-name (string-append name "-" version ".zip"))
4186 (sha256
4187 (base32
4188 "0qbyxrsw8hlgaq0r5d7lx7an3idy4qbfv7yiw9byhldk763n9cfw"))))
4189 (build-system trivial-build-system)
4190 (native-inputs
4191 `(("bash" ,bash)
4192 ("coreutils" ,coreutils)
4193 ("unzip" ,unzip)))
4194 (arguments
4195 `(#:modules ((guix build utils))
4196 #:builder
4197 (begin
4198 (use-modules (guix build utils))
4199 (let* ((out (assoc-ref %outputs "out"))
4200 (openrct2-title-sequences (string-append out
4201 "/share/openrct2/title-sequences"))
4202 (source (assoc-ref %build-inputs "source"))
4203 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
4204 (copy-file source (string-append ,name "-" ,version ".zip"))
4205 (invoke unzip (string-append ,name "-" ,version ".zip"))
4206 (delete-file (string-append ,name "-" ,version ".zip"))
4207 (mkdir-p openrct2-title-sequences)
4208 (copy-recursively "."
4209 openrct2-title-sequences)
4210 #t))))
4211 (home-page "https://github.com/OpenRCT2/OpenRCT2")
4212 (synopsis "Title sequences for OpenRCT2")
4213 (description
4214 "openrct2-title-sequences is a set of title sequences for OpenRCT2.")
4215 (license license:gpl3+)))
4216
4217 (define openrct2-objects
4218 (package
4219 (name "openrct2-objects")
4220 (version "1.0.9")
4221 (source
4222 (origin
4223 (method url-fetch)
4224 (uri (string-append "https://github.com/OpenRCT2/objects/releases/download/v"
4225 version "/objects.zip"))
4226 (file-name (string-append name "-" version ".zip"))
4227 (sha256
4228 (base32 "02apb8h553m7d6jvysgb1zahvxc1yzyygfca2iclb21b3fhpsas4"))))
4229 (build-system trivial-build-system)
4230 (native-inputs
4231 `(("bash" ,bash)
4232 ("coreutils" ,coreutils)
4233 ("unzip" ,unzip)))
4234 (arguments
4235 `(#:modules ((guix build utils))
4236 #:builder
4237 (begin
4238 (use-modules (guix build utils))
4239 (let* ((out (assoc-ref %outputs "out"))
4240 (openrct2-objects (string-append out
4241 "/share/openrct2/objects"))
4242 (source (assoc-ref %build-inputs "source"))
4243 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
4244 (copy-file source (string-append ,name "-" ,version ".zip"))
4245 (invoke unzip (string-append ,name "-" ,version ".zip"))
4246 (delete-file (string-append ,name "-" ,version ".zip"))
4247 (mkdir-p openrct2-objects)
4248 (copy-recursively "."
4249 openrct2-objects)
4250 #t))))
4251 (home-page "https://github.com/OpenRCT2/OpenRCT2")
4252 (synopsis "Objects for OpenRCT2")
4253 (description
4254 "openrct2-objects is a set of objects for OpenRCT2.")
4255 (license license:gpl3+)))
4256
4257 (define-public openrct2
4258 (package
4259 (name "openrct2")
4260 (version "0.2.6")
4261 (source
4262 (origin
4263 (method git-fetch)
4264 (uri (git-reference
4265 (url "https://github.com/OpenRCT2/OpenRCT2")
4266 (commit (string-append "v" version))))
4267 (file-name (git-file-name name version))
4268 (sha256
4269 (base32 "1vikbkg3wh5ngzdfilb6irbh6nqinf138qpdz8wz9izlvl8s36k4"))))
4270 (build-system cmake-build-system)
4271 (arguments
4272 `(#:configure-flags (list "-DDOWNLOAD_OBJECTS=OFF"
4273 "-DDOWNLOAD_TITLE_SEQUENCES=OFF")
4274 #:tests? #f ; tests require network access
4275 #:phases
4276 (modify-phases %standard-phases
4277 (add-after 'unpack 'fix-usr-share-paths&add-data
4278 (lambda* (#:key inputs outputs #:allow-other-keys)
4279 (let ((titles (assoc-ref inputs "openrct2-title-sequences"))
4280 (objects (assoc-ref inputs "openrct2-objects")))
4281 ;; Fix some references to /usr/share.
4282 (substitute* "src/openrct2/platform/Platform.Linux.cpp"
4283 (("/usr/share")
4284 (string-append (assoc-ref %outputs "out") "/share")))
4285 (copy-recursively
4286 (string-append titles "/share/openrct2/title-sequences")
4287 "data/title")
4288 (copy-recursively
4289 (string-append objects "/share/openrct2/objects")
4290 "data/object"))))
4291 (add-before 'configure 'get-rid-of-errors
4292 (lambda _
4293 ;; Don't treat warnings as errors.
4294 (substitute* "CMakeLists.txt"
4295 (("-Werror") ""))
4296 #t)))))
4297 (inputs `(("curl" ,curl)
4298 ("fontconfig" ,fontconfig)
4299 ("freetype" ,freetype)
4300 ("icu4c" ,icu4c)
4301 ("jansson" ,jansson)
4302 ("libpng" ,libpng)
4303 ("libzip" ,libzip)
4304 ("mesa" ,mesa)
4305 ("openrct2-objects" ,openrct2-objects)
4306 ("openrct2-title-sequences" ,openrct2-title-sequences)
4307 ("openssl" ,openssl)
4308 ("sdl2" ,sdl2)
4309 ("speexdsp" ,speexdsp)
4310 ("zlib" ,zlib)))
4311 (native-inputs
4312 `(("pkg-config" ,pkg-config)))
4313 (home-page "https://github.com/OpenRCT2/OpenRCT2")
4314 (synopsis "Free software re-implementation of RollerCoaster Tycoon 2")
4315 (description "OpenRCT2 is a free software re-implementation of
4316 RollerCoaster Tycoon 2 (RCT2). The gameplay revolves around building and
4317 maintaining an amusement park containing attractions, shops and facilities.
4318
4319 Note that this package does @emph{not} provide the game assets (sounds,
4320 images, etc.)")
4321 ;; See <https://github.com/OpenRCT2/OpenRCT2/wiki/Required-RCT2-files>
4322 ;; regarding assets.
4323 (license license:gpl3+)))
4324
4325 (define-public pinball
4326 (package
4327 (name "pinball")
4328 (version "0.3.1")
4329 (source
4330 (origin (method url-fetch)
4331 (uri (string-append "mirror://sourceforge/pinball/pinball/"
4332 "pinball-" version "/"
4333 "pinball-" version ".tar.gz"))
4334 (sha256
4335 (base32
4336 "1f2whlrfidwfh8lvr8cspcyirc6840r5d1ajm7x99qmngygrhixs"))
4337 (patches (search-patches "pinball-const-fix.patch"
4338 "pinball-cstddef.patch"
4339 "pinball-missing-separators.patch"
4340 "pinball-src-deps.patch"
4341 "pinball-system-ltdl.patch"))))
4342 (build-system gnu-build-system)
4343 (inputs
4344 `(("glu" ,glu)
4345 ("mesa" ,mesa)
4346 ("sdl" ,sdl)
4347 ("sdl-image" ,sdl-image)
4348 ("sdl-mixer" ,sdl-mixer)))
4349 (arguments
4350 '(#:configure-flags
4351 (list (string-append "CPPFLAGS=-I"
4352 (assoc-ref %build-inputs "sdl-image")
4353 "/include/SDL -I"
4354 (assoc-ref %build-inputs "sdl-mixer")
4355 "/include/SDL"))))
4356 (home-page "http://pinball.sourceforge.net")
4357 (synopsis "Pinball simulator")
4358 (description "The Emilia Pinball Project is a pinball simulator. There
4359 are only two levels to play with, but they are very addictive.")
4360 (license license:gpl2)))
4361
4362 (define-public pioneers
4363 (package
4364 (name "pioneers")
4365 (version "15.6")
4366 (source (origin
4367 (method url-fetch)
4368 (uri (string-append "https://downloads.sourceforge.net/pio/"
4369 "pioneers-" version ".tar.gz"))
4370 (sha256
4371 (base32
4372 "07b3xdd81n8ybsb4fzc5lx0813y9crzp1hj69khncf4faj48sdcs"))))
4373 (build-system gnu-build-system)
4374 (inputs `(("avahi" ,avahi)
4375 ("gtk+" ,gtk+)
4376 ("librsvg" ,librsvg)))
4377 (native-inputs `(("intltool" ,intltool)
4378 ("itstool" ,itstool)
4379 ("libxml2" ,libxml2)
4380 ("pkg-config" ,pkg-config)))
4381 (synopsis "Board game inspired by The Settlers of Catan")
4382 (description "Pioneers is an emulation of the board game The Settlers of
4383 Catan. It can be played on a local network, on the internet, and with AI
4384 players.")
4385 (home-page "http://pio.sourceforge.net/")
4386 (license license:gpl2+)))
4387
4388 (define-public einstein
4389 (package
4390 (name "einstein")
4391 (version "2.0")
4392 (source (origin
4393 (method url-fetch)
4394 (uri (string-append "mirror://debian/pool/main/e/"
4395 "einstein/einstein_2.0.dfsg.2.orig.tar.gz"))
4396 (sha256
4397 (base32
4398 "1hxrlv6n8py48j487i6wbb4n4vd55w0na69r7ccmmr9vmrsw5mlk"))
4399 (patches (search-patches "einstein-build.patch"))))
4400 (build-system gnu-build-system)
4401 (inputs
4402 `(("freetype" ,freetype)
4403 ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf)))
4404 ("zlib" ,zlib)))
4405 (native-inputs
4406 `(("font-dejavu" ,font-dejavu)))
4407 (arguments
4408 `(#:tests? #f ; no check target
4409 #:phases
4410 (modify-phases %standard-phases
4411 (replace 'configure
4412 (lambda* (#:key outputs inputs #:allow-other-keys)
4413 (let ((out (assoc-ref outputs "out"))
4414 (dejavu (string-append (assoc-ref inputs "font-dejavu")
4415 "/share/fonts/truetype/DejaVuSans.ttf")))
4416 (substitute* "Makefile"
4417 (("PREFIX=/usr/local") (string-append "PREFIX=" out)))
4418 ;; The patch above registers a free font for use by the binary,
4419 ;; but the font is copied during the compile phase into a
4420 ;; resources file, so we need to make the ttf file available.
4421 (symlink dejavu "res/DejaVuSans.ttf")
4422 #t))))))
4423 (synopsis "Logic puzzle game")
4424 (description "The goal of this logic game is to open all cards in a 6x6
4425 grid, using a number of hints as to their relative position. The game idea
4426 is attributed to Albert Einstein.")
4427 ;; The original home page has disappeared.
4428 (home-page (string-append "http://web.archive.org/web/20120521062745/"
4429 "http://games.flowix.com/en/index.html"))
4430 ;; License according to
4431 ;; http://web.archive.org/web/20150222180355/http://www.babichev.info/en/projects/index.html
4432 ;; The source code is a DFSG-sanitized tarball and does not contain any
4433 ;; license information.
4434 (license license:gpl3+)))
4435
4436 (define-public powwow
4437 (package
4438 (name "powwow")
4439 (version "1.2.22")
4440 (source (origin
4441 (method url-fetch)
4442 (uri (string-append
4443 "https://www.hoopajoo.net/static/projects/powwow-"
4444 version ".tar.gz"))
4445 (sha256
4446 (base32
4447 "12i11b8zxg8vdb9d6ims8qy2lmwwr42rcqbwq3vsa1x94s51bcbp"))))
4448 (inputs
4449 `(("ncurses" ,ncurses)))
4450 (build-system gnu-build-system)
4451 (home-page "https://www.hoopajoo.net/projects/powwow.html")
4452 (synopsis "MUD and telnet client")
4453 (description
4454 "POWWOW is a client software which can be used for telnet as well as for
4455 @dfn{Multi-User Dungeon} (MUD). Additionally it can serve as a nice client for
4456 the chat server psyced with the specific config located at
4457 http://lavachat.symlynx.com/unix/")
4458 (license license:gpl2+)))
4459
4460 (define-public red-eclipse
4461 (let ((release "2.0.0")
4462 (revision 0))
4463 (package
4464 (name "red-eclipse")
4465 (version (if (zero? revision)
4466 release
4467 (string-append release "-"
4468 (number->string revision))))
4469 (source
4470 (origin
4471 (method git-fetch)
4472 (uri (git-reference
4473 (url "https://github.com/redeclipse/base")
4474 (commit (string-append "v" release))
4475 (recursive? #t))) ; for game data
4476 (file-name (git-file-name name version))
4477 (sha256
4478 (base32 "0sz0mqhwx8r9n4mk3qrxw420nlsm3y0n48gd0lazgd64lfqjh3ab"))
4479 (modules '((guix build utils)))
4480 (snippet
4481 ;; Remove proprietary libraries and other pre-compiled binaries.
4482 '(begin
4483 (delete-file-recursively "bin")
4484 #t))))
4485 (build-system gnu-build-system)
4486 (arguments
4487 `(#:tests? #f ; no check target
4488 #:make-flags (list "CC=gcc" "-Csrc"
4489 (string-append "INSTDIR="
4490 (assoc-ref %outputs "out") "/bin")
4491 (string-append "prefix="
4492 (assoc-ref %outputs "out")))
4493 #:phases
4494 (modify-phases %standard-phases
4495 (add-after 'unpack 'add-store-data-package-path-as-default
4496 (lambda* (#:key outputs #:allow-other-keys)
4497 (substitute* "src/engine/server.cpp"
4498 (("data = \"data\"")
4499 (string-append "data = \""
4500 (assoc-ref outputs "out")
4501 "/share/redeclipse/data\"")))
4502 #t))
4503 (delete 'configure) ; no configure script
4504 (add-after 'set-paths 'set-sdl-paths
4505 (lambda* (#:key inputs #:allow-other-keys)
4506 (setenv "CPATH"
4507 (string-append (assoc-ref inputs "sdl-union")
4508 "/include/SDL2:"
4509 (or (getenv "CPATH") "")))
4510 #t))
4511 (add-after 'install 'copy-data
4512 (lambda* (#:key outputs #:allow-other-keys)
4513 (let ((out (assoc-ref outputs "out")))
4514 (copy-recursively "config"
4515 (string-append out "/config"))
4516 (copy-file "doc/examples/servinit.cfg"
4517 (string-append out "/config/servinit.cfg"))
4518 (copy-recursively "data"
4519 (string-append out "/share/redeclipse/data"))
4520 (mkdir-p (string-append out "/lib/redeclipse"))
4521 (symlink (string-append out "/share/redeclipse/data")
4522 (string-append out "/lib/redeclipse/data")))
4523 #t))
4524 (add-after 'copy-data 'wrap-program
4525 (lambda* (#:key inputs outputs #:allow-other-keys)
4526 (let* ((out (assoc-ref outputs "out"))
4527 (bin (string-append out "/bin")))
4528 (with-directory-excursion bin
4529 (rename-file "redeclipse_linux"
4530 ".redeclipse_linux-real")
4531 (rename-file "redeclipse_server_linux"
4532 ".redeclipse_server_linux-real")
4533 (call-with-output-file "redeclipse_linux"
4534 (lambda (port)
4535 (format port "#!~a/bin/sh
4536 # Run the thing from its home, otherwise it just bails out.
4537 cd \"~a\"
4538 exec -a \"$0\" ~a/.redeclipse_linux-real~%"
4539 (assoc-ref inputs "bash") ;implicit input
4540 (string-append out)
4541 (string-append bin))))
4542 (call-with-output-file "redeclipse_server_linux"
4543 (lambda (port)
4544 (format port "#!~a/bin/sh
4545 # Run the thing from its home, otherwise it just bails out.
4546 cd \"~a\"
4547 exec -a \"$0\" ~a/.redeclipse_server_linux-real~%"
4548 (assoc-ref inputs "bash") ;implicit input
4549 (string-append out)
4550 (string-append bin))))
4551 (chmod "redeclipse_linux" #o555)
4552 (chmod "redeclipse_server_linux" #o555)))
4553 #t)))))
4554 (native-inputs
4555 `(("pkg-config" ,pkg-config)))
4556 (inputs
4557 `(("curl" ,curl)
4558 ("freetype" ,freetype)
4559 ("glu" ,glu)
4560 ("sdl-union" ,(sdl-union (list sdl2
4561 sdl2-image
4562 sdl2-mixer)))))
4563 (home-page "https://redeclipse.net/")
4564 (synopsis "Arena shooter derived from the Cube 2 engine")
4565 (description
4566 "Red Eclipse is an arena shooter, created from the Cube2 engine.
4567 Offering an innovative parkour system and distinct but all potent weapons,
4568 Red Eclipse provides fast paced and accessible gameplay.")
4569 ;; The engine is under Zlib; data files are covered by the other
4570 ;; licenses. More details at file:///doc/all-licenses.txt.
4571 (license (list license:expat
4572 license:zlib
4573 license:cc-by-sa4.0
4574 license:cc-by-sa3.0
4575 license:cc-by3.0
4576 license:cc0
4577 license:public-domain
4578 license:silofl1.1)))))
4579
4580 (define-public grue-hunter
4581 (package
4582 (name "grue-hunter")
4583 (version "1.0")
4584 (source (origin
4585 (method url-fetch)
4586 (uri (string-append "https://jxself.org/grue-hunter.tar.gz"))
4587 (sha256
4588 (base32
4589 "1hjcpy5439qs3v2zykis7hsi0i17zjs62gks3zd8mnfw9ni4i2h3"))))
4590 (build-system trivial-build-system) ; no Makefile.PL
4591 (arguments `(#:modules ((guix build utils))
4592 #:builder
4593 (begin
4594 (use-modules (guix build utils))
4595 (use-modules (srfi srfi-1))
4596
4597 (let* ((tarball (assoc-ref %build-inputs "tarball"))
4598 (perl (string-append (assoc-ref %build-inputs
4599 "perl")
4600 "/bin"))
4601 (gzip (string-append (assoc-ref %build-inputs
4602 "gzip")
4603 "/bin/gzip"))
4604 (tar (string-append (assoc-ref %build-inputs
4605 "tar")
4606 "/bin/tar"))
4607 (out (assoc-ref %outputs "out"))
4608 (bin (string-append out "/bin"))
4609 (doc (string-append out
4610 "/share/doc/grue-hunter")))
4611 (copy-file tarball "grue-hunter.tar.gz")
4612 (invoke gzip "-d" "grue-hunter.tar.gz")
4613 (invoke tar "xvf" "grue-hunter.tar")
4614
4615 (mkdir-p bin)
4616 (copy-file "grue-hunter/gh.pl"
4617 (string-append bin "/grue-hunter"))
4618 (patch-shebang (string-append bin "/grue-hunter")
4619 (list perl))
4620
4621 (install-file "grue-hunter/AGPLv3.txt" doc)
4622
4623 #t))))
4624 (inputs `(("perl" ,perl)
4625 ("tar" ,tar)
4626 ("gzip" ,gzip)
4627 ("tarball" ,source)))
4628 (home-page "https://jxself.org/grue-hunter.shtml")
4629 (synopsis "Text adventure game")
4630 (description
4631 "Grue Hunter is a text adventure game written in Perl. You must make
4632 your way through an underground cave system in search of the Grue. Can you
4633 capture it and get out alive?")
4634 (license license:agpl3+)))
4635
4636 (define-public lierolibre
4637 (package
4638 (name "lierolibre")
4639 (version "0.5")
4640 (source (origin
4641 (method url-fetch)
4642 (uri (string-append "https://launchpad.net/lierolibre/trunk/"
4643 version "/+download/lierolibre-"
4644 version ".tar.xz"))
4645 (sha256
4646 (base32
4647 "1cf1gvsn4qq190lrf9k5bpjnqwlcfw7pajvdnh7z5r4jqw0rsbl9"))
4648 (patches
4649 (search-patches "lierolibre-check-unaligned-access.patch"
4650 "lierolibre-try-building-other-arch.patch"
4651 "lierolibre-remove-arch-warning.patch"
4652 "lierolibre-newer-libconfig.patch"
4653 "lierolibre-is-free-software.patch"))
4654 (modules '((guix build utils)))
4655 (snippet
4656 '(begin
4657 ;; Delete pre-compiled files.
4658 (delete-file "data/LIERO.CHR")
4659 (delete-file "data/LIERO.SND")
4660 #t))))
4661 (build-system gnu-build-system)
4662 (native-inputs
4663 `(("imagemagick" ,imagemagick)
4664 ("pkg-config" ,pkg-config)
4665 ("util-linux" ,util-linux)
4666 ("sox" ,sox)))
4667 (inputs
4668 `(("boost" ,boost)
4669 ("libconfig" ,libconfig)
4670 ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))
4671 ("zlib" ,zlib)))
4672 (home-page "https://gitlab.com/lierolibre/lierolibre")
4673 (synopsis "Old-school earthworm action game")
4674 (description
4675 "lierolibre is an earthworm action game where you fight another player
4676 (or the computer) underground using a wide array of weapons.
4677
4678 Features:
4679 @itemize
4680 @item 2 worms, 40 weapons, great playability, two game modes: Kill'em All
4681 and Game of Tag, plus AI-players without true intelligence!
4682 @item Dat nostalgia.
4683 @item Extensions via a hidden F1 menu:
4684 @itemize
4685 @item Replays
4686 @item Game controller support
4687 @item Powerlevel palettes
4688 @end itemize
4689 @item Ability to write game variables to plain text files.
4690 @item Ability to load game variables from both EXE and plain text files.
4691 @item Scripts to extract and repack graphics, sounds and levels.
4692 @end itemize
4693
4694 To switch between different window sizes, use F6, F7 and F8, to switch to
4695 fullscreen, use F5 or Alt+Enter.")
4696 ;; Code mainly BSD-2, some parts under Boost 1.0. All assets are WTFPL2.
4697 (license (list license:bsd-2 license:boost1.0 license:wtfpl2))))
4698
4699 (define-public tennix
4700 (package
4701 (name "tennix")
4702 (version "1.3.1")
4703 (source
4704 (origin
4705 (method git-fetch)
4706 (uri (git-reference
4707 (url "https://repo.or.cz/tennix.git")
4708 (commit (string-append "tennix-" version))))
4709 (file-name (git-file-name name version))
4710 (sha256
4711 (base32 "02cj4lrdrisal5s9pnbf2smx7qz9czczjzndfkhfx0qy67b957sk"))
4712 ;; Remove non-free images.
4713 (modules '((guix build utils)))
4714 (snippet
4715 '(begin
4716 (for-each delete-file
4717 '("data/loc_training_camp.png"
4718 "data/loc_austrian_open.png"
4719 "data/loc_olympic_green_tennis.png"))
4720 #t))))
4721 (build-system gnu-build-system)
4722 (arguments
4723 `(#:tests? #f ;no test
4724 #:phases
4725 (modify-phases %standard-phases
4726 (add-after 'unpack 'fix-include
4727 (lambda _
4728 (substitute* '("src/graphics.h" "src/sound.h")
4729 (("#include \"(SDL_(image|ttf|mixer)\\.h)\"" _ header)
4730 (string-append "#include \"SDL/" header "\"")))
4731 (substitute* '("src/tennix.h" "src/network.h" "src/SDL_rotozoom.h")
4732 (("#include <SDL.h>") "#include <SDL/SDL.h>")
4733 (("#include <SDL_net.h>") "#include <SDL/SDL_net.h>"))
4734 #t))
4735 (add-after 'unpack 'locate-install
4736 ;; Build process cannot expand "$(INSTALL)" in Makefile.
4737 (lambda _
4738 (substitute* "makefile"
4739 (("^CONFIGURE_OUTPUT :=.*" all)
4740 (string-append "INSTALL := install -c\n" all)))
4741 #t))
4742 (replace 'configure
4743 ;; The "configure" script is picky about the arguments it
4744 ;; gets. Call it ourselves.
4745 (lambda _
4746 (invoke "./configure" "--prefix" (assoc-ref %outputs "out")))))))
4747 (native-inputs
4748 `(("which" ,which)))
4749 (inputs
4750 `(("python" ,python-wrapper)
4751 ("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf sdl-net)))))
4752 (home-page "http://icculus.org/tennix/")
4753 (synopsis "Play tennis against the computer or a friend")
4754 (description "Tennix is a 2D tennis game. You can play against the
4755 computer or against another player using the keyboard. The game runs
4756 in-window at 640x480 resolution or fullscreen.")
4757 ;; Project is licensed under GPL2+ terms. It includes images
4758 ;; released under Public Domain terms, and SDL_rotozoom, released
4759 ;; under LGPL2.1 terms.
4760 (license (list license:gpl2+ license:public-domain license:lgpl2.1))))
4761
4762 (define-public warzone2100
4763 (package
4764 (name "warzone2100")
4765 (version "3.4.1")
4766 (source
4767 (origin
4768 (method url-fetch)
4769 (uri (string-append "mirror://sourceforge/warzone2100/releases/"
4770 version
4771 "/warzone2100_src.tar.xz"))
4772 (sha256
4773 (base32 "0savalmw1kp1sf8vg5aqrl5hc77p4jacxy5y9qj8k2hi2vqdfb7a"))
4774 (modules '((guix build utils)))
4775 (snippet
4776 '(begin
4777 (with-directory-excursion "3rdparty"
4778 (for-each
4779 delete-file-recursively
4780 '("discord-rpc"
4781 "miniupnp"
4782 "utfcpp")))
4783 #t))))
4784 (build-system cmake-build-system)
4785 (arguments
4786 `(#:configure-flags '("-DWZ_DISTRIBUTOR=Guix"
4787 "-DENABLE_DISCORD=off")
4788 #:tests? #f ; TODO: Tests seem to be broken, configure.ac is missing.
4789 #:phases
4790 (modify-phases %standard-phases
4791 (add-after 'unpack 'fix-utfcpp-include
4792 (lambda _
4793 (substitute* "lib/framework/wzstring.cpp"
4794 (("<utfcpp/source/utf8.h>") "<utf8.h>"))
4795 #t))
4796 (add-after 'unpack 'link-tests-with-qt
4797 (lambda _
4798 (substitute* "tests/Makefile.am"
4799 (("(framework_linktest_LDADD|maptest_LDADD) = " prefix)
4800 (string-append prefix "$(QT5_LIBS) ")))
4801 #t))
4802 (add-after 'unpack 'fix-ivis-linktest
4803 (lambda _
4804 (substitute* "tests/ivis_linktest.cpp"
4805 (("iV_DrawTextRotated.*;")
4806 (string-append "iV_DrawTextRotated(\"Press ESC to exit.\", "
4807 "100, 100, 0.0f, font_regular);")))
4808 #t)))))
4809 (native-inputs `(("asciidoc" ,asciidoc)
4810 ("asciidoctor" ,ruby-asciidoctor)
4811 ("gettext" ,gettext-minimal)
4812 ("pkg-config" ,pkg-config)
4813 ("unzip" ,unzip)
4814 ;; 7z is used to create .zip archive, not `zip' as in version 3.2.*.
4815 ("p7zip" ,p7zip)))
4816 (inputs `(("curl" ,curl)
4817 ("fontconfig" ,fontconfig)
4818 ("freetype" ,freetype)
4819 ("glew" ,glew)
4820 ("harfbuzz" ,harfbuzz)
4821 ("libtheora" ,libtheora)
4822 ("libvorbis" ,libvorbis)
4823 ("libxrandr" ,libxrandr)
4824 ("libsodium" ,libsodium)
4825 ("miniupnpc" ,miniupnpc)
4826 ("openal" ,openal)
4827 ("physfs" ,physfs)
4828 ("qtbase" ,qtbase)
4829 ("qtscript" ,qtscript)
4830 ("openssl" ,openssl)
4831 ("sdl2" ,sdl2)
4832 ("utfcpp" ,utfcpp)))
4833 (home-page "https://wz2100.net")
4834 (synopsis "3D Real-time strategy and real-time tactics game")
4835 (description
4836 "Warzone 2100 offers campaign, multi-player, and single-player skirmish
4837 modes. An extensive tech tree with over 400 different technologies, combined
4838 with the unit design system, allows for a wide variety of possible units and
4839 tactics.")
4840 ;; Everything is GPLv2+ unless otherwise specified in COPYING.NONGPL
4841 (license (list license:bsd-3
4842 license:cc0
4843 license:cc-by-sa3.0
4844 license:expat
4845 license:gpl2+
4846 license:lgpl2.1+))))
4847
4848 (define-public widelands
4849 (package
4850 (name "widelands")
4851 (version "21")
4852 (source
4853 (origin
4854 (method url-fetch)
4855 (uri (string-append "https://launchpad.net/widelands/"
4856 "build" version "/build" version "/+download/"
4857 "widelands-build" version "-source.tar.gz"))
4858 (sha256
4859 (base32 "0mz3jily0w1zxxqbnkqrp6hl88xhrwzbil9crq7gpcwidx60w7k0"))
4860 (modules '((guix build utils)))
4861 (snippet
4862 '(begin
4863 (delete-file-recursively "src/third_party/minizip")
4864 #t))
4865 (patches
4866 ;; Use system Minizip. Patch is provided by Debian, and discussed
4867 ;; upstream at <https://github.com/widelands/widelands/issues/399>.
4868 (search-patches "widelands-system-wide_minizip.patch"))))
4869 (build-system cmake-build-system)
4870 (arguments
4871 `(#:configure-flags
4872 (let* ((out (assoc-ref %outputs "out"))
4873 (share (string-append out "/share")))
4874 (list (string-append "-DCMAKE_INSTALL_PREFIX=" out "/bin")
4875 (string-append "-DWL_INSTALL_BASEDIR=" share "/widelands")
4876 (string-append "-DWL_INSTALL_DATADIR=" share "/widelands")
4877 "-DOPTION_BUILD_WEBSITE_TOOLS=OFF"
4878 ;; CMakeLists.txt does not handle properly RelWithDebInfo build
4879 ;; type. When used, no game data is installed!
4880 "-DCMAKE_BUILD_TYPE=Release"))
4881 #:phases
4882 (modify-phases %standard-phases
4883 (add-after 'unpack 'unbundle-fonts
4884 ;; Unbundle fonts already packaged in Guix. XXX: missing fonts are
4885 ;; amiri, Culmus, mmrCensus, Nakula, and Sinhala.
4886 (lambda* (#:key inputs #:allow-other-keys)
4887 (with-directory-excursion "data/i18n/fonts"
4888 (for-each (lambda (font)
4889 (delete-file-recursively font)
4890 (symlink (string-append (assoc-ref inputs font)
4891 "/share/fonts/truetype")
4892 font))
4893 '("DejaVu" "MicroHei")))
4894 #t)))))
4895 (native-inputs
4896 `(("gettext" ,gettext-minimal)
4897 ("python" ,python-wrapper)))
4898 (inputs
4899 `(("boost" ,boost)
4900 ("glew" ,glew)
4901 ("icu4c" ,icu4c)
4902 ("libpng" ,libpng)
4903 ("minizip" ,minizip)
4904 ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
4905 ("zlib" ,zlib)
4906 ;; Fonts for the ‘unbundle-fonts’ phase. Case matters in name!
4907 ("DejaVu" ,font-dejavu)
4908 ("MicroHei" ,font-wqy-microhei)))
4909 (home-page "https://www.widelands.org/")
4910 (synopsis "Fantasy real-time strategy game")
4911 (description
4912 "In Widelands, you are the regent of a small clan. You start out with
4913 nothing but your headquarters, where all your resources are stored.
4914
4915 In the course of the game, you will build an ever growing settlement. Every
4916 member of your clan will do his or her part to produce more resources---wood,
4917 food, iron, gold and more---to further this growth. The economic network is
4918 complex and different in the four tribes (Barbarians, Empire, Atlanteans, and
4919 Frisians).
4920
4921 As you are not alone in the world, you will meet other clans sooner or later.
4922 Some of them may be friendly and you may eventually trade with them. However,
4923 if you want to rule the world, you will have to train soldiers and fight.
4924
4925 Widelands offers single-player mode with different campaigns; the campaigns
4926 all tell stories of tribes and their struggle in the Widelands universe!
4927 However, settling really starts when you unite with friends over the Internet
4928 or LAN to build up new empires together---or to crush each other in the dusts
4929 of war. Widelands also offers an Artificial Intelligence to challenge you.")
4930 ;; Game is released as GPL2+. Some parts, e.g., art, are released under
4931 ;; different licenses.
4932 (license (list license:gpl2+
4933 license:expat ;src/third_party/eris
4934 license:silofl1.1 ;Widelands.ttf
4935 license:cc-by-sa3.0)))) ;some music files
4936
4937 (define-public starfighter
4938 (package
4939 (name "starfighter")
4940 (version "2.3.3")
4941 (source (origin
4942 (method url-fetch)
4943 (uri (string-append
4944 "https://github.com/pr-starfighter/starfighter/releases"
4945 "/download/v" version "/starfighter-"
4946 version "-src.tar.gz"))
4947 (sha256
4948 (base32
4949 "0jz2lgvmp299nks6ajg2yxbx4xcaxlc4cpfr61861p7m7z2nv84y"))))
4950 (build-system gnu-build-system)
4951 (native-inputs
4952 `(("pkg-config" ,pkg-config)))
4953 (inputs
4954 `(("pango" ,pango)
4955 ("sdl2" ,sdl2)
4956 ("sdl2-image" ,sdl2-image)
4957 ("sdl2-mixer" ,sdl2-mixer)
4958 ("sdl2-ttf" ,sdl2-ttf)))
4959 (home-page "https://pr-starfighter.github.io/")
4960 (synopsis "2D scrolling shooter game")
4961 (description
4962 "In the year 2579, the intergalactic weapons corporation, WEAPCO, has
4963 dominated the galaxy. Guide Chris Bainfield and his friend Sid Wilson on
4964 their quest to liberate the galaxy from the clutches of WEAPCO. Along the
4965 way, you will encounter new foes, make new allies, and assist local rebels
4966 in strikes against the evil corporation.")
4967 ;; gfx and music are under CC-BY 3.0, CC-BY-SA 3.0, CC0 or Public Domain.
4968 (license (list license:gpl3+
4969 license:cc-by3.0
4970 license:cc-by-sa3.0
4971 license:cc0
4972 license:public-domain))))
4973
4974 (define-public chromium-bsu
4975 (package
4976 (name "chromium-bsu")
4977 (version "0.9.16.1")
4978 (source (origin
4979 (method url-fetch)
4980 (uri (string-append "mirror://sourceforge/chromium-bsu"
4981 "/Chromium B.S.U. source code/"
4982 "chromium-bsu-" version ".tar.gz"))
4983 (sha256
4984 (base32
4985 "0jk2w5b6s6nkzri585bbz16cif2fhqcnl5l1mq3rd98r9nil3hd1"))))
4986 (build-system gnu-build-system)
4987 (native-inputs `(("pkg-config" ,pkg-config)))
4988 (inputs `(("gettext" ,gettext-minimal)
4989 ("glu" ,glu)
4990 ("quesoglc" ,quesoglc)
4991 ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer)))))
4992 (home-page "http://chromium-bsu.sourceforge.net/")
4993 (synopsis "Fast-paced, arcade-style, top-scrolling space shooter")
4994 (description
4995 "In this game you are the captain of the cargo ship Chromium B.S.U. and
4996 are responsible for delivering supplies to the troops on the front line. Your
4997 ship has a small fleet of robotic fighters which you control from the relative
4998 safety of the Chromium vessel.")
4999 ;; Clarified Artistic License for everything but sound, which is covered
5000 ;; by the Expat License.
5001 (license (list license:clarified-artistic license:expat))))
5002
5003 (define-public tuxpaint
5004 (package
5005 (name "tuxpaint")
5006 (version "0.9.23") ;keep VER_DATE below in sync
5007 (source
5008 (origin
5009 (method url-fetch)
5010 (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint/"
5011 version "/tuxpaint-" version ".tar.gz"))
5012 (sha256
5013 (base32
5014 "09k9pxi88r3dx6dyjwf9h85d4qpva4i29qz63dc558hg9v21k69l"))
5015 (modules '((guix build utils)))
5016 (snippet
5017 '(begin
5018 ;; Remove win32 directory which contains binary dll's and the
5019 ;; deprecated visualc directory.
5020 (for-each delete-file-recursively '("win32" "visualc"))
5021 (substitute* "Makefile"
5022 ;; Do not rely on $(GPERF) being an absolute file name
5023 (("\\[ -x \\$\\(GPERF\\) \\]")
5024 "$(GPERF) --version >/dev/null 2>&1"))
5025 #t))
5026 (patches (search-patches "tuxpaint-stamps-path.patch"))))
5027 (build-system gnu-build-system)
5028 (native-inputs
5029 `(("gperf" ,gperf)
5030 ("pkg-config" ,pkg-config)))
5031 (inputs
5032 `(("cairo" ,cairo)
5033 ("fribidi" ,fribidi)
5034 ("gettext" ,gettext-minimal)
5035 ("libpng" ,libpng)
5036 ("librsvg" ,librsvg)
5037 ("libpaper" ,libpaper)
5038 ("netpbm" ,netpbm)
5039 ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf sdl-image)))))
5040 ;; TODO: Use system fonts rather than those in data/fonts
5041 (arguments
5042 `(#:make-flags `("VER_DATE=2018-09-02"
5043 "GPERF=gperf" "CC=gcc"
5044 "SDL_PCNAME=sdl SDL_image SDL_mixer SDL_ttf"
5045 ,(string-append "PREFIX=" %output)
5046 "KDE_PREFIX=$(PREFIX)/share/applications"
5047 "KDE_ICON_PREFIX=$(PREFIX)/share/icons/"
5048 "COMPLETIONDIR=$(PREFIX)/etc/bash_completion.d")
5049 #:parallel-build? #f ;fails on some systems
5050 #:tests? #f ;No tests
5051 #:phases (modify-phases %standard-phases
5052 (delete 'configure) ;no configure phase
5053 (add-before 'install 'no-sys-cache
5054 (lambda _ ;do not rebuild system conf cache
5055 (substitute* "Makefile"
5056 (("kbuildsycoca4") ""))
5057 #t))
5058 (add-after 'install 'fix-import
5059 (lambda* (#:key inputs outputs #:allow-other-keys)
5060 (let* ((out (assoc-ref outputs "out"))
5061 (net (assoc-ref inputs "netpbm"))
5062 (tpi (string-append out "/bin/tuxpaint-import")))
5063 (substitute* tpi
5064 ;; Point to installation prefix so that the default
5065 ;; configure file is found.
5066 (("/usr/local") out))
5067 ;; tuxpaint-import uses a bunch of programs from
5068 ;; netpbm, so make sure it knows where those are
5069 (wrap-program tpi
5070 `("PATH" ":" prefix
5071 (,(string-append net "/bin"))))))))))
5072 (native-search-paths
5073 (list (search-path-specification
5074 (variable "TUXPAINT_STAMPS_PATH")
5075 (files '("share/tuxpaint/stamps")))))
5076 (home-page "http://www.tuxpaint.org")
5077 (synopsis "Drawing software for children")
5078 (description
5079 "Tux Paint is a free drawing program designed for young children (kids
5080 ages 3 and up). It has a simple, easy-to-use interface; fun sound effects;
5081 and an encouraging cartoon mascot who helps guide children as they use the
5082 program. It provides a blank canvas and a variety of drawing tools to help
5083 your child be creative.")
5084 (license license:gpl2+)))
5085
5086 (define-public tuxpaint-stamps
5087 (package
5088 (name "tuxpaint-stamps")
5089 (version "2018.09.01")
5090 (source
5091 (origin
5092 (method url-fetch)
5093 (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-stamps/"
5094 (string-map (λ (x) (if (eq? x #\.) #\- x)) version)
5095 "/tuxpaint-stamps-" version ".tar.gz"))
5096 (sha256
5097 (base32
5098 "1skr23k27yj3vgwfazpzxp90lb2a278gxrkr3bxw7az6zpkmb3yp"))))
5099 (build-system trivial-build-system)
5100 (native-inputs
5101 `(("tar" ,tar)
5102 ("gzip" ,gzip)))
5103 (arguments
5104 `(#:modules ((guix build utils))
5105 #:builder (begin
5106 (use-modules (guix build utils))
5107 (setenv "PATH"
5108 (string-append
5109 (assoc-ref %build-inputs "tar") "/bin" ":"
5110 (assoc-ref %build-inputs "gzip") "/bin"))
5111 (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
5112 (chdir (string-append ,name "-" ,version))
5113 (let ((dir (string-append %output "/share/tuxpaint/stamps")))
5114 (mkdir-p dir)
5115 (copy-recursively "stamps" dir))
5116 #t)))
5117 (home-page (package-home-page tuxpaint))
5118 (synopsis "Stamp images for Tux Paint")
5119 (description
5120 "This package contains a set of \"Rubber Stamp\" images which can be used
5121 with the \"Stamp\" tool within Tux Paint.")
5122 (license license:gpl2+)))
5123
5124 (define-public tuxpaint-config
5125 (package
5126 (name "tuxpaint-config")
5127 (version "0.0.14") ;keep VER_DATE below in sync
5128 (source
5129 (origin
5130 (method url-fetch)
5131 (uri (string-append "mirror://sourceforge/tuxpaint/tuxpaint-config/"
5132 version "/tuxpaint-config-" version ".tar.gz"))
5133 (sha256
5134 (base32
5135 "0zkgxk436nqcp43zghkfmh397c7dvh5bwn2as7gwvv208bzyij6g"))))
5136 (build-system gnu-build-system)
5137 (native-inputs
5138 `(("gettext" ,gettext-minimal)))
5139 (inputs
5140 `(("fltk" ,fltk)
5141 ("libpaper" ,libpaper)
5142 ;; TODO: Should the following be propagated by fltk?
5143 ("libx11" ,libx11)
5144 ("libxft" ,libxft)
5145 ("mesa" ,mesa)))
5146 (arguments
5147 `(#:make-flags `("VER_DATE=2018-09-01"
5148 "CONFDIR=/etc/tuxpaint" ;don't write to store
5149 ,(string-append "PREFIX=" %output)
5150 "GNOME_PREFIX=$(PREFIX)")
5151 #:parallel-build? #f ;race conditions
5152 #:tests? #f ;no tests
5153 #:phases (modify-phases %standard-phases
5154 (delete 'configure) ;no configure phase
5155 (add-before 'install 'gzip-no-name
5156 (lambda* _
5157 (substitute* "Makefile"
5158 ;; tuxpaint-config compresses its own documentation;
5159 ;; make sure it uses flags for reproducibility.
5160 (("gzip") "gzip --no-name"))))
5161 (add-before 'install 'make-install-dirs
5162 (lambda* (#:key outputs #:allow-other-keys)
5163 (let ((out (assoc-ref outputs "out")))
5164 (mkdir-p (string-append out "/bin"))
5165 #t))))))
5166 (home-page (package-home-page tuxpaint))
5167 (synopsis "Configure Tux Paint")
5168 (description
5169 "Tux Paint Config is a graphical configuration editor for Tux Paint.")
5170 (license license:gpl2))) ;no "or later" present
5171
5172 (define-public supertux
5173 (package
5174 (name "supertux")
5175 (version "0.6.2")
5176 (source (origin
5177 (method url-fetch)
5178 (uri (string-append "https://github.com/SuperTux/supertux/"
5179 "releases/download/v" version "/SuperTux-v"
5180 version "-Source.tar.gz"))
5181 (file-name (string-append name "-" version ".tar.gz"))
5182 (sha256
5183 (base32
5184 "167m3z4m8n76dvbv42m1fnvabpbpsxvr28zk9641916jl9pfba96"))
5185 (patches
5186 (search-patches "supertux-unbundle-squirrel.patch"))))
5187 (arguments
5188 '(#:tests? #f
5189 #:configure-flags '("-DINSTALL_SUBDIR_BIN=bin"
5190 "-DUSE_SYSTEM_PHYSFS=ON")
5191 #:phases
5192 (modify-phases %standard-phases
5193 (add-after 'unpack 'patch-squirrel-path
5194 (lambda* (#:key inputs #:allow-other-keys)
5195 (let ((squirrel (assoc-ref inputs "squirrel")))
5196 (substitute* "CMakeLists.txt"
5197 (("set\\(SQUIRREL_PREFIX.*")
5198 (string-append "set(SQUIRREL_PREFIX " squirrel ")"))
5199 (("add_dependencies\\(supertux2_lib squirrel\\)") "")
5200 (("\\$\\{SQUIRREL_PREFIX\\}/include")
5201 (string-append "${SQUIRREL_PREFIX}/include/squirrel"))))
5202 #t)))))
5203 (build-system cmake-build-system)
5204 (inputs `(("sdl2" ,sdl2)
5205 ("sdl2-image" ,sdl2-image)
5206 ("sdl2-mixer" ,sdl2-mixer)
5207 ("openal" ,openal)
5208 ("mesa" ,mesa)
5209 ("glew" ,glew)
5210 ("libvorbis" ,libvorbis)
5211 ("libogg" ,libogg)
5212 ("physfs" ,physfs)
5213 ("curl" ,curl)
5214 ("boost" ,boost)
5215 ("freetype" ,freetype)
5216 ("squirrel" ,squirrel)))
5217 (native-inputs
5218 `(("pkg-config" ,pkg-config)))
5219 (synopsis "2D platformer game")
5220 (description "SuperTux is a classic 2D jump'n run sidescroller game in
5221 a style similar to the original Super Mario games.")
5222 (home-page "https://supertux.org/")
5223 (license license:gpl3+)))
5224
5225 (define-public tintin++
5226 (package
5227 (name "tintin++")
5228 (version "2.02.05")
5229 (source
5230 (origin
5231 (method url-fetch)
5232 (uri (string-append "mirror://sourceforge/tintin/TinTin++ Source Code/"
5233 (string-drop-right version 1)
5234 "/tintin-" version ".tar.gz"))
5235 (sha256
5236 (base32 "18fm9ga08mxqmblahmnlzwnl387i8mbkj4n0gffxc91d299019v3"))))
5237 (inputs
5238 `(("gnutls" ,gnutls)
5239 ("pcre" ,pcre)
5240 ("readline" ,readline)
5241 ("zlib" ,zlib)))
5242 (arguments
5243 '(#:tests? #f ; no test suite
5244 #:phases
5245 (modify-phases %standard-phases
5246 ;; The source is in tt/src.
5247 (add-before 'configure 'chdir
5248 (lambda _
5249 (chdir "src")
5250 #t)))))
5251 (build-system gnu-build-system)
5252 (home-page "https://tintin.mudhalla.net/")
5253 (synopsis "MUD client")
5254 (description
5255 "TinTin++ is a MUD client which supports MCCP (Mud Client Compression
5256 Protocol), MMCP (Mud Master Chat Protocol), xterm 256 colors, most TELNET
5257 options used by MUDs, as well as those required to login via telnet on
5258 Linux / Mac OS X servers, and an auto mapper with a VT100 map display.")
5259 (license license:gpl3+)))
5260
5261 (define-public laby
5262 (package
5263 (name "laby")
5264 (version "0.7.0")
5265 (source
5266 (origin (method git-fetch)
5267 (uri (git-reference
5268 (url "https://github.com/sgimenez/laby")
5269 (commit (string-append name "-" version))))
5270 (file-name (git-file-name name version))
5271 (sha256
5272 (base32
5273 "1y6nfxcjhqg9bb81hs0wijg7kcwk5kff81rgd8bsv5ps7ia9nj6b"))
5274 (patches (search-patches "laby-make-install.patch"))))
5275 (build-system gnu-build-system)
5276 (inputs
5277 `(("lablgtk" ,lablgtk)
5278 ("ocaml" ,ocaml)
5279 ("ocaml-findlib" ,ocaml-findlib)
5280 ("ocamlbuild" ,ocamlbuild)))
5281 (arguments
5282 '(#:phases
5283 (modify-phases %standard-phases
5284 (delete 'configure)
5285 (add-before 'build 'allow-unsafe-strings
5286 ;; Fix a build failure with ocaml >=4.06.0.
5287 ;; See <https://github.com/sgimenez/laby/issues/53>.
5288 (lambda _
5289 (setenv "OCAMLPARAM" "safe-string=0,_")
5290 #t))
5291 (add-before 'build 'set-library-path
5292 (lambda* (#:key inputs #:allow-other-keys)
5293 (let ((lablgtk (assoc-ref inputs "lablgtk")))
5294 (setenv "LD_LIBRARY_PATH"
5295 (string-append lablgtk "/lib/ocaml/stublibs"))))))
5296 #:tests? #f ; no 'check' target
5297 #:make-flags
5298 (list (string-append "PREFIX=" (assoc-ref %outputs "out")) "all")))
5299 (home-page "https://sgimenez.github.io/laby/")
5300 (synopsis "Programming game")
5301 (description "Learn programming, playing with ants and spider webs ;-)
5302 Your robot ant can be programmed in many languages: OCaml, Python, C, C++,
5303 Java, Ruby, Lua, JavaScript, Pascal, Perl, Scheme, Vala, Prolog. Experienced
5304 programmers may also add their own favorite language.")
5305 (license license:gpl3+)))
5306
5307 (define-public bambam
5308 (package
5309 (name "bambam")
5310 (version "1.0.0")
5311 (source
5312 (origin
5313 (method git-fetch)
5314 (uri (git-reference
5315 (url "https://github.com/porridge/bambam")
5316 (commit (string-append "v" version))))
5317 (file-name (git-file-name name version))
5318 (sha256
5319 (base32 "18cwd1wpyyx8y61cags9bkdhx9x858xicc4y1c9c2s0xjmgzhl3i"))))
5320 (build-system python-build-system)
5321 (arguments
5322 `(#:tests? #f ; no tests
5323 #:phases
5324 (modify-phases %standard-phases
5325 (delete 'build) ; nothing to build
5326 (replace 'install
5327 (lambda* (#:key outputs #:allow-other-keys)
5328 (let* ((out (assoc-ref outputs "out"))
5329 (bin (string-append out "/bin"))
5330 (share (string-append out "/share")))
5331 (mkdir-p bin)
5332 (copy-file "bambam.py" (string-append bin "/bambam"))
5333 (install-file "bambam.6" (string-append share "/man/man6"))
5334 (copy-recursively "data" (string-append share "/bambam/data")))
5335 #t)))))
5336 (inputs
5337 `(("python-pygame" ,python-pygame)))
5338 (home-page "https://github.com/porridge/bambam")
5339 (synopsis "Keyboard mashing and doodling game for babies")
5340 (description "Bambam is a simple baby keyboard (and gamepad) masher
5341 application that locks the keyboard and mouse and instead displays bright
5342 colors, pictures, and sounds.")
5343 (license license:gpl3+)))
5344
5345 (define-public mrrescue
5346 (package
5347 (name "mrrescue")
5348 (version "1.02e")
5349 (source (origin
5350 (method url-fetch)
5351 (uri (string-append
5352 "https://github.com/SimonLarsen/mrrescue/releases/"
5353 "download/" version "/mrrescue" version ".love"))
5354 (file-name (string-append name "-" version ".love"))
5355 (sha256
5356 (base32
5357 "0jwzbwkgp1l5ia6c7s760gmdirbsncp6nfqp7vqdqsfb63la9gl2"))))
5358 (build-system trivial-build-system)
5359 (arguments
5360 `(#:modules ((guix build utils))
5361 #:builder
5362 (begin
5363 (use-modules (guix build utils))
5364 (let* ((out (assoc-ref %outputs "out"))
5365 (script (string-append out "/bin/" ,name))
5366 (data (string-append out "/share/" ,name))
5367 (source (assoc-ref %build-inputs "source"))
5368 (unzip (string-append (assoc-ref %build-inputs "unzip")
5369 "/bin/unzip"))
5370 (patch (string-append (assoc-ref %build-inputs "patch")
5371 "/bin/patch"))
5372 (bash (string-append (assoc-ref %build-inputs "bash")
5373 "/bin/bash"))
5374 (love (string-append (assoc-ref %build-inputs "love")
5375 "/bin/love")))
5376
5377 (mkdir-p (dirname script))
5378 (with-output-to-file script
5379 (lambda ()
5380 (format #t "#!~a~%" bash)
5381 (format #t "exec -a ~a \"~a\" \"~a\"~%" ,name love data)))
5382 (chmod script #o755)
5383
5384 ;; The better way to package this game would be to install *only* the
5385 ;; script above, pointing to the unextracted .love file in the store.
5386 ;; However, mrrescue 1.02e needs to be patched to work with Love 11.
5387 ;; Instead of extracting the .love file, patching it, and re-zipping
5388 ;; it to the store, simply point the script to the extracted patched
5389 ;; data directory directly.
5390 (mkdir-p data)
5391 (with-directory-excursion data
5392 (invoke unzip source)
5393 (invoke patch "-p1" "-i"
5394 (assoc-ref %build-inputs "love-11.patch")))
5395 #t))))
5396 (native-inputs
5397 `(("unzip" ,unzip)
5398 ("patch" ,patch)
5399 ("love-11.patch" ,(search-patch "mrrescue-support-love-11.patch"))))
5400 (inputs
5401 `(("bash" ,bash)
5402 ("love" ,love)))
5403 (home-page "https://tangramgames.dk/games/mrrescue")
5404 (synopsis "Arcade-style fire fighting game")
5405 (description
5406 "Mr. Rescue is an arcade styled 2d action game centered around evacuating
5407 civilians from burning buildings. The game features fast-paced fire
5408 extinguishing action, intense boss battles, a catchy soundtrack, and lots of
5409 throwing people around in pseudo-randomly generated buildings.")
5410 (license (list license:zlib ; for source code
5411 license:cc-by-sa3.0)))) ; for graphics and music assets
5412
5413 (define-public hyperrogue
5414 (package
5415 (name "hyperrogue")
5416 (version "11.3a")
5417 ;; When updating this package, be sure to update the "hyperrogue-data"
5418 ;; origin in native-inputs.
5419 (source (origin
5420 (method url-fetch)
5421 (uri (string-append
5422 "https://www.roguetemple.com/z/hyper/hyperrogue"
5423 (string-join (string-split version #\.) "")
5424 "-src.tgz"))
5425 (sha256
5426 (base32
5427 "1yxabbswq02fc5frigvs43f83m5vlxybc7n5mynkwzj2c70lfp2k"))))
5428 (build-system gnu-build-system)
5429 (arguments
5430 `(#:tests? #f ; no check target
5431 #:make-flags '("HYPERROGUE_USE_GLEW=1"
5432 "HYPERROGUE_USE_PNG=1")
5433 #:phases
5434 (modify-phases %standard-phases
5435 (add-after 'set-paths 'set-sdl-paths
5436 (lambda* (#:key inputs #:allow-other-keys)
5437 (setenv "CPATH"
5438 (string-append (or (getenv "CPATH") "") ":"
5439 (assoc-ref inputs "sdl-union")
5440 "/include/SDL"))))
5441 (replace 'configure
5442 (lambda* (#:key inputs outputs #:allow-other-keys)
5443 (let* ((out (assoc-ref outputs "out"))
5444 (share-dir (string-append out "/share/hyperrogue"))
5445 (dejavu-dir (string-append
5446 (assoc-ref inputs "font-dejavu")
5447 "/share/fonts/truetype"))
5448 (dejavu-font "DejaVuSans-Bold.ttf")
5449 (music-file "hyperrogue-music.txt"))
5450 ;; Fix font and music paths.
5451 (substitute* "basegraph.cpp"
5452 ((dejavu-font)
5453 (string-append dejavu-dir "/" dejavu-font)))
5454 (substitute* music-file
5455 (("\\*/")
5456 (string-append share-dir "/sounds/")))
5457 (substitute* "sound.cpp"
5458 (("musicfile = \"\"")
5459 (string-append "musicfile = \""
5460 share-dir "/" music-file "\"")))
5461 ;; Disable build machine CPU optimizations and warnings treated
5462 ;; as errors.
5463 (substitute* "Makefile"
5464 (("-march=native") "")
5465 (("-Werror") "")))
5466 #t))
5467 (replace 'install
5468 (lambda* (#:key inputs outputs #:allow-other-keys)
5469 (let* ((out (assoc-ref outputs "out"))
5470 (bin (string-append out "/bin"))
5471 (share-dir (string-append out "/share/hyperrogue")))
5472 (mkdir-p bin)
5473 (install-file "hyperrogue" bin)
5474 (install-file "hyperrogue-music.txt" share-dir))
5475 #t))
5476 (add-after 'install 'install-data
5477 (lambda* (#:key inputs outputs #:allow-other-keys)
5478 (let* ((data (assoc-ref inputs "hyperrogue-data"))
5479 (out (assoc-ref outputs "out"))
5480 (sounds (string-append out "/share/hyperrogue/sounds"))
5481 (unzip (string-append (assoc-ref inputs "unzip") "/bin/unzip")))
5482 ;; Extract media license information into sounds directory.
5483 (invoke unzip "-j" data
5484 (string-append
5485 "hyperrogue"
5486 (string-join (string-split ,version #\.) "")
5487 "/sounds/credits.txt") "-d" sounds)
5488 ;; Extract sounds and music into sounds directory.
5489 (invoke "unzip" "-j" data
5490 (string-append
5491 "hyperrogue"
5492 (string-join (string-split ,version #\.) "")
5493 "/*.ogg") "-d" sounds)))))))
5494 (native-inputs
5495 `(("hyperrogue-data"
5496 ,(origin
5497 (method url-fetch)
5498 (uri
5499 (string-append
5500 "https://www.roguetemple.com/z/hyper/hyperrogue"
5501 (string-join (string-split version #\.) "")
5502 "-win.zip"))
5503 (sha256
5504 (base32
5505 "11yhbia45f1w9z0j67h9nynwjqmvakr9l6rnrmdrdkzin6lvzzj4"))))
5506 ("unzip" ,unzip)))
5507 (inputs
5508 `(("font-dejavu" ,font-dejavu)
5509 ("glew" ,glew)
5510 ("libpng" ,libpng)
5511 ("sdl-union" ,(sdl-union (list sdl
5512 sdl-gfx
5513 sdl-mixer
5514 sdl-ttf)))))
5515 (home-page "https://www.roguetemple.com/z/hyper/")
5516 (synopsis "Non-euclidean graphical rogue-like game")
5517 (description
5518 "HyperRogue is a game in which the player collects treasures and fights
5519 monsters -- rogue-like but for the fact that it is played on the hyperbolic
5520 plane and not in euclidean space.
5521
5522 In HyperRogue, the player can move through different parts of the world, which
5523 are home to particular creatures and may be subject to their own rules of
5524 \"physics\".
5525
5526 While the game can use ASCII characters to display the the classical rogue
5527 symbols, it still needs graphics to render the non-euclidean world.")
5528 (license (list license:bsd-3 ; glew.c, mtrand.*
5529 license:cc-by-sa3.0 ; music
5530 license:cc-by-sa4.0 ; sounds
5531 license:cc0
5532 license:public-domain ; direntx.*, some sounds
5533 license:zlib ; savepng.*
5534 license:gpl2+)))) ; remaining files
5535
5536 (define-public kobodeluxe
5537 (package
5538 (name "kobodeluxe")
5539 (version "0.5.1")
5540 (source (origin
5541 (method url-fetch)
5542 (uri (string-append "http://olofson.net/kobodl/download/KoboDeluxe-"
5543 version ".tar.bz2"))
5544 (sha256
5545 (base32
5546 "0b2wvdpnmaibsy419c16dfwj5kvd3pccby2aaqvm964x74592yqg"))
5547 (patches (search-patches
5548 "kobodeluxe-const-charp-conversion.patch"
5549 "kobodeluxe-enemies-pipe-decl.patch"
5550 "kobodeluxe-graphics-window-signed-char.patch"
5551 "kobodeluxe-manpage-minus-not-hyphen.patch"
5552 "kobodeluxe-midicon-segmentation-fault.patch"
5553 "kobodeluxe-paths.patch"))))
5554 (build-system gnu-build-system)
5555 (arguments
5556 '(#:configure-flags
5557 (list (string-append "CPPFLAGS=-I"
5558 (assoc-ref %build-inputs "sdl-union")
5559 "/include/SDL"))))
5560 (inputs
5561 `(("glu" ,glu)
5562 ("sdl-union" ,(sdl-union (list sdl sdl-image)))))
5563 (synopsis "Shooter with space station destruction")
5564 (description
5565 "Kobo Deluxe is an enhanced version of Akira Higuchi's XKobo graphical game
5566 for Un*x systems with X11.")
5567 (home-page "http://olofson.net/kobodl/")
5568 (license license:gpl2+)))
5569
5570 (define-public freeciv
5571 (package
5572 (name "freeciv")
5573 (version "2.6.2")
5574 (source
5575 (origin
5576 (method url-fetch)
5577 (uri (list (string-append
5578 "http://files.freeciv.org/stable/freeciv-"
5579 version ".tar.bz2")
5580 (string-append
5581 "mirror://sourceforge/freeciv/Freeciv%20"
5582 (version-major+minor version) "/" version
5583 "/freeciv-" version ".tar.bz2")))
5584 (sha256
5585 (base32 "13vc2xg1cf19rhbnr7k38b56b2hdapqymq5vma1l69kn7hyyz0b1"))))
5586 (build-system gnu-build-system)
5587 (inputs
5588 `(("curl" ,curl)
5589 ("cyrus-sasl" ,cyrus-sasl)
5590 ("gtk+" ,gtk+)
5591 ("sdl-mixer" ,sdl-mixer)
5592 ("zlib" ,zlib)))
5593 (native-inputs
5594 `(("pkg-config" ,pkg-config)))
5595 (home-page "http://www.freeciv.org/")
5596 (synopsis "Turn-based empire building strategy game")
5597 (description "Freeciv is a turn-based empire building strategy game
5598 inspired by the history of human civilization. The game commences in
5599 prehistory and your mission is to lead your tribe from the Stone Age
5600 into the Space Age.")
5601 (license license:gpl2+)))
5602
5603 (define-public no-more-secrets
5604 (package
5605 (name "no-more-secrets")
5606 (version "0.3.3")
5607 (source
5608 (origin
5609 (method git-fetch)
5610 (uri (git-reference
5611 (url "https://github.com/bartobri/no-more-secrets")
5612 (commit (string-append "v" version))))
5613 (file-name (git-file-name name version))
5614 (sha256
5615 (base32 "1zfv4qabikf8w9winsr4brxrdvs3f0d7xvydksyx8bydadsm2v2h"))))
5616 (build-system gnu-build-system)
5617 (arguments
5618 `(#:tests? #f
5619 #:make-flags (list "CC=gcc" "all-ncurses"
5620 (string-append "prefix="
5621 (assoc-ref %outputs "out")))
5622 #:phases
5623 (modify-phases %standard-phases
5624 (delete 'configure))))
5625 (inputs
5626 `(("ncurses" ,ncurses)))
5627 (home-page "https://github.com/bartobri/no-more-secrets")
5628 (synopsis "Recreation of data decryption effect in \"Sneakers\"")
5629 (description
5630 "@code{No More Secrets} provides a command line tool called \"nms\"
5631 that recreates the famous data decryption effect seen on screen in the 1992
5632 movie \"Sneakers\".
5633
5634 This command works on piped data. Pipe any ASCII or UTF-8 text to nms, and
5635 it will apply the hollywood effect, initially showing encrypted data, then
5636 starting a decryption sequence to reveal the original plaintext characters.")
5637 (license license:expat)))
5638
5639 (define-public megaglest-data
5640 (package
5641 (name "megaglest-data")
5642 (version "3.13.0")
5643 (source
5644 (origin
5645 (method url-fetch)
5646 (uri (string-append
5647 "https://github.com/MegaGlest/megaglest-data"
5648 "/releases/download/" version "/megaglest-data-"
5649 version ".tar.xz"))
5650 (sha256
5651 (base32
5652 "0ipgza33z89fw3si32iafm981f3fvm0zldvbxj29whghd2k3rpj3"))))
5653 (build-system cmake-build-system)
5654 (arguments
5655 `(#:tests? #f))
5656 (home-page "https://megaglest.org/")
5657 (synopsis "Data files for MegaGlest")
5658 (description "This package contains the data files required for MegaGlest.")
5659 (license license:cc-by-sa3.0)))
5660
5661 (define-public megaglest
5662 (package
5663 (name "megaglest")
5664 (version "3.13.0")
5665 (source
5666 (origin
5667 (method url-fetch)
5668 (uri (string-append
5669 "https://github.com/MegaGlest/megaglest-source"
5670 "/releases/download/" version "/megaglest-source-"
5671 version ".tar.xz"))
5672 (sha256
5673 (base32
5674 "1ffck3ii1wp5k3nn5p0ga06jgp7pzk4zw0xln3xim2w7qrxzdzh9"))))
5675 (build-system cmake-build-system)
5676 (inputs
5677 `(("curl" ,curl)
5678 ("fontconfig" ,fontconfig)
5679 ("ftgl" ,ftgl)
5680 ("glew" ,glew)
5681 ("libjpeg-turbo" ,libjpeg-turbo)
5682 ("megaglest-data" ,megaglest-data)
5683 ("mesa" ,mesa)
5684 ("miniupnpc" ,miniupnpc)
5685 ("openal" ,openal)
5686 ("libircclient" ,libircclient)
5687 ("libpng" ,libpng)
5688 ("libvorbis" ,libvorbis)
5689 ("lua" ,lua)
5690 ("sdl2" ,sdl2)
5691 ("wxwidgets" ,wxwidgets)))
5692 (native-inputs
5693 `(("cppunit" ,cppunit)
5694 ("pkg-config" ,pkg-config)))
5695 (arguments
5696 `(#:configure-flags
5697 (list (string-append "-DCUSTOM_DATA_INSTALL_PATH="
5698 (assoc-ref %build-inputs "megaglest-data")
5699 "/share/megaglest")
5700 "-DBUILD_MEGAGLEST_TESTS=ON")
5701 #:phases
5702 (modify-phases %standard-phases
5703 (add-after 'unpack 'fix-ini-search-path
5704 (lambda* (#:key outputs #:allow-other-keys)
5705 (substitute* "source/glest_game/global/config.cpp"
5706 (("/usr/share/megaglest/")
5707 (string-append (assoc-ref outputs "out")
5708 "/share/megaglest/"))))))
5709 #:test-target "megaglest_tests"))
5710 (home-page "https://megaglest.org/")
5711 (synopsis "3D real-time strategy (RTS) game")
5712 (description "MegaGlest is a cross-platform 3D real-time strategy (RTS)
5713 game, where you control the armies of one of seven different factions: Tech,
5714 Magic, Egypt, Indians, Norsemen, Persian or Romans.")
5715 (license license:gpl2+)))
5716
5717 (define-public freegish
5718 (let ((commit "8795cd7adc95957883f2d3465eb9036a774667a7")
5719 (revision "1"))
5720 (package
5721 (name "freegish")
5722 (version (string-append "0-" revision "." (string-take commit 9)))
5723 (source (origin
5724 (method git-fetch)
5725 (uri (git-reference
5726 (url "https://github.com/freegish/freegish")
5727 (commit commit)))
5728 (file-name (git-file-name name version))
5729 (sha256
5730 (base32
5731 "1p1zf5qqagmcpi1db2bs02cnalpy3qiymp6yzan7k1bhmv859gsx"))
5732 (modules '((guix build utils)))
5733 ;; The audio files in the "music" directory are licensed under
5734 ;; CC-BY-NC, so we delete them.
5735 (snippet
5736 '(begin
5737 (delete-file-recursively "music")
5738 #t))))
5739 (build-system cmake-build-system)
5740 (arguments
5741 `(#:tests? #f ; no tests included
5742 #:configure-flags
5743 (list "-DCMAKE_INSTALL_FHS=ON")
5744 #:phases
5745 (modify-phases %standard-phases
5746 (add-after 'unpack 'set-DATAPATH
5747 (lambda* (#:key outputs #:allow-other-keys)
5748 (substitute* "CMakeLists.txt"
5749 (("^option\\(INSTALL_FHS" line)
5750 (string-append "add_definitions(-DDATAPATH=\""
5751 (assoc-ref outputs "out") "/share/freegish\")\n"
5752 line)))
5753 #t)))))
5754 (inputs
5755 `(("sdl-union" ,(sdl-union (list sdl sdl-mixer)))
5756 ("openal" ,openal)
5757 ("libvorbis" ,libvorbis)
5758 ("libogg" ,libogg)
5759 ("mesa" ,mesa)
5760 ("libpng" ,libpng)
5761 ("zlib" ,zlib)))
5762 (home-page "https://github.com/freegish/freegish")
5763 (synopsis "Side-scrolling physics platformer with a ball of tar")
5764 (description "In FreeGish you control Gish, a ball of tar who lives
5765 happily with his girlfriend Brea, until one day a mysterious dark creature
5766 emerges from a sewer hole and pulls her below ground.")
5767 ;; The textures are available under the Expat license. All other assets
5768 ;; (including levels) are covered under CC-BY-SA or public domain. The
5769 ;; source code is under GPLv2+.
5770 (license (list license:gpl2+
5771 license:expat
5772 license:public-domain
5773 license:cc-by-sa3.0)))))
5774
5775 (define-public cdogs-sdl
5776 (package
5777 (name "cdogs-sdl")
5778 (version "0.8.0")
5779 (source
5780 (origin
5781 (method git-fetch)
5782 (uri (git-reference
5783 (url "https://github.com/cxong/cdogs-sdl")
5784 (commit version)))
5785 (file-name (git-file-name name version))
5786 (sha256
5787 (base32 "0vx37zb2iw7sfw5a2bs97ydlmb301nvy485ybdm8g46c5hn9s13c"))))
5788 (build-system cmake-build-system)
5789 (arguments
5790 `(#:configure-flags
5791 (list (string-append "-DCDOGS_DATA_DIR="
5792 (assoc-ref %outputs "out")
5793 "/share/cdogs-sdl/"))))
5794 (native-inputs
5795 `(("pkg-config" ,pkg-config)))
5796 (inputs
5797 `(("gtk+" ,gtk+)
5798 ("mesa" ,mesa)
5799 ("sdl2" ,sdl2)
5800 ("sdl2-image" ,sdl2-image)
5801 ("sdl2-mixer" ,sdl2-mixer)))
5802 (home-page "https://cxong.github.io/cdogs-sdl/")
5803 (synopsis "Classic overhead run-and-gun game")
5804 (description "C-Dogs SDL is a classic overhead run-and-gun game,
5805 supporting up to 4 players in co-op and deathmatch modes. Customize your
5806 player, choose from many weapons, and blast, slide and slash your way through
5807 over 100 user-created campaigns.")
5808 ;; GPLv2+ for code (includes files under BSD-2 and BSD-3),
5809 ;; CC0/CC-BY/CC-BY-SA for assets.
5810 (license (list license:gpl2+
5811 license:bsd-2
5812 license:bsd-3
5813 license:cc0
5814 license:cc-by3.0
5815 license:cc-by-sa3.0))))
5816
5817 (define-public kiki
5818 (package
5819 (name "kiki")
5820 (version "1.0.2")
5821 (source (origin
5822 (method url-fetch)
5823 (uri (string-append "mirror://sourceforge/kiki/kiki-src/"
5824 version "/kiki-" version "-src.tgz"))
5825 (sha256
5826 (base32
5827 "0ihjdsxbn8z3cz0gpcprafiipcqaiskgdnh1rhmw4qff8dszalbn"))
5828 (modules '((guix build utils)))
5829 (snippet
5830 '(begin
5831 (for-each delete-file (find-files "." "\\.dll$"))
5832 #t))
5833 (patches
5834 (search-patches "kiki-level-selection-crash.patch"
5835 "kiki-makefile.patch"
5836 "kiki-missing-includes.patch"
5837 "kiki-portability-64bit.patch"))))
5838 (build-system gnu-build-system)
5839 (arguments
5840 `(#:tests? #f ; there are no tests
5841 #:make-flags '("CXX=g++")
5842 #:phases
5843 (modify-phases %standard-phases
5844 (replace 'configure
5845 (lambda* (#:key inputs outputs #:allow-other-keys)
5846 (setenv "CPLUS_INCLUDE_PATH"
5847 (string-append (assoc-ref inputs "sdl-union")
5848 "/include/SDL:"
5849 (assoc-ref inputs "python")
5850 "/include/python2.7:"
5851 (or (getenv "CPLUS_INCLUDE_PATH") "")))
5852 (substitute* "src/main/main.cpp"
5853 (("#include <SDL.h>" line)
5854 (string-append line "
5855 #define K_INCLUDE_GLUT
5856 #include \"KIncludeTools.h\""))
5857 (("// initialize SDL" line)
5858 (string-append "glutInit(&argc,argv);\n" line)))
5859 (substitute* "src/main/KikiController.cpp"
5860 (("getenv\\(\"KIKI_HOME\"\\)")
5861 (string-append "\"" (assoc-ref outputs "out") "/share/kiki/\"")))
5862 (substitute* "linux/Makefile"
5863 (("CXXOPTS =" line)
5864 (string-append line " -fpermissive"))
5865 (("PYTHON_VERSION=.*") "PYTHON_VERSION=2.7")
5866 (("PYTHONHOME =.*")
5867 (string-append "PYTHONHOME = "
5868 (assoc-ref inputs "python")
5869 "/lib/python2.7/"))
5870 (("\\$\\(GLLIBS\\)" line)
5871 (string-append line " -lm -lpython2.7")))
5872 (substitute* "src/main/KikiPythonWidget.h"
5873 (("#define __KikiPythonWidget" line)
5874 (string-append line "\n#include \"KikiPython.h\"")))
5875 #t))
5876 (add-before 'build 'build-kodilib
5877 (lambda* (#:key make-flags #:allow-other-keys)
5878 (with-directory-excursion "kodilib/linux"
5879 (apply invoke "make" make-flags))))
5880 (add-after 'build-kodilib 'chdir
5881 (lambda _ (chdir "linux") #t))
5882 (replace 'install
5883 (lambda* (#:key outputs #:allow-other-keys)
5884 (let* ((out (assoc-ref outputs "out"))
5885 (bin (string-append out "/bin"))
5886 (share (string-append out "/share/kiki")))
5887 (mkdir-p bin)
5888 (mkdir-p share)
5889 (install-file "kiki" bin)
5890 (copy-recursively "../py" (string-append share "/py"))
5891 (copy-recursively "../sound" (string-append share "/sound"))
5892 #t))))))
5893 (inputs
5894 `(("glu" ,glu)
5895 ;; Kiki builds fine with freeglut 3.0.0 but segfaults on start.
5896 ("freeglut" ,freeglut-2.8)
5897 ("sdl-union" ,(sdl-union (list sdl
5898 sdl-mixer
5899 sdl-image)))
5900 ("python" ,python-2)))
5901 (native-inputs
5902 `(("swig" ,swig)))
5903 (home-page "http://kiki.sourceforge.net/")
5904 (synopsis "3D puzzle game")
5905 (description "Kiki the nano bot is a 3D puzzle game. It is basically a
5906 mixture of the games Sokoban and Kula-World. Your task is to help Kiki, a
5907 small robot living in the nano world, repair its maker.")
5908 ;; See <http://metadata.ftp-master.debian.org/changelogs/main/k/
5909 ;; kiki-the-nano-bot/kiki-the-nano-bot_1.0.2+dfsg1-4_copyright>
5910 ;; for a statement from the author.
5911 (license license:public-domain)))
5912
5913 (define-public teeworlds
5914 (package
5915 (name "teeworlds")
5916 (version "0.7.5")
5917 (source (origin
5918 (method git-fetch)
5919 (uri (git-reference
5920 (url "https://github.com/teeworlds/teeworlds")
5921 (commit version)))
5922 (file-name (git-file-name name version))
5923 (sha256
5924 (base32
5925 "169dl83q08zl4h813az8hjs4rs3dms9yjn6bnsld4fjcj0imvvc6"))
5926 (modules '((guix build utils)
5927 (ice-9 ftw)
5928 (ice-9 regex)
5929 (srfi srfi-1)
5930 (srfi srfi-26)))
5931 (snippet ; remove bundled libraries except md5
5932 '(let ((base-dir "src/engine/external/"))
5933 (for-each (compose (cut delete-file-recursively <>)
5934 (cut string-append base-dir <>))
5935 (remove (cut string-match "(^.)|(^md5$)" <>)
5936 (scandir base-dir)))
5937 #t))))
5938 (build-system gnu-build-system)
5939 (arguments
5940 `(#:tests? #f ; no tests included
5941 #:modules ((guix build gnu-build-system)
5942 (guix build utils)
5943 (srfi srfi-26))
5944 #:phases
5945 (modify-phases %standard-phases
5946 (replace 'configure
5947 (lambda* (#:key outputs #:allow-other-keys)
5948 ;; Embed path to assets.
5949 (substitute* "src/engine/shared/storage.cpp"
5950 (("#define DATA_DIR.*")
5951 (string-append "#define DATA_DIR \""
5952 (assoc-ref outputs "out")
5953 "/share/teeworlds/data"
5954 "\"")))
5955
5956 ;; Bam expects all files to have a recent time stamp.
5957 (for-each (cut utime <> 1 1)
5958 (find-files "."))
5959
5960 ;; Do not use bundled libraries.
5961 (substitute* "bam.lua"
5962 (("local json = Compile.+$")
5963 "local json = nil
5964 settings.link.libs:Add(\"jsonparser\")")
5965 (("local png = Compile.+$")
5966 "local png = nil
5967 settings.link.libs:Add(\"pnglite\")")
5968 (("local wavpack = Compile.+$")
5969 "local wavpack = nil
5970 settings.link.libs:Add(\"wavpack\")")
5971 (("if config\\.zlib\\.value == 1")
5972 "if config.zlib.value"))
5973 (substitute* "src/engine/client/graphics_threaded.cpp"
5974 (("engine/external/pnglite/pnglite\\.h")
5975 "pnglite.h"))
5976 (substitute* "src/engine/client/sound.cpp"
5977 (("engine/external/wavpack/wavpack\\.h")
5978 "wavpack/wavpack.h"))
5979 #t))
5980 (replace 'build
5981 (lambda _
5982 (invoke "bam" "-a" "-v" "conf=release")))
5983 (replace 'install
5984 (lambda* (#:key outputs #:allow-other-keys)
5985 (let* ((arch ,(system->linux-architecture
5986 (or (%current-target-system)
5987 (%current-system))))
5988 (build (string-append "build/" (if (string=? arch "i386")
5989 "x86" arch)
5990 "/release/"))
5991 (data-built (string-append build "data/"))
5992 (out (assoc-ref outputs "out"))
5993 (bin (string-append out "/bin/"))
5994 (data (string-append out "/share/teeworlds/data/")))
5995 (for-each (cut install-file <> bin)
5996 (map (cut string-append build <>)
5997 '("teeworlds" "teeworlds_srv")))
5998 (copy-recursively data-built data)
5999 #t))))))
6000 (inputs
6001 `(("freetype" ,freetype)
6002 ("glu" ,glu)
6003 ("json-parser" ,json-parser)
6004 ("mesa" ,mesa)
6005 ("pnglite" ,pnglite)
6006 ("sdl2" ,sdl2)
6007 ("sdl2-image" ,sdl2-image)
6008 ("sdl2-mixer" ,sdl2-mixer)
6009 ("wavpack" ,wavpack)
6010 ("zlib" ,zlib)))
6011 (native-inputs
6012 `(("bam" ,bam)
6013 ("python" ,python-wrapper)
6014 ("pkg-config" ,pkg-config)))
6015 (home-page "https://www.teeworlds.com")
6016 (synopsis "2D retro multiplayer shooter game")
6017 (description "Teeworlds is an online multiplayer game. Battle with up to
6018 16 players in a variety of game modes, including Team Deathmatch and Capture
6019 The Flag. You can even design your own maps!")
6020 (license license:bsd-3)))
6021
6022 (define-public enigma
6023 (package
6024 (name "enigma")
6025 (version "1.21")
6026 (source (origin
6027 (method url-fetch)
6028 (uri (string-append "mirror://sourceforge/enigma-game/"
6029 "Release%20" version "/enigma-"
6030 version ".tar.gz"))
6031 (sha256
6032 (base32
6033 "00ffh9pypj1948pg3q9sjp1nmiabh52p5c8wpg9n1dcfgl3cywnq"))))
6034 (build-system gnu-build-system)
6035 (arguments
6036 `(#:configure-flags
6037 (list "--with-system-enet")
6038 #:phases
6039 (modify-phases %standard-phases
6040 (add-after 'unpack 'fix-build-with-new-gcc
6041 (lambda _
6042 ;; Fix build with GCC6 and later by avoiding comparing ifstream
6043 ;; to NULL. Can be removed for versions > 1.21.
6044 (substitute* "src/lev/Proxy.cc"
6045 (("ifs != NULL")
6046 "ifs"))
6047 #t))
6048 (add-after 'unpack 'find-sdl
6049 (lambda _
6050 (substitute* "configure"
6051 (("SDL_ttf.h") "SDL/SDL_ttf.h"))
6052 (substitute* '("tools/ttf2bmf.cc"
6053 "lib-src/enigma-core/ecl_font.cc"
6054 "lib-src/enigma-core/ecl_video.cc"
6055 "lib-src/enigma-core/ecl_buffer.hh"
6056 "src/SoundEngine.cc"
6057 "src/SoundEngine.hh"
6058 "src/MusicManager.cc"
6059 "src/MusicManager.hh"
6060 "src/d_models.cc"
6061 "src/main.cc"
6062 "src/network.cc")
6063 (("#include \"SDL_(image|ttf|mixer|types|syswm|mutex).h\"" line header)
6064 (string-append "#include \"SDL/SDL_" header ".h\"")))
6065 (substitute* "src/main.cc"
6066 (("#include <SDL_(image|ttf|mixer).h>" line header)
6067 (string-append "#include \"SDL/SDL_" header ".h\"")))
6068 #t)))))
6069 (inputs
6070 `(("xerces-c" ,xerces-c)
6071 ("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
6072 ("curl" ,curl)
6073 ("enet" ,enet)))
6074 (native-inputs
6075 `(("pkg-config" ,pkg-config)
6076 ("imagemagick" ,imagemagick)))
6077 (home-page "https://www.nongnu.org/enigma")
6078 (synopsis "Puzzle game with a dexterity component")
6079 (description "Enigma is a puzzle game with 550 unique levels. The object
6080 of the game is to find and uncover pairs of identically colored ‘Oxyd’ stones.
6081 Simple? Yes. Easy? Certainly not! Hidden traps, vast mazes, laser beams,
6082 and most of all, countless hairy puzzles usually block your direct way to the
6083 Oxyd stones. Enigma’s game objects (and there are hundreds of them, lest you
6084 get bored) interact in many unexpected ways, and since many of them follow the
6085 laws of physics (Enigma’s special laws of physics, that is), controlling them
6086 with the mouse isn’t always trivial.")
6087 (license license:gpl2+)))
6088
6089 (define-public chroma
6090 (package
6091 (name "chroma")
6092 (version "1.17")
6093 (source (origin
6094 (method url-fetch)
6095 (uri (string-append "http://level7.org.uk/chroma/download/chroma-"
6096 version ".tar.bz2"))
6097 (sha256
6098 (base32
6099 "047sf00x71xbmi8bqrhfbmr9bk89l2gbykkqsfpw4wz6yfjscs6y"))))
6100 (build-system gnu-build-system)
6101 (arguments
6102 `(#:tests? #f ; no tests included
6103 #:configure-flags '("CFLAGS=-fgnu89-inline"))) ; fix inlines
6104 (inputs
6105 `(("sdl-union" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-ttf)))
6106 ("freetype" ,freetype)
6107 ("ncurses" ,ncurses)
6108 ("fontconfig" ,fontconfig)
6109 ("libxft" ,libxft)))
6110 (native-inputs
6111 `(("pkg-config" ,pkg-config)))
6112 (home-page "http://level7.org.uk/chroma/")
6113 (synopsis "Abstract puzzle game")
6114 (description "Chroma is an abstract puzzle game. A variety of colourful
6115 shapes are arranged in a series of increasingly complex patterns, forming
6116 fiendish traps that must be disarmed and mysterious puzzles that must be
6117 manipulated in order to give up their subtle secrets. Initially so
6118 straightforward that anyone can pick it up and begin to play, yet gradually
6119 becoming difficult enough to tax even the brightest of minds.")
6120 (license license:gpl2+)))
6121
6122 (define-public fillets-ng
6123 (package
6124 (name "fillets-ng")
6125 (version "1.0.1")
6126 (source (origin
6127 (method url-fetch)
6128 (uri (string-append "mirror://sourceforge/fillets/"
6129 "Fish%20Fillets%20-%20Next%20Generation/"
6130 version "/fillets-ng-" version ".tar.gz"))
6131 (sha256
6132 (base32
6133 "1nljp75aqqb35qq3x7abhs2kp69vjcj0h1vxcpdyn2yn2nalv6ij"))))
6134 (build-system gnu-build-system)
6135 (arguments
6136 `(#:configure-flags
6137 (list (string-append "--with-lua="
6138 (assoc-ref %build-inputs "lua")))
6139 #:make-flags
6140 (list (string-append "CFLAGS=-I"
6141 (assoc-ref %build-inputs "sdl-union")
6142 "/include/SDL")
6143 (string-append "CXXFLAGS=-I"
6144 (assoc-ref %build-inputs "sdl-union")
6145 "/include/SDL"))
6146 #:phases
6147 (modify-phases %standard-phases
6148 ;; Lua 5.1 does not provide it.
6149 (add-after 'unpack 'do-not-link-with-lualib
6150 (lambda _
6151 (substitute* "configure"
6152 (("-llualib") ""))
6153 #t))
6154 (add-after 'install 'install-data
6155 (lambda* (#:key inputs outputs #:allow-other-keys)
6156 (let ((data (string-append (assoc-ref outputs "out")
6157 "/share/games/fillets-ng")))
6158 (mkdir-p data)
6159 (invoke "tar" "-xvf"
6160 (assoc-ref inputs "fillets-ng-data")
6161 "--strip-components=1"
6162 "-C" data)))))))
6163 (inputs
6164 `(("sdl-union" ,(sdl-union (list sdl
6165 sdl-mixer
6166 sdl-image
6167 sdl-ttf)))
6168 ("fribidi" ,fribidi)
6169 ("libx11" ,libx11)
6170 ("lua" ,lua-5.1)))
6171 (native-inputs
6172 `(("pkg-config" ,pkg-config)
6173 ("fillets-ng-data"
6174 ,(origin
6175 (method url-fetch)
6176 (uri (string-append "mirror://sourceforge/fillets/"
6177 "Fish%20Fillets%20-%20Next%20Generation/"
6178 version "/fillets-ng-data-" version ".tar.gz"))
6179 (sha256
6180 (base32
6181 "169p0yqh2gxvhdilvjc2ld8aap7lv2nhkhkg4i1hlmgc6pxpkjgh"))))))
6182 (home-page "http://fillets.sourceforge.net/")
6183 (synopsis "Puzzle game")
6184 (description "Fish Fillets NG is strictly a puzzle game. The goal in
6185 every of the seventy levels is always the same: find a safe way out. The fish
6186 utter witty remarks about their surroundings, the various inhabitants of their
6187 underwater realm quarrel among themselves or comment on the efforts of your
6188 fish. The whole game is accompanied by quiet, comforting music.")
6189 (license license:gpl2+)))
6190
6191 (define-public crawl
6192 (package
6193 (name "crawl")
6194 (version "0.25.0")
6195 (source
6196 (origin
6197 (method url-fetch)
6198 (uri (list
6199 ;; Older releases get moved into a versioned directory
6200 (string-append "http://crawl.develz.org/release/"
6201 (version-major+minor version) "/stone_soup-"
6202 version "-nodeps.tar.xz")
6203 ;; Only the latest release is in this directory
6204 (string-append "http://crawl.develz.org/release/stone_soup-"
6205 version "-nodeps.tar.xz")))
6206 (sha256
6207 (base32 "0rn1wjxdqw33caiwisfypm1j8cid3c9pz01ahicl17144zs29z3d"))
6208 (patches (search-patches "crawl-upgrade-saves.patch"))
6209 ;; The 0.25.0 -nodeps.tar.xz was built from an OSX machine; normally
6210 ;; apparently it's built from a Debian machine before the Debian
6211 ;; packages are made. These ._* files are binary and have the string
6212 ;; "Mac OS X" in them... removing these seems to result in compilation
6213 ;; again.
6214 (modules '((guix build utils)))
6215 (snippet
6216 '(begin
6217 (for-each delete-file (find-files "." "^\\._"))
6218 #t))))
6219 (build-system gnu-build-system)
6220 (inputs
6221 `(("lua51" ,lua-5.1)
6222 ("ncurses" ,ncurses)
6223 ("sqlite" ,sqlite)
6224 ("zlib" ,zlib)))
6225 (native-inputs
6226 `(("bison" ,bison)
6227 ("flex" ,flex)
6228 ("perl" ,perl)
6229 ("python" ,python-wrapper)
6230 ("python-pyyaml" ,python-pyyaml)
6231 ("pkg-config" ,pkg-config)))
6232 (arguments
6233 `(#:make-flags
6234 (let* ((sqlite (assoc-ref %build-inputs "sqlite"))
6235 (out (assoc-ref %outputs "out")))
6236 (list (string-append "SQLITE_INCLUDE_DIR=" sqlite "/include")
6237 (string-append "prefix=" out)
6238 "SAVEDIR=~/.crawl"
6239 ;; Don't compile with SSE on systems which don't have it.
6240 ,@(match (%current-system)
6241 ((or "i686-linux" "x86_64-linux")
6242 '())
6243 (_ '("NOSSE=TRUE")))
6244 ;; don't build any bundled dependencies
6245 "BUILD_LUA="
6246 "BUILD_SQLITE="
6247 "BUILD_ZLIB="
6248 "-Csource"))
6249 #:phases
6250 (modify-phases %standard-phases
6251 (add-after 'unpack 'find-SDL-image
6252 (lambda _
6253 (substitute* "source/windowmanager-sdl.cc"
6254 (("SDL_image.h") "SDL2/SDL_image.h"))
6255 #t))
6256 (delete 'configure)
6257 (replace 'check
6258 (lambda* (#:key inputs outputs make-flags #:allow-other-keys)
6259 (setenv "HOME" (getcwd))
6260 ;; Fake a terminal for the test cases.
6261 (setenv "TERM" "xterm-256color")
6262 ;; Run the tests that don't require a debug build.
6263 (apply invoke "make" "nondebugtest"
6264 (format #f "-j~d" (parallel-job-count))
6265 ;; Force command line build for test cases.
6266 (append make-flags '("GAME=crawl" "TILES="))))))))
6267 (synopsis "Roguelike dungeon crawler game")
6268 (description "Dungeon Crawl Stone Soup (also known as \"Crawl\" or DCSS
6269 for short) is a roguelike adventure through dungeons filled with dangerous
6270 monsters in a quest to find the mystifyingly fabulous Orb of Zot.")
6271 (home-page "https://crawl.develz.org")
6272 (license (list license:gpl2+
6273 license:bsd-2
6274 license:bsd-3
6275 license:cc0
6276 license:expat
6277 license:zlib
6278 license:asl2.0))))
6279
6280 ;; The linter here claims that patch file names should start with the package
6281 ;; name. But, in this case, the patches are inherited from crawl with the
6282 ;; "crawl-" prefix instead of "crawl-tiles-".
6283 (define-public crawl-tiles
6284 (package
6285 (inherit crawl)
6286 (name "crawl-tiles")
6287 (arguments
6288 (substitute-keyword-arguments
6289 (package-arguments crawl)
6290 ((#:make-flags flags)
6291 `(let ((dejavu (assoc-ref %build-inputs "font-dejavu")))
6292 (cons*
6293 (string-append "PROPORTIONAL_FONT=" dejavu
6294 "/share/fonts/truetype/DejaVuSans.ttf")
6295 (string-append "MONOSPACED_FONT=" dejavu
6296 "/share/fonts/truetype/DejaVuSansMono.ttf")
6297 "TILES=y"
6298 ;; Rename the executable to allow parallel installation with crawl.
6299 "GAME=crawl-tiles"
6300 ,flags)))))
6301 (inputs
6302 `(,@(package-inputs crawl)
6303 ("font-dejavu" ,font-dejavu)
6304 ("freetype6" ,freetype)
6305 ("glu" ,glu)
6306 ("libpng" ,libpng)
6307 ("sdl2" ,sdl2)
6308 ("sdl2-image" ,sdl2-image)
6309 ("sdl2-mixer" ,sdl2-mixer)))
6310 (native-inputs
6311 `(,@(package-native-inputs crawl)
6312 ("pngcrush" ,pngcrush)
6313 ("which" ,which)))
6314 (synopsis "Graphical roguelike dungeon crawler game")))
6315
6316 (define-public lugaru
6317 (package
6318 (name "lugaru")
6319 (version "1.2")
6320 (source (origin
6321 (method url-fetch)
6322 (uri (string-append "https://bitbucket.org/osslugaru/lugaru/downloads/"
6323 "lugaru-" version ".tar.xz"))
6324 (sha256
6325 (base32
6326 "15zgcshy22q51rm72zi6y9z7qlgnz5iw3gczjdlir4bqmxy4gspk"))))
6327 (build-system cmake-build-system)
6328 (arguments
6329 `(#:configure-flags
6330 (list "-DSYSTEM_INSTALL=ON")
6331 ;; no test target
6332 #:tests? #f))
6333 (native-inputs
6334 `(("pkg-config" ,pkg-config)))
6335 (inputs
6336 `(("sdl2" ,sdl2)
6337 ("glu" ,glu)
6338 ("libjpeg" ,libjpeg-turbo)
6339 ("libpng" ,libpng)
6340 ("openal" ,openal)
6341 ("vorbis" ,libvorbis)
6342 ("zlib" ,zlib)))
6343 (home-page "https://osslugaru.gitlab.io")
6344 (synopsis "Cross-platform third-person action game")
6345 (description "Lugaru is a third-person action game. The main character,
6346 Turner, is an anthropomorphic rebel bunny rabbit with impressive combat skills.
6347 In his quest to find those responsible for slaughtering his village, he uncovers
6348 a far-reaching conspiracy involving the corrupt leaders of the rabbit republic
6349 and the starving wolves from a nearby den. Turner takes it upon himself to
6350 fight against their plot and save his fellow rabbits from slavery.")
6351 (license (list license:gpl2+ ; code
6352 ;; assets:
6353 license:cc-by-sa3.0
6354 license:cc-by-sa4.0))))
6355
6356 (define-public 0ad-data
6357 (package
6358 (name "0ad-data")
6359 (version "0.0.23b-alpha")
6360 (source
6361 (origin
6362 (method url-fetch)
6363 (uri (string-append "https://releases.wildfiregames.com/0ad-"
6364 version "-unix-data.tar.xz"))
6365 (file-name (string-append name "-" version ".tar.xz"))
6366 (sha256
6367 (base32
6368 "04x7729hk6zw1xj3n4s4lvaviijsnbjf5rhzvjxlr5fygvg4l6z1"))
6369 (modules '((guix build utils)))
6370 (snippet
6371 #~(begin
6372 (for-each (lambda (name)
6373 (let* ((dir (string-append "binaries/data/mods/" name))
6374 (file (string-append dir "/" name ".zip"))
6375 (unzip #$(file-append unzip "/bin/unzip")))
6376 (invoke unzip "-d" dir file)
6377 (delete-file file)))
6378 '("mod" "public"))
6379 #t))))
6380 (build-system trivial-build-system)
6381 (native-inputs `(("tar" ,tar)
6382 ("xz" ,xz)))
6383 (arguments
6384 `(#:modules ((guix build utils))
6385 #:builder
6386 (begin
6387 (use-modules (guix build utils))
6388 (let ((out (assoc-ref %outputs "out"))
6389 (source (assoc-ref %build-inputs "source"))
6390 (tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
6391 (xz-path (string-append (assoc-ref %build-inputs "xz") "/bin")))
6392 (setenv "PATH" xz-path)
6393 (mkdir out)
6394 (invoke tar "xvf" source "-C" out "--strip=3")))))
6395 (synopsis "Data files for 0ad")
6396 (description "0ad-data provides the data files required by the game 0ad.")
6397 (home-page "https://play0ad.com")
6398 (license (list (license:fsdg-compatible
6399 "http://tavmjong.free.fr/FONTS/ArevCopyright.txt"
6400 "Similar to the license of the Bitstream Vera fonts.")
6401 (license:fsdg-compatible
6402 "https://www.gnome.org/fonts/#Final_Bitstream_Vera_Fonts")
6403 license:cc-by-sa3.0
6404 license:expat
6405 license:gfl1.0
6406 license:gpl2+
6407 license:gpl3+))))
6408
6409 (define-public 0ad
6410 (package
6411 (name "0ad")
6412 (version "0.0.23b-alpha")
6413 (source
6414 (origin
6415 (method url-fetch)
6416 (uri (string-append "https://releases.wildfiregames.com/0ad-"
6417 version "-unix-build.tar.xz"))
6418 (file-name (string-append name "-" version ".tar.xz"))
6419 (sha256
6420 (base32
6421 "0draa53xg69i5qhqym85658m45xhwkbiimaldj4sr3703rjgggq1"))))
6422 ;; A snippet here would cause a build failure because of timestamps
6423 ;; reset. See https://bugs.gnu.org/26734.
6424 (inputs
6425 `(("0ad-data" ,0ad-data)
6426 ("curl" ,curl)
6427 ("enet" ,enet)
6428 ("gloox" ,gloox)
6429 ("icu4c" ,icu4c)
6430 ("libpng" ,libpng)
6431 ("libsodium" ,libsodium)
6432 ("libvorbis" ,libvorbis)
6433 ("libxcursor" ,libxcursor)
6434 ("libxml2" ,libxml2)
6435 ("miniupnpc" ,miniupnpc)
6436 ("mozjs-38" ,mozjs-38)
6437 ("openal" ,openal)
6438 ("sdl2" ,sdl2)
6439 ("wxwidgets" ,wxwidgets)
6440 ("zlib" ,zlib)))
6441 (native-inputs
6442 `(("boost" ,boost)
6443 ("cmake" ,cmake-minimal)
6444 ("mesa" ,mesa)
6445 ("pkg-config" ,pkg-config)
6446 ("python-2" ,python-2)))
6447 (build-system gnu-build-system)
6448 (arguments
6449 `(#:make-flags '("config=release" "verbose=1" "-C" "build/workspaces/gcc")
6450 #:phases
6451 (modify-phases %standard-phases
6452 (add-after 'unpack 'delete-bundles
6453 (lambda _
6454 (delete-file-recursively "libraries/source/spidermonkey")
6455 #t))
6456 (add-after 'unpack 'fix-x11-includes
6457 (lambda _
6458 (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
6459 (("<Xlib.h>") "<X11/Xlib.h>"))
6460 (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
6461 (("<Xatom.h>") "<X11/Xatom.h>"))
6462 (substitute* "source/lib/sysdep/os/unix/x/x.cpp"
6463 (("<Xcursor/Xcursor.h>") "<X11/Xcursor/Xcursor.h>"))
6464 #t))
6465 (replace 'configure
6466 (lambda* (#:key inputs outputs #:allow-other-keys)
6467 (let* ((jobs (number->string (parallel-job-count)))
6468 (out (assoc-ref outputs "out"))
6469 (lib (string-append out "/lib"))
6470 (data (string-append out "/share/0ad")))
6471 (setenv "JOBS" (string-append "-j" jobs))
6472 (setenv "CC" "gcc")
6473 (with-directory-excursion "build/workspaces"
6474 (invoke "./update-workspaces.sh"
6475 (string-append "--libdir=" lib)
6476 (string-append "--datadir=" data)
6477 ;; TODO: "--with-system-nvtt"
6478 "--with-system-mozjs38")))))
6479 (delete 'check)
6480 (replace 'install
6481 (lambda* (#:key inputs outputs #:allow-other-keys)
6482 (chdir "binaries")
6483 (let* ((out (assoc-ref outputs "out"))
6484 (bin (string-append out "/bin"))
6485 (lib (string-append out "/lib"))
6486 (data (string-append out "/share/0ad"))
6487 (applications (string-append out "/share/applications"))
6488 (pixmaps (string-append out "/share/pixmaps"))
6489 (0ad-data (assoc-ref inputs "0ad-data")))
6490 ;; data
6491 (copy-recursively "data" data)
6492 (for-each (lambda (file)
6493 (symlink (string-append 0ad-data "/" file)
6494 (string-append data "/" file)))
6495 '("config" "mods/mod" "mods/public" "tools"))
6496 ;; libraries
6497 (for-each (lambda (file)
6498 (install-file file lib))
6499 (find-files "system" "\\.so$"))
6500 ;; binaries
6501 (install-file "system/pyrogenesis" bin)
6502 (with-directory-excursion bin
6503 (symlink "pyrogenesis" "0ad"))
6504 ;; resources
6505 (with-directory-excursion "../build/resources"
6506 (install-file "0ad.desktop" applications)
6507 (install-file "0ad.png" pixmaps))
6508 #t)))
6509 (add-after 'install 'check
6510 (lambda _
6511 (with-directory-excursion "system"
6512 (invoke "./test")))))))
6513 (home-page "https://play0ad.com")
6514 (synopsis "3D real-time strategy game of ancient warfare")
6515 (description "0 A.D. is a real-time strategy (RTS) game of ancient
6516 warfare. It's a historically-based war/economy game that allows players to
6517 relive or rewrite the history of twelve ancient civilizations, each depicted
6518 at their peak of economic growth and military prowess.
6519
6520 0ad needs a window manager that supports 'Extended Window Manager Hints'.")
6521 (license (list license:bsd-2
6522 license:bsd-3
6523 license:expat
6524 license:gpl2+
6525 license:ibmpl1.0
6526 license:isc
6527 license:lgpl2.1
6528 license:lgpl3
6529 license:mpl2.0
6530 license:zlib))))
6531
6532 (define-public open-adventure
6533 (package
6534 (name "open-adventure")
6535 (version "1.9")
6536 (source
6537 (origin
6538 (method git-fetch)
6539 (uri (git-reference
6540 (url "https://gitlab.com/esr/open-adventure")
6541 (commit version)))
6542 (file-name (git-file-name name version))
6543 (sha256
6544 (base32 "123svzy7xczdklx6plbafp22yv9bcvwfibjk0jv2c9i22dfsr07f"))))
6545 (build-system gnu-build-system)
6546 (arguments
6547 `(#:make-flags (list "CC=gcc")
6548 #:phases
6549 (modify-phases %standard-phases
6550 (delete 'configure) ;no configure script
6551 (add-before 'build 'use-echo
6552 (lambda _
6553 (substitute* "tests/Makefile"
6554 (("/bin/echo") (which "echo")))
6555 #t))
6556 (add-after 'build 'build-manpage
6557 (lambda _
6558 ;; This target is missing a dependency
6559 (substitute* "Makefile"
6560 ((".adoc.6:" line)
6561 (string-append line " advent.adoc")))
6562 (invoke "make" ".adoc.6")))
6563 ;; There is no install target.
6564 (replace 'install
6565 (lambda* (#:key outputs #:allow-other-keys)
6566 (let* ((out (assoc-ref outputs "out"))
6567 (bin (string-append out "/bin"))
6568 (man (string-append out "/share/man/man6")))
6569 (install-file "advent" bin)
6570 (install-file "advent.6" man))
6571 #t)))))
6572 (native-inputs
6573 `(("asciidoc" ,asciidoc)
6574 ("libedit" ,libedit)
6575 ("pkg-config" ,pkg-config)
6576 ("python" ,python-wrapper)
6577 ("python-pyyaml" ,python-pyyaml)))
6578 (home-page "https://gitlab.com/esr/open-adventure")
6579 (synopsis "Colossal Cave Adventure")
6580 (description
6581 "The original Colossal Cave Adventure from 1976 was the origin of all
6582 text adventures, dungeon-crawl (computer) games, and computer-hosted
6583 roleplaying games. This is a forward port of the last version released by
6584 Crowther & Woods, its original authors, in 1995. It has been known as
6585 ``adventure 2.5'' and ``430-point adventure''.")
6586 (license license:bsd-2)))
6587
6588 (define-public open-adventure-2.5
6589 (package
6590 (inherit open-adventure)
6591 (version "2.5")
6592 (properties `((superseded . ,open-adventure)))))
6593
6594 (define-public tome4
6595 (package
6596 (name "tome4")
6597 (version "1.7.2")
6598 (synopsis "Single-player, RPG roguelike game set in the world of Eyal")
6599 (source
6600 (origin
6601 (method url-fetch)
6602 (uri (string-append "https://te4.org/dl/t-engine/t-engine4-src-"
6603 version ".tar.bz2"))
6604 (sha256
6605 (base32 "1xa0pdn9pggwf7hnqb87ya2qxqhjahkdjwf8cr2y01gixgrkj9lv"))
6606 (modules '((guix build utils)))
6607 (snippet
6608 '(begin
6609 (substitute* '("src/music.h" "src/tSDL.h")
6610 (("#elif defined(__FreeBSD__)" line)
6611 (string-append
6612 line " || defined(__GNUC__)")))
6613 (substitute* '("src/tgl.h")
6614 (("#include <GL/glext.h>") ""))
6615 #t))))
6616 (build-system gnu-build-system)
6617 (native-inputs
6618 `(("unzip" ,unzip)))
6619 (inputs
6620 `(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
6621 ("glu" ,glu)
6622 ("premake4" ,premake4)
6623 ("openal" ,openal)
6624 ("vorbis" ,libvorbis)
6625 ("luajit" ,luajit)))
6626 (arguments
6627 `(#:make-flags
6628 (list (string-append "CC=" ,(cc-for-target))
6629 "config=release")
6630 ;; XXX: Building in parallel occasionally causes this build failure:
6631 ;; ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h:
6632 ;; No such file or directory
6633 #:parallel-build? #f
6634 #:phases (modify-phases %standard-phases
6635 (delete 'bootstrap)
6636 (replace 'configure
6637 (lambda _
6638 (invoke "premake4" "gmake")
6639 #t))
6640 (add-after 'set-paths 'set-sdl-paths
6641 (lambda* (#:key inputs #:allow-other-keys)
6642 (setenv "CPATH"
6643 (string-append (assoc-ref inputs "sdl-union")
6644 "/include/SDL2:"
6645 (or (getenv "CPATH") "")))
6646 #t))
6647 (delete 'check)
6648 ;; premake doesn't provide install target
6649 (replace 'install
6650 (lambda* (#:key inputs outputs #:allow-other-keys)
6651 (let* ((out (assoc-ref outputs "out"))
6652 (usr (string-append out "/usr"))
6653 (bin (string-append out "/bin"))
6654 (licenses (string-append out "/share/licenses"))
6655 (documents (string-append out "/share/doc"))
6656 (pixmaps (string-append out "/share/pixmaps"))
6657 (icon "te4-icon.png")
6658 (data (string-append out "/share/" ,name))
6659 (applications (string-append
6660 out "/share/applications"))
6661 (unzip (string-append
6662 (assoc-ref inputs "unzip") "/bin/unzip"))
6663 (wrapper (string-append bin "/" ,name)))
6664 ;; icon
6665 (mkdir-p pixmaps)
6666 (invoke unzip "-j"
6667 (string-append
6668 "game/engines/te4-" ,version ".teae")
6669 (string-append
6670 "data/gfx/" icon) "-d" pixmaps)
6671 ;; game executable
6672 (install-file "t-engine" data)
6673 (mkdir-p bin)
6674 (with-output-to-file wrapper
6675 (lambda ()
6676 (display
6677 (string-append
6678 "#!/bin/sh\n"
6679 ;; No bootstrap code found,
6680 ;; defaulting to working directory
6681 ;; for engine code!
6682 "cd " data "\n"
6683 "exec -a tome4 ./t-engine \"$@\"\n"))))
6684 (chmod wrapper #o555)
6685 ;; licenses
6686 (for-each (lambda (file)
6687 (install-file file licenses))
6688 '("COPYING" "COPYING-MEDIA"))
6689 ;; documents
6690 (for-each (lambda (file)
6691 (install-file file documents))
6692 '("CONTRIBUTING" "CREDITS"))
6693 ;; data
6694 (copy-recursively "bootstrap" (string-append
6695 data "/bootstrap"))
6696 (copy-recursively "game" (string-append data "/game"))
6697 ;; launcher
6698 (mkdir-p applications)
6699 (make-desktop-entry-file
6700 (string-append applications "/" ,name ".desktop")
6701 #:name "ToME4"
6702 #:comment ,synopsis
6703 #:exec ,name
6704 #:icon icon
6705 #:categories '("Game" "RolePlaying")))
6706 #t)))))
6707 (home-page "https://te4.org")
6708 (description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based
6709 combat and advanced character building. Play as one of many unique races and
6710 classes in the lore-filled world of Eyal, exploring random dungeons, facing
6711 challenging battles, and developing characters with your own tailored mix of
6712 abilities and powers. With a modern graphical and customisable interface,
6713 intuitive mouse control, streamlined mechanics and deep, challenging combat,
6714 Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
6715 (license license:gpl3+)))
6716
6717 (define-public quakespasm
6718 (package
6719 (name "quakespasm")
6720 (version "0.93.2")
6721 (source
6722 (origin
6723 (method url-fetch)
6724 (uri (string-append "mirror://sourceforge/quakespasm/Source/quakespasm-"
6725 version ".tgz"))
6726 (sha256
6727 (base32 "0qm0j5drybvvq8xadfyppkpk3rxqsxbywzm6iwsjwdf0iia3gss5"))))
6728 (arguments
6729 `(#:tests? #f
6730 #:make-flags '("CC=gcc"
6731 "MP3LIB=mpg123"
6732 "USE_CODEC_FLAC=1"
6733 "USE_CODEC_MIKMOD=1"
6734 "USE_SDL2=1"
6735 "-CQuake")
6736 #:phases (modify-phases %standard-phases
6737 (delete 'configure)
6738 (add-after 'unpack 'fix-makefile-paths
6739 (lambda* (#:key outputs #:allow-other-keys)
6740 (let ((out (assoc-ref outputs "out")))
6741 (mkdir-p (string-append out "/bin"))
6742 (substitute* "Quake/Makefile"
6743 (("/usr/local/games")
6744 (string-append out "/bin")))
6745 #t))))))
6746 (build-system gnu-build-system)
6747 (inputs `(("libmikmod" ,libmikmod)
6748 ("libvorbis" ,libvorbis)
6749 ("flac" ,flac)
6750 ("mesa" ,mesa)
6751 ("mpg123" ,mpg123)
6752 ("sdl2" ,sdl2)))
6753 (synopsis "First person shooter engine for Quake 1")
6754 (description "Quakespasm is a modern engine for id software's Quake 1.
6755 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
6756 some graphical niceities, and numerous bug-fixes and other improvements.")
6757 (home-page "http://quakespasm.sourceforge.net/")
6758 (license license:gpl2+)))
6759
6760 (define-public vkquake
6761 (package
6762 (inherit quakespasm)
6763 (name "vkquake")
6764 (version "1.01.0")
6765 (source
6766 (origin
6767 (method git-fetch)
6768 (uri (git-reference
6769 (url "https://github.com/Novum/vkQuake")
6770 (commit version)))
6771 (file-name (git-file-name name version))
6772 (sha256
6773 (base32 "1iwin8j5kbyrknbkhjgpy8nmm7pxqzr0daa9gn7p38qhg2mh0a39"))))
6774 (arguments
6775 `(#:make-flags
6776 (let ((vulkanlib (string-append (assoc-ref %build-inputs
6777 "vulkan-loader") "/lib")))
6778 (list "CC=gcc"
6779 "MP3LIB=mpg123"
6780 "USE_CODEC_FLAC=1"
6781 "USE_CODEC_MIKMOD=1"
6782 "USE_SDL2=1"
6783 (string-append "LDFLAGS=-Wl,-rpath=" vulkanlib)
6784 "-CQuake"))
6785 #:phases (modify-phases %standard-phases
6786 (add-after 'unpack 'patch-for-new-vulkan
6787 (lambda _
6788 ;; Mimic upstream commit a869a22d9b51c68e for
6789 ;; compatibility with newer vulkan-headers.
6790 (substitute* "Quake/gl_rmisc.c"
6791 (("VK_DYNAMIC_STATE_RANGE_SIZE")
6792 "3"))
6793 #t))
6794 (delete 'configure)
6795 (add-after 'unpack 'fix-makefile-paths
6796 (lambda* (#:key outputs #:allow-other-keys)
6797 (let ((vulkan (assoc-ref %build-inputs
6798 "vulkan-loader"))
6799 (out (assoc-ref outputs "out")))
6800 (mkdir-p (string-append out "/bin"))
6801 (substitute* "Quake/Makefile" ((" /usr")
6802 (string-append " " out)))
6803 (substitute* "Quake/Makefile" (("/games")
6804 (string-append "/bin")))
6805 (substitute* "Quake/Makefile" (("..VULKAN_SDK.") vulkan))
6806 #t))))
6807 ,@(strip-keyword-arguments '(#:make-flags #:phases)
6808 (package-arguments quakespasm))))
6809 (inputs `(("vulkan-headers" ,vulkan-headers)
6810 ("vulkan-loader" ,vulkan-loader)
6811 ,@(package-inputs quakespasm)))
6812 (description "vkquake is a modern engine for id software's Quake 1.
6813 It includes support for 64 bit CPUs, custom music playback, a new sound driver,
6814 some graphical niceities, and numerous bug-fixes and other improvements.")
6815 (home-page "https://github.com/Novum/vkQuake")))
6816
6817 (define-public yamagi-quake2
6818 (package
6819 (name "yamagi-quake2")
6820 (version "7.10")
6821 (source
6822 (origin
6823 (method url-fetch)
6824 (uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
6825 version ".tar.xz"))
6826 (sha256
6827 (base32
6828 "0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
6829 (build-system gnu-build-system)
6830 (arguments
6831 `(#:tests? #f
6832 #:make-flags
6833 (list "CC=gcc"
6834 ;; link openAL instead of using dlopen at runtime
6835 "DLOPEN_OPENAL=\"no\""
6836 ;; an optional directory where it will look for quake2 data files
6837 ;; in addition to the current working directory
6838 "WITH_SYSTEMWIDE=yes"
6839 "WITH_SYSTEMDIR=\"/opt/quake2\"")
6840 #:phases
6841 (modify-phases %standard-phases
6842 (delete 'configure)
6843 (replace 'install
6844 (lambda* (#:key outputs #:allow-other-keys)
6845 (let ((out (assoc-ref outputs "out")))
6846 (mkdir-p (string-append out "/lib"))
6847 (mkdir-p (string-append out "/bin"))
6848 ;; The yamagi-quake2 binary must be in the same directory
6849 ;; as it's engine libraries, but symlinking it to /bin is okay
6850 ;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
6851 (copy-recursively "release"
6852 (string-append out "/lib/yamagi-quake2"))
6853 (symlink (string-append out "/lib/yamagi-quake2/quake2")
6854 (string-append out "/bin/yamagi-quake2"))
6855 (symlink (string-append out "/lib/yamagi-quake2/q2ded")
6856 (string-append out "/bin/yamagi-q2ded"))))))))
6857 (inputs `(("sdl2" ,sdl2)
6858 ("mesa" ,mesa)
6859 ("libvorbis" ,libvorbis)
6860 ("zlib" ,zlib)
6861 ("openal" ,openal)))
6862 (native-inputs `(("pkg-config" ,pkg-config)))
6863 (synopsis "First person shooter engine based on quake2")
6864 (description "Yamagi Quake II is an enhanced client for id Software's Quake II.
6865 The main focus is an unchanged single player experience like back in 1997,
6866 thus the gameplay and the graphics are unaltered. However the user may use one
6867 of the unofficial retexturing packs. In comparison with the official client,
6868 over 1000 bugs were fixed and an extensive code audit done,
6869 making Yamagi Quake II one of the most solid Quake II implementations available.")
6870 (home-page "https://www.yamagi.org/quake2/")
6871 (license (list license:gpl2+ ; game and server
6872 (license:non-copyleft ; info-zip
6873 "file://LICENSE"
6874 "See Info-Zip section.")
6875 license:public-domain)))) ; stb
6876
6877 (define-public nudoku
6878 (package
6879 (name "nudoku")
6880 (version "1.0.0")
6881 (source (origin
6882 (method url-fetch)
6883 (uri (string-append "https://github.com/jubalh/nudoku/"
6884 "releases/download/" version
6885 "/nudoku-" version ".tar.xz"))
6886 (sha256
6887 (base32
6888 "0nr2j2z07nxk70s8xnmmpzccxicf7kn5mbwby2kg6aq8paarjm8k"))))
6889 (build-system gnu-build-system)
6890 (inputs `(("ncurses" ,ncurses)))
6891 (home-page "https://jubalh.github.io/nudoku/")
6892 (synopsis "Sudoku for your terminal")
6893 (description "Nudoku is a ncurses-based Sudoku game for your terminal.")
6894 (license license:gpl3+)))
6895
6896 (define-public the-butterfly-effect
6897 (package
6898 (name "the-butterfly-effect")
6899 (version "0.9.3.1")
6900 (source
6901 (origin
6902 (method git-fetch)
6903 (uri (git-reference
6904 (url "https://github.com/the-butterfly-effect/tbe")
6905 (commit (string-append "v" version))))
6906 (file-name (git-file-name name version))
6907 (sha256
6908 (base32
6909 "1ag2cp346f9bz9qy6za6q54id44d2ypvkyhvnjha14qzzapwaysj"))))
6910 (build-system gnu-build-system)
6911 (arguments
6912 `(#:phases
6913 (modify-phases %standard-phases
6914 (delete 'configure)
6915 ;; There is no "install" phase. By default, tbe is installed
6916 ;; in the build directory. Provide our own installation.
6917 (replace 'install
6918 (lambda* (#:key outputs #:allow-other-keys)
6919 (let* ((out (assoc-ref outputs "out"))
6920 (bin (string-append out "/bin"))
6921 (share (string-append out "/share")))
6922 (install-file "usr/games/tbe" bin)
6923 (mkdir-p share)
6924 (copy-recursively "usr/share" share)
6925 #t))))
6926 ;; Test suite requires a running Xorg server. Even when
6927 ;; provided, it fails with "D-Bus library appears to be
6928 ;; incorrectly set up; failed to read machine uuid: Failed to
6929 ;; open "/etc/machine-id": No such file or directory" along
6930 ;; with multiple "QPainter:: ... Painter not active" warnings.
6931 #:tests? #f))
6932 (inputs
6933 `(("qtbase" ,qtbase)
6934 ("qtsvg" ,qtsvg)))
6935 (native-inputs
6936 `(("cmake" ,cmake-minimal)
6937 ("gettext-minimal" ,gettext-minimal)
6938 ("qttools" ,qttools)))
6939 (synopsis "Realistic physics puzzle game")
6940 (description "The Butterfly Effect (tbe) is a game that uses
6941 realistic physics simulations to combine lots of simple mechanical
6942 elements to achieve a simple goal in the most complex way possible.")
6943 (home-page "http://the-butterfly-effect.org/")
6944 ;; Main license is GPL2-only. However, artwork is distributed
6945 ;; under various licenses, listed here.
6946 (license (list license:gpl2 license:public-domain license:expat
6947 license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
6948
6949 (define-public pioneer
6950 (package
6951 (name "pioneer")
6952 (version "20200203")
6953 (source (origin
6954 (method git-fetch)
6955 (uri (git-reference
6956 (url "https://github.com/pioneerspacesim/pioneer")
6957 (commit version)))
6958 (file-name (git-file-name name version))
6959 (sha256
6960 (base32
6961 "1011xsi94jhw98mhm8kryq8ajig0qfbrdx5xdasi92bd4nk7lcp8"))))
6962 (build-system cmake-build-system)
6963 (native-inputs
6964 `(("pkg-config" ,pkg-config)))
6965 (inputs
6966 `(("assimp" ,assimp)
6967 ("curl" ,curl)
6968 ("freetype" ,freetype)
6969 ("glew" ,glew)
6970 ("glu" ,glu)
6971 ("libpng" ,libpng)
6972 ("libsigc++" ,libsigc++)
6973 ("libvorbis" ,libvorbis)
6974 ("lua" ,lua-5.2) ;not compatible with 5.3
6975 ("mesa" ,mesa)
6976 ("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
6977 (arguments
6978 `(#:tests? #f ;tests are broken
6979 #:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
6980 (string-append "-DPIONEER_DATA_DIR="
6981 %output "/share/games/pioneer"))))
6982 (home-page "https://pioneerspacesim.net")
6983 (synopsis "Game of lonely space adventure")
6984 (description
6985 "Pioneer is a space adventure game set in our galaxy at the turn of the
6986 31st century. The game is open-ended, and you are free to eke out whatever
6987 kind of space-faring existence you can think of. Look for fame or fortune by
6988 exploring the millions of star systems. Turn to a life of crime as a pirate,
6989 smuggler or bounty hunter. Forge and break alliances with the various
6990 factions fighting for power, freedom or self-determination. The universe is
6991 whatever you make of it.")
6992 (license license:gpl3)))
6993
6994 (define-public badass
6995 (let ((commit "3c3cd669b4fc8f73a102e3702788f7b28dc47dbb")
6996 (revision "0"))
6997 (package
6998 (name "badass")
6999 (version (git-version "0.0" revision commit))
7000 (source (origin
7001 (method git-fetch)
7002 (uri (git-reference
7003 (url "https://github.com/umayr/badass")
7004 (commit commit)))
7005 (file-name (git-file-name name version))
7006 (sha256
7007 (base32
7008 "05c9vdcb5ym3z0n5ll3v39mw4yl9jcjnlydmn0yl89ai9pv71zb6"))))
7009 (build-system go-build-system)
7010 (arguments
7011 '(#:import-path "github.com/umayr/badass"))
7012 (synopsis "Hacking contribution graphs in git")
7013 (description
7014 "Badass generates false commits for a range of dates, essentially
7015 hacking the gamification of contribution graphs on platforms such as
7016 Github or Gitlab.")
7017 (home-page "https://github.com/umayr/badass")
7018 (license license:expat))))
7019
7020 (define-public colobot
7021 (package
7022 (name "colobot")
7023 (version "0.1.12-alpha")
7024 (source
7025 (origin
7026 (method git-fetch)
7027 (uri (git-reference
7028 (url "https://github.com/colobot/colobot")
7029 (commit (string-append "colobot-gold-" version))
7030 (recursive? #t))) ;for "data/" subdir
7031 (file-name (git-file-name name version))
7032 (sha256
7033 (base32
7034 "1c181cclkrnspgs07lvndg2c81cjq3smkv7qim8c470cj88rcrp2"))))
7035 (build-system cmake-build-system)
7036 (arguments
7037 `(#:tests? #f ;no test
7038 #:phases
7039 (modify-phases %standard-phases
7040 (add-after 'unpack 'make-git-checkout-writable
7041 (lambda _
7042 (for-each make-file-writable (find-files "."))
7043 #t))
7044 (add-after 'unpack 'fix-directories
7045 (lambda _
7046 (substitute* "CMakeLists.txt"
7047 (("(\\$\\{CMAKE_INSTALL_PREFIX\\})/games" _ prefix)
7048 (string-append prefix "/bin"))
7049 (("(\\$\\{CMAKE_INSTALL_PREFIX\\}/share)/games/colobot" _ prefix)
7050 (string-append prefix "/colobot")))
7051 #t))
7052 (add-after 'fix-directories 'install-music
7053 ;; Retrieve and install music files.
7054 (lambda* (#:key inputs #:allow-other-keys)
7055 ;; Installation process tries to download music files using
7056 ;; "wget" if not already present. Since we are going another
7057 ;; route, skip "wget" command check.
7058 (substitute* "data/music/CMakeLists.txt"
7059 (("find_program\\(WGET wget\\)") ""))
7060 ;; Populate "music/" directory.
7061 (let ((data (assoc-ref inputs "colobot-music")))
7062 (invoke "tar" "-xvf" data "-Cdata/music"))
7063 #t)))))
7064 (native-inputs
7065 `(("colobot-music"
7066 ,(origin
7067 (method url-fetch)
7068 (uri (string-append "https://colobot.info/files/music/"
7069 "colobot-music_ogg_" version ".tar.gz"))
7070 (sha256
7071 (base32
7072 "1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
7073 ("gettext" ,gettext-minimal)
7074 ("librsvg" ,librsvg)
7075 ("po4a" ,po4a)
7076 ("python" ,python-wrapper)))
7077 (inputs
7078 `(("boost" ,boost)
7079 ("glew" ,glew)
7080 ("libogg" ,libogg)
7081 ("libpng" ,libpng)
7082 ("libsndfile" ,libsndfile)
7083 ("libvorbis" ,libvorbis)
7084 ("openal" ,openal)
7085 ("physfs" ,physfs)
7086 ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-ttf)))))
7087 (synopsis "Educational programming strategy game")
7088 (description "Colobot: Gold Edition is a real-time strategy game, where
7089 you can program your units (bots) in a language called CBOT, which is similar
7090 to C++ and Java. Your mission is to find a new planet to live and survive.
7091 You can save humanity and get programming skills!")
7092 (home-page "https://colobot.info")
7093 (license license:gpl3+)))
7094
7095 (define-public gzdoom
7096 (package
7097 (name "gzdoom")
7098 (version "4.3.2")
7099 (source
7100 (origin
7101 (method git-fetch)
7102 (uri (git-reference
7103 (url "https://github.com/coelckers/gzdoom")
7104 (commit (string-append "g" version))))
7105 (file-name (git-file-name name version))
7106 (sha256
7107 (base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
7108 (patches (search-patches "gzdoom-search-in-installed-share.patch"
7109 "gzdoom-find-system-libgme.patch"))
7110 (modules '((guix build utils)))
7111 (snippet
7112 '(begin
7113 ;; Remove some bundled libraries. XXX There are more, but removing
7114 ;; them would require, at least, patching the build system.
7115 (with-directory-excursion "libraries"
7116 (delete-file-recursively "bzip2")
7117 (delete-file-recursively "game-music-emu")
7118 (delete-file-recursively "jpeg")
7119 (delete-file-recursively "zlib"))
7120 #t))))
7121 (arguments
7122 '(#:tests? #f
7123 #:configure-flags
7124 (let ((out (assoc-ref %outputs "out")))
7125 (list
7126 (string-append
7127 "-DCMAKE_CXX_FLAGS:="
7128 "-DSHARE_DIR=\\\"" out "/share/\\\" "
7129 "-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
7130
7131 ;; The build requires some extra convincing not to use the bundled
7132 ;; libgme previously deleted in the soure snippet.
7133 "-DFORCE_INTERNAL_GME=OFF"
7134
7135 ;; Link libraries at build time instead of loading them at run time.
7136 "-DDYN_OPENAL=OFF"
7137 "-DDYN_FLUIDSYNTH=OFF"
7138 "-DDYN_GTK=OFF"
7139 "-DDYN_MPG123=OFF"
7140 "-DDYN_SNDFILE=OFF"))
7141 #:phases
7142 (modify-phases %standard-phases
7143 (add-before 'configure 'fix-referenced-paths
7144 (lambda* (#:key inputs outputs #:allow-other-keys)
7145 (let ((fluid-3 (assoc-ref inputs "fluid-3"))
7146 (timidity++ (assoc-ref inputs "timidity++"))
7147 (out (assoc-ref outputs "out")))
7148
7149 (substitute*
7150 "src/CMakeLists.txt"
7151 (("COMMAND /bin/sh")
7152 (string-append "COMMAND " (which "sh"))))
7153
7154 (substitute*
7155 "libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
7156 (("/usr/share/sounds/sf2/FluidR3_GM.sf2")
7157 (string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
7158
7159 (substitute*
7160 "libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
7161 (("exename = \"timidity\"")
7162 (string-append "exename = \"" timidity++ "/bin/timidity\"")))
7163 #t))))))
7164 (build-system cmake-build-system)
7165 (inputs `(("bzip2" ,bzip2)
7166 ("fluid-3" ,fluid-3)
7167 ("fluidsynth" ,fluidsynth)
7168 ("gtk+3" ,gtk+)
7169 ("libgme" ,libgme)
7170 ("libjpeg" ,libjpeg-turbo)
7171 ("libsndfile" ,libsndfile)
7172 ("mesa" ,mesa)
7173 ("mpg123" ,mpg123)
7174 ("openal" ,openal)
7175 ("sdl2" ,sdl2)
7176 ("timidity++" ,timidity++)
7177 ("zlib" ,zlib)))
7178 (native-inputs `(("pkg-config" ,pkg-config)
7179 ("unzip" ,unzip)))
7180 (synopsis "Modern Doom 2 source port")
7181 (description "GZdoom is a port of the Doom 2 game engine, with a modern
7182 renderer. It improves modding support with ZDoom's advanced mapping features
7183 and the new ZScript language. In addition to Doom, it supports Heretic, Hexen,
7184 Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
7185 (home-page "https://zdoom.org/index")
7186 ;; The source uses x86 assembly
7187 (supported-systems '("x86_64-linux" "i686-linux"))
7188 (license (list license:gpl3+ ; gzdoom game
7189 license:lgpl3+ ; gzdoom renderer
7190 license:expat ; gdtoa
7191 (license:non-copyleft ; modified dumb
7192 "file://dumb/licence.txt"
7193 "Dumb license, explicitly GPL compatible.")))))
7194
7195 (define-public odamex
7196 (package
7197 (name "odamex")
7198 (version "0.8.3")
7199 (source
7200 (origin
7201 (method url-fetch)
7202 (uri (string-append
7203 "mirror://sourceforge/odamex/Odamex/" version "/"
7204 "odamex-src-" version ".tar.gz"))
7205 (sha256
7206 (base32 "0f887g87bmcq4dpcga7xc2mpxs947dkbc934ir9xs55gz6z13q96"))))
7207 (build-system cmake-build-system)
7208 (arguments `(#:tests? #f)) ; no tests
7209 (inputs
7210 `(("sdl" ,sdl)
7211 ("sdl-mixer" ,sdl-mixer)
7212 ("zlib" ,zlib)
7213 ("libpng" ,libpng)
7214 ("alsa-lib" ,alsa-lib)))
7215 (home-page "https://odamex.net/")
7216 (synopsis "Multiplayer Doom port")
7217 (description "Odamex is a modification of the Doom engine that
7218 allows players to easily join servers dedicated to playing Doom
7219 online.")
7220 (license license:gpl2+)))
7221
7222 (define-public chocolate-doom
7223 (package
7224 (name "chocolate-doom")
7225 (version "3.0.1")
7226 (source (origin
7227 (method url-fetch)
7228 (uri (string-append "https://www.chocolate-doom.org/downloads/"
7229 version
7230 "/chocolate-doom-"
7231 version
7232 ".tar.gz"))
7233 (sha256
7234 (base32
7235 "1iy8rx7kjvi1zjiw4zh77szzmd1sgpqajvbhprh1sj93fhbxcdfl"))))
7236 (build-system gnu-build-system)
7237 (inputs `(("sdl2-net" ,sdl2-net)
7238 ("sdl2-mixer" , sdl2-mixer)
7239 ("sdl2" ,sdl2)))
7240 (native-inputs
7241 `(("pkg-config" ,pkg-config)))
7242 (synopsis "Doom source port preserving the look, feel, and bugs of vanilla
7243 Doom")
7244 (description
7245 "Chocolate Doom takes a different approach to other source ports. Its
7246 aim is to accurately reproduce the experience of playing Vanilla Doom. It is
7247 a conservative, historically accurate Doom source port, which is compatible
7248 with the thousands of mods and levels that were made before the Doom source
7249 code was released. Rather than flashy new graphics, Chocolate Doom's main
7250 features are its accurate reproduction of the game as it was played in the
7251 1990s. The project is developed around a carefully-considered philosophy that
7252 intentionally restricts which features may be added (and rejects any that
7253 affect gameplay).")
7254 (home-page "https://www.chocolate-doom.org/wiki/index.php/Chocolate_Doom")
7255 (license license:gpl2)))
7256
7257 (define-public crispy-doom
7258 (package
7259 (inherit chocolate-doom)
7260 (name "crispy-doom")
7261 (version "5.8.0")
7262 (source (origin
7263 (method git-fetch)
7264 (uri (git-reference
7265 (url "https://github.com/fabiangreffrath/crispy-doom")
7266 (commit (string-append "crispy-doom-" version))))
7267 (file-name (git-file-name name version))
7268 (sha256
7269 (base32 "1b6gn0dysv631jynh769whww9xcss1gms78sz3nrn855q1dsvcb4"))))
7270 (native-inputs
7271 (append
7272 (package-native-inputs chocolate-doom)
7273 `(("automake" ,automake)
7274 ("autoreconf" ,autoconf))))
7275 (arguments
7276 `(#:phases
7277 (modify-phases %standard-phases
7278 (replace 'bootstrap
7279 ;; The bundled autogen.sh script unconditionally runs ./configure.
7280 (lambda _ (invoke "autoreconf" "-vif"))))))
7281 (synopsis "Limit-removing enhanced-resolution Doom source port based on
7282 Chocolate Doom")
7283 (description
7284 "Crispy Doom is a friendly fork of Chocolate Doom that provides a higher
7285 display resolution, removes the static limits of the Doom engine and offers
7286 further optional visual, tactical and physical enhancements while remaining
7287 entirely config file, savegame, netplay and demo compatible with the
7288 original.")
7289 (home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
7290
7291 (define shlomif-cmake-modules
7292 (origin
7293 (method url-fetch)
7294 (uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
7295 "raw/c505713d7a7cda608f97f01577e5868a711b883e/"
7296 "shlomif-cmake-modules/Shlomif_Common.cmake"))
7297 (sha256
7298 (base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
7299
7300 (define-public rinutils
7301 (package
7302 (name "rinutils")
7303 (version "0.2.0")
7304 (source (origin
7305 (method git-fetch)
7306 (uri (git-reference
7307 (url "https://github.com/shlomif/rinutils")
7308 (commit version)))
7309 (file-name (git-file-name name version))
7310 (sha256
7311 (base32
7312 "1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
7313 (native-inputs
7314 `(("perl" ,perl)
7315 ;; The following is only needed for tests.
7316 ("perl-file-find-object" ,perl-file-find-object)
7317 ("perl-test-differences" ,perl-test-differences)
7318 ("perl-class-xsaccessor" ,perl-class-xsaccessor)
7319 ("perl-io-all" ,perl-io-all)
7320 ("perl-test-runvalgrind" ,perl-test-runvalgrind)
7321 ("cmake-rules" ,shlomif-cmake-modules)
7322 ("pkg-config" ,pkg-config)))
7323 (inputs
7324 `(("cmocka" ,cmocka)
7325 ("perl-env-path" ,perl-env-path)
7326 ("perl-inline" ,perl-inline)
7327 ("perl-inline-c" ,perl-inline-c)
7328 ("perl-string-shellquote" ,perl-string-shellquote)
7329 ("perl-test-trailingspace" ,perl-test-trailingspace)
7330 ("perl-file-find-object-rule" ,perl-file-find-object-rule)
7331 ("perl-text-glob" ,perl-text-glob)
7332 ("perl-number-compare" ,perl-number-compare)
7333 ("perl-moo" ,perl-moo)))
7334 (arguments
7335 `(#:phases
7336 (modify-phases %standard-phases
7337 (add-after 'unpack 'fix-build-env
7338 (lambda* (#:key inputs #:allow-other-keys)
7339 (use-modules (guix build utils))
7340 (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
7341 (copy-file cmake-rules
7342 (string-append "cmake/"
7343 (strip-store-file-name cmake-rules)))
7344 #t)))
7345 (replace 'check
7346 (lambda _
7347 (with-directory-excursion "../source"
7348 (setenv "FCS_TEST_BUILD" "1")
7349 (setenv "RINUTILS_TEST_BUILD" "1")
7350 ;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
7351 ;; which requires tidy-all.
7352 ;; (setenv "RINUTILS_TEST_TIDY" "1")
7353 (invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
7354 (build-system cmake-build-system)
7355 (home-page "https://www.shlomifish.org/open-source/projects/")
7356 (synopsis "C11 / gnu11 utilities C library")
7357 (description "This package provides C11 / gnu11 utilities C library")
7358 (license license:expat)))
7359
7360 (define-public fortune-mod
7361 (package
7362 (name "fortune-mod")
7363 (version "2.28.0")
7364 (source
7365 (origin
7366 (method git-fetch)
7367 (uri (git-reference
7368 (url "https://github.com/shlomif/fortune-mod")
7369 (commit (string-append "fortune-mod-" version))))
7370 (file-name (git-file-name name version))
7371 (sha256
7372 (base32 "1ppzgnffgdcmq6fq4gmdq2ig10ip2bnfgklkb3i8nc6bdxm7pb89"))))
7373 (build-system cmake-build-system)
7374 (arguments
7375 `(#:test-target "check"
7376 #:phases
7377 (modify-phases %standard-phases
7378 (add-after 'unpack 'fix-build-env
7379 (lambda* (#:key inputs #:allow-other-keys)
7380 (use-modules (guix build utils))
7381 (let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
7382 (copy-file cmake-rules
7383 (string-append "fortune-mod/cmake/"
7384 (strip-store-file-name cmake-rules)))
7385 (chdir "fortune-mod")
7386 ;; TODO: Valgrind tests fail for some reason.
7387 ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
7388 (delete-file "tests/t/valgrind.t")
7389 #t)))
7390 (add-after 'install 'fix-install-directory
7391 (lambda* (#:key outputs #:allow-other-keys)
7392 ;; Move binary from "games/" to "bin/" and remove the latter. This
7393 ;; is easier than patching CMakeLists.txt since the tests hard-code
7394 ;; the location as well.
7395 (let* ((out (assoc-ref outputs "out"))
7396 (bin (string-append out "/bin"))
7397 (games (string-append out "/games")))
7398 (rename-file (string-append games "/fortune")
7399 (string-append bin "/fortune"))
7400 (rmdir games)
7401 #t))))))
7402 (inputs `(("recode" ,recode)))
7403 (native-inputs
7404 `(("perl" ,perl)
7405 ;; The following is only needed for tests.
7406 ("perl-file-find-object" ,perl-file-find-object)
7407 ("perl-test-differences" ,perl-test-differences)
7408 ("perl-class-xsaccessor" ,perl-class-xsaccessor)
7409 ("perl-io-all" ,perl-io-all)
7410 ("perl-test-runvalgrind" ,perl-test-runvalgrind)
7411 ("cmake-rules" ,shlomif-cmake-modules)
7412 ("rinutils" ,rinutils)))
7413 (home-page "https://www.shlomifish.org/open-source/projects/fortune-mod/")
7414 (synopsis "The Fortune Cookie program from BSD games")
7415 (description "Fortune is a command-line utility which displays a random
7416 quotation from a collection of quotes.")
7417 (license license:bsd-4)))
7418
7419 (define xonotic-data
7420 (package
7421 (name "xonotic-data")
7422 (version "0.8.2")
7423 (source
7424 (origin
7425 (method url-fetch)
7426 (uri (string-append "http://dl.xonotic.org/xonotic-"
7427 version ".zip"))
7428 (file-name (string-append name "-" version ".zip"))
7429 (sha256
7430 (base32
7431 "1mcs6l4clvn7ibfq3q69k2p0z6ww75rxvnngamdq5ic6yhq74bx2"))))
7432 (build-system trivial-build-system)
7433 (native-inputs
7434 `(("unzip" ,unzip)))
7435 (arguments
7436 `(#:modules ((guix build utils))
7437 #:builder
7438 (begin
7439 (use-modules (guix build utils))
7440 (let* ((out (assoc-ref %outputs "out"))
7441 (xonotic (string-append out "/share/xonotic"))
7442 (source (assoc-ref %build-inputs "source"))
7443 (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
7444 (copy-file source (string-append ,name "-" ,version ".zip"))
7445 (invoke unzip (string-append ,name "-" ,version ".zip"))
7446 (mkdir-p out)
7447 (mkdir-p xonotic)
7448 (chdir "Xonotic")
7449 (copy-recursively "data"
7450 (string-append xonotic "/data"))
7451 (copy-recursively "server"
7452 (string-append xonotic "/server"))
7453 (install-file "key_0.d0pk" xonotic)))))
7454 (home-page "http://xonotic.org")
7455 (synopsis "Data files for Xonotic")
7456 (description
7457 "Xonotic-data provides the data files required by the game Xonotic.")
7458 (license (list license:gpl2+
7459 (license:x11-style "file://server/rcon.pl")))))
7460
7461 (define-public xonotic
7462 (package
7463 (name "xonotic")
7464 (version "0.8.2")
7465 (source
7466 (origin
7467 (method url-fetch)
7468 (uri (string-append "http://dl.xonotic.org/xonotic-"
7469 version "-source.zip"))
7470 (file-name (string-append name "-" version ".zip"))
7471 (sha256
7472 (base32
7473 "0axxw04fyz6jlfqd0kp7hdrqa0li31sx1pbipf2j5qp9wvqicsay"))))
7474 (build-system gnu-build-system)
7475 (arguments
7476 `(#:configure-flags (list (string-append "--prefix="
7477 (assoc-ref %outputs "out"))
7478 "--disable-rijndael")
7479 #:phases
7480 (modify-phases %standard-phases
7481 (add-before 'configure 'make-darkplaces
7482 (lambda* (#:key outputs #:allow-other-keys)
7483 (let* ((out (assoc-ref outputs "out"))
7484 (sharedir (string-append out "/share/xonotic/")))
7485 (invoke "make" "-C" "source/darkplaces"
7486 (string-append "DP_FS_BASEDIR="
7487 sharedir)
7488 "DP_LINK_TO_LIBJPEG=1"
7489 "DP_SOUND_API=ALSA"
7490 "CC=gcc"
7491 "-f" "makefile"
7492 "cl-release")
7493 (invoke "make" "-C" "source/darkplaces"
7494 (string-append "DP_FS_BASEDIR="
7495 sharedir)
7496 "DP_LINK_TO_LIBJPEG=1"
7497 "DP_SOUND_API=ALSA"
7498 "CC=gcc"
7499 "-f" "makefile"
7500 "sdl-release")
7501 (invoke "make" "-C" "source/darkplaces"
7502 (string-append "DP_FS_BASEDIR="
7503 sharedir)
7504 "DP_LINK_TO_LIBJPEG=1"
7505 "DP_SOUND_API=ALSA"
7506 "CC=gcc"
7507 "-f" "makefile"
7508 "sv-release"))))
7509 (add-before 'configure 'bootstrap
7510 (lambda _
7511 (chdir "source/d0_blind_id")
7512 (invoke "sh" "autogen.sh")))
7513 (add-after 'build 'install-desktop-entry
7514 (lambda* (#:key outputs #:allow-other-keys)
7515 ;; Add .desktop files for the 2 variants and the symlink
7516 (let* ((output (assoc-ref outputs "out"))
7517 (apps (string-append output "/share/applications")))
7518 (mkdir-p apps)
7519 (with-output-to-file
7520 (string-append apps "/xonotic-glx.desktop")
7521 (lambda _
7522 (format #t
7523 "[Desktop Entry]~@
7524 Name=xonotic-glx~@
7525 Comment=Xonotic glx~@
7526 Exec=~a/bin/xonotic-glx~@
7527 TryExec=~@*~a/bin/xonotic-glx~@
7528 Icon=xonotic~@
7529 Categories=Game~@
7530 Type=Application~%"
7531 output)))
7532 (with-output-to-file
7533 (string-append apps "/xonotic-sdl.desktop")
7534 (lambda _
7535 (format #t
7536 "[Desktop Entry]~@
7537 Name=xonotic-sdl~@
7538 Comment=Xonotic sdl~@
7539 Exec=~a/bin/xonotic-sdl~@
7540 TryExec=~@*~a/bin/xonotic-sdl~@
7541 Icon=xonotic~@
7542 Categories=Game~@
7543 Type=Application~%"
7544 output)))
7545 (with-output-to-file
7546 (string-append apps "/xonotic.desktop")
7547 (lambda _
7548 (format #t
7549 "[Desktop Entry]~@
7550 Name=xonotic~@
7551 Comment=Xonotic~@
7552 Exec=~a/bin/xonotic-glx~@
7553 TryExec=~@*~a/bin/xonotic~@
7554 Icon=xonotic~@
7555 Categories=Game~@
7556 Type=Application~%"
7557 output)))
7558 #t)))
7559 (add-after 'install-desktop-entry 'install-icons
7560 (lambda* (#:key outputs #:allow-other-keys)
7561 (let ((out (assoc-ref outputs "out")))
7562 (with-directory-excursion "../../misc/logos/icons_png/"
7563 (for-each
7564 (lambda (file)
7565 (let* ((size (string-filter char-numeric? file))
7566 (icons (string-append out "/share/icons/hicolor/"
7567 size "x" size "/apps")))
7568 (mkdir-p icons)
7569 (copy-file file (string-append icons "/xonotic.png"))))
7570 '("xonotic_16.png" "xonotic_22.png" "xonotic_24.png"
7571 "xonotic_32.png" "xonotic_48.png" "xonotic_64.png"
7572 "xonotic_128.png" "xonotic_256.png" "xonotic_512.png"))))))
7573 (add-after 'install-icons 'install-binaries
7574 (lambda* (#:key outputs #:allow-other-keys)
7575 (let ((out (assoc-ref outputs "out")))
7576 (define (install src dst)
7577 (let ((dst (string-append out dst)))
7578 (mkdir-p (dirname dst))
7579 (copy-file src dst)))
7580 (mkdir-p (string-append out "/bin"))
7581 (install "../darkplaces/darkplaces-dedicated"
7582 "/bin/xonotic-dedicated")
7583 (install "../darkplaces/darkplaces-glx"
7584 "/bin/xonotic-glx")
7585 (install "../darkplaces/darkplaces-sdl"
7586 "/bin/xonotic-sdl")
7587 ;; Provide a default xonotic executable, defaulting to SDL.
7588 (symlink (string-append out "/bin/xonotic-sdl")
7589 (string-append out "/bin/xonotic"))
7590 #t)))
7591 (add-after 'install-binaries 'install-data
7592 (lambda* (#:key outputs inputs #:allow-other-keys)
7593 (let* ((out (assoc-ref outputs "out"))
7594 (data (assoc-ref inputs "xonotic-data")))
7595 (symlink (string-append data "/share/xonotic")
7596 (string-append out "/share/xonotic"))
7597 #t)))
7598 (add-after 'install-binaries 'wrap-binaries
7599 (lambda* (#:key outputs inputs #:allow-other-keys)
7600 ;; Curl and libvorbis need to be wrapped so that we get
7601 ;; sound and networking.
7602 (let* ((out (assoc-ref outputs "out"))
7603 (bin (string-append out "/bin/xonotic"))
7604 (bin-sdl (string-append out "/bin/xonotic-sdl"))
7605 (bin-glx (string-append out "/bin/xonotic-glx"))
7606 (bin-dedicated (string-append out "/bin/xonotic-dedicated"))
7607 (curl (assoc-ref inputs "curl"))
7608 (vorbis (assoc-ref inputs "libvorbis")))
7609 (wrap-program bin
7610 `("LD_LIBRARY_PATH" ":" prefix
7611 (,(string-append curl "/lib:" vorbis "/lib"))))
7612 (wrap-program bin-sdl
7613 `("LD_LIBRARY_PATH" ":" prefix
7614 (,(string-append curl "/lib:" vorbis "/lib"))))
7615 (wrap-program bin-glx
7616 `("LD_LIBRARY_PATH" ":" prefix
7617 (,(string-append curl "/lib:" vorbis "/lib"))))
7618 (wrap-program bin-dedicated
7619 `("LD_LIBRARY_PATH" ":" prefix
7620 (,(string-append curl "/lib:" vorbis "/lib"))))
7621 #t))))))
7622 (inputs
7623 `(("xonotic-data" ,xonotic-data)
7624 ("alsa-lib" ,alsa-lib)
7625 ("curl" ,curl)
7626 ("libjpeg" ,libjpeg-turbo)
7627 ("libmodplug" ,libmodplug)
7628 ("libvorbis" ,libvorbis)
7629 ("libogg" ,libogg)
7630 ("libxpm" ,libxpm)
7631 ("libxxf86dga" ,libxxf86dga)
7632 ("libxxf86vm" ,libxxf86vm)
7633 ("libx11" ,libx11)
7634 ("libxext" ,libxext)
7635 ("libxau" ,libxau)
7636 ("libxdmcp" ,libxdmcp)
7637 ("mesa" ,mesa)
7638 ("glu" ,glu)
7639 ("freetype" ,freetype)
7640 ("sdl2" ,sdl2)
7641 ("libpng" ,libpng)
7642 ("hicolor-icon-theme" ,hicolor-icon-theme)))
7643 (native-inputs
7644 `(("unzip" ,unzip)
7645 ("autoconf" ,autoconf)
7646 ("automake" ,automake)
7647 ("pkg-config" ,pkg-config)
7648 ("libtool" ,libtool)
7649 ("gmp" ,gmp)))
7650 (home-page "https://xonotic.org")
7651 (synopsis "Fast-paced first-person shooter game")
7652 (description
7653 "Xonotic is a free, fast-paced first-person shooter.
7654 The project is geared towards providing addictive arena shooter
7655 gameplay which is all spawned and driven by the community itself.
7656 Xonotic is a direct successor of the Nexuiz project with years of
7657 development between them, and it aims to become the best possible
7658 open-source FPS of its kind.")
7659 (license (list license:gpl2+
7660 license:bsd-3 ; /source/d0_blind_id folder and others
7661 (license:x11-style "" "See file rcon.pl.")))))
7662
7663 (define-public frotz
7664 (package
7665 (name "frotz")
7666 (version "2.44")
7667 (source (origin
7668 (method url-fetch)
7669 (uri (list (string-append
7670 "http://www.ifarchive.org/if-archive/infocom/interpreters/"
7671 "frotz/frotz-" version ".tar.gz")
7672 (string-append
7673 "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
7674 "frotz/frotz-" version ".tar.gz")))
7675 (sha256
7676 (base32
7677 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
7678 (build-system gnu-build-system)
7679 (arguments
7680 `(#:tests? #f ; there are no tests
7681 #:phases
7682 (modify-phases %standard-phases
7683 (delete 'configure)
7684 (add-before 'build 'curses
7685 (lambda _
7686 (substitute* "Makefile"
7687 (("lcurses") "lncurses"))
7688 #t))
7689 (replace 'install
7690 (lambda* (#:key outputs #:allow-other-keys)
7691 (let* ((out (assoc-ref outputs "out"))
7692 (bin (string-append out "/bin"))
7693 (man (string-append out "/share/man/man6")))
7694 (install-file "frotz" bin)
7695 (mkdir-p man)
7696 (install-file "doc/frotz.6" man)
7697 #t))))))
7698 (inputs `(("libmodplug" ,libmodplug)
7699 ("libsamplerate" ,libsamplerate)
7700 ("libsndfile" ,libsndfile)
7701 ("libvorbis" ,libvorbis)
7702 ("ncurses" ,ncurses)))
7703 (synopsis "Portable Z-machine interpreter (ncurses version) for text adventure games")
7704 (description "Frotz is an interpreter for Infocom games and other Z-machine
7705 games in the text adventure/interactive fiction genre. This version of Frotz
7706 complies with standard 1.0 of Graham Nelson's specification. It plays all
7707 Z-code games V1-V8, including V6, with sound support through libao, and uses
7708 ncurses for text display.")
7709 (home-page "http://frotz.sourceforge.net")
7710 (license license:gpl2+)))
7711
7712 (define-public frotz-dumb-terminal
7713 (package
7714 (name "frotz-dumb-terminal")
7715 (version "2.44")
7716 (source (origin
7717 (method url-fetch)
7718 (uri (list (string-append
7719 "http://www.ifarchive.org/if-archive/infocom/interpreters/"
7720 "frotz/frotz-" version ".tar.gz")
7721 (string-append
7722 "ftp://ftp.ifarchive.org/if-archive/infocom/interpreters/"
7723 "frotz/frotz-" version ".tar.gz")))
7724 (sha256
7725 (base32
7726 "1v735xr3blznac8fnwa27s1vhllx4jpz7kw7qdw1bsfj6kq21v3k"))))
7727 (build-system gnu-build-system)
7728 (arguments
7729 `(#:tests? #f ; there are no tests
7730 #:phases
7731 (modify-phases %standard-phases
7732 (delete 'configure)
7733 (replace 'build
7734 (lambda _
7735 (invoke "make" "dumb")))
7736 (replace 'install
7737 (lambda* (#:key outputs #:allow-other-keys)
7738 (let* ((out (assoc-ref outputs "out"))
7739 (bin (string-append out "/bin"))
7740 (man (string-append out "/share/man/man6")))
7741 (install-file "dfrotz" bin)
7742 (mkdir-p man)
7743 (install-file "doc/dfrotz.6" man)
7744 #t))))))
7745 (synopsis "Portable Z-machine dumb interpreter for text adventure games")
7746 (description "Frotz is an interpreter for Infocom games and
7747 other Z-machine games in the text adventure/interactive fiction genre.
7748 dfrotz is the dumb interface version. You get no screen control; everything
7749 is just printed to the terminal line by line. The terminal handles all the
7750 scrolling. Maybe you'd like to experience what it's like to play Adventure on
7751 a teletype. A much cooler use for compiling Frotz with the dumb interface is
7752 that it can be wrapped in CGI scripting, PHP, and the like to allow people
7753 to play games on webpages. It can also be made into a chat bot.")
7754 (home-page "http://frotz.sourceforge.net")
7755 (license license:gpl2+)))
7756
7757 (define-public frotz-sdl
7758 (let* ((commit "4de8c34f2116fff554af6216c30ec9d41bf50b24"))
7759 (package
7760 (name "frotz-sdl")
7761 (version "2.45pre")
7762 (source (origin
7763 (method git-fetch)
7764 (uri (git-reference
7765 (url "https://gitlab.com/DavidGriffith/frotz")
7766 (commit commit)))
7767 (sha256
7768 (base32
7769 "18ms21pcrl7ipcnyqnf8janamkryzx78frsgd9kfk67jvbj0z2k8"))
7770 (file-name (git-file-name name version))))
7771 (build-system gnu-build-system)
7772 (arguments
7773 `(#:tests? #f ; there are no tests
7774 #:phases
7775 (modify-phases %standard-phases
7776 (delete 'configure)
7777 (add-before 'build 'patch-makefile
7778 (lambda _
7779 (substitute* "Makefile"
7780 (("lcurses") "lncurses")
7781 (("^BUILD_DATE_TIME =.*$")
7782 "BUILD_DATE_TIME = \"2.45pre-20180907.00000\"\n"))
7783 #t))
7784 (replace 'build
7785 (lambda _
7786 (invoke "make" "sdl")))
7787 (replace 'install
7788 (lambda* (#:key outputs #:allow-other-keys)
7789 (let* ((out (assoc-ref outputs "out"))
7790 (bin (string-append out "/bin"))
7791 (man (string-append out "/share/man/man6")))
7792 (install-file "sfrotz" bin)
7793 (mkdir-p man)
7794 (install-file "doc/sfrotz.6" man)
7795 #t))))))
7796 (native-inputs
7797 `(("pkg-config" ,pkg-config)
7798 ("which" ,which)
7799 ("perl" ,perl)))
7800 (inputs `(("sdl2" ,sdl2)
7801 ("sdl2-mixer" ,sdl2-mixer)
7802 ("libmodplug" ,libmodplug)
7803 ("libsamplerate" ,libsamplerate)
7804 ("libsndfile" ,libsndfile)
7805 ("libvorbis" ,libvorbis)
7806 ("ncurses" ,ncurses)
7807 ("freetype" ,freetype)
7808 ("libjpeg-turbo" ,libjpeg-turbo)))
7809 (synopsis "Portable Z-machine interpreter (SDL port) for text adventure games")
7810 (description "Frotz is an interpreter for Infocom games and other Z-machine
7811 games in the text adventure/interactive fiction genre. This version of Frotz
7812 using SDL fully supports all these versions of the Z-Machine including the
7813 graphical version 6. Graphics and sound are created through the use of the SDL
7814 libraries. AIFF sound effects and music in MOD and OGG formats are supported
7815 when packaged in Blorb container files or optionally from individual files.")
7816 (home-page "http://frotz.sourceforge.net")
7817 (license license:gpl2+))))
7818
7819 (define-public frozen-bubble
7820 ;; Last official release is very outdated (2010). Use latest commit (2017).
7821 (let ((commit "d6a029110ad6ab9e4960052e175addc98807fb7e")
7822 (revision "1"))
7823 (package
7824 (name "frozen-bubble")
7825 (version (git-version "2.2.1" revision commit))
7826 (source
7827 (origin
7828 (method git-fetch)
7829 (uri (git-reference
7830 (url "https://github.com/kthakore/frozen-bubble")
7831 (commit commit)))
7832 (file-name (git-file-name name version))
7833 (sha256
7834 (base32 "1rfrcym5lf4qac2qdklikb1ywijyxypq298azzxahy461dadl6cx"))))
7835 (build-system perl-build-system)
7836 (arguments
7837 `(#:phases
7838 (modify-phases %standard-phases
7839 ;; Build process needs to create files in the "server"
7840 ;; directory.
7841 (add-after 'unpack 'fix-permissions
7842 (lambda _
7843 (for-each make-file-writable
7844 (find-files "server" "." #:directories? #t))))
7845 ;; By default, build stops at warnings.
7846 (add-after 'unpack 'prevent-build-error
7847 (lambda _
7848 (substitute* "inc/My/Builder.pm"
7849 (("-Werror") ""))
7850 #t))
7851 (add-after 'install 'install-desktop-file-and-icons
7852 (lambda* (#:key outputs #:allow-other-keys)
7853 (let* ((share (string-append (assoc-ref outputs "out") "/share"))
7854 (hicolor (string-append share "/icons/hicolor")))
7855 ;; Create desktop entry.
7856 (make-desktop-entry-file
7857 (string-append share "/applications/" ,name ".desktop")
7858 #:name "Frozen Bubble"
7859 #:comment "Frozen Bubble arcade game"
7860 #:exec ,name
7861 #:icon ,name
7862 #:categories '("Game" "ArcadeGame"))
7863 ;; Add icons.
7864 (with-directory-excursion "share/icons"
7865 (for-each
7866 (lambda (size)
7867 (let* ((dim (string-append size "x" size))
7868 (dir (string-append hicolor "/" dim "/apps")))
7869 (mkdir-p dir)
7870 (copy-file
7871 (string-append "frozen-bubble-icon-" dim ".png")
7872 (string-append dir "/frozen-bubble.png"))))
7873 '("16" "32" "48" "64"))))
7874 #t))
7875 (add-after 'install 'wrap-perl-libs
7876 (lambda* (#:key outputs #:allow-other-keys)
7877 (let ((out (assoc-ref outputs "out"))
7878 (perl5lib (getenv "PERL5LIB")))
7879 (for-each (lambda (prog)
7880 (wrap-program (string-append out "/" prog)
7881 `("PERL5LIB" ":" prefix
7882 (,(string-append perl5lib ":" out
7883 "/lib/perl5/site_perl")))))
7884 (find-files "bin" ".")))
7885 #t)))))
7886 (native-inputs
7887 `(("perl-alien-sdl" ,perl-alien-sdl)
7888 ("perl-capture-tiny" ,perl-capture-tiny)
7889 ("perl-locale-maketext-lexicon" ,perl-locale-maketext-lexicon)
7890 ("perl-module-build" ,perl-module-build)
7891 ("pkg-config" ,pkg-config)))
7892 (inputs
7893 `(("glib" ,glib)
7894 ("perl-compress-bzip2" ,perl-compress-bzip2)
7895 ("perl-file-sharedir" ,perl-file-sharedir)
7896 ("perl-file-slurp" ,perl-file-slurp)
7897 ("perl-file-which" ,perl-file-which)
7898 ("perl-ipc-system-simple" ,perl-ipc-system-simple)
7899 ("perl-sdl" ,perl-sdl)
7900 ("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-pango sdl-ttf)))))
7901 (home-page "http://frozen-bubble.org/")
7902 (synopsis "Puzzle with bubbles")
7903 (description
7904 "Frozen-Bubble is a clone of the popular Puzzle Bobble game, in which
7905 you attempt to shoot bubbles into groups of the same color to cause them to
7906 pop.
7907
7908 Players compete as penguins and must use the arrow keys to aim a colored
7909 bubble at groups of bubbles. The objective is to clear all the bubbles off
7910 the screen before a bubble passes below a line at the bottom.
7911
7912 It features 100 single-player levels, a two-player mode, music and striking
7913 graphics. A level editor is also included to allow players to create and play
7914 their own levels.")
7915 (license license:gpl2))))
7916
7917 (define-public libmanette
7918 (package
7919 (name "libmanette")
7920 (version "0.2.5")
7921 (source (origin
7922 (method url-fetch)
7923 (uri (string-append "mirror://gnome/sources/libmanette/"
7924 (version-major+minor version) "/"
7925 "libmanette-" version ".tar.xz"))
7926 (sha256
7927 (base32
7928 "0awsl0d34k3w18jdiyh377r7qi00s4kmh5gc97vx9jy0h22f01l0"))))
7929 (build-system meson-build-system)
7930 (native-inputs
7931 `(("glib" ,glib "bin") ; for glib-compile-resources
7932 ("gobject-introspection" ,gobject-introspection)
7933 ("pkg-config" ,pkg-config)
7934 ("vala" ,vala)))
7935 (inputs
7936 `(("libevdev" ,libevdev)
7937 ("libgudev" ,libgudev)))
7938 (home-page "https://wiki.gnome.org/Apps/Games")
7939 (synopsis "Game controller library")
7940 (description "Libmanette is a small GObject library giving you simple
7941 access to game controllers. It supports the de-facto standard gamepads as
7942 defined by the W3C standard Gamepad specification or as implemented by the SDL
7943 GameController.")
7944 (license license:lgpl2.1+)))
7945
7946 (define-public quadrapassel
7947 (package
7948 (name "quadrapassel")
7949 (version "3.36.05")
7950 (source (origin
7951 (method url-fetch)
7952 (uri (string-append "mirror://gnome/sources/quadrapassel/"
7953 (version-major+minor version) "/"
7954 "quadrapassel-" version ".tar.xz"))
7955 (sha256
7956 (base32
7957 "04abxmimh5npw8rhz1sfi6wxilgc6i1wka9mlnfwp8v1p1cb00cv"))))
7958 (build-system meson-build-system)
7959 (arguments
7960 '(#:glib-or-gtk? #t
7961 #:phases
7962 (modify-phases %standard-phases
7963 (add-after 'unpack 'skip-gtk-update-icon-cache
7964 ;; Don't create 'icon-theme.cache'.
7965 (lambda _
7966 (substitute* "build-aux/meson_post_install.py"
7967 (("gtk-update-icon-cache") (which "true")))
7968 #t)))))
7969 (native-inputs
7970 `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
7971 ("gettext" ,gettext-minimal)
7972 ("glib" ,glib "bin") ;for glib-compile-resources
7973 ("itstool" ,itstool)
7974 ("libxml2" ,libxml2) ;for xmllint
7975 ("pkg-config" ,pkg-config)
7976 ("vala" ,vala)))
7977 (inputs
7978 `(("clutter" ,clutter)
7979 ("clutter-gtk" ,clutter-gtk)
7980 ("gsound" ,gsound)
7981 ("gtk+" ,gtk+)
7982 ("libcanberra" ,libcanberra)
7983 ("libmanette" ,libmanette)
7984 ("librsvg" ,librsvg)))
7985 (home-page "https://wiki.gnome.org/Apps/Quadrapassel")
7986 (synopsis "GNOME version of Tetris")
7987 (description "Quadrapassel comes from the classic falling-block game,
7988 Tetris. The goal of the game is to create complete horizontal lines of
7989 blocks, which will disappear. The blocks come in seven different shapes made
7990 from four blocks each: one straight, two L-shaped, one square, and two
7991 S-shaped. The blocks fall from the top center of the screen in a random
7992 order. You rotate the blocks and move them across the screen to drop them in
7993 complete lines. You score by dropping blocks fast and completing lines. As
7994 your score gets higher, you level up and the blocks fall faster.")
7995 (license license:gpl2+)))
7996
7997 (define-public endless-sky
7998 (package
7999 (name "endless-sky")
8000 (version "0.9.12")
8001 (source
8002 (origin
8003 (method git-fetch)
8004 (uri (git-reference
8005 (url "https://github.com/endless-sky/endless-sky")
8006 (commit (string-append "v" version))))
8007 (file-name (git-file-name name version))
8008 (sha256
8009 (base32 "18nkl4s3r5sy3sd9lhbdg9160c7fggklklprx0d5azifc8g6k0wj"))))
8010 (build-system scons-build-system)
8011 (arguments
8012 `(#:scons ,scons-python2
8013 #:scons-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
8014 #:tests? #f ; no tests
8015 #:phases
8016 (modify-phases %standard-phases
8017 (add-after 'unpack 'patch-resource-locations
8018 (lambda* (#:key outputs #:allow-other-keys)
8019 (substitute* "source/Files.cpp"
8020 (("/usr/local/")
8021 (string-append (assoc-ref outputs "out") "/")))
8022 #t))
8023 (add-after 'unpack 'patch-scons
8024 (lambda _
8025 (substitute* "SConstruct"
8026 ;; Keep environmental variables
8027 (("Environment\\(\\)")
8028 "Environment(ENV = os.environ)")
8029 ;; Install into %out/bin
8030 (("games\"") "bin\""))
8031 #t)))))
8032 (inputs
8033 `(("glew" ,glew)
8034 ("libjpeg" ,libjpeg-turbo)
8035 ("libmad" ,libmad)
8036 ("libpng" ,libpng)
8037 ("openal" ,openal)
8038 ("sdl2" ,sdl2)))
8039 (home-page "https://endless-sky.github.io/")
8040 (synopsis "2D space trading and combat game")
8041 (description "Endless Sky is a 2D space trading and combat game. Explore
8042 other star systems. Earn money by trading, carrying passengers, or completing
8043 missions. Use your earnings to buy a better ship or to upgrade the weapons and
8044 engines on your current one. Blow up pirates. Take sides in a civil war. Or
8045 leave human space behind and hope to find friendly aliens whose culture is more
8046 civilized than your own.")
8047 (license (list license:gpl3+
8048 license:cc-by-sa3.0
8049 license:cc-by-sa4.0
8050 license:public-domain))))
8051
8052 (define-public stepmania
8053 (package
8054 (name "stepmania")
8055 (version "5.1.0-b2")
8056 (source
8057 (origin
8058 (method git-fetch)
8059 (uri (git-reference
8060 (url "https://github.com/stepmania/stepmania")
8061 (commit (string-append "v" version))))
8062 (file-name (git-file-name name version))
8063 (sha256
8064 (base32
8065 "0a7y9l7xm510vgnpmj1is7p9m6d6yd0fcaxrjcickz295k5w3rdn"))
8066 (modules '((guix build utils)))
8067 (snippet
8068 '(begin
8069 ;; Remove song files, which are licensed under a non-commercial
8070 ;; clause, and a course pointing to them.
8071 (for-each delete-file-recursively
8072 '("Songs/StepMania 5/Goin' Under"
8073 "Songs/StepMania 5/MechaTribe Assault"
8074 "Songs/StepMania 5/Springtime"))
8075 (for-each delete-file '("Courses/Default/Jupiter.crs"
8076 "Courses/Default/Jupiter.png"))
8077 ;; Unbundle libpng.
8078 (substitute* "extern/CMakeLists.txt"
8079 (("include\\(CMakeProject-png.cmake\\)") ""))
8080 (delete-file-recursively "extern/libpng")
8081 #t))))
8082 (build-system cmake-build-system)
8083 (arguments
8084 `(#:tests? #f ;FIXME: couldn't find how to run tests
8085 #:build-type "Release"
8086 #:out-of-source? #f ;for the 'install-desktop' phase
8087 #:configure-flags
8088 (list "-DWITH_SYSTEM_FFMPEG=1"
8089 ;; SSE instructions are available on Intel systems only.
8090 ,@(if (any (cute string-prefix? <> (or (%current-target-system)
8091 (%current-system)))
8092 '("x86_64" "i686"))
8093 '()
8094 '("-DWITH_SSE2=NO"))
8095 ;; Configuration cannot find GTK2 without the two following
8096 ;; flags.
8097 (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
8098 (assoc-ref %build-inputs "gtk+")
8099 "/lib/gtk-2.0/include")
8100 (string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
8101 (assoc-ref %build-inputs "glib")
8102 "/lib/glib-2.0/include"))
8103 #:phases
8104 (modify-phases %standard-phases
8105 (add-after 'unpack 'ensure-application-files-can-be-found
8106 (lambda* (#:key outputs #:allow-other-keys)
8107 (let ((out (assoc-ref outputs "out")))
8108 (substitute* "src/arch/LoadingWindow/LoadingWindow_Gtk.cpp"
8109 (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\" \\+ \"GtkModule.so\"")
8110 (string-append "\"" out
8111 "/share/stepmania/GtkModule.so\"")))
8112 (substitute* "src/arch/ArchHooks/ArchHooks_Unix.cpp"
8113 (("Root = sDirOfExecutable")
8114 (string-append "Root = \"" out "/share/stepmania/\""))
8115 (("sDirOfExecutable \\+ \"/(Packages|Songs)\"" _ dir)
8116 (string-append "\"" out "/share/stepmania/" dir "\"")))
8117 (substitute* "src/RageFileManager.cpp"
8118 (("RageFileManagerUtil::sDirOfExecutable \\+ \"/\"")
8119 (string-append "\"" out "/share/stepmania/\""))))
8120 #t))
8121 (add-after 'unpack 'fix-install-subdir
8122 ;; Installation would be done in "%out/stepmania-X.Y", but we
8123 ;; prefer the more common layout "%out/share/stepmania".
8124 (lambda _
8125 (substitute* "src/CMakeLists.txt"
8126 (("\"stepmania-.*?\"") "\"share/stepmania\""))
8127 #t))
8128 (add-after 'unpack 'unbundle-libpng
8129 (lambda* (#:key inputs #:allow-other-keys)
8130 (substitute* "src/CMakeLists.txt"
8131 (("\\$\\{SM_EXTERN_DIR\\}/libpng/include")
8132 (string-append (assoc-ref inputs "libpng") "/include")))
8133 #t))
8134 (add-after 'install 'install-executable
8135 (lambda* (#:key outputs #:allow-other-keys)
8136 (let* ((out (assoc-ref outputs "out"))
8137 (bin (string-append out "/bin"))
8138 (exe (string-append out "/share/stepmania/stepmania")))
8139 (mkdir-p bin)
8140 (symlink exe (string-append bin "/stepmania"))
8141 #t)))
8142 (add-after 'install-executable 'install-desktop
8143 (lambda* (#:key outputs #:allow-other-keys)
8144 (let* ((out (assoc-ref outputs "out"))
8145 (share (string-append out "/share"))
8146 (applications (string-append share "/applications"))
8147 (icons (string-append share "/icons")))
8148 (install-file "stepmania.desktop" applications)
8149 (mkdir-p icons)
8150 (copy-recursively "icons" icons)
8151 #t)))
8152 ;; Move documentation in a more usual place, i.e.,
8153 ;; "%out/share/doc/stepmania/".
8154 (add-after 'install-desktop 'install-doc
8155 (lambda* (#:key outputs #:allow-other-keys)
8156 (let* ((out (assoc-ref outputs "out"))
8157 (share (string-append out "/share")))
8158 (with-directory-excursion share
8159 (mkdir-p "doc")
8160 (symlink "../stepmania/Docs" "doc/stepmania"))
8161 #t))))))
8162 (native-inputs
8163 `(("pkg-config" ,pkg-config)
8164 ("yasm" ,yasm)))
8165 (inputs
8166 `(("alsa-lib" ,alsa-lib)
8167 ;; Per upstream, StepMania is only guaranteed to work with a very
8168 ;; specific FFmpeg version, which is included in the repository as
8169 ;; a Git submodule. This particular version requirement usually
8170 ;; changes every few years.
8171 ("ffmpeg" ,ffmpeg-for-stepmania)
8172 ("glib" ,glib)
8173 ("glew" ,glew)
8174 ("gtk+" ,gtk+-2)
8175 ("jsoncpp" ,jsoncpp)
8176 ("libpng" ,libpng)
8177 ("libjpeg" ,libjpeg-turbo)
8178 ("libmad" ,libmad)
8179 ("libogg" ,libogg)
8180 ("libva" ,libva)
8181 ("libvorbis" ,libvorbis)
8182 ("libxinerama" ,libxinerama)
8183 ("libxrandr" ,libxrandr)
8184 ("mesa" ,mesa)
8185 ("pcre" ,pcre)
8186 ("pulseaudio" ,pulseaudio)
8187 ("sdl" ,sdl2)
8188 ("udev" ,eudev)
8189 ("zlib" ,zlib)))
8190 (synopsis "Advanced rhythm game designed for both home and arcade use")
8191 (description "StepMania is a dance and rhythm game. It features 3D
8192 graphics, keyboard and dance pad support, and an editor for creating your own
8193 steps.
8194
8195 This package provides the core application, but no song is shipped. You need
8196 to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
8197 (home-page "https://www.stepmania.com")
8198 (license license:expat)))
8199
8200 (define-public btanks
8201 (package
8202 (name "btanks")
8203 (version "0.9.8083")
8204 (source
8205 (origin
8206 (method url-fetch)
8207 (uri (string-append "mirror://sourceforge/btanks/btanks-source/"
8208 "btanks-" version ".tar.bz2"))
8209 (sha256
8210 (base32
8211 "0ha35kxc8xlbg74wsrbapfgxvcrwy6psjkqi7c6adxs55dmcxliz"))))
8212 (build-system scons-build-system)
8213 (arguments
8214 `(#:tests? #f ; there are none
8215 #:scons ,scons-python2
8216 #:scons-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
8217 #:phases
8218 (modify-phases %standard-phases
8219 (add-after 'unpack 'replace-removed-scons-syntax
8220 (lambda _
8221 (substitute* "SConstruct"
8222 (("Options") "Variables")
8223 (("opts.Add\\(BoolOption.*") "opts.Add('gcc_visibility', 'gcc visibility', 'true')")
8224 (("opts.Add\\(EnumOption.*") "opts.Add('mode', 'build mode', 'release')"))
8225 #t))
8226 (add-after 'set-paths 'set-sdl-paths
8227 (lambda* (#:key inputs #:allow-other-keys)
8228 (setenv "CPATH"
8229 (string-append (assoc-ref inputs "sdl")
8230 "/include/SDL:"
8231 (or (getenv "CPATH") "")))
8232 #t))
8233 (add-after 'unpack 'fix-compilation-errors
8234 (lambda _
8235 (substitute* "mrt/base_file.h"
8236 (("#include <string>" m)
8237 (string-append m "\n#include <sys/types.h>")))
8238 (substitute* '("engine/sl08/sl08.h"
8239 "engine/sl08/sl08.py")
8240 (("signal = NULL") "signal = 0")
8241 (("object\\(NULL\\)") "object(0)")
8242 (("func\\(NULL\\)") "func(0)")
8243 ((" connect\\(signal_ref\\)")
8244 " this->connect(signal_ref)"))
8245 (substitute* "math/range_list.h"
8246 ((" lower_bound\\(value\\)")
8247 " this->lower_bound(value)")
8248 ((" erase\\(i\\)")
8249 " this->erase(i)"))
8250 (substitute* "clunk/source.cpp"
8251 (("using namespace clunk" m)
8252 (string-append "# define pow10f(x) exp10f(x)\n" m)))
8253 #t))
8254 (add-after 'unpack 'find-lua
8255 (lambda _
8256 (substitute* "engine/SConscript"
8257 (("lua5.1") "lua-5.1")
8258 (("bt_libs.append\\(lua\\)")
8259 "bt_libs.append(\"lua\")"))
8260 #t)))))
8261 (inputs
8262 `(("expat" ,expat)
8263 ("glu" ,glu)
8264 ("libsmpeg" ,libsmpeg-with-sdl1)
8265 ("libvorbis" ,libvorbis)
8266 ("lua51" ,lua-5.1)
8267 ("sdl" ,(sdl-union (list sdl
8268 sdl-mixer
8269 sdl-image
8270 sdl-ttf)))
8271 ("zlib" ,zlib)))
8272 (native-inputs
8273 `(("pkg-config" ,pkg-config)
8274 ("zip" ,zip)))
8275 (home-page "http://btanks.sourceforge.net")
8276 (synopsis "Multiplayer tank battle game")
8277 (description "Battle Tanks (also known as \"btanks\") is a funny battle
8278 game, where you can choose one of three vehicles and eliminate your enemy
8279 using the whole arsenal of weapons. It has original cartoon-like graphics and
8280 cool music, it’s fun and dynamic, it has several network modes for deathmatch
8281 and cooperative.")
8282 ;; Some parts (e.g. mrt/b64.cpp) are LGPLv2.1+, but the whole package is
8283 ;; released under GPLv2 or later. It comes with extra exceptions for the
8284 ;; developers.
8285 (license (list license:gpl2+ license:lgpl2.1+))))
8286
8287 (define-public slingshot
8288 (package
8289 (name "slingshot")
8290 (version "0.9")
8291 (source
8292 (origin
8293 (method git-fetch)
8294 (uri (git-reference
8295 (url "https://github.com/ryanakca/slingshot")
8296 (commit version)))
8297 (file-name (git-file-name name version))
8298 (sha256
8299 (base32
8300 "19m8b6nsi786bc6gmkp185mwri3r5y249gjmqd5qsc23nnfhgrs1"))))
8301 (build-system python-build-system)
8302 (arguments
8303 `(#:python ,python-2))
8304 (inputs
8305 `(("python-pygame" ,python2-pygame)))
8306 (home-page "https://github.com/ryanakca/slingshot")
8307 (synopsis "Simple 2D shooting strategy game set in space")
8308 (description "Slingshot is a two-dimensional strategy game where two
8309 players attempt to shoot one another through a section of space populated by
8310 planets. The main feature of the game is that the shots, once fired, are
8311 affected by the gravity of the planets.")
8312 (license license:gpl2+)))
8313
8314 (define-public 4dtris
8315 (package
8316 (name "4dtris")
8317 (version "0.4.3")
8318 (source
8319 (origin
8320 (method url-fetch)
8321 (uri (string-append "https://launchpad.net/4dtris/"
8322 (version-major+minor version)
8323 "/" version "/+download/4dtris_"
8324 version ".orig.tar.gz"))
8325 (sha256
8326 (base32
8327 "1nfkhcm0l89jyw8yr65na97g4l385zhjf7whkyg47c3v5sdqq2g7"))))
8328 (build-system gnu-build-system)
8329 (arguments
8330 `(#:phases
8331 (modify-phases %standard-phases
8332 (add-after 'unpack 'fix-install-directories
8333 (lambda* (#:key outputs #:allow-other-keys)
8334 (let ((out (assoc-ref outputs "out")))
8335 (substitute* "Makefile.in"
8336 (("bindir = /usr/games")
8337 (string-append "bindir = " out "/bin"))
8338 (("/usr/share/applications")
8339 (string-append out "/share/applications"))
8340 (("/usr/share/games/4dtris")
8341 (string-append out "/share/4dtris"))))
8342 #t))
8343 (add-after 'set-paths 'set-sdl-paths
8344 (lambda* (#:key inputs #:allow-other-keys)
8345 (setenv "CPATH"
8346 (string-append (assoc-ref inputs "sdl")
8347 "/include/SDL:"
8348 (or (getenv "CPATH") "")))
8349 #t)))))
8350 (inputs
8351 `(("fontconfig" ,fontconfig)
8352 ("freeglut" ,freeglut)
8353 ("sdl" ,(sdl-union (list sdl sdl-ttf)))))
8354 (home-page "https://launchpad.net/4dtris/")
8355 (synopsis "4D Tetris")
8356 (description "4D-TRIS is an alteration of the well-known Tetris game. The
8357 game field is extended to 4D space, which has to filled up by the gamer with
8358 4D hyper cubes.")
8359 (license license:gpl3)))
8360
8361 (define-public arx-libertatis
8362 (package
8363 (name "arx-libertatis")
8364 (version "1.1.2")
8365 (source
8366 (origin
8367 (method url-fetch)
8368 (uri (string-append "http://arx-libertatis.org/files/arx-libertatis-"
8369 version ".tar.xz"))
8370 (sha256
8371 (base32
8372 "0hjfxlsmp8wwqr06snv2dlly2s79ra0d9aw49gkp6rn8m50b9bc2"))))
8373 (build-system cmake-build-system)
8374 (outputs '("out" "installer"))
8375 (arguments
8376 '(#:tests? #f ; No tests.
8377 #:phases
8378 (modify-phases %standard-phases
8379 (add-after 'unpack 'fix-install-helper-paths
8380 (lambda* (#:key inputs #:allow-other-keys)
8381 (let ((p7zip (assoc-ref inputs "p7zip"))
8382 (innoextract (assoc-ref inputs "innoextract"))
8383 (wget (assoc-ref inputs "wget"))
8384 (zenity (assoc-ref inputs "zenity")))
8385 (substitute* "scripts/arx-install-data"
8386 (("have innoextract")
8387 (string-append "have " innoextract "/bin/innoextract"))
8388 (("then innoextract")
8389 (string-append "then " innoextract "/bin/innoextract"))
8390 (("else innoextract")
8391 (string-append "else " innoextract "/bin/innoextract"))
8392 (("for _extract_zip_sz in 7za 7z")
8393 (string-append "for _extract_zip_sz in " p7zip "/bin/7za"))
8394 (("else if have 7z")
8395 (string-append "else if have " p7zip "/bin/7za"))
8396 (("7z x -tiso")
8397 (string-append p7zip "/bin/7z x -tiso"))
8398 (("if have wget")
8399 (string-append "if have " wget "/bin/wget"))
8400 (("wget -O")
8401 (string-append wget "/bin/wget -O"))
8402 (("for backend in \\$preferred zenity")
8403 (string-append "for backend in $preferred " zenity "/bin/zenity"))
8404 (("zenity +--title")
8405 (string-append zenity "/bin/zenity --title"))
8406 (("^zenity\\)")
8407 (string-append zenity "/bin/zenity)"))))
8408 #t))
8409 (add-after 'install 'move-installer
8410 (lambda* (#:key outputs #:allow-other-keys)
8411 (let ((out (assoc-ref outputs "out"))
8412 (installer (assoc-ref outputs "installer")))
8413 (mkdir-p (string-append installer "/bin"))
8414 (rename-file (string-append out "/bin/arx-install-data")
8415 (string-append installer "/bin/arx-install-data"))))))))
8416 (inputs
8417 `(("sdl" ,sdl) ; Switch to sdl2 in >1.1.2.
8418 ("mesa" ,mesa) ; Switch to libepoxy in >1.1.2.
8419 ("glew" ,glew)
8420 ("openal" ,openal)
8421 ("zlib" ,zlib)
8422 ("boost" ,boost)
8423 ("glm" ,glm)
8424 ("freetype" ,freetype)
8425 ;; The following are only needed by the arx-install-data script.
8426 ("p7zip" ,p7zip) ; Install-helper uses it to extract ISO and .cab archives.
8427 ("zenity" ,zenity) ; GUI for install-helper.
8428 ("wget" ,wget) ; Used by the install-helper to download the patch.
8429 ;; The install-helper needs it to extract the patch.
8430 ("innoextract" ,innoextract)))
8431 (home-page "https://arx-libertatis.org/")
8432 (synopsis "Port of Arx Fatalis, a first-person role-playing game")
8433 (description "Arx Libertatis is a cross-platform port of Arx Fatalis, a 2002
8434 first-person role-playing game / dungeon crawler developed by Arkane Studios.
8435 This port however does not include the game data, so you need to obtain a copy
8436 of the original Arx Fatalis or its demo to play Arx Libertatis. Arx Fatalis
8437 features crafting, melee and ranged combat, as well as a unique casting system
8438 where the player draws runes in real time to effect the desired spell.")
8439 (license license:gpl3+)))
8440
8441 (define-public edgar
8442 (package
8443 (name "edgar")
8444 (version "1.33")
8445 (source
8446 (origin
8447 (method url-fetch)
8448 (uri
8449 (string-append "https://github.com/riksweeney/edgar/releases/download/"
8450 version "/edgar-" version "-1.tar.gz"))
8451 (sha256
8452 (base32 "1mbx7dvizdca4g1blcv3bdh6yxd13k47rkya4rdzg0nvvz24m175"))))
8453 (build-system gnu-build-system)
8454 (arguments '(#:tests? #f ; there are no tests
8455 #:make-flags
8456 (list "CC=gcc"
8457 (string-append "PREFIX=" (assoc-ref %outputs "out"))
8458 (string-append "BIN_DIR=" (assoc-ref %outputs "out") "/bin/"))
8459 #:phases
8460 (modify-phases %standard-phases
8461 (delete 'configure)
8462 (add-before 'build 'fix-env
8463 (lambda* (#:key inputs #:allow-other-keys)
8464 (setenv "CPATH"
8465 (string-append (assoc-ref inputs "sdl2-union")
8466 "/include/SDL2:"
8467 (or (getenv "CPATH") "")))
8468 #t)))))
8469 (inputs
8470 `(("sdl2-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))
8471 ("zlib" ,zlib)))
8472 (native-inputs
8473 `(("pkg-config" ,pkg-config)
8474 ("autoconf" ,autoconf)
8475 ("automake" ,automake)
8476 ("gnu-gettext" ,gettext-minimal)
8477 ("libtool" ,libtool)
8478 ("which" ,which)))
8479 (synopsis "2d action platformer game")
8480 (description "The Legend of Edgar is a 2D platform game with a persistent world.
8481 When Edgar's father fails to return home after venturing out one dark and stormy night,
8482 Edgar fears the worst: he has been captured by the evil sorcerer who lives in
8483 a fortress beyond the forbidden swamp.")
8484 (home-page "https://www.parallelrealities.co.uk/games/edgar/")
8485 (license license:gpl2+)))
8486
8487 (define-public openclonk
8488 (package
8489 (name "openclonk")
8490 (version "8.1")
8491 (source (origin
8492 (method url-fetch)
8493 (uri (string-append
8494 "https://www.openclonk.org/builds/release/" version "/"
8495 "openclonk-" version "-src.tar.bz2"))
8496 (sha256
8497 (base32
8498 "0imkqjp8lww5p0cnqf4k4mb2v682mnsas63qmiz17rspakr7fxik"))))
8499 (build-system cmake-build-system)
8500 (arguments
8501 `(#:configure-flags '("-DAudio_TK=OpenAL")
8502 #:test-target "tests"
8503 #:phases
8504 (modify-phases %standard-phases
8505 (add-after 'unpack 'prepare-gmock
8506 (lambda* (#:key inputs #:allow-other-keys)
8507 (mkdir "gmock")
8508 (copy-recursively (assoc-ref inputs "googlemock") "gmock")
8509 (substitute* "tests/CMakeLists.txt"
8510 (("/usr/src/gmock")
8511 (string-append (getcwd) "/gmock/googlemock"))
8512 (("/usr/src/gtest")
8513 (string-append (getcwd) "/gmock/googletest"))
8514 (("PATH_SUFFIXES \"src\" \"gtest\"")
8515 "PATH_SUFFIXES \"src\""))
8516 #t))
8517 (add-after 'unpack 'adjust-backward-cpp-includes
8518 (lambda _
8519 ;; XXX: The bundled backward-cpp exports a CMake "interface"
8520 ;; that includes external libraries such as libdl from glibc.
8521 ;; By default, CMake interface includes are treated as "system
8522 ;; headers", and GCC behaves poorly when glibc is passed as a
8523 ;; system header (causing #include_next failures).
8524
8525 ;; Here we prevent targets that consume the Backward::Backward
8526 ;; interface from treating it as "system includes".
8527 (substitute* "CMakeLists.txt"
8528 (("target_link_libraries\\((.+) Backward::Backward\\)" all target)
8529 (string-append "set_property(TARGET " target " PROPERTY "
8530 "NO_SYSTEM_FROM_IMPORTED true)\n"
8531 all)))
8532 #t))
8533 (add-after 'unpack 'add-libiberty
8534 ;; Build fails upon linking executables without this.
8535 (lambda _
8536 (substitute* "thirdparty/backward-cpp/BackwardConfig.cmake"
8537 (("set\\(LIBBFD_LIBRARIES (.*?)\\)" _ libraries)
8538 (string-append "set(LIBBFD_LIBRARIES " libraries " iberty)")))
8539 #t))
8540 (add-after 'add-libiberty 'lax-freealut-requirement
8541 ;; TODO: We provide freealut 1.1.0, but pkg-config somehow detects
8542 ;; it as 1.0.1. Force minimal version.
8543 (lambda _
8544 (substitute* "cmake/FindAudio.cmake"
8545 (("freealut>=1.1.0") "freealut>=1.0.1"))
8546 #t))
8547 (add-after 'lax-freealut-requirement 'fix-directories
8548 ;; Prefer "$out/share/openclonk" over
8549 ;; "$out/share/games/openclonk". Also install "openclonk"
8550 ;; binary in "bin/", not "games/".
8551 (lambda _
8552 (substitute* "CMakeLists.txt"
8553 (("share/games/openclonk") "share/openclonk")
8554 (("TARGETS openclonk DESTINATION games")
8555 "TARGETS openclonk DESTINATION bin"))
8556 #t)))))
8557 (native-inputs
8558 `(("googlemock" ,(package-source googletest))
8559 ("googletest" ,googletest)
8560 ("pkg-config" ,pkg-config)))
8561 (inputs
8562 `(("freealut" ,freealut)
8563 ("freetype" ,freetype)
8564 ("glew" ,glew)
8565 ("libiberty" ,libiberty)
8566 ("libjpeg" ,libjpeg-turbo)
8567 ("libogg" ,libogg)
8568 ("libpng" ,libpng)
8569 ("libvorbis" ,libvorbis)
8570 ("libxrandr" ,libxrandr)
8571 ("mesa" ,mesa)
8572 ("miniupnpc" ,miniupnpc)
8573 ("openal" ,openal)
8574 ("qtbase" ,qtbase)
8575 ("readline" ,readline)
8576 ("sdl" ,sdl2)
8577 ("tinyxml" ,tinyxml)
8578 ("zlib" ,zlib)))
8579 (home-page "https://www.openclonk.org/")
8580 (synopsis
8581 "Multiplayer action game where you control small and nimble humanoids")
8582 (description "OpenClonk is a multiplayer action/tactics/skill game. It is
8583 often referred to as a mixture of The Settlers and Worms. In a simple 2D
8584 antfarm-style landscape, the player controls a crew of Clonks, small but
8585 robust humanoid beings. The game encourages free play but the normal goal is
8586 to either exploit valuable resources from the earth by building a mine or
8587 fight each other on an arena-like map.")
8588 ;; Software as a whole is licensed under ISC, artwork under CC-BY.
8589 (license (list license:isc license:cc-by3.0))))
8590
8591 (define-public flare-engine
8592 (package
8593 (name "flare-engine")
8594 (version "1.11")
8595 (source (origin
8596 (method git-fetch)
8597 (uri (git-reference
8598 (url "https://github.com/flareteam/flare-engine")
8599 (commit (string-append "v" version))))
8600 (file-name (git-file-name name version))
8601 (sha256
8602 (base32
8603 "1mqr1s72p5bdh4kq2a8hg72dk8lwnddicjnd2cdp1sbfa9lmjym8"))))
8604 (build-system cmake-build-system)
8605 (arguments
8606 `(#:tests? #f ;no test
8607 #:configure-flags '("-DBINDIR=bin" "-DDATADIR=share/flare")))
8608 (inputs
8609 `(("hicolor-icon-theme" ,hicolor-icon-theme)
8610 ("python" ,python-wrapper)
8611 ("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
8612 (home-page "http://www.flarerpg.org/")
8613 (synopsis "Action Roleplaying Engine")
8614 (description "Flare (Free Libre Action Roleplaying Engine) is a simple
8615 game engine built to handle a very specific kind of game: single-player 2D
8616 action RPGs.")
8617 (license license:gpl3+)))
8618
8619 (define-public flare-game
8620 (package
8621 (name "flare-game")
8622 (version "1.11")
8623 (source (origin
8624 (method git-fetch)
8625 (uri (git-reference
8626 (url "https://github.com/flareteam/flare-game")
8627 (commit (string-append "v" version))))
8628 (file-name (git-file-name name version))
8629 (sha256
8630 (base32
8631 "0bd5g7sd89a9176ilr408hdqzdfv4j7wj0idd685c1n6s01c3h6p"))))
8632 (build-system cmake-build-system)
8633 (arguments
8634 `(#:tests? #f ;no test
8635 #:configure-flags '("-DDATADIR=share/flare")
8636 #:phases
8637 (modify-phases %standard-phases
8638 ;; Flare expects the mods to be located in the same folder.
8639 ;; Yet, "default" mod is in the engine, whereas the others
8640 ;; are in the current package. Merge everything here with
8641 ;; a symlink.
8642 (add-after 'install 'add-default-mod
8643 (lambda* (#:key inputs outputs #:allow-other-keys)
8644 (let* ((out (assoc-ref outputs "out"))
8645 (mods (string-append out "/share/flare/mods")))
8646 (with-directory-excursion mods
8647 (symlink (string-append (assoc-ref inputs "flare-engine")
8648 "/share/flare/mods/default")
8649 "default")))
8650 #t))
8651 (add-after 'install 'install-executable
8652 ;; The package only provides assets for the game, the
8653 ;; executable coming from "flare-engine". Since more than
8654 ;; one game may use the engine, we create a new executable,
8655 ;; "flare-game", which launches the engine with appropriate
8656 ;; parameters.
8657 (lambda* (#:key inputs outputs #:allow-other-keys)
8658 (let* ((out (assoc-ref outputs "out"))
8659 (bash (string-append (assoc-ref inputs "bash")
8660 "/bin/bash"))
8661 (flare (string-append (assoc-ref inputs "flare-engine")
8662 "/bin/flare"))
8663 (script (string-append out "/bin/flare-game")))
8664 (mkdir-p (dirname script))
8665 (call-with-output-file script
8666 (lambda (port)
8667 (format port
8668 "#!~a
8669 exec ~a --data-path=~a/share/flare --mods=empyrean_campaign~%"
8670 bash
8671 flare
8672 out)))
8673 (chmod script #o755))
8674 #t)))))
8675 (inputs
8676 `(("flare-engine" ,flare-engine)))
8677 (home-page "http://www.flarerpg.org/")
8678 (synopsis "Fantasy action RPG using the FLARE engine")
8679 (description "Flare is a single-player 2D action RPG with
8680 fast-paced action and a dark fantasy style.")
8681 (license license:cc-by-sa3.0)))
8682
8683 (define-public meritous
8684 (package
8685 (name "meritous")
8686 (version "1.5")
8687 (source (origin
8688 (method git-fetch)
8689 (uri (git-reference
8690 (url "https://gitlab.com/meritous/meritous.git")
8691 (commit (string-append "v" version))))
8692 (file-name (git-file-name name version))
8693 (sha256
8694 (base32
8695 "0n5jm4g0arjllgqmd2crv8h02i6hs3hlh1zyc7ng7yfpg1mbd8p8"))))
8696 (build-system gnu-build-system)
8697 (arguments
8698 `(#:tests? #f ;no test
8699 #:make-flags
8700 (list "CC=gcc"
8701 (string-append "prefix=" (assoc-ref %outputs "out")))
8702 #:phases
8703 (modify-phases %standard-phases
8704 (delete 'configure)
8705 (add-after 'unpack 'fix-sdl-path
8706 ;; XXX: For some reason, `sdl-config' reports stand-alone SDL
8707 ;; directory, not SDL-union provided as an input to the package.
8708 ;; We force the latter with "--prefix=" option.
8709 (lambda* (#:key inputs #:allow-other-keys)
8710 (substitute* "Makefile"
8711 (("sdl-config" command)
8712 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
8713 #t))
8714 (add-after 'unpack 'fix-crash
8715 ;; XXX: Songs are not present in the repository, due to licensing
8716 ;; issues. Yet, the game tries to load them, and, since it cannot
8717 ;; find them, crashes. Users cannot add them back, the store being
8718 ;; read-only, so we turn off background music altogether.
8719 (lambda _
8720 (substitute* "src/audio.c"
8721 (("PlayBackgroundMusic\\(new_track\\);" all)
8722 (string-append "// " all)))
8723 #t)))))
8724 (native-inputs
8725 `(("intltool" ,intltool)))
8726 (inputs
8727 `(("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer)))
8728 ("zlib" ,zlib)))
8729 (home-page "https://gitlab.com/meritous/meritous")
8730 (synopsis "Action-adventure dungeon crawl game")
8731 (description "Far below the surface of the planet is a place of limitless
8732 power. Those that seek to control such a utopia will soon bring an end to
8733 themselves. Seeking an end to the troubles that plague him, PSI user Merit
8734 journeys into the hallowed Orcus Dome in search of answers.
8735
8736 Meritous is a action-adventure game with simple controls but a challenge to
8737 find a balance of power versus recovery time during real-time battles. Set in
8738 a procedurally generated world, the player can explore thousands of rooms in
8739 search of powerful artifacts, tools to help them, and to eventually free the
8740 Orcus Dome from evil.")
8741 (license license:gpl3+)))
8742
8743 (define-public marble-marcher
8744 (let ((commit "e580460a0c3826f9b28ab404607942a8ecb625d7")
8745 (revision "1"))
8746 (package
8747 (name "marble-marcher")
8748 (version (git-version "0" revision commit))
8749 (source (origin
8750 (method git-fetch)
8751 (uri (git-reference
8752 (url "https://github.com/HackerPoet/MarbleMarcher")
8753 (commit commit)))
8754 (file-name (git-file-name name version))
8755 (sha256
8756 (base32
8757 "0jjv832hl1v170n6gryp2sr3lgqndi9ab841qvgqk68bks8701mx"))))
8758 (build-system cmake-build-system)
8759 (arguments
8760 `(#:tests? #f ; there are none
8761 #:phases
8762 (modify-phases %standard-phases
8763 (add-after 'unpack 'embed-asset-directory
8764 (lambda* (#:key outputs #:allow-other-keys)
8765 (let ((assets (string-append (assoc-ref outputs "out")
8766 "/share/marble-marcher/assets/")))
8767 ;; Some of the files we're patching are
8768 ;; ISO-8859-1-encoded, so choose it as the default
8769 ;; encoding so the byte encoding is preserved.
8770 (with-fluids ((%default-port-encoding #f))
8771 (substitute* "src/Resource.rc"
8772 (("../assets/icon.ico")
8773 (string-append assets "icon.ico")))
8774 (substitute* "src/Res.h"
8775 (("assets/") assets))))
8776 #t))
8777 (replace 'install
8778 (lambda* (#:key outputs #:allow-other-keys)
8779 (let* ((out (assoc-ref outputs "out"))
8780 (assets (string-append out "/share/marble-marcher/assets"))
8781 (bin (string-append out "/bin/")))
8782 (mkdir-p bin)
8783 (mkdir-p assets)
8784 (copy-recursively "../source/assets" assets)
8785 (install-file "MarbleMarcher" bin))
8786 #t)))))
8787 (inputs
8788 `(("eigen" ,eigen)
8789 ("mesa" ,mesa)
8790 ("sfml" ,sfml)))
8791 (native-inputs
8792 `(("pkg-config" ,pkg-config)))
8793 (home-page "https://codeparade.itch.io/marblemarcher")
8794 (synopsis "Guide a marble across fractal landscapes")
8795 (description "Marble Marcher is a video game that uses a fractal physics
8796 engine and fully procedural rendering to produce beautiful and unique
8797 gameplay. The game is played on the surface of evolving fractals. The goal
8798 of the game is to get your marble to the flag as quickly as possible. But be
8799 careful not to fall off the level or get crushed by the fractal! There are 24
8800 levels to unlock.")
8801 ;; Code is under GPLv2+, assets are under CC-BY-SA 3.0 and OFL 1.1.
8802 (license (list license:gpl2+
8803 license:silofl1.1
8804 license:cc-by-sa3.0)))))
8805
8806 ;; This must be updated together with flightgear.
8807 (define simgear
8808 (package
8809 (name "simgear")
8810 (version "2018.3.5")
8811 (source
8812 (origin
8813 (method url-fetch)
8814 (uri (string-append "mirror://sourceforge/flightgear/release-"
8815 (version-major+minor version) "/"
8816 "simgear-" version ".tar.bz2"))
8817 (sha256
8818 (base32 "1vkqm66r1205k3hdjmx5wmx5kvmsb0dgfzrs8n5gqnxj8szs42dl"))))
8819 (build-system cmake-build-system)
8820 (arguments
8821 `(#:phases
8822 (modify-phases %standard-phases
8823 (replace 'check
8824 (lambda _
8825 ;; Skip tests that require internet access.
8826 (invoke "ctest" "-E" "(http|dns)"))))))
8827 (inputs
8828 `(("boost" ,boost-for-mysql) ; fails with 1.69
8829 ("curl" ,curl)
8830 ("expat" ,expat)
8831 ("mesa" ,mesa)
8832 ("openal" ,openal)
8833 ("openscenegraph" ,openscenegraph-3.4)
8834 ("zlib" ,zlib)))
8835 (home-page "https://home.flightgear.org/")
8836 (synopsis "Libraries for 3D simulations and games")
8837 (description "SimGear is a set of libraries designed to be used as
8838 building blocks for quickly assembling 3D simulations, games, and
8839 visualization applications. SimGear is developed by the FlightGear project
8840 and also provides the base for the FlightGear Flight Simulator.")
8841 (license license:lgpl2.0+)))
8842
8843 (define-public flightgear
8844 (package
8845 (name "flightgear")
8846 (version (package-version simgear))
8847 (source
8848 (origin
8849 (method url-fetch)
8850 (uri (string-append "mirror://sourceforge/flightgear/release-"
8851 (version-major+minor version) "/"
8852 "flightgear-" version ".tar.bz2"))
8853 (sha256
8854 (base32 "0ya3vb539kwi1qrifqhsj5j3k4w6s06hrllp2vdzxf6id7cgf0hc"))
8855 (modules '((guix build utils)))
8856 (snippet
8857 '(begin
8858 ;; There are some bundled libraries.
8859 (for-each delete-file-recursively
8860 '("3rdparty/sqlite3/"))
8861 #t))))
8862 (build-system cmake-build-system)
8863 (arguments
8864 `(#:configure-flags
8865 (list "-DSYSTEM_SQLITE=ON"
8866 (string-append "-DFG_DATA_DIR="
8867 (assoc-ref %outputs "out")
8868 "/share/flightgear"))
8869 ;; TODO: test cannot be run because the "run_test_suite" executable
8870 ;; does not seem to be built.
8871 #:tests? #f
8872 #:phases
8873 (modify-phases %standard-phases
8874 (add-after 'install 'wrap-executable
8875 (lambda* (#:key inputs outputs #:allow-other-keys)
8876 (let ((out (assoc-ref outputs "out")))
8877 (wrap-program (string-append out "/bin/fgfs")
8878 `("QT_PLUGIN_PATH" ":" prefix
8879 ,(map (lambda (label)
8880 (string-append (assoc-ref inputs label)
8881 "/lib/qt5/plugins"))
8882 '("qtbase" "qtdeclarative" "qtsvg")))
8883 `("QML2_IMPORT_PATH" ":" prefix
8884 ,(map (lambda (label)
8885 (string-append (assoc-ref inputs label)
8886 "/lib/qt5/qml"))
8887 '("qtdeclarative" "qtsvg"))))
8888 #t)))
8889 (add-after 'install 'install-data
8890 (lambda* (#:key inputs outputs #:allow-other-keys)
8891 (let ((share (string-append (assoc-ref outputs "out") "/share/flightgear")))
8892 (mkdir-p share)
8893 (with-directory-excursion share
8894 (invoke "tar" "xf" (assoc-ref inputs "flightgear-data")
8895 "--strip-components=1")))
8896 #t)))))
8897 (inputs
8898 `(("boost" ,boost-for-mysql) ; same as simgear
8899 ("dbus" ,dbus)
8900 ("eudev" ,eudev)
8901 ("freeglut" ,freeglut)
8902 ("freetype" ,freetype)
8903 ("glew" ,glew)
8904 ("libpng" ,libpng)
8905 ("openal" ,openal)
8906 ("openscenegraph" ,openscenegraph-3.4)
8907 ("plib" ,plib)
8908 ("qtbase" ,qtbase)
8909 ("qtdeclarative" ,qtdeclarative)
8910 ("qtsvg" ,qtsvg)
8911 ("simgear" ,simgear)
8912 ("speexdsp" ,speexdsp)
8913 ("sqlite" ,sqlite)
8914 ("zlib" ,zlib)))
8915 (native-inputs
8916 `(("cppunit" ,cppunit)
8917 ("pkg-config" ,pkg-config)
8918 ("qttools" ,qttools)
8919 ("flightgear-data"
8920 ,(origin
8921 (method url-fetch)
8922 (uri (string-append "mirror://sourceforge/flightgear/release-"
8923 (version-major+minor version) "/"
8924 "FlightGear-" version "-data.tar.bz2"))
8925 (sha256
8926 (base32
8927 "04fv9za5zlyxlyfh6jx78y42l3jazvzl9dq2y6rzxqlcc9g5swhk"))))))
8928 (home-page "https://home.flightgear.org/")
8929 (synopsis "Flight simulator")
8930 (description "The goal of the FlightGear project is to create a
8931 sophisticated flight simulator framework for use in research or academic
8932 environments, pilot training, as an industry engineering tool, for DIY-ers to
8933 pursue their favorite interesting flight simulation idea, and last but
8934 certainly not least as a fun, realistic, and challenging desktop flight
8935 simulator.")
8936 (license license:gpl2+)))
8937
8938 (define-public jumpnbump
8939 (package
8940 (name "jumpnbump")
8941 (version "1.61")
8942 (source (origin
8943 (method git-fetch)
8944 (uri (git-reference
8945 (url "https://gitlab.com/LibreGames/jumpnbump.git")
8946 (commit version)))
8947 (file-name (git-file-name name version))
8948 (sha256
8949 (base32
8950 "12lwl5sl5n009nb83r8l4lakb9286csqdf1ynpmwwydy17giqsdp"))))
8951 (build-system gnu-build-system)
8952 (arguments
8953 `(#:make-flags
8954 (list "CC=gcc"
8955 (string-append "PREFIX=" (assoc-ref %outputs "out")))
8956 #:tests? #f ;no test
8957 #:phases
8958 (modify-phases %standard-phases
8959 (delete 'configure) ;no configure script
8960 (add-after 'unpack 'fix-sdl-path
8961 ;; XXX: For some reason, `sdl2-config' reports stand-alone SDL
8962 ;; directory, not SDL-union provided as an input to the package.
8963 ;; We force the latter with "--prefix=" option.
8964 (lambda* (#:key inputs #:allow-other-keys)
8965 (substitute* "Makefile"
8966 (("sdl2-config" command)
8967 (string-append command " --prefix=" (assoc-ref inputs "sdl"))))
8968 #t)))))
8969 (inputs
8970 `(("bzip2" ,bzip2)
8971 ("sdl" ,(sdl-union (list sdl2 sdl2-mixer sdl2-net)))
8972 ("zlib" ,zlib)))
8973 (native-inputs
8974 `(("gettext" ,gettext-minimal))) ;for msgfmt
8975 (home-page "https://gitlab.com/LibreGames/jumpnbump")
8976 (synopsis "Multiplayer platform game with bunnies")
8977 (description "You, as a bunny, have to jump on your opponents to make them
8978 explode. It is a true multiplayer game; you cannot play this alone. You can
8979 play with up to four players simultaneously. It has network support.")
8980 (license license:gpl2+)))
8981
8982 (define-public hedgewars
8983 (package
8984 (name "hedgewars")
8985 (version "1.0.0")
8986 (source (origin
8987 (method url-fetch)
8988 (uri (string-append "https://www.hedgewars.org/download/releases/"
8989 "hedgewars-src-" version ".tar.bz2"))
8990 (sha256
8991 (base32
8992 "0nqm9w02m0xkndlsj6ys3wr0ik8zc14zgilq7k6fwjrf3zk385i1"))))
8993 (build-system cmake-build-system)
8994 (arguments
8995 ;; XXX: Engine is built as Pascal source code, requiring Free Pascal
8996 ;; Compiler, which we haven't packaged yet. With the flag below, we use
8997 ;; a Pascal to C translator and Clang instead.
8998 `(#:configure-flags (list "-DBUILD_ENGINE_C=ON"
8999 "-Dhaskell_flags=-dynamic;-fPIC")
9000 #:phases
9001 (modify-phases %standard-phases
9002 (replace 'check
9003 (lambda _ (invoke "ctest")))
9004 (add-after 'install 'install-icon
9005 (lambda _
9006 ;; Install icon for the desktop file.
9007 (let* ((out (assoc-ref %outputs "out"))
9008 (icons (string-append out "/share/icons/hicolor/512x512/apps")))
9009 (with-directory-excursion (string-append "../hedgewars-src-" ,version)
9010 (install-file "misc/hedgewars.png" icons)))
9011 #t)))))
9012 (inputs
9013 `(("ffmpeg" ,ffmpeg)
9014 ("freeglut" ,freeglut)
9015 ("ghc-entropy" ,ghc-entropy)
9016 ("ghc-hslogger" ,ghc-hslogger)
9017 ("ghc-network" ,ghc-network)
9018 ("ghc-random" ,ghc-random)
9019 ("ghc-regex-tdfa" ,ghc-regex-tdfa)
9020 ("ghc-sandi" ,ghc-sandi)
9021 ("ghc-sha" ,ghc-sha)
9022 ("ghc-utf8-string" ,ghc-utf8-string)
9023 ("ghc-vector" ,ghc-vector)
9024 ("ghc-zlib" ,ghc-zlib)
9025 ("glew" ,glew)
9026 ("libpng" ,libpng)
9027 ("lua" ,lua-5.1)
9028 ("physfs" ,physfs)
9029 ("qtbase" ,qtbase)
9030 ("sdl" ,(sdl-union
9031 (list sdl2 sdl2-mixer sdl2-net sdl2-ttf sdl2-image)))))
9032 (native-inputs
9033 `(("clang" ,clang)
9034 ("ghc" ,ghc)
9035 ("pkg-config" ,pkg-config)
9036 ("qttools" ,qttools)))
9037 (home-page "https://hedgewars.org/")
9038 (synopsis "Turn-based artillery game featuring fighting hedgehogs")
9039 (description
9040 "Hedgewars is a turn based strategy, artillery, action and comedy game,
9041 featuring the antics of pink hedgehogs with attitude as they battle from the
9042 depths of hell to the depths of space.
9043
9044 As commander, it's your job to assemble your crack team of hedgehog soldiers
9045 and bring the war to your enemy.")
9046 ;; Software as a whole is licensed under GPL-2 terms. Artwork and
9047 ;; scripts are distributed under various terms.
9048 (license (list license:gpl2
9049 license:bsd-2 license:bsd-3 license:cc-by3.0 license:cc0
9050 license:expat license:fdl1.3+ license:public-domain
9051 license:zlib))))
9052
9053 (define-public harmonist
9054 (package
9055 (name "harmonist")
9056 (version "0.3.0")
9057 (source (origin
9058 (method git-fetch)
9059 (uri (git-reference
9060 (url "https://git.tuxfamily.org/harmonist/harmonist.git")
9061 (commit (string-append "v" version))))
9062 (file-name (git-file-name name version))
9063 (sha256
9064 (base32
9065 "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
9066 (build-system go-build-system)
9067 (arguments
9068 '(#:import-path "git.tuxfamily.org/harmonist/harmonist"))
9069 (inputs
9070 `(("go-github.com-nsf-termbox-go" ,go-github.com-nsf-termbox-go)))
9071 (home-page "https://harmonist.tuxfamily.org/")
9072 (synopsis "Stealth coffee-break roguelike game")
9073 (description "Harmonist: Dayoriah Clan Infiltration is a stealth
9074 coffee-break roguelike game. The game has a heavy focus on tactical
9075 positioning, light and noise mechanisms, making use of various terrain types
9076 and cones of view for monsters. Aiming for a replayable streamlined experience,
9077 the game avoids complex inventory management and character building, relying
9078 on items and player adaptability for character progression.")
9079 (license license:isc)))
9080
9081 (define-public harmonist-tk
9082 (package
9083 (inherit harmonist)
9084 (name "harmonist-tk")
9085 (arguments
9086 (append
9087 (package-arguments harmonist)
9088 `(#:phases
9089 (modify-phases %standard-phases
9090 (replace 'build
9091 (lambda _
9092 (invoke "go" "install" "-v" "-x" "--tags" "tk"
9093 "git.tuxfamily.org/harmonist/harmonist")))
9094 (replace 'check
9095 (lambda _
9096 (invoke "go" "test" "--tags" "tk"
9097 "git.tuxfamily.org/harmonist/harmonist")))))))
9098 (inputs
9099 `(("go-github.com-nsf-gothic" ,go-github.com-nsf-gothic)))))
9100
9101 (define-public drascula
9102 (package
9103 (name "drascula")
9104 (version "1.0")
9105 (source (origin
9106 (method url-fetch)
9107 (uri (string-append "mirror://sourceforge/scummvm/extras/"
9108 "Drascula_%20The%20Vampire%20Strikes%20Back/"
9109 "drascula-" version ".zip"))
9110 (sha256
9111 (base32
9112 "1pj29rpb754sn6a56f8brfv6f2m1p5qgaqik7d68pfi2bb5zccdp"))))
9113 (build-system trivial-build-system)
9114 (arguments
9115 `(#:modules ((guix build utils))
9116 #:builder
9117 (begin
9118 (use-modules (guix build utils)
9119 (ice-9 match))
9120 (let* ((out (assoc-ref %outputs "out"))
9121 (share (string-append out "/share/drascula"))
9122 (scummvm (assoc-ref %build-inputs "scummvm")))
9123 ;; Install data.
9124 (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
9125 "/bin/unzip"))
9126 (doc (string-append out "/share/doc/" ,name "-" ,version)))
9127 (for-each
9128 (lambda (input)
9129 (invoke unzip
9130 "-j"
9131 (assoc-ref %build-inputs input)
9132 "-x" "__MACOSX")
9133 ;; Every input provides "readme.txt", and we want to
9134 ;; preserve them all. Therefore we rename them first.
9135 (match input
9136 ("drascula-int"
9137 (rename-file "readme.txt" "readme-international.txt"))
9138 ("drascula-audio"
9139 (rename-file "readme.txt" "readme-audio.txt"))
9140 (_ #f))
9141 ;; Install documentation.
9142 (for-each (lambda (f) (install-file f doc))
9143 (find-files "." "\\.(txt|doc)$"))
9144 ;; Install data.
9145 (for-each (lambda (f) (install-file f share))
9146 (find-files "." "\\.(ogg|00[0-9])$")))
9147 '("drascula-audio" "drascula-int" "source")))
9148 ;; Create standalone executable.
9149 (let* ((bin (string-append out "/bin"))
9150 (executable (string-append bin "/drascula"))
9151 (bash (string-append (assoc-ref %build-inputs "bash")
9152 "/bin/bash")))
9153 (mkdir-p bin)
9154 (with-output-to-file executable
9155 (lambda ()
9156 (format #t "#!~a~%" bash)
9157 (format #t
9158 "exec ~a/bin/scummvm --path=~a drascula~%"
9159 scummvm share)))
9160 (chmod executable #o755))
9161 ;; Create desktop file. There is no dedicated icon for the
9162 ;; game, so we borrow SCUMMVM's.
9163 (let ((apps (string-append out "/share/applications")))
9164 (mkdir-p apps)
9165 (make-desktop-entry-file
9166 (string-append apps "/drascula.desktop")
9167 #:name "Drascula: The Vampire Strikes Back"
9168 #:generic-name "Drascula"
9169 #:exec (string-append out "/bin/drascula")
9170 #:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
9171 #:categories '("AdventureGame" "Game" "RolePlaying")
9172 #:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
9173 #:comment '((#f "Classic 2D point and click adventure game")
9174 ("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
9175 ("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
9176 ("it" "Gioco classico di avventura punta e clicca 2D"))))
9177 #t))))
9178 (native-inputs
9179 `(("bash" ,bash)
9180 ("unzip" ,unzip)))
9181 (inputs
9182 `(("scummvm" ,scummvm)
9183 ("drascula-int"
9184 ,(let ((version "1.1"))
9185 (origin
9186 (method url-fetch)
9187 (uri (string-append "mirror://sourceforge/scummvm/extras/"
9188 "Drascula_%20The%20Vampire%20Strikes%20Back/"
9189 "drascula-int-" version ".zip"))
9190 (sha256
9191 (base32
9192 "12236i7blamal92p1i8dgp3nhp2yicics4whsl63v682bj999n14")))))
9193 ("drascula-audio"
9194 ,(let ((version "2.0"))
9195 (origin
9196 (method url-fetch)
9197 (uri (string-append "mirror://sourceforge/scummvm/extras/"
9198 "Drascula_%20The%20Vampire%20Strikes%20Back/"
9199 "drascula-audio-" version ".zip"))
9200 (sha256
9201 (base32
9202 "00g4izmsqzxb8ry1vhfx6jrygl58lvlij09nw01ds4zddsiznsky")))))))
9203 (home-page "https://www.scummvm.org")
9204 (synopsis "Classic 2D point and click adventure game")
9205 (description "Drascula: The Vampire Strikes Back is a classic humorous 2D
9206 point and click adventure game.
9207
9208 In Drascula you play the role of John Hacker, a British estate agent, that
9209 gets to meet a gorgeous blond girl who is kidnapped by the notorious vampire
9210 Count Drascula and embark on a fun yet dangerous quest to rescue her.
9211 Unfortunately, Hacker is not aware of Drascula's real ambitions: DOMINATING
9212 the World and demonstrating that he is even more evil than his brother Vlad.")
9213 ;; Drascula uses a BSD-like license.
9214 (license (license:non-copyleft "file:///readme.txt"))))
9215
9216 (define (make-lure-package name language hash)
9217 (package
9218 (name name)
9219 (version "1.1")
9220 (source
9221 (origin
9222 (method url-fetch)
9223 (uri (string-append
9224 "mirror://sourceforge/scummvm/extras/"
9225 "Lure%20of%20the%20Temptress/"
9226 name "-" version ".zip"))
9227 (sha256
9228 (base32 hash))))
9229 (build-system trivial-build-system)
9230 (arguments
9231 `(#:modules ((guix build utils))
9232 #:builder
9233 (begin
9234 (use-modules (guix build utils))
9235 (let* ((out (assoc-ref %outputs "out"))
9236 (share (string-append out "/share"))
9237 (data (string-append share "/" ,name "/" ,language))
9238 (apps (string-append share "/applications"))
9239 (bin (string-append out "/bin"))
9240 (executable (string-append bin "/" ,name))
9241 (scummvm (assoc-ref %build-inputs "scummvm")))
9242 (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
9243 "/bin/unzip")))
9244 (invoke unzip "-j" (assoc-ref %build-inputs "source")))
9245 (let ((doc (string-append share "/doc/" ,name "-" ,version)))
9246 (for-each (lambda (f) (install-file f doc))
9247 (find-files "." "\\.(txt|PDF|pdf)$")))
9248 (for-each (lambda (f) (install-file f data))
9249 (find-files "." "\\.(vga|VGA)$"))
9250 ;; Build the executable.
9251 (mkdir-p bin)
9252 (let ((bash (assoc-ref %build-inputs "bash")))
9253 (with-output-to-file executable
9254 (lambda ()
9255 (format #t "#!~a/bin/bash~%" bash)
9256 (format #t "exec ~a/bin/scummvm -q ~a -p ~a lure~%"
9257 scummvm ,language data))))
9258 (chmod executable #o755)
9259 ;; Create desktop file. There is no dedicated
9260 ;; icon for the game, so we borrow SCUMMVM's.
9261 (mkdir-p apps)
9262 (with-output-to-file (string-append apps "/" ,name ".desktop")
9263 (lambda _
9264 (format #t
9265 "[Desktop Entry]~@
9266 Name=Lure of the Temptress~@
9267 GenericName=Lure~@
9268 Exec=~a~@
9269 Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
9270 Categories=AdventureGame;Game;RolePlaying;~@
9271 Keywords=game;adventure;roleplaying;2D,fantasy;~@
9272 Comment=Classic 2D point and click adventure game~@
9273 Comment[de]=klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier~@
9274 Comment[fr]=Jeu classique d'aventure pointer-et-cliquer en 2D~@
9275 Comment[it]=Gioco classico di avventura punta e clicca 2D~@
9276 Type=Application~%"
9277 executable scummvm)))
9278 #t))))
9279 (native-inputs
9280 `(("unzip" ,unzip)))
9281 (inputs
9282 `(("bash" ,bash)
9283 ("scummvm" ,scummvm)))
9284 (home-page "https://www.scummvm.org")
9285 (synopsis "2D point and click fantasy adventure game")
9286 (description
9287 "Lure of the Temptress is a classic 2D point and click adventure game.
9288
9289 You are Diermot, an unwilling hero who'd prefer a quiet life, and are, to all
9290 intents and purposes, a good man. After decades of unrest the King has united
9291 the warring factions in his kingdom and all his lands are at peace, except
9292 a remote region around a town called Turnvale. A revolt has recently taken
9293 place in Turnvale, a revolt orchestrated by an apprentice sorceress called
9294 Selena, the titular temptress. The king calls together his finest horsemen
9295 and heads off (with you in tow) to Turnvale just to witness how hellish
9296 mercenary monsters called Skorl are invading the town.
9297
9298 The king's men are defeated, the king is killed and you fall of your horse and
9299 bang your head heavily on the ground. You have been *unconscious for a while
9300 when you realize that you are in a dingy cell guarded by a not so friendly
9301 Skorl. Maybe it would be an idea to try and escape...")
9302 (license (license:non-copyleft "file:///README"))))
9303
9304 (define-public lure
9305 (make-lure-package
9306 "lure" "en" "0201i70qcs1m797kvxjx3ygkhg6kcl5yf49sihba2ga8l52q45zk"))
9307
9308 (define-public lure-de
9309 (make-lure-package
9310 "lure-de" "de" "0sqq7h5llml6rv85x0bfv4bgzwhs4c82p4w4zmfcaab6cjlad0sy"))
9311
9312 (define-public lure-es
9313 (make-lure-package
9314 "lure-es" "es" "1dvv5znvlsakw6w5r16calv9jkgw27aymgybsf4q22lcmpxbj1lk"))
9315
9316 (define-public lure-fr
9317 (make-lure-package
9318 "lure-fr" "fr" "1y51jjb7f8023832g44vd1jsb6ni85586pi2n5hjg9qjk6gi90r9"))
9319
9320 (define-public lure-it
9321 (make-lure-package
9322 "lure-it" "it" "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj"))
9323
9324 (define (make-queen-package name file-prefix release language hash)
9325 (package
9326 (name name)
9327 (version release)
9328 (source
9329 (origin
9330 (method url-fetch)
9331 (uri (string-append "mirror://sourceforge/scummvm/extras/"
9332 "Flight%20of%20the%20Amazon%20Queen/"
9333 file-prefix release ".zip"))
9334 (sha256
9335 (base32 hash))))
9336 (build-system trivial-build-system)
9337 (arguments
9338 `(#:modules ((guix build utils))
9339 #:builder
9340 (begin
9341 (use-modules (guix build utils))
9342 (let* ((out (assoc-ref %outputs "out"))
9343 (share (string-append out "/share"))
9344 (data (string-append share "/" ,name))
9345 (apps (string-append share "/applications"))
9346 (bin (string-append out "/bin"))
9347 (executable (string-append bin "/" ,name))
9348 (scummvm (assoc-ref %build-inputs "scummvm")))
9349 (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
9350 "/bin/unzip")))
9351 (invoke unzip "-j" (assoc-ref %build-inputs "source")))
9352 (let ((doc (string-append share "/doc/" ,name "-" ,version)))
9353 (install-file "readme.txt" doc))
9354 (install-file "queen.1c" data)
9355 (mkdir-p bin)
9356 (let ((bash (assoc-ref %build-inputs "bash")))
9357 (with-output-to-file executable
9358 (lambda ()
9359 (format #t "#!~a/bin/bash~%" bash)
9360 (format #t "exec ~a/bin/scummvm -q fr -p ~a queen~%"
9361 scummvm data))))
9362 (chmod executable #o755)
9363 ;; Create desktop file. There is no dedicated
9364 ;; icon for the game, so we borrow SCUMMVM's.
9365 (mkdir-p apps)
9366 (with-output-to-file (string-append apps "/" ,name ".desktop")
9367 (lambda _
9368 (format #t
9369 "[Desktop Entry]~@
9370 Name=Flight of the Amazon Queen~@
9371 GenericName=Queen~@
9372 Comment=Embark on a quest to rescue a kidnapped princess and in the process, discover the true sinister intentions of a suspiciously located Lederhosen company~@
9373 Comment[de]=Begib dich auf ein Abenteuer, um eine entführte Prinzessin zu retten und entdecke die wahren, finsteren Absichten eines verdächtig erscheinenden Lederhosen-Unternehmens~@
9374 Type=Application~@
9375 Exec=~a~@
9376 Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
9377 Categories=AdventureGame;Game;RolePlaying;~@
9378 Keywords=adventure;game;roleplaying;fantasy;~%"
9379 executable scummvm))))
9380 #t)))
9381 (native-inputs
9382 `(("unzip" ,unzip)))
9383 (inputs
9384 `(("bash" ,bash)
9385 ("scummvm" ,scummvm)))
9386 (home-page "https://www.scummvm.org/")
9387 (synopsis "Classic 2D point and click adventure game")
9388 (description "Flight of the Amazon Queen is a 2D point-and-click
9389 adventure game set in the 1940s.
9390
9391 You assume the role of Joe King, a pilot for hire who is given the job
9392 of flying Faye Russell (a famous movie star) into the Amazon jungle
9393 for a photo shoot. Of course, things never go according to plans.
9394 After an unfortunate turn of events they find themselves stranded in
9395 the heart of the Amazon jungle, where Joe will embark on a quest to
9396 rescue a kidnapped princess and in the process, discover the true
9397 sinister intentions of a suspiciously located Lederhosen company. In
9398 a rich 2D environment, Joe will cross paths with a variety of unlikely
9399 jungle inhabitants including, but not limited to, a tribe of Amazon
9400 women and 6-foot-tall pygmies.")
9401 (license (license:non-copyleft "file:///readme.txt"))))
9402
9403 (define-public queen
9404 (make-queen-package
9405 "queen" "FOTAQ_Talkie-" "1.1" "en"
9406 "1a6q71q1dl9vvw2qqsxk5h1sv0gaqy6236zr5905w2is01gdsp52"))
9407
9408 (define-public queen-de
9409 (make-queen-package
9410 "queen-de" "FOTAQ_Ger_talkie-" "1.0" "de"
9411 "13vn43x7214vyprlpqabvv71k890nff3d6fjscflr1ll7acjca3f"))
9412
9413 (define-public queen-fr
9414 (make-queen-package
9415 "queen-fr" "FOTAQ_Fr_Talkie_" "1.0" "fr"
9416 "0hq5g4qrkcwm2kn5i4kv4hijs9hi7bw9xl1vrwd1l69qqn30crwy"))
9417
9418 (define-public queen-it
9419 (make-queen-package
9420 "queen-it" "FOTAQ_It_Talkie_" "1.0" "it"
9421 "1h76y70lrpzfjkm53n4nr364nhyka54vbz9r7sadzyzl7c7ilv4d"))
9422
9423 (define-public sky
9424 (package
9425 (name "sky")
9426 (version "1.2") ;1.3 is floppy version
9427 (source
9428 (origin
9429 (method url-fetch)
9430 (uri (string-append "mirror://sourceforge/scummvm/extras/"
9431 "Beneath%20a%20Steel%20Sky/"
9432 "bass-cd-" version ".zip"))
9433 (sha256
9434 (base32 "14s5jz67kavm8l15gfm5xb7pbpn8azrv460mlxzzvdpa02a9n82k"))))
9435 (build-system trivial-build-system)
9436 (arguments
9437 `(#:modules ((guix build utils))
9438 #:builder
9439 (begin
9440 (use-modules (guix build utils))
9441 (let* ((out (assoc-ref %outputs "out"))
9442 (share (string-append out "/share"))
9443 (data (string-append share "/" ,name))
9444 (apps (string-append share "/applications"))
9445 (bin (string-append out "/bin"))
9446 (executable (string-append bin "/" ,name))
9447 (scummvm (assoc-ref %build-inputs "scummvm")))
9448 (let ((unzip (string-append (assoc-ref %build-inputs "unzip")
9449 "/bin/unzip")))
9450 (invoke unzip "-j" (assoc-ref %build-inputs "source")))
9451 (let ((doc (string-append share "/doc/bass-" ,version)))
9452 (install-file "readme.txt" doc))
9453 (for-each (lambda (f) (install-file f data))
9454 (find-files "." "^sky\\."))
9455 ;; Build the executable.
9456 (mkdir-p bin)
9457 (let ((bash (assoc-ref %build-inputs "bash")))
9458 (with-output-to-file executable
9459 (lambda ()
9460 (format #t "#!~a/bin/bash~%" bash)
9461 (format #t "exec ~a/bin/scummvm -p ~a sky~%" scummvm data))))
9462 (chmod executable #o755)
9463 ;; Create desktop file. There is no dedicated
9464 ;; icon for the game, so we borrow SCUMMVM's.
9465 (mkdir-p apps)
9466 (with-output-to-file (string-append apps "/" ,name ".desktop")
9467 (lambda _
9468 (format #t
9469 "[Desktop Entry]~@
9470 Name=Beneath a Steel Sky~@
9471 GenericName=Bass~@
9472 Exec=~a~@
9473 Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
9474 Categories=AdventureGame;Game;RolePlaying;~@
9475 Keywords=adventure;game;roleplaying;cyberpunk;~@
9476 Comment=A science-fiction adventure game set in a bleak post-apocalyptic vision of the future~@
9477 Comment[de]=Ein Science-Fiction-Abenteuerspiel \
9478 angesiedelt in einer düsteren, postapokalyptischen Vision der Zukunft~@
9479 Type=Application~%"
9480 executable scummvm)))
9481 #t))))
9482 (native-inputs
9483 `(("unzip" ,unzip)))
9484 (inputs
9485 `(("bash" ,bash)
9486 ("scummvm" ,scummvm)))
9487 (home-page "https://www.scummvm.org/")
9488 (synopsis "Classic 2D point and click science-fiction adventure game")
9489 (description
9490 "Beneath a Steel Sky is a science-fiction thriller set in a bleak
9491 post-apocalyptic vision of the future. It revolves around Union City,
9492 where selfishness, rivalry, and corruption by its citizens seems to be
9493 all too common, those who can afford it live underground, away from
9494 the pollution and social problems which are plaguing the city.
9495
9496 You take on the role of Robert Foster, an outcast of sorts from the
9497 city since a boy who was raised in a remote environment outside of
9498 Union City simply termed ``the gap''. Robert's mother took him away
9499 from Union City as a child on their way to ``Hobart'' but the
9500 helicopter crashed on its way. Unfortunately, Robert's mother died,
9501 but he survived and was left to be raised by a local tribe from the
9502 gap.
9503
9504 Years later, Union City security drops by and abducts Robert, killing
9505 his tribe in the process; upon reaching the city the helicopter taking
9506 him there crashes with him escaping, high upon a tower block in the
9507 middle of the city. He sets out to discover the truth about his past,
9508 and to seek vengeance for the killing of his tribe.")
9509 (license (license:non-copyleft "file:///readme.txt"))))
9510
9511 (define-public gnurobots
9512 (package
9513 (name "gnurobots")
9514 (version "1.2.0")
9515 (source
9516 (origin
9517 (method url-fetch)
9518 (uri (string-append "mirror://gnu/gnurobots/gnurobots-"
9519 version ".tar.gz"))
9520 (sha256
9521 (base32
9522 "07gi3lsmbzzsjambgixj6xy79lh22km84z7bnzgwzxdy806lyvwb"))))
9523 (build-system gnu-build-system)
9524 (inputs
9525 `(("glib" ,glib)
9526 ("gtk+" ,gtk+-2)
9527 ("vte" ,vte/gtk+-2)
9528 ("readline" ,readline)
9529 ("guile" ,guile-1.8)))
9530 (native-inputs
9531 `(("pkg-config" ,pkg-config)))
9532 (arguments
9533 `(#:make-flags
9534 (list
9535 ;; Do not abort build on "deprecated-declarations" warnings.
9536 "CFLAGS=-Wno-error=deprecated-declarations"
9537 ;; Find readline headers in sub-directory.
9538 (string-append "READLINE_CFLAGS=-I"
9539 (assoc-ref %build-inputs "readline")
9540 "/include/readline/"))
9541 #:phases
9542 (modify-phases %standard-phases
9543 (add-after 'install 'install-doc
9544 (lambda* (#:key outputs #:allow-other-keys)
9545 (install-file "doc/Robots-HOWTO"
9546 (string-append (assoc-ref outputs "out")
9547 "/share/doc/gnurobots-"
9548 ,version))
9549 #t)))))
9550 (home-page "https://www.gnu.org/software/gnurobots/")
9551 (synopsis "Program a little robot and watch it explore a world")
9552 (description
9553 "GNU Robots is a game in which you program a robot to explore a world
9554 full of enemies that can hurt it, obstacles and food to be eaten. The goal of
9555 the game is to stay alive and collect prizes. The robot program conveniently
9556 may be written in a plain text file in the Scheme programming language.")
9557 (license license:gpl3+)))
9558
9559 (define-public ri-li
9560 (package
9561 (name "ri-li")
9562 (version "2.0.1")
9563 (source (origin
9564 (method url-fetch)
9565 (uri (string-append "mirror://sourceforge/ri-li/"
9566 "Ri-li%20Linux_Unix/Ri-li%20V" version "/"
9567 "Ri-li-" version ".tar.bz2"))
9568 (sha256
9569 (base32
9570 "1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
9571 ;; Taken from
9572 ;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
9573 ;; It doesn't build otherwise.
9574 (patches (search-patches "ri-li-modernize_cpp.patch"))))
9575 (build-system gnu-build-system)
9576 (arguments
9577 `(#:phases
9578 (modify-phases %standard-phases
9579 ;; Remove "gentoo" subdirectory from Makefile, as it is
9580 ;; missing a make file and generates a build failure.
9581 (add-after 'configure 'fix-build
9582 (lambda _
9583 (substitute* "Makefile"
9584 ((" gentoo") ""))
9585 #t))
9586 (add-after 'install 'install-desktop-file
9587 (lambda* (#:key outputs #:allow-other-keys)
9588 (let* ((out (assoc-ref outputs "out"))
9589 (apps (string-append out "/share/applications"))
9590 (pixmaps (string-append out "/share/pixmaps")))
9591 (for-each (lambda (f) (install-file f pixmaps))
9592 (find-files "data" "\\.(png|ico)$"))
9593 (mkdir-p apps)
9594 (with-output-to-file (string-append apps "/ri-li.desktop")
9595 (lambda _
9596 (format #t
9597 "[Desktop Entry]~@
9598 Name=Ri-li~@
9599 Exec=~a/bin/Ri_li~@
9600 Icon=~a/Ri-li-icon-32x32.png~@
9601 Categories=Game;ArcadeGame;~@
9602 Keywords=toy;train;wooden;snake-like;engine;~@
9603 Comment=a toy simulator game~@
9604 Comment[de]=Ein Spiel mit einem kleinen Zug~@
9605 Comment[fr]=un jeu de petit train~@
9606 Comment[ro_RO]=un joc cu un tren de jucărie~@
9607 Terminal=false~@
9608 Type=Application~%"
9609 out pixmaps))))
9610 #t))
9611 (add-after 'install-desktop-file 'remove-spurious-files
9612 ;; Delete redundant files already installed somewhere else.
9613 (lambda* (#:key outputs #:allow-other-keys)
9614 (let ((out (assoc-ref outputs "out")))
9615 (for-each delete-file
9616 (find-files (string-append out "/share/Ri-li")
9617 "\\.(png|ico)|COPYING"))
9618 #t))))))
9619 (inputs
9620 `(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
9621 (home-page "http://www.ri-li.org")
9622 (synopsis "Toy train simulation game")
9623 (description "Ri-li is a game in which you drive a wooden toy
9624 steam locomotive across many levels and collect all the coaches to
9625 win.")
9626 ;; The project is dual-licensed GPL2+ and GPL3+.
9627 (license (list license:gpl2+ license:gpl3+))))
9628
9629 (define-public freeorion
9630 (package
9631 (name "freeorion")
9632 (version "0.4.10")
9633 (source
9634 (origin
9635 (method url-fetch)
9636 (uri (string-append "https://github.com/freeorion/freeorion/releases/"
9637 "download/v" version "/FreeOrion_v" version
9638 "_2020-07-10.f3d403e_Source.tar.gz"))
9639 (sha256
9640 (base32 "12xspixrkx6mmmsdqjha0hg02r4y73pk229l0wjq9s0yp8nb8ap7"))
9641 (modules '((guix build utils)))
9642 (snippet
9643 '(begin
9644 ;; There are some bundled fonts.
9645 (for-each delete-file-recursively '("default/data/fonts"))
9646 #t))))
9647 (build-system cmake-build-system)
9648 (arguments
9649 '(#:tests? #f ;no test
9650 #:phases
9651 (modify-phases %standard-phases
9652 (add-after 'unpack 'unbundle-fonts
9653 (lambda* (#:key inputs #:allow-other-keys)
9654 (let ((roboto-dir (string-append (assoc-ref inputs "font-roboto")
9655 "/share/fonts/truetype/")))
9656 (substitute* "UI/ClientUI.cpp"
9657 (("\\(GetRootDataDir.*?Roboto-(Bold|Regular)\\.ttf\"\\)\\.string\\(\\)\\);"
9658 all type)
9659 (string-append "\"" roboto-dir "Roboto-" type ".ttf\");")))
9660 #t))))))
9661 (inputs
9662 `(("boost" ,boost)
9663 ("boost_signals" ,boost-signals2)
9664 ("font-dejavu" ,font-dejavu)
9665 ("font-roboto" ,font-google-roboto)
9666 ("freetype2" ,freetype)
9667 ("glew" ,glew)
9668 ("glu" ,glu)
9669 ("libogg" ,libogg)
9670 ("libpng" ,libpng)
9671 ("libvorbis" ,libvorbis)
9672 ("openal" ,openal)
9673 ("python" ,python)
9674 ("sdl2" ,sdl2)
9675 ("zlib" ,zlib)))
9676 (home-page "https://www.freeorion.org/index.php/Main_Page")
9677 (synopsis "Turn-based space empire and galactic conquest computer game")
9678 (description
9679 "FreeOrion is a turn-based space empire and galactic conquest (4X)
9680 computer game being designed and built by the FreeOrion project. Control an
9681 empire with the goal of exploring the galaxy, expanding your territory,
9682 exploiting the resources, and exterminating rival alien empires. FreeOrion is
9683 inspired by the tradition of the Master of Orion games, but is not a clone or
9684 remake of that series or any other game.")
9685 ;; Source code is released under gpl2. Artwork, music and sounds, and
9686 ;; in-game text are released under cc-by-sa3.0. Game content scripts are
9687 ;; released under both gpl2 and cc-by-sa3.0. Bundled Gigi library is
9688 ;; released under lgpl2.1+.
9689 (license (list license:gpl2 license:cc-by-sa3.0 license:lgpl2.1+))))
9690
9691 (define-public leela-zero
9692 (package
9693 (name "leela-zero")
9694 (version "0.17")
9695 (source
9696 (origin
9697 (method git-fetch)
9698 (uri (git-reference
9699 (url "https://github.com/leela-zero/leela-zero")
9700 (commit (string-append "v" version))))
9701 (file-name (git-file-name name version))
9702 (sha256
9703 (base32
9704 "17px5iny8mql5c01bymcli7zfssswkzvb2i8gnsmjcck6i2n8srl"))
9705 (patches (search-patches "leela-zero-gtest.patch"))))
9706 (build-system cmake-build-system)
9707 (native-inputs
9708 `(("googletest" ,googletest)))
9709 (inputs
9710 `(("boost" ,boost)
9711 ("ocl-icd" ,ocl-icd)
9712 ("openblas" ,openblas)
9713 ("opencl-headers" ,opencl-headers)
9714 ("qtbase" ,qtbase)
9715 ("zlib" ,zlib)))
9716 (arguments
9717 '(#:configure-flags '("-DUSE_BLAS=YES")
9718 #:phases (modify-phases %standard-phases
9719 (add-before 'configure 'fix-tests
9720 (lambda* (#:key outputs #:allow-other-keys)
9721 (let ((home (getcwd)))
9722 (setenv "HOME" home)
9723 (substitute* "src/tests/gtests.cpp"
9724 (("\\.\\./src/tests/0k\\.txt")
9725 (string-append home "/src/tests/0k.txt"))
9726 (("cfg_gtp_mode = true;")
9727 "cfg_gtp_mode = true; cfg_cpu_only = true;")))
9728 #t))
9729 (replace 'check
9730 (lambda _
9731 (invoke "./tests"))))))
9732 (home-page "https://github.com/leela-zero/leela-zero")
9733 (synopsis "Program playing the game of Go")
9734 (description
9735 "Leela-zero is a Go engine with no human-provided knowledge, modeled after
9736 the AlphaGo Zero paper. The current best network weights file for the engine
9737 can be downloaded from @url{https://zero.sjeng.org/best-network}.")
9738 (license license:gpl3+)))
9739
9740 (define-public q5go
9741 (package
9742 (name "q5go")
9743 (version "1.0")
9744 (source (origin
9745 (method git-fetch)
9746 (uri (git-reference
9747 (url "https://github.com/bernds/q5Go")
9748 (commit (string-append "q5go-" version))))
9749 (file-name (git-file-name name version))
9750 (sha256
9751 (base32
9752 "1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
9753 (build-system gnu-build-system)
9754 (native-inputs
9755 `(("pkg-config" ,pkg-config)))
9756 (inputs
9757 `(("qtbase" ,qtbase)
9758 ("qtmultimedia" ,qtmultimedia)
9759 ("qtsvg" ,qtsvg)))
9760 (arguments
9761 '(#:phases
9762 (modify-phases %standard-phases
9763 (add-after 'unpack 'fix-configure-script
9764 (lambda _
9765 ;; Bypass the unavailable qtchooser program.
9766 (substitute* "configure"
9767 (("test -z \"QTCHOOSER\"")
9768 "false")
9769 (("qtchooser -run-tool=(.*) -qt=qt5" _ command)
9770 command))
9771 #t))
9772 (add-after 'unpack 'fix-paths
9773 (lambda _
9774 (substitute* '("src/pics/Makefile.in"
9775 "src/translations/Makefile.in")
9776 (("\\$\\(datadir\\)/qGo/")
9777 "$(datadir)/q5go/"))
9778 #t))
9779 (add-after 'install 'install-desktop-file
9780 (lambda* (#:key outputs #:allow-other-keys)
9781 (let* ((out (assoc-ref outputs "out"))
9782 (apps (string-append out "/share/applications"))
9783 (pics (string-append out "/share/q5go/pics")))
9784 (delete-file-recursively (string-append out "/share/applnk"))
9785 (delete-file-recursively (string-append out "/share/mimelnk"))
9786 (install-file "../source/src/pics/Bowl.ico" pics)
9787 (mkdir-p apps)
9788 (with-output-to-file (string-append apps "/q5go.desktop")
9789 (lambda _
9790 (format #t
9791 "[Desktop Entry]~@
9792 Name=q5go~@
9793 Exec=~a/bin/q5go~@
9794 Icon=~a/Bowl.ico~@
9795 Categories=Game;~@
9796 Comment=Game of Go~@
9797 Comment[de]=Spiel des Go~@
9798 Comment[eo]=Goo~@
9799 Comment[es]=Juego de Go~@
9800 Comment[fr]=Jeu de Go~@
9801 Comment[ja]=囲碁~@
9802 Comment[ko]=바둑~@
9803 Comment[zh]=围棋~@
9804 Terminal=false~@
9805 Type=Application~%"
9806 out pics))))
9807 #t)))))
9808 (synopsis "Qt GUI to play the game of Go")
9809 (description
9810 "This a tool for Go players which performs the following functions:
9811 @itemize
9812 @item SGF editor,
9813 @item Analysis frontend for Leela Zero (or compatible engines),
9814 @item GTP interface (to play against an engine),
9815 @item IGS client (to play on the internet),
9816 @item Export games to a variety of formats.
9817 @end itemize")
9818 (home-page "https://github.com/bernds/q5Go")
9819 (license license:gpl2+)))
9820
9821 (define-public ktuberling
9822 (package
9823 (name "ktuberling")
9824 (version "19.08.3")
9825 (source
9826 (origin
9827 (method url-fetch)
9828 (uri (string-append "mirror://kde/stable/applications/" version
9829 "/src/ktuberling-" version ".tar.xz"))
9830 (sha256
9831 (base32 "1qdf4q6wjh1lnlqw5c8z4rpj9w5vbyjfri1dah6yjm3mwppbc12j"))))
9832 (build-system qt-build-system)
9833 (native-inputs
9834 `(("extra-cmake-modules" ,extra-cmake-modules)
9835 ("perl" ,perl)))
9836 (inputs
9837 `(("kcompletion" ,kcompletion)
9838 ("kconfigwidgets" ,kconfigwidgets)
9839 ("kcoreaddons" ,kcoreaddons)
9840 ("kcrash" ,kcrash)
9841 ("kdbusaddons" ,kdbusaddons)
9842 ("kdelibs4support" ,kdelibs4support)
9843 ("ki18n" ,ki18n)
9844 ("kwidgetsaddons" ,kwidgetsaddons)
9845 ("kxmlgui" ,kxmlgui)
9846 ("libkdegames" ,libkdegames)
9847 ("qtbase" ,qtbase)
9848 ("qtmultimedia" ,qtmultimedia)
9849 ("qtdeclarative" ,qtdeclarative)
9850 ("qtsvg" ,qtsvg)))
9851 (home-page "https://games.kde.org/")
9852 (synopsis "Stamp drawing toy")
9853 (description "KTuberling is a drawing toy intended for small children and
9854 adults who remain young at heart. The game has no winner; the only purpose is
9855 to make the funniest faces you can. Several activities are possible, e.g.:
9856
9857 @itemize
9858 @item Give the potato a funny face, clothes, and other goodies
9859 @item Build a small town, complete with school, zoo, and fire department
9860 @item Create a fantastic moonscape with spaceships and aliens
9861 @item Top a pizza
9862 @end itemize
9863
9864 KTuberling can speak the name of each the object in several languages,
9865 to assist in learning basic vocabulary.
9866
9867 This package is part of the KDE games module.")
9868 (license (list license:gpl2+ license:fdl1.2+))))
9869
9870 (define-public picmi
9871 (package
9872 (name "picmi")
9873 (version "19.08.3")
9874 (source
9875 (origin
9876 (method url-fetch)
9877 (uri (string-append "mirror://kde/stable/applications/" version
9878 "/src/picmi-" version ".tar.xz"))
9879 (sha256
9880 (base32 "0z9mpmv49w914gqdx274brdzl6d1bz9j9nkvbwgmr3iq1ba49m3f"))))
9881 (build-system qt-build-system)
9882 (native-inputs
9883 `(("extra-cmake-modules" ,extra-cmake-modules)
9884 ("kdoctools" ,kdoctools)))
9885 (inputs
9886 `(("kcoreaddons" ,kcoreaddons)
9887 ("kcrash" ,kcrash)
9888 ("kdbusaddons" ,kdbusaddons)
9889 ("kdeclarative" ,kdeclarative)
9890 ("ki18n" ,ki18n)
9891 ("kio" ,kio)
9892 ("knewstuff" ,knewstuff)
9893 ("kxmlgui" ,kxmlgui)
9894 ("libkdegames" ,libkdegames)
9895 ("qtbase" ,qtbase)
9896 ("qtdeclarative" ,qtdeclarative)
9897 ("qtsvg" ,qtsvg)))
9898 (home-page "https://games.kde.org/")
9899 (synopsis "Number logic game")
9900 (description "Picmi is a number logic game in which cells in a grid have
9901 to be colored or left blank according to numbers given at the side of the
9902 grid. The aim is to reveal a hidden picture.
9903
9904 This package is part of the KDE games module.")
9905 (license (list license:gpl2+ license:fdl1.2+))))
9906
9907 (define-public kolf
9908 (package
9909 (name "kolf")
9910 (version "19.08.3")
9911 (source
9912 (origin
9913 (method url-fetch)
9914 (uri (string-append "mirror://kde/stable/applications/" version
9915 "/src/kolf-" version ".tar.xz"))
9916 (sha256
9917 (base32 "06sfd0llr5cc3zf1vrpcxgw9bm009ky7y8822kynic9ipcd4z1hw"))))
9918 (build-system qt-build-system)
9919 (native-inputs
9920 `(("extra-cmake-modules" ,extra-cmake-modules)
9921 ("kdoctools" ,kdoctools)))
9922 (inputs
9923 `(("kcompletion" ,kcompletion)
9924 ("kconfigwidgets" ,kconfigwidgets)
9925 ("kcoreaddons" ,kcoreaddons)
9926 ("kcrash" ,kcrash)
9927 ("kdbusaddons" ,kdbusaddons)
9928 ("ki18n" ,ki18n)
9929 ("kio" ,kio)
9930 ("kwidgetsaddons" ,kwidgetsaddons)
9931 ("kxmlgui" ,kxmlgui)
9932 ("ktextwidgets" ,ktextwidgets)
9933 ("libkdegames" ,libkdegames)
9934 ("qtbase" ,qtbase)
9935 ("qtdeclarative" ,qtdeclarative)))
9936 (home-page "https://games.kde.org/")
9937 (synopsis "Miniature golf game")
9938 (description "Kolf is a miniature golf game for one to ten players. The
9939 game is played from an overhead view, with a short bar representing the golf
9940 club. Kolf features many different types of objects, such as water hazards,
9941 slopes, sand traps, and black holes (warps), among others.
9942
9943 Features are:
9944 @itemize
9945 @item Single and Multi-player (up to ten players) modes
9946 @item High scores table
9947 @item Dynamic courses
9948 @item Third-party courses
9949 @item Course editor
9950 @end itemize
9951
9952 This package is part of the KDE games module.")
9953 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9954
9955 (define-public libkmahjongg
9956 (package
9957 (name "libkmahjongg")
9958 (version "19.08.3")
9959 (source
9960 (origin
9961 (method url-fetch)
9962 (uri (string-append "mirror://kde/stable/applications/"
9963 version "/src/libkmahjongg-" version ".tar.xz"))
9964 (sha256
9965 (base32 "0rdimk11hrc8qrmiv26z0ddjzi1k6806c0rfskx4cwmildmh6zgx"))))
9966 (build-system qt-build-system)
9967 (native-inputs
9968 `(("extra-cmake-modules" ,extra-cmake-modules)))
9969 (inputs
9970 `(("kauth" ,kauth)
9971 ("kcompletion" ,kcompletion)
9972 ;("kconfig" ,kconfig)
9973 ("kcodecs" ,kcodecs)
9974 ("kconfigwidgets" ,kconfigwidgets)
9975 ("kcoreaddons" ,kcoreaddons)
9976 ("ki18n" ,ki18n)
9977 ("kwidgetsaddons" ,kwidgetsaddons)
9978 ("qtbase" ,qtbase)
9979 ("qtsvg" ,qtsvg)))
9980 (home-page "https://games.kde.org/")
9981 (synopsis "Shared library for kmahjongg and kshisen")
9982 (description "Shared library and common files for kmahjongg, kshisen and
9983 other Mah Jongg like games.")
9984 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
9985
9986 (define-public kmahjongg
9987 (package
9988 (name "kmahjongg")
9989 (version "19.08.3")
9990 (source
9991 (origin
9992 (method url-fetch)
9993 (uri (string-append "mirror://kde/stable/applications/"
9994 version "/src/kmahjongg-" version ".tar.xz"))
9995 (sha256
9996 (base32 "08na845h0nhmfrszdmvfq5y1dy7kgbrlzjp0f5snvbbf7w44ci6p"))))
9997 (build-system qt-build-system)
9998 (native-inputs
9999 `(("extra-cmake-modules" ,extra-cmake-modules)
10000 ("kdoctools" ,kdoctools)))
10001 (inputs
10002 `(("kcompletion" ,kcompletion)
10003 ("kcrash" ,kcrash)
10004 ("kdbusaddons" ,kdbusaddons)
10005 ("kdeclarative" ,kdeclarative)
10006 ("ki18n" ,ki18n)
10007 ("knewstuff" ,knewstuff)
10008 ("kxmlgui" ,kxmlgui)
10009 ("libkdegames" ,libkdegames)
10010 ("libkmahjongg" ,libkmahjongg)
10011 ("qtbase" ,qtbase)
10012 ("qtdeclarative" ,qtdeclarative)
10013 ("qtsvg" ,qtsvg)))
10014 (home-page "https://games.kde.org/")
10015 (synopsis "Tile laying patience")
10016 (description "In KMahjongg the tiles are scrambled and staked on top of
10017 each other to resemble a certain shape. The player is then expected to remove
10018 all the tiles off the game board by locating each tile's matching pair.
10019
10020 A variety of tile layouts are included, as well as an editor to create new
10021 layouts.
10022
10023 This package is part of the KDE games module.")
10024 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10025
10026 (define-public kshisen
10027 (package
10028 (name "kshisen")
10029 (version "19.08.3")
10030 (source
10031 (origin
10032 (method url-fetch)
10033 (uri (string-append "mirror://kde/stable/applications/"
10034 version "/src/kshisen-" version ".tar.xz"))
10035 (sha256
10036 (base32 "1bq5m48af4h5apfp3bfsp76nlpv6h5sc0gd544zv7cgpfznz1sds"))))
10037 (build-system qt-build-system)
10038 (native-inputs
10039 `(("extra-cmake-modules" ,extra-cmake-modules)
10040 ;("perl" ,perl)
10041 ;("pkg-config" ,pkg-config)
10042 ("kdoctools" ,kdoctools)))
10043 (inputs
10044 `(("kauth" ,kauth)
10045 ("kcompletion" ,kcompletion)
10046 ("kconfigwidgets" ,kconfigwidgets)
10047 ("kcoreaddons" ,kcoreaddons)
10048 ("kcrash" ,kcrash)
10049 ("kdbusaddons" ,kdbusaddons)
10050 ("ki18n" ,ki18n)
10051 ("kxmlgui" ,kxmlgui)
10052 ("libkdegames" ,libkdegames)
10053 ("libkmahjongg" ,libkmahjongg)
10054 ("qtbase" ,qtbase)
10055 ("qtdeclarative" ,qtdeclarative)))
10056 (home-page "https://games.kde.org/")
10057 (synopsis "Shisen-Sho solitaire game")
10058 (description "KShisen is a solitaire-like game played using the standard
10059 set of Mahjong tiles. Unlike Mahjong however, KShisen has only one layer of
10060 scrambled tiles
10061
10062 This package is part of the KDE games module.")
10063 (license license:gpl2+)))
10064
10065 (define-public kajongg
10066 (package
10067 (name "kajongg")
10068 (version "19.08.3")
10069 (source
10070 (origin
10071 (method url-fetch)
10072 (uri (string-append "mirror://kde/stable/applications/"
10073 version "/src/kajongg-" version ".tar.xz"))
10074 (sha256
10075 (base32 "0ql6p5zifdpdf65r7ki9ml123azpwwk9x3x8r9ij6xhjnf7p7x6w"))))
10076 (build-system qt-build-system)
10077 (native-inputs
10078 `(("extra-cmake-modules" ,extra-cmake-modules)
10079 ;("perl" ,perl)
10080 ("kdoctools" ,kdoctools)))
10081 (inputs
10082 `(("kconfig" ,kconfig)
10083 ("kconfigwidgets" ,kconfigwidgets)
10084 ("kcoreaddons" ,kcoreaddons)
10085 ("ki18n" ,ki18n)
10086 ("libkmahjongg" ,libkmahjongg)
10087 ("python" ,python)
10088 ("qtbase" ,qtbase)
10089 ("qtsvg" ,qtsvg)))
10090 (propagated-inputs
10091 `(("python-twisted" ,python-twisted)
10092 ("python-pyqt" ,python-pyqt)))
10093 ;; FIXME: Need to wrap PYTHONPATH
10094 (home-page "https://games.kde.org/")
10095 (synopsis "Classical Mah Jongg game for 4 players")
10096 (description "Kajongg is the ancient Chinese board game for 4 players.
10097
10098 If you are looking for the Mah Jongg solitaire please use the application
10099 kmahjongg.
10100
10101 Kajongg can be used in two different ways: Scoring a manual game where you
10102 play as always and use Kajongg for the computation of scores and for
10103 bookkeeping. Or you can use Kajongg to play against any combination of other
10104 human players or computer players.
10105
10106 This package is part of the KDE games module.")
10107 (license (list license:gpl2+ license:fdl1.2+))))
10108
10109 (define-public kbreakout
10110 (package
10111 (name "kbreakout")
10112 (version "19.08.3")
10113 (source
10114 (origin
10115 (method url-fetch)
10116 (uri (string-append "mirror://kde/stable/applications/" version
10117 "/src/kbreakout-" version ".tar.xz"))
10118 (sha256
10119 (base32 "0gwzx1z9mxrjlcjzglg8cxkyd6900whcar3b5j9laxxarc6xhj8w"))))
10120 (build-system qt-build-system)
10121 (native-inputs
10122 `(("extra-cmake-modules" ,extra-cmake-modules)
10123 ("kdoctools" ,kdoctools)))
10124 (inputs
10125 `(("kcompletion" ,kcompletion)
10126 ("kconfig" ,kconfig)
10127 ("kconfigwidgets" ,kconfigwidgets)
10128 ("kcoreaddons" ,kcoreaddons)
10129 ("kcrash" ,kcrash)
10130 ("kdbusaddons" ,kdbusaddons)
10131 ("ki18n" ,ki18n)
10132 ("kwidgetsaddons" ,kwidgetsaddons)
10133 ("kxmlgui" ,kxmlgui)
10134 ("libkdegames" ,libkdegames)
10135 ("qtbase" ,qtbase)
10136 ("qtdeclarative" ,qtdeclarative)))
10137 (home-page "https://games.kde.org/")
10138 (synopsis "Breakout like game")
10139 (description "KBreakout is similar to the classics breakout and xboing,
10140 featuring a number of added graphical enhancements and effects. You control a
10141 paddle at the bottom of the playing-field, and must destroy bricks at the top
10142 by bouncing balls against them.
10143
10144 This package is part of the KDE games module.")
10145 (license (list license:gpl2+ license:fdl1.2+))))
10146
10147 (define-public kmines
10148 (package
10149 (name "kmines")
10150 (version "19.08.3")
10151 (source
10152 (origin
10153 (method url-fetch)
10154 (uri (string-append "mirror://kde/stable/applications/" version
10155 "/src/kmines-" version ".tar.xz"))
10156 (sha256
10157 (base32 "0ac3za36lh8hpx6mqfic9amwmzhzhzplm9hg3pw12gxl5a9mvfsf"))))
10158 (build-system qt-build-system)
10159 (native-inputs
10160 `(("extra-cmake-modules" ,extra-cmake-modules)
10161 ("kdoctools" ,kdoctools)))
10162 (inputs
10163 `(("kcompletion" ,kcompletion)
10164 ("kconfig" ,kconfig)
10165 ("kconfigwidgets" ,kconfigwidgets)
10166 ("kcoreaddons" ,kcoreaddons)
10167 ("kcrash" ,kcrash)
10168 ("kdbusaddons" ,kdbusaddons)
10169 ("ki18n" ,ki18n)
10170 ("ktextwidgets" ,ktextwidgets)
10171 ("kwidgetsaddons" ,kwidgetsaddons)
10172 ("kxmlgui" ,kxmlgui)
10173 ("libkdegames" ,libkdegames)
10174 ("qtbase" ,qtbase)
10175 ("qtdeclarative" ,qtdeclarative)))
10176 (home-page "https://games.kde.org/")
10177 (synopsis "Classical mine sweeper game")
10178 (description "KMines is a classic Minesweeper game. The idea is to
10179 uncover all the squares without blowing up any mines. When a mine is blown
10180 up, the game is over.
10181
10182 This package is part of the KDE games module.")
10183 (license (list license:gpl2+ license:fdl1.2+))))
10184
10185 (define-public konquest
10186 (package
10187 (name "konquest")
10188 (version "19.08.3")
10189 (source
10190 (origin
10191 (method url-fetch)
10192 (uri (string-append "mirror://kde/stable/applications/"
10193 version "/src/konquest-" version ".tar.xz"))
10194 (sha256
10195 (base32 "02gjxskhi10a1sqh3skcild8zria7wncz1a4sbz7ax1p851q76k1"))))
10196 (build-system qt-build-system)
10197 (native-inputs
10198 `(("extra-cmake-modules" ,extra-cmake-modules)
10199 ("kdoctools" ,kdoctools)))
10200 (inputs
10201 `(("kcompletion" ,kcompletion)
10202 ("kconfig" ,kconfig)
10203 ("kcoreaddons" ,kcoreaddons)
10204 ("kcrash" ,kcrash)
10205 ("kdbusaddons" ,kdbusaddons)
10206 ("kguiaddons" ,kguiaddons)
10207 ("ki18n" ,ki18n)
10208 ("kwidgetsaddons" ,kwidgetsaddons)
10209 ("kxmlgui" ,kxmlgui)
10210 ("libkdegames" ,libkdegames)
10211 ("qtbase" ,qtbase)
10212 ("qtdeclarative" ,qtdeclarative)
10213 ("qtsvg" ,qtsvg)))
10214 (home-page "https://games.kde.org/")
10215 (synopsis "Simple turn-based strategy game")
10216 (description "Konquest is the KDE version of Gnu-Lactic Konquest. Players
10217 conquer other planets by sending ships to them. The goal is to build an
10218 interstellar empire and ultimately conquer all other player's planets. The
10219 game can be played with up to nine empires, commanded either by the computer
10220 or by puny earthlings.
10221
10222 This package is part of the KDE games module.")
10223 (license (list license:gpl2+ license:fdl1.2+))))
10224
10225 (define-public kbounce
10226 (package
10227 (name "kbounce")
10228 (version "19.08.3")
10229 (source
10230 (origin
10231 (method url-fetch)
10232 (uri (string-append "mirror://kde/stable/applications/"
10233 version "/src/kbounce-" version ".tar.xz"))
10234 (sha256
10235 (base32 "02rfv0qzz5cmyfx8f56a45hbm9gsp6m3dcy8ajwx88rw5wpbrr11"))))
10236 (build-system qt-build-system)
10237 (native-inputs
10238 `(("extra-cmake-modules" ,extra-cmake-modules)
10239 ("kdoctools" ,kdoctools)))
10240 (inputs
10241 `(("kcompletion" ,kcompletion)
10242 ("kconfigwidgets" ,kconfigwidgets)
10243 ("kcoreaddons" ,kcoreaddons)
10244 ("kcrash" ,kcrash)
10245 ("kdbusaddons" ,kdbusaddons)
10246 ("ki18n" ,ki18n)
10247 ("kio" ,kio)
10248 ("kwidgetsaddons" ,kwidgetsaddons)
10249 ("kxmlgui" ,kxmlgui)
10250 ("libkdegames" ,libkdegames)
10251 ("qtbase" ,qtbase)
10252 ("qtdeclarative" ,qtdeclarative)
10253 ("qtsvg" ,qtsvg)))
10254 (home-page "https://games.kde.org/")
10255 (synopsis "Jezzball arcade game")
10256 (description "KBounce is a single player arcade game with the elements of
10257 puzzle. It is played on a field, surrounded by wall, with two or more balls
10258 bouncing around within the walls. The object of the game is to build new
10259 walls to decrease the size of the active field.
10260
10261 This package is part of the KDE games module.")
10262 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10263
10264 (define-public kblocks
10265 (package
10266 (name "kblocks")
10267 (version "19.08.3")
10268 (source
10269 (origin
10270 (method url-fetch)
10271 (uri (string-append "mirror://kde/stable/applications/"
10272 version "/src/kblocks-" version ".tar.xz"))
10273 (sha256
10274 (base32 "0qrm0dihzhkxsq9l49ndzms802x6jn92vvabb2zf2q9z593m69cx"))))
10275 (build-system qt-build-system)
10276 (native-inputs
10277 `(("extra-cmake-modules" ,extra-cmake-modules)
10278 ("kdoctools" ,kdoctools)))
10279 (inputs
10280 `(("kcompletion" ,kcompletion)
10281 ("kconfig" ,kconfig)
10282 ("kconfigwidgets" ,kconfigwidgets)
10283 ("kcoreaddons" ,kcoreaddons)
10284 ("kcrash" ,kcrash)
10285 ("kdbusaddons" ,kdbusaddons)
10286 ("ki18n" ,ki18n)
10287 ("kwidgetsaddons" ,kwidgetsaddons)
10288 ("kxmlgui" ,kxmlgui)
10289 ("libkdegames" ,libkdegames)
10290 ("qtbase" ,qtbase)
10291 ("qtdeclarative" ,qtdeclarative)
10292 ("qtsvg" ,qtsvg)))
10293 (home-page "https://games.kde.org/")
10294 (synopsis "Single player falling blocks puzzle game")
10295 (description "KBlocks is the classic Tetris-like falling blocks game.
10296
10297 The idea is to stack the falling blocks to create horizontal lines without any
10298 gaps. When a line is completed it is removed, and more space is available in
10299 the play area. When there is not enough space for blocks to fall, the game is
10300 over.
10301
10302 This package is part of the KDE games module.")
10303 (license (list license:gpl2+ license:fdl1.2+))))
10304
10305 (define-public ksudoku
10306 (package
10307 (name "ksudoku")
10308 (version "19.08.3")
10309 (source
10310 (origin
10311 (method url-fetch)
10312 (uri (string-append "mirror://kde/stable/applications/"
10313 version "/src/ksudoku-" version ".tar.xz"))
10314 (sha256
10315 (base32 "0rcscz91hilm7l3am5w02n0n8l7xhi4l0n4sskznh68kblw0ggw2"))))
10316 (build-system qt-build-system)
10317 (native-inputs
10318 `(("extra-cmake-modules" ,extra-cmake-modules)
10319 ("kdoctools" ,kdoctools)))
10320 (inputs
10321 `(("karchive" ,karchive)
10322 ("kconfig" ,kconfig)
10323 ("kconfigwidgets" ,kconfigwidgets)
10324 ("kcoreaddons" ,kcoreaddons)
10325 ("kcrash" ,kcrash)
10326 ("kguiaddons" ,kguiaddons)
10327 ("ki18n" ,ki18n)
10328 ("kiconthemes" ,kiconthemes)
10329 ("kio" ,kio)
10330 ("kwidgetsaddons" ,kwidgetsaddons)
10331 ("kxmlgui" ,kxmlgui)
10332 ("libkdegames" ,libkdegames)
10333 ("glu" ,glu)
10334 ("qtbase" ,qtbase)
10335 ("qtdeclarative" ,qtdeclarative)
10336 ("qtsvg" ,qtsvg)))
10337 (home-page "https://games.kde.org/")
10338 (synopsis "Sudoku puzzle game and solver")
10339 (description "KSudoku is a Sudoku game and solver, supporting a range of
10340 2D and 3D Sudoku variants. In addition to playing Sudoku, it can print Sudoku
10341 puzzle sheets and find the solution to any Sudoku puzzle.
10342
10343 The word Sudoku means \"single number in an allotted place\" in Japanese.
10344 These are the basic rules: Every Sudoku is a square divided into 3x3
10345 subsquares with 3x3 cells each.
10346
10347 Some cells are filled with a number at the beginning. The remaining ones are
10348 to be filled by the player using numbers from 1 to 9, without repeating a
10349 number twice on each column, row or subsquare (each of them must contain only
10350 one 1, one 2, one 3, and so on). The game requires logic and patience.
10351 Solving takes usually 10 to 30 minutes, depending on puzzle level, your skill
10352 and experience.
10353
10354 The numerals in Sudoku puzzles are used for convenience (for example in 16x16
10355 board we use letters): arithmetic relationships between numbers are
10356 irrelevant.
10357
10358 This program supports also 16x16 games with numbers from 1 to 16 and 256
10359 cells with 16 cols, rows and subsquares!
10360
10361 More information at http://en.wikipedia.org/wiki/Sudoku
10362
10363 This package is part of the KDE games module.")
10364 (license (list license:gpl2+ license:fdl1.2+))))
10365
10366 (define-public klines
10367 (package
10368 (name "klines")
10369 (version "19.08.3")
10370 (source
10371 (origin
10372 (method url-fetch)
10373 (uri (string-append "mirror://kde/stable/applications/" version
10374 "/src/klines-" version ".tar.xz"))
10375 (sha256
10376 (base32 "1g1f46jp0rb8gpqkgcf915ydpsscn1sxk3gjvm8bcqgx9ddq59xa"))))
10377 (build-system qt-build-system)
10378 (native-inputs
10379 `(("extra-cmake-modules" ,extra-cmake-modules)
10380 ("kdoctools" ,kdoctools)))
10381 (inputs
10382 `(("kcompletion" ,kcompletion)
10383 ("kconfigwidgets" ,kconfigwidgets)
10384 ("kcoreaddons" ,kcoreaddons)
10385 ("kcrash" ,kcrash)
10386 ("kdbusaddons" ,kdbusaddons)
10387 ("ki18n" ,ki18n)
10388 ("kwidgetsaddons" ,kwidgetsaddons)
10389 ("kxmlgui" ,kxmlgui)
10390 ("libkdegames" ,libkdegames)
10391 ("qtbase" ,qtbase)
10392 ("qtdeclarative" ,qtdeclarative)))
10393 (home-page "https://games.kde.org/")
10394 (synopsis "Place 5 equal pieces together, but wait, there are 3 new ones")
10395 (description "KLines is a simple but highly addictive one player game.
10396
10397 The player has to move the colored balls around the game board, gathering them
10398 into the lines of the same color by five. Once the line is complete it is
10399 removed from the board, therefore freeing precious space. In the same time
10400 the new balls keep arriving by three after each move, filling up the game
10401 board.
10402
10403 KLines is a single-player game where the player removes colored balls from the
10404 board by arranging them into lines of five or more. However, every time the
10405 player moves a ball, three more balls are added to the board.
10406
10407 This package is part of the KDE games module.")
10408 (license (list license:gpl2+ license:fdl1.2+))))
10409
10410 (define-public kgoldrunner
10411 (package
10412 (name "kgoldrunner")
10413 (version "19.08.3")
10414 (source
10415 (origin
10416 (method url-fetch)
10417 (uri (string-append "mirror://kde/stable/applications/" version "/src/kgoldrunner-"
10418 version ".tar.xz"))
10419 (sha256
10420 (base32 "16rcvq796r3asz4v4ap75xvwnxd3dd2nsq5r9vxvzl6rrf1w9bj4"))))
10421 (build-system qt-build-system)
10422 (native-inputs
10423 `(("extra-cmake-modules" ,extra-cmake-modules)
10424 ("kdoctools" ,kdoctools)))
10425 (inputs
10426 `(("kcompletion" ,kcompletion)
10427 ("kcoreaddons" ,kcoreaddons)
10428 ("kcrash" ,kcrash)
10429 ("kdbusaddons" ,kdbusaddons)
10430 ("ki18n" ,ki18n)
10431 ("kio" ,kio)
10432 ("kwidgetsaddons" ,kwidgetsaddons)
10433 ("kxmlgui" ,kxmlgui)
10434 ("libkdegames" ,libkdegames)
10435 ("qtbase" ,qtbase)
10436 ("qtdeclarative" ,qtdeclarative)))
10437 (home-page "https://games.kde.org/")
10438 (synopsis "Action and puzzle solving game")
10439 (description "KGoldrunner is an action game where the hero runs through a
10440 maze, climbs stairs, dig holes and dodges enemies in order to collect all the
10441 gold nuggets and escape to the next level. Your enemies are also after the
10442 gold. Worse still, they are after you!.
10443
10444 KGoldrunner is a fast-paced platform game where the player must navigate a
10445 maze while collecting gold nuggets and avoiding enemies. A variety of level
10446 packs are included, as well as an editor to create new levels.
10447
10448 This package is part of the KDE games module.")
10449 (license (list license:gpl2+ license:fdl1.2+))))
10450
10451 (define-public kdiamond
10452 (package
10453 (name "kdiamond")
10454 (version "19.08.3")
10455 (source
10456 (origin
10457 (method url-fetch)
10458 (uri (string-append "mirror://kde/stable/applications/" version
10459 "/src/kdiamond-" version ".tar.xz"))
10460 (sha256
10461 (base32 "1v5yb9hb26lk277zhw8d37ks829yfqr5anzx1qhms44gca5kqhva"))))
10462 (build-system qt-build-system)
10463 (native-inputs
10464 `(("extra-cmake-modules" ,extra-cmake-modules)
10465 ("kdoctools" ,kdoctools)))
10466 (inputs
10467 `(("kcompletion" ,kcompletion)
10468 ("kconfig" ,kconfig)
10469 ("kconfigwidgets" ,kconfigwidgets)
10470 ("kcoreaddons" ,kcoreaddons)
10471 ("kcrash" ,kcrash)
10472 ("kdbusaddons" ,kdbusaddons)
10473 ("ki18n" ,ki18n)
10474 ("knotifications" ,knotifications)
10475 ("knotifyconfig" ,knotifyconfig)
10476 ("kwidgetsaddons" ,kwidgetsaddons)
10477 ("kxmlgui" ,kxmlgui)
10478 ("libkdegames" ,libkdegames)
10479 ("qtbase" ,qtbase)
10480 ("qtdeclarative" ,qtdeclarative)))
10481 (home-page "https://games.kde.org/")
10482 (synopsis "Three-in-a-row game")
10483 (description "KDiamond is a three-in-a-row game like Bejeweled. It
10484 features unlimited fun with randomly generated games and five difficulty
10485 levels with varying number of diamond colors and board sizes.
10486
10487 This package is part of the KDE games module.")
10488 (license (list license:gpl2+ license:fdl1.2+))))
10489
10490 (define-public kfourinline
10491 (package
10492 (name "kfourinline")
10493 (version "19.08.3")
10494 (source
10495 (origin
10496 (method url-fetch)
10497 (uri (string-append "mirror://kde/stable/applications/" version
10498 "/src/kfourinline-" version ".tar.xz"))
10499 (sha256
10500 (base32 "1vprs6dc1ccn3g6k594i9s94xy4b91vzlqjysyc6fqcq2fs54ny3"))))
10501 (build-system qt-build-system)
10502 (native-inputs
10503 `(("extra-cmake-modules" ,extra-cmake-modules)
10504 ("kdoctools" ,kdoctools)))
10505 (inputs
10506 `(("kcompletion" ,kcompletion)
10507 ("kconfig" ,kconfig)
10508 ("kconfigwidgets" ,kconfigwidgets)
10509 ("kcoreaddons" ,kcoreaddons)
10510 ("kcrash" ,kcrash)
10511 ("kdelibs4support" ,kdelibs4support)
10512 ("kdnssd" ,kdnssd)
10513 ("ki18n" ,ki18n)
10514 ("kxmlgui" ,kxmlgui)
10515 ("libkdegames" ,libkdegames)
10516 ("qtbase" ,qtbase)
10517 ("qtdeclarative" ,qtdeclarative)
10518 ("qtsvg" ,qtsvg)))
10519 (home-page "https://games.kde.org/")
10520 (synopsis "Place 4 pieces in a row")
10521 (description "KFourInLine is a board game for two players based on the
10522 Connect-Four game.
10523
10524 KFourInLine is a game where two players take turns dropping pieces into a
10525 grid, the winner being the first to place four pieces in a line.
10526
10527 This package is part of the KDE games module.")
10528 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10529
10530 (define-public kblackbox
10531 (package
10532 (name "kblackbox")
10533 (version "19.08.3")
10534 (source
10535 (origin
10536 (method url-fetch)
10537 (uri (string-append "mirror://kde/stable/applications/" version
10538 "/src/kblackbox-" version ".tar.xz"))
10539 (sha256
10540 (base32 "1x42sfpf75c6mavwkc7g7dm11y9s5dpj8igphly5kvm0pajqby0n"))))
10541 (build-system qt-build-system)
10542 (native-inputs
10543 `(("extra-cmake-modules" ,extra-cmake-modules)
10544 ("kdoctools" ,kdoctools)))
10545 (inputs
10546 `(("karchive" ,karchive)
10547 ("kcompletion" ,kcompletion)
10548 ("kconfig" ,kconfig)
10549 ("kcoreaddons" ,kcoreaddons)
10550 ("kcrash" ,kcrash)
10551 ("kdbusaddons" ,kdbusaddons)
10552 ("ki18n" ,ki18n)
10553 ("ktextwidgets" ,ktextwidgets)
10554 ("kxmlgui" ,kxmlgui)
10555 ("libkdegames" ,libkdegames)
10556 ("qtbase" ,qtbase)
10557 ("qtdeclarative" ,qtdeclarative)
10558 ("qtsvg" ,qtsvg)))
10559 (home-page "https://games.kde.org/")
10560 (synopsis "Find atoms in a grid by shooting electrons")
10561 (description "KBlackbox is a game of hide and seek played on a grid of
10562 boxes where the computer has hidden several balls. The position of the hidden
10563 balls can be deduced by shooting beams into the box
10564
10565 KBlackBox is a game of hide and seek played on an grid of boxes, where the
10566 player shoots rays into the grid to deduce the positions of hidden objects.
10567
10568 This package is part of the KDE games module.")
10569 (license (list license:gpl2+ license:fdl1.2+))))
10570
10571 (define-public knetwalk
10572 (package
10573 (name "knetwalk")
10574 (version "19.08.3")
10575 (source
10576 (origin
10577 (method url-fetch)
10578 (uri (string-append "mirror://kde/stable/applications/" version
10579 "/src/knetwalk-" version ".tar.xz"))
10580 (sha256
10581 (base32 "1i340salzgqdw8y33wrrydmpgx3pvwf5wrbljlh67cjf6s4csx7d"))))
10582 (build-system qt-build-system)
10583 (native-inputs
10584 `(("extra-cmake-modules" ,extra-cmake-modules)
10585 ("kdoctools" ,kdoctools)))
10586 (inputs
10587 `(("kcompletion" ,kcompletion)
10588 ("kconfig" ,kconfig)
10589 ("kconfigwidgets" ,kconfigwidgets)
10590 ("kcoreaddons" ,kcoreaddons)
10591 ("kcrash" ,kcrash)
10592 ("kdbusaddons" ,kdbusaddons)
10593 ("ki18n" ,ki18n)
10594 ("ktextwidgets" ,ktextwidgets)
10595 ("kwidgetsaddons" ,kwidgetsaddons)
10596 ("kxmlgui" ,kxmlgui)
10597 ("libkdegames" ,libkdegames)
10598 ("qtbase" ,qtbase)
10599 ("qtdeclarative" ,qtdeclarative)))
10600 (home-page "https://games.kde.org/")
10601 (synopsis "Turn the board pieces to get all computers connected")
10602 (description "KNetWalk is a small game where you have to build up a
10603 computer network by rotating the wires to connect the terminals to the server.
10604 When the network is build, a highscore-list comes up where competitions can be
10605 fought out.
10606
10607 KNetwalk is a puzzle game where the player arranges sections of wire to
10608 connect all the computers on the board.
10609
10610 This package is part of the KDE games module.")
10611 (license (list license:gpl2+ license:fdl1.2+))))
10612
10613 (define-public bomber
10614 (package
10615 (name "bomber")
10616 (version "19.08.3")
10617 (source
10618 (origin
10619 (method url-fetch)
10620 (uri (string-append "mirror://kde/stable/applications/" version
10621 "/src/bomber-" version ".tar.xz"))
10622 (sha256
10623 (base32 "1lvzd0mzgq25akvwvkm57l3plm65k731v2i1ahakn985bb5gc3is"))))
10624 (build-system qt-build-system)
10625 (native-inputs
10626 `(("extra-cmake-modules" ,extra-cmake-modules)
10627 ("kdoctools" ,kdoctools)))
10628 (inputs
10629 `(("kcompletiom" ,kcompletion)
10630 ("kconfig" ,kconfig)
10631 ("kcoreaddons" ,kcoreaddons)
10632 ("kcrash" ,kcrash)
10633 ("kdbusaddons" ,kdbusaddons)
10634 ("ki18n" ,ki18n)
10635 ("kxmlgui" ,kxmlgui)
10636 ("libkdegames" ,libkdegames)
10637 ("qtbase" ,qtbase)
10638 ("qtdeclarative" ,qtdeclarative)))
10639 (home-page "https://games.kde.org/")
10640 (synopsis "Arcade bombing game")
10641 (description "Bomber is a single player arcade game.
10642
10643 The player is invading various cities in a plane that is decreasing in height.
10644 The goal of the game is to destroy all the buildings and advance to the next
10645 level. Each level gets a bit harder by increasing the speed of the plane and
10646 the height of the buildings.
10647
10648 Bomber is a game where you fly a spaceship and attempt to bomb the buildings
10649 below you. Each pass the spaceship makes, it gets lower and lower. If you've
10650 not destroyed a building in your path, you will crash into it.
10651
10652 This package is part of the KDE games module.")
10653 (license (list license:gpl2+ license:fdl1.2+))))
10654
10655 (define-public granatier
10656 (package
10657 (name "granatier")
10658 (version "19.08.3")
10659 (source
10660 (origin
10661 (method url-fetch)
10662 (uri (string-append "mirror://kde/stable/applications/" version
10663 "/src/granatier-" version ".tar.xz"))
10664 (sha256
10665 (base32 "141qmdinz7ikbbrs8dq6cap3nl22sl7pw62r80pf3xxwn2q4phpa"))))
10666 (build-system qt-build-system)
10667 (native-inputs
10668 `(("extra-cmake-modules" ,extra-cmake-modules)
10669 ("kdoctools" ,kdoctools)))
10670 (inputs
10671 `(("kcompletion" ,kcompletion)
10672 ("kconfig" ,kconfig)
10673 ("kconfigwidgets" ,kconfigwidgets)
10674 ("kcoreaddons" ,kcoreaddons)
10675 ("kcrash" ,kcrash)
10676 ("kdbusaddons" ,kdbusaddons)
10677 ("ki18n" ,ki18n)
10678 ("knewstuff" ,knewstuff)
10679 ("kwidgetsaddons" ,kwidgetsaddons)
10680 ("kxmlgui" ,kxmlgui)
10681 ("libkdegames" ,libkdegames)
10682 ("qtbase" ,qtbase)
10683 ("qtdeclarative" ,qtdeclarative)
10684 ("qtsvg" ,qtsvg)))
10685 (home-page "https://games.kde.org/")
10686 (synopsis "Bomberman clone")
10687 (description "Granatier is a clone of the classic Bomberman game,
10688 inspired by the work of the Clanbomber clone.
10689
10690 This package is part of the KDE games module.")
10691 (license (list license:gpl2+ license:fdl1.2+))))
10692
10693 (define-public ksirk
10694 (package
10695 (name "ksirk")
10696 (version "19.08.3")
10697 (source
10698 (origin
10699 (method url-fetch)
10700 (uri (string-append "mirror://kde/stable/applications/" version
10701 "/src/ksirk-" version ".tar.xz"))
10702 (sha256
10703 (base32 "1b1wixs2hp5qnvdygfwa3kvy0kn94ysa4ifmx90q6r3yfr2lpfca"))))
10704 (build-system qt-build-system)
10705 (native-inputs
10706 `(("extra-cmake-modules" ,extra-cmake-modules)
10707 ("kdoctools" ,kdoctools)))
10708 (inputs
10709 `(("kcrash" ,kcrash)
10710 ("ki18n" ,ki18n)
10711 ("kiconthemes" ,kiconthemes)
10712 ("kio" ,kio)
10713 ("knewstuff" ,knewstuff)
10714 ("kwallet" ,kwallet)
10715 ("kxmlgui" ,kxmlgui)
10716 ("libkdegames" ,libkdegames)
10717 ("phonon" ,phonon)
10718 ("qca" ,qca)
10719 ("qtbase" ,qtbase)
10720 ("qtdeclarative" ,qtdeclarative)
10721 ("qtsvg" ,qtsvg)
10722 ("zlib" ,zlib)))
10723 (home-page "https://games.kde.org/")
10724 (synopsis "Computerized version of the well known strategy board game
10725 'Risk'")
10726 (description "KsirK is a multi-player network-enabled game. The goal of
10727 the game is simply to conquer the world by attacking your neighbors with your
10728 armies.
10729
10730 At the beginning of the game, countries are distributed to all the players.
10731 Each country contains one army represented by an infantryman. Each player has
10732 some armies to distribute to his countries. On each turn, each player can
10733 attack his neighbours, eventually conquering one or more countries. At the
10734 end of each turn, some bonus armies are distributed to the players in function
10735 of the number of countries they own. The winner is the player that conquered
10736 all the world.
10737
10738 Features:
10739 @itemize
10740 @item Support for 1-6 human or computer players
10741 @item Multi-player gaming over a network
10742 @item You can easily create new skins with SVG graphics and the skin editor
10743 @item Hot New Stuff support. You can easily download and install new skins
10744 @end itemize
10745
10746 This package is part of the KDE games module.")
10747 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10748
10749 (define-public palapeli
10750 (package
10751 (name "palapeli")
10752 (version "19.08.3")
10753 (source
10754 (origin
10755 (method url-fetch)
10756 (uri (string-append "mirror://kde/stable/applications/" version
10757 "/src/palapeli-" version ".tar.xz"))
10758 (sha256
10759 (base32 "1g91ydbc0x2y2gn3lcb5w03mn7k78l5bq4cb1s59kx6yjbflv3pw"))))
10760 (build-system qt-build-system)
10761 (native-inputs
10762 `(("extra-cmake-modules" ,extra-cmake-modules)
10763 ("kdoctools" ,kdoctools)))
10764 (inputs
10765 `(("karchive" ,karchive)
10766 ("kcompletion" ,kcompletion)
10767 ("kconfig" ,kconfig)
10768 ("kconfigwidgets" ,kconfigwidgets)
10769 ("kcoreaddons" ,kcoreaddons)
10770 ("kcrash" ,kcrash)
10771 ("kcrash" ,kcrash)
10772 ("ki18n" ,ki18n)
10773 ("ki18n" ,ki18n)
10774 ("kio" ,kio)
10775 ("kitemviews" ,kitemviews)
10776 ("knotifications" ,knotifications)
10777 ("kservice" ,kservice)
10778 ("kwidgetsaddons" ,kwidgetsaddons)
10779 ("kxmlgui" ,kxmlgui)
10780 ("libkdegames" ,libkdegames)
10781 ("qtbase" ,qtbase)
10782 ("qtdeclarative" ,qtdeclarative)
10783 ("qtsvg" ,qtsvg)
10784 ("shared-mime-info" ,shared-mime-info)))
10785 (home-page "https://games.kde.org/")
10786 (synopsis "Jigsaw puzzle game")
10787 (description "Palapeli is a jigsaw puzzle game. Unlike other games in
10788 that genre, you are not limited to aligning pieces on imaginary grids. The
10789 pieces are freely moveable. Also, Palapeli features real persistency, i.e.
10790 everything you do is saved on your disk immediately.
10791
10792 Palapeli is the Finnish word for jigsaw puzzle.
10793
10794 This package is part of the KDE games module.")
10795 (license license:gpl2+)))
10796
10797 (define-public kiriki
10798 (package
10799 (name "kiriki")
10800 (version "19.08.3")
10801 (source
10802 (origin
10803 (method url-fetch)
10804 (uri (string-append "mirror://kde/stable/applications/" version
10805 "/src/kiriki-" version ".tar.xz"))
10806 (sha256
10807 (base32 "1xg25dj95g81dc5l7k47am4j52abrwwfx4h73lvsbn4lc8lfmshw"))))
10808 (build-system qt-build-system)
10809 (native-inputs
10810 `(("extra-cmake-modules" ,extra-cmake-modules)
10811 ("kdoctools" ,kdoctools)))
10812 (inputs
10813 `(("kcompletion" ,kcompletion)
10814 ("kconfig" ,kconfig)
10815 ("kconfigwidgets" ,kconfigwidgets)
10816 ("kcoreaddons" ,kcoreaddons)
10817 ("kcrash" ,kcrash)
10818 ("kdbusaddons" ,kdbusaddons)
10819 ("ki18n" ,ki18n)
10820 ("kiconthemes" ,kiconthemes)
10821 ("kxmlgui" ,kxmlgui)
10822 ("libkdegames" ,libkdegames)
10823 ("qtbase" ,qtbase)
10824 ("qtdeclarative" ,qtdeclarative)))
10825 (home-page "https://games.kde.org/")
10826 (synopsis "Yahtzee dice game")
10827 (description "Kiriki is an addictive and fun dice game, designed to be
10828 played by as many as six players.
10829
10830 Participants have to collect points by rolling five dice for up to three times
10831 per single turn to make combinations with the highest score.
10832
10833 This package is part of the KDE games module.")
10834 (license (list license:gpl2+ license:fdl1.2+))))
10835
10836 (define-public kigo
10837 (package
10838 (name "kigo")
10839 (version "19.08.3")
10840 (source
10841 (origin
10842 (method url-fetch)
10843 (uri (string-append "mirror://kde/stable/applications/" version
10844 "/src/kigo-" version ".tar.xz"))
10845 (sha256
10846 (base32 "00l5gcbi8xyj9c1lngkrddka3a4m4cd78prfplrpq32ma9xq681f"))))
10847 (build-system qt-build-system)
10848 (native-inputs
10849 `(("extra-cmake-modules" ,extra-cmake-modules)
10850 ("kdoctools" ,kdoctools)))
10851 (inputs
10852 `(("kconfig" ,kconfig)
10853 ("kconfigwidgets" ,kconfigwidgets)
10854 ("kcoreaddons" ,kcoreaddons)
10855 ("kcrash" ,kcrash)
10856 ("kdbusaddons" ,kdbusaddons)
10857 ("ki18n" ,ki18n)
10858 ("kio" ,kio)
10859 ("knewstuff" ,knewstuff)
10860 ("ktextwidgets" ,ktextwidgets)
10861 ("kxmlgui" ,kxmlgui)
10862 ("libkdegames" ,libkdegames)
10863 ("qtbase" ,qtbase)
10864 ("qtdeclarative" ,qtdeclarative)
10865 ("qtsvg" ,qtsvg)))
10866 (home-page "https://games.kde.org/")
10867 (synopsis "Go board game")
10868 (description "Kigo is an open-source implementation of the popular Go
10869 game.
10870
10871 Go is a strategic board game for two players. It is also known as
10872 igo (Japanese), weiqi or wei ch'i (Chinese) or baduk (Korean). Go is noted
10873 for being rich in strategic complexity despite its simple rules. The game is
10874 played by two players who alternately place black and white stones (playing
10875 pieces, now usually made of glass or plastic) on the vacant intersections of a
10876 grid of 19x19 lines (9x9 or 13x13 for easier games).
10877
10878 You also need to install a go engine, e.g. @code{gnugo}.
10879
10880 This package is part of the KDE games module.")
10881 (license license:gpl3+)))
10882
10883 (define-public kubrick
10884 (package
10885 (name "kubrick")
10886 (version "19.08.3")
10887 (source
10888 (origin
10889 (method url-fetch)
10890 (uri (string-append "mirror://kde/stable/applications/" version
10891 "/src/kubrick-" version ".tar.xz"))
10892 (sha256
10893 (base32 "0ma8wja4rqlsmsr8cyicfpkwlgqva4450ls4c0ql53p0kabf04gx"))))
10894 (build-system qt-build-system)
10895 (native-inputs
10896 `(("extra-cmake-modules" ,extra-cmake-modules)
10897 ("kdoctools" ,kdoctools)))
10898 (inputs
10899 `(("glu" ,glu)
10900 ("kconfig" ,kconfig)
10901 ("kconfigwidgets" ,kconfigwidgets)
10902 ("kcoreaddons" ,kcoreaddons)
10903 ("kcrash" ,kcrash)
10904 ("ki18n" ,ki18n)
10905 ("kio" ,kio)
10906 ("kwidgetsaddons" ,kwidgetsaddons)
10907 ("kxmlgui" ,kxmlgui)
10908 ("libkdegames" ,libkdegames)
10909 ("qtbase" ,qtbase)
10910 ("qtdeclarative" ,qtdeclarative)
10911 ("qtsvg" ,qtsvg)))
10912 (home-page "https://games.kde.org/")
10913 (synopsis "Game based on Rubik's Cube")
10914 (description "Kubrick is a game based on the Rubik's Cube puzzle.
10915
10916 The cube sizes range from 2x2x2 up to 6x6x6, or you can play with irregular
10917 \"bricks\" such as 5x3x2 or \"mats\" such as 6x4x1 or 2x2x1. The game has a
10918 selection of puzzles at several levels of difficulty, as well as demos of
10919 pretty patterns and solution moves, or you can make up your own puzzles. The
10920 game has unlimited undo, redo, save and reload capabilities.
10921
10922 This package is part of the KDE games module.")
10923 (license (list license:gpl2+ license:fdl1.2+))))
10924
10925 (define-public lskat
10926 (package
10927 (name "lskat")
10928 (version "19.08.3")
10929 (source
10930 (origin
10931 (method url-fetch)
10932 (uri (string-append "mirror://kde/stable/applications/" version
10933 "/src/lskat-" version ".tar.xz"))
10934 (sha256
10935 (base32 "1qk5hd27zb42pbcxq5wyzz62nj5f0qdmgy54r9rnk92pzzzk94s9"))))
10936 (build-system qt-build-system)
10937 (native-inputs
10938 `(("extra-cmake-modules" ,extra-cmake-modules)
10939 ("kdoctools" ,kdoctools)))
10940 (inputs
10941 `(("kcompletion" ,kcompletion)
10942 ("kconfig" ,kconfig)
10943 ("kcoreaddons" ,kcoreaddons)
10944 ("kcrash" ,kcrash)
10945 ("kguiaddons" ,kguiaddons)
10946 ("ki18n" ,ki18n)
10947 ("kwidgetsaddons" ,kwidgetsaddons)
10948 ("kxmlgui" ,kxmlgui)
10949 ("libkdegames" ,libkdegames)
10950 ("qtbase" ,qtbase)
10951 ("qtdeclarative" ,qtdeclarative)
10952 ("qtsvg" ,qtsvg)))
10953 (home-page "https://games.kde.org/")
10954 (synopsis "Lieutnant Skat card game")
10955 (description "Lieutnant Skat (from German \"Offiziersskat\") is a fun and
10956 engaging card game for two players, where the second player is either live
10957 opponent, or a built in artificial intelligence.
10958
10959 Lieutnant Skat is a simplified variant of the Skat card game for two players.
10960
10961 This package is part of the KDE games module.")
10962 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
10963
10964 (define-public kapman
10965 (package
10966 (name "kapman")
10967 (version "19.08.3")
10968 (source
10969 (origin
10970 (method url-fetch)
10971 (uri (string-append "mirror://kde/stable/applications/" version
10972 "/src/kapman-" version ".tar.xz"))
10973 (sha256
10974 (base32 "03pq38caam30q4bw14c045kayw2d87xq1yaa3s2jkrylylfq3p0f"))))
10975 (build-system qt-build-system)
10976 (native-inputs
10977 `(("extra-cmake-modules" ,extra-cmake-modules)
10978 ("kdoctools" ,kdoctools)))
10979 (inputs
10980 `(("kcompletion" ,kcompletion)
10981 ("kconfig" ,kconfig)
10982 ("kconfigwidgets" ,kconfigwidgets)
10983 ("kcoreaddons" ,kcoreaddons)
10984 ("kcrash" ,kcrash)
10985 ("kdbusaddons" ,kdbusaddons)
10986 ("ki18n" ,ki18n)
10987 ("kxmlgui" ,kxmlgui)
10988 ("libkdegames" ,libkdegames)
10989 ("qtbase" ,qtbase)
10990 ("qtdeclarative" ,qtdeclarative)
10991 ("qtsvg" ,qtsvg)))
10992 (home-page "https://games.kde.org/")
10993 (synopsis "Pac-Man clone")
10994 (description "Kapman is a clone of the well known game Pac-Man.
10995
10996 You must run through the maze to eat all pills without being captured by a
10997 ghost. By eating an energizer, Kapman gets the ability to eat ghosts for a
10998 few seconds. When a stage is cleared of pills and energizer the player is
10999 taken to the next stage with slightly increased game speed
11000
11001 This package is part of the KDE games module.")
11002 (license (list license:gpl2+ license:fdl1.2+))))
11003
11004 (define-public kspaceduel
11005 (package
11006 (name "kspaceduel")
11007 (version "19.08.3")
11008 (source
11009 (origin
11010 (method url-fetch)
11011 (uri (string-append "mirror://kde/stable/applications/" version
11012 "/src/kspaceduel-" version ".tar.xz"))
11013 (sha256
11014 (base32 "1hppni0ihs7psc0dly5rxyy2a38nzhlig9yfyhi3lkh36z05pql8"))))
11015 (build-system qt-build-system)
11016 (native-inputs
11017 `(("extra-cmake-modules" ,extra-cmake-modules)
11018 ("kdoctools" ,kdoctools)))
11019 (inputs
11020 `(("kcompletion" ,kcompletion)
11021 ("kconfig" ,kconfig)
11022 ("kconfigwidgets" ,kconfigwidgets)
11023 ("kcoreaddons" ,kcoreaddons)
11024 ("kcrash" ,kcrash)
11025 ("kdbusaddons" ,kdbusaddons)
11026 ("ki18n" ,ki18n)
11027 ("kxmlgui" ,kxmlgui)
11028 ("libkdegames" ,libkdegames)
11029 ("qtbase" ,qtbase)
11030 ("qtdeclarative" ,qtdeclarative)
11031 ("qtsvg" ,qtsvg)))
11032 (home-page "https://games.kde.org/")
11033 (synopsis "Two player game with shooting spaceships flying around a sun")
11034 (description "KSpaceduel is a space battle game for one or two players,
11035 where two ships fly around a star in a struggle to be the only survivor.
11036
11037 This package is part of the KDE games module.")
11038 (license (list license:gpl2+ license:fdl1.2+))))
11039
11040 (define-public bovo
11041 (package
11042 (name "bovo")
11043 (version "19.08.3")
11044 (source
11045 (origin
11046 (method url-fetch)
11047 (uri (string-append "mirror://kde/stable/applications/" version
11048 "/src/bovo-" version ".tar.xz"))
11049 (sha256
11050 (base32 "0dbpng0w52nahmx7brsll66zw23ql1g6pcvn2k4g2lnvxch0i59g"))))
11051 (build-system qt-build-system)
11052 (native-inputs
11053 `(("extra-cmake-modules" ,extra-cmake-modules)
11054 ("kdoctools" ,kdoctools)))
11055 (inputs
11056 `(("kcompletion" ,kcompletion)
11057 ("kcoreaddons" ,kcoreaddons)
11058 ("kcrash" ,kcrash)
11059 ("kdbusaddons" ,kdbusaddons)
11060 ("ki18n" ,ki18n)
11061 ("kxmlgui" ,kxmlgui)
11062 ("libkdegames" ,libkdegames)
11063 ("qtbase" ,qtbase)
11064 ("qtdeclarative" ,qtdeclarative)
11065 ("qtsvg" ,qtsvg)))
11066 (home-page "https://games.kde.org/")
11067 (synopsis "Classic pen and paper game: five in a line")
11068 (description "Bovo is a Gomoku (from Japanese 五目並べ - lit. \"five
11069 points\") like game for two players, where the opponents alternate in placing
11070 their respective pictogram on the game board. The winner is the first to
11071 complete a line of five markers. (Also known as: Connect Five, Five in a row,
11072 X and O, Naughts and Crosses)
11073
11074 This package is part of the KDE games module.")
11075 (license (list license:gpl2+ license:fdl1.2+))))
11076
11077 (define-public killbots
11078 (package
11079 (name "killbots")
11080 (version "19.08.3")
11081 (source
11082 (origin
11083 (method url-fetch)
11084 (uri (string-append "mirror://kde/stable/applications/" version
11085 "/src/killbots-" version ".tar.xz"))
11086 (sha256
11087 (base32 "1qi86q7diw7glkp9v33yim9nhz2da4balbxa1hjrdgjdv8zdbxbm"))))
11088 (build-system qt-build-system)
11089 (native-inputs
11090 `(("extra-cmake-modules" ,extra-cmake-modules)
11091 ("kdoctools" ,kdoctools)))
11092 (inputs
11093 `(("kcompletion" ,kcompletion)
11094 ("kconfig" ,kconfig)
11095 ("kconfigwidgets" ,kconfigwidgets)
11096 ("kcoreaddons" ,kcoreaddons)
11097 ("kcrash" ,kcrash)
11098 ("kdbusaddons" ,kdbusaddons)
11099 ("ki18n" ,ki18n)
11100 ("kwidgetsaddons" ,kwidgetsaddons)
11101 ("kxmlgui" ,kxmlgui)
11102 ("libkdegames" ,libkdegames)
11103 ("qtbase" ,qtbase)
11104 ("qtdeclarative" ,qtdeclarative)))
11105 (home-page "https://games.kde.org/")
11106 (synopsis "Port of the classic BSD console game robots")
11107 (description "Killbots is a simple game of evading killer robots.
11108
11109 Who created the robots and why they have been programmed to destroy, no one
11110 knows. All that is known is that the robots are numerous and their sole
11111 objective is to destroy you. Fortunately for you, their creator has focused
11112 on quantity rather than quality and as a result the robots are severely
11113 lacking in intelligence. Your superior wit and a fancy teleportation device
11114 are your only weapons against the never-ending stream of mindless automatons.
11115
11116 This package is part of the KDE games module.")
11117 (license (list license:gpl2+ license:fdl1.2+))))
11118
11119 (define-public ksnakeduel
11120 (package
11121 (name "ksnakeduel")
11122 (version "19.08.3")
11123 (source
11124 (origin
11125 (method url-fetch)
11126 (uri (string-append "mirror://kde/stable/applications/" version
11127 "/src/ksnakeduel-" version ".tar.xz"))
11128 (sha256
11129 (base32 "0mprrnpax8pv7ab36zwhvdfj8id52w8g6x76nnj8qvkdlkjiqdnn"))))
11130 (build-system qt-build-system)
11131 (native-inputs
11132 `(("extra-cmake-modules" ,extra-cmake-modules)
11133 ("kdoctools" ,kdoctools)))
11134 (inputs
11135 `(("kcompletion" ,kcompletion)
11136 ("kconfig" ,kconfig)
11137 ("kconfigwidgets" ,kconfigwidgets)
11138 ("kcoreaddons" ,kcoreaddons)
11139 ("kcrash" ,kcrash)
11140 ("kdbusaddons" ,kdbusaddons)
11141 ("kguiaddons" ,kguiaddons)
11142 ("ki18n" ,ki18n)
11143 ("kxmlgui" ,kxmlgui)
11144 ("libkdegames" ,libkdegames)
11145 ("qtbase" ,qtbase)
11146 ("qtdeclarative" ,qtdeclarative)
11147 ("qtsvg" ,qtsvg)))
11148 (home-page "https://games.kde.org/")
11149 (synopsis "Snake race played against the computer")
11150 (description "KSnakeDuel is a fast action game where you steer a snake
11151 which has to eat food. While eating the snake grows. But once a player
11152 collides with the other snake or the wall the game is lost. This becomes of
11153 course more and more difficult the longer the snakes grow.
11154
11155 This package is part of the KDE games module.")
11156 (license (list license:gpl2+ license:fdl1.2+))))
11157
11158 (define-public kollision
11159 (package
11160 (name "kollision")
11161 (version "19.08.3")
11162 (source
11163 (origin
11164 (method url-fetch)
11165 (uri (string-append "mirror://kde/stable/applications/" version
11166 "/src/kollision-" version ".tar.xz"))
11167 (sha256
11168 (base32 "1p7qrn3d0ybpvc9k6k5wzj54dsrp1rqh39844maz0ay2fhvmch12"))))
11169 (build-system qt-build-system)
11170 (native-inputs
11171 `(("extra-cmake-modules" ,extra-cmake-modules)
11172 ("kdoctools" ,kdoctools)))
11173 (inputs
11174 `(("kcompletion" ,kcompletion)
11175 ("kconfig" ,kconfig)
11176 ("kcoreaddons" ,kcoreaddons)
11177 ("kcrash" ,kcrash)
11178 ("kdbusaddons" ,kdbusaddons)
11179 ("ki18n" ,ki18n)
11180 ("kwidgetsaddons" ,kwidgetsaddons)
11181 ("kxmlgui" ,kxmlgui)
11182 ("libkdegames" ,libkdegames)
11183 ("qtbase" ,qtbase)
11184 ("qtdeclarative" ,qtdeclarative)))
11185 (home-page "https://games.kde.org/")
11186 (synopsis "Simple ball dodging game")
11187 (description "In Kollision you use mouse to control a small blue ball in a
11188 closed space environment filled with small red balls, which move about
11189 chaotically. Your goal is to avoid touching any of those red balls with your
11190 blue one, because the moment you do the game will be over. The longer you can
11191 stay in game the higher will your score be.
11192
11193 This package is part of the KDE games module.")
11194 (license (list license:gpl2+ license:fdl1.2+))))
11195
11196 (define-public knavalbattle
11197 (package
11198 (name "knavalbattle")
11199 (version "19.08.3")
11200 (source
11201 (origin
11202 (method url-fetch)
11203 (uri (string-append "mirror://kde/stable/applications/" version
11204 "/src/knavalbattle-" version ".tar.xz"))
11205 (sha256
11206 (base32 "0sdfjplqkb30x2mvh66pkzay6vn5px87779sh2s8lpl6fcw0v9g4"))))
11207 (build-system qt-build-system)
11208 (native-inputs
11209 `(("extra-cmake-modules" ,extra-cmake-modules)
11210 ("kdoctools" ,kdoctools)))
11211 (inputs
11212 `(("kauth" ,kauth)
11213 ("kcompletion" ,kcompletion)
11214 ("kconfig" ,kconfig)
11215 ("kconfigwidgets" ,kconfigwidgets)
11216 ("kcoreaddons" ,kcoreaddons)
11217 ("kcrash" ,kcrash)
11218 ("kdbusaddons" ,kdbusaddons)
11219 ("kdnssd" ,kdnssd)
11220 ("ki18n" ,ki18n)
11221 ("ktextwidgets" ,ktextwidgets)
11222 ("kxmlgui" ,kxmlgui)
11223 ("libkdegames" ,libkdegames)
11224 ("qtbase" ,qtbase)
11225 ("qtdeclarative" ,qtdeclarative)))
11226 (home-page "https://games.kde.org/")
11227 (synopsis "Battleship board game with built-in game server")
11228 (description "KBattleship is a Battle Ship game for KDE.
11229
11230 Ships are placed on a board which represents the sea. Players try to hit each
11231 others ships in turns without knowing where they are placed. The first player
11232 to destroy all ships wins the game.
11233
11234 This package is part of the KDE games module.")
11235 (license (list license:gpl2+ license:fdl1.2+))))
11236
11237 (define-public kreversi
11238 (package
11239 (name "kreversi")
11240 (version "19.08.3")
11241 (source
11242 (origin
11243 (method url-fetch)
11244 (uri (string-append "mirror://kde/stable/applications/" version
11245 "/src/kreversi-" version ".tar.xz"))
11246 (sha256
11247 (base32 "0b6q8df2bawgnrswhq59z37axad0q3zpvvzxdds7sz1lw505xw9h"))))
11248 (build-system qt-build-system)
11249 (native-inputs
11250 `(("extra-cmake-modules" ,extra-cmake-modules)
11251 ("kdoctools" ,kdoctools)))
11252 (inputs
11253 `(("kconfig" ,kconfig)
11254 ("kconfigwidgets" ,kconfigwidgets)
11255 ("kcoreaddons" ,kcoreaddons)
11256 ("kcrash" ,kcrash)
11257 ("kdbusaddons" ,kdbusaddons)
11258 ("kdeclarative" ,kdeclarative)
11259 ("ki18n" ,ki18n)
11260 ("kiconthemes" ,kiconthemes)
11261 ("kio" ,kio)
11262 ("kxmlgui" ,kxmlgui)
11263 ("libkdegames" ,libkdegames)
11264 ("qtbase" ,qtbase)
11265 ("qtdeclarative" ,qtdeclarative)
11266 ("qtsvg" ,qtsvg)))
11267 (home-page "https://games.kde.org/")
11268 (synopsis "Old reversi board game, also known as othello")
11269 (description "KReversi is a simple one player strategy game played
11270 against the computer.
11271
11272 If a player's piece is captured by an opposing player, that piece is turned
11273 over to reveal the color of that player. A winner is declared when one player
11274 has more pieces of his own color on the board and there are no more possible
11275 moves.
11276
11277 This package is part of the KDE games module.")
11278 (license (list license:gpl2+ license:fdl1.2+))))
11279
11280 (define-public ksquares
11281 (package
11282 (name "ksquares")
11283 (version "19.08.3")
11284 (source
11285 (origin
11286 (method url-fetch)
11287 (uri (string-append "mirror://kde/stable/applications/" version
11288 "/src/ksquares-" version ".tar.xz"))
11289 (sha256
11290 (base32 "0hv8hls5s627lys08nnw72rfzsafj3dmp49mh2afzmh6lgk9h5vy"))))
11291 (build-system qt-build-system)
11292 (native-inputs
11293 `(("extra-cmake-modules" ,extra-cmake-modules)
11294 ("kdoctools" ,kdoctools)))
11295 (inputs
11296 `(("kcompletion" ,kcompletion)
11297 ("kconfig" ,kconfig)
11298 ("kconfigwidgets" ,kconfigwidgets)
11299 ("kcoreaddons" ,kcoreaddons)
11300 ("kcrash" ,kcrash)
11301 ("kdbusaddons" ,kdbusaddons)
11302 ("ki18n" ,ki18n)
11303 ("kwidgetsaddons" ,kwidgetsaddons)
11304 ("kxmlgui" ,kxmlgui)
11305 ("libkdegames" ,libkdegames)
11306 ("qtbase" ,qtbase)
11307 ("qtdeclarative" ,qtdeclarative)))
11308 (home-page "https://games.kde.org/")
11309 (synopsis "Dots and Boxes game")
11310 (description "KSquares is an implementation of the popular paper based
11311 game Squares. Two players take turns connecting dots on a grid to complete
11312 squares, the player with the most squares wins.
11313
11314 This package is part of the KDE games module.")
11315 (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
11316
11317 (define-public kjumpingcube
11318 (package
11319 (name "kjumpingcube")
11320 (version "19.08.3")
11321 (source
11322 (origin
11323 (method url-fetch)
11324 (uri (string-append "mirror://kde/stable/applications/" version
11325 "/src/kjumpingcube-" version ".tar.xz"))
11326 (sha256
11327 (base32 "0d67zqkf2xffjkj671gl2n6nj6jajyn6rgqqj5i6gm500mqi9rm1"))))
11328 (build-system qt-build-system)
11329 (native-inputs
11330 `(("extra-cmake-modules" ,extra-cmake-modules)
11331 ("kdoctools" ,kdoctools)))
11332 (inputs
11333 `(("kconfig" ,kconfig)
11334 ("kconfigwidgets" ,kconfigwidgets)
11335 ("kcoreaddons" ,kcoreaddons)
11336 ("kcrash" ,kcrash)
11337 ("kdbusaddons" ,kdbusaddons)
11338 ("ki18n" ,ki18n)
11339 ("kio" ,kio)
11340 ("kwidgetsaddons" ,kwidgetsaddons)
11341 ("kxmlgui" ,kxmlgui)
11342 ("libkdegames" ,libkdegames)
11343 ("qtbase" ,qtbase)
11344 ("qtdeclarative" ,qtdeclarative)
11345 ("qtsvg" ,qtsvg)))
11346 (home-page "https://games.kde.org/")
11347 (synopsis "Simple tactical game for number-crunchers")
11348 (description "KJumpingcube is a simple tactical game for one or two
11349 players, played on a grid of numbered squares. Each turn, players compete for
11350 control of the board by capturing or adding to one square.
11351
11352 This package is part of the KDE games module.")
11353 (license (list license:gpl2+ license:fdl1.2+))))
11354
11355 (define-public xmoto
11356 (package
11357 (name "xmoto")
11358 (version "0.6.1")
11359 (source
11360 (origin
11361 (method git-fetch)
11362 (uri (git-reference
11363 (url "https://github.com/xmoto/xmoto")
11364 (commit version)))
11365 (file-name (git-file-name name version))
11366 (sha256
11367 (base32 "00f5ha79lfa2iiaz66wl0hl5dapa1l15qdr7m7knzi0ll7j6z66n"))
11368 (modules '((guix build utils)
11369 (ice-9 ftw)
11370 (srfi srfi-1)))
11371 ;; XXX: Remove some bundled libraries. Guix provides Chipmunk, but
11372 ;; it appears to be incompatible with the (older) one bundled.
11373 (snippet
11374 `(begin
11375 (let ((keep '("chipmunk" "glad" "md5sum")))
11376 (with-directory-excursion "vendor"
11377 (for-each delete-file-recursively
11378 (lset-difference string=?
11379 (scandir ".")
11380 (cons* "." ".." keep))))
11381 (substitute* "src/CMakeLists.txt"
11382 (("add_subdirectory\\(.*?/vendor/(.+?)\".*" line library)
11383 (if (member library keep) line ""))))
11384 #t))))
11385 (build-system cmake-build-system)
11386 (arguments
11387 `(#:tests? #f ;no test
11388 #:phases
11389 (modify-phases %standard-phases
11390 (add-after 'unpack 'fix-hard-coded-directory
11391 (lambda* (#:key outputs #:allow-other-keys)
11392 (substitute* "src/common/VFileIO.cpp"
11393 (("/usr/share")
11394 (string-append (assoc-ref outputs "out") "/share")))
11395 #t))
11396 (add-before 'build 'set-SDL
11397 ;; Set correct environment for SDL.
11398 (lambda* (#:key inputs #:allow-other-keys)
11399 (setenv "CPATH"
11400 (string-append
11401 (assoc-ref inputs "sdl") "/include/SDL:"
11402 (or (getenv "CPATH") "")))
11403 #t))
11404 (add-after 'install 'unbundle-fonts
11405 ;; Unbundle DejaVuSans TTF files.
11406 (lambda* (#:key outputs inputs #:allow-other-keys)
11407 (let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
11408 "/share/fonts/truetype/"))
11409 (target-dir (string-append (assoc-ref outputs "out")
11410 "/share/xmoto/Textures/Fonts/")))
11411 (for-each (lambda (f)
11412 (let ((font (string-append font-dir f))
11413 (target (string-append target-dir f)))
11414 (delete-file target)
11415 (symlink font target)))
11416 '("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
11417 #t))))))
11418 (native-inputs
11419 `(("gettext" ,gettext-minimal)
11420 ("pkg-config" ,pkg-config)))
11421 (inputs
11422 `(("bzip2" ,bzip2)
11423 ("curl" ,curl)
11424 ("font-dejavu" ,font-dejavu)
11425 ("glu" ,glu)
11426 ("libjpeg" ,libjpeg-turbo)
11427 ("libpng" ,libpng)
11428 ("libxdg-basedir" ,libxdg-basedir)
11429 ("libxml2" ,libxml2)
11430 ("lua" ,lua-5.1)
11431 ("ode" ,ode)
11432 ("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
11433 ("sqlite" ,sqlite)
11434 ("zlib" ,zlib)))
11435 (home-page "https://xmoto.tuxfamily.org/")
11436 (synopsis "2D motocross platform game")
11437 (description
11438 "X-Moto is a challenging 2D motocross platform game, where
11439 physics play an all important role in the gameplay. You need to
11440 control your bike to its limit, if you want to have a chance finishing
11441 the more difficult challenges.")
11442 (license (list license:gpl2+ ;whole project
11443 license:bsd-3 ;vendor/md5sum
11444 license:lgpl2.1+
11445 license:expat))))
11446
11447 (define-public eboard
11448 (package
11449 (name "eboard")
11450 (version "1.1.3")
11451 (source
11452 (origin
11453 (method git-fetch)
11454 (uri (git-reference
11455 (url "https://github.com/fbergo/eboard")
11456 (commit (string-append "v" version))))
11457 (file-name (git-file-name name version))
11458 (sha256
11459 (base32 "1z4pwpqyvxhlda99h6arh2rjk90fbms9q29fqizjblrdn01dlxn1"))))
11460 (build-system gnu-build-system)
11461 (native-inputs
11462 `(("perl" ,perl)
11463 ("pkg-config" ,pkg-config)))
11464 (inputs
11465 `(("gtk+" ,gtk+-2)
11466 ("libpng" ,libpng)
11467 ("gstreamer" ,gstreamer)))
11468 (arguments
11469 `(#:tests? #f
11470 #:phases
11471 (modify-phases %standard-phases
11472 (replace 'configure
11473 (lambda* (#:key outputs #:allow-other-keys)
11474 (make-file-writable "eboard-config")
11475 (setenv "CC" "gcc")
11476 (invoke "./configure"
11477 (string-append "--prefix=" (assoc-ref outputs "out")))
11478 #t))
11479 (add-before 'install 'make-required-directories
11480 (lambda* (#:key outputs #:allow-other-keys)
11481 (mkdir-p (string-append (assoc-ref outputs "out")
11482 "/share/eboard"))
11483 #t)))))
11484 (synopsis "Graphical user interface to play chess")
11485 (description
11486 "Eboard is a chess board interface for ICS (Internet Chess Servers)
11487 and chess engines.")
11488 (home-page "https://www.bergo.eng.br/eboard/")
11489 (license license:gpl2+)))
11490
11491 (define-public chessx
11492 (package
11493 (name "chessx")
11494 (version "1.5.4")
11495 (source
11496 (origin
11497 (method url-fetch)
11498 (uri (string-append "mirror://sourceforge/chessx/chessx/"
11499 version "/chessx-" version ".tgz"))
11500 (sha256
11501 (base32 "1a3541vl5hp6jllgx998w9kjh9kp3wrl80yfwkxmq1bc5bzsrnz2"))))
11502 (build-system qt-build-system)
11503 (native-inputs
11504 `(("qttools" ,qttools)))
11505 (inputs
11506 `(("qtbase" ,qtbase)
11507 ("qtmultimedia" ,qtmultimedia)
11508 ("qtspeech" ,qtspeech)
11509 ("qtsvg" ,qtsvg)
11510 ("zlib" ,zlib)))
11511 (arguments
11512 `(#:tests? #f
11513 #:phases
11514 (modify-phases %standard-phases
11515 (add-after 'unpack 'fix-paths
11516 (lambda* (#:key inputs #:allow-other-keys)
11517 (substitute* "chessx.pro"
11518 (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
11519 (string-append (assoc-ref inputs "qttools") "/bin/lrelease"))
11520 ;; Fix missing translations.
11521 (("TRANSLATIONS = i18n/chessx_de.ts")
11522 "TRANSLATIONS = i18n/chessx_de.ts i18n/chessx_da.ts \\
11523 i18n/chessx_fr.ts i18n/chessx_it.ts i18n/chessx_cz.ts i18n/chessx_ru.ts \\
11524 i18n/chessx_es.ts"))
11525 #t))
11526 (add-after 'fix-paths 'make-qt-deterministic
11527 (lambda _
11528 (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
11529 #t))
11530 (replace 'configure
11531 (lambda _
11532 (invoke "qmake")
11533 #t))
11534 (replace 'install
11535 (lambda* (#:key outputs #:allow-other-keys)
11536 (let ((out (assoc-ref outputs "out")))
11537 (install-file "release/chessx" (string-append out "/bin"))
11538 (install-file "unix/chessx.desktop"
11539 (string-append out "/share/applications")))
11540 #t)))))
11541 (synopsis "Chess game database")
11542 (description
11543 "ChessX is a chess database. With ChessX you can operate on your
11544 collection of chess games in many ways: browse, edit, add, organize, analyze,
11545 etc. You can also play games on FICS or against an engine.")
11546 (home-page "http://chessx.sourceforge.net/")
11547 (license license:gpl2+)))
11548
11549 (define-public stockfish
11550 (package
11551 (name "stockfish")
11552 (version "12")
11553 (source
11554 (origin
11555 (method git-fetch)
11556 (uri (git-reference
11557 (url "https://github.com/official-stockfish/Stockfish")
11558 (commit (string-append "sf_" version))))
11559 (file-name (git-file-name name version))
11560 (sha256
11561 (base32 "0vcymbwp5nf114pp3ax40s21ki5dckda15vmhr77d1mnq3fn0l32"))))
11562 (build-system gnu-build-system)
11563 (inputs
11564 `(("neural-network"
11565 ,(origin
11566 (method url-fetch)
11567 (uri "https://tests.stockfishchess.org/api/nn/nn-82215d0fd0df.nnue")
11568 (sha256
11569 (base32 "1r4yqrh4di05syyhl84hqcz84djpbd605b27zhbxwg6zs07ms8c2"))))))
11570 (arguments
11571 `(#:tests? #f
11572 #:make-flags (list "-C" "src"
11573 "build"
11574 (string-append "PREFIX="
11575 (assoc-ref %outputs "out"))
11576 (string-append "ARCH="
11577 ,(match (%current-system)
11578 ("x86_64-linux" "x86-64")
11579 ("i686-linux" "x86-32")
11580 ("aarch64-linux" "general-64")
11581 ("armhf-linux" "armv7")
11582 ("mips64el-linux" "general-64")
11583 (_ "general-32"))))
11584 #:phases (modify-phases %standard-phases
11585 (delete 'configure)
11586 ;; The official neural network file is needed for building
11587 ;; and is embedded in the resulting binary.
11588 (add-after 'unpack 'copy-net
11589 (lambda* (#:key inputs #:allow-other-keys)
11590 (copy-file (assoc-ref inputs "neural-network")
11591 "src/nn-82215d0fd0df.nnue")
11592 #t)))))
11593 (synopsis "Strong chess engine")
11594 (description
11595 "Stockfish is a very strong chess engine. It is much stronger than the
11596 best human chess grandmasters. It can be used with UCI-compatible GUIs like
11597 ChessX.")
11598 (home-page "https://stockfishchess.org/")
11599 (license license:gpl3+)))
11600
11601 (define-public barrage
11602 (package
11603 (name "barrage")
11604 (version "1.0.5")
11605 (source
11606 (origin
11607 (method url-fetch)
11608 (uri (string-append "mirror://sourceforge/lgames/barrage/"
11609 "barrage-" version ".tar.gz"))
11610 (sha256
11611 (base32 "0139wxyrir10cbkvkjn548xgmp84wax8mfwk80yxbxlcdamrg257"))))
11612 (build-system gnu-build-system)
11613 (inputs
11614 `(("hicolor-icon-theme" ,hicolor-icon-theme)
11615 ("sdl" ,sdl)
11616 ("sdl-mixer" ,sdl-mixer)))
11617 (arguments
11618 `(#:configure-flags
11619 (list
11620 (string-append "CFLAGS="
11621 "-I" (assoc-ref %build-inputs "sdl-mixer")
11622 "/include/SDL"))))
11623 (home-page "http://lgames.sourceforge.net/Barrage/")
11624 (synopsis "Violent point-and-click shooting game with nice effects")
11625 (description
11626 "Barrage is a rather destructive action game that puts you on a shooting
11627 range with the objective to hit as many dummy targets as possible within
11628 3 minutes. You control a gun that may either fire small or large grenades at
11629 soldiers, jeeps and tanks. The gameplay is simple but it is not that easy to
11630 get high scores.")
11631 (license license:gpl2+)))
11632
11633 (define-public burgerspace
11634 (package
11635 (name "burgerspace")
11636 (version "1.9.3")
11637 (source
11638 (origin
11639 (method url-fetch)
11640 (uri (string-append "http://perso.b2b2c.ca/~sarrazip/dev/"
11641 "burgerspace-" version ".tar.gz"))
11642 (sha256
11643 (base32 "1005a04rbn4lzjrpfg0m394k2mfaji63fm2qhdqdsxila8a6kjbv"))))
11644 (build-system gnu-build-system)
11645 (native-inputs
11646 `(("pkg-config" ,pkg-config)))
11647 (inputs
11648 `(("flatzebra" ,flatzebra)))
11649 (home-page "http://perso.b2b2c.ca/~sarrazip/dev/burgerspace.html")
11650 (synopsis "Avoid evil foodstuffs and make burgers")
11651 (description
11652 "This is a clone of the classic game BurgerTime. In it, you play
11653 the part of a chef who must create burgers by stepping repeatedly on
11654 the ingredients until they fall into place. And to make things more
11655 complicated, you also must avoid evil animate food items while
11656 performing this task, with nothing but your trusty pepper shaker to
11657 protect you.")
11658 (license license:gpl2+)))
11659
11660 (define-public 7kaa
11661 (package
11662 (name "7kaa")
11663 (version "2.15.4p1")
11664 (source
11665 (origin
11666 (method url-fetch)
11667 (uri (string-append "https://github.com/the3dfxdude/7kaa/"
11668 "releases/download/v" version "/"
11669 "7kaa-" version ".tar.xz"))
11670 (sha256
11671 (base32 "1y7v0jhp3apb619p7asikqr1dnwb2yxbh40wbx1ppmr5f03mq9ph"))))
11672 (build-system gnu-build-system)
11673 (native-inputs
11674 `(("gettext" ,gettext-minimal)
11675 ("pkg-config" ,pkg-config)))
11676 (inputs
11677 `(("curl" ,curl)
11678 ("enet" ,enet)
11679 ("openal" ,openal)
11680 ("sdl2" ,sdl2)))
11681 (home-page "https://7kfans.com/")
11682 (synopsis "Seven Kingdoms Ancient Adversaries: real-time strategy game")
11683 (description
11684 "Seven Kingdoms, designed by Trevor Chan, brings a blend of Real-Time
11685 Strategy with the addition of trade, diplomacy, and espionage. The game
11686 enables players to compete against up to six other kingdoms allowing players
11687 to conquer opponents by defeating them in war (with troops or machines),
11688 capturing their buildings with spies, or offering opponents money for their
11689 kingdom.")
11690 (license license:gpl2+)))
11691
11692 (define-public neverball
11693 ;; Git version is 6-years younger than latest release.
11694 (let ((commit "760a25d32a5fb0661b99426d4ddcb9ac9f3d1644")
11695 (revision "1"))
11696 (package
11697 (name "neverball")
11698 (version (git-version "1.6.0" revision commit))
11699 (source
11700 (origin
11701 (method git-fetch)
11702 (uri (git-reference
11703 (url "https://github.com/Neverball/neverball")
11704 (commit commit)))
11705 (sha256
11706 (base32
11707 "0bwh67df3lyf33bv710y25l3frjdd34j9b7gsjadwxviz6r1vpj5"))
11708 (file-name (git-file-name name version))
11709 (modules '((guix build utils)))
11710 (snippet
11711 '(begin
11712 ;; Octocat seems to be non-free. Oddly, Debian doesn't strip it.
11713 (delete-file-recursively "data/ball/octocat")
11714 #t))))
11715 (build-system copy-build-system)
11716 (arguments
11717 `(#:install-plan
11718 '(("neverball" "bin/")
11719 ("neverputt" "bin/")
11720 ("mapc" "bin/")
11721 ("data" "share/games/neverball/")
11722 ("locale" "share/")
11723 ("dist/" "share/games/neverball" #:include ("neverball_replay.png"
11724 "neverlogos.svg"
11725 "svg readme.txt"))
11726 ("dist/" "share/applications" #:include ("neverball.desktop"
11727 "neverputt.desktop"))
11728 ("dist/neverball_16.png"
11729 "/share/icons/hicolor/16x16/apps/neverball.png")
11730 ("dist/neverball_24.png"
11731 "/share/icons/hicolor/24x24/apps/neverball.png")
11732 ("dist/neverball_32.png"
11733 "/share/icons/hicolor/32x32/apps/neverball.png")
11734 ("dist/neverball_48.png"
11735 "/share/icons/hicolor/48x48/apps/neverball.png")
11736 ("dist/neverball_64.png"
11737 "/share/icons/hicolor/64x64/apps/neverball.png")
11738 ("dist/neverball_128.png"
11739 "/share/icons/hicolor/128x128/apps/neverball.png")
11740 ("dist/neverball_256.png"
11741 "/share/icons/hicolor/256x256/apps/neverball.png")
11742 ("dist/neverball_512.png"
11743 "/share/icons/hicolor/512x512/apps/neverball.png")
11744 ("dist/neverputt_16.png"
11745 "/share/icons/hicolor/16x16/apps/neverputt.png")
11746 ("dist/neverputt_24.png"
11747 "/share/icons/hicolor/24x24/apps/neverputt.png")
11748 ("dist/neverputt_32.png"
11749 "/share/icons/hicolor/32x32/apps/neverputt.png")
11750 ("dist/neverputt_48.png"
11751 "/share/icons/hicolor/48x48/apps/neverputt.png")
11752 ("dist/neverputt_64.png"
11753 "/share/icons/hicolor/64x64/apps/neverputt.png")
11754 ("dist/neverputt_128.png"
11755 "/share/icons/hicolor/128x128/apps/neverputt.png")
11756 ("dist/neverputt_256.png"
11757 "/share/icons/hicolor/256x256/apps/neverputt.png")
11758 ("dist/neverputt_512.png"
11759 "/share/icons/hicolor/512x512/apps/neverputt.png")
11760 ("dist/" "share/man/man1" #:include ("mapc.1"))
11761 ("dist/" "share/man/man6" #:include ("neverball.6" "neverputt.6"))
11762 ("doc/" "share/doc/neverball")
11763 ("README.md" "share/doc/neverball/"))
11764 #:phases
11765 (modify-phases %standard-phases
11766 (add-before 'install 'build
11767 (lambda* (#:key inputs outputs #:allow-other-keys)
11768 (let* ((out (assoc-ref outputs "out"))
11769 (sdl (assoc-ref inputs "sdl")))
11770 (invoke "make" "-j" (number->string (parallel-job-count))
11771 "--environment-overrides"
11772 "CC=gcc" "BUILD=release"
11773 (string-append "DATADIR="
11774 out
11775 "/share/games/neverball/data")
11776 (string-append "LOCALEDIR=" out "/share/locale")
11777 (string-append "SDL_CPPFLAGS=-I"
11778 sdl
11779 "/include/SDL2/")))
11780 #t))
11781 (add-after 'install 'fix-some-broken-fonts
11782 (lambda* (#:key outputs #:allow-other-keys)
11783 (let* ((out (assoc-ref outputs "out")))
11784 (wrap-program (string-append out "/bin/neverball")
11785 `("LANG" = ("en_US.utf8")))
11786 (wrap-program (string-append out "/bin/neverputt")
11787 `("LANG" = ("en_US.utf8"))))
11788 #t)))))
11789 (native-inputs
11790 `(("gettext" ,gettext-minimal))) ;for msgfmt
11791 (inputs
11792 `(("libjpeg" ,libjpeg-turbo)
11793 ("libpng" ,libpng)
11794 ("libvorbis" ,libvorbis)
11795 ("physfs" ,physfs)
11796 ("sdl" ,(sdl-union (list sdl2 sdl2-ttf)))))
11797 (home-page "https://neverball.org/")
11798 (synopsis "3D floor-tilting game")
11799 (description
11800 "In the grand tradition of Marble Madness and Super Monkey Ball,
11801 Neverball has you guide a rolling ball through dangerous territory. Balance
11802 on narrow bridges, navigate mazes, ride moving platforms, and dodge pushers
11803 and shovers to get to the goal. Race against the clock to collect coins to
11804 earn extra balls. Also included is Neverputt, which is a 3D miniature golf
11805 game.") ;thanks to Debian for description
11806 (license license:gpl2+))))
11807
11808 (define-public pokerth
11809 (package
11810 (name "pokerth")
11811 (version "1.1.2")
11812 (source
11813 (origin
11814 (method url-fetch)
11815 (uri (string-append "mirror://sourceforge/pokerth/pokerth/"
11816 version "/pokerth-" version ".tar.gz"))
11817 (sha256
11818 (base32 "0yi9bj3k8yc1gkwmaf14zbbvvn13n54n1dli8k6j1pkph3p3vjq2"))
11819 (modules '((guix build utils)))
11820 (snippet
11821 '(begin
11822 ;; Remove bundled websocketpp.
11823 (delete-file-recursively "src/third_party/websocketpp")
11824 (substitute* "pokerth_lib.pro"
11825 (("src/third_party/websocketpp")
11826 ""))
11827 #t))))
11828 (build-system qt-build-system)
11829 (inputs
11830 `(("boost" ,boost)
11831 ("curl" ,curl)
11832 ("gsasl" ,gsasl)
11833 ("libgcrypt" ,libgcrypt)
11834 ("libircclient" ,libircclient)
11835 ("protobuf" ,protobuf-2) ; remove package when no longer needed
11836 ("qtbase" ,qtbase)
11837 ("sdl" ,(sdl-union (list sdl sdl-mixer)))
11838 ("sqlite" ,sqlite)
11839 ("tinyxml" ,tinyxml)
11840 ("websocketpp" ,websocketpp)
11841 ("zlib" ,zlib)))
11842 (arguments
11843 `(#:tests? #f ; No test suite
11844 #:phases
11845 (modify-phases %standard-phases
11846 (add-after 'unpack 'fix-paths
11847 (lambda* (#:key inputs #:allow-other-keys)
11848 (substitute* (find-files "." "\\.pro$")
11849 (("/opt/gsasl")
11850 (assoc-ref inputs "gsasl"))
11851 (("\\$\\$\\{PREFIX\\}/include/libircclient")
11852 (string-append (assoc-ref inputs "libircclient")
11853 "/include/libircclient"))
11854 (("LIB_DIRS =")
11855 (string-append "LIB_DIRS = "
11856 (assoc-ref inputs "boost") "/lib")))
11857 #t))
11858 (add-after 'unpack 'fix-build
11859 (lambda _
11860 ;; Fixes for Boost versions >= 1.66.
11861 (substitute* '("src/net/common/clientthread.cpp"
11862 "src/net/serveraccepthelper.h")
11863 (("boost::asio::socket_base::non_blocking_io command\\(true\\);")
11864 "")
11865 (("newSock->io_control\\(command\\);")
11866 "newSock->non_blocking(true);")
11867 (("acceptedSocket->io_control\\(command\\);")
11868 "acceptedSocket->non_blocking(true);"))
11869 #t))
11870 (replace 'configure
11871 (lambda* (#:key outputs #:allow-other-keys)
11872 (invoke "qmake" "pokerth.pro" "CONFIG+=client"
11873 (string-append "PREFIX=" (assoc-ref outputs "out"))))))))
11874 (home-page "https://www.pokerth.net")
11875 (synopsis "Texas holdem poker game")
11876 (description
11877 "With PokerTH you can play the Texas holdem poker game, either against
11878 computer opponents or against real players online.")
11879 (license license:agpl3+)))
11880
11881 (define-public azimuth
11882 (package
11883 (name "azimuth")
11884 ;; Not marked as latest release, but it fixes a compiling issue
11885 ;; and adds the install target.
11886 (version "1.0.3")
11887 (source
11888 (origin
11889 (method git-fetch)
11890 (uri (git-reference
11891 (url "https://github.com/mdsteele/azimuth")
11892 (commit (string-append "v" version))))
11893 (file-name (git-file-name name version))
11894 (sha256
11895 (base32
11896 "1znfvpmqiixd977jv748glk5zc4cmhw5813zp81waj07r9b0828r"))))
11897 (build-system gnu-build-system)
11898 (arguments
11899 `(#:test-target "test"
11900 #:phases
11901 (modify-phases %standard-phases
11902 (delete 'configure) ; no configure script
11903 ;; Build release version instead of debug version.
11904 (add-after 'unpack 'set-release
11905 (lambda _
11906 (setenv "BUILDTYPE" "release") #t))
11907 (add-after 'unpack 'fix-install ; set install directory
11908 (lambda* (#:key outputs #:allow-other-keys)
11909 (substitute* "Makefile" (("/usr") (assoc-ref outputs "out"))) #t)))))
11910 (inputs `(("sdl" ,sdl)))
11911 (home-page "https://mdsteele.games/azimuth/")
11912 (synopsis "Metroidvania game with vector graphics")
11913 (description
11914 "Pilot your ship inside a planet to find and rescue the colonists trapped
11915 inside the Zenith Colony.")
11916 (license license:gpl3+)))
11917
11918 (define-public paperview
11919 (let ((commit "9f8538eb6734c76877b878b8f1e52587f2ae19e6")
11920 (revision "1"))
11921 (package
11922 (name "paperview")
11923 (version (git-version "0.0.1" revision commit)) ;no upstream release
11924 (source (origin
11925 (method git-fetch)
11926 (uri (git-reference
11927 (url "https://github.com/glouw/paperview")
11928 (commit commit)))
11929 (file-name (git-file-name name version))
11930 (sha256
11931 (base32
11932 "09sb9sg44fvkgfdyycrm1ndpx7cnkrglxhci41y8f3gpagnvi7jk"))))
11933 (build-system gnu-build-system)
11934 (inputs
11935 `(("sdl2" ,sdl2)))
11936 (arguments
11937 '(#:tests? #f ;no tests
11938 #:make-flags
11939 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
11940 #:phases
11941 (modify-phases %standard-phases
11942 (delete 'configure))))
11943 (home-page "https://github.com/glouw/paperview/")
11944 (synopsis "High performance X11 animated wallpaper setter")
11945 (description "High performance animated desktop background setter for
11946 X11 that won't set your CPU on fire, drain your laptop battery, or lower video
11947 game FPS.")
11948 (license license:unlicense))))
11949
11950 (define-public curseofwar
11951 (package
11952 (name "curseofwar")
11953 (version "1.3.0")
11954 (source
11955 (origin
11956 (method git-fetch)
11957 (uri (git-reference
11958 (url "https://github.com/a-nikolaev/curseofwar")
11959 (commit (string-append "v" version))))
11960 (file-name (git-file-name name version))
11961 (sha256
11962 (base32 "1wd71wdnj9izg5d95m81yx3684g4zdi7fsy0j5wwnbd9j34ilz1i"))))
11963 (build-system gnu-build-system)
11964 (arguments
11965 `(#:tests? #f ; no tests
11966 #:make-flags
11967 (list (string-append "CC=" ,(cc-for-target))
11968 (string-append "PREFIX=" (assoc-ref %outputs "out")))
11969 #:phases
11970 (modify-phases %standard-phases
11971 (delete 'configure))))
11972 (inputs `(("ncurses" ,ncurses)))
11973 (home-page "https://a-nikolaev.github.io/curseofwar/")
11974 (synopsis "Fast-paced action strategy game")
11975 (description "Curse of War is a fast-paced action strategy game originally
11976 implemented using ncurses user interface. An SDL graphical version is also
11977 available.")
11978 (license license:gpl3+)))