Commit 8fb27ad6 authored by Peter Achten's avatar Peter Achten
Browse files

no message

parent 3cb3e377
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
BM&
\ No newline at end of file
definition module ENEMY
import StdEnv, StdGameDef
EnemyBitmap :: GameBitmap
EnemyMap :: [{#Int}]
EnemySeq001 :: (Int, [(Int, Int)])
EnemySequences :: [(Int, [(Int, Int)])]
implementation module ENEMY
import StdEnv, StdGameDef
EnemyBitmap :: GameBitmap
EnemyBitmap
= { bitmapname = "ENEMY.BMP"
, unitsize = { w = 24, h = 18 }
, dimensions = (13, 1)
, transparent = Just { x = 215, y = 17 }
}
EnemyMap :: [{#Int}]
EnemyMap = [{1,2,3,4,-1,-1},
{5,6,7,8,9,-1},
{-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1}]
EnemySeq001 :: (Int, [(Int, Int)])
EnemySeq001 = (-1,[])
EnemySequences :: [(Int, [(Int, Int)])]
EnemySequences = [EnemySeq001]
\ No newline at end of file
definition module FROGS
import StdEnv, StdGameDef
FrogsBitmap :: GameBitmap
FrogsMap :: [{#Int}]
FrogsSeq001 :: (Int, [(Int, Int)])
FrogsSequences :: [(Int, [(Int, Int)])]
implementation module FROGS
import StdEnv, StdGameDef
FrogsBitmap :: GameBitmap
FrogsBitmap
= { bitmapname = "FROGS.BMP"
, unitsize = { w = 20, h = 24 }
, dimensions = (16, 1)
, transparent = Just { x = 139, y = 23 }
}
FrogsMap :: [{#Int}]
FrogsMap = [{1,2,3,4,-1},
{5,6,-1,-1,-1},
{-1,-1,-1,7,-1},
{-1,-1,-1,-1,-1}]
FrogsSeq001 :: (Int, [(Int, Int)])
FrogsSeq001 = (-1,[])
FrogsSequences :: [(Int, [(Int, Int)])]
FrogsSequences = [FrogsSeq001]
\ No newline at end of file
definition module INFRONT
import StdEnv, StdGameDef
InFrontBitmap :: GameBitmap
InFrontMap :: [{#Int}]
InFrontSeq001 :: (Int, [(Int, Int)])
InFrontSequences :: [(Int, [(Int, Int)])]
implementation module INFRONT
import StdEnv, StdGameDef
InFrontBitmap :: GameBitmap
InFrontBitmap
= { bitmapname = "INFRONT.BMP"
, unitsize = { w = 20, h = 16 }
, dimensions = (16, 1)
, transparent = Just { x = 59, y = 15 }
}
InFrontMap :: [{#Int}]
InFrontMap = [{1,2,3,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1}]
InFrontSeq001 :: (Int, [(Int, Int)])
InFrontSeq001 = (-1,[])
InFrontSequences :: [(Int, [(Int, Int)])]
InFrontSequences = [InFrontSeq001]
\ No newline at end of file
definition module L1
import StdEnv, StdGameDef
Level1Bitmap :: GameBitmap
Level1Map :: [{#Int}]
Level1Bounds :: [{#Int}]
Level1Seq001 :: (Int, [(Int, Int)])
Level1Sequences :: [(Int, [(Int, Int)])]
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment