STAT.icl 597 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
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]