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

(MW): removed old stuff for new stuff

parent 87e14c39
definition module TITLE
import StdEnv, StdGameDef
TitleBitmap :: GameBitmap
TitleMap :: [{#Int}]
TitleBounds :: [{#Int}]
TitleSeq001 :: (Int, [(Int, Int)])
TitleSequences :: [(Int, [(Int, Int)])]
implementation module TITLE
import StdEnv, StdGameDef
TitleBitmap :: GameBitmap
TitleBitmap
= { bitmapname = "TITLE.BMP"
, unitsize = { w = 20, h = 16 }
, dimensions = (16, 4)
, transparent = Just { x = 199, y = 47 }
}
TitleMap :: [{#Int}]
TitleMap = [{-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,-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,-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,-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,-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,-1,-1,1},
{1,-1,2,3,4,-1,-1,-1,-1,-1,-1,2,3,4,-1,1},
{1,-1,5,6,7,-1,-1,-1,-1,8,9,10,6,7,-1,1},
{1,-1,11,12,13,-1,-1,-1,-1,14,15,16,12,13,-1,1},
{1,-1,-1,17,-1,-1,-1,-1,-1,18,19,20,17,-1,-1,1},
{1,-1,-1,21,-1,-1,-1,-1,-1,-1,22,-1,17,-1,-1,1},
{1,-1,-1,21,-1,-1,-1,-1,-1,-1,23,-1,17,-1,-1,1},
{1,-1,-1,17,-1,-1,-1,-1,-1,-1,22,-1,17,-1,-1,1},
{1,-1,-1,17,-1,-1,-1,-1,-1,-1,22,-1,17,24,25,1},
{1,26,27,28,24,25,-1,-1,-1,-1,22,-1,29,30,31,1},
{1,32,33,34,35,36,37,-1,-1,-1,38,39,40,41,42,1},
{43,44,44,44,44,45,44,45,45,45,45,45,45,45,45,43},
{46,47,47,47,48,49,47,47,47,47,47,48,47,49,47,46},
{46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,46}]
TitleBounds :: [{#Int}]
TitleBounds = [{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,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,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,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,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,0},
{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,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15},
{15,0,0,0,0,0,0,61440,0,0,0,0,0,0,0,15},
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
{15,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}]
TitleSeq001 :: (Int, [(Int, Int)])
TitleSeq001 = (-1,[])
TitleSequences :: [(Int, [(Int, Int)])]
TitleSequences = [TitleSeq001]
\ No newline at end of file
definition module WATER
import StdEnv, StdGameDef
WaterBitmap :: GameBitmap
WaterMap :: [{#Int}]
WaterSeq001 :: (Int, [(Int, Int)])
WaterSequences :: [(Int, [(Int, Int)])]
implementation module WATER
import StdEnv, StdGameDef
WaterBitmap :: GameBitmap
WaterBitmap
= { bitmapname = "WATER.BMP"
, unitsize = { w = 20, h = 14 }
, dimensions = (16, 2)
, transparent = Just { x = 79, y = 27 }
}
WaterMap :: [{#Int}]
WaterMap = [{1,2,3,4,5,6,7,8,9,10,-1,-1},
{11,12,13,14,15,16,17,18,19,20,-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}]
WaterSeq001 :: (Int, [(Int, Int)])
WaterSeq001 = (-1,[])
WaterSequences :: [(Int, [(Int, Int)])]
WaterSequences = [WaterSeq001]
\ No newline at end of file
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