gnu: roguebox-adventures: Update to 2.2.1.

* gnu/packages/games.scm (roguebox-adventures): Update to 2.2.1.
[source]: Use url-fetch instead of git-fetch.
[arguments]: Rewrite install phase for update.

gnu/packages/games.scm

@@ -773,27 +773,32 @@ utilizing the art assets from the @code{SuperTux} project.")
                    license:gpl3+))))
 
 (define-public roguebox-adventures
-  (let ((commit "19a2c340b34d5b4e7cc89118c7aedc058babbd93")
-        (revision "1"))
   (package
     (name "roguebox-adventures")
-        (version (git-version "2.1.2" revision commit))
+    (version "2.2.1")
     (source
      (origin
-           (method git-fetch)
+       (method url-fetch)
-           (uri
+       (uri (string-append
-            (git-reference
+             "http://download.tuxfamily.org/rba/RogueBoxAdventures_v"
-             (url "https://git.postactiv.com/themightyglider/RogueBoxAdventures.git")
+             (string-join (string-split version #\.) "_") "_Source.zip"))
-                 (commit commit)))
+       (file-name (string-append name "-" version ".zip"))
-           (file-name (git-file-name name version))
        (sha256
         (base32
-             "0afmg8fjdcs3sqdp5rc7irgr7riil8jwysfjn1imfxslf1wcx5ah"))))
+         "0kmzdgnik8fsf3bg55546l77p3mfxn2awkzfzzdn20n82rd2babw"))))
     (build-system python-build-system)
     (arguments
-         '(#:tests? #f ; no check target
+     `(#:tests? #f ; no check target
        #:phases
        (modify-phases %standard-phases
+         (replace 'unpack
+           (lambda* (#:key source #:allow-other-keys)
+             (and (invoke "unzip" source)
+                  ;; The actual source is buried a few directories deep.
+                  (chdir (string-append "RogueBoxAdventures_v"
+                                        (string-join
+                                         (string-split ,version #\.) "_")
+                                        "_Source")))))
          ;; no setup.py script
          (replace 'build
            (lambda* (#:key outputs #:allow-other-keys)
@@ -821,27 +826,42 @@ utilizing the art assets from the @code{SuperTux} project.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (bin (string-append out "/bin"))
+                    (roguebox-adventures
+                     (string-append bin "/roguebox-adventures"))
                     (data (string-append
                            out "/share/games/roguebox-adventures"))
+                    (lib (string-append data "/LIB"))
                     (doc (string-append
                           out "/share/doc/roguebox-adventures")))
                (mkdir-p bin)
                (mkdir-p doc)
-                   (copy-file "main.py"
-                              (string-append bin "/roguebox-adventures"))
-                   (chmod (string-append bin "/roguebox-adventures") #o555)
 
                (for-each (lambda (file)
                            (copy-recursively file
                                              (string-append data "/" file)))
                          '("AUDIO" "FONT" "GRAPHIC" "LIB" "LICENSE"
                            "icon_big.png" "icon_small.png"))
+               (for-each (lambda (file)
+                           (chmod file #o555)
+                           (install-file file lib))
+                         '("main.py" "run.py"))
 
                (copy-recursively "DOC" doc)
 
-                   (wrap-program (string-append bin "/roguebox-adventures")
+               (call-with-output-file
-                     `("PYTHONPATH" ":" prefix (,(string-append data "/LIB")))))
+                   roguebox-adventures
+                 (lambda (p)
+                   (format p "\
+#!~a
+export PYTHONPATH=~a/LIB:~a
+exec -a \"~a\" ~a \"$@\"\n"
+                           (which "bash") data (getenv "PYTHONPATH")
+                           (which "python3")
+                           (string-append lib "/main.py"))))
+               (chmod roguebox-adventures #o555))
              #t)))))
+    (native-inputs
+     `(("unzip" ,unzip)))
     (inputs
      `(("python-pygame" ,python-pygame)
        ("python-tmx" ,python-tmx)))
@@ -856,7 +876,7 @@ can be explored and changed freely.")
     (license (list license:cc0
                    license:cc-by3.0
                    license:gpl3+
-                       license:silofl1.1)))))
+                   license:silofl1.1))))
 
 (define-public xshogi
   (package