(MW): removed old stuff for new stuff

ObjectIO/Game Examples/SINT/S1B.dcl

-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)])]

ObjectIO/Game Examples/SINT/S1B.icl

-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

ObjectIO/Game Examples/SINT/S2.dcl

-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)])]

ObjectIO/Game Examples/SINT/S2.icl

-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

ObjectIO/Game Examples/SINT/STAT.dcl

-definition module STAT
-
-import StdEnv, StdGameDef
-
-StatusBitmap :: GameBitmap
-
-StatusMap :: [{#Int}]
-
-StatusSeq001 :: (Int, [(Int, Int)])
-
-StatusSequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/SINT/STAT.icl

-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

ObjectIO/Game Examples/SINT/SUN.dcl

-definition module SUN
-
-import StdEnv, StdGameDef
-
-SunRiseBitmap :: GameBitmap
-
-SunRiseMap :: [{#Int}]
-
-SunRiseSeq001 :: (Int, [(Int, Int)])
-
-SunRiseSequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/SINT/SUN.icl

-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