['d', "cloud-00.png", 90],
['e', "cloud-00.png", 91],
['f', "cloud-00.png", 92],
-
+
['G', "bkgd-00.png", 93],
['H', "bkgd-01.png", 94],
['I', "bkgd-02.png", 95],
['J', "bkgd-03.png", 96],
-
+
['g', "bkgd-10.png", 97],
['h', "bkgd-11.png", 98],
['i', "bkgd-12.png", 99],
['j', "bkgd-13.png", 100],
-
+
['#', "solid0.png", 11],
- ['[', "solid1.png", 13],
+ ['[', "solid1.png", 13],
['=', "solid2.png", 14],
[']', "solid3.png", 15],
['$', "distro", 82],
# Usage:
# levelconverter-0.1.3_0.2.0.pl < oldformat.stl > newformat.stl
#
-# Note that the script makes some unreasonable assumptions about where
+# Note that the script makes some unreasonable assumptions about where
# newlines occur in level files. It does work for most levels created
# in SuperTux 0.1.3 and Flexlay, though.
#
; 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))
(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")