SUN.icl 915 Bytes
Newer Older
Mike Wiering's avatar
Mike Wiering committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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]