no message

ObjectIO/Game Examples/Charlie/BEES.dcl

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

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

ObjectIO/Game Examples/Charlie/CH.dcl

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

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

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

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

ObjectIO/Game Examples/Charlie/ENDING.dcl

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