Commit 34e1be9b authored by cvs2snv's avatar cvs2snv
Browse files

This commit was manufactured by cvs2svn to create branch

'clean-2-0-0-branch'.
parent ce9d0bec
Pipeline #18956 failed with stages
in 50 seconds
definition module BEES
import StdEnv, StdGameDef
BeesBitmap :: GameBitmap
BeesMap :: [{#Int}]
BeesSeq001 :: (Int, [(Int, Int)])
BeesSequences :: [(Int, [(Int, Int)])]
implementation module BEES
import StdEnv, StdGameDef
BeesBitmap :: GameBitmap
BeesBitmap
= { bitmapname = "BEES.BMP"
, unitsize = { w = 20, h = 20 }
, dimensions = (16, 1)
, transparent = Just { x = 59, y = 19 }
}
BeesMap :: [{#Int}]
BeesMap = [{1,2,3,2,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1}]
BeesSeq001 :: (Int, [(Int, Int)])
BeesSeq001 = (-1,[])
BeesSequences :: [(Int, [(Int, Int)])]
BeesSequences = [BeesSeq001]
\ No newline at end of file
@echo off
if (%2)==() goto error
..\bin\makedx %1
..\bin\map2icl %1 %2
copy %1.bmp ..
del %1.bmp
copy %1.dcl ..
del %1.dcl
copy %1.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
definition module CH
import StdEnv, StdGameDef
MainCharBitmap :: GameBitmap
MainCharMap :: [{#Int}]
MainCharSeq001 :: (Int, [(Int, Int)])
MainCharSequences :: [(Int, [(Int, Int)])]
implementation module CH
import StdEnv, StdGameDef
MainCharBitmap :: GameBitmap
MainCharBitmap
= { bitmapname = "CH.BMP"
, unitsize = { w = 24, h = 34 }
, dimensions = (13, 1)
, transparent = Just { x = 191, y = 33 }
}
MainCharMap :: [{#Int}]
MainCharMap = [{1,2,3,4,5,6,7,8,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}]
MainCharSeq001 :: (Int, [(Int, Int)])
MainCharSeq001 = (-1,[])
MainCharSequences :: [(Int, [(Int, Int)])]
MainCharSequences = [MainCharSeq001]
\ No newline at end of file
definition module CLOUDS
import StdEnv, StdGameDef
CloudsBitmap :: GameBitmap
CloudsMap :: [{#Int}]
CloudsSeq001 :: (Int, [(Int, Int)])
CloudsSeq002 :: (Int, [(Int, Int)])
CloudsSequences :: [(Int, [(Int, Int)])]
Markdown is supported
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