From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Subject: [PATCH] gnu: Add Mr. Rescue. Date: Sat, 17 Sep 2016 21:24:05 +0800 Message-ID: <20160917132405.17071-1-iyzsong@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49645) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1blFbK-0005JM-2w for guix-devel@gnu.org; Sat, 17 Sep 2016 09:24:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1blFbG-0006KJ-R6 for guix-devel@gnu.org; Sat, 17 Sep 2016 09:24:14 -0400 Received: from smtp12.openmailbox.org ([62.4.1.46]:39777) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1blFbG-0006JQ-Kw for guix-devel@gnu.org; Sat, 17 Sep 2016 09:24:10 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org Cc: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= * gnu/packages/games.scm (mrrescue): New variable. --- gnu/packages/games.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index d386e2c..8d321fc 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2856,3 +2856,51 @@ programmers may also add their own favorite language.") application that locks the keyboard and mouse and instead displays bright colors, pictures, and sounds.") (license license:gpl3+))) + +(define-public mrrescue + (package + (name "mrrescue") + (version "1.02e") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/SimonLarsen/mrrescue/releases/" + "download/" version "/" name version ".love")) + (file-name (string-append name "-" version ".love")) + (sha256 + (base32 + "0jwzbwkgp1l5ia6c7s760gmdirbsncp6nfqp7vqdqsfb63la9gl2")))) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let* ((out (assoc-ref %outputs "out")) + (bindir (string-append out "/bin")) + (prog (string-append bindir "/mrrescue")) + (source (assoc-ref %build-inputs "source")) + (guile (string-append (assoc-ref %build-inputs "guile") + "/bin/guile")) + (love (string-append (assoc-ref %build-inputs "love") + "/bin/love"))) + (mkdir-p bindir) + (with-output-to-file prog + (lambda () + (format #t "#!~a --no-auto-compile~%!#~%" guile) + (write `(execl ,love "mrrescue" ,source)) + (newline))) + (chmod prog #o755) + #t)))) + (inputs + `(("guile" ,guile-2.0) + ("love" ,love))) + (home-page "http://tangramgames.dk/games/mrrescue") + (synopsis "Arcade-style fire fighting game") + (description + "Mr. Rescue is an arcade styled 2d action game centered around evacuating +civilians from burning buildings. The game features fast paced fire +extinguishing action, intense boss battles, a catchy soundtrack and lots of +throwing people around in pseudo-randomly generated buildings.") + (license (list license:zlib ; for source code + license:cc-by-sa3.0)))) ; for graphics and music assets -- 2.10.0