(MW): removed old stuff for new stuff

libraries/ObjectIO/Game Examples/Charlie/BEES.dcl

-definition module BEES
-
-import StdEnv, StdGameDef
-
-BeesBitmap :: GameBitmap
-
-BeesMap :: [{#Int}]
-
-BeesSeq001 :: (Int, [(Int, Int)])
-
-BeesSequences :: [(Int, [(Int, Int)])]

libraries/ObjectIO/Game Examples/Charlie/BEES.icl

-implementation module BEES
-
-import StdEnv, StdGameDef
-
-BeesBitmap :: GameBitmap
-BeesBitmap
-  = { bitmapname  = "BEES.BMP"
-    , unitsize    = { w = 20, h = 20 }
-    , dimensions  = (16, 1)
-    , transparent = Just { x = 59, y = 19 }
-    }
-
-BeesMap :: [{#Int}]
-BeesMap = [{1,2,3,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}]
-
-BeesSeq001 :: (Int, [(Int, Int)])
-BeesSeq001 = (-1,[])
-
-BeesSequences :: [(Int, [(Int, Int)])]
-BeesSequences = [BeesSeq001]
\ No newline at end of file

libraries/ObjectIO/Game Examples/Charlie/CH.dcl

-definition module CH
-
-import StdEnv, StdGameDef
-
-MainCharBitmap :: GameBitmap
-
-MainCharMap :: [{#Int}]
-
-MainCharSeq001 :: (Int, [(Int, Int)])
-
-MainCharSequences :: [(Int, [(Int, Int)])]

libraries/ObjectIO/Game Examples/Charlie/CH.icl

-implementation module CH
-
-import StdEnv, StdGameDef
-
-MainCharBitmap :: GameBitmap
-MainCharBitmap
-  = { bitmapname  = "CH.BMP"
-    , unitsize    = { w = 24, h = 34 }
-    , dimensions  = (13, 1)
-    , transparent = Just { x = 191, y = 33 }
-    }
-
-MainCharMap :: [{#Int}]
-MainCharMap = [{1,2,3,4,5,6,7,8,-1,-1,-1},
-  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
-  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}]
-
-MainCharSeq001 :: (Int, [(Int, Int)])
-MainCharSeq001 = (-1,[])
-
-MainCharSequences :: [(Int, [(Int, Int)])]
-MainCharSequences = [MainCharSeq001]
\ No newline at end of file

libraries/ObjectIO/Game Examples/Charlie/CLOUDS.dcl

-definition module CLOUDS
-
-import StdEnv, StdGameDef
-
-CloudsBitmap :: GameBitmap
-
-CloudsMap :: [{#Int}]
-
-CloudsSeq001 :: (Int, [(Int, Int)])
-CloudsSeq002 :: (Int, [(Int, Int)])
-
-CloudsSequences :: [(Int, [(Int, Int)])]

libraries/ObjectIO/Game Examples/Charlie/CLOUDS.icl

-implementation module CLOUDS
-
-import StdEnv, StdGameDef
-
-CloudsBitmap :: GameBitmap
-CloudsBitmap
-  = { bitmapname  = "CLOUDS.BMP"
-    , unitsize    = { w = 40, h = 24 }
-    , dimensions  = (8, 1)
-    , transparent = Just { x = 159, y = 23 }
-    }
-
-CloudsMap :: [{#Int}]
-CloudsMap = [{0,0,0,0,0},
-  {0,0,0,0,0},
-  {0,0,0,0,0},
-  {0,0,0,0,0},
-  {0,0,0,0,0},
-  {0,0,0,0,0},
-  {0,0,0,0,0}]
-
-CloudsSeq001 :: (Int, [(Int, Int)])
-CloudsSeq001 = (-1,[(1,36),(2,36)])
-CloudsSeq002 :: (Int, [(Int, Int)])
-CloudsSeq002 = (-2,[(3,36),(4,36)])
-
-CloudsSequences :: [(Int, [(Int, Int)])]
-CloudsSequences = [CloudsSeq001, CloudsSeq002]
\ No newline at end of file

libraries/ObjectIO/Game Examples/Charlie/ENDING.dcl

-definition module ENDING
-
-import StdEnv, StdGameDef
-
-EndingBitmap :: GameBitmap
-
-EndingMap :: [{#Int}]
-
-EndingSeq001 :: (Int, [(Int, Int)])
-
-EndingSequences :: [(Int, [(Int, Int)])]

libraries/ObjectIO/Game Examples/Charlie/ENDING.icl

-implementation module ENDING
-
-import StdEnv, StdGameDef
-
-EndingBitmap :: GameBitmap
-EndingBitmap
-  = { bitmapname  = "ENDING.BMP"
-    , unitsize    = { w = 32, h = 26 }
-    , dimensions  = (10, 1)
-    , transparent = Just { x = 287, y = 25 }
-    }
-
-EndingMap :: [{#Int}]
-EndingMap = [{1,2,3,4,5,6,7,8,9},
-  {-1,-1,-1,-1,-1,-1,-1,-1,-1},
-  {-1,-1,-1,-1,-1,-1,-1,-1,-1},
-  {-1,-1,-1,-1,-1,-1,-1,-1,-1}]
-
-EndingSeq001 :: (Int, [(Int, Int)])
-EndingSeq001 = (-1,[])
-
-EndingSequences :: [(Int, [(Int, Int)])]
-EndingSequences = [EndingSeq001]
\ No newline at end of file