no message

ObjectIO/Game Examples/Charlie/L2.dcl

+definition module L2
+
+import StdEnv, StdGameDef
+
+Level2Bitmap :: GameBitmap
+
+Level2Map :: [{#Int}]
+
+Level2Bounds :: [{#Int}]
+
+Level2Seq001 :: (Int, [(Int, Int)])
+
+Level2Sequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/Charlie/OBJ.dcl

+definition module OBJ
+
+import StdEnv, StdGameDef
+
+ObjectsBitmap :: GameBitmap
+
+ObjectsMap :: [{#Int}]
+
+ObjectsSeq001 :: (Int, [(Int, Int)])
+
+ObjectsSequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/Charlie/OBJ.icl

+implementation module OBJ
+
+import StdEnv, StdGameDef
+
+ObjectsBitmap :: GameBitmap
+ObjectsBitmap
+  = { bitmapname  = "OBJ.BMP"
+    , unitsize    = { w = 20, h = 16 }
+    , dimensions  = (16, 2)
+    , transparent = Just { x = 219, y = 31 }
+    }
+
+ObjectsMap :: [{#Int}]
+ObjectsMap = [{1,2,3,4,5,6,7,8,9,10,11,12,-1},
+  {13,14,15,16,17,18,19,20,21,22,23,24,-1},
+  {25,26,27,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}]
+
+ObjectsSeq001 :: (Int, [(Int, Int)])
+ObjectsSeq001 = (-1,[])
+
+ObjectsSequences :: [(Int, [(Int, Int)])]
+ObjectsSequences = [ObjectsSeq001]
\ No newline at end of file

ObjectIO/Game Examples/Charlie/PALM.dcl

+definition module PALM
+
+import StdEnv, StdGameDef
+
+PalmFrontBitmap :: GameBitmap
+
+PalmFrontMap :: [{#Int}]
+
+PalmFrontSeq001 :: (Int, [(Int, Int)])
+
+PalmFrontSequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/Charlie/PALM.icl

+implementation module PALM
+
+import StdEnv, StdGameDef
+
+PalmFrontBitmap :: GameBitmap
+PalmFrontBitmap
+  = { bitmapname  = "PALM.BMP"
+    , unitsize    = { w = 20, h = 32 }
+    , dimensions  = (16, 1)
+    , transparent = Just { x = 179, y = 31 }
+    }
+
+PalmFrontMap :: [{#Int}]
+PalmFrontMap = [{1,2,3,4,5,6,7,8,9},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1}]
+
+PalmFrontSeq001 :: (Int, [(Int, Int)])
+PalmFrontSeq001 = (-1,[])
+
+PalmFrontSequences :: [(Int, [(Int, Int)])]
+PalmFrontSequences = [PalmFrontSeq001]
\ No newline at end of file

ObjectIO/Game Examples/Charlie/PART.dcl

+definition module PART
+
+import StdEnv, StdGameDef
+
+PartBitmap :: GameBitmap
+
+PartMap :: [{#Int}]
+
+PartSeq001 :: (Int, [(Int, Int)])
+
+PartSequences :: [(Int, [(Int, Int)])]

ObjectIO/Game Examples/Charlie/PART.icl

+implementation module PART
+
+import StdEnv, StdGameDef
+
+PartBitmap :: GameBitmap
+PartBitmap
+  = { bitmapname  = "PART.BMP"
+    , unitsize    = { w = 12, h = 8 }
+    , dimensions  = (26, 1)
+    , transparent = Just { x = 11, y = 7 }
+    }
+
+PartMap :: [{#Int}]
+PartMap = [{1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}]
+
+PartSeq001 :: (Int, [(Int, Int)])
+PartSeq001 = (-1,[])
+
+PartSequences :: [(Int, [(Int, Int)])]
+PartSequences = [PartSeq001]
\ No newline at end of file

ObjectIO/Game Examples/Charlie/STATUS.dcl

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

ObjectIO/Game Examples/Charlie/STATUS.icl

+implementation module STATUS
+
+import StdEnv, StdGameDef
+
+StatusBitmap :: GameBitmap
+StatusBitmap
+  = { bitmapname  = "STATUS.BMP"
+    , unitsize    = { w = 12, h = 12 }
+    , dimensions  = (26, 1)
+    , transparent = Just { x = 71, y = 11 }
+    }
+
+StatusMap :: [{#Int}]
+StatusMap = [{1,2,3,4,5,6,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-1,-1,-1,-1,-1,-1},
+  {-1,-1,-1,-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