Updated addon repository URL and improved debug output on download

[supertux.git] / tools / levelconverter-0.1.3_0.2.0.scm

diff --git a/tools/levelconverter-0.1.3_0.2.0.scm b/tools/levelconverter-0.1.3_0.2.0.scm
index e063858..10b0cea 100755 (executable)
--- a/tools/levelconverter-0.1.3_0.2.0.scm
+++ b/tools/levelconverter-0.1.3_0.2.0.scm
@@ -1,5 +1,4 @@
-#!/usr/bin/scm
-
+;
 ;
 ; $Id$
 ;
@@ -25,15 +24,18 @@
 
 ;
 ; The rest of this file may seem like a Long Irritating Series of Parentheses,
-; but it's actually a program. Install a Scheme interpreter, e.g. scm, to run 
+; but it's actually a program. Install a Scheme interpreter, e.g. scm, to run
 ; it.
 ;
-; This program aids in the conversion of SuperTux levels from 0.1.3 level 
+; This program aids in the conversion of SuperTux levels from 0.1.3 level
 ; format to the one used by SuperTux 0.2.x.
 ;
 ; Usage:
 ;   levelconverter-0.1.3_0.2.0.scm < oldformat.stl > newformat.stl
 ;
+; Bugs:
+;   Some things (like what background image to use) are not converted:
+;   they will need manual adjustment afterwards.
 
 ; ---------------------------------------------------------------------------
 
@@ -71,7 +73,7 @@
 
 ; return SuperTux 0.1.3 level in SuperTux 0.2.x form
 (define (convert-level level)
-  (let 
+  (let
     (
      (type (car level))
      (version (find-sublist level 'version))
@@ -98,12 +100,12 @@
     (if (not background-tm) (error "No background tilemap given"))
     (if (not foreground-tm) (error "No foreground tilemap given"))
     (if (not objects) (error "No objects list given"))
-    (quasiquote 
+    (quasiquote
       (supertux-level
        (version 2)
        (name (_ ,(car name)))
        (author ,(car author))
-       ,(append 
+       ,(append
           (quasiquote
             (sector
               (name "main")
@@ -148,7 +150,7 @@
       )
     )
   )
-  
+
 ; run conversion on stdin, output to stdout
 (write (convert-level (read)))
 (newline)