Commit 8a2c7927 authored by cvs2snv's avatar cvs2snv

This commit was manufactured by cvs2svn to create branch 'rankn'.

parent ce9d0bec
Pipeline #18961 failed with stages
in 16 seconds

Too many changes to show.

To preserve performance only 1000 of 1000+ files are displayed.

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)])]
implementation module CLOUDS
import StdEnv, StdGameDef
CloudsBitmap :: GameBitmap
CloudsBitmap
= { bitmapname = "CLOUDS.BMP"
, unitsize = { w = 40, h = 24 }
, dimensions = (8, 1)
, transparent = Just { x = 159, y = 23 }
}
CloudsMap :: [{#Int}]
CloudsMap = [{0,0,0,0,0},
{0,0,0,0,0},
{0,0,0,0,0},
{0,0,0,0,0},
{0,0,0,0,0},
{0,0,0,0,0},
{0,0,0,0,0}]
CloudsSeq001 :: (Int, [(Int, Int)])
CloudsSeq001 = (-1,[(1,36),(2,36)])
CloudsSeq002 :: (Int, [(Int, Int)])
CloudsSeq002 = (-2,[(3,36),(4,36)])
CloudsSequences :: [(Int, [(Int, Int)])]
CloudsSequences = [CloudsSeq001, CloudsSeq002]
\ No newline at end of file
This diff is collapsed.
definition module ENDING
import StdEnv, StdGameDef
EndingBitmap :: GameBitmap
EndingMap :: [{#Int}]
EndingSeq001 :: (Int, [(Int, Int)])
EndingSequences :: [(Int, [(Int, Int)])]
implementation module ENDING
import StdEnv, StdGameDef
EndingBitmap :: GameBitmap
EndingBitmap
= { bitmapname = "ENDING.BMP"
, unitsize = { w = 32, h = 26 }
, dimensions = (10, 1)
, transparent = Just { x = 287, y = 25 }
}
EndingMap :: [{#Int}]
EndingMap = [{1,2,3,4,5,6,7,8,9},
{-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}]
EndingSeq001 :: (Int, [(Int, Int)])
EndingSeq001 = (-1,[])
EndingSequences :: [(Int, [(Int, Int)])]
EndingSequences = [EndingSeq001]
\ No newline at end of file
definition module ENEMY
import StdEnv, StdGameDef
EnemyBitmap :: GameBitmap
EnemyMap :: [{#Int}]
EnemySeq001 :: (Int, [(Int, Int)])
EnemySequences :: [(Int, [(Int, Int)])]