Commit 26d8c373 authored by Peter Achten's avatar Peter Achten
Browse files

(MW): removed old stuff for new stuff

parent 6bcc2b3e
definition module S1B
import StdEnv, StdGameDef
Static1bBitmap :: GameBitmap
Static1bMap :: [{#Int}]
Static1bSeq001 :: (Int, [(Int, Int)])
Static1bSeq002 :: (Int, [(Int, Int)])
Static1bSeq003 :: (Int, [(Int, Int)])
Static1bSeq004 :: (Int, [(Int, Int)])
Static1bSequences :: [(Int, [(Int, Int)])]
implementation module S1B
import StdEnv, StdGameDef
Static1bBitmap :: GameBitmap
Static1bBitmap
= { bitmapname = "S1B.BMP"
, unitsize = { w = 40, h = 24 }
, dimensions = (8, 2)
, transparent = Just { x = 279, y = 47 }
}
Static1bMap :: [{#Int}]
Static1bMap = [{0,0,0,0,0,0,0,0,0,0},
{0,-2,0,0,0,0,-2,0,0,0},
{0,0,-2,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0},
{4,0,4,5,0,4,6,0,5,7},
{9,10,9,9,11,9,9,10,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9},
{9,9,9,9,9,9,9,9,9,9}]
Static1bSeq001 :: (Int, [(Int, Int)])
Static1bSeq001 = (-1,[(1,36),(2,36)])
Static1bSeq002 :: (Int, [(Int, Int)])
Static1bSeq002 = (-2,[(3,38),(8,38)])
Static1bSeq003 :: (Int, [(Int, Int)])
Static1bSeq003 = (-3,[(12,48),(13,48)])
Static1bSeq004 :: (Int, [(Int, Int)])
Static1bSeq004 = (-4,[(14,48),(15,48)])
Static1bSequences :: [(Int, [(Int, Int)])]
Static1bSequences = [Static1bSeq001, Static1bSeq002, Static1bSeq003, Static1bSeq004]
\ No newline at end of file
definition module S2
import StdEnv, StdGameDef
Static2Bitmap :: GameBitmap
Static2Map :: [{#Int}]
Static2Seq001 :: (Int, [(Int, Int)])
Static2Seq002 :: (Int, [(Int, Int)])
Static2Seq003 :: (Int, [(Int, Int)])
Static2Seq004 :: (Int, [(Int, Int)])
Static2Sequences :: [(Int, [(Int, Int)])]
implementation module S2
import StdEnv, StdGameDef
Static2Bitmap :: GameBitmap
Static2Bitmap
= { bitmapname = "S2.BMP"
, unitsize = { w = 40, h = 24 }
, dimensions = (8, 2)
, transparent = Just { x = 319, y = 47 }
}
Static2Map :: [{#Int}]
Static2Map = [{0,0,0,0,0,0,0,0,0,0},
{0,0,-1,0,-3,-1,0,0,0,0},
{0,0,0,0,-4,0,-1,0,0,0},
{3,0,4,5,0,4,6,7,5,8},
{10,11,10,10,11,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10},
{10,10,10,10,10,10,10,10,10,10}]
Static2Seq001 :: (Int, [(Int, Int)])
Static2Seq001 = (-1,[(1,36),(2,36)])
Static2Seq002 :: (Int, [(Int, Int)])
Static2Seq002 = (-2,[(9,38),(12,38)])
Static2Seq003 :: (Int, [(Int, Int)])
Static2Seq003 = (-3,[(13,48),(14,48)])
Static2Seq004 :: (Int, [(Int, Int)])
Static2Seq004 = (-4,[(15,48),(16,48)])
Static2Sequences :: [(Int, [(Int, Int)])]
Static2Sequences = [Static2Seq001, Static2Seq002, Static2Seq003, Static2Seq004]
\ No newline at end of file
definition module STAT
import StdEnv, StdGameDef
StatusBitmap :: GameBitmap
StatusMap :: [{#Int}]
StatusSeq001 :: (Int, [(Int, Int)])
StatusSequences :: [(Int, [(Int, Int)])]
implementation module STAT
import StdEnv, StdGameDef
StatusBitmap :: GameBitmap
StatusBitmap
= { bitmapname = "STAT.BMP"
, unitsize = { w = 12, h = 12 }
, dimensions = (26, 1)
, transparent = Just { x = 59, y = 11 }
}
StatusMap :: [{#Int}]
StatusMap = [{1,2,3,4,5,5,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-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
definition module SUN
import StdEnv, StdGameDef
SunRiseBitmap :: GameBitmap
SunRiseMap :: [{#Int}]
SunRiseSeq001 :: (Int, [(Int, Int)])
SunRiseSequences :: [(Int, [(Int, Int)])]
implementation module SUN
import StdEnv, StdGameDef
SunRiseBitmap :: GameBitmap
SunRiseBitmap
= { bitmapname = "SUN.BMP"
, unitsize = { w = 40, h = 32 }
, dimensions = (8, 1)
, transparent = Just { x = 79, y = 31 }
}
SunRiseMap :: [{#Int}]
SunRiseMap = [{1,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,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}]
SunRiseSeq001 :: (Int, [(Int, Int)])
SunRiseSeq001 = (-1,[])
SunRiseSequences :: [(Int, [(Int, Int)])]
SunRiseSequences = [SunRiseSeq001]
\ No newline at end of file
This diff is collapsed.
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