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

(MW): removed old stuff for new stuff

parent 87e14c39
definition module L2
import StdEnv, StdGameDef
Level2Bitmap :: GameBitmap
Level2Map :: [{#Int}]
Level2Bounds :: [{#Int}]
Level2Seq001 :: (Int, [(Int, Int)])
Level2Sequences :: [(Int, [(Int, Int)])]
This diff is collapsed.
definition module OBJ
import StdEnv, StdGameDef
ObjectsBitmap :: GameBitmap
ObjectsMap :: [{#Int}]
ObjectsSeq001 :: (Int, [(Int, Int)])
ObjectsSequences :: [(Int, [(Int, Int)])]
implementation module OBJ
import StdEnv, StdGameDef
ObjectsBitmap :: GameBitmap
ObjectsBitmap
= { bitmapname = "OBJ.BMP"
, unitsize = { w = 20, h = 16 }
, dimensions = (16, 2)
, transparent = Just { x = 219, y = 31 }
}
ObjectsMap :: [{#Int}]
ObjectsMap = [{1,2,3,4,5,6,7,8,9,10,11,12,-1},
{13,14,15,16,17,18,19,20,21,22,23,24,-1},
{25,26,27,-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}]
ObjectsSeq001 :: (Int, [(Int, Int)])
ObjectsSeq001 = (-1,[])
ObjectsSequences :: [(Int, [(Int, Int)])]
ObjectsSequences = [ObjectsSeq001]
\ No newline at end of file
definition module PALM
import StdEnv, StdGameDef
PalmFrontBitmap :: GameBitmap
PalmFrontMap :: [{#Int}]
PalmFrontSeq001 :: (Int, [(Int, Int)])
PalmFrontSequences :: [(Int, [(Int, Int)])]
implementation module PALM
import StdEnv, StdGameDef
PalmFrontBitmap :: GameBitmap
PalmFrontBitmap
= { bitmapname = "PALM.BMP"
, unitsize = { w = 20, h = 32 }
, dimensions = (16, 1)
, transparent = Just { x = 179, y = 31 }
}
PalmFrontMap :: [{#Int}]
PalmFrontMap = [{1,2,3,4,5,6,7,8,9},
{-1,-1,-1,-1,-1,-1,-1,-1,-1}]
PalmFrontSeq001 :: (Int, [(Int, Int)])
PalmFrontSeq001 = (-1,[])
PalmFrontSequences :: [(Int, [(Int, Int)])]
PalmFrontSequences = [PalmFrontSeq001]
\ No newline at end of file
definition module PART
import StdEnv, StdGameDef
PartBitmap :: GameBitmap
PartMap :: [{#Int}]
PartSeq001 :: (Int, [(Int, Int)])
PartSequences :: [(Int, [(Int, Int)])]
implementation module PART
import StdEnv, StdGameDef
PartBitmap :: GameBitmap
PartBitmap
= { bitmapname = "PART.BMP"
, unitsize = { w = 12, h = 8 }
, dimensions = (26, 1)
, transparent = Just { x = 11, y = 7 }
}
PartMap :: [{#Int}]
PartMap = [{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}]
PartSeq001 :: (Int, [(Int, Int)])
PartSeq001 = (-1,[])
PartSequences :: [(Int, [(Int, Int)])]
PartSequences = [PartSeq001]
\ No newline at end of file
definition module STATUS
import StdEnv, StdGameDef
StatusBitmap :: GameBitmap
StatusMap :: [{#Int}]
StatusSeq001 :: (Int, [(Int, Int)])
StatusSequences :: [(Int, [(Int, Int)])]
implementation module STATUS
import StdEnv, StdGameDef
StatusBitmap :: GameBitmap
StatusBitmap
= { bitmapname = "STATUS.BMP"
, unitsize = { w = 12, h = 12 }
, dimensions = (26, 1)
, transparent = Just { x = 71, y = 11 }
}
StatusMap :: [{#Int}]
StatusMap = [{1,2,3,4,5,6,-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}]
StatusSeq001 :: (Int, [(Int, Int)])
StatusSeq001 = (-1,[])
StatusSequences :: [(Int, [(Int, Int)])]
StatusSequences = [StatusSeq001]
\ 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