Commit dfcb053f authored by Peter Achten's avatar Peter Achten
Browse files

(MW): removed old stuff for new stuff

parent f04c671d
@..\bin\gred %1 %2 %3 %4
\ No newline at end of file
definition module HEAD
import StdEnv, StdGameDef
HeadBitmap :: GameBitmap
HeadMap :: [{#Int}]
HeadSeq001 :: (Int, [(Int, Int)])
HeadSequences :: [(Int, [(Int, Int)])]
implementation module HEAD
import StdEnv, StdGameDef
HeadBitmap :: GameBitmap
HeadBitmap
= { bitmapname = "HEAD.BMP"
, unitsize = { w = 28, h = 28 }
, dimensions = (11, 1)
, transparent = Just { x = 139, y = 27 }
}
HeadMap :: [{#Int}]
HeadMap = [{1,2,3,4,5,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1}]
HeadSeq001 :: (Int, [(Int, Int)])
HeadSeq001 = (-1,[])
HeadSequences :: [(Int, [(Int, Int)])]
HeadSequences = [HeadSeq001]
\ No newline at end of file
definition module L1
import StdEnv, StdGameDef
Level1Bitmap :: GameBitmap
Level1Map :: [{#Int}]
Level1Bounds :: [{#Int}]
implementation module L1
import StdEnv, StdGameDef
Level1Bitmap :: GameBitmap
Level1Bitmap
= { bitmapname = "L1.BMP"
, unitsize = { w = 24, h = 24 }
, dimensions = (13, 2)
, transparent = Nothing
}
Level1Map :: [{#Int}]
Level1Map = [{1,2,3,3,4,3,5,2,5,3,5,3,4,3,5,5,3,4,5,3,2,3,5,4,3,3,2,1},
{1,3,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,3,1},
{1,3,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,3,1},
{1,4,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,4,1},
{1,3,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,3,1},
{1,5,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,5,1},
{1,2,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,2,1},
{1,5,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,5,1},
{1,3,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,3,1},
{1,4,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,4,1},
{1,3,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,3,1},
{1,5,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,5,1},
{1,2,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,4,1},
{1,3,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,3,1},
{1,4,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,4,1},
{1,3,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,3,1},
{1,4,9,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,
10,12,4,1},
{1,3,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,11,11,10,10,
11,12,3,1},
{1,3,13,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,
14,15,3,1},
{1,4,3,3,4,3,5,5,2,3,5,3,2,3,3,4,3,5,2,5,3,5,3,4,3,3,4,1}]
Level1Bounds :: [{#Int}]
Level1Bounds = [{15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,
15,15,15,15,15,15,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,4096,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,15},
{15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,
15,15,15,15}]

\ No newline at end of file
@echo off
if (%2)==() goto error
..\bin\makedx %1
..\bin\map2icl %1 %2
copy %1.bmp ..\*.bmp
del %1.bmp
copy %1.dcl ..\*.dcl
del %1.dcl
copy %1.icl ..\*.icl
del %1.icl
goto end
:error
echo usage: conv levelfile identifier
:end
@..\bin\edlev %1 %2 %3 %4
\ No newline at end of file
@..\bin\gred %1 %2 %3 %4
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment