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

(MW): removed old stuff for new stuff

parent f04c671d
definition module L3
import StdEnv, StdGameDef
Level3Bitmap :: GameBitmap
Level3Map :: [{#Int}]
Level3Bounds :: [{#Int}]
implementation module L3
import StdEnv, StdGameDef
Level3Bitmap :: GameBitmap
Level3Bitmap
= { bitmapname = "L3.BMP"
, unitsize = { w = 24, h = 24 }
, dimensions = (13, 2)
, transparent = Nothing
}
Level3Map :: [{#Int}]
Level3Map = [{1,2,3,3,4,3,5,2,5,2,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,8,3,6,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,12,3,9,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,12,4,9,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,12,3,9,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,12,5,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,
12,5,1},
{1,2,9,10,11,11,10,13,14,2,15,13,13,11,10,10,11,11,10,10,11,11,10,10,11,
12,2,1},
{1,5,9,11,10,10,12,2,5,4,3,3,2,9,11,11,10,10,11,11,10,10,11,11,10,12,
5,1},
{1,3,9,11,10,10,11,7,7,7,7,7,7,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,13,13,13,13,13,13,10,11,11,
10,12,5,1},
{1,2,9,11,10,10,11,11,10,10,11,11,10,10,12,2,3,5,4,3,2,9,11,11,10,12,
4,1},
{1,3,9,10,11,11,10,10,11,11,10,10,11,11,10,7,7,8,2,6,7,11,10,10,11,12,
3,1},
{1,4,9,10,11,11,10,10,11,11,10,10,11,11,10,10,11,12,3,9,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,12,3,9,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,12,4,9,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,12,3,9,11,11,10,10,11,
12,3,1},
{1,3,15,13,13,13,13,13,13,13,13,13,13,13,13,13,13,14,5,15,13,13,13,13,13,
14,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}]
Level3Bounds :: [{#Int}]
Level3Bounds = [{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,32783,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,32783,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,32783,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,32783,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,32783,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,32783,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,32783,32783,32783,32783,32783,32783,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,4096,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,32783,32783,32783,32783,32783,32783,
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,32783,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,32783,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,32783,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,32783,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,32783,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,32783,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