From patchwork Mon Feb 10 01:45:51 2020 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Nicolas Goaziou X-Patchwork-Id: 20207 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 1183817AFD; Mon, 10 Feb 2020 01:46:20 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI, URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.2 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id 7FBAC17AEB for ; Mon, 10 Feb 2020 01:46:19 +0000 (GMT) Received: from localhost ([::1]:56008 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j0y9S-00081D-Mc for patchwork@mira.cbaines.net; Sun, 09 Feb 2020 20:46:18 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:35450) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j0y9E-00080t-CN for guix-patches@gnu.org; Sun, 09 Feb 2020 20:46:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j0y9C-0003nV-Qu for guix-patches@gnu.org; Sun, 09 Feb 2020 20:46:04 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:47533) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1j0y9C-0003nE-Kj for guix-patches@gnu.org; Sun, 09 Feb 2020 20:46:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1j0y9C-0007qR-Hs for guix-patches@gnu.org; Sun, 09 Feb 2020 20:46:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#38805] [PATCH] Add lure. Resent-From: Nicolas Goaziou Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 10 Feb 2020 01:46:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 38805 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Efraim Flashner Cc: 38805@debbugs.gnu.org Received: via spool by 38805-submit@debbugs.gnu.org id=B38805.158129915830142 (code B ref 38805); Mon, 10 Feb 2020 01:46:02 +0000 Received: (at 38805) by debbugs.gnu.org; 10 Feb 2020 01:45:58 +0000 Received: from localhost ([127.0.0.1]:53506 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1j0y97-0007q6-QS for submit@debbugs.gnu.org; Sun, 09 Feb 2020 20:45:58 -0500 Received: from relay10.mail.gandi.net ([217.70.178.230]:49267) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1j0y94-0007pw-Jp for 38805@debbugs.gnu.org; Sun, 09 Feb 2020 20:45:55 -0500 Received: from localhost (40-67.ipv4.commingeshautdebit.fr [185.131.40.67]) (Authenticated sender: admin@nicolasgoaziou.fr) by relay10.mail.gandi.net (Postfix) with ESMTPSA id 8780B240005; Mon, 10 Feb 2020 01:45:52 +0000 (UTC) From: Nicolas Goaziou References: <87r20mzi2b.fsf@nicolasgoaziou.fr> <87r1zb7hu3.fsf@nicolasgoaziou.fr> <20200206193956.GD7827@E5400> Date: Mon, 10 Feb 2020 02:45:51 +0100 In-Reply-To: <20200206193956.GD7827@E5400> (Efraim Flashner's message of "Thu, 6 Feb 2020 21:39:56 +0200") Message-ID: <871rr3z034.fsf@nicolasgoaziou.fr> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches Hello, Efraim Flashner writes: > I think for people looking for the game in other languages finding it as > game-lang would be easier than as a separate output. So my vote would be > different packages, assumably all inheriting from the english one. Thank you for the review! Unfortunately, inheritance doesn't cut it, as I need to parametrize the localized packages. What do you think about the following update? Regards, From 8a22035948190f63d941cd8e51b69bf4a37bdca3 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 30 Dec 2019 02:43:59 +0100 Subject: [PATCH] gnu: Add lure. * gnu/packages/games.scm (make-lure-package): (lure): (lure-de): (lure-es): (lure-fr): (lure-it): New variables. --- gnu/packages/games.scm | 111 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 111 insertions(+) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 78e0042aac..e9543679cd 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -7730,6 +7730,117 @@ the World and demonstrating that he is even more evil than his brother Vlad.") ;; Drascula uses a BSD-like license. (license (license:non-copyleft "file:///readme.txt")))) +(define (make-lure-package name language hash) + (package + (name name) + (version "1.1") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://sourceforge/scummvm/extras/" + "Lure%20of%20the%20Temptress/" + name "-" version ".zip")) + (sha256 + (base32 hash)))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let* ((out (assoc-ref %outputs "out")) + (share (string-append out "/share/lure"))) + (let ((unzip (string-append (assoc-ref %build-inputs "unzip") + "/bin/unzip"))) + (invoke unzip "-j" (assoc-ref %build-inputs "source"))) + (let ((doc (string-append out "/share/doc/lure-" ,version))) + (for-each (lambda (f) (install-file f doc)) + (find-files "." "\\.(txt|PDF|pdf)$"))) + (for-each (lambda (f) + (install-file f (string-append share "/" ,language))) + (find-files "." "\\.(vga|VGA)$")) + (let* ((bin (string-append out "/bin")) + (apps (string-append out "/share/applications")) + (executable (string-append bin "/" ,name)) + (bash (assoc-ref %build-inputs "bash")) + (scummvm (assoc-ref %build-inputs "scummvm"))) + ;; Build the executable. + (mkdir-p bin) + (with-output-to-file executable + (lambda () + (format #t "#!~a/bin/bash~%" bash) + (format #t "exec ~a/bin/scummvm -q ~a -p ~a lure~%" + scummvm + ,language + (string-append share "/" ,language)))) + (chmod executable #o755) + ;; Create desktop file. There is no dedicated + ;; icon for the game, so we borrow SCUMMVM's. + (mkdir-p apps) + (with-output-to-file (string-append apps "/" ,name ".desktop") + (lambda _ + (format #t + "[Desktop Entry]~@ + Name=Lure of the Temptress~@ + GenericName=Lure~@ + Exec=~a~@ + Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@ + Categories=AdventureGame;Game;RolePlaying;~@ + Keywords=game;adventure;roleplaying;2D,fantasy;~@ + Comment=Classic 2D point and click adventure game~@ + Comment[de]=klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier~@ + Comment[fr]=Jeu classique d'aventure pointer-et-cliquer en 2D~@ + Comment[it]=Gioco classico di avventura punta e clicca 2D~@ + Type=Application~%" + executable scummvm)))) + #t)))) + (native-inputs + `(("bash" ,bash) + ("unzip" ,unzip))) + (inputs + `(("scummvm" ,scummvm))) + (home-page "https://www.scummvm.org") + (synopsis "2D point and click fantasy adventure game") + (description + "You are Diermot, an unwilling hero who'd prefer a quiet life, and are, +to all intents and purposes, a good man. After decades of unrest the King has +united the warring factions in his kingdom and all his lands are at peace, +except a remote region around a town called Turnvale. A revolt has recently +taken place in Turnvale, a revolt orchestrated by an apprentice sorceress +called Selena, the titular temptress. The king calls together his finest +horsemen and heads off (with you in tow) to Turnvale just to witness how +hellish mercenary monsters called Skorl are invading the town. + +The king's men are defeated, the king is killed and you fall of your horse and +bang your head heavily on the ground. You have been *unconscious for a while +when you realize that you are in a dingy cell guarded by a not so friendly +Skorl. Maybe it would be an idea to try and escape... + +Note that this package only contains game-data. The game engine is provided +by ScummVM.") + (license (license:non-copyleft "file:///README")))) + +(define-public lure + (make-lure-package + "lure" "en" "0201i70qcs1m797kvxjx3ygkhg6kcl5yf49sihba2ga8l52q45zk")) + +(define-public lure-de + (make-lure-package + "lure-de" "de" "0sqq7h5llml6rv85x0bfv4bgzwhs4c82p4w4zmfcaab6cjlad0sy")) + +(define-public lure-es + (make-lure-package + "lure-es" "es" "1dvv5znvlsakw6w5r16calv9jkgw27aymgybsf4q22lcmpxbj1lk")) + +(define-public lure-fr + (make-lure-package + "lure-fr" "fr" "1y51jjb7f8023832g44vd1jsb6ni85586pi2n5hjg9qjk6gi90r9")) + +(define-public lure-it + (make-lure-package + "lure-it" "it" "1ks6n39r1cllisrrh6pcr39swsdv7ng3gx5c47vaw71zzfr70hjj")) + (define-public gnurobots (package (name "gnurobots") -- 2.25.0